From 385815beff66a032429b1e18cf4838a24ccf9b4b Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 4 Apr 2006 12:44:19 +0000
Subject: [PATCH]   * fixed offset calculation of first parameter on the stack
 if there     were any preceding parameters < 4 bytes

git-svn-id: trunk@3141 -
---
 compiler/powerpc/cpupara.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/powerpc/cpupara.pas b/compiler/powerpc/cpupara.pas
index 7582db57f9..55109d3c59 100644
--- a/compiler/powerpc/cpupara.pas
+++ b/compiler/powerpc/cpupara.pas
@@ -464,7 +464,7 @@ unit cpupara;
                       inc(nextintreg);
                       dec(paralen,tcgsize2size[paraloc^.size]);
                       if target_info.abi=abi_powerpc_aix then
-                        inc(stack_offset,tcgsize2size[paraloc^.size]);
+                        inc(stack_offset,align(tcgsize2size[paraloc^.size],4));
                     end
                   else if (loc = LOC_FPUREGISTER) and
                           (nextfloatreg <= maxfpureg) then