(defmacro storew (value ptr &optional (slot 0) (lowtag 0))
(once-only ((value value))
`(cond ((and (integerp ,value)
- (not (typep ,value
- '(or (signed-byte 32) (unsigned-byte 32)))))
+ (not (typep ,value '(signed-byte 32))))
(multiple-value-bind (lo hi) (dwords-for-quad ,value)
(inst mov (make-ea-for-object-slot-half
,ptr ,slot ,lowtag) lo)
(declare (ignore ignored))
(inst push size)
(inst lea r13-tn (make-ea :qword
- :disp (make-fixup (extern-alien-name "alloc_tramp")
- :foreign)))
+ :disp (make-fixup "alloc_tramp" :foreign)))
(inst call r13-tn)
(inst pop alloc-tn)
(values))
(free-pointer
(make-ea :qword :disp
#!+sb-thread (* n-word-bytes thread-alloc-region-slot)
- #!-sb-thread (make-fixup (extern-alien-name "boxed_region")
- :foreign)
+ #!-sb-thread (make-fixup "boxed_region" :foreign)
:scale 1)) ; thread->alloc_region.free_pointer
(end-addr
(make-ea :qword :disp
#!+sb-thread (* n-word-bytes (1+ thread-alloc-region-slot))
- #!-sb-thread (make-fixup (extern-alien-name "boxed_region")
- :foreign 8)
+ #!-sb-thread (make-fixup "boxed_region" :foreign 8)
:scale 1))) ; thread->alloc_region.end_addr
(cond (in-elsewhere
(allocation-tramp alloc-tn size))
(declare (ignore ignored))
(inst push size)
(inst lea r13-tn (make-ea :qword
- :disp (make-fixup (extern-alien-name "alloc_tramp")
- :foreign)))
+ :disp (make-fixup "alloc_tramp" :foreign)))
(inst call r13-tn)
(inst pop alloc-tn)
(values))