half-fma-value ( a b c -- d )

Vocabulary

math.floats.small

Inputs

a	an object
b	an object
c	an object

Outputs

d

an object

Definition

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

IN: math.floats.small

:: half-fma-value ( a b c -- d )
    a fp-special? b fp-special? or c fp-special? or
    [ a b c ffma ] [
        a double>ratio b double>ratio * c double>ratio +
        :> exact exact zero? [
            a double>bits b double>bits bitxor
            c double>bits bitand 9223372036854775808 bitand
            bits>double
        ] [
            exact 48 2^ *
            >integer scaled-integer>half half-bits>float
        ] if
    ] if ;