(in-package "SB!VM")
\f
;;;; LIST and LIST*
-(defoptimizer (list stack-allocate-result) ((&rest args))
- (not (null args)))
-(defoptimizer (list* stack-allocate-result) ((&rest args))
- (not (null (rest args))))
-
(define-vop (list-or-list*)
(:args (things :more t))
(:temporary (:scs (descriptor-reg) :type list) ptr)
(allocation result (pad-data-block size)
fun-pointer-lowtag :temp-tn temp :flag-tn pa-flag)
(inst lr temp (logior (ash (1- size) n-widetag-bits) closure-header-widetag))))
- ;;; should this be closure-fun-slot instead of 0?
(storew temp result 0 fun-pointer-lowtag)
(storew function result closure-fun-slot fun-pointer-lowtag)))))
(define-vop (fixed-alloc)
(:args)
- (:info name words type lowtag)
- (:ignore name)
+ (:info name words type lowtag stack-allocate-p)
+ (:ignore name stack-allocate-p)
(:results (result :scs (descriptor-reg)))
(:temporary (:scs (non-descriptor-reg)) temp)
(:temporary (:sc non-descriptor-reg :offset nl3-offset) pa-flag)
(:temporary (:sc non-descriptor-reg :offset nl3-offset) pa-flag)
(:generator 6
(inst addi bytes extra (* (1+ words) n-word-bytes))
- (inst slwi header bytes (- n-widetag-bits 2))
+ (inst slwi header bytes (- n-widetag-bits n-fixnum-tag-bits))
(inst addi header header (+ (ash -2 n-widetag-bits) type))
(inst clrrwi bytes bytes n-lowtag-bits)
(pseudo-atomic (pa-flag)