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