Added AbstractErrorHandler

rtl/inc/system.inc

@@ -289,7 +289,11 @@ end;
 
 procedure abstracterror;[public,alias : 'FPC_ABSTRACTERROR'];
 
+Type TAbstractErrorHandler = Procedure;
+
 begin
+  If AbstractErrorHandler<>nil then
+    TAbstractErrorHAndler(AbstractErrorHAndler);
   Runerror(211);
 end;
   
@@ -469,7 +473,10 @@ end;
 
 {
   $Log$
-  Revision 1.32  1998-09-16 12:37:07  michael
+  Revision 1.33  1998-09-16 13:08:03  michael
+  Added AbstractErrorHandler
+
+  Revision 1.32  1998/09/16 12:37:07  michael
   Added FPC_ prefix to abstracterror
 
   Revision 1.31  1998/09/15 17:12:32  michael

rtl/inc/systemh.inc

@@ -119,7 +119,8 @@ var
 
 Const
   ErrorProc   : Pointer = nil;
-
+  AbstractErrorHandler : Pointer = Nil;
+  
 {****************************************************************************
                         Processor specific routines
 ****************************************************************************}
@@ -386,7 +387,10 @@ Procedure halt;
 
 {
   $Log$
-  Revision 1.28  1998-09-14 10:48:22  peter
+  Revision 1.29  1998-09-16 13:08:04  michael
+  Added AbstractErrorHandler
+
+  Revision 1.28  1998/09/14 10:48:22  peter
     * FPC_ names
     * Heap manager is now system independent
 

rtl/objpas/objpas.pp

@@ -132,7 +132,7 @@ unit objpas;
            runerror(219);
       end;
 
-    procedure abstracterror;[public,alias: 'ABSTRACTERROR'];
+    procedure abstracterror;
 
       type
          proc = procedure;
@@ -141,7 +141,7 @@ unit objpas;
          if assigned(abstracterrorproc) then
            proc(abstracterrorproc)()
          else
-           runerror(210);
+           runerror(211);
       end;
 
   {************************************************************************}
@@ -315,12 +315,16 @@ unit objpas;
 {$i except.inc}
 
 begin
-  InitExceptions
+  InitExceptions;
+  AbstractErrorHandler:=@AbstractError;
 end.
 {$endif VER0_99_5}
 {
   $Log$
-  Revision 1.8  1998-09-06 21:27:31  florian
+  Revision 1.9  1998-09-16 13:08:19  michael
+  Added AbstractErrorHandler
+
+  Revision 1.8  1998/09/06 21:27:31  florian
     + method tobject.classinfo added
 
   Revision 1.7  1998/09/04 08:49:06  peter