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

* in the Win64 ABI all const record parameters are passed by reference

Browse Source
This commit is contained in:
Sven/Sarah Barth 2024-11-04 23:06:01 +01:00
parent 8498eacdeb
commit d9ec917586
1 changed files with 1 additions and 1 deletions

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

@ -173,7 +173,7 @@ begin
else
val := PtrUInt(aArgs[i].ValueRef);
tkRecord:
if td^.RecSize in [1, 2, 4, 8] then
if (td^.RecSize in [1, 2, 4, 8]) and not (pfConst in aArgs[i].Info.ParamFlags) then
val := PPtrUInt(aArgs[i].ValueRef)^
else
val := PtrUInt(aArgs[i].ValueRef);