paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 10:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed location size for s64comp

Browse Source
This commit is contained in:
peter 2004-10-05 20:55:49 +00:00
parent f5471aef6e
commit f2a75dd91f
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/x86_64/cpupara.pas
View File

@ -272,15 +272,12 @@ unit cpupara;
begin
getvalueparaloc(hp.paratype.def,loc1,loc2);
paracgsize:=def_cgsize(hp.paratype.def);
if paracgsize=OS_C64 then
paracgsize:=OS_64;
end;
hp.paraloc[side].reset;
hp.paraloc[side].size:=paracgsize;
hp.paraloc[side].Alignment:=paraalign;
{ First location }
paraloc:=hp.paraloc[side].add_location;
paraloc^.size:=paracgsize;
if (loc1=LOC_REGISTER) and
(intparareg<=high(paraintsupregs)) then
begin
@ -292,7 +289,10 @@ unit cpupara;
else
begin
paraloc^.size:=paracgsize;
subreg:=cgsize2subreg(paracgsize);
{ s64comp is pushed in an int register }
if paraloc^.size=OS_C64 then
paraloc^.size:=OS_64;
subreg:=cgsize2subreg(paraloc^.size);
end;
paraloc^.loc:=LOC_REGISTER;
paraloc^.register:=newreg(R_INTREGISTER,paraintsupregs[intparareg],subreg);
@ -312,6 +312,7 @@ unit cpupara;
else
begin
paraloc^.loc:=LOC_REFERENCE;
paraloc^.size:=paracgsize;
if side=callerside then
paraloc^.reference.index:=NR_STACK_POINTER_REG
else
@ -357,6 +358,7 @@ unit cpupara;
dec(mmparareg);
{ Overwrite with LOC_REFERENCE }
paraloc^.loc:=LOC_REFERENCE;
paraloc^.size:=paracgsize;
if side=callerside then
paraloc^.reference.index:=NR_STACK_POINTER_REG
else
@ -427,7 +429,10 @@ begin
end.
{
$Log$
Revision 1.10 2004-09-21 17:25:13 peter
Revision 1.11 2004-10-05 20:55:49 peter
* fixed location size for s64comp
Revision 1.10 2004/09/21 17:25:13 peter
* paraloc branch merged
Revision 1.9.4.1 2004/08/31 20:43:06 peter