Changeset 11239 for trunk

Timestamp:

05/09/06 13:12:23 (3 years ago)

Author:

rtoy

Message:

More updates for disassemble of flet/labels functions. If the
function is :external, don't return from the loop if it's an
flet/labels function. That way, it gets disassembled.

Files:

• trunk/src/compiler/disassem.lisp (modified) (1 diff)

trunk/src/compiler/disassem.lisp

@@ -3051 +3051 @@
                         (setf first-block-seen-p t))
                        ((eq kind :external)
-                        (when first-block-seen-p
-                          (return)))
+                        (let* ((name (c::compiled-debug-function-name fmap-entry))
+                               (flet-p (and (list name)
+                                            (member (car name) '(flet labels)))))
+                          ;; Don't return from loop if this external
+                          ;; entry is an flet or labels entry.  We
+                          ;; want to continue the disassembly, if
+                          ;; enabled.
+                          (when (and first-block-seen-p
+                                     (if *disassemble-flets*
+                                         (not flet-p)
+                                         t))
+                            (return))))
                        ((eq kind nil)
                         ;; FIXME: Why do we return when we have a nil