From dd21df16f5998075df7c2782a7e156d51b3d12f3 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 21 Mar 1992 22:18:56 +0000
Subject: [PATCH] Left out a comma so ``HEADER'' was being passed into the
 expansion instead of being evaluated.  Removed decl for unused register.

---
 assembly/sparc/alloc.lisp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/assembly/sparc/alloc.lisp b/assembly/sparc/alloc.lisp
index 8addc66d5..89a49cfce 100644
--- a/assembly/sparc/alloc.lisp
+++ b/assembly/sparc/alloc.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/sparc/alloc.lisp,v 1.2 1992/03/11 21:40:59 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/sparc/alloc.lisp,v 1.3 1992/03/21 22:18:56 wlott Exp $
 ;;;
 ;;; Stuff to handle allocating simple objects.
 ;;;
@@ -61,7 +61,6 @@
 			      `(:arg ,name (descriptor-reg any-reg)
 				     ,(pop arg-offsets)))
 			  (args)))
-		(:temp ndescr non-descriptor-reg nl0-offset)
 		,@(when (or need-unbound-marker header variable-length)
 		    '((:temp temp non-descriptor-reg nl1-offset)))
 		(:res result descriptor-reg a0-offset))
@@ -79,7 +78,7 @@
 			  (inst add alloc-tn temp)
 			  (inst sll temp extra-words (- type-bits word-shift))
 			  (inst add temp (+ (ash (1- ,size) type-bits)
-					    header))
+					    ,header))
 			  (storew temp result 0 ,lowtag)))
 		       (header
 			`((inst li temp
-- 
GitLab