diff options
Diffstat (limited to 'src/math/lgammal.c')
| -rw-r--r-- | src/math/lgammal.c | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/src/math/lgammal.c b/src/math/lgammal.c index a33707ad..5dd851a6 100644 --- a/src/math/lgammal.c +++ b/src/math/lgammal.c @@ -88,15 +88,10 @@ #define _GNU_SOURCE #include "libm.h" -long double lgammal(long double x) -{ - return lgammal_r(x, &signgam); -} - #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024 -long double lgammal_r(long double x, int *sg) +long double __lgammal_r(long double x, int *sg) { - return lgamma_r(x, sg); + return __lgamma_r(x, sg); } #elif LDBL_MANT_DIG == 64 && LDBL_MAX_EXP == 16384 static const long double @@ -266,7 +261,7 @@ static long double sin_pi(long double x) return -y; } -long double lgammal_r(long double x, int *sg) { +long double __lgammal_r(long double x, int *sg) { long double t, y, z, nadj, p, p1, p2, q, r, w; int i, ix; uint32_t se, i0, i1; @@ -392,3 +387,10 @@ long double lgammal_r(long double x, int *sg) { return r; } #endif + +long double lgammal(long double x) +{ + return __lgammal_r(x, &signgam); +} + +weak_alias(__lgammal_r, lgammal_r); |