Changeset 14342

Timestamp:

Oct 8, 2010, 9:29:42 AM (14 years ago)

Author:

Gary Byers

Message:

In x862-do-lexical-reference: look in the register map before pushing
a stack location.

File:

• trunk/source/compiler/X86/x862.lisp (modified) (1 diff)

trunk/source/compiler/X86/x862.lisp

@@ -332 +332 @@
               (! vcell-ref target target)
               (! vpush-register target))
-            (! vframe-push (memspec-frame-address-offset ea) *x862-vstack*))
+            (let* ((offset (memspec-frame-address-offset ea))
+                   (reg (x862-register-for-frame-offset offset)))
+              (if reg
+                (x862-vpush-register seg reg)
+                (! vframe-push offset *x862-vstack*))))
           (! vpush-register ea))
         (if (memory-spec-p ea)