emit-simd-v+- ( 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 ;

IN: compiler.cfg.intrinsics.simd

: emit-simd-v+- ( node -- )
    {
        [ ^^add-sub-vector ]
        {
            float-vector-rep
            [
                3 load-locals
                0 get-local ^load-add-sub-vector load-local
                -2 get-local 0 get-local -1 get-local
                ^^xor-vector load-local
                -4 get-local 0 get-local -2 get-local
                ^^add-vector 5 drop-locals
            ]
        }
        {
            int-vector-rep
            [
                3 load-locals
                0 get-local ^load-add-sub-vector load-local
                -2 get-local 0 get-local -1 get-local
                ^^xor-vector load-local
                0 get-local -1 get-local -2 get-local
                ^^sub-vector load-local
                -5 get-local 0 get-local -3 get-local
                ^^add-vector 6 drop-locals
            ]
        }
    } emit-vv-vector-op ;