paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 19:29:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* print lineinfo for internalerror

Browse Source
This commit is contained in:
peter 2003-04-26 19:32:31 +00:00
parent e7130af5a8
commit fd278ee582
1 changed files with 5 additions and 2 deletions

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)+':'+tostr(status.currentline));
do_comment(V_Fatal+V_LineInfo,'Internal error '+tostr(i));
{$ifdef EXTDEBUG}
{$ifdef FPC}
{ Internalerror() and def_internalerror() do not
@ -385,7 +385,10 @@ end;
end.
{
$Log$
Revision 1.25 2003-02-15 22:20:43 carl
Revision 1.26 2003-04-26 19:32:31 peter
* print lineinfo for internalerror
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