log10l: Work around AIX 5.1, IRIX 6.5, OSF/1 5.1 bug.

[gnulib.git] / lib / log10l.c

diff --git a/lib/log10l.c b/lib/log10l.c
index ecaacb2..f108538 100644 (file)
--- a/lib/log10l.c
+++ b/lib/log10l.c
@@ -27,6 +27,19 @@ log10l (long double x)
   return log10 (x);
 }
 
+#elif HAVE_LOG10L
+
+long double
+log10l (long double x)
+# undef log10l
+{
+  /* Work around the OSF/1 5.1 bug.  */
+  if (x == 0.0L)
+    /* Return -Infinity.  */
+    return -1.0L / 0.0L;
+  return log10l (x);
+}
+
 #else
 
 /* 1 / log(10) */