^(sum-vector-2) ( src rep -- dst )

Vocabulary

compiler.cfg.intrinsics.simd

Inputs

src	an object
rep	an object

Outputs

dst

an object

Definition

USING: compiler.cfg.hats compiler.cfg.intrinsics.simd.backend
kernel locals.backend ;

IN: compiler.cfg.intrinsics.simd

: ^(sum-vector-2) ( src rep -- dst )
    {
        [ dupd ^^horizontal-add-vector ]
        [
            2 load-locals
            -1 get-local -1 get-local 0 get-local
            ^^merge-vector-head load-local
            -2 get-local -2 get-local -1 get-local
            ^^merge-vector-tail load-local
            -1 get-local 0 get-local -2 get-local ^^add-vector
            4 drop-locals
        ]
    } v-vector-op ;