bfloat-product ( x y -- value )

Vocabulary

math.floats.small.bfloat

Inputs

x	an object
y	an object

Outputs

value

an object

Definition

USING: kernel math math.floating-point
math.floats.small.bfloat.private ;

IN: math.floats.small.bfloat

:: bfloat-product ( x y -- value )
    x flush-bfloat-input :> a y flush-bfloat-input :> b a
    fp-special? b fp-special? or
    [ a b * canonical-bfloat-nan ] [
        a zero? b zero? or [
            a float>bits b float>bits bitxor 2147483648 bitand
            bits>float
        ] [
            a double>ratio b double>ratio *
            round-bfloat-intermediate
        ] if
    ] if ;