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/tanq.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/tanq.c')
| -rw-r--r-- | libquadmath/math/tanq.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/libquadmath/math/tanq.c b/libquadmath/math/tanq.c index c490c6a..e1ec6aa 100644 --- a/libquadmath/math/tanq.c +++ b/libquadmath/math/tanq.c @@ -31,7 +31,7 @@ License along with this library; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ -/* __kernel_tanq( x, y, k ) +/* __quadmath_kernel_tanq( x, y, k ) * kernel tan function on [-pi/4, pi/4], pi/4 ~ 0.7854 * Input x is assumed to be bounded by ~pi/4 in magnitude. * Input y is the tail of x. @@ -84,7 +84,7 @@ static const __float128 static __float128 -__kernel_tanq (__float128 x, __float128 y, int iy) +__quadmath_kernel_tanq (__float128 x, __float128 y, int iy) { __float128 z, r, v, w, s; int32_t ix, sign = 1; @@ -218,7 +218,7 @@ tanq (__float128 x) /* |x| ~< pi/4 */ ix &= 0x7fffffffffffffffLL; - if(ix <= 0x3ffe921fb54442d1LL) return __kernel_tanq(x,z,1); + if(ix <= 0x3ffe921fb54442d1LL) return __quadmath_kernel_tanq(x,z,1); /* tanl(Inf or NaN) is NaN */ else if (ix>=0x7fff000000000000LL) { @@ -230,8 +230,8 @@ tanq (__float128 x) /* argument reduction needed */ else { - n = rem_pio2q(x,y); - return __kernel_tanq(y[0],y[1],1-((n&1)<<1)); /* 1 -- n even - -1 -- n odd */ + n = __quadmath_rem_pio2q(x,y); + /* 1 -- n even, -1 -- n odd */ + return __quadmath_kernel_tanq(y[0],y[1],1-((n&1)<<1)); } } |