Changeset 6307

Timestamp:

Apr 19, 2007, 1:50:50 PM (18 years ago)

Author:

Gary Byers

Message:

In x862-aset3, maybe push/pop the val reg if it conflicts with an
immediate temporary (we'll need all the imm temps we have on x86-64.)

File:

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

trunk/ccl/compiler/X86/x862.lisp

@@ -1735 +1735 @@
                                           new val-reg)
             (x862-pop-register seg src)))
-        (let* ((*available-backend-imm-temps* *available-backend-imm-temps*))
-          (when (and (= (hard-regspec-class val-reg) hard-reg-class-gpr)
+        (let* ((need-push-val-reg
+                (and (= (hard-regspec-class val-reg) hard-reg-class-gpr)
                      (logbitp (hard-regspec-value val-reg)
-                              *backend-imm-temps*))
-            (use-imm-temp (hard-regspec-value val-reg)))
-        
+                              *backend-imm-temps*))))
+          (when need-push-val-reg (x862-push-register seg val-reg))
           (when safe      
             (when (typep safe 'fixnum)
@@ -1767 +1766 @@
                 (let* ((v ($ x8664::arg_x)))
                   (! array-data-vector-ref v src)
+                  (when need-push-val-reg
+                    (x862-pop-register seg val-reg))
                   (x862-vset1 seg vreg xfer type-keyword v idx-reg constidx val-reg (x862-unboxed-reg-for-aset seg type-keyword val-reg safe constval) constval needs-memoization))))))))))