diff options
Diffstat (limited to 'libm/w_exp.c')
| -rw-r--r-- | libm/w_exp.c | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/libm/w_exp.c b/libm/w_exp.c deleted file mode 100644 index bd9af7ae5..000000000 --- a/libm/w_exp.c +++ /dev/null @@ -1,40 +0,0 @@ -/* - * ==================================================== - * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. - * - * Developed at SunPro, a Sun Microsystems, Inc. business. - * Permission to use, copy, modify, and distribute this - * software is freely granted, provided that this notice - * is preserved. - * ==================================================== - */ - -/* - * wrapper exp(x) - */ - -#include "math.h" -#include "math_private.h" - -double exp(double x) /* wrapper exp */ -{ -#ifdef _IEEE_LIBM - return __ieee754_exp(x); -#else - static const double - o_threshold= 7.09782712893383973096e+02, /* 0x40862E42, 0xFEFA39EF */ - u_threshold= -7.45133219101941108420e+02; /* 0xc0874910, 0xD52D3051 */ - - double z; - z = __ieee754_exp(x); - if(_LIB_VERSION == _IEEE_) return z; - if(isfinite(x)) { - if(x>o_threshold) - return __kernel_standard(x,x,6); /* exp overflow */ - else if(x<u_threshold) - return __kernel_standard(x,x,7); /* exp underflow */ - } - return z; -#endif -} -libm_hidden_def(exp) |