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/e_j1l.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/e_j1l.c')
| -rw-r--r-- | sysdeps/ieee754/ldbl-128/e_j1l.c | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/sysdeps/ieee754/ldbl-128/e_j1l.c b/sysdeps/ieee754/ldbl-128/e_j1l.c index ad899be3de..052f2c18eb 100644 --- a/sysdeps/ieee754/ldbl-128/e_j1l.c +++ b/sysdeps/ieee754/ldbl-128/e_j1l.c @@ -81,11 +81,8 @@ /* Copyright 2001 by Stephen L. Moshier (moshier@na-net.onrl.gov). */ -extern long double fabsl (long double); -extern long double cosl (long double); -extern long double sinl (long double); -extern long double sqrtl (long double); -extern long double logl (long double); +#include "math.h" +#include "math_private.h" /* 1 / sqrt(pi) */ static const long double ONEOSQPI = 5.6418958354775628694807945156077258584405E-1L; @@ -634,7 +631,7 @@ static const long double Q2_2r3D[NQ2_2r3D + 1] = { /* 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; @@ -652,7 +649,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; |