paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-21 06:53:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed passing of record parameters on win64

Browse Source 
git-svn-id: trunk@4583 -
This commit is contained in:
florian 2006-09-09 16:33:15 +00:00
parent f5c45419d6
commit 24ae32c855
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/x86_64/cpupara.pas
View File

@ -98,8 +98,11 @@ unit cpupara;
begin
if p.size<=16 then
begin
{$warning TODO location depends on the fields}
loc1:=LOC_REFERENCE;
if (target_info.system=system_x86_64_win64) and
(p.size<=8) then
loc1:=LOC_REGISTER
else
loc1:=LOC_REFERENCE;
end
else
loc1:=LOC_REFERENCE;
@ -107,13 +110,23 @@ unit cpupara;
objectdef:
begin
if is_object(p) then
loc1:=LOC_REFERENCE
begin
if (target_info.system=system_x86_64_win64) and
(p.size<=8) then
loc1:=LOC_REGISTER
else
loc1:=LOC_REFERENCE;
end
else
loc1:=LOC_REGISTER;
end;
arraydef:
begin
loc1:=LOC_REFERENCE;
if (target_info.system=system_x86_64_win64) and
(p.size<=8) then
loc1:=LOC_REGISTER
else
loc1:=LOC_REFERENCE;
end;
variantdef:
loc1:=LOC_REFERENCE;