paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 19:48:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

The ffi_closure_alloc return fCode is real do

Browse Source
This commit is contained in:
Jinyang He 2024-07-16 14:03:53 +08:00
parent 061c8b5f25
commit 8032b65442
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/libffi/src/ffi.manager.pp
View File

@ -796,7 +796,7 @@ end;
function TFFIFunctionCallback.GetCodeAddress: CodePointer; function TFFIFunctionCallback.GetCodeAddress: CodePointer;
begin begin
Result := fData; Result := fCode;
end; end;
constructor TFFIFunctionCallback.Create(aContext: Pointer; aCallConv: TCallConv; constref aArgs: array of TFunctionCallParameterInfo; aResultType: PTypeInfo; aFlags: TFunctionCallFlags); constructor TFFIFunctionCallback.Create(aContext: Pointer; aCallConv: TCallConv; constref aArgs: array of TFunctionCallParameterInfo; aResultType: PTypeInfo; aFlags: TFunctionCallFlags);