aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--newlib/libm/complex/cargl.c9
-rw-r--r--newlib/libm/complex/catanl.c4
-rw-r--r--newlib/libm/complex/ccoshl.c3
-rw-r--r--newlib/libm/complex/ccosl.c3
-rw-r--r--newlib/libm/complex/cephes_subrl.c6
-rw-r--r--newlib/libm/complex/cexpl.c3
-rw-r--r--newlib/libm/complex/clogl.c3
-rw-r--r--newlib/libm/complex/cpowl.c3
-rw-r--r--newlib/libm/complex/cprojl.c4
-rw-r--r--newlib/libm/complex/csinhl.c3
-rw-r--r--newlib/libm/complex/csinl.c3
-rw-r--r--newlib/libm/complex/csqrtl.c3
-rw-r--r--newlib/libm/complex/ctanhl.c3
-rw-r--r--newlib/libm/complex/ctanl.c3
14 files changed, 47 insertions, 6 deletions
diff --git a/newlib/libm/complex/cargl.c b/newlib/libm/complex/cargl.c
index 790cffe..9560cce 100644
--- 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 13839ac..4575623 100644
--- 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 f59fadf..0c54fd1 100644
--- 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 c310f40..a7619f3 100644
--- 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 8af11df..1d6d1b5 100644
--- 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 8b56634..24fb40a 100644
--- 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 3644a44..9befec9 100644
--- 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 85c2c20..46dfd13 100644
--- 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 e71c773..28e43ed 100644
--- 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 44ed050..3187739 100644
--- 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 2b96c72..2c087d5 100644
--- 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 c10a126..cf9adf8 100644
--- 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 1db886f..bbc4746 100644
--- 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 c5c887c..9c09ca3 100644
--- 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
generated by cgit v1.1 at 2024-07-09 06:44:49 +0000