Changeset 4874

Timestamp:

Jul 11, 2006, 1:23:45 PM (18 years ago)

Author:

Gary Byers

Message:

Destination and 1st source arg overlap (2-address instructions) in natural logical,
arithmetic operations.

File:

• trunk/ccl/compiler/X86/x862.lisp (modified) (4 diffs)

trunk/ccl/compiler/X86/x862.lisp

@@ -8010 +8010 @@
               (with-imm-target (xreg) (yreg :natural)
                 (x862-two-targeted-reg-forms seg x xreg y yreg)
-                (! %natural+ xreg xreg yreg))
+                (! %natural+ xreg yreg))
               (<- xreg))
             (let* ((other (if u31x y x)))
               (with-imm-target () (other-reg :natural)
                 (x862-one-targeted-reg-form seg other other-reg)
-                (! %natural+-c other-reg other-reg (or u31x u31y))
+                (! %natural+-c  other-reg (or u31x u31y))
                 (<- other-reg))))
           (^))))))
@@ -8058 +8058 @@
               (with-imm-target (xreg) (yreg :natural)
                 (x862-two-targeted-reg-forms seg x xreg y yreg)
-                (! %natural-logior xreg xreg yreg))
+                (! %natural-logior xreg yreg))
               (<- xreg))
             (let* ((other (if u31x y x)))
               (with-imm-target () (other-reg :natural)
                 (x862-one-targeted-reg-form seg other other-reg)
-                (! %natural-logior-c other-reg other-reg constant)
+                (! %natural-logior-c other-reg constant)
                 (<- other-reg))))
           (^))))))
@@ -8083 +8083 @@
               (with-imm-target (xreg) (yreg :natural)
                 (x862-two-targeted-reg-forms seg x xreg y yreg)
-                (! %natural-logxor xreg xreg yreg))
+                (! %natural-logxor xreg yreg))
               (<- xreg))
             (let* ((other (if u32x y x)))
               (with-imm-target () (other-reg :natural)
                 (x862-one-targeted-reg-form seg other other-reg)
-                (! %natural-logxor-c other-reg other-reg constant)
+                (! %natural-logxor-c other-reg constant)
                 (<- other-reg))))
           (^))))))
@@ -8108 +8108 @@
               (with-imm-target (xreg) (yreg :natural)
                 (x862-two-targeted-reg-forms seg x xreg y yreg)
-                (! %natural-logand xreg xreg yreg))
+                (! %natural-logand xreg yreg))
               (<- xreg))
             (let* ((other (if u31x y x)))
               (with-imm-target () (other-reg :natural)
                 (x862-one-targeted-reg-form seg other other-reg)
-                (! %natural-logand-c other-reg other-reg constant)
+                (! %natural-logand-c  other-reg constant)
                 (<- other-reg))))
           (^))))))