From 05d6af87457255ff07d13048ffec36147f5c42ca Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Sat, 15 Feb 2003 22:20:43 +0000
Subject: [PATCH] + give line number of internal error
---
compiler/comphook.pas | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/compiler/comphook.pas b/compiler/comphook.pas
index a442ca6425..03d15cb196 100644
--- a/compiler/comphook.pas
+++ b/compiler/comphook.pas
@@ -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