math: tgammal.c fixes

[oweals/musl.git] / src / math / hypotf.c

diff --git a/src/math/hypotf.c b/src/math/hypotf.c
index 9fd77e6aa09cfd4db86f1c3c6aa177d52a43f7f2..4d80178de11216c0efa515be57f3ba515c7b9294 100644 (file)
--- a/src/math/hypotf.c
+++ b/src/math/hypotf.c
@@ -80,9 +80,7 @@ float hypotf(float x, float y)
                t2 = a - t1;
                w  = sqrtf(t1*y1-(w*(-w)-(t1*y2+t2*b)));
        }
-       if (k != 0) {
-               SET_FLOAT_WORD(t1, 0x3f800000+(k<<23));
-               return t1*w;
-       }
+       if (k)
+               w = scalbnf(w, k);
        return w;
 }