(simd-vpack-signed) ( a b rep -- c )

Vocabulary

math.vectors.simd.intrinsics

Inputs

a	an object
b	an object
rep	an object

Outputs

c

an object

Definition

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

IN: math.vectors.simd.intrinsics

: (simd-vpack-signed) ( a b rep -- c )
    [ [ 2byte>rep-array cord-append ] [ rep-length 2 * ] bi ] [
        narrow-vector-rep
        [ <rep-array> ] [ rep-component-type ] bi
    ] bi [ c-type-clamp ] curry swap unrolled-map-as-unsafe
    underlying>> ;