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

* Merging revisions 40394 from trunk:

Browse Source 
------------------------------------------------------------------------
    r40394 | michael | 2018-11-29 16:34:00 +0100 (Thu, 29 Nov 2018) | 1 line
    
    * Allow to retrieve argument size, patch by Silvio Clecio (bug ID 34611)
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@42416 -
This commit is contained in:
michael 2019-07-13 13:13:23 +00:00
parent 1faa9d4bcd
commit d18904d076
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;