Changeset 14774

Timestamp:

May 2, 2011, 1:21:01 PM (14 years ago)

Author:

Gary Byers

Message:

Back out of r14758, too.

File:

• trunk/source/compiler/nx2.lisp (modified) (4 diffs)

trunk/source/compiler/nx2.lisp

@@ -581 +581 @@
                  (acode-form-typep num2 'double-float trust-decls))
           (progn
-            (if (eql (acode-constant-p num1) 0.0d0)
-              (backend-use-operator (%nx1-operator %double-float-negate) seg vreg xfer num2)
               (backend-use-operator (%nx1-operator %double-float--2)
                                   seg
@@ -588 +586 @@
                                   xfer
                                   num1
-                                  num2))
+                                  num2)
             t)
           (if (and (acode-form-typep num1 'single-float trust-decls)
@@ -594 +592 @@
             (progn
               (if (eql (acode-constant-p num1) 0.0s0)
-                (backend-use-operator (%nx1-operator %single-float-negate) seg vreg xfer num2)
                 (backend-use-operator (%nx1-operator %short-float--2)
                                       seg
@@ -600 +597 @@
                                       xfer
                                       num1
-                                      num2))
+                                      num2)
+)
               t)
             (if (and (acode-form-typep num1 *nx-target-fixnum-type* trust-decls)