diff options
| author | Ian Moffett <ian@osmora.org> | 2025-07-14 22:39:34 -0400 |
|---|---|---|
| committer | Ian Moffett <ian@osmora.org> | 2025-07-14 23:27:58 -0400 |
| commit | 30634165980deaeead9f4e71e0ff6a5c9d897776 (patch) | |
| tree | 18546a9d493a699eb3ea23ab5cc792d40cf82d7d /lib/libc/src/musl-math/frexpl.c | |
| parent | 83acdbef7ae961c2ae296835df3f368573c89eeb (diff) | |
usr: libc: Add math.h + musl math impl portexpt
Signed-off-by: Ian Moffett <ian@osmora.org>
Diffstat (limited to 'lib/libc/src/musl-math/frexpl.c')
| -rw-r--r-- | lib/libc/src/musl-math/frexpl.c | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/lib/libc/src/musl-math/frexpl.c b/lib/libc/src/musl-math/frexpl.c new file mode 100644 index 0000000..e05cf75 --- /dev/null +++ b/lib/libc/src/musl-math/frexpl.c @@ -0,0 +1,30 @@ +#include "libm.h" + +#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024 +long double frexpl(long double x, int *e) +{ + return frexp(x, e); +} +#elif (LDBL_MANT_DIG == 64 || LDBL_MANT_DIG == 113) && LDBL_MAX_EXP == 16384 +long double frexpl(long double x, int *e) +{ + union ldshape u = {x}; + int ee = u.i.se & 0x7fff; + + if (!ee) { + if (x) { + x = frexpl(x*0x1p120, e); + *e -= 120; + } else *e = 0; + return x; + } else if (ee == 0x7fff) { + *e = 0; + return x; + } + + *e = ee - 0x3ffe; + u.i.se &= 0x8000; + u.i.se |= 0x3ffe; + return u.f; +} +#endif |