scale-float ( mantissa scale -- float' )

Vocabulary

math.integers.private

Inputs

mantissa	an object
scale	an object

Outputs

float'

an object

Definition

USING: combinators kernel math ;

IN: math.integers.private

: scale-float ( mantissa scale -- float' )
    {
        { [ dup 1024 > ] [ 2drop 1/0. ] }
        { [ dup -1021 < ] [ drop bits>double ] }
        [
            [ 52 2^ 1 - bitand ] dip 1022 + 52 shift bitor
            bits>double
        ]
    } cond ; inline