gonzui

t2ex

bsd_source/lib/libc/src_bsd/math/s_expm1f.c - 4.3KB - 121 lines

100:                 GET_FLOAT_WORD(i,y);
101:                 SET_FLOAT_WORD(y,i+(k<<23));  /* add k to y's exponent */
102:                 return y-one;
106:                 int32_t i;
107:                 SET_FLOAT_WORD(t,0x3f800000 - (0x1000000>>k)); /* t=1-2^-k */
108:                        y = t-(e-x);
109:                 GET_FLOAT_WORD(i,y);
110:                 SET_FLOAT_WORD(y,i+(k<<23));  /* add k to y's exponent */
111:            } else {
112:                 int32_t i;
113:                 SET_FLOAT_WORD(t,((0x7f-k)<<23));     /* 2^-k */
114:                        y = x-(e+t);
116:                 GET_FLOAT_WORD(i,y);
117:                 SET_FLOAT_WORD(y,i+(k<<23));  /* add k to y's exponent */
118:             }