projects
/
musl
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
release 1.1.22
[musl]
/
src
/
complex
/
casin.c
diff --git
a/src/complex/casin.c
b/src/complex/casin.c
index
dfdda98
..
01ed618
100644
(file)
--- a/
src/complex/casin.c
+++ b/
src/complex/casin.c
@@
-12,5
+12,6
@@
double complex casin(double complex z)
x = creal(z);
y = cimag(z);
w = CMPLX(1.0 - (x - y)*(x + y), -2.0*x*y);
- return clog(CMPLX(-y, x) + csqrt(w));
+ double complex r = clog(CMPLX(-y, x) + csqrt(w));
+ return CMPLX(cimag(r), -creal(r));
}