vshift ( v counts -- w )

Vocabulary

math.vectors

Inputs

v	a sequence
counts	a sequence

Outputs

w	a sequence

Word description

Shifts integer SIMD lanes using signed per-lane counts. Counts use the signed type of the same lane width. Positive counts shift left; negative counts shift right. Counts at least as large as the lane width yield zero or signed right-shift sign fill.

Definition

IN: math.vectors

GENERIC: vshift ( v counts -- w )

Methods

USING: accessors cpu.architecture kernel math.vectors
math.vectors.simd math.vectors.simd.intrinsics ;

M:: char-16 vshift ( a counts -- w )
    a char-16? [
        a underlying>> counts underlying>> "shift" char-16-rep
        (simd-binary) char-16 boa
    ] [
        a uchar-16? [
            a underlying>> counts underlying>> "shift"
            uchar-16-rep (simd-binary) uchar-16 boa
        ] [ a bad-simd-vector ] if
    ] if ; inline


USING: accessors cpu.architecture kernel math.vectors
math.vectors.simd math.vectors.simd.intrinsics ;

M:: int-4 vshift ( a counts -- w )
    a int-4? [
        a underlying>> counts underlying>> "shift" int-4-rep
        (simd-binary) int-4 boa
    ] [
        a uint-4? [
            a underlying>> counts underlying>> "shift"
            uint-4-rep (simd-binary) uint-4 boa
        ] [ a bad-simd-vector ] if
    ] if ; inline


USING: accessors cpu.architecture kernel math.vectors
math.vectors.simd math.vectors.simd.intrinsics ;

M:: longlong-2 vshift ( a counts -- w )
    a longlong-2? [
        a underlying>> counts underlying>> "shift"
        longlong-2-rep (simd-binary) longlong-2 boa
    ] [
        a ulonglong-2? [
            a underlying>> counts underlying>> "shift"
            ulonglong-2-rep (simd-binary) ulonglong-2 boa
        ] [ a bad-simd-vector ] if
    ] if ; inline


USING: accessors cpu.architecture kernel math.vectors
math.vectors.simd math.vectors.simd.intrinsics ;

M:: short-8 vshift ( a counts -- w )
    a short-8? [
        a underlying>> counts underlying>> "shift" short-8-rep
        (simd-binary) short-8 boa
    ] [
        a ushort-8? [
            a underlying>> counts underlying>> "shift"
            ushort-8-rep (simd-binary) ushort-8 boa
        ] [ a bad-simd-vector ] if
    ] if ; inline


USING: kernel math.vectors math.vectors.simd ;

M: simd-128 vshift drop bad-simd-vector ;