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

* Win64 apparently expects records with single field of floating-point type to be passed the same way as that only field, i.e. in xmm register. Fixes tests/cg/tcalext6.pp.

Browse Source 
git-svn-id: trunk@27431 -
This commit is contained in:
sergei 2014-04-01 17:04:47 +00:00
parent db621780d5
commit 8c693a3300
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/x86_64/cpupara.pas
View File

@ -1056,6 +1056,7 @@ unit cpupara;
i, i,
varalign, varalign,
paraalign : longint; paraalign : longint;
sym: tfieldvarsym;
begin begin
paraalign:=get_para_align(p.proccalloption); paraalign:=get_para_align(p.proccalloption);
{ Register parameters are assigned from left to right } { Register parameters are assigned from left to right }
@ -1063,6 +1064,16 @@ unit cpupara;
begin begin
hp:=tparavarsym(paras[i]); hp:=tparavarsym(paras[i]);
paradef:=hp.vardef; paradef:=hp.vardef;
{ on win64, if a record has only one field and that field is a
single or double, it has to be handled like a single/double }
if (target_info.system=system_x86_64_win64) and
((paradef.typ=recorddef) {or
is_object(paradef)}) and
tabstractrecordsymtable(tabstractrecorddef(paradef).symtable).has_single_field(sym) and
(sym.vardef.typ=floatdef) and
(tfloatdef(sym.vardef).floattype in [s32real,s64real]) then
paradef:=sym.vardef;
pushaddr:=push_addr_param(hp.varspez,paradef,p.proccalloption); pushaddr:=push_addr_param(hp.varspez,paradef,p.proccalloption);
if pushaddr then if pushaddr then
begin begin