From 9763d630a3d0bfe0a323a4dc52785aca4d1a69bc Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 13 Nov 1990 22:44:00 +0000 Subject: [PATCH] Changed variable dumping to realize that a TN can have no refs even when its leaf has refs (due to IR2 optimization.) --- compiler/debug-dump.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/compiler/debug-dump.lisp b/compiler/debug-dump.lisp index 957774dd3..5ad007303 100644 --- a/compiler/debug-dump.lisp +++ b/compiler/debug-dump.lisp @@ -399,7 +399,7 @@ (collect ((vars)) (labels ((frob-leaf (leaf tn gensym-p) (let ((name (leaf-name leaf))) - (when (and name (leaf-refs leaf) + (when (and name (leaf-refs leaf) (tn-offset tn) (or gensym-p (symbol-package name))) (vars (cons leaf tn))))) (frob-lambda (x gensym-p) @@ -449,7 +449,8 @@ (let ((res (gethash var var-locs))) (cond (res) (t - (assert (null (leaf-refs var))) + (assert (or (null (leaf-refs var)) + (not (tn-offset (leaf-info var))))) 'deleted)))) -- GitLab