projects
/
sbcl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f192f80
)
Fix foreign-stack-alignment test on SPARC.
author
Stas Boukarev
<stassats@gmail.com>
Mon, 4 Nov 2013 12:41:59 +0000
(16:41 +0400)
committer
Stas Boukarev
<stassats@gmail.com>
Mon, 4 Nov 2013 12:41:59 +0000
(16:41 +0400)
tests/foreign-stack-alignment.impure.lisp
patch
|
blob
|
history
diff --git
a/tests/foreign-stack-alignment.impure.lisp
b/tests/foreign-stack-alignment.impure.lisp
index
c7b2b90
..
91e9378
100644
(file)
--- a/
tests/foreign-stack-alignment.impure.lisp
+++ b/
tests/foreign-stack-alignment.impure.lisp
@@
-36,7
+36,9
@@
#+mips 8
#+(and x86 (not darwin)) 4
#+(and x86 darwin) 16
#+mips 8
#+(and x86 (not darwin)) 4
#+(and x86 darwin) 16
- #-(or x86 x86-64 mips ppc) (error "Unknown platform"))
+ #+sparc 8
+ #-(or x86 x86-64 mips ppc sparc)
+ (error "Unknown platform"))
;;;; Build the offset-tool as regular excutable, and run it with
;;;; fork/exec, so that no lisp is on the stack. This is our known-good
;;;; Build the offset-tool as regular excutable, and run it with
;;;; fork/exec, so that no lisp is on the stack. This is our known-good
@@
-59,6
+61,7
@@
(load-shared-object (truename "stack-alignment-offset.so"))
(define-alien-routine stack-alignment-offset int (alignment int))
(load-shared-object (truename "stack-alignment-offset.so"))
(define-alien-routine stack-alignment-offset int (alignment int))
+ #+alien-callbacks
(define-alien-routine trampoline int (callback (function int))))
;;;; Now get the offset by calling from lisp, first with a regular foreign function
(define-alien-routine trampoline int (callback (function int))))
;;;; Now get the offset by calling from lisp, first with a regular foreign function
@@
-67,9
+70,11
@@
(with-test (:name :regular :fails-on :win32)
(assert (= *good-offset* (stack-alignment-offset *required-alignment*))))
(with-test (:name :regular :fails-on :win32)
(assert (= *good-offset* (stack-alignment-offset *required-alignment*))))
+#+alien-callbacks
(with-test (:name :callback :fails-on :win32)
(with-test (:name :callback :fails-on :win32)
- (assert (= *good-offset* (trampoline (alien-lambda int ()
- (stack-alignment-offset *required-alignment*))))))
+ (assert (= *good-offset*
+ (trampoline (alien-lambda int ()
+ (stack-alignment-offset *required-alignment*))))))
(when (probe-file "stack-alignment-offset.so")
(delete-file "stack-alignment-offset")
(when (probe-file "stack-alignment-offset.so")
(delete-file "stack-alignment-offset")