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

- ValueToFFIValue is no longer needed

Browse Source 
git-svn-id: trunk@42073 -
This commit is contained in:
svenbarth 2019-05-15 05:29:00 +00:00
parent 5d6a837b63
commit 45479302c1
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/libffi/src/ffi.manager.pp
View File

@ -298,14 +298,6 @@ begin
Result := True; Result := True;
end; end;
function ValueToFFIValue(constref aValue: Pointer; aKind: TTypeKind; aFlags: TParamFlags; aIsResult: Boolean): Pointer;
begin
if ArgIsIndirect(aKind, aFlags, aIsResult) then
Result := @aValue
else
Result := aValue;
end;
procedure FFIValueToValue(Source, Dest: Pointer; TypeInfo: PTypeInfo); procedure FFIValueToValue(Source, Dest: Pointer; TypeInfo: PTypeInfo);
var var
size: SizeInt; size: SizeInt;