paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 10:20:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed FPC 2.6.x bootstrapping code

Browse Source 
git-svn-id: branches/debug_eh@40407 -
This commit is contained in:
Jonas Maebe 2018-11-29 21:31:05 +00:00
parent 01ddde2283
commit 4e73919676
2 changed files with 0 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/compproc.inc
View File

@ -712,10 +712,6 @@ 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;

20
rtl/inc/except.inc
View File

@ -317,26 +317,6 @@ 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 }
o.Free;
end;
{ TODO: no longer used, clean up }
function fpc_GetExceptionAddr : CodePointer;[Public, Alias : 'FPC_GETEXCEPTIONADDR']; compilerproc;
var
_ExceptObjectStack : PExceptObject;
begin
_ExceptObjectStack:=ExceptObjectStack;
if _ExceptObjectStack=nil then
fpc_GetExceptionAddr:=nil
else
fpc_GetExceptionAddr:=_ExceptObjectStack^.Addr;
end;
{$endif VER2_6}
Procedure SysInitExceptions;
{
Initialize exceptionsupport