projects
/
musl
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
mq_notify: block all (application) signals in the worker thread
[musl]
/
src
/
complex
/
casinl.c
diff --git
a/src/complex/casinl.c
b/src/complex/casinl.c
index
0916c60
..
072adc4
100644
(file)
--- a/
src/complex/casinl.c
+++ b/
src/complex/casinl.c
@@
-1,4
+1,4
@@
-#include "
libm
.h"
+#include "
complex_impl
.h"
#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
long double complex casinl(long double complex z)
#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
long double complex casinl(long double complex z)
@@
-15,6
+15,7
@@
long double complex casinl(long double complex z)
x = creall(z);
y = cimagl(z);
w = CMPLXL(1.0 - (x - y)*(x + y), -2.0*x*y);
x = creall(z);
y = cimagl(z);
w = CMPLXL(1.0 - (x - y)*(x + y), -2.0*x*y);
- return clogl(CMPLXL(-y, x) + csqrtl(w));
+ long double complex r = clogl(CMPLXL(-y, x) + csqrtl(w));
+ return CMPLXL(cimagl(r), -creall(r));
}
#endif
}
#endif