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