fluencelabs/musl
1
0
Fork 0
mirror of https://github.com/fluencelabs/musl synced 2025-07-01 07:32:04 +00:00
Code Issues Projects Releases Wiki Activity

math: sin cos cleanup

Browse Source 
* use unsigned arithmetics
* use unsigned to store arg reduction quotient (so n&3 is understood)
* remove z=0.0 variables, use literal 0
* raise underflow and inexact exceptions properly when x is small
* fix spurious underflow in tanl
This commit is contained in:
Szabolcs Nagy
2013-05-18 14:40:22 +00:00
parent 1d5ba3bb5a
commit bfda379358
10 changed files with 128 additions and 112 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
src/math/cosl.c
View File

@ -39,30 +39,30 @@ long double cosl(long double x) {
long double cosl(long double x)
{
union IEEEl2bits z;
int e0;
unsigned n;
long double y[2];
long double hi, lo;
z.e = x;
z.bits.sign = 0;
/* If x = +-0 or x is a subnormal number, then cos(x) = 1 */
if (z.bits.exp == 0)
return 1.0;
/* If x = NaN or Inf, then cos(x) = NaN. */
if (z.bits.exp == 32767)
if (z.bits.exp == 0x7fff)
return (x - x) / (x - x);
/* Optimize the case where x is already within range. */
if (z.e < M_PI_4)
/* |x| < (double)pi/4 */
if (z.e < M_PI_4) {
/* |x| < 0x1p-64 */
if (z.bits.exp < 0x3fff - 64)
/* raise inexact if x!=0 */
return 1.0 + x;
return __cosl(z.e, 0);
}
e0 = __rem_pio2l(x, y);
n = __rem_pio2l(x, y);
hi = y[0];
lo = y[1];
switch (e0 & 3) {
switch (n & 3) {
case 0:
hi = __cosl(hi, lo);
break;