[PATCH v1] CMPLX, CMPLXF, CMPLXL FreeBSD Numerics

[Vaibhav Gupta]

---
 newlib/libc/include/complex.h | 71 ++++++++++++++++++-----------------
 1 file changed, 37 insertions(+), 34 deletions(-)

diff --git a/newlib/libc/include/complex.h b/newlib/libc/include/complex.h
index 0a3ea97ed..0a9177971 100644
--- a/newlib/libc/include/complex.h
+++ b/newlib/libc/include/complex.h
@@ -1,4 +1,4 @@
-/* $NetBSD: complex.h,v 1.3 2010/09/15 16:11:30 christos Exp $ */
+/* $NetBSD: complex.h,v 1.4 2013/01/28 23:19:50 matt Exp $ */
 
 /*
  * Written by Matthias Drochner.
@@ -14,12 +14,30 @@
 
 #include <sys/cdefs.h>
 
+/*
+ * Complex functions mentioned in FreeBSD Numerics
+ * Ported from $FreeBSD: complex.h, Revision 336299
+ * Jul 15 00:23:10 2018 UTC (11 months, 3 weeks ago) by mmacy 
+ */
+#if __ISO_C_VISIBLE >= 2011
+#ifdef __clang__
+#define CMPLX(x, y)     ((double complex){ x, y })
+#define CMPLXF(x, y)    ((float complex){ x, y })
+#define CMPLXL(x, y)    ((long double complex){ x, y })
+#elif __GNUC_PREREQ__(4, 7)
+#define CMPLX(x, y)     __builtin_complex((double)(x), (double)(y))
+#define CMPLXF(x, y)    __builtin_complex((float)(x), (float)(y))
+#define CMPLXL(x, y)    __builtin_complex((long double)(x), (long double)(y))
+#endif
+#endif /* __ISO_C_VISIBLE >= 2011 */
+
 __BEGIN_DECLS
 
 /* 7.3.5 Trigonometric functions */
 /* 7.3.5.1 The cacos functions */
 double complex cacos(double complex);
 float complex cacosf(float complex);
+long double complex cacosl(long double complex);
 
 /* 7.3.5.2 The casin functions */
 double complex casin(double complex);
@@ -34,44 +52,54 @@ long double complex catanl(long double complex);
 /* 7.3.5.1 The ccos functions */
 double complex ccos(double complex);
 float complex ccosf(float complex);
+long double complex ccosl(long double complex);
 
 /* 7.3.5.1 The csin functions */
 double complex csin(double complex);
 float complex csinf(float complex);
+long double complex csinl(long double complex);
 
 /* 7.3.5.1 The ctan functions */
 double complex ctan(double complex);
 float complex ctanf(float complex);
+long double complex ctanl(long double complex);
 
 /* 7.3.6 Hyperbolic functions */
 /* 7.3.6.1 The cacosh functions */
 double complex cacosh(double complex);
 float complex cacoshf(float complex);
+long double complex cacoshl(long double complex);
 
 /* 7.3.6.2 The casinh functions */
 double complex casinh(double complex);
 float complex casinhf(float complex);
+long double complex casinhl(long double complex);
 
 /* 7.3.6.3 The catanh functions */
 double complex catanh(double complex);
 float complex catanhf(float complex);
+long double complex catanhl(long double complex);
 
 /* 7.3.6.4 The ccosh functions */
 double complex ccosh(double complex);
 float complex ccoshf(float complex);
+long double complex ccoshl(long double complex);
 
 /* 7.3.6.5 The csinh functions */
 double complex csinh(double complex);
 float complex csinhf(float complex);
+long double complex csinhl(long double complex);
 
 /* 7.3.6.6 The ctanh functions */
 double complex ctanh(double complex);
 float complex ctanhf(float complex);
+long double complex ctanhl(long double complex);
 
 /* 7.3.7 Exponential and logarithmic functions */
 /* 7.3.7.1 The cexp functions */
 double complex cexp(double complex);
 float complex cexpf(float complex);
+long double complex cexpl(long double complex);
 
 /* 7.3.7.2 The clog functions */
 double complex clog(double complex);
@@ -80,19 +108,17 @@ long double complex clogl(long double complex);
 
 /* 7.3.8 Power and absolute-value functions */
 /* 7.3.8.1 The cabs functions */
-/*#ifndef __LIBM0_SOURCE__ */
+#ifndef __LIBM0_SOURCE__
 /* avoid conflict with historical cabs(struct complex) */
-/* double cabs(double complex) __RENAME(__c99_cabs);
-   float cabsf(float complex) __RENAME(__c99_cabsf);
-   #endif
-*/
-long double cabsl(long double complex) ;
-double cabs(double complex) ;
-float cabsf(float complex) ;
+double cabs(double complex) __RENAME(__c99_cabs);
+float cabsf(float complex) __RENAME(__c99_cabsf);
+long double cabsl(long double complex) __RENAME(__c99_cabsl);
+#endif
 
 /* 7.3.8.2 The cpow functions */
 double complex cpow(double complex, double complex);
 float complex cpowf(float complex, float complex);
+long double complex cpowl(long double complex, long double complex);
 
 /* 7.3.8.3 The csqrt functions */
 double complex csqrt(double complex);
@@ -113,41 +139,18 @@ long double cimagl(long double complex);
 /* 7.3.9.3 The conj functions */
 double complex conj(double complex);
 float complex conjf(float complex);
+long double complex conjl(long double complex);
 
 /* 7.3.9.4 The cproj functions */
 double complex cproj(double complex);
 float complex cprojf(float complex);
+long double complex cprojl(long double complex);
 
 /* 7.3.9.5 The creal functions */
 double creal(double complex);
 float crealf(float complex);
 long double creall(long double complex);
 
-#if __GNU_VISIBLE
-double complex clog10(double complex);
-float complex clog10f(float complex);
-#endif
-
-#if defined(__CYGWIN__)
-long double complex cacosl(long double complex);
-long double complex ccosl(long double complex);
-long double complex csinl(long double complex);
-long double complex ctanl(long double complex);
-long double complex cacoshl(long double complex);
-long double complex casinhl(long double complex);
-long double complex catanhl(long double complex);
-long double complex ccoshl(long double complex);
-long double complex csinhl(long double complex);
-long double complex ctanhl(long double complex);
-long double complex cexpl(long double complex);
-long double complex cpowl(long double complex, long double complex);
-long double complex conjl(long double complex);
-long double complex cprojl(long double complex);
-#if __GNU_VISIBLE
-long double complex clog10l(long double complex);
-#endif
-#endif /* __CYGWIN__ */
-
 __END_DECLS
 
 #endif	/* ! _COMPLEX_H */
-- 
2.21.0