/* * 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 - LDBL_MANT_DIG - 1); 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)