msvcrt: Make the tanhf function NAN preserving.

Signed-off-by: Martin Storsjo <martin@martin.st> Signed-off-by: Piotr Caban <piotr@codeweavers.com> Signed-off-by: Alexandre Julliard <julliard@winehq.org>

msvcrt: Make the tanhf function NAN preserving.
e93e2467 · Martin Storsjo · Alexandre Julliard · 4fd9daea · e93e2467
Commit e93e2467 authored Jul 28, 2021 by Martin Storsjo Committed by Alexandre Julliard Jul 28, 2021
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 3 deletions

math.c dlls/msvcrt/math.c +6 -3

No files found.
--- a/dlls/msvcrt/math.c
+++ b/dlls/msvcrt/math.c
@@ -1881,21 +1881,24 @@ float CDECL tanf( float x )
 float CDECL tanhf( float x )
 {
    UINT32 ui = *(UINT32*)&x;
-    int sign;
+    UINT32 sign = ui & 0x80000000;
    float t;

    /* x = |x| */
-    sign = ui >> 31;
    ui &= 0x7fffffff;
    x = *(float*)&ui;

    if (ui > 0x3f0c9f54) {
        /* |x| > log(3)/2 ~= 0.5493 or nan */
        if (ui > 0x41200000) {
+            if (ui > 0x7f800000) {
+                *(UINT32*)&x = ui | sign | 0x400000;
 #if _MSVCR_VER < 140
-            if (isnan(x))
                return math_error(_DOMAIN, "tanhf", x, 0, x);
+#else
+                return x;
 #endif
+            }
            /* |x| > 10 */
            fp_barrierf(x + 0x1p120f);
            t = 1 + 0 / x;