X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lib%2Fatanl.c;h=88284a67195a329847da18f2f75a57d1a12fd30b;hb=96f023c5e537dd4afbdb294de7065f65effe3eb2;hp=22a882d4d31a378469dd377d72ef4d5970d4c9cb;hpb=441aa3044f43e5572f58c354f01e6bc070acd5c7;p=gnulib.git

diff --git a/lib/atanl.c b/lib/atanl.c
index 22a882d4d..88284a671 100644
--- a/lib/atanl.c
+++ b/lib/atanl.c
@@ -18,6 +18,18 @@
 /* Specification.  */
 #include <math.h>
 
+#if HAVE_SAME_LONG_DOUBLE_AS_DOUBLE
+
+long double
+atanl (long double x)
+{
+  return atan (x);
+}
+
+#else
+
+/* Code based on glibc/sysdeps/ieee754/ldbl-128/s_atanl.c.  */
+
 /*                                                      s_atanl.c
  *
  *      Inverse circular tangent for 128-bit long double precision
@@ -222,3 +234,5 @@ atanl (long double x)
   else
     return u;
 }
+
+#endif