paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 08:39:10 +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

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

@ -47,13 +47,13 @@
end; end;
{$ifndef OS_FILEISREADONLY} {$ifndef OS_FILEISREADONLY}
Function FileIsReadOnly(const FileName: String): Boolean; Function FileIsReadOnly(const FileName: String): Boolean;
begin begin
Result := (FileGetAttr(FileName) and faReadOnly) <> 0; Result := (FileGetAttr(FileName) and faReadOnly) <> 0;
end; end;
{$endif OS_FILEISREADONLY} {$endif OS_FILEISREADONLY}
{ Read String Handling functions implementation } { Read String Handling functions implementation }
{$i sysstr.inc} {$i sysstr.inc}
@ -72,7 +72,7 @@
{ OS utility code } { OS utility code }
{$i osutil.inc} {$i osutil.inc}
procedure FreeAndNil(var obj); procedure FreeAndNil(var obj);
var var
temp: tobject; temp: tobject;
@ -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}
@ -266,7 +266,7 @@ Procedure RaiseLastOSError;
var var
ECode: Cardinal; ECode: Cardinal;
E : EOSError; E : EOSError;
begin begin
ECode := GetLastOSError; ECode := GetLastOSError;
If (ECode<>0) then If (ECode<>0) then