From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 14 Dec 2018 13:42:18 +0000 (+0000)
Subject: Disable open-coding of flonum-copysign/abs/negate on i386 for now.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~35^2~21
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b88c6dce54d4b9426a19b5111abb4db87fb3db40;p=mit-scheme.git

Disable open-coding of flonum-copysign/abs/negate on i386 for now.

Requires too much work to get these to handle signalling NaN
correctly at the moment.
---

diff --git a/src/compiler/machines/i386/machin.scm b/src/compiler/machines/i386/machin.scm
index 5de18a519..17dd499dd 100644
--- a/src/compiler/machines/i386/machin.scm
+++ b/src/compiler/machines/i386/machin.scm
@@ -363,4 +363,9 @@ USA.
 		  FLONUM-IS-LESS-OR-GREATER? FLONUM-IS-UNORDERED?
 		  FLONUM-IS-NORMAL? FLONUM-IS-FINITE? FLONUM-IS-INFINITE?
 		  FLONUM-IS-NAN? FLONUM-IS-ZERO? FLONUM-IS-EQUAL?
-		  FLONUM-IS-NEGATIVE? FLONUM-COPYSIGN))
\ No newline at end of file
+		  FLONUM-IS-NEGATIVE?
+		  ;; Disabled: these require some care to handle
+		  ;; signalling NaN, which can't even be loaded onto
+		  ;; the i387 floating-point stack without raising an
+		  ;; exception.
+		  FLONUM-COPYSIGN FLONUM-NEGATE FLONUM-ABS))
\ No newline at end of file