diff options
Diffstat (limited to 'sysdeps/ieee754/dbl-64')
| -rw-r--r-- | sysdeps/ieee754/dbl-64/s_atan.c | 10 | ||||
| -rw-r--r-- | sysdeps/ieee754/dbl-64/s_tan.c | 10 |
2 files changed, 14 insertions, 6 deletions
diff --git a/sysdeps/ieee754/dbl-64/s_atan.c b/sysdeps/ieee754/dbl-64/s_atan.c index 3641a35ce1..fdc3bf7e25 100644 --- a/sysdeps/ieee754/dbl-64/s_atan.c +++ b/sysdeps/ieee754/dbl-64/s_atan.c @@ -61,7 +61,7 @@ __signArctan (double x, double y) /* An ultimate atan() routine. Given an IEEE double machine number x, */ /* routine computes the correctly rounded (to nearest) value of atan(x). */ double -atan (double x) +__atan (double x) { double cor, s1, ss1, s2, ss2, t1, t2, t3, t7, t8, t9, t10, u, u2, u3, v, vv, w, ww, y, yy, z, zz; @@ -323,6 +323,10 @@ atanMp (double x, const int pr[]) return y1; /*if impossible to do exact computing */ } -#ifdef NO_LONG_DOUBLE -weak_alias (atan, atanl) +#ifndef __atan +weak_alias (__atan, atan) +# ifdef NO_LONG_DOUBLE +strong_alias (__atan, __atanl) +weak_alias (__atanl, atanl) +# endif #endif diff --git a/sysdeps/ieee754/dbl-64/s_tan.c b/sysdeps/ieee754/dbl-64/s_tan.c index b2a8681a6d..feec826237 100644 --- a/sysdeps/ieee754/dbl-64/s_tan.c +++ b/sysdeps/ieee754/dbl-64/s_tan.c @@ -53,7 +53,7 @@ void __mptan (double, mp_no *, int); double SECTION -tan (double x) +__tan (double x) { #include "utan.h" #include "utan.tbl" @@ -843,6 +843,10 @@ tanMp (double x) return y; } -#ifdef NO_LONG_DOUBLE -weak_alias (tan, tanl) +#ifndef __tan +weak_alias (__tan, tan) +# ifdef NO_LONG_DOUBLE +strong_alias (__tan, __tanl) +weak_alias (__tanl, tanl) +# endif #endif |