X-Git-Url: http://nsz.repo.hu/git/?p=musl;a=blobdiff_plain;f=src%2Fcomplex%2Fctanhf.c;h=a7e1a5fc0dccfdb8adeaf17b40794ebddf7c42a0;hp=7d746134b6d639fe9c418de48e5440fdef8ff62e;hb=cfbaba79a2dd380e580a247b8fd36af60c878e8f;hpb=e2fe959fe2a450f74271d4d3c4b0d9456f889125

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);
 }