gonzui

t2ex

bsd_source/lib/libc/src_bsd/math/s_scalbnf.c - 1.9KB - 56 lines

39:         k = k+n; 
40:         if (k >  0xfe) return huge*copysignf(huge,x); /* overflow  */
41:         if (k > 0)                              /* normal result */
44:             if (n > 50000)      /* in case integer overflow in n+k */
45:                 return huge*copysignf(huge,x);        /*overflow*/
46:             else return tiny*copysignf(tiny,x);        /*underflow*/
47:         k += 25;                                /* subnormal result */