projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.7.28:
[sbcl.git]
/
src
/
compiler
/
ppc
/
c-call.lisp
diff --git
a/src/compiler/ppc/c-call.lisp
b/src/compiler/ppc/c-call.lisp
index
7426c93
..
8f5820f
100644
(file)
--- 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?
;; 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)
(destructuring-bind (sp r0 arg1 arg2 arg3 arg4)
(mapcar #'make-gpr '(1 0 3 4 5 6))
(flet ((load-address-into (reg addr)