From 0ccf5430f2abac4a7d4242dfb309c5fb27b4f79d Mon Sep 17 00:00:00 2001
From: Christopher Faylor <me@cgf.cx>
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/er_lgamma.c | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'newlib/libm/mathfp/er_lgamma.c')

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)));
+}
-- 
cgit v1.2.3