[Openmcl-cvs-notifications] r15088 - /trunk/source/compiler/ARM/arm2.lisp

[gb at clozure.com]

Author: gb
Date: Tue Nov 22 21:28:15 2011
New Revision: 15088

Log:
In ARM2-%ILOGXOR2, if vreg isn't a node reg we need to do the logxor to tar=
get, not directly
to vreg.

Modified:
    trunk/source/compiler/ARM/arm2.lisp

Modified: trunk/source/compiler/ARM/arm2.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/ARM/arm2.lisp (original)
+++ trunk/source/compiler/ARM/arm2.lisp Tue Nov 22 21:28:15 2011
@@ -5976,7 +5976,7 @@
             (ensuring-node-target (target vreg)
               (! logxor-immediate target other-reg (logand unboxed-fixval =
#xffffffff)))))
         (multiple-value-bind (r1 r2) (arm2-two-untargeted-reg-forms seg fo=
rm1 arm::arg_y form2 arm::arg_z)
-          (if vreg (ensuring-node-target (target vreg) (! %logxor2 vreg r1=
 r2)))))
+          (if vreg (ensuring-node-target (target vreg) (! %logxor2 target =
r1 r2)))))
       (^)))))
 =

 (defarm2 arm2-%ineg %ineg (seg vreg xfer n)