ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

msvcrt: Import atanf implementation from musl. 

Signed-off-by: Piotr Caban <piotr@codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard@winehq.org>
This commit is contained in:
Piotr Caban 2021-05-25 15:21:18 +02:00 committed by Alexandre Julliard
parent da55a453d1
commit ed49a95d1e
6 changed files with 22 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
configure vendored
View File

@ -19617,7 +19617,6 @@ fi
for ac_func in \ for ac_func in \
atanh \ atanh \
atanhf \
exp2 \ exp2 \
exp2f \ exp2f \
expm1 \ expm1 \

1
configure.ac
View File

@ -2657,7 +2657,6 @@ fi
AC_CHECK_FUNCS(\ AC_CHECK_FUNCS(\
atanh \ atanh \
atanhf \
exp2 \ exp2 \
exp2f \ exp2f \
expm1 \ expm1 \

28
dlls/msvcrt/math.c
View File

@ -6687,21 +6687,37 @@ double CDECL atanh(double x)
/********************************************************************* /*********************************************************************
* atanhf (MSVCR120.@) * atanhf (MSVCR120.@)
*
* Copied from musl: src/math/atanhf.c
*/ */
float CDECL atanhf(float x) float CDECL atanhf(float x)
{ {
float ret; UINT32 ux = *(UINT32*)&x;
int s = ux >> 31;
if (x > 1 || x < -1) { /* |x| */
ux &= 0x7fffffff;
x = *(float*)&ux;
if (x > 1) {
*_errno() = EDOM; *_errno() = EDOM;
feraiseexcept(FE_INVALID); feraiseexcept(FE_INVALID);
return NAN; return NAN;
} }
ret = unix_funcs->atanh( x ); if (ux < 0x3f800000 - (1 << 23)) {
if (ux < 0x3f800000 - (32 << 23)) {
if (!isfinite(ret)) *_errno() = ERANGE; fp_barrierf(x + 0x1p120f);
return ret; if (ux < (1 << 23)) /* handle underflow */
fp_barrierf(x * x);
} else { /* |x| < 0.5, up to 1.7ulp error */
x = 0.5f * log1pf(2 * x + 2 * x * x / (1 - x));
}
} else { /* avoid overflow */
x = 0.5f * log1pf(2 * (x / (1 - x)));
if (isinf(x)) *_errno() = ERANGE;
}
return s ? -x : x;
} }
#endif /* _MSVCR_VER>=120 */ #endif /* _MSVCR_VER>=120 */

13
dlls/msvcrt/unixlib.c
View File

@ -55,18 +55,6 @@ static double CDECL unix_atanh(double x)
#endif #endif
} }
/*********************************************************************
* atanhf
*/
static float CDECL unix_atanhf(float x)
{
#ifdef HAVE_ATANHF
return atanhf(x);
#else
return unix_atanh(x);
#endif
}
/********************************************************************* /*********************************************************************
* cosh * cosh
*/ */
@ -394,7 +382,6 @@ static float CDECL unix_tgammaf(float x)
static const struct unix_funcs funcs = static const struct unix_funcs funcs =
{ {
unix_atanh, unix_atanh,
unix_atanhf,
unix_cosh, unix_cosh,
unix_coshf, unix_coshf,
unix_exp, unix_exp,

1
dlls/msvcrt/unixlib.h
View File

@ -24,7 +24,6 @@
struct unix_funcs struct unix_funcs
{ {
double (CDECL *atanh)(double x); double (CDECL *atanh)(double x);
float (CDECL *atanhf)(float x);
double (CDECL *cosh)(double x); double (CDECL *cosh)(double x);
float (CDECL *coshf)(float x); float (CDECL *coshf)(float x);
double (CDECL *exp)(double x); double (CDECL *exp)(double x);

3
include/config.h.in
View File

@ -34,9 +34,6 @@
/* Define to 1 if you have the `atanh' function. */ /* Define to 1 if you have the `atanh' function. */
#undef HAVE_ATANH #undef HAVE_ATANH
/* Define to 1 if you have the `atanhf' function. */
#undef HAVE_ATANHF
/* Define to 1 if you have the <AudioToolbox/AudioConverter.h> header file. */ /* Define to 1 if you have the <AudioToolbox/AudioConverter.h> header file. */
#undef HAVE_AUDIOTOOLBOX_AUDIOCONVERTER_H #undef HAVE_AUDIOTOOLBOX_AUDIOCONVERTER_H