summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--include/complex.h9
-rw-r--r--src/complex/__cexp.c2
-rw-r--r--src/complex/__cexpf.c2
-rw-r--r--src/complex/cacos.c2
-rw-r--r--src/complex/cacosf.c2
-rw-r--r--src/complex/cacosh.c2
-rw-r--r--src/complex/cacoshf.c2
-rw-r--r--src/complex/cacoshl.c2
-rw-r--r--src/complex/cacosl.c2
-rw-r--r--src/complex/casin.c4
-rw-r--r--src/complex/casinf.c4
-rw-r--r--src/complex/casinh.c4
-rw-r--r--src/complex/casinhf.c4
-rw-r--r--src/complex/casinhl.c4
-rw-r--r--src/complex/casinl.c4
-rw-r--r--src/complex/catanh.c4
-rw-r--r--src/complex/catanhf.c4
-rw-r--r--src/complex/catanhl.c4
-rw-r--r--src/complex/ccos.c2
-rw-r--r--src/complex/ccosf.c2
-rw-r--r--src/complex/ccosh.c26
-rw-r--r--src/complex/ccoshf.c26
-rw-r--r--src/complex/ccosl.c2
-rw-r--r--src/complex/cexp.c12
-rw-r--r--src/complex/cexpf.c12
-rw-r--r--src/complex/clog.c2
-rw-r--r--src/complex/clogf.c2
-rw-r--r--src/complex/clogl.c2
-rw-r--r--src/complex/conj.c2
-rw-r--r--src/complex/conjf.c2
-rw-r--r--src/complex/conjl.c2
-rw-r--r--src/complex/cproj.c2
-rw-r--r--src/complex/cprojf.c2
-rw-r--r--src/complex/cprojl.c2
-rw-r--r--src/complex/csin.c4
-rw-r--r--src/complex/csinf.c4
-rw-r--r--src/complex/csinh.c26
-rw-r--r--src/complex/csinhf.c26
-rw-r--r--src/complex/csinl.c4
-rw-r--r--src/complex/csqrt.c14
-rw-r--r--src/complex/csqrtf.c14
-rw-r--r--src/complex/ctan.c4
-rw-r--r--src/complex/ctanf.c4
-rw-r--r--src/complex/ctanh.c10
-rw-r--r--src/complex/ctanhf.c10
-rw-r--r--src/complex/ctanl.c4
-rw-r--r--src/internal/libm.h23
47 files changed, 152 insertions, 156 deletions
diff --git a/include/complex.h b/include/complex.h
index b4bcb22e..8206e026 100644
--- a/include/complex.h
+++ b/include/complex.h
@@ -112,6 +112,15 @@ long double creall(long double complex);
#define cimagf(x) __CIMAG(x, float)
#define cimagl(x) __CIMAG(x, long double)
+#define __CMPLX(x, y, t) \
+ ((union { _Complex t __z; t __xy[2]; }){.__xy = {(x),(y)}}.__z)
+
+#if __STDC_VERSION__ >= 201112L
+#define CMPLX(x, y) __CMPLX(x, y, double)
+#define CMPLXF(x, y) __CMPLX(x, y, float)
+#define CMPLXL(x, y) __CMPLX(x, y, long double)
+#endif
+
#ifdef __cplusplus
}
#endif
diff --git a/src/complex/__cexp.c b/src/complex/__cexp.c
index f603e2be..05ac28c7 100644
--- a/src/complex/__cexp.c
+++ b/src/complex/__cexp.c
@@ -83,5 +83,5 @@ double complex __ldexp_cexp(double complex z, int expt)
half_expt = expt - half_expt;
INSERT_WORDS(scale2, (0x3ff + half_expt) << 20, 0);
- return cpack(cos(y) * exp_x * scale1 * scale2, sin(y) * exp_x * scale1 * scale2);
+ return CMPLX(cos(y) * exp_x * scale1 * scale2, sin(y) * exp_x * scale1 * scale2);
}
diff --git a/src/complex/__cexpf.c b/src/complex/__cexpf.c
index 47168e8f..69b54045 100644
--- a/src/complex/__cexpf.c
+++ b/src/complex/__cexpf.c
@@ -63,6 +63,6 @@ float complex __ldexp_cexpf(float complex z, int expt)
half_expt = expt - half_expt;
SET_FLOAT_WORD(scale2, (0x7f + half_expt) << 23);
- return cpackf(cosf(y) * exp_x * scale1 * scale2,
+ return CMPLXF(cosf(y) * exp_x * scale1 * scale2,
sinf(y) * exp_x * scale1 * scale2);
}
diff --git a/src/complex/cacos.c b/src/complex/cacos.c
index 3aca0519..27c35636 100644
--- a/src/complex/cacos.c
+++ b/src/complex/cacos.c
@@ -7,5 +7,5 @@
double complex cacos(double complex z)
{
z = casin(z);
- return cpack(M_PI_2 - creal(z), -cimag(z));
+ return CMPLX(M_PI_2 - creal(z), -cimag(z));
}
diff --git a/src/complex/cacosf.c b/src/complex/cacosf.c
index 563766e7..11852659 100644
--- a/src/complex/cacosf.c
+++ b/src/complex/cacosf.c
@@ -5,5 +5,5 @@
float complex cacosf(float complex z)
{
z = casinf(z);
- return cpackf((float)M_PI_2 - crealf(z), -cimagf(z));
+ return CMPLXF((float)M_PI_2 - crealf(z), -cimagf(z));
}
diff --git a/src/complex/cacosh.c b/src/complex/cacosh.c
index c2dfc1ba..8c68cb01 100644
--- a/src/complex/cacosh.c
+++ b/src/complex/cacosh.c
@@ -5,5 +5,5 @@
double complex cacosh(double complex z)
{
z = cacos(z);
- return cpack(-cimag(z), creal(z));
+ return CMPLX(-cimag(z), creal(z));
}
diff --git a/src/complex/cacoshf.c b/src/complex/cacoshf.c
index 37ff8800..ade01c09 100644
--- a/src/complex/cacoshf.c
+++ b/src/complex/cacoshf.c
@@ -3,5 +3,5 @@
float complex cacoshf(float complex z)
{
z = cacosf(z);
- return cpackf(-cimagf(z), crealf(z));
+ return CMPLXF(-cimagf(z), crealf(z));
}
diff --git a/src/complex/cacoshl.c b/src/complex/cacoshl.c
index 2a04e27b..65342557 100644
--- a/src/complex/cacoshl.c
+++ b/src/complex/cacoshl.c
@@ -9,6 +9,6 @@ long double complex cacoshl(long double complex z)
long double complex cacoshl(long double complex z)
{
z = cacosl(z);
- return cpackl(-cimagl(z), creall(z));
+ return CMPLXL(-cimagl(z), creall(z));
}
#endif
diff --git a/src/complex/cacosl.c b/src/complex/cacosl.c
index 5992e056..7fd4a2f6 100644
--- a/src/complex/cacosl.c
+++ b/src/complex/cacosl.c
@@ -11,6 +11,6 @@ long double complex cacosl(long double complex z)
long double complex cacosl(long double complex z)
{
z = casinl(z);
- return cpackl(PI_2 - creall(z), -cimagl(z));
+ return CMPLXL(PI_2 - creall(z), -cimagl(z));
}
#endif
diff --git a/src/complex/casin.c b/src/complex/casin.c
index 79aff278..dfdda988 100644
--- a/src/complex/casin.c
+++ b/src/complex/casin.c
@@ -11,6 +11,6 @@ double complex casin(double complex z)
x = creal(z);
y = cimag(z);
- w = cpack(1.0 - (x - y)*(x + y), -2.0*x*y);
- return clog(cpack(-y, x) + csqrt(w));
+ w = CMPLX(1.0 - (x - y)*(x + y), -2.0*x*y);
+ return clog(CMPLX(-y, x) + csqrt(w));
}
diff --git a/src/complex/casinf.c b/src/complex/casinf.c
index cb9863f6..93f0e335 100644
--- a/src/complex/casinf.c
+++ b/src/complex/casinf.c
@@ -9,6 +9,6 @@ float complex casinf(float complex z)
x = crealf(z);
y = cimagf(z);
- w = cpackf(1.0 - (x - y)*(x + y), -2.0*x*y);
- return clogf(cpackf(-y, x) + csqrtf(w));
+ w = CMPLXF(1.0 - (x - y)*(x + y), -2.0*x*y);
+ return clogf(CMPLXF(-y, x) + csqrtf(w));
}
diff --git a/src/complex/casinh.c b/src/complex/casinh.c
index f2b3fef8..b57fe8c4 100644
--- a/src/complex/casinh.c
+++ b/src/complex/casinh.c
@@ -4,6 +4,6 @@
double complex casinh(double complex z)
{
- z = casin(cpack(-cimag(z), creal(z)));
- return cpack(cimag(z), -creal(z));
+ z = casin(CMPLX(-cimag(z), creal(z)));
+ return CMPLX(cimag(z), -creal(z));
}
diff --git a/src/complex/casinhf.c b/src/complex/casinhf.c
index ed4af643..a11bf902 100644
--- a/src/complex/casinhf.c
+++ b/src/complex/casinhf.c
@@ -2,6 +2,6 @@
float complex casinhf(float complex z)
{
- z = casinf(cpackf(-cimagf(z), crealf(z)));
- return cpackf(cimagf(z), -crealf(z));
+ z = casinf(CMPLXF(-cimagf(z), crealf(z)));
+ return CMPLXF(cimagf(z), -crealf(z));
}
diff --git a/src/complex/casinhl.c b/src/complex/casinhl.c
index e5d80cef..714f1893 100644
--- a/src/complex/casinhl.c
+++ b/src/complex/casinhl.c
@@ -8,7 +8,7 @@ long double complex casinhl(long double complex z)
#else
long double complex casinhl(long double complex z)
{
- z = casinl(cpackl(-cimagl(z), creall(z)));
- return cpackl(cimagl(z), -creall(z));
+ z = casinl(CMPLXL(-cimagl(z), creall(z)));
+ return CMPLXL(cimagl(z), -creall(z));
}
#endif
diff --git a/src/complex/casinl.c b/src/complex/casinl.c
index f9aa8ded..0916c60f 100644
--- a/src/complex/casinl.c
+++ b/src/complex/casinl.c
@@ -14,7 +14,7 @@ long double complex casinl(long double complex z)
x = creall(z);
y = cimagl(z);
- w = cpackl(1.0 - (x - y)*(x + y), -2.0*x*y);
- return clogl(cpackl(-y, x) + csqrtl(w));
+ w = CMPLXL(1.0 - (x - y)*(x + y), -2.0*x*y);
+ return clogl(CMPLXL(-y, x) + csqrtl(w));
}
#endif
diff --git a/src/complex/catanh.c b/src/complex/catanh.c
index b1628022..e248d9b9 100644
--- a/src/complex/catanh.c
+++ b/src/complex/catanh.c
@@ -4,6 +4,6 @@
double complex catanh(double complex z)
{
- z = catan(cpack(-cimag(z), creal(z)));
- return cpack(cimag(z), -creal(z));
+ z = catan(CMPLX(-cimag(z), creal(z)));
+ return CMPLX(cimag(z), -creal(z));
}
diff --git a/src/complex/catanhf.c b/src/complex/catanhf.c
index e1d1e648..4a5eb040 100644
--- a/src/complex/catanhf.c
+++ b/src/complex/catanhf.c
@@ -2,6 +2,6 @@
float complex catanhf(float complex z)
{
- z = catanf(cpackf(-cimagf(z), crealf(z)));
- return cpackf(cimagf(z), -crealf(z));
+ z = catanf(CMPLXF(-cimagf(z), crealf(z)));
+ return CMPLXF(cimagf(z), -crealf(z));
}
diff --git a/src/complex/catanhl.c b/src/complex/catanhl.c
index 0a9374a3..a5dd538e 100644
--- a/src/complex/catanhl.c
+++ b/src/complex/catanhl.c
@@ -8,7 +8,7 @@ long double complex catanhl(long double complex z)
#else
long double complex catanhl(long double complex z)
{
- z = catanl(cpackl(-cimagl(z), creall(z)));
- return cpackl(cimagl(z), -creall(z));
+ z = catanl(CMPLXL(-cimagl(z), creall(z)));
+ return CMPLXL(cimagl(z), -creall(z));
}
#endif
diff --git a/src/complex/ccos.c b/src/complex/ccos.c
index 5754c238..645aec29 100644
--- a/src/complex/ccos.c
+++ b/src/complex/ccos.c
@@ -4,5 +4,5 @@
double complex ccos(double complex z)
{
- return ccosh(cpack(-cimag(z), creal(z)));
+ return ccosh(CMPLX(-cimag(z), creal(z)));
}
diff --git a/src/complex/ccosf.c b/src/complex/ccosf.c
index 9b72c4f4..9a67241f 100644
--- a/src/complex/ccosf.c
+++ b/src/complex/ccosf.c
@@ -2,5 +2,5 @@
float complex ccosf(float complex z)
{
- return ccoshf(cpackf(-cimagf(z), crealf(z)));
+ return ccoshf(CMPLXF(-cimagf(z), crealf(z)));
}
diff --git a/src/complex/ccosh.c b/src/complex/ccosh.c
index 81f29432..401f3c60 100644
--- a/src/complex/ccosh.c
+++ b/src/complex/ccosh.c
@@ -55,23 +55,23 @@ double complex ccosh(double complex z)
/* Handle the nearly-non-exceptional cases where x and y are finite. */
if (ix < 0x7ff00000 && iy < 0x7ff00000) {
if ((iy | ly) == 0)
- return cpack(cosh(x), x * y);
+ return CMPLX(cosh(x), x * y);
if (ix < 0x40360000) /* small x: normal case */
- return cpack(cosh(x) * cos(y), sinh(x) * sin(y));
+ return CMPLX(cosh(x) * cos(y), sinh(x) * sin(y));
/* |x| >= 22, so cosh(x) ~= exp(|x|) */
if (ix < 0x40862e42) {
/* x < 710: exp(|x|) won't overflow */
h = exp(fabs(x)) * 0.5;
- return cpack(h * cos(y), copysign(h, x) * sin(y));
+ return CMPLX(h * cos(y), copysign(h, x) * sin(y));
} else if (ix < 0x4096bbaa) {
/* x < 1455: scale to avoid overflow */
- z = __ldexp_cexp(cpack(fabs(x), y), -1);
- return cpack(creal(z), cimag(z) * copysign(1, x));
+ z = __ldexp_cexp(CMPLX(fabs(x), y), -1);
+ return CMPLX(creal(z), cimag(z) * copysign(1, x));
} else {
/* x >= 1455: the result always overflows */
h = huge * x;
- return cpack(h * h * cos(y), h * sin(y));
+ return CMPLX(h * h * cos(y), h * sin(y));
}
}
@@ -85,7 +85,7 @@ double complex ccosh(double complex z)
* the same as d(NaN).
*/
if ((ix | lx) == 0 && iy >= 0x7ff00000)
- return cpack(y - y, copysign(0, x * (y - y)));
+ return CMPLX(y - y, copysign(0, x * (y - y)));
/*
* cosh(+-Inf +- I 0) = +Inf + I (+-)(+-)0.
@@ -95,8 +95,8 @@ double complex ccosh(double complex z)
*/
if ((iy | ly) == 0 && ix >= 0x7ff00000) {
if (((hx & 0xfffff) | lx) == 0)
- return cpack(x * x, copysign(0, x) * y);
- return cpack(x * x, copysign(0, (x + x) * y));
+ return CMPLX(x * x, copysign(0, x) * y);
+ return CMPLX(x * x, copysign(0, (x + x) * y));
}
/*
@@ -108,7 +108,7 @@ double complex ccosh(double complex z)
* nonzero x. Choice = don't raise (except for signaling NaNs).
*/
if (ix < 0x7ff00000 && iy >= 0x7ff00000)
- return cpack(y - y, x * (y - y));
+ return CMPLX(y - y, x * (y - y));
/*
* cosh(+-Inf + I NaN) = +Inf + I d(NaN).
@@ -121,8 +121,8 @@ double complex ccosh(double complex z)
*/
if (ix >= 0x7ff00000 && ((hx & 0xfffff) | lx) == 0) {
if (iy >= 0x7ff00000)
- return cpack(x * x, x * (y - y));
- return cpack((x * x) * cos(y), x * sin(y));
+ return CMPLX(x * x, x * (y - y));
+ return CMPLX((x * x) * cos(y), x * sin(y));
}
/*
@@ -136,5 +136,5 @@ double complex ccosh(double complex z)
* Optionally raises the invalid floating-point exception for finite
* nonzero y. Choice = don't raise (except for signaling NaNs).
*/
- return cpack((x * x) * (y - y), (x + x) * (y - y));
+ return CMPLX((x * x) * (y - y), (x + x) * (y - y));
}
diff --git a/src/complex/ccoshf.c b/src/complex/ccoshf.c
index 683e77fa..90acfe05 100644
--- a/src/complex/ccoshf.c
+++ b/src/complex/ccoshf.c
@@ -48,43 +48,43 @@ float complex ccoshf(float complex z)
if (ix < 0x7f800000 && iy < 0x7f800000) {
if (iy == 0)
- return cpackf(coshf(x), x * y);
+ return CMPLXF(coshf(x), x * y);
if (ix < 0x41100000) /* small x: normal case */
- return cpackf(coshf(x) * cosf(y), sinhf(x) * sinf(y));
+ return CMPLXF(coshf(x) * cosf(y), sinhf(x) * sinf(y));
/* |x| >= 9, so cosh(x) ~= exp(|x|) */
if (ix < 0x42b17218) {
/* x < 88.7: expf(|x|) won't overflow */
h = expf(fabsf(x)) * 0.5f;
- return cpackf(h * cosf(y), copysignf(h, x) * sinf(y));
+ return CMPLXF(h * cosf(y), copysignf(h, x) * sinf(y));
} else if (ix < 0x4340b1e7) {
/* x < 192.7: scale to avoid overflow */
- z = __ldexp_cexpf(cpackf(fabsf(x), y), -1);
- return cpackf(crealf(z), cimagf(z) * copysignf(1, x));
+ z = __ldexp_cexpf(CMPLXF(fabsf(x), y), -1);
+ return CMPLXF(crealf(z), cimagf(z) * copysignf(1, x));
} else {
/* x >= 192.7: the result always overflows */
h = huge * x;
- return cpackf(h * h * cosf(y), h * sinf(y));
+ return CMPLXF(h * h * cosf(y), h * sinf(y));
}
}
if (ix == 0 && iy >= 0x7f800000)
- return cpackf(y - y, copysignf(0, x * (y - y)));
+ return CMPLXF(y - y, copysignf(0, x * (y - y)));
if (iy == 0 && ix >= 0x7f800000) {
if ((hx & 0x7fffff) == 0)
- return cpackf(x * x, copysignf(0, x) * y);
- return cpackf(x * x, copysignf(0, (x + x) * y));
+ return CMPLXF(x * x, copysignf(0, x) * y);
+ return CMPLXF(x * x, copysignf(0, (x + x) * y));
}
if (ix < 0x7f800000 && iy >= 0x7f800000)
- return cpackf(y - y, x * (y - y));
+ return CMPLXF(y - y, x * (y - y));
if (ix >= 0x7f800000 && (hx & 0x7fffff) == 0) {
if (iy >= 0x7f800000)
- return cpackf(x * x, x * (y - y));
- return cpackf((x * x) * cosf(y), x * sinf(y));
+ return CMPLXF(x * x, x * (y - y));
+ return CMPLXF((x * x) * cosf(y), x * sinf(y));
}
- return cpackf((x * x) * (y - y), (x + x) * (y - y));
+ return CMPLXF((x * x) * (y - y), (x + x) * (y - y));
}
diff --git a/src/complex/ccosl.c b/src/complex/ccosl.c
index e37825a9..d787047f 100644
--- a/src/complex/ccosl.c
+++ b/src/complex/ccosl.c
@@ -8,6 +8,6 @@ long double complex ccosl(long double complex z)
#else
long double complex ccosl(long double complex z)
{
- return ccoshl(cpackl(-cimagl(z), creall(z)));
+ return ccoshl(CMPLXL(-cimagl(z), creall(z)));
}
#endif
diff --git a/src/complex/cexp.c b/src/complex/cexp.c
index 3b8bb752..5118e00e 100644
--- a/src/complex/cexp.c
+++ b/src/complex/cexp.c
@@ -44,22 +44,22 @@ double complex cexp(double complex z)
/* cexp(x + I 0) = exp(x) + I 0 */
if ((hy | ly) == 0)
- return cpack(exp(x), y);
+ return CMPLX(exp(x), y);
EXTRACT_WORDS(hx, lx, x);
/* cexp(0 + I y) = cos(y) + I sin(y) */
if (((hx & 0x7fffffff) | lx) == 0)
- return cpack(cos(y), sin(y));
+ return CMPLX(cos(y), sin(y));
if (hy >= 0x7ff00000) {
if (lx != 0 || (hx & 0x7fffffff) != 0x7ff00000) {
/* cexp(finite|NaN +- I Inf|NaN) = NaN + I NaN */
- return cpack(y - y, y - y);
+ return CMPLX(y - y, y - y);
} else if (hx & 0x80000000) {
/* cexp(-Inf +- I Inf|NaN) = 0 + I 0 */
- return cpack(0.0, 0.0);
+ return CMPLX(0.0, 0.0);
} else {
/* cexp(+Inf +- I Inf|NaN) = Inf + I NaN */
- return cpack(x, y - y);
+ return CMPLX(x, y - y);
}
}
@@ -78,6 +78,6 @@ double complex cexp(double complex z)
* - x = NaN (spurious inexact exception from y)
*/
exp_x = exp(x);
- return cpack(exp_x * cos(y), exp_x * sin(y));
+ return CMPLX(exp_x * cos(y), exp_x * sin(y));
}
}
diff --git a/src/complex/cexpf.c b/src/complex/cexpf.c
index 0cf13a3d..1a09964c 100644
--- a/src/complex/cexpf.c
+++ b/src/complex/cexpf.c
@@ -44,22 +44,22 @@ float complex cexpf(float complex z)
/* cexp(x + I 0) = exp(x) + I 0 */
if (hy == 0)
- return cpackf(expf(x), y);
+ return CMPLXF(expf(x), y);
GET_FLOAT_WORD(hx, x);
/* cexp(0 + I y) = cos(y) + I sin(y) */
if ((hx & 0x7fffffff) == 0)
- return cpackf(cosf(y), sinf(y));
+ return CMPLXF(cosf(y), sinf(y));
if (hy >= 0x7f800000) {
if ((hx & 0x7fffffff) != 0x7f800000) {
/* cexp(finite|NaN +- I Inf|NaN) = NaN + I NaN */
- return cpackf(y - y, y - y);
+ return CMPLXF(y - y, y - y);
} else if (hx & 0x80000000) {
/* cexp(-Inf +- I Inf|NaN) = 0 + I 0 */
- return cpackf(0.0, 0.0);
+ return CMPLXF(0.0, 0.0);
} else {
/* cexp(+Inf +- I Inf|NaN) = Inf + I NaN */
- return cpackf(x, y - y);
+ return CMPLXF(x, y - y);
}
}
@@ -78,6 +78,6 @@ float complex cexpf(float complex z)
* - x = NaN (spurious inexact exception from y)
*/
exp_x = expf(x);
- return cpackf(exp_x * cosf(y), exp_x * sinf(y));
+ return CMPLXF(exp_x * cosf(y), exp_x * sinf(y));
}
}
diff --git a/src/complex/clog.c b/src/complex/clog.c
index 6f10a115..12aae9c7 100644
--- a/src/complex/clog.c
+++ b/src/complex/clog.c
@@ -10,5 +10,5 @@ double complex clog(double complex z)
r = cabs(z);
phi = carg(z);
- return cpack(log(r), phi);
+ return CMPLX(log(r), phi);
}
diff --git a/src/complex/clogf.c b/src/complex/clogf.c
index f3aec54d..e9b32e60 100644
--- a/src/complex/clogf.c
+++ b/src/complex/clogf.c
@@ -8,5 +8,5 @@ float complex clogf(float complex z)
r = cabsf(z);
phi = cargf(z);
- return cpackf(logf(r), phi);
+ return CMPLXF(logf(r), phi);
}
diff --git a/src/complex/clogl.c b/src/complex/clogl.c
index 5b84ba59..18f16088 100644
--- a/src/complex/clogl.c
+++ b/src/complex/clogl.c
@@ -13,6 +13,6 @@ long double complex clogl(long double complex z)
r = cabsl(z);
phi = cargl(z);
- return cpackl(logl(r), phi);
+ return CMPLXL(logl(r), phi);
}
#endif
diff --git a/src/complex/conj.c b/src/complex/conj.c
index 4aceea7b..0b3f5f46 100644
--- a/src/complex/conj.c
+++ b/src/complex/conj.c
@@ -2,5 +2,5 @@
double complex conj(double complex z)
{
- return cpack(creal(z), -cimag(z));
+ return CMPLX(creal(z), -cimag(z));
}
diff --git a/src/complex/conjf.c b/src/complex/conjf.c
index 31556800..9af6b2c3 100644
--- a/src/complex/conjf.c
+++ b/src/complex/conjf.c
@@ -2,5 +2,5 @@
float complex conjf(float complex z)
{
- return cpackf(crealf(z), -cimagf(z));
+ return CMPLXF(crealf(z), -cimagf(z));
}
diff --git a/src/complex/conjl.c b/src/complex/conjl.c
index 01332262..67f11b9d 100644
--- a/src/complex/conjl.c
+++ b/src/complex/conjl.c
@@ -2,5 +2,5 @@
long double complex conjl(long double complex z)
{
- return cpackl(creall(z), -cimagl(z));
+ return CMPLXL(creall(z), -cimagl(z));
}
diff --git a/src/complex/cproj.c b/src/complex/cproj.c
index 1cf9bb94..15f358a1 100644
--- a/src/complex/cproj.c
+++ b/src/complex/cproj.c
@@ -3,6 +3,6 @@
double complex cproj(double complex z)
{
if (isinf(creal(z)) || isinf(cimag(z)))
- return cpack(INFINITY, copysign(0.0, creal(z)));
+ return CMPLX(INFINITY, copysign(0.0, creal(z)));
return z;
}
diff --git a/src/complex/cprojf.c b/src/complex/cprojf.c
index 71129743..653be5e8 100644
--- a/src/complex/cprojf.c
+++ b/src/complex/cprojf.c
@@ -3,6 +3,6 @@
float complex cprojf(float complex z)
{
if (isinf(crealf(z)) || isinf(cimagf(z)))
- return cpackf(INFINITY, copysignf(0.0, crealf(z)));
+ return CMPLXF(INFINITY, copysignf(0.0, crealf(z)));
return z;
}
diff --git a/src/complex/cprojl.c b/src/complex/cprojl.c
index 72e50cf5..6731aaa2 100644
--- a/src/complex/cprojl.c
+++ b/src/complex/cprojl.c
@@ -9,7 +9,7 @@ long double complex cprojl(long double complex z)
long double complex cprojl(long double complex z)
{
if (isinf(creall(z)) || isinf(cimagl(z)))
- return cpackl(INFINITY, copysignl(0.0, creall(z)));
+ return CMPLXL(INFINITY, copysignl(0.0, creall(z)));
return z;
}
#endif
diff --git a/src/complex/csin.c b/src/complex/csin.c
index 246a4595..ad8ae67a 100644
--- a/src/complex/csin.c
+++ b/src/complex/csin.c
@@ -4,6 +4,6 @@
double complex csin(double complex z)
{
- z = csinh(cpack(-cimag(z), creal(z)));
- return cpack(cimag(z), -creal(z));
+ z = csinh(CMPLX(-cimag(z), creal(z)));
+ return CMPLX(cimag(z), -creal(z));
}
diff --git a/src/complex/csinf.c b/src/complex/csinf.c
index 3aabe8f8..60b3cbaa 100644
--- a/src/complex/csinf.c
+++ b/src/complex/csinf.c
@@ -2,6 +2,6 @@
float complex csinf(float complex z)
{
- z = csinhf(cpackf(-cimagf(z), crealf(z)));
- return cpackf(cimagf(z), -crealf(z));
+ z = csinhf(CMPLXF(-cimagf(z), crealf(z)));
+ return CMPLXF(cimagf(z), -crealf(z));
}
diff --git a/src/complex/csinh.c b/src/complex/csinh.c
index fe16f06b..0f8035d1 100644
--- a/src/complex/csinh.c
+++ b/src/complex/csinh.c
@@ -55,23 +55,23 @@ double complex csinh(double complex z)
/* Handle the nearly-non-exceptional cases where x and y are finite. */
if (ix < 0x7ff00000 && iy < 0x7ff00000) {
if ((iy | ly) == 0)
- return cpack(sinh(x), y);
+ return CMPLX(sinh(x), y);
if (ix < 0x40360000) /* small x: normal case */
- return cpack(sinh(x) * cos(y), cosh(x) * sin(y));
+ return CMPLX(sinh(x) * cos(y), cosh(x) * sin(y));
/* |x| >= 22, so cosh(x) ~= exp(|x|) */
if (ix < 0x40862e42) {
/* x < 710: exp(|x|) won't overflow */
h = exp(fabs(x)) * 0.5;
- return cpack(copysign(h, x) * cos(y), h * sin(y));
+ return CMPLX(copysign(h, x) * cos(y), h * sin(y));
} else if (ix < 0x4096bbaa) {
/* x < 1455: scale to avoid overflow */
- z = __ldexp_cexp(cpack(fabs(x), y), -1);
- return cpack(creal(z) * copysign(1, x), cimag(z));
+ z = __ldexp_cexp(CMPLX(fabs(x), y), -1);
+ return CMPLX(creal(z) * copysign(1, x), cimag(z));
} else {
/* x >= 1455: the result always overflows */
h = huge * x;
- return cpack(h * cos(y), h * h * sin(y));
+ return CMPLX(h * cos(y), h * h * sin(y));
}
}
@@ -85,7 +85,7 @@ double complex csinh(double complex z)
* the same as d(NaN).
*/
if ((ix | lx) == 0 && iy >= 0x7ff00000)
- return cpack(copysign(0, x * (y - y)), y - y);
+ return CMPLX(copysign(0, x * (y - y)), y - y);
/*
* sinh(+-Inf +- I 0) = +-Inf + I +-0.
@@ -94,8 +94,8 @@ double complex csinh(double complex z)
*/
if ((iy | ly) == 0 && ix >= 0x7ff00000) {
if (((hx & 0xfffff) | lx) == 0)
- return cpack(x, y);
- return cpack(x, copysign(0, y));
+ return CMPLX(x, y);
+ return CMPLX(x, copysign(0, y));
}
/*
@@ -107,7 +107,7 @@ double complex csinh(double complex z)
* nonzero x. Choice = don't raise (except for signaling NaNs).
*/
if (ix < 0x7ff00000 && iy >= 0x7ff00000)
- return cpack(y - y, x * (y - y));
+ return CMPLX(y - y, x * (y - y));
/*
* sinh(+-Inf + I NaN) = +-Inf + I d(NaN).
@@ -122,8 +122,8 @@ double complex csinh(double complex z)
*/
if (ix >= 0x7ff00000 && ((hx & 0xfffff) | lx) == 0) {
if (iy >= 0x7ff00000)
- return cpack(x * x, x * (y - y));
- return cpack(x * cos(y), INFINITY * sin(y));
+ return CMPLX(x * x, x * (y - y));
+ return CMPLX(x * cos(y), INFINITY * sin(y));
}
/*
@@ -137,5 +137,5 @@ double complex csinh(double complex z)
* Optionally raises the invalid floating-point exception for finite
* nonzero y. Choice = don't raise (except for signaling NaNs).
*/
- return cpack((x * x) * (y - y), (x + x) * (y - y));
+ return CMPLX((x * x) * (y - y), (x + x) * (y - y));
}
diff --git a/src/complex/csinhf.c b/src/complex/csinhf.c
index bbb116c2..49697f02 100644
--- a/src/complex/csinhf.c
+++ b/src/complex/csinhf.c
@@ -48,43 +48,43 @@ float complex csinhf(float complex z)
if (ix < 0x7f800000 && iy < 0x7f800000) {
if (iy == 0)
- return cpackf(sinhf(x), y);
+ return CMPLXF(sinhf(x), y);
if (ix < 0x41100000) /* small x: normal case */
- return cpackf(sinhf(x) * cosf(y), coshf(x) * sinf(y));
+ return CMPLXF(sinhf(x) * cosf(y), coshf(x) * sinf(y));
/* |x| >= 9, so cosh(x) ~= exp(|x|) */
if (ix < 0x42b17218) {
/* x < 88.7: expf(|x|) won't overflow */
h = expf(fabsf(x)) * 0.5f;
- return cpackf(copysignf(h, x) * cosf(y), h * sinf(y));
+ return CMPLXF(copysignf(h, x) * cosf(y), h * sinf(y));
} else if (ix < 0x4340b1e7) {
/* x < 192.7: scale to avoid overflow */
- z = __ldexp_cexpf(cpackf(fabsf(x), y), -1);
- return cpackf(crealf(z) * copysignf(1, x), cimagf(z));
+ z = __ldexp_cexpf(CMPLXF(fabsf(x), y), -1);
+ return CMPLXF(crealf(z) * copysignf(1, x), cimagf(z));
} else {
/* x >= 192.7: the result always overflows */
h = huge * x;
- return cpackf(h * cosf(y), h * h * sinf(y));
+ return CMPLXF(h * cosf(y), h * h * sinf(y));
}
}
if (ix == 0 && iy >= 0x7f800000)
- return cpackf(copysignf(0, x * (y - y)), y - y);
+ return CMPLXF(copysignf(0, x * (y - y)), y - y);
if (iy == 0 && ix >= 0x7f800000) {
if ((hx & 0x7fffff) == 0)
- return cpackf(x, y);
- return cpackf(x, copysignf(0, y));
+ return CMPLXF(x, y);
+ return CMPLXF(x, copysignf(0, y));
}
if (ix < 0x7f800000 && iy >= 0x7f800000)
- return cpackf(y - y, x * (y - y));
+ return CMPLXF(y - y, x * (y - y));
if (ix >= 0x7f800000 && (hx & 0x7fffff) == 0) {
if (iy >= 0x7f800000)
- return cpackf(x * x, x * (y - y));
- return cpackf(x * cosf(y), INFINITY * sinf(y));
+ return CMPLXF(x * x, x * (y - y));
+ return CMPLXF(x * cosf(y), INFINITY * sinf(y));
}
- return cpackf((x * x) * (y - y), (x + x) * (y - y));
+ return CMPLXF((x * x) * (y - y), (x + x) * (y - y));
}
diff --git a/src/complex/csinl.c b/src/complex/csinl.c
index 4ad86745..4e9f86c3 100644
--- a/src/complex/csinl.c
+++ b/src/complex/csinl.c
@@ -8,7 +8,7 @@ long double complex csinl(long double complex z)
#else
long double complex csinl(long double complex z)
{
- z = csinhl(cpackl(-cimagl(z), creall(z)));
- return cpackl(cimagl(z), -creall(z));
+ z = csinhl(CMPLXL(-cimagl(z), creall(z)));
+ return CMPLXL(cimagl(z), -creall(z));
}
#endif
diff --git a/src/complex/csqrt.c b/src/complex/csqrt.c
index 21fb879d..8a2ba608 100644
--- a/src/complex/csqrt.c
+++ b/src/complex/csqrt.c
@@ -51,12 +51,12 @@ double complex csqrt(double complex z)
/* Handle special cases. */
if (z == 0)
- return cpack(0, b);
+ return CMPLX(0, b);
if (isinf(b))
- return cpack(INFINITY, b);
+ return CMPLX(INFINITY, b);
if (isnan(a)) {
t = (b - b) / (b - b); /* raise invalid if b is not a NaN */
- return cpack(a, t); /* return NaN + NaN i */
+ return CMPLX(a, t); /* return NaN + NaN i */
}
if (isinf(a)) {
/*
@@ -66,9 +66,9 @@ double complex csqrt(double complex z)
* csqrt(-inf + y i) = 0 + inf i
*/
if (signbit(a))
- return cpack(fabs(b - b), copysign(a, b));
+ return CMPLX(fabs(b - b), copysign(a, b));
else
- return cpack(a, copysign(b - b, b));
+ return CMPLX(a, copysign(b - b, b));
}
/*
* The remaining special case (b is NaN) is handled just fine by
@@ -87,10 +87,10 @@ double complex csqrt(double complex z)
/* Algorithm 312, CACM vol 10, Oct 1967. */
if (a >= 0) {
t = sqrt((a + hypot(a, b)) * 0.5);
- result = cpack(t, b / (2 * t));
+ result = CMPLX(t, b / (2 * t));
} else {
t = sqrt((-a + hypot(a, b)) * 0.5);
- result = cpack(fabs(b) / (2 * t), copysign(t, b));
+ result = CMPLX(fabs(b) / (2 * t), copysign(t, b));
}
/* Rescale. */
diff --git a/src/complex/csqrtf.c b/src/complex/csqrtf.c
index 16487c23..ab5102f0 100644
--- a/src/complex/csqrtf.c
+++ b/src/complex/csqrtf.c
@@ -43,12 +43,12 @@ float complex csqrtf(float complex z)
/* Handle special cases. */
if (z == 0)
- return cpackf(0, b);
+ return CMPLXF(0, b);
if (isinf(b))
- return cpackf(INFINITY, b);
+ return CMPLXF(INFINITY, b);
if (isnan(a)) {
t = (b - b) / (b - b); /* raise invalid if b is not a NaN */
- return cpackf(a, t); /* return NaN + NaN i */
+ return CMPLXF(a, t); /* return NaN + NaN i */
}
if (isinf(a)) {
/*
@@ -58,9 +58,9 @@ float complex csqrtf(float complex z)
* csqrtf(-inf + y i) = 0 + inf i
*/
if (signbit(a))
- return cpackf(fabsf(b - b), copysignf(a, b));
+ return CMPLXF(fabsf(b - b), copysignf(a, b));
else
- return cpackf(a, copysignf(b - b, b));
+ return CMPLXF(a, copysignf(b - b, b));
}
/*
* The remaining special case (b is NaN) is handled just fine by
@@ -74,9 +74,9 @@ float complex csqrtf(float complex z)
*/
if (a >= 0) {
t = sqrt((a + hypot(a, b)) * 0.5);
- return cpackf(t, b / (2.0 * t));
+ return CMPLXF(t, b / (2.0 * t));
} else {
t = sqrt((-a + hypot(a, b)) * 0.5);
- return cpackf(fabsf(b) / (2.0 * t), copysignf(t, b));
+ return CMPLXF(fabsf(b) / (2.0 * t), copysignf(t, b));
}
}
diff --git a/src/complex/ctan.c b/src/complex/ctan.c
index 4741a4df..c0926374 100644
--- a/src/complex/ctan.c
+++ b/src/complex/ctan.c
@@ -4,6 +4,6 @@
double complex ctan(double complex z)
{
- z = ctanh(cpack(-cimag(z), creal(z)));
- return cpack(cimag(z), -creal(z));
+ z = ctanh(CMPLX(-cimag(z), creal(z)));
+ return CMPLX(cimag(z), -creal(z));
}
diff --git a/src/complex/ctanf.c b/src/complex/ctanf.c
index 9bbeb051..009b1921 100644
--- a/src/complex/ctanf.c
+++ b/src/complex/ctanf.c
@@ -2,6 +2,6 @@
float complex ctanf(float complex z)
{
- z = ctanhf(cpackf(-cimagf(z), crealf(z)));
- return cpackf(cimagf(z), -crealf(z));
+ z = ctanhf(CMPLXF(-cimagf(z), crealf(z)));
+ return CMPLXF(cimagf(z), -crealf(z));
}
diff --git a/src/complex/ctanh.c b/src/complex/ctanh.c
index dd569fc3..0461050d 100644
--- a/src/complex/ctanh.c
+++ b/src/complex/ctanh.c
@@ -95,9 +95,9 @@ double complex ctanh(double complex z)
*/
if (ix >= 0x7ff00000) {
if ((ix & 0xfffff) | lx) /* x is NaN */
- return cpack(x, (y == 0 ? y : x * y));
+ return CMPLX(x, (y == 0 ? y : x * y));
SET_HIGH_WORD(x, hx - 0x40000000); /* x = copysign(1, x) */
- return cpack(x, copysign(0, isinf(y) ? y : sin(y) * cos(y)));
+ return CMPLX(x, copysign(0, isinf(y) ? y : sin(y) * cos(y)));
}
/*
@@ -105,7 +105,7 @@ double complex ctanh(double complex z)
* ctanh(x +- i Inf) = NaN + i NaN
*/
if (!isfinite(y))
- return cpack(y - y, y - y);
+ return CMPLX(y - y, y - y);
/*
* ctanh(+-huge + i +-y) ~= +-1 +- i 2sin(2y)/exp(2x), using the
@@ -114,7 +114,7 @@ double complex ctanh(double complex z)
*/
if (ix >= 0x40360000) { /* x >= 22 */
double exp_mx = exp(-fabs(x));
- return cpack(copysign(1, x), 4 * sin(y) * cos(y) * exp_mx * exp_mx);
+ return CMPLX(copysign(1, x), 4 * sin(y) * cos(y) * exp_mx * exp_mx);
}
/* Kahan's algorithm */
@@ -123,5 +123,5 @@ double complex ctanh(double complex z)
s = sinh(x);
rho = sqrt(1 + s * s); /* = cosh(x) */
denom = 1 + beta * s * s;
- return cpack((beta * rho * s) / denom, t / denom);
+ return CMPLX((beta * rho * s) / denom, t / denom);
}
diff --git a/src/complex/ctanhf.c b/src/complex/ctanhf.c
index 7d746134..a7e1a5fc 100644
--- a/src/complex/ctanhf.c
+++ b/src/complex/ctanhf.c
@@ -44,17 +44,17 @@ float complex ctanhf(float complex z)
if (ix >= 0x7f800000) {
if (ix & 0x7fffff)
- return cpackf(x, (y == 0 ? y : x * y));
+ return CMPLXF(x, (y == 0 ? y : x * y));
SET_FLOAT_WORD(x, hx - 0x40000000);
- return cpackf(x, copysignf(0, isinf(y) ? y : sinf(y) * cosf(y)));
+ return CMPLXF(x, copysignf(0, isinf(y) ? y : sinf(y) * cosf(y)));
}
if (!isfinite(y))
- return cpackf(y - y, y - y);
+ return CMPLXF(y - y, y - y);
if (ix >= 0x41300000) { /* x >= 11 */
float exp_mx = expf(-fabsf(x));
- return cpackf(copysignf(1, x), 4 * sinf(y) * cosf(y) * exp_mx * exp_mx);
+ return CMPLXF(copysignf(1, x), 4 * sinf(y) * cosf(y) * exp_mx * exp_mx);
}
t = tanf(y);
@@ -62,5 +62,5 @@ float complex ctanhf(float complex z)
s = sinhf(x);
rho = sqrtf(1 + s * s);
denom = 1 + beta * s * s;
- return cpackf((beta * rho * s) / denom, t / denom);
+ return CMPLXF((beta * rho * s) / denom, t / denom);
}
diff --git a/src/complex/ctanl.c b/src/complex/ctanl.c
index 4b4c99b6..ac1c3e0a 100644
--- a/src/complex/ctanl.c
+++ b/src/complex/ctanl.c
@@ -8,7 +8,7 @@ long double complex ctanl(long double complex z)
#else
long double complex ctanl(long double complex z)
{
- z = ctanhl(cpackl(-cimagl(z), creall(z)));
- return cpackl(cimagl(z), -creall(z));
+ z = ctanhl(CMPLXL(-cimagl(z), creall(z)));
+ return CMPLXL(cimagl(z), -creall(z));
}
#endif
diff --git a/src/internal/libm.h b/src/internal/libm.h
index a71c4c05..dfecd836 100644
--- a/src/internal/libm.h
+++ b/src/internal/libm.h
@@ -170,25 +170,12 @@ long double __p1evll(long double, const long double *, int);
#define STRICT_ASSIGN(type, lval, rval) ((lval) = (type)(rval))
#endif
-
/* complex */
-union dcomplex {
- double complex z;
- double a[2];
-};
-union fcomplex {
- float complex z;
- float a[2];
-};
-union lcomplex {
- long double complex z;
- long double a[2];
-};
-
-/* x + y*I is not supported properly by gcc */
-#define cpack(x,y) ((union dcomplex){.a={(x),(y)}}.z)
-#define cpackf(x,y) ((union fcomplex){.a={(x),(y)}}.z)
-#define cpackl(x,y) ((union lcomplex){.a={(x),(y)}}.z)
+#ifndef CMPLX
+#define CMPLX(x, y) __CMPLX(x, y, double)
+#define CMPLXF(x, y) __CMPLX(x, y, float)
+#define CMPLXL(x, y) __CMPLX(x, y, long double)
+#endif
#endif