update from texinfo

[gnulib.git] / lib / acosl.c

diff --git a/lib/acosl.c b/lib/acosl.c
index 260a437..634c247 100644 (file)
--- a/lib/acosl.c
+++ b/lib/acosl.c
@@ -14,6 +14,19 @@
 /* Specification.  */
 #include <math.h>
 
+#if HAVE_SAME_LONG_DOUBLE_AS_DOUBLE
+
+long double
+acosl (long double x)
+{
+  return acos (x);
+}
+
+#else
+
+/* Code based on glibc/sysdeps/ieee754/ldbl-128/e_asinl.c
+   and           glibc/sysdeps/ieee754/ldbl-128/e_acosl.c.  */
+
 /*
   Long double expansions contributed by
   Stephen L. Moshier <moshier@na-net.ornl.gov>
@@ -186,6 +199,8 @@ acosl (long double x)
     return 2 * asinl (sqrtl ((1 - x) / 2));
 }
 
+#endif
+
 #if 0
 int
 main (void)