X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fwin32-foreign-stack-unwind.impure.lisp;h=ba5727fc2335cfb014c085ee3f426a198fbfc8de;hb=885a956ae2044a0c5c4a2b55db8e32b7f6b48d05;hp=40a63623b3353bde61ce8be50bb8ed5982fc0f1b;hpb=f0da2f63aa0b4e6d4dbf884854a4bf2dfdd01fc0;p=sbcl.git

diff --git a/tests/win32-foreign-stack-unwind.impure.lisp b/tests/win32-foreign-stack-unwind.impure.lisp
index 40a6362..ba5727f 100755
--- a/tests/win32-foreign-stack-unwind.impure.lisp
+++ b/tests/win32-foreign-stack-unwind.impure.lisp
@@ -12,6 +12,7 @@
 ;;;; more information.
 
 #-win32 (exit :code 104) ;; This is extremely win32-specific.
+#-x86   (exit :code 104) ;; And our AMD64 backend does not aim to support it.
 
 (use-package :sb-alien)
 
@@ -21,8 +22,7 @@
 
 ;;; XXX XXX this should change to use run-compiler.sh, now that we have it
 (defun run-compiler ()
-  (let ((proc (run-program "gcc" '("win32-stack-unwind.c"
-                                   "-mno-cygwin" "-shared"
+  (let ((proc (run-program "gcc" '("win32-stack-unwind.c" "-shared"
                                    "-o" "win32-stack-unwind.dll")
                            :search t)))
     (unless (zerop (process-exit-code proc))