complex: add C11 CMPLX macros and replace cpack with them

[musl] / src / complex / ctanhf.c

diff --git a/src/complex/ctanhf.c b/src/complex/ctanhf.c
index 7d74613..a7e1a5f 100644 (file)
--- 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);
 }