[PATCH v2] CMPLX, CMPLXF, CMPLXL FreeBSD Numerics

[Vaibhav Gupta]

---
 newlib/libc/include/complex.h | 47 +++++++++++++++++++++++++++++------
 1 file changed, 40 insertions(+), 7 deletions(-)

diff --git a/newlib/libc/include/complex.h b/newlib/libc/include/complex.h
index 0a3ea97ed..7ae41c46b 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,22 @@ 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
+ float cabsf(float complex) __RENAME(__c99_cabsf);
+ long double cabsl(long double complex) __RENAME(__c99_cabsl);
+ #endif
 */
-long double cabsl(long double complex) ;
-double cabs(double complex) ;
-float cabsf(float complex) ;
+
+double cabs(double complex);
+float cabsf(float complex);
+long double cabsl(long double complex);
 
 /* 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,10 +144,12 @@ 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);
-- 
2.21.0