X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fforeign-stack-alignment.impure.lisp;h=4bc683c907d6fef69c9cc00c52759fc0c32816c8;hb=fd79e33e6b6dacdc52cf6668a5bb7adf75aad6c1;hp=cdf88447bc9664ceeed53de38f6cf83e42434cae;hpb=9a0a0d199e9fbecd1b5acd65293af5132b6825ac;p=sbcl.git diff --git a/tests/foreign-stack-alignment.impure.lisp b/tests/foreign-stack-alignment.impure.lisp index cdf8844..4bc683c 100644 --- a/tests/foreign-stack-alignment.impure.lisp +++ b/tests/foreign-stack-alignment.impure.lisp @@ -55,12 +55,12 @@ ;;;; Build the tool again, this time as a shared object, and load it (run "cc" "stack-alignment-offset.c" - #+(and (or linux freebsd) (or x86-64 ppc mips)) "-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)))