^sum-vector ( 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 locals.backend ;

IN: compiler.cfg.intrinsics.simd

: ^sum-vector ( src rep -- dst )
    {
        { float-vector-rep [ ^(sum-vector) ] }
        {
            fixnum-vector-rep
            [
                2 load-locals
                -1 get-local 0 get-local ^unpack-vector-head
                load-local
                -2 get-local -1 get-local ^unpack-vector-tail
                load-local
                -2 get-local widen-vector-rep load-local
                -2 get-local -1 get-local 0 get-local
                ^^add-vector 0 get-local ^(sum-vector)
                5 drop-locals
            ]
        }
    } v-vector-op ;