about summary refs log tree commit diff
path: root/src/complex/ctanhf.c
diff options
context:
space:
mode:
authorSzabolcs Nagy <nsz@port70.net>2012-11-13 01:31:49 +0100
committerSzabolcs Nagy <nsz@port70.net>2012-11-13 01:31:49 +0100
commitcfbaba79a2dd380e580a247b8fd36af60c878e8f (patch)
treea002987af1ea7652985973f8db98d2d4f8b6064a /src/complex/ctanhf.c
parente2fe959fe2a450f74271d4d3c4b0d9456f889125 (diff)
downloadmusl-cfbaba79a2dd380e580a247b8fd36af60c878e8f.tar.gz
musl-cfbaba79a2dd380e580a247b8fd36af60c878e8f.tar.xz
musl-cfbaba79a2dd380e580a247b8fd36af60c878e8f.zip
complex: add C11 CMPLX macros and replace cpack with them
Diffstat (limited to 'src/complex/ctanhf.c')
-rw-r--r--src/complex/ctanhf.c10
1 files changed, 5 insertions, 5 deletions
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);
 }