remove another invalid skip of locking in ungetwc
[oweals/musl.git] / src / math / atanhl.c
index f63d60b153faec6881f5ecc7007e5d2a418adbe1..87cd1cdb5f325f01cf12d19594efbcead93472b1 100644 (file)
@@ -5,7 +5,7 @@ long double atanhl(long double x)
 {
        return atanh(x);
 }
-#elif LDBL_MANT_DIG == 64 && LDBL_MAX_EXP == 16384
+#elif (LDBL_MANT_DIG == 64 || LDBL_MANT_DIG == 113) && LDBL_MAX_EXP == 16384
 /* atanh(x) = log((1+x)/(1-x))/2 = log1p(2x/(1-x))/2 ~= x + x^3/3 + o(x^5) */
 long double atanhl(long double x)
 {