These tests now pass on x86-64.

Need to teach i386, svm, and C about this now.

diff --git a/tests/microcode/test-flonum-except.scm b/tests/microcode/test-flonum-except.scm
index 07c2d7f015e932b14718bd09e2f6278b6d883f5f..888287cb6dc485819cc0e1e0b7f4dd25e3f910d3 100644 (file)
--- a/tests/microcode/test-flonum-except.scm
+++ b/tests/microcode/test-flonum-except.scm
@@ -276,9 +276,10 @@ USA.
 ;; XXX sinh, cosh, tanh, asinh, acosh, atanh
 
 (let ((expect-failure
-       (if (eq? microcode-id/compiled-code-type 'x86-64)
-           #!default
-           expect-failure)))
+       (if (and (eq? microcode-id/compiled-code-type 'x86-64)
+               (compiled-procedure? flo:=))
+          #!default
+          expect-failure)))
   (define-invop-compare-test 'flo:= (applicator flo:= 0. +nan.0) expect-failure)
   (define-invop-compare-test 'flo:= (applicator flo:= +nan.0 0.) expect-failure)
   (define-invop-compare-test 'flo:= (applicator flo:= +nan.0 +nan.0) expect-failure)