From 077179097c3932b0fc27ef51fd30f02e4e314ca3 Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Wed, 25 Jan 2017 22:25:35 +0300 Subject: [PATCH] Compute debug-blocks for toplevel components. --- src/compiler/debug-dump.lisp | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/src/compiler/debug-dump.lisp b/src/compiler/debug-dump.lisp index 29b6eabaa..4bbcf9b43 100644 --- a/src/compiler/debug-dump.lisp +++ b/src/compiler/debug-dump.lisp @@ -609,10 +609,8 @@ (level (cond #!+sb-dyncount (*collect-dynamic-statistics* (max actual-level 2)) - (actual-level))) - (toplevel-p (eq :toplevel (compiled-debug-fun-kind dfun)))) - (cond (toplevel-p) - ((and (zerop level) + (actual-level)))) + (cond ((and (zerop level) (let ((od (lambda-optional-dispatch fun))) (or (not od) (not (eq (optional-dispatch-main-entry od) fun))))) @@ -625,7 +623,7 @@ (setf (compiled-debug-fun-arguments dfun) (compute-args fun var-locs)))) - (if (and (>= level 1) (not toplevel-p)) + (if (>= level 1) (multiple-value-bind (blocks tlf-num form-number) (compute-debug-blocks fun var-locs) (setf (compiled-debug-fun-blocks dfun) blocks -- 2.11.4.GIT