JehanneOS/newlib
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* libm/mathfp/er_gamma.c (gamma): Add new non-reentrant function.

Browse Source 
* libm/mathfp/er_lgamma.c (lgamma): Ditto.
* libm/mathfp/erf_gamma.c (gammaf): Ditto.
* libm/mathfp/erf_lgamma.c (lgammaf): Ditto.
This commit is contained in:
Christopher Faylor 2004-02-11 00:47:52 +00:00
parent 6dbfb93a04
commit 0ccf5430f2
5 changed files with 29 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
newlib/ChangeLog
View File

@ -1,3 +1,10 @@
2004-02-10 Christopher Faylor <cgf@redhat.com>
* libm/mathfp/er_gamma.c (gamma): Add new non-reentrant function.
* libm/mathfp/er_lgamma.c (lgamma): Ditto.
* libm/mathfp/erf_gamma.c (gammaf): Ditto.
* libm/mathfp/erf_lgamma.c (lgammaf): Ditto.
2004-02-09 Christopher Faylor <cgf@redhat.com> 2004-02-09 Christopher Faylor <cgf@redhat.com>
* libc/include/time.h (TIMER_RELTIME): New define. * libc/include/time.h (TIMER_RELTIME): New define.

5
newlib/libm/mathfp/er_gamma.c
View File

@ -30,3 +30,8 @@
{ {
return exp (lgamma_r(x,signgamp)); return exp (lgamma_r(x,signgamp));
} }
double gamma(double x)
{
return gamma_r(x, &(_REENT_SIGNGAM(_REENT)));
}

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

@ -422,3 +422,9 @@ static double zero= 0.00000000000000000000e+00;
if(hx<0) r = nadj - r; if(hx<0) r = nadj - r;
return r; return r;
} }
double
lgamma(double x)
{
return lgamma_r(x, &(_REENT_SIGNGAM(_REENT)));
}

7
newlib/libm/mathfp/erf_gamma.c
View File

@ -16,7 +16,7 @@
/* gammaf_r(x, signgamp) /* gammaf_r(x, signgamp)
* Reentrant version of the logarithm of the Gamma function * Reentrant version of the logarithm of the Gamma function
* with user provide pointer for the sign of Gamma(x). * with user provided pointer for the sign of Gamma(x).
* *
* Method: See lgammaf_r * Method: See lgammaf_r
*/ */
@ -32,3 +32,8 @@
{ {
return expf (lgammaf_r(x,signgamp)); return expf (lgammaf_r(x,signgamp));
} }
float gammaf(float x)
{
return gammaf_r(x, &(_REENT_SIGNGAM(_REENT)));
}

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

@ -244,3 +244,8 @@ static float zero= 0.0000000000e+00;
if(hx<0) r = nadj - r; if(hx<0) r = nadj - r;
return r; return r;
} }
float lgammaf(float x)
{
return lgammaf_r(x, &(_REENT_SIGNGAM(_REENT)));
}