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

No stack check inside CatchUnhandledException

Browse Source
This commit is contained in:
pierre 2000-03-30 13:54:15 +00:00
parent d74dc01fef
commit ad052390fb
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/objpas/sysutils.pp
View File

@ -188,6 +188,10 @@ type
end; end;
{$ifopt S+}
{$define STACKCHECK_WAS_ON}
{$S-}
{$endif OPT S }
Procedure CatchUnhandledException (Obj : TObject; Addr: Pointer); Procedure CatchUnhandledException (Obj : TObject; Addr: Pointer);
Var Var
Message : String; Message : String;
@ -268,6 +272,9 @@ begin
Raise EAssertionFailed.Createfmt(SAssertError,[S,Fn,LineNo]); // at Pointer(theAddr); Raise EAssertionFailed.Createfmt(SAssertError,[S,Fn,LineNo]); // at Pointer(theAddr);
end; end;
{$ifdef STACKCHECK_WAS_ON}
{$S+}
{$endif}
Procedure InitExceptions; Procedure InitExceptions;
{ {
@ -296,7 +303,10 @@ Finalization
end. end.
{ {
$Log$ $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 * quick hack for stack trace in the case of an unhandled exception
Revision 1.41 2000/02/09 16:59:33 peter 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 Revision 1.29 1999/07/27 13:01:12 peter
+ filerec,textrec declarations + filerec,textrec declarations
} }