flush-bfloat-input ( value -- value' )

Vocabulary

math.floats.small.bfloat.private

Inputs

value

an object

Outputs

value'

an object

Definition

USING: kernel math ;

IN: math.floats.small.bfloat.private

: flush-bfloat-input ( value -- value' )
    dup float>bits 2139095040 bitand zero?
    [ float>bits 2147483648 bitand bits>float ] when ;