emit-set-alien-vector ( block node -- block' )

Vocabulary

compiler.cfg.intrinsics.simd

Inputs

block	an object
node	an object

Outputs

block'

an object

Definition

USING: byte-arrays compiler.cfg.instructions
compiler.cfg.intrinsics.alien
compiler.cfg.intrinsics.simd.backend compiler.cfg.stacks
cpu.architecture kernel sequences ;

IN: compiler.cfg.intrinsics.simd

: emit-set-alien-vector ( block node -- block' )
    dup [
        [ [ ds-drop prepare-store-memory ] ] dip
        [ f ##store-memory-imm, ] curry compose
        [ byte-array inline-store-memory? ] inline-accessor
    ] with { [ %alien-vector-reps member? ] } if-literals-match
    ;