X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=lib%2Facosl.c;h=634c247dd658c8717b0c99f39794c494ba706ce0;hb=96f023c5e537dd4afbdb294de7065f65effe3eb2;hp=260a4370eb89462f1594576968071cafb991dca7;hpb=aeb898d88cddc17cefc7738940b4917e9ee27933;p=gnulib.git

diff --git a/lib/acosl.c b/lib/acosl.c
index 260a4370e..634c247dd 100644
--- 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)