X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fc-call.lisp;h=8f5820f4d43cd450aa6890238a8641a78a606e08;hb=70769503c505c22bddef3bc7885b91b9d503607f;hp=7426c9301b326bcf8b1461f3e667e2e348e47aec;hpb=52cfe54802db8736f1f4e2b67764c43bba9b78b3;p=sbcl.git

diff --git a/src/compiler/ppc/c-call.lisp b/src/compiler/ppc/c-call.lisp
index 7426c93..8f5820f 100644
--- a/src/compiler/ppc/c-call.lisp
+++ b/src/compiler/ppc/c-call.lisp
@@ -459,8 +459,11 @@
                  ;; FIXME: magic constant, and probably n-args-bytes
                  (args-size (* 3 n-word-bytes))
                  ;; FIXME: n-frame-bytes?
-                 (frame-size
-                  (+ n-foreign-linkage-area-bytes n-return-area-bytes args-size)))
+                 (frame-size (logandc2 (+ n-foreign-linkage-area-bytes
+                                          n-return-area-bytes
+                                          args-size
+                                          +stack-alignment-bytes+)
+                                       +stack-alignment-bytes+)))
             (destructuring-bind (sp r0 arg1 arg2 arg3 arg4)
                 (mapcar #'make-gpr '(1 0 3 4 5 6))
               (flet ((load-address-into (reg addr)