mirror of https://git.musl-libc.org/git/musl
2 changed files with 0 additions and 113 deletions
@ -1,111 +0,0 @@ |
|||||
#ifndef _LDHACK_H |
|
||||
#define _LDHACK_H |
|
||||
|
|
||||
#include <float.h> |
|
||||
#include <stdint.h> |
|
||||
|
|
||||
// FIXME: hacks to make freebsd+openbsd long double code happy
|
|
||||
|
|
||||
// union and macros for freebsd
|
|
||||
|
|
||||
#if LDBL_MANT_DIG == 64 && LDBL_MAX_EXP == 16384 |
|
||||
|
|
||||
union IEEEl2bits { |
|
||||
long double e; |
|
||||
struct { |
|
||||
uint32_t manl:32; |
|
||||
uint32_t manh:32; |
|
||||
uint32_t exp:15; |
|
||||
uint32_t sign:1; |
|
||||
uint32_t pad:16; |
|
||||
} bits; |
|
||||
struct { |
|
||||
uint64_t man:64; |
|
||||
uint32_t expsign:16; |
|
||||
uint32_t pad:16; |
|
||||
} xbits; |
|
||||
}; |
|
||||
|
|
||||
#define LDBL_MANL_SIZE 32 |
|
||||
#define LDBL_MANH_SIZE 32 |
|
||||
#define LDBL_NBIT (1ull << LDBL_MANH_SIZE-1) |
|
||||
#undef LDBL_IMPLICIT_NBIT |
|
||||
#define mask_nbit_l(u) ((u).bits.manh &= ~LDBL_NBIT) |
|
||||
|
|
||||
#elif LDBL_MANT_DIG == 113 && LDBL_MAX_EXP == 16384 |
|
||||
/*
|
|
||||
// ld128 float.h
|
|
||||
//#define LDBL_MAX 1.189731495357231765085759326628007016E+4932L
|
|
||||
#define LDBL_MAX 0x1.ffffffffffffffffffffffffffffp+16383 |
|
||||
#define LDBL_MAX_EXP 16384 |
|
||||
#define LDBL_HAS_INFINITY 1 |
|
||||
//#define LDBL_MIN 3.362103143112093506262677817321752603E-4932L
|
|
||||
#define LDBL_MIN 0x1p-16382 |
|
||||
#define LDBL_HAS_QUIET_NAN 1 |
|
||||
#define LDBL_HAS_DENORM 1 |
|
||||
//#define LDBL_EPSILON 1.925929944387235853055977942584927319E-34L
|
|
||||
#define LDBL_EPSILON 0x1p-112 |
|
||||
#define LDBL_MANT_DIG 113 |
|
||||
#define LDBL_MIN_EXP (-16381) |
|
||||
#define LDBL_MAX_10_EXP 4932 |
|
||||
#define LDBL_DENORM_MIN 0x0.0000000000000000000000000001p-16381 |
|
||||
#define LDBL_MIN_10_EXP (-4931) |
|
||||
#define LDBL_DIG 33 |
|
||||
*/ |
|
||||
|
|
||||
union IEEEl2bits { |
|
||||
long double e; |
|
||||
struct { |
|
||||
uint64_t manl:64; |
|
||||
uint64_t manh:48; |
|
||||
uint32_t exp:15; |
|
||||
uint32_t sign:1; |
|
||||
} bits; |
|
||||
struct { |
|
||||
uint64_t unused0:64; |
|
||||
uint64_t unused1:48; |
|
||||
uint32_t expsign:16; |
|
||||
} xbits; |
|
||||
}; |
|
||||
|
|
||||
#define LDBL_MANL_SIZE 64 |
|
||||
#define LDBL_MANH_SIZE 48 |
|
||||
#define LDBL_NBIT (1ull << LDBL_MANH_SIZE) |
|
||||
#define LDBL_IMPLICIT_NBIT 1 |
|
||||
#define mask_nbit_l(u) |
|
||||
|
|
||||
#endif |
|
||||
|
|
||||
|
|
||||
// macros for openbsd
|
|
||||
|
|
||||
#define GET_LDOUBLE_WORDS(se,mh,ml, f) do{ \ |
|
||||
union IEEEl2bits u; \ |
|
||||
u.e = (f); \ |
|
||||
(se) = u.xbits.expsign; \ |
|
||||
(mh) = u.bits.manh; \ |
|
||||
(ml) = u.bits.manl; \ |
|
||||
}while(0) |
|
||||
|
|
||||
#define SET_LDOUBLE_WORDS(f, se,mh,ml) do{ \ |
|
||||
union IEEEl2bits u; \ |
|
||||
u.xbits.expsign = (se); \ |
|
||||
u.bits.manh = (mh); \ |
|
||||
u.bits.manl = (ml); \ |
|
||||
(f) = u.e; \ |
|
||||
}while(0) |
|
||||
|
|
||||
#define GET_LDOUBLE_EXP(se, f) do{ \ |
|
||||
union IEEEl2bits u; \ |
|
||||
u.e = (f); \ |
|
||||
(se) = u.xbits.expsign; \ |
|
||||
}while(0) |
|
||||
|
|
||||
#define SET_LDOUBLE_EXP(f, se) do{ \ |
|
||||
union IEEEl2bits u; \ |
|
||||
u.e = (f); \ |
|
||||
u.xbits.expsign = (se); \ |
|
||||
(f) = u.e; \ |
|
||||
}while(0) |
|
||||
|
|
||||
#endif |
|
||||
Loading…
Reference in new issue