paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 09:19:45 +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;
begin
do_comment(V_Fatal,'Internal error '+tostr(i));
do_comment(V_Fatal,'Internal error '+tostr(i)+':'+tostr(status.currentline));
{$ifdef EXTDEBUG}
{$ifdef FPC}
{ Internalerror() and def_internalerror() do not
@ -385,7 +385,10 @@ end;
end.
{
$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.
* V_LineInfo is a verbosity flag to include line info