From de7db6e927e568c52eaffeb51d7726a094ed0180 Mon Sep 17 00:00:00 2001 From: Rich Felker Date: Fri, 16 Mar 2012 21:16:32 -0400 Subject: fix namespace issues for lgamma, etc. standard functions cannot depend on nonstandard symbols --- src/math/lgammal.c | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) (limited to 'src/math/lgammal.c') 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); -- cgit v1.2.1