paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 11:13:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@40747 -
This commit is contained in:
svenbarth 2019-01-02 21:58:50 +00:00
parent 2ba239ea6d
commit 5d1edc8ca2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/rtl-objpas/src/x86_64/invoke.inc
View File

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