diff options
author | Thomas Fitzsimmons <fitzsim@redhat.com> | 2002-06-27 20:25:57 +0000 |
---|---|---|
committer | Thomas Fitzsimmons <fitzsim@redhat.com> | 2002-06-27 20:25:57 +0000 |
commit | c36e6dd754453b8f57767b19c58d2f832bac8bb0 (patch) | |
tree | 84759888d3048b553ba863df9d06c27b8e6cb8e5 /newlib/libm/mathfp/erf_lgamma.c | |
parent | baf051ca35b40c73e98f4b5246be50209cd966a6 (diff) | |
download | cygnal-c36e6dd754453b8f57767b19c58d2f832bac8bb0.tar.gz cygnal-c36e6dd754453b8f57767b19c58d2f832bac8bb0.tar.bz2 cygnal-c36e6dd754453b8f57767b19c58d2f832bac8bb0.zip |
* libm/mathfp/er_lgamma.c: Remove __kernel references.
* libm/mathfp/erf_lgamma.c: Likewise.
* libm/mathfp/s_tgamma.c: Likewise.
* libm/mathfp/sf_tgamma.c: Likewise.
Diffstat (limited to 'newlib/libm/mathfp/erf_lgamma.c')
-rw-r--r-- | newlib/libm/mathfp/erf_lgamma.c | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/newlib/libm/mathfp/erf_lgamma.c b/newlib/libm/mathfp/erf_lgamma.c index 664812d81..64bec0aca 100644 --- a/newlib/libm/mathfp/erf_lgamma.c +++ b/newlib/libm/mathfp/erf_lgamma.c @@ -107,7 +107,7 @@ static float zero= 0.0000000000e+00; GET_FLOAT_WORD(ix,x); ix &= 0x7fffffff; - if(ix<0x3e800000) return __kernel_sinf(pi*x,zero,0); + if(ix<0x3e800000) return sinf(pi*x); y = -x; /* x is assume negative */ /* @@ -131,14 +131,14 @@ static float zero= 0.0000000000e+00; } } switch (n) { - case 0: y = __kernel_sinf(pi*y,zero,0); break; + case 0: y = sinf(pi*y); break; case 1: - case 2: y = __kernel_cosf(pi*((float)0.5-y),zero); break; + case 2: y = cosf(pi*((float)0.5-y)); break; case 3: - case 4: y = __kernel_sinf(pi*(one-y),zero,0); break; + case 4: y = sinf(pi*(one-y)); break; case 5: - case 6: y = -__kernel_cosf(pi*(y-(float)1.5),zero); break; - default: y = __kernel_sinf(pi*(y-(float)2.0),zero,0); break; + case 6: y = -cosf(pi*(y-(float)1.5)); break; + default: y = sinf(pi*(y-(float)2.0)); break; } return -y; } @@ -156,7 +156,9 @@ static float zero= 0.0000000000e+00; GET_FLOAT_WORD(hx,x); - /* purge off +-inf, NaN, +-0, and negative arguments */ + nadj = 0; + + /* purge off +-inf, NaN, +-0, and negative arguments */ *signgamp = 1; ix = hx&0x7fffffff; if(ix>=0x7f800000) return x*x; |