Skip to content
Snippets Groups Projects
Commit 8ef8e761 authored by wlott's avatar wlott
Browse files

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.
parent 3c1c5311
No related branches found
No related tags found
No related merge requests found
......@@ -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)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment