diff options
| author | Szabolcs Nagy <nsz@port70.net> | 2012-11-13 01:31:49 +0100 |
|---|---|---|
| committer | Szabolcs Nagy <nsz@port70.net> | 2012-11-13 01:31:49 +0100 |
| commit | cfbaba79a2dd380e580a247b8fd36af60c878e8f (patch) | |
| tree | a002987af1ea7652985973f8db98d2d4f8b6064a /src/complex/ctanhf.c | |
| parent | e2fe959fe2a450f74271d4d3c4b0d9456f889125 (diff) | |
| download | musl-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.c | 10 |
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); } |