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

* check for push_addr

Browse Source
This commit is contained in:
peter 2003-11-11 21:11:23 +00:00
parent 765b1b51b6
commit 50f8604526
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/i386/cpupara.pas
View File

@ -351,6 +351,7 @@ unit cpupara;
hp : tparaitem;
paraloc : tparalocation;
subreg : tsubregister;
pushaddr,
is_64bit : boolean;
l,parareg,
varalign,
@ -360,10 +361,12 @@ unit cpupara;
parareg:=0;
parasize:=0;
paraalign:=get_para_align(p.proccalloption);
{ Register parameters are assigned from left to right }
hp:=tparaitem(p.para.first);
while assigned(hp) do
begin
if push_addr_param(hp.paratyp,hp.paratype.def,p.proccalloption) then
pushaddr:=push_addr_param(hp.paratyp,hp.paratype.def,p.proccalloption);
if pushaddr then
paraloc.size:=OS_ADDR
else
paraloc.size:=def_cgsize(hp.paratype.def);
@ -382,7 +385,8 @@ unit cpupara;
if (parareg<=high(parasupregs)) and
not(
is_64bit or
(hp.paratype.def.deftype in [floatdef,recorddef,arraydef])
((hp.paratype.def.deftype in [floatdef,recorddef,arraydef]) and
(not pushaddr))
) then
begin
paraloc.loc:=LOC_REGISTER;
@ -446,7 +450,10 @@ begin
end.
{
$Log$
Revision 1.42 2003-10-19 01:34:30 florian
Revision 1.43 2003-11-11 21:11:23 peter
* check for push_addr
Revision 1.42 2003/10/19 01:34:30 florian
* some ppc stuff fixed
* memory leak fixed