gonzui

t2ex

bsd_source/lib/libc/src_bsd/stdlib/ulp.c - 2.1KB - 70 lines

52:                 word0(&a) = L;
53:                 word1(&a) = 0;
54: #ifndef Sudden_Underflow
59:                         word0(&a) = 0x80000 >> L;
60:                         word1(&a) = 0;
61:                         }
64:                         L -= Exp_shift;
65:                         word1(&a) = L >= 31 ? 1 : 1 << (31 - L);
66:                         }