From 0ccf5430f2abac4a7d4242dfb309c5fb27b4f79d Mon Sep 17 00:00:00 2001 From: Christopher Faylor Date: Wed, 11 Feb 2004 00:47:52 +0000 Subject: * 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. --- newlib/libm/mathfp/erf_gamma.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'newlib/libm/mathfp/erf_gamma.c') diff --git a/newlib/libm/mathfp/erf_gamma.c b/newlib/libm/mathfp/erf_gamma.c index 16be0d040..246645d25 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))); +} -- cgit v1.2.3