X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fforeign-stack-alignment.impure.lisp;h=4bc683c907d6fef69c9cc00c52759fc0c32816c8;hb=d63d80e637e9058ff5db7a10c267796ff7970ba1;hp=81a00f5ab5d9aac3db2bcaa22926bb596aa0fff7;hpb=b66385e2031fc2cac17dd129df0af400beb48a22;p=sbcl.git diff --git a/tests/foreign-stack-alignment.impure.lisp b/tests/foreign-stack-alignment.impure.lisp index 81a00f5..4bc683c 100644 --- a/tests/foreign-stack-alignment.impure.lisp +++ b/tests/foreign-stack-alignment.impure.lisp @@ -32,10 +32,11 @@ (defvar *required-alignment* #+(and ppc darwin) 16 - #+(and ppc linux) 16 + #+(and ppc linux) 8 #+x86-64 16 #+mips 8 - #+x86 4 + #+(and x86 (not darwin)) 4 + #+(and x86 darwin) 16 #-(or x86 x86-64 mips (and ppc (or darwin linux))) (error "Unknown platform")) ;;;; Build the offset-tool as regular excutable, and run it with @@ -43,7 +44,8 @@ ;;;; number. (run "cc" - #+(and linux (or x86-64 ppc)) "-fPIC" + #+(and (or linux freebsd) (or x86-64 ppc mips)) "-fPIC" + #+(and x86-64 darwin) "-arch" #+(and x86-64 darwin) "x86_64" "stack-alignment-offset.c" "-o" "stack-alignment-offset") (defparameter *good-offset* @@ -53,11 +55,12 @@ ;;;; Build the tool again, this time as a shared object, and load it (run "cc" "stack-alignment-offset.c" - #+(and linux (or x86-64 ppc)) "-fPIC" + #+(and (not darwin) (or x86-64 ppc mips)) "-fPIC" + #+(and x86-64 darwin) "-arch" #+(and x86-64 darwin) "x86_64" #+darwin "-bundle" #-darwin "-shared" "-o" "stack-alignment-offset.so") -(load-shared-object "stack-alignment-offset.so") +(load-shared-object (truename "stack-alignment-offset.so")) (define-alien-routine stack-alignment-offset int (alignment int)) (define-alien-routine trampoline int (callback (function int))) @@ -72,4 +75,7 @@ (assert (= *good-offset* (trampoline (alien-lambda int () (stack-alignment-offset *required-alignment*)))))) +(delete-file "stack-alignment-offset") +(delete-file "stack-alignment-offset.so") + ;;;; success!