diff options
| author | Ulrich Drepper <drepper@redhat.com> | 1999-07-14 00:54:57 +0000 |
|---|---|---|
| committer | Ulrich Drepper <drepper@redhat.com> | 1999-07-14 00:54:57 +0000 |
| commit | abfbdde177c3a7155070dda1b2cdc8292054cc26 (patch) | |
| tree | e021306b596381fbf8311d2b7eb294e918ff17c8 /math/w_exp2l.c | |
| parent | 86421aa57ecfd70963ae66848bd6a6dd3b8e0fe6 (diff) | |
| download | glibc-abfbdde177c3a7155070dda1b2cdc8292054cc26.zip glibc-abfbdde177c3a7155070dda1b2cdc8292054cc26.tar.gz glibc-abfbdde177c3a7155070dda1b2cdc8292054cc26.tar.bz2 | |
Update.
Diffstat (limited to 'math/w_exp2l.c')
| -rw-r--r-- | math/w_exp2l.c | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/math/w_exp2l.c b/math/w_exp2l.c new file mode 100644 index 0000000..965e9bf --- /dev/null +++ b/math/w_exp2l.c @@ -0,0 +1,30 @@ +/* + * 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) |