Changeset 6624

Timestamp:

May 29, 2007, 5:33:11 AM (18 years ago)

Author:

Gary Byers

Message:

Record special address in LET, too.

File:

• branches/ide-1.0/ccl/compiler/X86/x862.lisp (modified) (1 diff)

branches/ide-1.0/ccl/compiler/X86/x862.lisp

@@ -7561 +7561 @@
         (when (setq val (pop vals))
           (if (%ilogbitp $vbitspecial (nx-var-bits var))
-            (x862-dbind seg (car val) (var-name var))
+            (progn
+              (x862-dbind seg (car val) (var-name var))
+              (x862-set-var-ea seg var (x862-vloc-ea (- *x862-vstack* *x862-target-node-size*)))
+              )
             (x862-seq-bind-var seg var (car val)))))
       (x862-undo-body seg vreg xfer body old-stack)