From 33dc8f2b1ab6cc09e57655d2ee67f13bc141d356 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 2 Oct 1991 23:05:52 +0000
Subject: [PATCH] Use CODE-TN instead of allocating a temporary in CODE, which
 is rather random, and confuses the lifetime checker.

---
 compiler/rt/print.lisp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/compiler/rt/print.lisp b/compiler/rt/print.lisp
index 41ce17395..eb3625aee 100644
--- a/compiler/rt/print.lisp
+++ b/compiler/rt/print.lisp
@@ -7,7 +7,7 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/print.lisp,v 1.1 1991/02/18 15:08:08 chiles Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/print.lisp,v 1.2 1991/10/02 23:05:52 ram Exp $
 ;;;
 ;;; This file contains temporary printing utilities and similar noise.
 ;;;
@@ -23,7 +23,6 @@
   (:save-p t)
   (:temporary (:sc any-reg :offset nl0-offset) nl0)
   (:temporary (:sc any-reg :offset lra-offset) lra)
-  (:temporary (:sc any-reg :offset code-offset) code)
   (:temporary (:scs (sap-reg)) temp)
   (:temporary (:sc control-stack :offset nfp-save-offset) nfp-save)
   (:vop-var vop)
@@ -34,7 +33,7 @@
 	(store-stack-tn cur-nfp nfp-save))
       (inst cal nsp-tn nsp-tn -16)
       (storew object nsp-tn)
-      (inst compute-lra-from-code lra code lra-label)
+      (inst compute-lra-from-code lra code-tn lra-label)
       (inst cai nl0 (make-fixup "_debug_print" :foreign))
       (inst cai temp (make-fixup "call_into_c" :foreign))
       (inst b temp)
-- 
GitLab