Bladeren bron

Merged revisions 3141 via svnmerge from
svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
r3141 | jonas | 2006-04-04 14:44:19 +0200 (Tue, 04 Apr 2006) | 3 lines

* fixed offset calculation of first parameter on the stack if there
were any preceding parameters < 4 bytes

........

git-svn-id: branches/fixes_2_0@3157 -

Jonas Maebe 19 jaren geleden
bovenliggende
commit
866020d9f5
1 gewijzigde bestanden met toevoegingen van 1 en 1 verwijderingen
  1. 1 1
      compiler/powerpc/cpupara.pas

+ 1 - 1
compiler/powerpc/cpupara.pas

@@ -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