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