X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=src%2Fmath%2Fexpl.c;h=b62980fa4065f3043f57a76eeb9b4ad9f93c0c28;hb=a7dbcf5c8ca7edb7a46eb276031ad1df4131135b;hp=50a04297c22826ded4f022abd5282691bdeedae1;hpb=e93a0fe49dcc2ff9728faa8920df75009b9f46dc;p=musl

diff --git a/src/math/expl.c b/src/math/expl.c
index 50a04297..b62980fa 100644
--- a/src/math/expl.c
+++ b/src/math/expl.c
@@ -100,7 +100,7 @@ long double expl(long double x)
 	if (x > 11356.5234062941439488L) /* x > ln(2^16384 - 0.5) */
 		return x * 0x1p16383L;
 	if (x < -11399.4985314888605581L) /* x < ln(2^-16446) */
-		return 0x1p-10000L * 0x1p-10000L;
+		return -0x1p-16445L/x;
 
 	/* Express e**x = e**f 2**k
 	 *   = e**(f + k ln(2))