From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 28 Nov 2018 04:47:50 +0000 (+0000)
Subject: These tests now pass on x86-64.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~156
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bf88eebb10ab5886a677b31d6224d90b11a13e4b;p=mit-scheme.git

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 07c2d7f01..888287cb6 100644
--- 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)