blob: 7bcfa1980e890c84261d083279c4478c2eef82ad (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
/* this file is #included into both C (.c and .hc) and Haskell files */
/* IEEE format floating-point */
#define IEEE_FLOATING_POINT 1
/* Radix of exponent representation */
#if !defined(FLT_RADIX)
# define FLT_RADIX 2
#endif
/* Number of base-FLT_RADIX digits in the significand of a float */
#if !defined(FLT_MANT_DIG)
# define FLT_MANT_DIG 24
#endif
/* Minimum int x such that FLT_RADIX**(x-1) is a normalised float */
#if !defined(FLT_MIN_EXP)
# define FLT_MIN_EXP (-125)
#endif
/* Maximum int x such that FLT_RADIX**(x-1) is a representable float */
#if !defined(FLT_MAX_EXP)
# define FLT_MAX_EXP 128
#endif
/* Number of base-FLT_RADIX digits in the significand of a double */
#if !defined(DBL_MANT_DIG)
# define DBL_MANT_DIG 53
#endif
/* Minimum int x such that FLT_RADIX**(x-1) is a normalised double */
#if !defined(DBL_MIN_EXP)
# define DBL_MIN_EXP (-1021)
#endif
/* Maximum int x such that FLT_RADIX**(x-1) is a representable double */
#if !defined(DBL_MAX_EXP)
# define DBL_MAX_EXP 1024
#endif
|
