newlib: libm: skip "long double" complex functions if long double != double

The rest of "long double" functions aren't compiled with long double
and double are not the same.  Do the same for all complex functions.

Signed-off-by: Pietro Monteiro <pietro@sociotechnical.xyz>

diff --git a/newlib/libm/complex/cargl.c b/newlib/libm/complex/cargl.c
index 790cffe8f2c7c8db94293fce8e1fdfe2af47e8e9..9560cce6e72a0cb2fb30bf877a309b3e0ea8184e 100644 (file)
--- a/newlib/libm/complex/cargl.c
+++ b/newlib/libm/complex/cargl.c
@@ -7,12 +7,11 @@
 #include <complex.h>
 #include <math.h>
 
+/* On platforms where long double is as wide as double.  */
+#ifdef _LDBL_EQ_DBL
 long double
 cargl(long double complex z)
-{     
-       #ifdef _LDBL_EQ_DBL
+{
          return carg (z);
-       #else
-         return atan2l (cimagl (z), creall (z));
-       #endif
 }
+#endif

diff --git a/newlib/libm/complex/catanl.c b/newlib/libm/complex/catanl.c
index 13839ac73bb6ce76a9408fd5bc1b0f89892f2ed5..4575623c28b591c3a29a0217dcf6842a43ad8b88 100644 (file)
--- a/newlib/libm/complex/catanl.c
+++ b/newlib/libm/complex/catanl.c
@@ -33,6 +33,8 @@
 #include <math.h>
 #include "cephes_subrl.h"
 
+/* On platforms where long double is as wide as double.  */
+#ifdef _LDBL_EQ_DBL
 #ifdef __weak_alias
 __weak_alias(catanl, _catanl)
 #endif
@@ -72,4 +74,4 @@ ovrf:
        w = HUGE_VALL + HUGE_VALL * I;
        return w;
 }
-
+#endif

diff --git a/newlib/libm/complex/ccoshl.c b/newlib/libm/complex/ccoshl.c
index f59fadf7a18d34950379f70ddbb07dc847d55a39..0c54fd1b3ebedb219bc45791435d0097b98f1ffb 100644 (file)
--- a/newlib/libm/complex/ccoshl.c
+++ b/newlib/libm/complex/ccoshl.c
@@ -32,6 +32,8 @@
 #include <complex.h>
 #include <math.h>
 
+/* On platforms where long double is as wide as double.  */
+#ifdef _LDBL_EQ_DBL
 long double complex
 ccoshl(long double complex z)
 {
@@ -43,3 +45,4 @@ ccoshl(long double complex z)
        w = coshl(x) * cosl(y) + (sinhl(x) * sinl(y)) * I;
        return w;
 }
+#endif

diff --git a/newlib/libm/complex/ccosl.c b/newlib/libm/complex/ccosl.c
index c310f4024a5e5940820b5b0f636c33ee2e30c04b..a7619f3eca6c8c298a2d206c61ec4a236f626c22 100644 (file)
--- a/newlib/libm/complex/ccosl.c
+++ b/newlib/libm/complex/ccosl.c
@@ -33,6 +33,8 @@
 #include <math.h>
 #include "cephes_subrl.h"
 
+/* On platforms where long double is as wide as double.  */
+#ifdef _LDBL_EQ_DBL
 long double complex
 ccosl(long double complex z)
 {
@@ -43,3 +45,4 @@ ccosl(long double complex z)
        w = cosl(creall(z)) * ch - (sinl(creall(z)) * sh) * I;
        return w;
 }
+#endif

diff --git a/newlib/libm/complex/cephes_subrl.c b/newlib/libm/complex/cephes_subrl.c
index 8af11df76c8a3908bde131100bfa43f8ca6f51f0..1d6d1b527702c6f272938d09d465c58b8bcfd23c 100644 (file)
--- a/newlib/libm/complex/cephes_subrl.c
+++ b/newlib/libm/complex/cephes_subrl.c
@@ -35,6 +35,8 @@
 
 /* calculate cosh and sinh */
 
+/* On platforms where long double is as wide as double.  */
+#ifdef _LDBL_EQ_DBL
 void
 _cchshl(long double x, long double *c, long double *s)
 {
@@ -51,6 +53,7 @@ _cchshl(long double x, long double *c, long double *s)
                *c = e + ei;
        }
 }
+#endif
 
 /* Program to subtract nearest integer multiple of PI */
 
@@ -85,6 +88,8 @@ _redupil(long double x)
 
 /* Taylor series expansion for cosh(2y) - cos(2x) */
 
+/* On platforms where long double is as wide as double.  */
+#ifdef _LDBL_EQ_DBL
 long double
 _ctansl(long double complex z)
 {
@@ -126,3 +131,4 @@ _ctansl(long double complex z)
        } while (fabsl(t/d) > MACHEPL);
        return d;
 }
+#endif

diff --git a/newlib/libm/complex/cexpl.c b/newlib/libm/complex/cexpl.c
index 8b56634baa15040478789e125e0df397f6376e80..24fb40af03a83d9460e6bbef82651c5845dc4e8d 100644 (file)
--- a/newlib/libm/complex/cexpl.c
+++ b/newlib/libm/complex/cexpl.c
@@ -32,6 +32,8 @@
 #include <complex.h>
 #include <math.h>
 
+/* On platforms where long double is as wide as double.  */
+#ifdef _LDBL_EQ_DBL
 long double complex
 cexpl(long double complex z)
 {
@@ -44,3 +46,4 @@ cexpl(long double complex z)
        w = r * cosl(y) + r * sinl(y) * I;
        return w;
 }
+#endif

diff --git a/newlib/libm/complex/clogl.c b/newlib/libm/complex/clogl.c
index 3644a44fcf6ffa0d029fc7bf8b4164de4372e4c7..9befec9ba0b581eba46acef1e162961104fddb92 100644 (file)
--- a/newlib/libm/complex/clogl.c
+++ b/newlib/libm/complex/clogl.c
@@ -32,6 +32,8 @@
 #include <complex.h>
 #include <math.h>
 
+/* On platforms where long double is as wide as double.  */
+#ifdef _LDBL_EQ_DBL
 long double complex
 clogl(long double complex z)
 {
@@ -44,3 +46,4 @@ clogl(long double complex z)
        w = p + rr * I;
        return w;
 }
+#endif

diff --git a/newlib/libm/complex/cpowl.c b/newlib/libm/complex/cpowl.c
index 85c2c20f257e9f0524e9030cd81462c219a72f00..46dfd13860b956f53397622481525920834b2e3c 100644 (file)
--- a/newlib/libm/complex/cpowl.c
+++ b/newlib/libm/complex/cpowl.c
@@ -32,6 +32,8 @@
 #include <complex.h>
 #include <math.h>
 
+/* On platforms where long double is as wide as double.  */
+#ifdef _LDBL_EQ_DBL
 long double complex
 cpowl(long double complex a, long double complex z)
 {
@@ -54,3 +56,4 @@ cpowl(long double complex a, long double complex z)
        w = r * cosl(theta) + (r * sinl(theta)) * I;
        return w;
 }
+#endif

diff --git a/newlib/libm/complex/cprojl.c b/newlib/libm/complex/cprojl.c
index e71c773531e80c6ea0e8239b4008e0c6cdd948bc..28e43ed6d0836d9279dd84907c62103f9700d766 100644 (file)
--- a/newlib/libm/complex/cprojl.c
+++ b/newlib/libm/complex/cprojl.c
@@ -45,6 +45,9 @@ __RCSID("$NetBSD: cprojl.c,v 1.7 2014/10/10 00:48:18 christos Exp $");
  *
  * INFINITY + I * copysign(0.0, cimag(z))
  */
+
+/* On platforms where long double is as wide as double.  */
+#ifdef _LDBL_EQ_DBL
 long double complex
 cprojl(long double complex z)
 {
@@ -62,3 +65,4 @@ cprojl(long double complex z)
 
        return (w.z);
 }
+#endif

diff --git a/newlib/libm/complex/csinhl.c b/newlib/libm/complex/csinhl.c
index 44ed05037b52c3d569b81a1658d3eb9fb24e56e4..3187739a0e805e7d1a8f191726095f493deab7b9 100644 (file)
--- a/newlib/libm/complex/csinhl.c
+++ b/newlib/libm/complex/csinhl.c
@@ -32,6 +32,8 @@
 #include <complex.h>
 #include <math.h>
 
+/* On platforms where long double is as wide as double.  */
+#ifdef _LDBL_EQ_DBL
 long double complex
 csinhl(long double complex z)
 {
@@ -43,3 +45,4 @@ csinhl(long double complex z)
        w = sinhl(x) * cosl(y) + (coshl(x) * sinl(y)) * I;
        return w;
 }
+#endif

diff --git a/newlib/libm/complex/csinl.c b/newlib/libm/complex/csinl.c
index 2b96c72258abe2793ac5be0842d70e77520e9919..2c087d5d369bc89f886cc927506a3b16e924e881 100644 (file)
--- a/newlib/libm/complex/csinl.c
+++ b/newlib/libm/complex/csinl.c
@@ -33,6 +33,8 @@
 #include <math.h>
 #include "cephes_subrl.h"
 
+/* On platforms where long double is as wide as double.  */
+#ifdef _LDBL_EQ_DBL
 long double complex
 csinl(long double complex z)
 {
@@ -43,3 +45,4 @@ csinl(long double complex z)
        w = sinl(creall(z)) * ch + (cosl(creall(z)) * sh) * I;
        return w;
 }
+#endif

diff --git a/newlib/libm/complex/csqrtl.c b/newlib/libm/complex/csqrtl.c
index c10a1264a97d39bde2d5613386d0a0349bfd20b6..cf9adf87309e67391de5600310d16687738d4449 100644 (file)
--- a/newlib/libm/complex/csqrtl.c
+++ b/newlib/libm/complex/csqrtl.c
@@ -49,6 +49,8 @@ __RCSID("$NetBSD: csqrtl.c,v 1.2 2014/10/11 00:43:51 christos Exp $");
 
 #define cpackl(r, i) ((r) + (i) * I)
 
+/* On platforms where long double is as wide as double.  */
+#ifdef _LDBL_EQ_DBL
 long double complex
 csqrtl(long double complex z)
 {
@@ -110,3 +112,4 @@ csqrtl(long double complex z)
        else
                return (result);
 }
+#endif

diff --git a/newlib/libm/complex/ctanhl.c b/newlib/libm/complex/ctanhl.c
index 1db886f6354c8212f33fa09631ac0aeb3f815167..bbc47467b45ed550b5973c909014acd33ee2bd2d 100644 (file)
--- a/newlib/libm/complex/ctanhl.c
+++ b/newlib/libm/complex/ctanhl.c
@@ -32,6 +32,8 @@
 #include <complex.h>
 #include <math.h>
 
+/* On platforms where long double is as wide as double.  */
+#ifdef _LDBL_EQ_DBL
 long double complex
 ctanhl(long double complex z)
 {
@@ -45,3 +47,4 @@ ctanhl(long double complex z)
 
        return w;
 }
+#endif

diff --git a/newlib/libm/complex/ctanl.c b/newlib/libm/complex/ctanl.c
index c5c887c7405677a0ce3bb8b565c981a62382aa36..9c09ca3cd554bea9b93ca8aa97b1596bdac20102 100644 (file)
--- a/newlib/libm/complex/ctanl.c
+++ b/newlib/libm/complex/ctanl.c
@@ -34,6 +34,8 @@
 #include <math.h>
 #include "cephes_subrl.h"
 
+/* On platforms where long double is as wide as double.  */
+#ifdef _LDBL_EQ_DBL
 long double complex
 ctanl(long double complex z)
 {
@@ -54,3 +56,4 @@ ctanl(long double complex z)
        w = sinl(2.0L * creall(z)) / d + (sinhl(2.0L * cimagl(z)) / d) * I;
        return w;
 }
+#endif