(simd-vmerge-head) ( 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 cpu.architecture math
math.vectors.simd.intrinsics.private sequences.private
sequences.unrolled ;

IN: math.vectors.simd.intrinsics

:: (simd-vmerge-head) ( a b rep -- c )
    a b rep 2byte>rep-array
    :> ( a' b' ) rep <rep-array> :> c' rep rep-length 2 /i [| n
    |
        n a' nth-unsafe n 2 * c' set-nth-unsafe n b' nth-unsafe
        n 2 * 1 + c' set-nth-unsafe
    ] unrolled-each-integer c' underlying>> ;