[Openmcl-cvs-notifications] r14780 - /trunk/source/compiler/nx2.lisp

[gb at clozure.com]

Author: gb
Date: Tue May  3 00:03:44 2011
New Revision: 14780

Log:
In ACODE-OPTIMIZE-SUB2, actually generate some code for the single-float ca=
se
even if num1 isn't 0.  (cut-and-paste error from earlier today.)

Fixes ticket:856.

Modified:
    trunk/source/compiler/nx2.lisp

Modified: trunk/source/compiler/nx2.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/nx2.lisp (original)
+++ trunk/source/compiler/nx2.lisp Tue May  3 00:03:44 2011
@@ -580,7 +580,7 @@
         (if (and (acode-form-typep num1 'double-float trust-decls)
                  (acode-form-typep num2 'double-float trust-decls))
           (progn
-              (backend-use-operator (%nx1-operator %double-float--2)
+            (backend-use-operator (%nx1-operator %double-float--2)
                                   seg
                                   vreg
                                   xfer
@@ -590,14 +590,12 @@
           (if (and (acode-form-typep num1 'single-float trust-decls)
                    (acode-form-typep num2 'single-float trust-decls))
             (progn
-              (if (eql (acode-constant-p num1) 0.0s0)
-                (backend-use-operator (%nx1-operator %short-float--2)
-                                      seg
-                                      vreg
-                                      xfer
-                                      num1
-                                      num2)
-)
+              (backend-use-operator (%nx1-operator %short-float--2)
+                                    seg
+                                    vreg
+                                    xfer
+                                    num1
+                                    num2)
               t)
             (if (and (acode-form-typep num1 *nx-target-fixnum-type* trust-=
decls)
                      (acode-form-typep num2 *nx-target-fixnum-type* trust-=
decls))