X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=src%2Fcomplex%2Fcasinf.c;h=2cda2f086b252dd49378efbfe0c7b2074701d455;hb=9b132e556774c744f9052581d2d8d0fab417e97c;hp=cb9863f6c3f3f2c4cfe07c80c9b8f89dd943d537;hpb=b69f695acedd4ce2798ef9ea28d834ceccc789bd;p=musl

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