Skip to content
Snippets Groups Projects
Commit 9564b548 authored by ram's avatar ram
Browse files

Added support for TN-COST and TN-ENVIRONMENT. Deleted destruction

of save TNs, since it is too much bother to figure out how to get
it right with pre-packed save TNs.
parent 15049ca2
No related branches found
No related tags found
No related merge requests found
......@@ -227,7 +227,9 @@
(setf (tn-global-conflicts structure) nil)
(setf (tn-current-conflict structure) nil)
(setf (tn-save-tn structure) nil)
(setf (tn-offset structure) nil))
(setf (tn-offset structure) nil)
(setf (tn-environment structure) nil)
(setf (tn-cost structure) 0))
((setf (tn-next structure) nil)
(setf (tn-number structure) number)
(setf (tn-kind structure) kind)
......@@ -270,9 +272,6 @@
(macrolet ((blast (slot)
`(progn
(zap-in (tn (,slot 2comp) tn-next)
(let ((stn (tn-save-tn tn)))
(when stn
(unmake-tn stn)))
(unmake-tn tn))
(setf (,slot 2comp) nil))))
(blast ir2-component-normal-tns)
......
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