X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=src%2Fcomplex%2Fctanhf.c;h=7f422ba7fd3a583fc4062575d625503839d0291d;hb=0847902ab99065a48f9bd3729b6e676288dfd69e;hp=a7e1a5fc0dccfdb8adeaf17b40794ebddf7c42a0;hpb=8bb181622222f2ee3462c8b021bcae4fcdbbd37a;p=musl

diff --git a/src/complex/ctanhf.c b/src/complex/ctanhf.c
index a7e1a5fc..7f422ba7 100644
--- a/src/complex/ctanhf.c
+++ b/src/complex/ctanhf.c
@@ -28,7 +28,7 @@
  * Hyperbolic tangent of a complex argument z.  See s_ctanh.c for details.
  */
 
-#include "libm.h"
+#include "complex_impl.h"
 
 float complex ctanhf(float complex z)
 {
@@ -50,7 +50,7 @@ float complex ctanhf(float complex z)
 	}
 
 	if (!isfinite(y))
-		return CMPLXF(y - y, y - y);
+		return CMPLXF(ix ? y - y : x, y - y);
 
 	if (ix >= 0x41300000) { /* x >= 11 */
 		float exp_mx = expf(-fabsf(x));