don't round to double-precision anymore, since libc got extended-precision
functions now. ok sthen@
This commit is contained in:
parent
e3eef1dd73
commit
7afa11a163
@ -1,10 +1,10 @@
|
||||
# $OpenBSD: Makefile,v 1.28 2008/07/26 14:59:45 martynas Exp $
|
||||
# $OpenBSD: Makefile,v 1.29 2008/09/10 20:50:31 martynas Exp $
|
||||
|
||||
SHARED_ONLY= Yes
|
||||
|
||||
COMMENT= clone of S, a powerful math/statistics/graphics language
|
||||
DISTNAME= R-2.6.2
|
||||
PKGNAME= ${DISTNAME}p2
|
||||
PKGNAME= ${DISTNAME}p3
|
||||
SHARED_LIBS= Rlapack 26.2 \
|
||||
Rblas 26.2
|
||||
|
||||
|
@ -1,12 +0,0 @@
|
||||
$OpenBSD: patch-src_nmath_dnbeta_c,v 1.1 2008/07/26 14:59:45 martynas Exp $
|
||||
--- src/nmath/dnbeta.c.orig Wed Sep 5 01:13:30 2007
|
||||
+++ src/nmath/dnbeta.c Sat Jul 26 13:56:45 2008
|
||||
@@ -79,7 +79,7 @@ double dnbeta(double x, double a, double b, double lam
|
||||
return dbeta(x, a, b, give_log);
|
||||
|
||||
term = dbeta(x, a, b, /* log = */ FALSE);
|
||||
- if(!R_FINITE(term)) /* in particular, if term = +Inf */
|
||||
+ if(!R_FINITE((double)term)) /* in particular, if term = +Inf */
|
||||
return R_D_val(term);
|
||||
lambda2 = 0.5 * lambda;
|
||||
weight = exp(- lambda2);
|
Loading…
Reference in New Issue
Block a user