From 9564b5483875d1993b9f9cb40ca57dc28056fc20 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 16 Aug 1990 16:09:01 +0000
Subject: [PATCH] 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.

---
 compiler/alloc.lisp | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/compiler/alloc.lisp b/compiler/alloc.lisp
index 1fa619d1a..74941bda6 100644
--- a/compiler/alloc.lisp
+++ b/compiler/alloc.lisp
@@ -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)
-- 
GitLab