X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=src%2Fcomplex%2Fcasin.c;h=3244bebb169349d946a63bd2b7e984be75821294;hb=d055e6a45a17673b8dd3ec16e786bb2fe1700dd5;hp=79aff2789de96c0e8728fb0d3b6b25f9d114c800;hpb=b69f695acedd4ce2798ef9ea28d834ceccc789bd;p=musl

diff --git a/src/complex/casin.c b/src/complex/casin.c
index 79aff278..3244bebb 100644
--- a/src/complex/casin.c
+++ b/src/complex/casin.c
@@ -1,4 +1,4 @@
-#include "libm.h"
+#include "complex_impl.h"
 
 // FIXME
 
@@ -11,6 +11,7 @@ double complex casin(double complex z)
 
 	x = creal(z);
 	y = cimag(z);
-	w = cpack(1.0 - (x - y)*(x + y), -2.0*x*y);
-	return clog(cpack(-y, x) + csqrt(w));
+	w = CMPLX(1.0 - (x - y)*(x + y), -2.0*x*y);
+	double complex r = clog(CMPLX(-y, x) + csqrt(w));
+	return CMPLX(cimag(r), -creal(r));
 }