femtolisp/llt/ieee754.h

#ifndef __IEEE754_H_
#define __IEEE754_H_

union ieee754_float {
    float f;

    struct {
#if BYTE_ORDER == BIG_ENDIAN
	unsigned int negative:1;
	unsigned int exponent:8;
	unsigned int mantissa:23;
#endif
#if BYTE_ORDER == LITTLE_ENDIAN
	unsigned int mantissa:23;
	unsigned int exponent:8;
	unsigned int negative:1;
#endif
    } ieee;
};

#define IEEE754_FLOAT_BIAS 0x7f

union ieee754_double {
    double d;

    struct {
#if BYTE_ORDER == BIG_ENDIAN
	unsigned int negative:1;
	unsigned int exponent:11;
	unsigned int mantissa0:20;
	unsigned int mantissa1:32;
#endif
#if BYTE_ORDER == LITTLE_ENDIAN
	unsigned int mantissa1:32;
	unsigned int mantissa0:20;
	unsigned int exponent:11;
	unsigned int negative:1;
#endif
    } ieee;
};

#define IEEE754_DOUBLE_BIAS 0x3ff

union ieee854_long_double {
    long double d;

    struct {
#if BYTE_ORDER == BIG_ENDIAN
	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
	unsigned int mantissa1:32;
	unsigned int mantissa0:32;
	unsigned int exponent:15;
	unsigned int negative:1;
	unsigned int empty:16;
#endif
    } ieee;
};

#define IEEE854_LONG_DOUBLE_BIAS 0x3fff

#endif
misc. updates, mostly about portability and warnings removing some unnecessary #includes 2010-08-04 15:03:19 -04:00			`#ifndef __IEEE754_H_`
			`#define __IEEE754_H_`
import of llt library source 2008-06-30 21:53:51 -04:00
misc. updates, mostly about portability and warnings removing some unnecessary #includes 2010-08-04 15:03:19 -04:00			`union ieee754_float {`
import of llt library source 2008-06-30 21:53:51 -04:00			`float f;`

misc. updates, mostly about portability and warnings removing some unnecessary #includes 2010-08-04 15:03:19 -04:00			`struct {`
			`#if BYTE_ORDER == BIG_ENDIAN`
import of llt library source 2008-06-30 21:53:51 -04:00			`unsigned int negative:1;`
			`unsigned int exponent:8;`
			`unsigned int mantissa:23;`
misc. updates, mostly about portability and warnings removing some unnecessary #includes 2010-08-04 15:03:19 -04:00			`#endif`
			`#if BYTE_ORDER == LITTLE_ENDIAN`
import of llt library source 2008-06-30 21:53:51 -04:00			`unsigned int mantissa:23;`
			`unsigned int exponent:8;`
			`unsigned int negative:1;`
misc. updates, mostly about portability and warnings removing some unnecessary #includes 2010-08-04 15:03:19 -04:00			`#endif`
			`} ieee;`
			`};`
import of llt library source 2008-06-30 21:53:51 -04:00
misc. updates, mostly about portability and warnings removing some unnecessary #includes 2010-08-04 15:03:19 -04:00			`#define IEEE754_FLOAT_BIAS 0x7f`
import of llt library source 2008-06-30 21:53:51 -04:00
misc. updates, mostly about portability and warnings removing some unnecessary #includes 2010-08-04 15:03:19 -04:00			`union ieee754_double {`
import of llt library source 2008-06-30 21:53:51 -04:00			`double d;`

misc. updates, mostly about portability and warnings removing some unnecessary #includes 2010-08-04 15:03:19 -04:00			`struct {`
			`#if BYTE_ORDER == BIG_ENDIAN`
import of llt library source 2008-06-30 21:53:51 -04:00			`unsigned int negative:1;`
			`unsigned int exponent:11;`
			`unsigned int mantissa0:20;`
			`unsigned int mantissa1:32;`
misc. updates, mostly about portability and warnings removing some unnecessary #includes 2010-08-04 15:03:19 -04:00			`#endif`
			`#if BYTE_ORDER == LITTLE_ENDIAN`
import of llt library source 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`
misc. updates, mostly about portability and warnings removing some unnecessary #includes 2010-08-04 15:03:19 -04:00			`} ieee;`
			`};`
import of llt library source 2008-06-30 21:53:51 -04:00
misc. updates, mostly about portability and warnings removing some unnecessary #includes 2010-08-04 15:03:19 -04:00			`#define IEEE754_DOUBLE_BIAS 0x3ff`
import of llt library source 2008-06-30 21:53:51 -04:00
misc. updates, mostly about portability and warnings removing some unnecessary #includes 2010-08-04 15:03:19 -04:00			`union ieee854_long_double {`
import of llt library source 2008-06-30 21:53:51 -04:00			`long double d;`

misc. updates, mostly about portability and warnings removing some unnecessary #includes 2010-08-04 15:03:19 -04:00			`struct {`
			`#if BYTE_ORDER == BIG_ENDIAN`
import of llt library source 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`
misc. updates, mostly about portability and warnings removing some unnecessary #includes 2010-08-04 15:03:19 -04:00			`#if BYTE_ORDER == LITTLE_ENDIAN`
import of llt library source 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`
misc. updates, mostly about portability and warnings removing some unnecessary #includes 2010-08-04 15:03:19 -04:00			`} ieee;`
			`};`
import of llt library source 2008-06-30 21:53:51 -04:00
			`#define IEEE854_LONG_DOUBLE_BIAS 0x3fff`

misc. updates, mostly about portability and warnings removing some unnecessary #includes 2010-08-04 15:03:19 -04:00			`#endif`