No stack check inside CatchUnhandledException

rtl/objpas/sysutils.pp

@@ -188,6 +188,10 @@ type
       end;
 
 
+{$ifopt S+}
+{$define STACKCHECK_WAS_ON}
+{$S-}
+{$endif OPT S }
 Procedure CatchUnhandledException (Obj : TObject; Addr: Pointer);
 Var
   Message : String;
@@ -268,6 +272,9 @@ begin
   Raise EAssertionFailed.Createfmt(SAssertError,[S,Fn,LineNo]); // at Pointer(theAddr);
 end;
 
+{$ifdef STACKCHECK_WAS_ON}
+{$S+}
+{$endif}
 
 Procedure InitExceptions;
 {
@@ -296,7 +303,10 @@ Finalization
 end.
 {
     $Log$
-    Revision 1.42  2000-02-10 22:56:43  florian
+    Revision 1.43  2000-03-30 13:54:15  pierre
+     No stack check inside CatchUnhandledException
+
+    Revision 1.42  2000/02/10 22:56:43  florian
       * quick hack for stack trace in the case of an unhandled exception
 
     Revision 1.41  2000/02/09 16:59:33  peter
@@ -336,4 +346,4 @@ end.
     Revision 1.29  1999/07/27 13:01:12  peter
       + filerec,textrec declarations
 
-}
+}