]> Savannah Git Hosting - gnulib.git/commitdiff
math code: Add comments.
authorBruno Haible <bruno@clisp.org>
Wed, 29 Feb 2012 11:30:07 +0000 (12:30 +0100)
committerBruno Haible <bruno@clisp.org>
Wed, 29 Feb 2012 11:30:07 +0000 (12:30 +0100)
* lib/acosl.c: Add comment about related glibc source files.
* lib/asinl.c: Likewise.
* lib/atanl.c: Likewise.
* lib/expl.c: Likewise.
* lib/logl.c: Likewise.
* lib/sincosl.c: Likewise.
* lib/sinl.c: Likewise.
* lib/tanl.c: Likewise.
* lib/trigl.c: Likewise.
* lib/cosl.c: Likewise. Fix comments.

ChangeLog
lib/acosl.c
lib/asinl.c
lib/atanl.c
lib/cosl.c
lib/expl.c
lib/logl.c
lib/sincosl.c
lib/sinl.c
lib/tanl.c
lib/trigl.c

index 306a47b5758923c62fdae382ed646d623cb56d19..b418b2c4929efcd4c757dad9e33f6972d821a1c1 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,17 @@
+2012-02-29  Bruno Haible  <bruno@clisp.org>
+
+       math code: Add comments.
+       * lib/acosl.c: Add comment about related glibc source files.
+       * lib/asinl.c: Likewise.
+       * lib/atanl.c: Likewise.
+       * lib/expl.c: Likewise.
+       * lib/logl.c: Likewise.
+       * lib/sincosl.c: Likewise.
+       * lib/sinl.c: Likewise.
+       * lib/tanl.c: Likewise.
+       * lib/trigl.c: Likewise.
+       * lib/cosl.c: Likewise. Fix comments.
+
 2012-02-28  Bruno Haible  <bruno@clisp.org>
 
        math: Ensure HUGE_VAL, HUGE_VALF, HUGE_VALL are defined.
index c8646313772ee672f99e781620fed5e3a29c3912..634c247dd658c8717b0c99f39794c494ba706ce0 100644 (file)
@@ -24,6 +24,9 @@ acosl (long double 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>
index 6e4368db281e13f39757e9199bf17b81a2730620..c7ba71df88fc4e988bff450a0e6e3d037a960aad 100644 (file)
@@ -24,6 +24,8 @@ asinl (long double x)
 
 #else
 
+/* Code based on glibc/sysdeps/ieee754/ldbl-128/e_asinl.c.  */
+
 /*
   Long double expansions contributed by
   Stephen L. Moshier <moshier@na-net.ornl.gov>
index 4d09c2f2050c4f770b22336ceb1014a84d160fb0..88284a67195a329847da18f2f75a57d1a12fd30b 100644 (file)
@@ -28,6 +28,8 @@ atanl (long double 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
index a3eaf3947f30685a9d8ea886874ae1884e0707d1..d4485480f6b276ab8e47ea445d8a3e686ce8e844 100644 (file)
@@ -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.
index c70f445aeb2f51af0a20c0cca989f4039c871107..59cd6c378ad7eab05b927aa4078380d164b7fba0 100644 (file)
@@ -33,6 +33,8 @@ expl (long double x)
 
 #else
 
+/* Code based on glibc/sysdeps/ieee754/ldbl-128/e_expl.c.  */
+
 # include <float.h>
 
 static const long double C[] = {
index 42c50cb1ac1a23a3758522c90dfa4ccb41d9b598..84e355029e29b2c56789f15480910edd7ececbb1 100644 (file)
@@ -28,6 +28,8 @@ logl (long double x)
 
 #else
 
+/* Code based on glibc/sysdeps/ieee754/ldbl-128/e_logl.c.  */
+
 /*                                                      logll.c
  *
  * Natural logarithm for 128-bit long double precision.
index c8e32b5274e59e67be92821d793635c09e2b81d0..1ada34a8368dd9105c011f617d9f26ee2aead9d8 100644 (file)
 #include <float.h>
 #include <math.h>
 
+/* Code based on glibc/sysdeps/ieee754/ldbl-128/k_sincosl.c
+   or            glibc/sysdeps/ieee754/ldbl-128/k_{sin,cos}l.c
+   and           glibc/sysdeps/ieee754/ldbl-128/t_sincosl.c.  */
+
 static const long double sin_c[] = {
 #define ONE sin_c[0]
   1.00000000000000000000000000000000000E+00L,   /* 3fff0000000000000000000000000000 */
index 3949e49e913756d95b8e9042147902631fcc71d0..ba53a4b832a9d59f19ddf32c6ab3d9256b506ac5 100644 (file)
@@ -28,12 +28,14 @@ sinl (long double x)
 
 #else
 
+/* Code based on glibc/sysdeps/ieee754/ldbl-128/s_sinl.c.  */
+
 /* sinl(x)
  * Return sine 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.
index e5efb062119e1ed6bb1db07cacecb11e38de5291..ae70884c711137540da57c22eea47f28bf359ce5 100644 (file)
@@ -29,6 +29,9 @@ tanl (long double x)
 
 #else
 
+/* Code based on glibc/sysdeps/ieee754/ldbl-128/s_tanl.c
+   and           glibc/sysdeps/ieee754/ldbl-128/k_tanl.c.  */
+
 /* tanl(x)
  * Return tangent function of x.
  *
index c5f298446c3df487490742e1701408ce09d7a78f..45a7a8b23b72fa7c880db45914946f36cdc34685 100644 (file)
@@ -24,6 +24,9 @@
 #include <float.h>
 #include <math.h>
 
+/* Code based on glibc/sysdeps/ieee754/ldbl-128/e_rem_pio2l.c
+   and           glibc/sysdeps/ieee754/dbl-64/k_rem_pio2.c.  */
+
 /* Table of constants for 2/pi, 5628 hexadecimal digits of 2/pi */
 static const int two_over_pi[] = {
   0xa2f983, 0x6e4e44, 0x1529fc, 0x2757d1, 0xf534dd, 0xc0db62,