gonzui

t2ex

bsd_source/lib/libc/src_bsd/math/b_exp__D.c - 4.6KB - 123 lines

106: 
107:                         return  scalb(1.+(hi-(lo - c)), k);
108:                 }
112:                      /* exp(-big#) underflows to zero */
113:                      if(finite(x))  return(scalb(1.0,-5000));
114: 
121:         /* exp(INF) is INF, exp(+big#) overflows to INF */
122:             return( finite(x) ?  scalb(1.0,5000)  : x);
123: }