diff options
author | Wilco Dijkstra <Wilco.Dijkstra@arm.com> | 2019-07-16 12:17:22 -0300 |
---|---|---|
committer | Adhemerval Zanella <adhemerval.zanella@linaro.org> | 2020-01-03 10:02:04 -0300 |
commit | 220622dde5704c95a100c2792a280f18f3deba73 (patch) | |
tree | fbf0df37c2671a9bc21a200bd2f587fc5e4cbe2b /sysdeps/ieee754/ldbl-96 | |
parent | cf4dfd461725b6dbe6f27fbd16913f2c6c5cf7c5 (diff) | |
download | glibc-220622dde5704c95a100c2792a280f18f3deba73.zip glibc-220622dde5704c95a100c2792a280f18f3deba73.tar.gz glibc-220622dde5704c95a100c2792a280f18f3deba73.tar.bz2 |
Add libm_alias_finite for _finite symbols
This patch adds a new macro, libm_alias_finite, to define all _finite
symbol. It sets all _finite symbol as compat symbol based on its first
version (obtained from the definition at built generated first-versions.h).
The <fn>f128_finite symbols were introduced in GLIBC 2.26 and so need
special treatment in code that is shared between long double and float128.
It is done by adding a list, similar to internal symbol redifinition,
on sysdeps/ieee754/float128/float128_private.h.
Alpha also needs some tricky changes to ensure we still emit 2 compat
symbols for sqrt(f).
Passes buildmanyglibc.
Co-authored-by: Adhemerval Zanella <adhemerval.zanella@linaro.org>
Reviewed-by: Siddhesh Poyarekar <siddhesh@sourceware.org>
Diffstat (limited to 'sysdeps/ieee754/ldbl-96')
-rw-r--r-- | sysdeps/ieee754/ldbl-96/e_acoshl.c | 3 | ||||
-rw-r--r-- | sysdeps/ieee754/ldbl-96/e_asinl.c | 3 | ||||
-rw-r--r-- | sysdeps/ieee754/ldbl-96/e_atanhl.c | 3 | ||||
-rw-r--r-- | sysdeps/ieee754/ldbl-96/e_coshl.c | 3 | ||||
-rw-r--r-- | sysdeps/ieee754/ldbl-96/e_gammal_r.c | 3 | ||||
-rw-r--r-- | sysdeps/ieee754/ldbl-96/e_hypotl.c | 3 | ||||
-rw-r--r-- | sysdeps/ieee754/ldbl-96/e_j0l.c | 5 | ||||
-rw-r--r-- | sysdeps/ieee754/ldbl-96/e_j1l.c | 5 | ||||
-rw-r--r-- | sysdeps/ieee754/ldbl-96/e_jnl.c | 5 | ||||
-rw-r--r-- | sysdeps/ieee754/ldbl-96/e_lgammal_r.c | 3 | ||||
-rw-r--r-- | sysdeps/ieee754/ldbl-96/e_sinhl.c | 3 |
11 files changed, 25 insertions, 14 deletions
diff --git a/sysdeps/ieee754/ldbl-96/e_acoshl.c b/sysdeps/ieee754/ldbl-96/e_acoshl.c index 56b04d4..0bdf4a9 100644 --- a/sysdeps/ieee754/ldbl-96/e_acoshl.c +++ b/sysdeps/ieee754/ldbl-96/e_acoshl.c @@ -30,6 +30,7 @@ #include <math.h> #include <math_private.h> +#include <libm-alias-finite.h> static const long double one = 1.0, @@ -58,4 +59,4 @@ __ieee754_acoshl(long double x) return __log1pl(t+sqrtl(2.0*t+t*t)); } } -strong_alias (__ieee754_acoshl, __acoshl_finite) +libm_alias_finite (__ieee754_acoshl, __acoshl) diff --git a/sysdeps/ieee754/ldbl-96/e_asinl.c b/sysdeps/ieee754/ldbl-96/e_asinl.c index 1740bd6..ed915ee 100644 --- a/sysdeps/ieee754/ldbl-96/e_asinl.c +++ b/sysdeps/ieee754/ldbl-96/e_asinl.c @@ -62,6 +62,7 @@ #include <math.h> #include <math_private.h> #include <math-underflow.h> +#include <libm-alias-finite.h> static const long double one = 1.0L, @@ -155,4 +156,4 @@ __ieee754_asinl (long double x) else return -t; } -strong_alias (__ieee754_asinl, __asinl_finite) +libm_alias_finite (__ieee754_asinl, __asinl) diff --git a/sysdeps/ieee754/ldbl-96/e_atanhl.c b/sysdeps/ieee754/ldbl-96/e_atanhl.c index 7312f84..502ae7b 100644 --- a/sysdeps/ieee754/ldbl-96/e_atanhl.c +++ b/sysdeps/ieee754/ldbl-96/e_atanhl.c @@ -37,6 +37,7 @@ #include <math-barriers.h> #include <math_private.h> #include <math-underflow.h> +#include <libm-alias-finite.h> static const long double one = 1.0, huge = 1e4900L; @@ -68,4 +69,4 @@ __ieee754_atanhl(long double x) t = 0.5*__log1pl((x+x)/(one-x)); if(se<=0x7fff) return t; else return -t; } -strong_alias (__ieee754_atanhl, __atanhl_finite) +libm_alias_finite (__ieee754_atanhl, __atanhl) diff --git a/sysdeps/ieee754/ldbl-96/e_coshl.c b/sysdeps/ieee754/ldbl-96/e_coshl.c index 1edf2c1..fa3e8f1 100644 --- a/sysdeps/ieee754/ldbl-96/e_coshl.c +++ b/sysdeps/ieee754/ldbl-96/e_coshl.c @@ -36,6 +36,7 @@ static char rcsid[] = "$NetBSD: e_cosh.c,v 1.7 1995/05/10 20:44:58 jtc Exp $"; #include <math.h> #include <math_private.h> +#include <libm-alias-finite.h> static const long double one = 1.0, half=0.5, huge = 1.0e4900L; @@ -84,4 +85,4 @@ __ieee754_coshl (long double x) /* |x| >= log(2*maxdouble), cosh(x) overflow */ return huge*huge; } -strong_alias (__ieee754_coshl, __coshl_finite) +libm_alias_finite (__ieee754_coshl, __coshl) diff --git a/sysdeps/ieee754/ldbl-96/e_gammal_r.c b/sysdeps/ieee754/ldbl-96/e_gammal_r.c index c156962..72639c0 100644 --- a/sysdeps/ieee754/ldbl-96/e_gammal_r.c +++ b/sysdeps/ieee754/ldbl-96/e_gammal_r.c @@ -22,6 +22,7 @@ #include <fenv_private.h> #include <math-underflow.h> #include <float.h> +#include <libm-alias-finite.h> /* Coefficients B_2k / 2k(2k-1) of x^-(2k-1) inside exp in Stirling's approximation to gamma function. */ @@ -209,4 +210,4 @@ __ieee754_gammal_r (long double x, int *signgamp) else return ret; } -strong_alias (__ieee754_gammal_r, __gammal_r_finite) +libm_alias_finite (__ieee754_gammal_r, __gammal_r) diff --git a/sysdeps/ieee754/ldbl-96/e_hypotl.c b/sysdeps/ieee754/ldbl-96/e_hypotl.c index f664e30..7cd487e 100644 --- a/sysdeps/ieee754/ldbl-96/e_hypotl.c +++ b/sysdeps/ieee754/ldbl-96/e_hypotl.c @@ -49,6 +49,7 @@ #include <math.h> #include <math_private.h> #include <math-underflow.h> +#include <libm-alias-finite.h> long double __ieee754_hypotl(long double x, long double y) { @@ -140,4 +141,4 @@ long double __ieee754_hypotl(long double x, long double y) return w; } else return w; } -strong_alias (__ieee754_hypotl, __hypotl_finite) +libm_alias_finite (__ieee754_hypotl, __hypotl) diff --git a/sysdeps/ieee754/ldbl-96/e_j0l.c b/sysdeps/ieee754/ldbl-96/e_j0l.c index 76258bd..715f56f 100644 --- a/sysdeps/ieee754/ldbl-96/e_j0l.c +++ b/sysdeps/ieee754/ldbl-96/e_j0l.c @@ -74,6 +74,7 @@ #include <math.h> #include <math-barriers.h> #include <math_private.h> +#include <libm-alias-finite.h> static long double pzero (long double), qzero (long double); @@ -165,7 +166,7 @@ __ieee754_j0l (long double x) return ((one + u) * (one - u) + z * (r / s)); } } -strong_alias (__ieee754_j0l, __j0l_finite) +libm_alias_finite (__ieee754_j0l, __j0l) /* y0(x) = 2/pi ln(x) J0(x) + U(x^2)/V(x^2) @@ -256,7 +257,7 @@ __ieee754_y0l (long double x) v = V[0] + z * (V[1] + z * (V[2] + z * (V[3] + z * (V[4] + z)))); return (u / v + tpi * (__ieee754_j0l (x) * __ieee754_logl (x))); } -strong_alias (__ieee754_y0l, __y0l_finite) +libm_alias_finite (__ieee754_y0l, __y0l) /* The asymptotic expansions of pzero is * 1 - 9/128 s^2 + 11025/98304 s^4 - ..., where s = 1/x. diff --git a/sysdeps/ieee754/ldbl-96/e_j1l.c b/sysdeps/ieee754/ldbl-96/e_j1l.c index c0e8d30..2c967a6 100644 --- a/sysdeps/ieee754/ldbl-96/e_j1l.c +++ b/sysdeps/ieee754/ldbl-96/e_j1l.c @@ -76,6 +76,7 @@ #include <math.h> #include <math_private.h> #include <math-underflow.h> +#include <libm-alias-finite.h> static long double pone (long double), qone (long double); @@ -167,7 +168,7 @@ __ieee754_j1l (long double x) r *= x; return (x * 0.5 + r / s); } -strong_alias (__ieee754_j1l, __j1l_finite) +libm_alias_finite (__ieee754_j1l, __j1l) /* Y1(x) = 2/pi * (log(x) * j1(x) - 1/x) + x R(x^2) @@ -254,7 +255,7 @@ __ieee754_y1l (long double x) return (x * (u / v) + tpi * (__ieee754_j1l (x) * __ieee754_logl (x) - one / x)); } -strong_alias (__ieee754_y1l, __y1l_finite) +libm_alias_finite (__ieee754_y1l, __y1l) /* For x >= 8, the asymptotic expansions of pone is diff --git a/sysdeps/ieee754/ldbl-96/e_jnl.c b/sysdeps/ieee754/ldbl-96/e_jnl.c index 06aed7c..ee0eff8 100644 --- a/sysdeps/ieee754/ldbl-96/e_jnl.c +++ b/sysdeps/ieee754/ldbl-96/e_jnl.c @@ -62,6 +62,7 @@ #include <math_private.h> #include <fenv_private.h> #include <math-underflow.h> +#include <libm-alias-finite.h> static const long double invsqrtpi = 5.64189583547756286948079e-1L, two = 2.0e0L, one = 1.0e0L; @@ -301,7 +302,7 @@ __ieee754_jnl (int n, long double x) math_check_force_underflow (ret); return ret; } -strong_alias (__ieee754_jnl, __jnl_finite) +libm_alias_finite (__ieee754_jnl, __jnl) long double __ieee754_ynl (int n, long double x) @@ -407,4 +408,4 @@ __ieee754_ynl (int n, long double x) ret = copysignl (LDBL_MAX, ret) * LDBL_MAX; return ret; } -strong_alias (__ieee754_ynl, __ynl_finite) +libm_alias_finite (__ieee754_ynl, __ynl) diff --git a/sysdeps/ieee754/ldbl-96/e_lgammal_r.c b/sysdeps/ieee754/ldbl-96/e_lgammal_r.c index d280269..c6f0e77 100644 --- a/sysdeps/ieee754/ldbl-96/e_lgammal_r.c +++ b/sysdeps/ieee754/ldbl-96/e_lgammal_r.c @@ -94,6 +94,7 @@ #include <math.h> #include <math_private.h> #include <libc-diag.h> +#include <libm-alias-finite.h> static const long double half = 0.5L, @@ -436,4 +437,4 @@ __ieee754_lgammal_r (long double x, int *signgamp) DIAG_POP_NEEDS_COMMENT; return r; } -strong_alias (__ieee754_lgammal_r, __lgammal_r_finite) +libm_alias_finite (__ieee754_lgammal_r, __lgammal_r) diff --git a/sysdeps/ieee754/ldbl-96/e_sinhl.c b/sysdeps/ieee754/ldbl-96/e_sinhl.c index a4b3978..fcda8c6 100644 --- a/sysdeps/ieee754/ldbl-96/e_sinhl.c +++ b/sysdeps/ieee754/ldbl-96/e_sinhl.c @@ -40,6 +40,7 @@ static char rcsid[] = "$NetBSD: $"; #include <math.h> #include <math_private.h> #include <math-underflow.h> +#include <libm-alias-finite.h> static const long double one = 1.0, shuge = 1.0e4931L; @@ -85,4 +86,4 @@ __ieee754_sinhl(long double x) /* |x| > overflowthreshold, sinhl(x) overflow */ return x*shuge; } -strong_alias (__ieee754_sinhl, __sinhl_finite) +libm_alias_finite (__ieee754_sinhl, __sinhl) |