X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;ds=sidebyside;f=src%2Fmath%2Flogbl.c;fp=src%2Fmath%2Flogbl.c;h=5d04abd764404dbb166ae01d18c25cba9b07d679;hb=b69f695acedd4ce2798ef9ea28d834ceccc789bd;hp=0000000000000000000000000000000000000000;hpb=d46cf2e14cc4df7cc75e77d7009fcb6df1f48a33;p=musl

diff --git a/src/math/logbl.c b/src/math/logbl.c
new file mode 100644
index 00000000..5d04abd7
--- /dev/null
+++ b/src/math/logbl.c
@@ -0,0 +1,19 @@
+#include <limits.h>
+#include "libm.h"
+#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
+long double logbl(long double x)
+{
+	return logb(x);
+}
+#else
+long double logbl(long double x)
+{
+	int i = ilogbl(x);
+
+	if (i == FP_ILOGB0)
+		return -1.0/fabsl(x);
+	if (i == FP_ILOGBNAN || i == INT_MAX)
+		return x * x;
+	return i;
+}
+#endif