From a384fa77082e93b172f129e249b7489ad0c493ad Mon Sep 17 00:00:00 2001 From: Ulrich Drepper Date: Wed, 2 Jun 1999 11:53:21 +0000 Subject: Update. 1999-06-02 Andreas Jaeger * sysdeps/libm-ieee754/e_j0.c (__ieee754_y0): Fix array indices. Patch by mhagger@dera.gov.uk [PR libc/1145]. * math/libm-test.c (y1_test): New tests. (y0_test): Likewise. (j1_test): Likewise. (j0_test): Likewise. (main): Added new tests. 1999-06-02 Jakub Jelinek --- sysdeps/libm-ieee754/e_j0.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'sysdeps') diff --git a/sysdeps/libm-ieee754/e_j0.c b/sysdeps/libm-ieee754/e_j0.c index ff4c73b..55e8294 100644 --- a/sysdeps/libm-ieee754/e_j0.c +++ b/sysdeps/libm-ieee754/e_j0.c @@ -234,9 +234,9 @@ V[] = {1.27304834834123699328e-02, /* 0x3F8A1270, 0x91C9C71A */ u2 = U[2]+z*U[3]; z4=z2*z2; u3 = U[4]+z*U[5]; z6=z4*z2; u = u1 + z2*u2 + z4*u3 + z6*U[6]; - v1 = one+z*V[1]; - v2 = V[2]+z*V[3]; - v = v1 + z2*v2 + z4*V[4]; + v1 = one+z*V[0]; + v2 = V[1]+z*V[2]; + v = v1 + z2*v2 + z4*V[3]; #endif return(u/v + tpi*(__ieee754_j0(x)*__ieee754_log(x))); } -- cgit v1.1