bpack ( lo hi -- b )

Vocabulary

math.vectors.simd.extensions.arm.64.private

Inputs

lo	an object
hi	an object

Outputs

b

an object

Definition

USING: alien cpu.arm.64.assembler cpu.arm.64.assembler.registers
math.vectors.simd ;

IN: math.vectors.simd.extensions.arm.64.private

: bpack ( lo hi -- b )
    bfloat-8 { float-4 float-4 } cdecl [
        X9 FPCR MRS X10 512 1 MOVZ FPCR X10 MSR V0 V0 BFCVTN
        V0 V1 BFCVTN2 FPCR X9 MSR
    ] alien-assembly ;