femtolisp/llt/ieee754.h

68 lines
1.2 KiB
C
Raw Normal View History

#ifndef __IEEE754_H_
#define __IEEE754_H_
2008-06-30 21:53:51 -04:00
union ieee754_float {
2008-06-30 21:53:51 -04:00
float f;
struct {
#if BYTE_ORDER == BIG_ENDIAN
2008-06-30 21:53:51 -04:00
unsigned int negative:1;
unsigned int exponent:8;
unsigned int mantissa:23;
#endif
#if BYTE_ORDER == LITTLE_ENDIAN
2008-06-30 21:53:51 -04:00
unsigned int mantissa:23;
unsigned int exponent:8;
unsigned int negative:1;
#endif
} ieee;
};
2008-06-30 21:53:51 -04:00
#define IEEE754_FLOAT_BIAS 0x7f
2008-06-30 21:53:51 -04:00
union ieee754_double {
2008-06-30 21:53:51 -04:00
double d;
struct {
#if BYTE_ORDER == BIG_ENDIAN
2008-06-30 21:53:51 -04:00
unsigned int negative:1;
unsigned int exponent:11;
unsigned int mantissa0:20;
unsigned int mantissa1:32;
#endif
#if BYTE_ORDER == LITTLE_ENDIAN
2008-06-30 21:53:51 -04:00
unsigned int mantissa1:32;
unsigned int mantissa0:20;
unsigned int exponent:11;
unsigned int negative:1;
#endif
} ieee;
};
2008-06-30 21:53:51 -04:00
#define IEEE754_DOUBLE_BIAS 0x3ff
2008-06-30 21:53:51 -04:00
union ieee854_long_double {
2008-06-30 21:53:51 -04:00
long double d;
struct {
#if BYTE_ORDER == BIG_ENDIAN
2008-06-30 21:53:51 -04:00
unsigned int negative:1;
unsigned int exponent:15;
unsigned int empty:16;
unsigned int mantissa0:32;
unsigned int mantissa1:32;
#endif
#if BYTE_ORDER == LITTLE_ENDIAN
2008-06-30 21:53:51 -04:00
unsigned int mantissa1:32;
unsigned int mantissa0:32;
unsigned int exponent:15;
unsigned int negative:1;
unsigned int empty:16;
#endif
} ieee;
};
2008-06-30 21:53:51 -04:00
#define IEEE854_LONG_DOUBLE_BIAS 0x3fff
#endif