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

Vocabulary

compiler.cfg.intrinsics.simd

Inputs

src	an object
rep	an object

Outputs

dst

an object

Definition

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

IN: compiler.cfg.intrinsics.simd

: ^(sum-vector-16) ( src rep -- dst )
    {
        [
            {
                [ dupd ^^horizontal-add-vector ]
                [ dupd ^^horizontal-add-vector ]
                [ dupd ^^horizontal-add-vector ]
                [ dupd ^^horizontal-add-vector ]
            } cleave
        ]
        [
            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
            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 ~12 more~
        ]
    } v-vector-op ;