From 8c42227cc988989bb2b5dba6ba1f8fc1e8634e90 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 25 Aug 2019 19:03:51 +0000 Subject: [PATCH] Fix set of architectures with busted fp compare exceptions. --- tests/microcode/test-flonum-except.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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) -- 2.25.1