(:results (y :scs (sap-reg)))
(:note "system area pointer indirection")
(:generator 1
- (loadq y x sap-pointer-slot other-pointer-type)))
+ (loadq y x sap-pointer-slot other-pointer-lowtag)))
(define-move-vop move-to-sap :move
(descriptor-reg) (sap-reg))
(:note "system area pointer allocation")
(:generator 20
(move x sap)
- (with-fixed-allocation (y ndescr sap-type sap-size)
- (storeq sap y sap-pointer-slot other-pointer-type))))
+ (with-fixed-allocation (y ndescr sap-widetag sap-size)
+ (storeq sap y sap-pointer-slot other-pointer-lowtag))))
(define-move-vop move-from-sap :move
(sap-reg) (descriptor-reg))
(:single
'((inst lds result offset object)))
(:double
- '((inst ldt result (+ offset word-bytes) object))))))
+ '((inst ldt
+ result
+ (+ offset n-word-bytes)
+ object))))))
(define-vop (,set-name)
(:translate ,set-name)
(:policy :fast-safe)
(:result-types system-area-pointer)
(:generator 2
(inst lda sap
- (- (* vector-data-offset word-bytes) other-pointer-type)
+ (- (* vector-data-offset n-word-bytes) other-pointer-lowtag)
vector)))