瀏覽代碼

* move CallHandler() abstract method out of Windows ifdef so that the include works for non-Windows as well

git-svn-id: trunk@40747 -
svenbarth 6 年之前
父節點
當前提交
5d1edc8ca2
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/rtl-objpas/src/x86_64/invoke.inc

+ 1 - 1
packages/rtl-objpas/src/x86_64/invoke.inc

@@ -394,11 +394,11 @@ type
   private
     function Handler(aStack, aFP: Pointer): PtrUInt;
   protected
-    procedure CallHandler(constref aArgs: specialize TArray<Pointer>; aResult: Pointer; aContext: Pointer); virtual; abstract;
     procedure CreateCallback;
     procedure CreateArgInfos;
     function GetCodeAddress: CodePointer; override;
   {$endif}
+    procedure CallHandler(constref aArgs: specialize TArray<Pointer>; aResult: Pointer; aContext: Pointer); virtual; abstract;
   public
     constructor Create(aContext: Pointer; aCallConv: TCallConv; constref aArgs: array of TFunctionCallParameterInfo; aResultType: PTypeInfo; aFlags: TFunctionCallFlags);
     destructor Destroy; override;