From b62af468584078902e671a087e118a5f0173a533 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Wed, 3 Apr 2002 19:32:44 +0000
Subject: [PATCH] fix numbers in syntax errors

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@426 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/iopreds.c     | 16 ++++++++++++----
 changes4.3.html |  1 +
 2 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/C/iopreds.c b/C/iopreds.c
index f59b6758a..dab339d5d 100644
--- a/C/iopreds.c
+++ b/C/iopreds.c
@@ -2704,11 +2704,19 @@ syntax_error (TokEntry * tokptr)
 	  break;
 	case Number_tok:
 	  checkcol (6);
-#if SHORT_INTS
-	  YP_fprintf (YP_stderr, " %ld", IntOfTerm (info));
-#else
-	  YP_fprintf (YP_stderr, " %d", IntOfTerm (info));
+	  if (IsIntegerTerm(info)) {
+	    YP_fprintf (YP_stderr, " %ld", IntegerOfTerm (info));
+#ifdef USE_GMP 
+	  } else if (IsBigIntTerm(info)) {
+	    char *s = (char *)TR;
+	    while (s+2+mpz_sizeinbase(BigIntOfTerm(info), 10) > (char *)TrailTop)
+	      growtrail(64*1024);
+	    mpz_get_str(s, 10, BigIntOfTerm(info));
+	    YP_fprintf(YP_stderr,"%s", s);
 #endif
+	  } else {
+	    YP_fprintf (YP_stderr, " %.15g", FloatOfTerm (info));
+	  }
 	  break;
 	case Var_tok:
 	  s = ((VarEntry *) info)->VarRep;
diff --git a/changes4.3.html b/changes4.3.html
index 93c8e4382..fd0f4c137 100644
--- a/changes4.3.html
+++ b/changes4.3.html
@@ -16,6 +16,7 @@
 
 <h2>Yap-4.3.21:</h2>
 <ul>
+	<li>FIXED: syntax errors dumped all numbers as if small integers.</li>
 	<li>UPDATE: new Logtalk version (2.10.0).</li>
 	<li>FIXED: debugger could enter infinite loop if spying
 	<code>portray</code> (Steve Moyle).</li>