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

Vocabulary

compiler.cfg.intrinsics.simd

Inputs

block	an object
node	an object

Outputs

block'

an object

Definition

USING: compiler.cfg.hats compiler.cfg.intrinsics.alien
compiler.cfg.intrinsics.simd.backend compiler.cfg.stacks
cpu.architecture kernel sequences ;

IN: compiler.cfg.intrinsics.simd

: emit-alien-vector ( block node -- block' )
    dup [
        [ [ ds-drop prepare-load-memory ] ] dip
        [ f ^^load-memory-imm ds-push ] curry compose
        [ inline-load-memory? ] inline-accessor
    ] with { [ %alien-vector-reps member? ] } if-literals-match
    ;