emit-simd-reduce ( node -- )

Vocabulary

compiler.cfg.intrinsics.simd

Inputs

node

an object

Outputs

None

Definition

USING: compiler.cfg.hats compiler.cfg.intrinsics.simd.backend
cpu.architecture locals.backend strings ;

IN: compiler.cfg.intrinsics.simd

: emit-simd-reduce ( node -- )
    {
        {
            float-vector-rep
            [
                3 load-locals
                -2 get-local -1 get-local 0 get-local
                ^reduce-number-vector
                0 get-local ^^vector>scalar 3 drop-locals
            ]
        }
        [
            3 load-locals
            -2 get-local -1 get-local 0 get-local
            ^^unary-vector-function 0 get-local ^^vector>scalar
            3 drop-locals
        ]
    } [ string? ] emit-vl-vector-op ;