From 8ef8e761a9ee30e5fdb1a1386b18006ebef1e559 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 22 Apr 1990 02:37:46 +0000 Subject: [PATCH] TNs are not longer deleted unless they are :normal, so don't complain if non :normal tns are still around andhave not reads or writes. Also in check-tn-conflicts, pass ir2-component-component-tns the component-info of component, not component itself. --- compiler/debug.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/compiler/debug.lisp b/compiler/debug.lisp index ec8771c71..2c1280e11 100644 --- a/compiler/debug.lisp +++ b/compiler/debug.lisp @@ -788,7 +788,9 @@ ;;; (defun check-tn-conflicts (component) (do-packed-tns (tn component) - (unless (or (tn-reads tn) (tn-writes tn)) + (unless (or (not (eq (tn-kind tn) :normal)) + (tn-reads tn) + (tn-writes tn)) (barf "No references to ~S." tn)) (unless (tn-sc tn) (barf "~S has no SC." tn)) @@ -797,7 +799,8 @@ (kind (tn-kind tn))) (cond ((eq kind :component) - (unless (member tn (ir2-component-component-tns component)) + (unless (member tn (ir2-component-component-tns + (component-info component))) (barf "~S not in Component-TNs for ~S." tn component))) ((eq kind :environment) (let ((env (tn-environment tn))) -- GitLab