- removed FPC 2.6.x bootstrapping code

git-svn-id: branches/debug_eh@40407 -

rtl/inc/compproc.inc

@@ -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;

rtl/inc/except.inc

@@ -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