From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 25 Aug 2019 19:03:51 +0000 (+0000)
Subject: Fix set of architectures with busted fp compare exceptions.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~66^2~2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8c42227cc988989bb2b5dba6ba1f8fc1e8634e90;p=mit-scheme.git

Fix set of architectures with busted fp compare exceptions.
---

diff --git a/tests/microcode/test-flonum-except.scm b/tests/microcode/test-flonum-except.scm
index c6d8e26f5..a68acd8ab 100644
--- a/tests/microcode/test-flonum-except.scm
+++ b/tests/microcode/test-flonum-except.scm
@@ -316,10 +316,13 @@ USA.
 ;; XXX sinh, cosh, tanh, asinh, acosh, atanh
 
 (let ((expect-failure
-       (if (and (memq microcode-id/compiled-code-type '(x86-64 i386))
+       ;; XXX This really depends on what the C compiler does: GCC
+       ;; and Clang have started issuing the correct ordered
+       ;; comparison instructions.
+       (if (and (memq microcode-id/compiled-code-type '(c svm))
 		(compiled-procedure? flo:=))
-	   #!default
-	   expect-failure)))
+	   expect-failure
+	   #!default)))
   (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)