syntax error was giving the offset

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1529 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2006-01-26 19:20:00 +00:00
parent 7fa3e86284
commit a4eaafaef3
2 changed files with 9 additions and 3 deletions

View File

@ -16,6 +16,7 @@
<h2>Yap-5.1.0:</h2> <h2>Yap-5.1.0:</h2>
<ul> <ul>
<li> FIXED: more compilation problems if GMP not there (Remko Troncon).</li>
<li> FIXED: make syntax error report the line where the bug was (Jude Shavlik).</li> <li> FIXED: make syntax error report the line where the bug was (Jude Shavlik).</li>
<li> FIXED: ok, MkBigInt shouldn't free the bigint.</li> <li> FIXED: ok, MkBigInt shouldn't free the bigint.</li>
<li> FIXED: MkBigInt already frees bigint.</li> <li> FIXED: MkBigInt already frees bigint.</li>

View File

@ -11,8 +11,12 @@
* File: errors.yap * * File: errors.yap *
* comments: error messages for YAP * * comments: error messages for YAP *
* * * *
* Last rev: $Date: 2006-01-20 04:35:28 $,$Author: vsc $ * * Last rev: $Date: 2006-01-26 19:20:00 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $ * $Log: not supported by cvs2svn $
* Revision 1.73 2006/01/20 04:35:28 vsc
*
* fix error message
*
* Revision 1.72 2005/11/23 13:24:00 vsc * Revision 1.72 2005/11/23 13:24:00 vsc
* cleanups in OS interface predicates. * cleanups in OS interface predicates.
* *
@ -847,8 +851,9 @@ print_message(Level, Mss) :-
[Where]). [Where]).
'$dump_syntax_error_line'(_,Position) :- '$dump_syntax_error_line'(Start,Position) :-
format(user_error,', near line ~d:~n',[Position]). Pos is Start+Position,
format(user_error,', near line ~d:~n',[Pos]).
'$dump_syntax_error_term'(0,J,L) :- !, '$dump_syntax_error_term'(0,J,L) :- !,
format(user_error,'~n', []), format(user_error,'~n', []),