diff options
author | markd <markd@pkgsrc.org> | 2005-12-19 12:51:50 +0000 |
---|---|---|
committer | markd <markd@pkgsrc.org> | 2005-12-19 12:51:50 +0000 |
commit | fbb0eb779327ff1babbc9f796e109c6321e1d04d (patch) | |
tree | 361cca7443e57a8197af9f1dfc184e46a1f8bdeb /math/R | |
parent | 6cfe885697012243c00a1dcd2f6543a2dfadca83 (diff) | |
download | pkgsrc-fbb0eb779327ff1babbc9f796e109c6321e1d04d.tar.gz |
avoid computed static constant (which was in any case the wrong value)
in log1p(). From R svn. Should fix build on NetBSD-1.6.2.
Diffstat (limited to 'math/R')
-rw-r--r-- | math/R/distinfo | 3 | ||||
-rw-r--r-- | math/R/patches/patch-ae | 25 |
2 files changed, 27 insertions, 1 deletions
diff --git a/math/R/distinfo b/math/R/distinfo index 13f6f71605b..27fa61e389e 100644 --- a/math/R/distinfo +++ b/math/R/distinfo @@ -1,4 +1,4 @@ -$NetBSD: distinfo,v 1.27 2005/12/11 14:37:12 markd Exp $ +$NetBSD: distinfo,v 1.28 2005/12/19 12:51:50 markd Exp $ SHA1 (R-2.2.0.tar.gz) = ebaafa21036877b4ee3d4de9d85cce20f5cf9cbc RMD160 (R-2.2.0.tar.gz) = 9f54eb83c34565cbc483d2ffcc7dcae730ca674a @@ -7,4 +7,5 @@ SHA1 (patch-aa) = 52f7ca0159087a6a5f319dd5476223785fe75a7a SHA1 (patch-ab) = b724b549cd9920865c4d4ae60c71dff48c4c0c06 SHA1 (patch-ac) = ce9e1b9f3de07ea3724a1215cfe648770d5c09ca SHA1 (patch-ad) = 83c9b046822b1d350daec8739ca4ee2a6b7e1978 +SHA1 (patch-ae) = 1253bbd786dc912650598c4f11177de00a259fec SHA1 (patch-at) = d972e1072a7f6a30b5fbc2e5fa076bc5bdec5952 diff --git a/math/R/patches/patch-ae b/math/R/patches/patch-ae new file mode 100644 index 00000000000..3e01881b54d --- /dev/null +++ b/math/R/patches/patch-ae @@ -0,0 +1,25 @@ +$NetBSD: patch-ae,v 1.11 2005/12/19 12:51:50 markd Exp $ + +--- src/nmath/log1p.c.orig 2005-07-28 08:10:05.000000000 +1200 ++++ src/nmath/log1p.c +@@ -98,16 +98,17 @@ double log1p(double x) + -.33410026677731010351377066666666e-30, + +.63533936180236187354180266666666e-31, + }; +- const static double xmin = -1 + sqrt(1/DBL_EPSILON);/*was sqrt(d1mach(4)); */ + + #ifdef NOMORE_FOR_THREADS + static int nlnrel = 0; ++ static double xmin = 0.0; + +- if (nlnrel == 0) {/* initialize chebychev coefficients */ ++ if (xmin == 0.0) xmin = -1 + sqrt(DBL_EPSILON);/*was sqrt(d1mach(4)); */ ++ if (nlnrel == 0) /* initialize chebychev coefficients */ + nlnrel = chebyshev_init(alnrcs, 43, DBL_EPSILON/20);/*was .1*d1mach(3)*/ +- } + #else + # define nlnrel 22 ++ const static double xmin = -0.999999985; + /* 22: for IEEE double precision where DBL_EPSILON = 2.22044604925031e-16 */ + #endif + |