bfloat-add ( 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-add ( 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? and [
            a float>bits b float>bits bitand 2147483648 bitand
            bits>float
        ] [
            a double>ratio b double>ratio +
            round-bfloat-intermediate
        ] if
    ] if ;