X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lib%2Ftanl.c;h=07fbc09451a17ae4d4239b0d021083d63884b88b;hb=28805c10858cd92365be6f74113da8d4939c3dca;hp=51262f0d85eef55f6c71aab7ef527c8bfccc6636;hpb=441aa3044f43e5572f58c354f01e6bc070acd5c7;p=gnulib.git

diff --git a/lib/tanl.c b/lib/tanl.c
index 51262f0d8..07fbc0945 100644
--- a/lib/tanl.c
+++ b/lib/tanl.c
@@ -50,11 +50,6 @@
  */
 
 #include "trigl.h"
-#ifdef HAVE_SINL
-#ifdef HAVE_COSL
-#include "trigl.c"
-#endif
-#endif
 
 /*
  * ====================================================
@@ -120,7 +115,7 @@ static const long double
   /* 1.000000000000000000000000000000000000000E0 */
 
 
-long double
+static long double
 kernel_tanl (long double x, long double y, int iy)
 {
   long double z, r, v, w, s, u, u1;
@@ -217,12 +212,12 @@ tanl (long double x)
 int
 main (void)
 {
-  printf ("%.16Lg\n", tanl(0.7853981633974483096156608458198757210492));
-  printf ("%.16Lg\n", tanl(-0.7853981633974483096156608458198757210492));
-  printf ("%.16Lg\n", tanl(0.7853981633974483096156608458198757210492 *3));
-  printf ("%.16Lg\n", tanl(-0.7853981633974483096156608458198757210492 *31));
-  printf ("%.16Lg\n", tanl(0.7853981633974483096156608458198757210492 / 2));
-  printf ("%.16Lg\n", tanl(0.7853981633974483096156608458198757210492 * 3/2));
-  printf ("%.16Lg\n", tanl(0.7853981633974483096156608458198757210492 * 5/2));
+  printf ("%.16Lg\n", tanl (0.7853981633974483096156608458198757210492));
+  printf ("%.16Lg\n", tanl (-0.7853981633974483096156608458198757210492));
+  printf ("%.16Lg\n", tanl (0.7853981633974483096156608458198757210492 *3));
+  printf ("%.16Lg\n", tanl (-0.7853981633974483096156608458198757210492 *31));
+  printf ("%.16Lg\n", tanl (0.7853981633974483096156608458198757210492 / 2));
+  printf ("%.16Lg\n", tanl (0.7853981633974483096156608458198757210492 * 3/2));
+  printf ("%.16Lg\n", tanl (0.7853981633974483096156608458198757210492 * 5/2));
 }
 #endif