set-vector-element ( value index data type -- )

Vocabulary

math.vectors.simd.private

Inputs

value	an object
index	an object
data	an object
type	an object

Outputs

None

Definition

USING: alien.accessors alien.c-types combinators kernel math
sequences ;

IN: math.vectors.simd.private

:: set-vector-element ( value index data type -- )
    value { t f } member? [
        value -1 0 ? data index type heap-size * type heap-size 
        {
            { 1 [ set-alien-unsigned-1 ] }
            { 2 [ set-alien-unsigned-2 ] }
            { 4 [ set-alien-unsigned-4 ] }
            { 8 [ set-alien-unsigned-8 ] }
        } case
    ] [ value index data type set-alien-element ] if ; inline