gonzui

t2ex

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

44: 
45:         L = (word0(x) & Exp_mask) - (P-1)*Exp_msk1;
46: #ifndef Sudden_Underflow
51: #endif
52:                 word0(&a) = L;
53:                 word1(&a) = 0;
58:                 if (L < Exp_shift) {
59:                         word0(&a) = 0x80000 >> L;
60:                         word1(&a) = 0;
62:                 else {
63:                         word0(&a) = 0;
64:                         L -= Exp_shift;