^(sum-vector-8) ( 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
cpu.architecture kernel locals.backend ;

IN: compiler.cfg.intrinsics.simd

: ^(sum-vector-8) ( src rep -- dst )
    {
        [
            [ dupd ^^horizontal-add-vector ]
            [ dupd ^^horizontal-add-vector ]
            [ dupd ^^horizontal-add-vector ] tri
        ]
        [
            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
            load-local -3 get-local widen-vector-rep load-local
            -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 -6 get-local ^^add-vector
            load-local -3 get-local widen-vector-rep load-local
            -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 -10 get-local ^^add-vector
            12 drop-locals
        ]
    } v-vector-op ;