summaryrefslogtreecommitdiff
path: root/src/math/lgammal.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/math/lgammal.c')
-rw-r--r--src/math/lgammal.c10
1 files changed, 8 insertions, 2 deletions
diff --git a/src/math/lgammal.c b/src/math/lgammal.c
index 55ec5325..2b354a7c 100644
--- a/src/math/lgammal.c
+++ b/src/math/lgammal.c
@@ -340,9 +340,16 @@ long double __lgammal_r(long double x, int *sg) {
r = nadj - r;
return r;
}
+#elif LDBL_MANT_DIG == 113 && LDBL_MAX_EXP == 16384
+// TODO: broken implementation to make things compile
+double __lgamma_r(double x, int *sg);
+
+long double __lgammal_r(long double x, int *sg)
+{
+ return __lgamma_r(x, sg);
+}
#endif
-#if (LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024) || (LDBL_MANT_DIG == 64 && LDBL_MAX_EXP == 16384)
extern int __signgam;
long double lgammal(long double x)
@@ -351,4 +358,3 @@ long double lgammal(long double x)
}
weak_alias(__lgammal_r, lgammal_r);
-#endif