(:results (res :scs (descriptor-reg)))
(:note "SAP to pointer coercion")
(:generator 20
- (with-fixed-allocation (res pa-flag ndescr sap-widetag sap-size)
+ (with-fixed-allocation (res pa-flag ndescr sap-widetag sap-size nil)
(storew sap res sap-pointer-slot other-pointer-lowtag))))
(define-move-vop move-from-sap :move
(:info offset)
(:results (result :scs (,sc)))
(:result-types ,type)
- (:generator 5
+ (:generator 4
,@(ecase size
(:byte
'((inst sb value object offset)