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

* Allow to retrieve argument size, patch by Silvio Clecio (bug ID 34611)

Browse Source 
git-svn-id: trunk@40394 -
This commit is contained in:
michael 2018-11-29 15:34:00 +00:00
parent 818624559d
commit 090141a69c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/rtl-objpas/src/inc/rtti.pp
View File

@ -437,6 +437,7 @@ type
TFunctionCallParameter = record
ValueRef: Pointer;
ValueSize: SizeInt;
Info: TFunctionCallParameterInfo;
end;
TFunctionCallParameterArray = specialize TArray<TFunctionCallParameter>;
@ -812,6 +813,7 @@ begin
SetLength(funcargs, Length(aArgs));
for i := Low(aArgs) to High(aArgs) do begin
funcargs[i - Low(aArgs) + Low(funcargs)].ValueRef := aArgs[i].GetReferenceToRawData;
funcargs[i - Low(aArgs) + Low(funcargs)].ValueSize := aArgs[i].DataSize;
funcargs[i - Low(aArgs) + Low(funcargs)].Info.ParamType := aArgs[i].TypeInfo;
funcargs[i - Low(aArgs) + Low(funcargs)].Info.ParamFlags := [];
funcargs[i - Low(aArgs) + Low(funcargs)].Info.ParaLocs := Nil;