gonzui

t2ex

bsd_source/lib/libc/src_bsd/math/s_logb.c - 1.1KB - 42 lines

27:         ix &= 0x7fffffff;                      /* high |x| */
28:         if((ix|lx)==0) return -1.0/fabs(x);
29:         if(ix>=0x7ff00000) return x*x;

bsd_source/lib/libc/src_bsd/math/s_remquo.c - 4.9KB - 163 lines

138:         INSERT_WORDS(x,hx,lx);
139:         y = fabs(y);
140:         if (y < 0x1p-1021) {

bsd_source/lib/libc/src_bsd/math/s_tanh.c - 2.7KB - 90 lines

69:             if (ix>=0x3ff00000) {      /* |x|>=1  */
70:                 t = expm1(two*fabs(x));
71:                 z = one - two/(t+two);

More results from s_tanh.c