float-4

Vocabulary

math.vectors.simd

Definition

IN: math.vectors.simd

TUPLE: float-4 < simd-128 ; final

Methods

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

M: float-4 (q*sign) float-4{ -0.0 0.0 0.0 0.0 } vbitxor ; inline


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

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


USING: kernel math.vectors.simd sequences ;

M: float-4 length drop 4 ; inline


USING: classes kernel math.vectors.simd sequences ;

M: float-4 like
    drop dup \ float-4 instance? [ >float-4 ] unless ; inline


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

M: float-4 new-underlying drop \ float-4 boa ; inline


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

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


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

M: float-4 pprint-delims drop \ float-4{ \ } ;


USING: math.quaternions math.vectors math.vectors.simd ;

M: float-4 qconjugate float-4{ 0.0 -0.0 -0.0 -0.0 } vbitxor
    ; inline


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

M: float-4 set-nth-unsafe
    [ float boolean>element ] 2dip
    underlying>> float set-alien-element ; inline


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

M: float-4 simd-element-type drop float ; inline


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

M: float-4 simd-rep drop float-4-rep ; inline


USING: kernel math.vectors.simd ;

M: float-4 simd-with drop float-4-with ; inline