Update.

2001-11-26  Stephen L Moshier <moshier@mediaone.net>

	* sysdeps/ieee754/ldbl-128/e_log10l.c (L102B): Fix typo in
	initialization.

	* sysdeps/ieee754/ldbl-128/e_coshl.c (__ieee754_coshl): Remove
	unused variables.  Fix threshold for returning 1.0.

	* sysdeps/ieee754/ldbl-128/e_lgammal_r.c (neval, deval): Constify
	argument.

	* sysdeps/ieee754/ldbl-128/s_erfl.c (neval, deval): Likewise, and
	remove unused variables.

	* sysdeps/ieee754/ldbl-128/e_j0l.c (neval, deval): Likewise.

	* sysdeps/ieee754/ldbl-128/e_j1l.c (neval, deval): Likewise, and
	include local math header files.

1 files changed, 5 insertions, 5 deletions

diff --git a/sysdeps/ieee754/ldbl-128/s_erfl.c b/sysdeps/ieee754/ldbl-128/s_erfl.c
index efa0e8fcb3..ef8eea6875 100644
--- a/sysdeps/ieee754/ldbl-128/s_erfl.c
+++ b/sysdeps/ieee754/ldbl-128/s_erfl.c
@@ -84,7 +84,7 @@
 /* Evaluate P[n] x^n  +  P[n-1] x^(n-1)  +  ...  +  P[0] */
 
 static long double
-neval (long double x, long double *p, int n)
+neval (long double x, const long double *p, int n)
 {
   long double y;
 
@@ -102,7 +102,7 @@ neval (long double x, long double *p, int n)
 /* Evaluate x^n+1  +  P[n] x^(n)  +  P[n-1] x^(n-1)  +  ...  +  P[0] */
 
 static long double
-deval (long double x, long double *p, int n)
+deval (long double x, const long double *p, int n)
 {
   long double y;
 
@@ -746,7 +746,7 @@ __erfl (x)
 #endif
 {
   long double a, y, z;
-  int32_t i, ix, sign, flag;
+  int32_t i, ix, sign;
   ieee854_long_double_shape_type u;
 
   u.value = x;
@@ -804,8 +804,8 @@ weak_alias (__erf, erfl)
        x;
 #endif
 {
-  long double P, Q, s, y, z, p, r;
-  int32_t i, ix, sign, flag;
+  long double y, z, p, r;
+  int32_t i, ix, sign;
   ieee854_long_double_shape_type u;
 
   u.value = x;