(define-vop (make-closure)
(:args (function :to :save :scs (descriptor-reg)))
- (:info length)
+ (:info length stack-allocate-p)
+ (:ignore stack-allocate-p)
(:temporary (:sc any-reg) temp)
(:results (result :scs (descriptor-reg)))
(:node-var node)
(inst lea bytes
(make-ea :qword :base extra :disp (* (1+ words) n-word-bytes)))
(inst mov header bytes)
- (inst shl header (- n-widetag-bits 2)) ; w+1 to length field
+ (inst shl header (- n-widetag-bits 3)) ; w+1 to length field
(inst lea header ; (w-1 << 8) | type
(make-ea :qword :base header :disp (+ (ash -2 n-widetag-bits) type)))
(inst and bytes (lognot lowtag-mask))