summaryrefslogtreecommitdiff
path: root/math/R/patches/patch-src_nmath_dnbeta.c
blob: c66ef2d42f7700323205dc554445e9f6bebcb35c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
$NetBSD: patch-src_nmath_dnbeta.c,v 1.2 2013/12/15 19:58:11 asau Exp $

No logl() in NetBSD 6.x and FreeBSD 9.

--- src/nmath/dnbeta.c.orig	2013-03-05 23:02:41.000000000 +0000
+++ src/nmath/dnbeta.c
@@ -118,7 +118,7 @@ double dnbeta(double x, double a, double
 	sum += term;
     } while (term > sum * eps);
 
-#ifdef HAVE_LONG_DOUBLE
+#if defined(HAVE_LONG_DOUBLE) && ! defined(__NetBSD__) && ! defined(__FreeBSD__)
     return R_D_exp((double)(p_k + logl(sum)));
 #else
     return R_D_exp((double)(p_k + log(sum)));