forked from pool/glibc
Andreas Schwab
06e272ed76
- sin-sign.patch: Fix sign of input to bsloww1 (BZ #16623) - pldd-wait-ptrace-stop.patch: Update from upstream OBS-URL: https://build.opensuse.org/request/show/223957 OBS-URL: https://build.opensuse.org/package/show/Base:System/glibc?expand=0&rev=336
55 lines
1.2 KiB
Diff
55 lines
1.2 KiB
Diff
Index: glibc-2.19/sysdeps/ieee754/dbl-64/s_sin.c
|
|
===================================================================
|
|
--- glibc-2.19.orig/sysdeps/ieee754/dbl-64/s_sin.c
|
|
+++ glibc-2.19/sysdeps/ieee754/dbl-64/s_sin.c
|
|
@@ -447,19 +447,21 @@ __sin (double x)
|
|
}
|
|
else
|
|
{
|
|
+ double t;
|
|
if (a > 0)
|
|
{
|
|
m = 1;
|
|
+ t = a;
|
|
db = da;
|
|
}
|
|
else
|
|
{
|
|
m = 0;
|
|
- a = -a;
|
|
+ t = -a;
|
|
db = -da;
|
|
}
|
|
- u.x = big + a;
|
|
- y = a - (u.x - big);
|
|
+ u.x = big + t;
|
|
+ y = t - (u.x - big);
|
|
res = do_sin (u, y, db, &cor);
|
|
cor = (cor > 0) ? 1.035 * cor + eps : 1.035 * cor - eps;
|
|
retval = ((res == res + cor) ? ((m) ? res : -res)
|
|
@@ -671,19 +673,21 @@ __cos (double x)
|
|
}
|
|
else
|
|
{
|
|
+ double t;
|
|
if (a > 0)
|
|
{
|
|
m = 1;
|
|
+ t = a;
|
|
db = da;
|
|
}
|
|
else
|
|
{
|
|
m = 0;
|
|
- a = -a;
|
|
+ t = -a;
|
|
db = -da;
|
|
}
|
|
- u.x = big + a;
|
|
- y = a - (u.x - big);
|
|
+ u.x = big + t;
|
|
+ y = t - (u.x - big);
|
|
res = do_sin (u, y, db, &cor);
|
|
cor = (cor > 0) ? 1.035 * cor + eps : 1.035 * cor - eps;
|
|
retval = ((res == res + cor) ? ((m) ? res : -res)
|