paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 12:47:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed offset calculation of first parameter on the stack if there

Browse Source 
were any preceding parameters < 4 bytes

git-svn-id: trunk@3141 -
This commit is contained in:
Jonas Maebe 2006-04-04 12:44:19 +00:00
parent e8df9990e1
commit 385815beff
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/powerpc/cpupara.pas
View File

@ -464,7 +464,7 @@ unit cpupara;
inc(nextintreg); inc(nextintreg);
dec(paralen,tcgsize2size[paraloc^.size]); dec(paralen,tcgsize2size[paraloc^.size]);
if target_info.abi=abi_powerpc_aix then if target_info.abi=abi_powerpc_aix then
inc(stack_offset,tcgsize2size[paraloc^.size]); inc(stack_offset,align(tcgsize2size[paraloc^.size],4));
end end
else if (loc = LOC_FPUREGISTER) and else if (loc = LOC_FPUREGISTER) and
(nextfloatreg <= maxfpureg) then (nextfloatreg <= maxfpureg) then