From f343c16b5a9641a85e1c61a2c959f69e54fec117 Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Fri, 17 Oct 2003 10:06:30 +0000 Subject: [PATCH] * src/compiler/debug-dump.lisp (compute-1-debug-function): Set compiled-debug-function-tlf-number for debug < 2, too. From Dan Barlow in SBCL. --- compiler/debug-dump.lisp | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/compiler/debug-dump.lisp b/compiler/debug-dump.lisp index d0ccbf823..b665eed2f 100644 --- a/compiler/debug-dump.lisp +++ b/compiler/debug-dump.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug-dump.lisp,v 1.45 2003/10/06 12:39:58 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug-dump.lisp,v 1.46 2003/10/17 10:06:30 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -615,11 +615,13 @@ (setf (compiled-debug-function-arguments dfun) (compute-arguments fun var-locs)))) - (when (>= level 2) - (multiple-value-bind (blocks tlf-num) - (compute-debug-blocks fun var-locs) - (setf (compiled-debug-function-tlf-number dfun) tlf-num) - (setf (compiled-debug-function-blocks dfun) blocks))) + (if (>= level 2) + (multiple-value-bind (blocks tlf-num) + (compute-debug-blocks fun var-locs) + (setf (compiled-debug-function-tlf-number dfun) tlf-num) + (setf (compiled-debug-function-blocks dfun) blocks)) + (setf (compiled-debug-function-tlf-number dfun) + (find-tlf-number fun))) (if (external-entry-point-p fun) (setf (compiled-debug-function-returns dfun) :standard) -- GitLab