From 07041fdd38a0577516d33c770844fec7c65e4129 Mon Sep 17 00:00:00 2001 From: bde Date: Fri, 7 Apr 1995 23:13:43 +0000 Subject: Submitted by: J.T. Conklin First part of update to fdlibm 5.2: fix jn(n, x) and jnf(n, x). jn(-1, x) was too large by a factor of 3. --- lib/msun/src/e_jn.c | 4 ++-- lib/msun/src/e_jnf.c | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'lib/msun/src') diff --git a/lib/msun/src/e_jn.c b/lib/msun/src/e_jn.c index 4b8b55d..b064149 100644 --- a/lib/msun/src/e_jn.c +++ b/lib/msun/src/e_jn.c @@ -11,7 +11,7 @@ */ #ifndef lint -static char rcsid[] = "$Id: e_jn.c,v 1.6 1994/08/18 23:05:37 jtc Exp $"; +static char rcsid[] = "$Id: e_jn.c,v 1.1.1.1 1994/08/19 09:39:44 jkh Exp $"; #endif /* @@ -238,7 +238,7 @@ static double zero = 0.00000000000000000000e+00; sign = 1; if(n<0){ n = -n; - sign = 1 - ((n&1)<<2); + sign = 1 - ((n&1)<<1); } if(n==0) return(__ieee754_y0(x)); if(n==1) return(sign*__ieee754_y1(x)); diff --git a/lib/msun/src/e_jnf.c b/lib/msun/src/e_jnf.c index edca14a..4662bce 100644 --- a/lib/msun/src/e_jnf.c +++ b/lib/msun/src/e_jnf.c @@ -14,7 +14,7 @@ */ #ifndef lint -static char rcsid[] = "$Id: e_jnf.c,v 1.2 1994/08/18 23:05:39 jtc Exp $"; +static char rcsid[] = "$Id: e_jnf.c,v 1.1.1.1 1994/08/19 09:39:55 jkh Exp $"; #endif #include "math.h" @@ -192,7 +192,7 @@ static float zero = 0.0000000000e+00; sign = 1; if(n<0){ n = -n; - sign = 1 - ((n&1)<<2); + sign = 1 - ((n&1)<<1); } if(n==0) return(__ieee754_y0f(x)); if(n==1) return(sign*__ieee754_y1f(x)); -- cgit v1.1