Changeset 12116 for trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Timestamp:

08/24/09 19:21:13 (14 years ago)

Author:

ehuelsmann

Message:

Convert LABELS BLOCK-NODEs to LABELS-NODEs.

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (4 diffs)

trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

@@ -4971 +4971 @@
 (defknown p2-labels-node (t t t) t)
 (defun p2-labels-node (block target representation)
-  (let* ((form (block-form block))
+  (let* ((form (labels-form block))
          (*local-functions* *local-functions*)
          (*visible-variables* *visible-variables*)
@@ -4986 +4986 @@
     (dolist (local-function local-functions)
       (p2-labels-process-compiland local-function))
-    (dolist (special (block-free-specials block))
+    (dolist (special (labels-free-specials block))
       (push special *visible-variables*))
-    (compile-progn-body body target representation)))
+    (let ((*blocks* (cons block *blocks*)))
+      (compile-progn-body body target representation))))
 
 (defun p2-lambda (compiland target)
@@ -7915 +7916 @@
                    ((eq name 'LET)
                     (p2-let/let*-node form target representation))
-                   ((eq name 'LABELS)
-                    (p2-labels-node form target representation))
-                   ((eq name 'SETF) ;; SETF functions create
+;;                   ((eq name 'LABELS)
+;;                    (p2-labels-node form target representation))
+;;                   ((eq name 'SETF) ;; SETF functions create
                     ;; consp block names, if we're unlucky
-                    (p2-block-node form target representation))
+;;                    (p2-block-node form target representation))
                    (t
                     (print name)
@@ -7937 +7938 @@
            ((flet-node-p form)
             (p2-flet-node form target representation))
+           ((labels-node-p form)
+            (p2-labels-node form target representation))
            ((locally-node-p form)
             (p2-locally-node form target representation))