longlong-2

Vocabulary

math.vectors.simd

Definition

IN: math.vectors.simd

TUPLE: longlong-2 < simd-128 ; final

Methods

USING: classes kernel math.vectors.simd math.vectors.simd.cords
sequences.cords ;

M: longlong-2 cord-append
    2dup [ longlong-2 instance? ] both?
    [ longlong-4 boa ] [ generic-cord boa ] if ; inline


USING: kernel math.vectors.simd sequences ;

M: longlong-2 length drop 2 ; inline


USING: classes kernel math.vectors.simd sequences ;

M: longlong-2 like
    drop dup \ longlong-2 instance? [ >longlong-2 ] unless ;
    inline


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

M: longlong-2 new-underlying drop \ longlong-2 boa ; inline


USING: cpu.architecture generic kernel math.vectors.simd
math.vectors.simd.intrinsics math.vectors.simd.private
sequences.private ;

M: longlong-2 nth-unsafe
    swap \ longlong-2-rep
    [ (simd-select) ]
    [ M\ longlong-2 nth-unsafe (call-next-method) ] vx->x-op ;
    inline


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

M: longlong-2 pprint-delims drop \ longlong-2{ \ } ;


USING: accessors alien.c-types math.vectors.simd
math.vectors.simd.private sequences.private ;

M: longlong-2 set-nth-unsafe
    underlying>> longlong set-vector-element ; inline


USING: alien.c-types kernel math.vectors.simd ;

M: longlong-2 simd-element-type drop longlong ; inline


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

M: longlong-2 simd-rep drop longlong-2-rep ; inline


USING: kernel math.vectors.simd ;

M: longlong-2 simd-with drop longlong-2-with ; inline


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

M:: longlong-2 vabsdiff ( a b -- w )
    a longlong-2? [
        a underlying>> b underlying>> "absdiff" longlong-2-rep
        (simd-binary) ulonglong-2 boa
    ] [ a bad-simd-vector ] 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