diff options
Diffstat (limited to 'src/stdlib')
-rw-r--r-- | src/stdlib/frexp.c | 23 | ||||
-rw-r--r-- | src/stdlib/frexpf.c | 23 | ||||
-rw-r--r-- | src/stdlib/frexpl.c | 37 |
3 files changed, 0 insertions, 83 deletions
diff --git a/src/stdlib/frexp.c b/src/stdlib/frexp.c deleted file mode 100644 index ae82cb30..00000000 --- a/src/stdlib/frexp.c +++ /dev/null @@ -1,23 +0,0 @@ -#include <math.h> -#include <inttypes.h> - -double frexp(double x, int *e) -{ - union { double d; uint64_t i; } y = { x }; - int ee = y.i>>52 & 0x7ff; - - if (!ee) { - if (x) { - x = frexp(x*0x1p64, e); - *e -= 64; - } else *e = 0; - return x; - } else if (ee == 0x7ff) { - return x; - } - - *e = ee - 0x3fe; - y.i &= 0x800fffffffffffffull; - y.i |= 0x3fe0000000000000ull; - return y.d; -} diff --git a/src/stdlib/frexpf.c b/src/stdlib/frexpf.c deleted file mode 100644 index ee5e910a..00000000 --- a/src/stdlib/frexpf.c +++ /dev/null @@ -1,23 +0,0 @@ -#include <math.h> -#include <inttypes.h> - -float frexpf(float x, int *e) -{ - union { float f; uint32_t i; } y = { x }; - int ee = y.i>>23 & 0xff; - - if (!ee) { - if (x) { - x = frexpf(x*0x1p64, e); - *e -= 64; - } else *e = 0; - return x; - } else if (ee == 0xff) { - return x; - } - - *e = ee - 0x7e; - y.i &= 0x807ffffful; - y.i |= 0x3f000000ul; - return y.f; -} diff --git a/src/stdlib/frexpl.c b/src/stdlib/frexpl.c deleted file mode 100644 index 3472bf70..00000000 --- a/src/stdlib/frexpl.c +++ /dev/null @@ -1,37 +0,0 @@ -#include <math.h> -#include <inttypes.h> -#include <float.h> - -#if LDBL_MANT_DIG == 64 && LDBL_MAX_EXP == 16384 - -/* This version is for 80-bit little endian long double */ - -long double frexpl(long double x, int *e) -{ - union { long double ld; uint16_t hw[5]; } y = { x }; - int ee = y.hw[4]&0x7fff; - - if (!ee) { - if (x) { - x = frexpl(x*0x1p64, e); - *e -= 64; - } else *e = 0; - return x; - } else if (ee == 0x7fff) { - return x; - } - - *e = ee - 0x3ffe; - y.hw[4] &= 0x8000; - y.hw[4] |= 0x3ffe; - return y.ld; -} - -#else - -long double frexpl(long double x, int *e) -{ - return frexp(x, e); -} - -#endif |