elf.h: add ELFCOMPRESS_ZSTD

[musl] / src / math / tanhl.c

diff --git a/src/math/tanhl.c b/src/math/tanhl.c
index 66559e9..4e1aa9f 100644 (file)
--- a/src/math/tanhl.c
+++ b/src/math/tanhl.c
@@ -8,10 +8,7 @@ long double tanhl(long double x)
 #elif LDBL_MANT_DIG == 64 && LDBL_MAX_EXP == 16384
 long double tanhl(long double x)
 {
-       union {
-               long double f;
-               struct{uint64_t m; uint16_t se; uint16_t pad;} i;
-       } u = {.f = x};
+       union ldshape u = {x};
        unsigned ex = u.i.se & 0x7fff;
        unsigned sign = u.i.se & 0x8000;
        uint32_t w;
@@ -42,4 +39,10 @@ long double tanhl(long double x)
        }
        return sign ? -t : t;
 }
+#elif LDBL_MANT_DIG == 113 && LDBL_MAX_EXP == 16384
+// TODO: broken implementation to make things compile
+long double tanhl(long double x)
+{
+       return tanh(x);
+}
 #endif