A binary32 from its sign (0 or 1), unbiased exponent and 24-bit significand
(leading bit set).
227def stdFloatF32Assemble =
228 (lambda unrestricted negative : Nat .
229 (lambda unrestricted exponent : Nat .
230 (lambda unrestricted significand : Nat .
231 (stdF32FromWord32
232 (stdFloatWord32OfNatural
233 (nat-add
234 (nat-multiply negative 2147483648)
235 (nat-add
236 (nat-multiply (nat-add exponent 127) 8388608)
237 (nat-subtract significand 8388608))))))))The compiler supplied declaration spans and resolved links from this source snapshot. This page does not assert that this file belongs to a checked closure.