X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fforeign.test.sh;h=2d7865f86b0bbf437ef450379a04f631006e29ff;hb=7c7e6276719b8d40fddec2070cad81064a25c8ed;hp=bd91bfe5dd3db4d8214a628adec40ab05061aa24;hpb=c3334d2307b721cfcea29e6abcd33e48487fb1ea;p=sbcl.git

diff --git a/tests/foreign.test.sh b/tests/foreign.test.sh
index bd91bfe..2d7865f 100644
--- a/tests/foreign.test.sh
+++ b/tests/foreign.test.sh
@@ -27,16 +27,24 @@ testfilestem=${TMPDIR:-/tmp}/sbcl-foreign-test-$$
 
 build_so() {
   echo building $1.so
-  if [ $(uname -p) = x86_64 ]; then
+  if [ $(uname -m) = x86_64 ]; then
     CFLAGS="$CFLAGS -fPIC"
   fi
+  if [ $(uname) = Darwin ]; then
+    SO_FLAGS="-bundle"
+  else
+    SO_FLAGS="-shared"
+  fi
   cc -c $1.c -o $1.o $CFLAGS
-  ld -shared -o $1.so $1.o
+  ld $SO_FLAGS -o $1.so $1.o
 }
     
 echo 'int summish(int x, int y) { return 1 + x + y; }' > $testfilestem.c
 echo 'int numberish = 42;' >> $testfilestem.c
 echo 'int nummish(int x) { return numberish + x; }' >> $testfilestem.c
+echo 'short negative_short() { return -1; }' >> $testfilestem.c
+echo 'int negative_int()     { return -2; }' >> $testfilestem.c
+echo 'long negative_long()   { return -3; }' >> $testfilestem.c
 build_so $testfilestem
 
 echo 'int foo = 13;' > $testfilestem-b.c
@@ -72,6 +80,10 @@ cat > $testfilestem.def.lisp <<EOF
   (define-alien-variable "foo" int)
   (define-alien-routine "bar" int)
 
+  (define-alien-routine "negative_short" short)
+  (define-alien-routine "negative_int" int)
+  (define-alien-routine "negative_long" long)
+
   ;; Test that loading an object file didn't screw up our records
   ;; of variables visible in runtime. (This was a bug until 
   ;; Nikodemus Siivola's patch in sbcl-0.8.5.50.)
@@ -86,7 +98,7 @@ cat > $testfilestem.def.lisp <<EOF
         (lambda (condition hook)
           (print (list :debugger-hook condition))
           (let ((cont (find-restart 'continue condition)))
-            (when cont 
+            (when cont
               (invoke-restart cont)))
           (print :fell-through)
           (invoke-debugger condition)))
@@ -100,6 +112,10 @@ cat > $testfilestem.test.lisp <<EOF
   (assert (= 13 numberish))
   (assert (= 14 (nummish 1)))
 
+  (assert (= -1 (negative-short)))
+  (assert (= -2 (negative-int)))
+  (assert (= -3 (negative-long)))
+
   (print :stage-1)
 
   ;; test realoading object file with new definitions