Changeset 9677 for branches

Timestamp:

Jun 5, 2008, 10:20:01 PM (16 years ago)

Author:

R. Matthew Emerson

Message:

x862-natural-compare: use with-add'l-imm-reg

x862-spread-lambda-list: use temp1 for argreg on x8632

x862-ternary-builtin: use temp1 where we'd use arg_x on x8664.

File:

• branches/ia32/compiler/X86/x862.lisp (modified) (3 diffs)

branches/ia32/compiler/X86/x862.lisp

@@ -3618 +3618 @@
                 (setq cr-bit (x862-reverse-cr-bit cr-bit)))
             (^ cr-bit true-p))
-        (with-imm-target ()
-          (ireg :natural)
-            (with-imm-target 
+        (with-imm-target () (ireg :natural)
+          (with-additional-imm-reg ()
+            (with-imm-target
                 (ireg) (jreg :natural)
                 (x862-two-targeted-reg-forms seg i ireg j jreg)
-                (x862-compare-natural-registers seg vreg xfer ireg jreg cr-bit true-p)))))))
+                (x862-compare-natural-registers seg vreg xfer ireg jreg cr-bit true-p))))))))
 
 
@@ -5502 +5502 @@
            (vtotal numreq)
            (old-top *x862-top-vstack-lcell*)
-           (argreg ($ *x862-temp0*))
+           (argreg ($ (target-arch-case
+                       (:x8632 ($ x8632::temp1))
+                       (:x8664 ($ x8664::temp0)))))
            (keyvectreg (target-arch-case
                         (:x8632 ($ x8632::arg_y))
@@ -5912 +5914 @@
   (with-x86-local-vinsn-macros (seg)
     (x862-three-targeted-reg-forms seg form1 (target-arch-case
-                                              (:x8632 ($ x8632::temp0))
+                                              (:x8632 ($ x8632::temp1))
                                               (:x8664 ($ x8664::arg_x)))
                                    form2 ($ *x862-arg-y*)