diff options
| author | Tobias Burnus <burnus@net-b.de> | 2010-12-13 20:44:38 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2010-12-13 20:44:38 +0100 |
| commit | f0c2df63c64cb18ff1e8be7d0042108efd6483b3 (patch) | |
| tree | dcd344482f53be11c8fdb8b5221713e795bf5b1f /libquadmath/math/rem_pio2q.c | |
| parent | c58bb30d66b333fc184a6b53ae9479e4aaeae8c4 (diff) | |
| download | gcc-f0c2df63c64cb18ff1e8be7d0042108efd6483b3.zip gcc-f0c2df63c64cb18ff1e8be7d0042108efd6483b3.tar.gz gcc-f0c2df63c64cb18ff1e8be7d0042108efd6483b3.tar.bz2 | |
re PR fortran/46625 (libquadmath: Mangle internal symbols; rename __float128 <-> string functions)
2010-12-13 Tobias Burnus <burnus@net-b.de>
PR fortran/46625
* gdtoa/gdtoaimp.h: Mangle internal functions by
prefixing them with __quadmath. Don't use gdtoa's strcp(y).
* gdtoa/g_Qfmt.c (g_Qfmt): Use strcpy instead of strcp.
* gdtoa/misc.c (strcpy): Renamed from strcp and only use
if NO_STRING_H is set.
* quadmath-imp.h (__quadmath_rem_pio2q,
* __quadmath_kernel_sincosq
__quadmath_kernel_sinq, __quadmath_kernel_cosq): Added
__quadmath prefix to internal functions.
* math/cosq.c (cosq): Ditto.
* math/sinq.c (cosq): Ditto.
* math/tanq.c (tanq,__quadmath_kernel_tanq): Ditto.
* math/rem_pio2q.c (rem_pio2, __quadmath_kernel_rem_pio2):
* Ditto.
* math/sinq_kernel.c (__quadmath_kernel_sinq): Ditto.
* math/cosq_kernel.c (__quadmath_kernel_cosq): Ditto.
From-SVN: r167768
Diffstat (limited to 'libquadmath/math/rem_pio2q.c')
| -rw-r--r-- | libquadmath/math/rem_pio2q.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/libquadmath/math/rem_pio2q.c b/libquadmath/math/rem_pio2q.c index db0059d..a1c0b83 100644 --- a/libquadmath/math/rem_pio2q.c +++ b/libquadmath/math/rem_pio2q.c @@ -151,7 +151,7 @@ static const double static int -__kernel_rem_pio2 (double *x, double *y, int e0, int nx, int prec, const int32_t *ipio2) +__quadmath_kernel_rem_pio2 (double *x, double *y, int e0, int nx, int prec, const int32_t *ipio2) { int32_t jz,jx,jv,jp,jk,carry,n,iq[20],i,j,k,m,q0,ih; double z,fw,f[20],fq[20],q[20]; @@ -500,7 +500,7 @@ static const __float128 c[] = { int32_t -rem_pio2q (__float128 x, __float128 *y) +__quadmath_rem_pio2q (__float128 x, __float128 *y) { __float128 z, w, t; double tx[8]; @@ -557,8 +557,9 @@ rem_pio2q (__float128 x, __float128 *y) tx [3] = (double)((lx >> 17) & 0xffffff); tx [4] = (double)((lx << 7) & 0xffffff); - n = __kernel_rem_pio2 (tx, tx + 5, exp, ((lx << 7) & 0xffffff) ? 5 : 4, - 3, two_over_pi); + n = __quadmath_kernel_rem_pio2 (tx, tx + 5, exp, + ((lx << 7) & 0xffffff) ? 5 : 4, + 3, two_over_pi); /* The result is now stored in 3 double values, we need to convert it into two __float128 values. */ |