From 8b2993c87d04b6d8bc813dc3a627083545733ddd Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 11 Jun 2013 16:17:32 +0000
Subject: [PATCH] Fix typo in i386/rulflo.scm signed zero test.
Missed these typos because although I checked for (constant 0.) and
(constant -0.) in the RTL, I didn't check whether they were being
immediately passed to OBJECT->FLOAT...
---
src/compiler/machines/i386/rulflo.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/compiler/machines/i386/rulflo.scm b/src/compiler/machines/i386/rulflo.scm
index 0a0bb59e8..5dc0ab630 100644
--- a/src/compiler/machines/i386/rulflo.scm
+++ b/src/compiler/machines/i386/rulflo.scm
@@ -816,7 +816,7 @@ USA.
(error "OBJECT->FLOAT: Not a floating-point value" fp-value))
((and (flo:= fp-value 0.0)
;; XXX Kludgey but expedient test for zero sign.
- (not (flo:negative? (flo:atan2 x -1.))))
+ (not (flo:negative? (flo:atan2 fp-value -1.))))
(let ((target (flonum-target! target)))
(LAP (FLDZ)
(FSTP (ST ,(1+ target))))))
--
2.25.1