-;;; unsigned-byte-8
-(macrolet ((define-data-vector-frobs (ptype mov-inst type
- 8-bit-tns-p &rest scs)
- `(progn
- (define-vop (,(symbolicate "DATA-VECTOR-REF/" ptype))
- (:translate data-vector-ref-with-offset)
- (:policy :fast-safe)
- (:args (object :scs (descriptor-reg))
- (index :scs (unsigned-reg)))
- (:info offset)
- (:arg-types ,ptype positive-fixnum
- (:constant (constant-displacement other-pointer-lowtag
- 1 vector-data-offset)))
- (:results (value :scs ,scs))
- (:result-types ,type)
- (:generator 5
- (inst ,mov-inst value
- (make-ea :byte :base object :index index :scale 1
- :disp (- (+ (* vector-data-offset n-word-bytes)
- offset)
- other-pointer-lowtag)))))
- (define-vop (,(symbolicate "DATA-VECTOR-REF-C/" ptype))
- (:translate data-vector-ref-with-offset)
- (:policy :fast-safe)
- (:args (object :scs (descriptor-reg)))
- (:info index offset)
- (:arg-types ,ptype (:constant low-index)
- (:constant (constant-displacement other-pointer-lowtag
- 1 vector-data-offset)))
- (:results (value :scs ,scs))
- (:result-types ,type)
- (:generator 4
- (inst ,mov-inst value
- (make-ea :byte :base object
- :disp (- (+ (* vector-data-offset n-word-bytes)
- index offset)
- other-pointer-lowtag)))))
- (define-vop (,(symbolicate "DATA-VECTOR-SET/" ptype))
- (:translate data-vector-set-with-offset)
- (:policy :fast-safe)
- (:args (object :scs (descriptor-reg) :to (:eval 0))
- (index :scs (unsigned-reg) :to (:eval 0))
- (value :scs ,scs ,@(unless 8-bit-tns-p '(:target rax))))
- (:info offset)
- (:arg-types ,ptype positive-fixnum
- (:constant (constant-displacement other-pointer-lowtag
- 1 vector-data-offset))
- ,type)
- ,@(unless 8-bit-tns-p
- '((:temporary (:sc unsigned-reg :offset rax-offset :target result
- :from (:argument 2) :to (:result 0))
- rax)))
- (:results (result :scs ,scs))
- (:result-types ,type)
- (:generator 5
- ,@(unless 8-bit-tns-p '((move rax value)))
- (inst mov (make-ea :byte :base object :index index :scale 1
- :disp (- (+ (* vector-data-offset n-word-bytes)
- offset)
- other-pointer-lowtag))
- ,(if 8-bit-tns-p 'value 'al-tn))
- (move result ,(if 8-bit-tns-p 'value 'rax))))
- (define-vop (,(symbolicate "DATA-VECTOR-SET-C/" ptype))
- (:translate data-vector-set-with-offset)
- (:policy :fast-safe)
- (:args (object :scs (descriptor-reg) :to (:eval 0))
- (value :scs ,scs ,@(unless 8-bit-tns-p '(:target rax))))
- (:info index offset)
- (:arg-types ,ptype (:constant low-index)
- (:constant (constant-displacement other-pointer-lowtag
- 1 vector-data-offset))
- ,type)
- ,@(unless 8-bit-tns-p
- '((:temporary (:sc unsigned-reg :offset rax-offset :target result
- :from (:argument 2) :to (:result 0))
- rax)))
- (:results (result :scs ,scs))
- (:result-types ,type)
- (:generator 4
- ,@(unless 8-bit-tns-p '((move rax value)))
- (inst mov (make-ea :byte :base object
- :disp (- (+ (* vector-data-offset n-word-bytes)
- index offset)
- other-pointer-lowtag))
- ,(if 8-bit-tns-p 'value 'al-tn))
- (move result ,(if 8-bit-tns-p 'value 'rax)))))))
- (define-data-vector-frobs simple-array-unsigned-byte-7 movzx positive-fixnum
- nil unsigned-reg signed-reg)
- (define-data-vector-frobs simple-array-unsigned-byte-8 movzx positive-fixnum
- nil unsigned-reg signed-reg)
- (define-data-vector-frobs simple-array-signed-byte-8 movsx tagged-num
- nil signed-reg)
- (define-data-vector-frobs simple-base-string
- #!+sb-unicode movzx #!-sb-unicode mov
- character
- #!+sb-unicode nil #!-sb-unicode t character-reg))
-
-;;; unsigned-byte-16
-(macrolet ((define-data-vector-frobs (ptype mov-inst type &rest scs)