diff options
Diffstat (limited to 'sysdeps/ieee754/ldbl-128/s_frexpl.c')
| -rw-r--r-- | sysdeps/ieee754/ldbl-128/s_frexpl.c | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/sysdeps/ieee754/ldbl-128/s_frexpl.c b/sysdeps/ieee754/ldbl-128/s_frexpl.c index d61dddaaaa..bab0779e23 100644 --- a/sysdeps/ieee754/ldbl-128/s_frexpl.c +++ b/sysdeps/ieee754/ldbl-128/s_frexpl.c @@ -29,17 +29,18 @@ static char rcsid[] = "$NetBSD: $"; #include <math.h> #include <math_private.h> +#include <libm-alias-ldouble.h> -static const long double -two114 = 2.0769187434139310514121985316880384E+34L; /* 0x4071000000000000, 0 */ +static const _Float128 +two114 = L(2.0769187434139310514121985316880384E+34); /* 0x4071000000000000, 0 */ -long double __frexpl(long double x, int *eptr) +_Float128 __frexpl(_Float128 x, int *eptr) { - u_int64_t hx, lx, ix; + uint64_t hx, lx, ix; GET_LDOUBLE_WORDS64(hx,lx,x); ix = 0x7fffffffffffffffULL&hx; *eptr = 0; - if(ix>=0x7fff000000000000ULL||((ix|lx)==0)) return x; /* 0,inf,nan */ + if(ix>=0x7fff000000000000ULL||((ix|lx)==0)) return x + x;/* 0,inf,nan */ if (ix<0x0001000000000000ULL) { /* subnormal */ x *= two114; GET_LDOUBLE_MSW64(hx,x); @@ -51,4 +52,4 @@ long double __frexpl(long double x, int *eptr) SET_LDOUBLE_MSW64(x,hx); return x; } -weak_alias (__frexpl, frexpl) +libm_alias_ldouble (__frexp, frexp) |