From a546945c4dbfa5dd5a24cec5a43181dbc24d4e52 Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Thu, 2 Jul 1998 12:53:09 +0000
Subject: [PATCH]   * DOERROR RESOTRED! DON'T TOUCH :)

---
 rtl/inc/system.inc | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/system.inc b/rtl/inc/system.inc
index e545e8216b..71c34e2e15 100644
--- a/rtl/inc/system.inc
+++ b/rtl/inc/system.inc
@@ -391,7 +391,7 @@ Begin
      exitProc:=nil;
      current_exit();
    End;
-  If ErrorAddr<>nil Then
+  If DoError Then
    Begin
      Writeln('Run time error  ',Errorcode,' at 0x',hexstr(Longint(Erroraddr),8));
      dump_stack(ErrorBase);
@@ -440,7 +440,10 @@ End;
 
 {
   $Log$
-  Revision 1.16  1998-07-02 12:11:50  carl
+  Revision 1.17  1998-07-02 12:53:09  carl
+    * DOERROR RESOTRED! DON'T TOUCH :)
+
+  Revision 1.16  1998/07/02 12:11:50  carl
     * no SINGLE in m68k and other processors!
 
   Revision 1.15  1998/07/02 09:25:05  peter