X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=src%2Fmath%2Flog1pl.c;h=141b5f0b0c295a38d7ab1e1793bdbe2ec35fa2ae;hb=c5f4b2dfea320356f69445dc1adf8f73596a3c36;hp=edb48df1cd9c0ea5bdfb937f377654304651e4c4;hpb=8bb181622222f2ee3462c8b021bcae4fcdbbd37a;p=musl

diff --git a/src/math/log1pl.c b/src/math/log1pl.c
index edb48df1..141b5f0b 100644
--- a/src/math/log1pl.c
+++ b/src/math/log1pl.c
@@ -118,7 +118,7 @@ long double log1pl(long double xm1)
 	/* Test for domain errors.  */
 	if (x <= 0.0) {
 		if (x == 0.0)
-			return -1/x; /* -inf with divbyzero */
+			return -1/(x*x); /* -inf with divbyzero */
 		return 0/0.0f; /* nan with invalid */
 	}
 
@@ -168,4 +168,10 @@ long double log1pl(long double xm1)
 	z = z + e * C1;
 	return z;
 }
+#elif LDBL_MANT_DIG == 113 && LDBL_MAX_EXP == 16384
+// TODO: broken implementation to make things compile
+long double log1pl(long double x)
+{
+	return log1p(x);
+}
 #endif