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

* Defined ExceptionClass and ExceptObjProc for Delphi compatibility (bug 8459)

Browse Source 
git-svn-id: trunk@7850 -
This commit is contained in:
michael 2007-06-29 20:16:44 +00:00
parent e002e6b9f4
commit 07fdede9b8
2 changed files with 5 additions and 1 deletions
rtl/objpas
objpas.pp
sysutils
sysutils.inc

5
rtl/objpas/objpas.pp
View File

@ -40,6 +40,10 @@ unit objpas;
PPointerArray = ^PointerArray;
TBoundArray = array of integer;
Var
ExceptionClass: TClass; { Exception base class (must actually be Exception, defined in sysutils ) }
ExceptObjProc: Pointer; { Used to convert OS exceptions to exceptions in Delphi. Unused in FPC}
{****************************************************************************
Compatibility routines.
****************************************************************************}
@ -94,7 +98,6 @@ unit objpas;
TResStringRec=AnsiString;
Function LoadResString(p:PResStringRec):AnsiString;
implementation
{****************************************************************************

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

@ -358,6 +358,7 @@ Procedure InitExceptions;
(e.g: SIGSEGV -> ESegFault or so.)
}
begin
ExceptionClass := Exception;
ExceptProc:=@CatchUnhandledException;
// Create objects that may have problems when there is no memory.
OutOfMemory:=EOutOfMemory.Create(SOutOfMemory);