- (inst mov y (make-ea :dword :base state :index k :scale 4
- :disp (- (* (+ 3 vector-data-offset)
- n-word-bytes)
- other-pointer-lowtag)))
- (inst mov tmp (make-ea :dword :base state :index k :scale 4
- :disp (- (* (+ 1 3 vector-data-offset)
- n-word-bytes)
- other-pointer-lowtag)))
+ (inst mov y (make-ea-for-vector-data state :index k :offset 3))
+ (inst mov tmp (make-ea-for-vector-data state :index k :offset (+ 1 3)))