| /* | |
| * 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) |