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

add alias FPC_BREAK_UNHANDLED_EXCEPTION

Browse Source
This commit is contained in:
peter 2004-12-06 19:24:59 +00:00
parent 5834a643c1
commit 76efcf23f7
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/sysutils/sysutils.inc
View File

@ -168,7 +168,7 @@
{$define STACKCHECK_WAS_ON} {$define STACKCHECK_WAS_ON}
{$S-} {$S-}
{$endif OPT S } {$endif OPT S }
Procedure CatchUnhandledException (Obj : TObject; Addr,Frame: Pointer); Procedure CatchUnhandledException (Obj : TObject; Addr,Frame: Pointer);[public,alias:'FPC_BREAK_UNHANDLED_EXCEPTION'];
Var Var
Message : String; Message : String;
{$IFDEF VIRTUALPASCAL} {$IFDEF VIRTUALPASCAL}