diff options
| author | bde <bde@FreeBSD.org> | 1995-04-07 23:13:43 +0000 |
|---|---|---|
| committer | bde <bde@FreeBSD.org> | 1995-04-07 23:13:43 +0000 |
| commit | 07041fdd38a0577516d33c770844fec7c65e4129 (patch) | |
| tree | 037e8fa74f65a19743edad442935491db87d33d8 /lib/msun/src | |
| parent | 396f9f47ef553c86b7c60952cb8738a57b38c823 (diff) | |
| download | FreeBSD-src-07041fdd38a0577516d33c770844fec7c65e4129.zip FreeBSD-src-07041fdd38a0577516d33c770844fec7c65e4129.tar.gz | |
Submitted by: J.T. Conklin <jtc@wimsey.com>
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.
Diffstat (limited to 'lib/msun/src')
| -rw-r--r-- | lib/msun/src/e_jn.c | 4 | ||||
| -rw-r--r-- | lib/msun/src/e_jnf.c | 4 |
2 files changed, 4 insertions, 4 deletions
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)); |
