diff options
| author | Rich Felker <dalias@aerifal.cx> | 2013-05-18 12:06:42 -0400 |
|---|---|---|
| committer | Rich Felker <dalias@aerifal.cx> | 2013-05-18 12:06:42 -0400 |
| commit | 83af1dd65a11f3da3f99ba861248a841c402ccaa (patch) | |
| tree | dece0960d64fb52abcf7a8195bf5082523cea70b /src/math/cos.c | |
| parent | 69ee9b2cb169ee843ac9e209f919d088499152f7 (diff) | |
| parent | bfda37935867f9bf271d6074db0accf05c63ad10 (diff) | |
| download | musl-83af1dd65a11f3da3f99ba861248a841c402ccaa.tar.gz | |
Merge remote-tracking branch 'nsz/review'
Diffstat (limited to 'src/math/cos.c')
| -rw-r--r-- | src/math/cos.c | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/src/math/cos.c b/src/math/cos.c index 76990e7f..ee97f68b 100644 --- a/src/math/cos.c +++ b/src/math/cos.c @@ -44,26 +44,28 @@ double cos(double x) { - double y[2],z=0.0; - int32_t n, ix; + double y[2]; + uint32_t ix; + unsigned n; GET_HIGH_WORD(ix, x); + ix &= 0x7fffffff; /* |x| ~< pi/4 */ - ix &= 0x7fffffff; if (ix <= 0x3fe921fb) { - if (ix < 0x3e46a09e) /* if x < 2**-27 * sqrt(2) */ - /* raise inexact if x != 0 */ - if ((int)x == 0) - return 1.0; - return __cos(x, z); + if (ix < 0x3e46a09e) { /* |x| < 2**-27 * sqrt(2) */ + /* raise inexact if x!=0 */ + FORCE_EVAL(x + 0x1p120f); + return 1.0; + } + return __cos(x, 0); } /* cos(Inf or NaN) is NaN */ if (ix >= 0x7ff00000) return x-x; - /* argument reduction needed */ + /* argument reduction */ n = __rem_pio2(x, y); switch (n&3) { case 0: return __cos(y[0], y[1]); |