simd-ref.lisp

(sb-c:defknown simd-ref ((simple-array double-float (*)) sb-int:index)
    (simd-pack double-float)
    (sb-c:movable sb-c:flushable sb-c:always-translatable)
  :overwrite-fndb-silently t)

(define-vop (simd-ref)
  (:translate simd-example::simd-ref)
  (:policy :fast-safe)
  (:args (array :scs (descriptor-reg))
         (index :scs (any-reg)))
  (:arg-types * positive-fixnum)
  (:results (value :scs (double-sse-reg)))
  (:result-types simd-pack-double)
  (:generator 5
    (inst movapd value (make-ea-for-float-ref array index 0 16
                                              :scale (ash 2 (- word-shift n-fixnum-tag-bits))))))