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


Vocabulary
math.vectors.simd.private

Inputs
valuean object
indexan object
dataan object
typean object


Outputs
None

Definition
USING: alien.accessors alien.c-types kernel math
math.floats.small.c-types sequences ;

IN: math.vectors.simd.private

:: set-vector-element ( value index data type -- )
type { half bfloat } member? value { t f } member? and
[ value -1 0 ? data index 2 * set-alien-unsigned-2 ] [
value type boolean>element
index data type set-alien-element
] if ; inline