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