Changeset 14343

Timestamp:

Oct 8, 2010, 11:06:37 AM (14 years ago)

Author:

Gary Byers

Message:

In DO-LEXICAL-REFERENCE: if we push a register, do so without
updating the compiler's notion of stack depth (the caller does that.)

File:

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

trunk/source/compiler/X86/x862.lisp

@@ -335 +335 @@
                    (reg (x862-register-for-frame-offset offset)))
               (if reg
-                (x862-vpush-register seg reg)
+                (progn
+                  (! vpush-register reg)
+                  (x862-regmap-note-store reg *x862-vstack*))
                 (! vframe-push offset *x862-vstack*))))
           (! vpush-register ea))