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