From bf88eebb10ab5886a677b31d6224d90b11a13e4b Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Wed, 28 Nov 2018 04:47:50 +0000 Subject: [PATCH] These tests now pass on x86-64. Need to teach i386, svm, and C about this now. --- tests/microcode/test-flonum-except.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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) -- 2.25.1