Files

21 lines
636 B
C
Raw Permalink Normal View History

2017-07-04 17:07:44 +00:00
--- 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)