gonzui

t2ex

bsd_source/lib/libc/src_bsd/math/ldexp.c - 4.1KB - 134 lines

113:         k = k+n;
114:         if (k >  0x7fe) return huge*_copysign(huge,x); /* overflow  */
115:         if (k > 0)                              /* normal result */
118:             if (n > 50000)      /* in case integer overflow in n+k */
119:                 return huge*_copysign(huge,x);        /*overflow*/
120:             else return tiny*_copysign(tiny,x);        /*underflow*/
121:         }