Changeset 6267

Timestamp:

Apr 15, 2007, 5:53:30 PM (18 years ago)

Author:

Gary Byers

Message:

Use HARD-REGSPEC-VALUE in recent aset2/aset3 changes.

File:

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

trunk/ccl/compiler/X86/x862.lisp

@@ -1665 +1665 @@
                      (logbitp (hard-regspec-value val-reg)
                               *backend-imm-temps*))
-            (use-imm-temp val-reg))      
+            (use-imm-temp (hard-regspec-value val-reg)))
           (when safe      
             (when (typep safe 'fixnum)
@@ -1739 +1739 @@
                      (logbitp (hard-regspec-value val-reg)
                               *backend-imm-temps*))
-            (use-imm-temp val-reg))
+            (use-imm-temp (hard-regspec-value val-reg)))
         
           (when safe