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