diff options
| author | Andreas Jaeger <aj@suse.de> | 2001-11-26 08:05:53 +0000 |
|---|---|---|
| committer | Andreas Jaeger <aj@suse.de> | 2001-11-26 08:05:53 +0000 |
| commit | 60a06b7ce15c3fd911c59693ee24fda12404f3a7 (patch) | |
| tree | e1a7c69715a316fc852702877aadc135e445bd47 /sysdeps/ieee754/ldbl-128/s_erfl.c | |
| parent | 9992bc08aa26c1cf00f6dad46c5be8e56265aa21 (diff) | |
| download | glibc-60a06b7ce15c3fd911c59693ee24fda12404f3a7.tar glibc-60a06b7ce15c3fd911c59693ee24fda12404f3a7.tar.gz glibc-60a06b7ce15c3fd911c59693ee24fda12404f3a7.tar.bz2 glibc-60a06b7ce15c3fd911c59693ee24fda12404f3a7.zip | |
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.
Diffstat (limited to 'sysdeps/ieee754/ldbl-128/s_erfl.c')
| -rw-r--r-- | sysdeps/ieee754/ldbl-128/s_erfl.c | 10 |
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; |