diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix numbers in syntax errors

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@426 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-04-03 19:32:44 +00:00
parent c297b0e7f6
commit b62af46858
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
C/iopreds.c
View File

@ -2704,11 +2704,19 @@ syntax_error (TokEntry * tokptr)
break; break;
case Number_tok: case Number_tok:
checkcol (6); checkcol (6);
#if SHORT_INTS if (IsIntegerTerm(info)) {
YP_fprintf (YP_stderr, " %ld", IntOfTerm (info)); YP_fprintf (YP_stderr, " %ld", IntegerOfTerm (info));
#else #ifdef USE_GMP
YP_fprintf (YP_stderr, " %d", IntOfTerm (info)); } 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 #endif
} else {
YP_fprintf (YP_stderr, " %.15g", FloatOfTerm (info));
}
break; break;
case Var_tok: case Var_tok:
s = ((VarEntry *) info)->VarRep; s = ((VarEntry *) info)->VarRep;

1
changes4.3.html
View File

@ -16,6 +16,7 @@
<h2>Yap-4.3.21:</h2> <h2>Yap-4.3.21:</h2>
<ul> <ul>
<li>FIXED: syntax errors dumped all numbers as if small integers.</li>
<li>UPDATE: new Logtalk version (2.10.0).</li> <li>UPDATE: new Logtalk version (2.10.0).</li>
<li>FIXED: debugger could enter infinite loop if spying <li>FIXED: debugger could enter infinite loop if spying
<code>portray</code> (Steve Moyle).</li> <code>portray</code> (Steve Moyle).</li>