pack-half ( lo hi -- result )

Vocabulary

math.vectors.simd.extensions

Inputs

lo	an object
hi	an object

Outputs

result

an object

Definition

USING: system ;

IN: math.vectors.simd.extensions

HOOK: pack-half cpu ( lo hi -- result )

Methods

USING: cpu.arm.64.features generic kernel math.vectors.simd
math.vectors.simd.extensions
math.vectors.simd.extensions.arm.64.private system ;

M:: arm.64 pack-half ( lo hi -- result )
    "fp16" arm64-feature? lo float-4? and hi float-4? and
    [ lo hi hpack ]
    [ lo hi M\ arm.64 pack-half (call-next-method) ] if ;


USING: arrays kernel math.vectors.simd
math.vectors.simd.extensions sequences ;

M: object pack-half [ >array ] bi@ append >half-8 ;