paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 01:19:38 +01: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;
{$ifndef OS_FILEISREADONLY}
Function FileIsReadOnly(const FileName: String): Boolean;
Function FileIsReadOnly(const FileName: String): Boolean;
begin
Result := (FileGetAttr(FileName) and faReadOnly) <> 0;
end;
end;
{$endif OS_FILEISREADONLY}
{ Read String Handling functions implementation }
{$i sysstr.inc}
@ -72,7 +72,7 @@
{ OS utility code }
{$i osutil.inc}
procedure FreeAndNil(var obj);
var
temp: tobject;
@ -168,7 +168,7 @@
{$define STACKCHECK_WAS_ON}
{$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
Message : String;
{$IFDEF VIRTUALPASCAL}
@ -266,7 +266,7 @@ Procedure RaiseLastOSError;
var
ECode: Cardinal;
E : EOSError;
begin
ECode := GetLastOSError;
If (ECode<>0) then