drew
/
acadia-newlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* 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.
This commit is contained in:
Thomas Fitzsimmons 2002-06-27 20:25:57 +00:00
parent baf051ca35
commit c36e6dd754
5 changed files with 48 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
newlib/ChangeLog
View File

@ -1,3 +1,10 @@
2002-06-27 Thomas Fitzsimmons <fitzsim@redhat.com>
* 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.
2002-06-27 Jeff Johnston <jjohnstn@redhat.com> 2002-06-27 Jeff Johnston <jjohnstn@redhat.com>
* libc/sys/linux/Makefile.am: Add new clock routines. * libc/sys/linux/Makefile.am: Add new clock routines.

14
newlib/libm/mathfp/er_lgamma.c
View File

@ -285,7 +285,7 @@ static double zero= 0.00000000000000000000e+00;
GET_HIGH_WORD(ix,x); GET_HIGH_WORD(ix,x);
ix &= 0x7fffffff; ix &= 0x7fffffff;
if(ix<0x3fd00000) return __kernel_sin(pi*x,zero,0); if(ix<0x3fd00000) return sin(pi*x);
y = -x; /* x is assume negative */ y = -x; /* x is assume negative */
/* /*
@ -309,14 +309,14 @@ static double zero= 0.00000000000000000000e+00;
} }
} }
switch (n) { switch (n) {
case 0: y = __kernel_sin(pi*y,zero,0); break; case 0: y = sin(pi*y); break;
case 1: case 1:
case 2: y = __kernel_cos(pi*(0.5-y),zero); break; case 2: y = cos(pi*(0.5-y)); break;
case 3: case 3:
case 4: y = __kernel_sin(pi*(one-y),zero,0); break; case 4: y = sin(pi*(one-y)); break;
case 5: case 5:
case 6: y = -__kernel_cos(pi*(y-1.5),zero); break; case 6: y = -cos(pi*(y-1.5)); break;
default: y = __kernel_sin(pi*(y-2.0),zero,0); break; default: y = sin(pi*(y-2.0)); break;
} }
return -y; return -y;
} }
@ -332,6 +332,8 @@ static double zero= 0.00000000000000000000e+00;
double t,y,z,nadj,p,p1,p2,p3,q,r,w; double t,y,z,nadj,p,p1,p2,p3,q,r,w;
__int32_t i,hx,lx,ix; __int32_t i,hx,lx,ix;
nadj = 0;
EXTRACT_WORDS(hx,lx,x); EXTRACT_WORDS(hx,lx,x);
/* purge off +-inf, NaN, +-0, and negative arguments */ /* purge off +-inf, NaN, +-0, and negative arguments */

16
newlib/libm/mathfp/erf_lgamma.c
View File

@ -107,7 +107,7 @@ static float zero= 0.0000000000e+00;
GET_FLOAT_WORD(ix,x); GET_FLOAT_WORD(ix,x);
ix &= 0x7fffffff; 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 */ y = -x; /* x is assume negative */
/* /*
@ -131,14 +131,14 @@ static float zero= 0.0000000000e+00;
} }
} }
switch (n) { switch (n) {
case 0: y = __kernel_sinf(pi*y,zero,0); break; case 0: y = sinf(pi*y); break;
case 1: 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 3:
case 4: y = __kernel_sinf(pi*(one-y),zero,0); break; case 4: y = sinf(pi*(one-y)); break;
case 5: case 5:
case 6: y = -__kernel_cosf(pi*(y-(float)1.5),zero); break; case 6: y = -cosf(pi*(y-(float)1.5)); break;
default: y = __kernel_sinf(pi*(y-(float)2.0),zero,0); break; default: y = sinf(pi*(y-(float)2.0)); break;
} }
return -y; return -y;
} }
@ -156,7 +156,9 @@ static float zero= 0.0000000000e+00;
GET_FLOAT_WORD(hx,x); 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; *signgamp = 1;
ix = hx&0x7fffffff; ix = hx&0x7fffffff;
if(ix>=0x7f800000) return x*x; if(ix>=0x7f800000) return x*x;

15
newlib/libm/mathfp/s_tgamma.c
View File

@ -16,6 +16,7 @@
*/ */
#include <math.h> #include <math.h>
#include <errno.h>
#ifdef __STDC__ #ifdef __STDC__
double tgamma(double x) double tgamma(double x)
@ -26,7 +27,7 @@
{ {
double y; double y;
int local_signgam; int local_signgam;
y = __ieee754_gamma_r(x,&local_signgam); y = gamma_r(x,&local_signgam);
if (local_signgam < 0) y = -y; if (local_signgam < 0) y = -y;
#ifdef _IEEE_LIBM #ifdef _IEEE_LIBM
return y; return y;
@ -35,9 +36,17 @@
if(!finite(y)&&finite(x)) { if(!finite(y)&&finite(x)) {
if(floor(x)==x&&x<=0.0) if(floor(x)==x&&x<=0.0)
return __kernel_standard(x,x,41); /* tgamma pole */ {
/* tgamma pole */
errno = EDOM;
return HUGE_VAL;
}
else else
return __kernel_standard(x,x,40); /* tgamma overflow */ {
/* tgamma overflow */
errno = ERANGE;
return HUGE_VAL;
}
} }
return y; return y;
#endif #endif

17
newlib/libm/mathfp/sf_tgamma.c
View File

@ -14,6 +14,7 @@
*/ */
#include <math.h> #include <math.h>
#include <errno.h>
#ifdef __STDC__ #ifdef __STDC__
float tgammaf(float x) float tgammaf(float x)
@ -24,7 +25,7 @@
{ {
float y; float y;
int local_signgam; int local_signgam;
y = __ieee754_gammaf_r(x,&local_signgam); y = gammaf_r(x,&local_signgam);
if (local_signgam < 0) y = -y; if (local_signgam < 0) y = -y;
#ifdef _IEEE_LIBM #ifdef _IEEE_LIBM
return y; return y;
@ -33,11 +34,17 @@
if(!finitef(y)&&finitef(x)) { if(!finitef(y)&&finitef(x)) {
if(floorf(x)==x&&x<=(float)0.0) if(floorf(x)==x&&x<=(float)0.0)
/* tgammaf pole */ {
return (float)__kernel_standard((double)x,(double)x,141); /* tgammaf pole */
errno = EDOM;
return HUGE_VAL;
}
else else
/* tgammaf overflow */ {
return (float)__kernel_standard((double)x,(double)x,140); /* tgammaf overflow */
errno = ERANGE;
return HUGE_VAL;
}
} }
return y; return y;
#endif #endif