X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcomplex%2Fcasinf.c;h=2cda2f086b252dd49378efbfe0c7b2074701d455;hb=9532ae1318201d66b235a618df16aac0b3386630;hp=93f0e335092b02241445a50461c70e88b6295594;hpb=cfbaba79a2dd380e580a247b8fd36af60c878e8f;p=musl

diff --git a/src/complex/casinf.c b/src/complex/casinf.c
index 93f0e335..2cda2f08 100644
--- a/src/complex/casinf.c
+++ b/src/complex/casinf.c
@@ -1,4 +1,4 @@
-#include "libm.h"
+#include "complex_impl.h"
 
 // FIXME
 
@@ -10,5 +10,6 @@ float complex casinf(float complex z)
 	x = crealf(z);
 	y = cimagf(z);
 	w = CMPLXF(1.0 - (x - y)*(x + y), -2.0*x*y);
-	return clogf(CMPLXF(-y, x) + csqrtf(w));
+	float complex r = clogf(CMPLXF(-y, x) + csqrtf(w));
+	return CMPLXF(cimagf(r), -crealf(r));
 }