X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=src%2Fmath%2Fatan2l.c;h=0fc901c826f113b5e1b5a1ae1429b717e2520a09;hb=666271c105e4137bdfa195e217799d74143370d4;hp=64ec12e789a3f232468a948b97a3e3e734906365;hpb=b69f695acedd4ce2798ef9ea28d834ceccc789bd;p=musl diff --git a/src/math/atan2l.c b/src/math/atan2l.c index 64ec12e7..0fc901c8 100644 --- a/src/math/atan2l.c +++ b/src/math/atan2l.c @@ -24,19 +24,10 @@ long double atan2l(long double y, long double x) } #elif (LDBL_MANT_DIG == 64 || LDBL_MANT_DIG == 113) && LDBL_MAX_EXP == 16384 #include "__invtrigl.h" -static volatile long double +static const volatile long double tiny = 1.0e-300; static const long double -zero = 0.0; -/* XXX Work around the fact that gcc truncates long double constants on i386 */ -static volatile double -pi1 = 3.14159265358979311600e+00, /* 0x1.921fb54442d18p+1 */ -pi2 = 1.22514845490862001043e-16; /* 0x1.1a80000000000p-53 */ -#define pi ((long double)pi1 + pi2) -#if 0 -static const long double pi = 3.14159265358979323846264338327950280e+00L; -#endif long double atan2l(long double y, long double x) { @@ -83,8 +74,8 @@ long double atan2l(long double y, long double x) } } else { switch(m) { - case 0: return zero; /* atan(+...,+INF) */ - case 1: return -zero; /* atan(-...,+INF) */ + case 0: return 0.0; /* atan(+...,+INF) */ + case 1: return -0.0; /* atan(-...,+INF) */ case 2: return pi+tiny; /* atan(+...,-INF) */ case 3: return -pi-tiny; /* atan(-...,-INF) */ }