hdiv ( a b -- c )

Vocabulary

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

Inputs

a	an object
b	an object

Outputs

c

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

: hdiv ( a b -- c )
    half-8 { half-8 half-8 } cdecl [
        X9 FPCR MRS X10 512 1 MOVZ FPCR X10 MSR V0 V0 V1 FDIVHv
        FPCR X9 MSR
    ] alien-assembly ;