From 8b2993c87d04b6d8bc813dc3a627083545733ddd Mon Sep 17 00:00:00 2001 From: Taylor R Campbell 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