1*12b1df16SDavid du Colombier #ifndef __FLOAT 2*12b1df16SDavid du Colombier #define __FLOAT 3*12b1df16SDavid du Colombier /* IEEE, default rounding */ 4*12b1df16SDavid du Colombier 5*12b1df16SDavid du Colombier #define FLT_ROUNDS 1 6*12b1df16SDavid du Colombier #define FLT_RADIX 2 7*12b1df16SDavid du Colombier 8*12b1df16SDavid du Colombier #define FLT_DIG 6 9*12b1df16SDavid du Colombier #define FLT_EPSILON 1.19209290e-07 10*12b1df16SDavid du Colombier #define FLT_MANT_DIG 24 11*12b1df16SDavid du Colombier #define FLT_MAX 3.40282347e+38 12*12b1df16SDavid du Colombier #define FLT_MAX_10_EXP 38 13*12b1df16SDavid du Colombier #define FLT_MAX_EXP 128 14*12b1df16SDavid du Colombier #define FLT_MIN 1.17549435e-38 15*12b1df16SDavid du Colombier #define FLT_MIN_10_EXP -37 16*12b1df16SDavid du Colombier #define FLT_MIN_EXP -125 17*12b1df16SDavid du Colombier 18*12b1df16SDavid du Colombier #define DBL_DIG 15 19*12b1df16SDavid du Colombier #define DBL_EPSILON 2.2204460492503131e-16 20*12b1df16SDavid du Colombier #define DBL_MANT_DIG 53 21*12b1df16SDavid du Colombier #define DBL_MAX 1.797693134862315708145e+308 22*12b1df16SDavid du Colombier #define DBL_MAX_10_EXP 308 23*12b1df16SDavid du Colombier #define DBL_MAX_EXP 1024 24*12b1df16SDavid du Colombier #define DBL_MIN 2.225073858507201383090233e-308 25*12b1df16SDavid du Colombier #define DBL_MIN_10_EXP -307 26*12b1df16SDavid du Colombier #define DBL_MIN_EXP -1021 27*12b1df16SDavid du Colombier #define LDBL_MANT_DIG DBL_MANT_DIG 28*12b1df16SDavid du Colombier #define LDBL_EPSILON DBL_EPSILON 29*12b1df16SDavid du Colombier #define LDBL_DIG DBL_DIG 30*12b1df16SDavid du Colombier #define LDBL_MIN_EXP DBL_MIN_EXP 31*12b1df16SDavid du Colombier #define LDBL_MIN DBL_MIN 32*12b1df16SDavid du Colombier #define LDBL_MIN_10_EXP DBL_MIN_10_EXP 33*12b1df16SDavid du Colombier #define LDBL_MAX_EXP DBL_MAX_EXP 34*12b1df16SDavid du Colombier #define LDBL_MAX DBL_MAX 35*12b1df16SDavid du Colombier #define LDBL_MAX_10_EXP DBL_MAX_10_EXP 36*12b1df16SDavid du Colombier 37*12b1df16SDavid du Colombier typedef union FPdbleword FPdbleword; 38*12b1df16SDavid du Colombier union FPdbleword 39*12b1df16SDavid du Colombier { 40*12b1df16SDavid du Colombier double x; 41*12b1df16SDavid du Colombier struct { /* little endian */ 42*12b1df16SDavid du Colombier long lo; 43*12b1df16SDavid du Colombier long hi; 44*12b1df16SDavid du Colombier }; 45*12b1df16SDavid du Colombier }; 46*12b1df16SDavid du Colombier 47*12b1df16SDavid du Colombier #ifdef _RESEARCH_SOURCE 48*12b1df16SDavid du Colombier /* define stuff needed for floating conversion */ 49*12b1df16SDavid du Colombier #define IEEE_8087 1 50*12b1df16SDavid du Colombier #define Sudden_Underflow 1 51*12b1df16SDavid du Colombier #endif 52*12b1df16SDavid du Colombier #ifdef _PLAN9_SOURCE 53*12b1df16SDavid du Colombier /* FCR */ 54*12b1df16SDavid du Colombier #define FPINEX (1<<7) 55*12b1df16SDavid du Colombier #define FPOVFL (1<<9) 56*12b1df16SDavid du Colombier #define FPUNFL (1<<8) 57*12b1df16SDavid du Colombier #define FPZDIV (1<<10) 58*12b1df16SDavid du Colombier #define FPRNR (0<<0) 59*12b1df16SDavid du Colombier #define FPRZ (1<<0) 60*12b1df16SDavid du Colombier #define FPRPINF (2<<0) 61*12b1df16SDavid du Colombier #define FPRNINF (3<<0) 62*12b1df16SDavid du Colombier #define FPRMASK (3<<0) 63*12b1df16SDavid du Colombier #define FPPEXT 0 64*12b1df16SDavid du Colombier #define FPPSGL 0 65*12b1df16SDavid du Colombier #define FPPDBL 0 66*12b1df16SDavid du Colombier #define FPPMASK 0 67*12b1df16SDavid du Colombier /* FSR */ 68*12b1df16SDavid du Colombier #define FPAINEX (1<<2) 69*12b1df16SDavid du Colombier #define FPAOVFL (1<<4) 70*12b1df16SDavid du Colombier #define FPAUNFL (1<<3) 71*12b1df16SDavid du Colombier #define FPAZDIV (1<<5) 72*12b1df16SDavid du Colombier #endif 73*12b1df16SDavid du Colombier #endif /* __FLOAT */ 74