paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-10 19:21:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Added {$ifdef ver2_6} around stuff which is no longer used but needed for bootstrapping.

Browse Source 
git-svn-id: trunk@27038 -
This commit is contained in:
sergei 2014-03-08 23:13:10 +00:00
parent 9c54cdc85d
commit a7563fd0c8
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/compproc.inc
View File

@ -643,8 +643,10 @@ function fpc_PopObjectStack : TObject; compilerproc;
function fpc_PopSecondObjectStack : TObject; compilerproc;
Procedure fpc_ReRaise; compilerproc;
Function fpc_Catches(Objtype : TClass) : TObject; compilerproc;
{$ifdef VER2_6}
Procedure fpc_DestroyException(o : TObject); compilerproc;
function fpc_GetExceptionAddr : CodePointer; compilerproc;
{$endif VER2_6}
function fpc_safecallhandler(obj: TObject): HResult; compilerproc;
function fpc_safecallcheck(res : hresult) : hresult; compilerproc; {$ifdef CPU86} register; {$endif}
procedure fpc_doneexception; compilerproc;

2
rtl/inc/except.inc
View File

@ -340,6 +340,7 @@ begin
end;
end;
{$ifdef VER2_6}
Procedure fpc_DestroyException(o : TObject);[Public, Alias : 'FPC_DESTROYEXCEPTION']; compilerproc;
begin
{ with free we're on the really safe side }
@ -357,6 +358,7 @@ begin
else
fpc_GetExceptionAddr:=_ExceptObjectStack^.Addr;
end;
{$endif VER2_6}
Procedure SysInitExceptions;
{