(simd-v*hs+) ( a b rep -- c )


Vocabulary
math.vectors.simd.intrinsics

Inputs
aan object
ban object
repan object


Outputs
can object


Definition
USING: accessors alien.c-types cpu.architecture grouping kernel
math math.vectors.simd.intrinsics.private sequences
sequences.unrolled.private ;

IN: math.vectors.simd.intrinsics

:: (simd-v*hs+) ( a b rep -- c )
rep { char-16-rep uchar-16-rep } member-eq?
[ uchar-16-rep char-16-rep ] [ rep rep ] if
:> ( a-rep b-rep ) b-rep widen-vector-rep signed-rep
:> wide-rep wide-rep rep-component-type :> wide-type a a-rep
byte>rep-array 2 <groups> :> a' b b-rep byte>rep-array
2 <groups> :> b' a' b' rep rep-length 2 /i [
[ [ first ] bi@ * ] [ [ second ] bi@ * ] 2bi +
wide-type c-type-clamp
] wide-rep <rep-array> unrolled-2map-as-unsafe underlying>>
;