blob: 1bc5b307e27f9dee004721d9f21208285d481a7b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
--- src/main/complex.c.orig 2017-03-27 22:15:12 UTC
+++ src/main/complex.c
@@ -133,7 +133,7 @@ static double complex mycpow (double com
} else if (yi == 0.0 && yr == (k = (int) yr) && abs(k) <= 65536)
Z = R_cpow_n(X, k);
else
-#ifdef HAVE_CPOW
+#if defined(HAVE_CPOW) && !defined(__FreeBSD__)
Z = cpow(X, Y);
#else
{
@@ -365,7 +365,7 @@ void attribute_hidden z_prec_r(Rcomplex
Currently (Feb 2011) they are used on FreeBSD.
*/
-#ifndef HAVE_CLOG
+#if !defined(HAVE_CLOG) || defined(__FreeBSD__)
#define clog R_clog
/* FIXME: maybe add full IEC60559 support */
static double complex clog(double complex x)
|
