Changeset 6623

Timestamp:

May 28, 2007, 12:57:13 AM (18 years ago)

Author:

Gary Byers

Message:

SAVE-LOCAL-SYMBOLS: save "address" of specials, too.

File:

• branches/ide-1.0/ccl/compiler/PPC/ppc2.lisp (modified) (3 diffs)

branches/ide-1.0/ccl/compiler/PPC/ppc2.lisp

@@ -3728 +3728 @@
           (setq val (ppc2-dynamic-extent-form seg curstack val))))
       (if (%ilogbitp $vbitspecial bits)
-        (ppc2-dbind seg val sym)
+        (progn
+          (ppc2-dbind seg val sym)
+          (ppc2-set-var-ea seg var (ppc2-vloc-ea (- *ppc2-vstack* *ppc2-target-node-size*))))
         (let ((puntval nil))
           (flet ((ppc2-puntable-binding-p (var initform)
@@ -3785 +3787 @@
       (progn
         (ppc2-dbind seg addr (var-name var))
+        (ppc2-set-var-ea seg var (ppc2-vloc-ea (- *ppc2-vstack* *ppc2-target-node-size*)))
         t)
       (progn
@@ -3816 +3819 @@
 (defun ppc2-close-var (seg var)
   (let ((bits (nx-var-bits var)))
-    (when (and *ppc2-record-symbols* 
-         (%izerop (%ilogand (%ilogior (ash -1 $vbitspecial)
-                                      (%ilsl $vbitpunted 1)) bits)))
+    (when (and *ppc2-record-symbols*
+               (or (logbitp $vbitspecial bits)
+                   (not (logbitp $vbitpunted bits))))
       (let ((endnote (%car (%cdddr (assq var *ppc2-recorded-symbols*)))))
-        (unless endnote (error "ppc2-close-var ?"))
+        (unless endnote (error "ppc2-close-var for ~s ?" (var-name var)))
         (setf (vinsn-note-class endnote) :end-variable-scope)
         (append-dll-node (vinsn-note-label endnote) seg)))))