Skip to content
Snippets Groups Projects
Commit 33dc8f2b authored by ram's avatar ram
Browse files

Use CODE-TN instead of allocating a temporary in CODE, which is rather random,

and confuses the lifetime checker.
parent 06c38186
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU) ;;; 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. ;;; This file contains temporary printing utilities and similar noise.
;;; ;;;
...@@ -23,7 +23,6 @@ ...@@ -23,7 +23,6 @@
(:save-p t) (:save-p t)
(:temporary (:sc any-reg :offset nl0-offset) nl0) (:temporary (:sc any-reg :offset nl0-offset) nl0)
(:temporary (:sc any-reg :offset lra-offset) lra) (:temporary (:sc any-reg :offset lra-offset) lra)
(:temporary (:sc any-reg :offset code-offset) code)
(:temporary (:scs (sap-reg)) temp) (:temporary (:scs (sap-reg)) temp)
(:temporary (:sc control-stack :offset nfp-save-offset) nfp-save) (:temporary (:sc control-stack :offset nfp-save-offset) nfp-save)
(:vop-var vop) (:vop-var vop)
...@@ -34,7 +33,7 @@ ...@@ -34,7 +33,7 @@
(store-stack-tn cur-nfp nfp-save)) (store-stack-tn cur-nfp nfp-save))
(inst cal nsp-tn nsp-tn -16) (inst cal nsp-tn nsp-tn -16)
(storew object nsp-tn) (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 nl0 (make-fixup "_debug_print" :foreign))
(inst cai temp (make-fixup "call_into_c" :foreign)) (inst cai temp (make-fixup "call_into_c" :foreign))
(inst b temp) (inst b temp)
......
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