common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Fix foreign-stack-alignment test on SPARC.

Browse source
This commit is contained in:
Stas Boukarev 2013-11-04 16:41:59 +04:00
parent f192f80212
commit 2023abc03e
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
tests/foreign-stack-alignment.impure.lisp
View file

@ -36,7 +36,9 @@
#+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
@ -59,6 +61,7 @@
(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
@ -67,9 +70,11 @@
(with-test (:name :regular :fails-on :win32)
(assert (= *good-offset* (stack-alignment-offset *required-alignment*))))
#+alien-callbacks
(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")