glibc/math/w_exp2l.c
Ulrich Drepper abfbdde177 Update.
1999-07-14 00:54:57 +00:00

31 lines
673 B
C

/*
* wrapper exp2l(x)
*/
#include <float.h>
#include "math.h"
#include "math_private.h"
static const long double o_threshold = (long double) LDBL_MAX_EXP;
static const long double u_threshold = (long double) LDBL_MIN_EXP;
long double
__exp2l (long double x) /* wrapper exp2l */
{
#ifdef _IEEE_LIBM
return __ieee754_exp2l (x);
#else
long double z;
z = __ieee754_exp2l (x);
if (_LIB_VERSION != _IEEE_ && __finitel (x))
{
if (x > o_threshold)
return __kernel_standard (x, x, 244); /* exp2l overflow */
else if (x < u_threshold)
return __kernel_standard (x, x, 245); /* exp2l underflow */
}
return z;
#endif
}
weak_alias (__exp2l, exp2l)