X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=lib%2Fcosl.c;h=d4485480f6b276ab8e47ea445d8a3e686ce8e844;hb=23eecb48e39afd0d267d64d40ba6bf97aa865e13;hp=a3eaf3947f30685a9d8ea886874ae1884e0707d1;hpb=fa11421b5098e20c33003e3f3375b830524c717a;p=gnulib.git

diff --git a/lib/cosl.c b/lib/cosl.c
index a3eaf3947..d4485480f 100644
--- a/lib/cosl.c
+++ b/lib/cosl.c
@@ -28,12 +28,14 @@ cosl (long double x)
 
 #else
 
-/* sinl(x)
- * Return sine function of x.
+/* Code based on glibc/sysdeps/ieee754/ldbl-128/s_cosl.c.  */
+
+/* cosl(x)
+ * Return cosine function of x.
  *
  * kernel function:
  *      __kernel_sinl           ... sine function on [-pi/4,pi/4]
- *      __kernel_cosl           ... cose function on [-pi/4,pi/4]
+ *      __kernel_cosl           ... cosine function on [-pi/4,pi/4]
  *      __ieee754_rem_pio2l     ... argument reduction routine
  *
  * Method.