Welcome to mirror list, hosted at ThFree Co, Russian Federation.

cygwin.com/git/newlib-cygwin.git - Unnamed repository; edit this file 'description' to name the repository.
summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Faylor <me@cgf.cx>2004-02-11 03:47:52 +0300
committerChristopher Faylor <me@cgf.cx>2004-02-11 03:47:52 +0300
commit0ccf5430f2abac4a7d4242dfb309c5fb27b4f79d (patch)
treeea7f491a21c73b8d0afa07eec451c88c00dff7ed /newlib/libm
parent6dbfb93a04322cfb0320210b7a6c0bbd8c36548b (diff)
* 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.
Diffstat (limited to 'newlib/libm')
-rw-r--r--newlib/libm/mathfp/er_gamma.c5
-rw-r--r--newlib/libm/mathfp/er_lgamma.c6
-rw-r--r--newlib/libm/mathfp/erf_gamma.c7
-rw-r--r--newlib/libm/mathfp/erf_lgamma.c5
4 files changed, 22 insertions, 1 deletions
diff --git a/newlib/libm/mathfp/er_gamma.c b/newlib/libm/mathfp/er_gamma.c
index 63758bb43..0060ed031 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 65d60026e..fd49c252e 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 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)));
+}
diff --git a/newlib/libm/mathfp/erf_lgamma.c b/newlib/libm/mathfp/erf_lgamma.c
index 64bec0aca..4f092147b 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)));
+}