paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 13:19:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ give line number of internal error

Browse Source
This commit is contained in:
carl 2003-02-15 22:20:43 +00:00
parent ff5cc80fcd
commit 05d6af8745
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/comphook.pas
View File

@ -336,7 +336,7 @@ end;
function def_internalerror(i : longint) : boolean; function def_internalerror(i : longint) : boolean;
begin begin
do_comment(V_Fatal,'Internal error '+tostr(i)); do_comment(V_Fatal,'Internal error '+tostr(i)+':'+tostr(status.currentline));
{$ifdef EXTDEBUG} {$ifdef EXTDEBUG}
{$ifdef FPC} {$ifdef FPC}
{ Internalerror() and def_internalerror() do not { Internalerror() and def_internalerror() do not
@ -385,7 +385,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.24 2003-01-09 21:52:37 peter Revision 1.25 2003-02-15 22:20:43 carl
+ give line number of internal error
Revision 1.24 2003/01/09 21:52:37 peter
* merged some verbosity options. * merged some verbosity options.
* V_LineInfo is a verbosity flag to include line info * V_LineInfo is a verbosity flag to include line info