From 99bd612913ce8770196ac6296288b038c5f2ea7e Mon Sep 17 00:00:00 2001 From: Bruno Haible Date: Wed, 29 Feb 2012 12:30:07 +0100 Subject: [PATCH] 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. --- ChangeLog | 14 ++++++++++++++ lib/acosl.c | 3 +++ lib/asinl.c | 2 ++ lib/atanl.c | 2 ++ lib/cosl.c | 8 +++++--- lib/expl.c | 2 ++ lib/logl.c | 2 ++ lib/sincosl.c | 4 ++++ lib/sinl.c | 4 +++- lib/tanl.c | 3 +++ lib/trigl.c | 3 +++ 11 files changed, 43 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 306a47b575..b418b2c492 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,17 @@ +2012-02-29 Bruno Haible + + 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 math: Ensure HUGE_VAL, HUGE_VALF, HUGE_VALL are defined. diff --git a/lib/acosl.c b/lib/acosl.c index c864631377..634c247dd6 100644 --- a/lib/acosl.c +++ b/lib/acosl.c @@ -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 diff --git a/lib/asinl.c b/lib/asinl.c index 6e4368db28..c7ba71df88 100644 --- a/lib/asinl.c +++ b/lib/asinl.c @@ -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 diff --git a/lib/atanl.c b/lib/atanl.c index 4d09c2f205..88284a6719 100644 --- a/lib/atanl.c +++ b/lib/atanl.c @@ -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 diff --git a/lib/cosl.c b/lib/cosl.c index a3eaf3947f..d4485480f6 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. diff --git a/lib/expl.c b/lib/expl.c index c70f445aeb..59cd6c378a 100644 --- a/lib/expl.c +++ b/lib/expl.c @@ -33,6 +33,8 @@ expl (long double x) #else +/* Code based on glibc/sysdeps/ieee754/ldbl-128/e_expl.c. */ + # include static const long double C[] = { diff --git a/lib/logl.c b/lib/logl.c index 42c50cb1ac..84e355029e 100644 --- a/lib/logl.c +++ b/lib/logl.c @@ -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. diff --git a/lib/sincosl.c b/lib/sincosl.c index c8e32b5274..1ada34a836 100644 --- a/lib/sincosl.c +++ b/lib/sincosl.c @@ -24,6 +24,10 @@ #include #include +/* 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 */ diff --git a/lib/sinl.c b/lib/sinl.c index 3949e49e91..ba53a4b832 100644 --- a/lib/sinl.c +++ b/lib/sinl.c @@ -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. diff --git a/lib/tanl.c b/lib/tanl.c index e5efb06211..ae70884c71 100644 --- a/lib/tanl.c +++ b/lib/tanl.c @@ -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. * diff --git a/lib/trigl.c b/lib/trigl.c index c5f298446c..45a7a8b23b 100644 --- a/lib/trigl.c +++ b/lib/trigl.c @@ -24,6 +24,9 @@ #include #include +/* 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, -- 2.39.5