projects
/
musl
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
asm for log functions
[musl]
/
src
/
math
/
lgammal.c
diff --git
a/src/math/lgammal.c
b/src/math/lgammal.c
index
a33707a
..
ec7c9a0
100644
(file)
--- a/
src/math/lgammal.c
+++ b/
src/math/lgammal.c
@@
-88,15
+88,10
@@
#define _GNU_SOURCE
#include "libm.h"
#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
#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
}
#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;
}
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;
long double t, y, z, nadj, p, p1, p2, q, r, w;
int i, ix;
uint32_t se, i0, i1;
@@
-392,3
+387,12
@@
long double lgammal_r(long double x, int *sg) {
return r;
}
#endif
return r;
}
#endif
+
+extern int __signgam;
+
+long double lgammal(long double x)
+{
+ return __lgammal_r(x, &__signgam);
+}
+
+weak_alias(__lgammal_r, lgammal_r);