Return proper value for ctanh with an infinite real.
Infinite real returns a signed zero imaginary, with the sign matching
what the sign of sin (2 * __imag__ z) would be.
mingw-w64-crt/ChangeLog:
2010-07-05 Doug Semler <dougsemler@gmail.com>
* complex/complex_internal.h: Add defines for ABI epsilon values.
* complex/ctanh.def.h (ctanh): Return signed zero matching the
sign of sin(2 * __imag__ z).
git-svn-id: svn+ssh://svn.code.sf.net/p/mingw-w64/code/trunk@2778 4407c894-4637-0410-b4f5-ada5f102cad1
diff --git a/mingw-w64-crt/complex/complex_internal.h b/mingw-w64-crt/complex/complex_internal.h
index e88a297..f0217e7 100644
--- a/mingw-w64-crt/complex/complex_internal.h
+++ b/mingw-w64-crt/complex/complex_internal.h
@@ -68,6 +68,7 @@
# define __FLT_TYPE float
# define __FLT_ABI(N) N##f
# define __FLT_CST(N) N##F
+# define __FLT_EPSILON __FLT_EPSILON__
# define __FLT_NAN NANF
# define __FLT_HUGE_VAL HUGE_VALF
# define __FLT_PI M_PI
@@ -77,6 +78,7 @@
#elif defined(_NEW_COMPLEX_DOUBLE)
# define __FLT_TYPE double
# define __FLT_ABI(N) N
+# define __FLT_EPSILON __DBL_EPSILON__
# define __FLT_CST(N) N
# define __FLT_NAN NAN
# define __FLT_HUGE_VAL HUGE_VAL
@@ -88,6 +90,7 @@
# define __FLT_TYPE long double
# define __FLT_ABI(N) N##l
# define __FLT_CST(N) N##L
+# define __FLT_EPSILON __LDBL_EPSILON__
# define __FLT_NAN NANL
# define __FLT_HUGE_VAL HUGE_VALL
# define __FLT_PI M_PIl
