From b30616e2d75c597bdd0815df89e3f45746c20459 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 22 Oct 1991 19:07:16 +0000 Subject: [PATCH] Always emit the TEMP temp, 'cause it's always needed on the RT now. --- assembly/rt/alloc.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/assembly/rt/alloc.lisp b/assembly/rt/alloc.lisp index b62ce1d47..2d129bbee 100644 --- a/assembly/rt/alloc.lisp +++ b/assembly/rt/alloc.lisp @@ -7,7 +7,7 @@ ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU) ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/rt/alloc.lisp,v 1.4 1991/10/22 16:50:28 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/rt/alloc.lisp,v 1.5 1991/10/22 19:07:16 wlott Exp $ ;;; ;;; Stuff to handle allocating simple objects. ;;; @@ -62,8 +62,7 @@ ,(pop arg-offsets))) (args))) (:temp alloc non-descriptor-reg nl0-offset) - ,@(when (or need-unbound-marker header variable-length) - '((:temp temp non-descriptor-reg ocfp-offset))) + (:temp temp non-descriptor-reg ocfp-offset) (:res result descriptor-reg a0-offset)) (pseudo-atomic (temp) (load-symbol-value alloc *allocation-pointer*) -- GitLab