projects
/
musl
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove MAP_32 from non-x86 archs
[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)
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);
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))
}
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));
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);
}
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;
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);
}
}