ソースを参照

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

git-svn-id: trunk@27038 -
sergei 11 年 前
コミット
a7563fd0c8
2 ファイル変更4 行追加0 行削除
  1. 2 0
      rtl/inc/compproc.inc
  2. 2 0
      rtl/inc/except.inc

+ 2 - 0
rtl/inc/compproc.inc

@@ -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 - 0
rtl/inc/except.inc

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