diff options
| author | Christopher Faylor <me@cgf.cx> | 2004-02-11 00:47:52 +0000 |
|---|---|---|
| committer | Christopher Faylor <me@cgf.cx> | 2004-02-11 00:47:52 +0000 |
| commit | 0ccf5430f2abac4a7d4242dfb309c5fb27b4f79d (patch) | |
| tree | ea7f491a21c73b8d0afa07eec451c88c00dff7ed | |
| parent | 6dbfb93a04322cfb0320210b7a6c0bbd8c36548b (diff) | |
| download | newlib-0ccf5430f2abac4a7d4242dfb309c5fb27b4f79d.zip newlib-0ccf5430f2abac4a7d4242dfb309c5fb27b4f79d.tar.gz newlib-0ccf5430f2abac4a7d4242dfb309c5fb27b4f79d.tar.bz2 | |
* 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.
| -rw-r--r-- | newlib/ChangeLog | 7 | ||||
| -rw-r--r-- | newlib/libm/mathfp/er_gamma.c | 5 | ||||
| -rw-r--r-- | newlib/libm/mathfp/er_lgamma.c | 6 | ||||
| -rw-r--r-- | newlib/libm/mathfp/erf_gamma.c | 7 | ||||
| -rw-r--r-- | newlib/libm/mathfp/erf_lgamma.c | 5 |
5 files changed, 29 insertions, 1 deletions
diff --git a/newlib/ChangeLog b/newlib/ChangeLog index 6e298d1..9b2e13e 100644 --- a/newlib/ChangeLog +++ b/newlib/ChangeLog @@ -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> * libc/include/time.h (TIMER_RELTIME): New define. diff --git a/newlib/libm/mathfp/er_gamma.c b/newlib/libm/mathfp/er_gamma.c index 63758bb..0060ed0 100644 --- a/newlib/libm/mathfp/er_gamma.c +++ b/newlib/libm/mathfp/er_gamma.c @@ -30,3 +30,8 @@ { return exp (lgamma_r(x,signgamp)); } + +double gamma(double x) +{ + return gamma_r(x, &(_REENT_SIGNGAM(_REENT))); +} diff --git a/newlib/libm/mathfp/er_lgamma.c b/newlib/libm/mathfp/er_lgamma.c index 65d6002..fd49c25 100644 --- a/newlib/libm/mathfp/er_lgamma.c +++ b/newlib/libm/mathfp/er_lgamma.c @@ -422,3 +422,9 @@ static double zero= 0.00000000000000000000e+00; if(hx<0) r = nadj - r; return r; } + +double +lgamma(double x) +{ + return lgamma_r(x, &(_REENT_SIGNGAM(_REENT))); +} diff --git a/newlib/libm/mathfp/erf_gamma.c b/newlib/libm/mathfp/erf_gamma.c index 16be0d0..246645d 100644 --- a/newlib/libm/mathfp/erf_gamma.c +++ b/newlib/libm/mathfp/erf_gamma.c @@ -16,7 +16,7 @@ /* gammaf_r(x, signgamp) * 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 */ @@ -32,3 +32,8 @@ { return expf (lgammaf_r(x,signgamp)); } + +float gammaf(float x) +{ + return gammaf_r(x, &(_REENT_SIGNGAM(_REENT))); +} diff --git a/newlib/libm/mathfp/erf_lgamma.c b/newlib/libm/mathfp/erf_lgamma.c index 64bec0a..4f09214 100644 --- a/newlib/libm/mathfp/erf_lgamma.c +++ b/newlib/libm/mathfp/erf_lgamma.c @@ -244,3 +244,8 @@ static float zero= 0.0000000000e+00; if(hx<0) r = nadj - r; return r; } + +float lgammaf(float x) +{ + return lgammaf_r(x, &(_REENT_SIGNGAM(_REENT))); +} |