(prepare-copy) ( v element-size -- length v-data v-inc v-dest-data v-dest-inc copy-data copy-length copy-inc )

Vocabulary

math.blas.vectors.private

Inputs

v	an object
element-size	an object

Outputs

length	an object
v-data	an object
v-inc	an object
v-dest-data	an object
v-dest-inc	an object
copy-data	an object
copy-length	an object
copy-inc	an object

Definition

USING: accessors byte-arrays kernel math ;

IN: math.blas.vectors.private

:: (prepare-copy)
    ( v element-size -- length v-data v-inc v-dest-data v-dest-inc copy-data copy-length copy-inc )
    v [ length>> ] [ data-and-inc ] bi v length>> element-size *
    <byte-array> 1 over v length>> 1 ;