Skip to content
Snippets Groups Projects
Commit dd21df16 authored by wlott's avatar wlott
Browse files

Left out a comma so ``HEADER'' was being passed into the expansion instead

of being evaluated.  Removed decl for unused register.
parent 558d1038
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; 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. ;;; Stuff to handle allocating simple objects.
;;; ;;;
...@@ -61,7 +61,6 @@ ...@@ -61,7 +61,6 @@
`(:arg ,name (descriptor-reg any-reg) `(:arg ,name (descriptor-reg any-reg)
,(pop arg-offsets))) ,(pop arg-offsets)))
(args))) (args)))
(:temp ndescr non-descriptor-reg nl0-offset)
,@(when (or need-unbound-marker header variable-length) ,@(when (or need-unbound-marker header variable-length)
'((:temp temp non-descriptor-reg nl1-offset))) '((:temp temp non-descriptor-reg nl1-offset)))
(:res result descriptor-reg a0-offset)) (:res result descriptor-reg a0-offset))
...@@ -79,7 +78,7 @@ ...@@ -79,7 +78,7 @@
(inst add alloc-tn temp) (inst add alloc-tn temp)
(inst sll temp extra-words (- type-bits word-shift)) (inst sll temp extra-words (- type-bits word-shift))
(inst add temp (+ (ash (1- ,size) type-bits) (inst add temp (+ (ash (1- ,size) type-bits)
header)) ,header))
(storew temp result 0 ,lowtag))) (storew temp result 0 ,lowtag)))
(header (header
`((inst li temp `((inst li 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