1 /* -----------------------------------------------------------------------------
2 * $Id: HsFFI.h,v 1.3 2000/04/13 15:37:11 panne Exp $
4 * (c) The GHC Team, 2000
6 * A mapping for Haskell types to C types, including the corresponding bounds.
7 * Intended to be used in conjuction with the FFI.
9 * WARNING: Keep this file and StgTypes.h in synch!
11 * ---------------------------------------------------------------------------*/
16 /* get types from GHC's runtime system */
19 /* get limits for integral types */
21 /* ISO C 99 requires this */
22 #define __STDC_LIMIT_MACROS
25 /* second best guess (e.g. on Solaris) */
29 /* if we had no luck, let's do it for ourselves (assuming 64bit long longs) */
31 #define INT8_MIN (-128)
32 #define INT16_MIN (-32767-1)
33 #define INT32_MIN (-2147483647-1)
34 #define INT64_MIN (-9223372036854775807LL-1)
35 #define INT8_MAX (127)
36 #define INT16_MAX (32767)
37 #define INT32_MAX (2147483647)
38 #define INT64_MAX (9223372036854775807LL)
39 #define UINT8_MAX (255U)
40 #define UINT16_MAX (65535U)
41 #define UINT32_MAX (4294967295U)
42 #define UINT64_MAX (18446744073709551615ULL)
45 /* get limits for floating point types */
48 typedef StgChar HsChar;
50 typedef StgInt8 HsInt8;
51 typedef StgInt16 HsInt16;
52 typedef StgInt32 HsInt32;
53 typedef StgInt64 HsInt64;
54 typedef StgWord8 HsWord8;
55 typedef StgWord16 HsWord16;
56 typedef StgWord32 HsWord32;
57 typedef StgWord64 HsWord64;
58 typedef StgFloat HsFloat;
59 typedef StgDouble HsDouble;
60 typedef StgBool HsBool;
61 typedef void* HsAddr; /* this should better match StgAddr */
62 typedef void* HsForeignObj; /* ... and this StgForeignPtr */
63 typedef void* HsStablePtr;
65 /* this should correspond to the type of StgChar in StgTypes.h */
66 #define HS_CHAR_MIN (0)
67 #define HS_CHAR_MAX UINT8_MAX
69 /* this mirrors the distinction of cases in StgTypes.h */
70 #if SIZEOF_VOID_P == 8
71 #define HS_INT_MIN INT64_MIN
72 #define HS_INT_MAX INT64_MAX
73 #elif SIZEOF_VOID_P == 4
74 #define HS_INT_MIN INT32_MIN
75 #define HS_INT_MAX INT32_MAX
77 #error GHC untested on this architecture: sizeof(void *) != 4 or 8
80 #define HS_INT8_MIN INT8_MIN
81 #define HS_INT8_MAX INT8_MAX
82 #define HS_INT16_MIN INT16_MIN
83 #define HS_INT16_MAX INT16_MAX
84 #define HS_INT32_MIN INT32_MIN
85 #define HS_INT32_MAX INT32_MAX
86 #define HS_INT64_MIN INT64_MIN
87 #define HS_INT64_MAX INT64_MAX
88 #define HS_WORD8_MAX UINT8_MAX
89 #define HS_WORD16_MAX UINT16_MAX
90 #define HS_WORD32_MAX UINT32_MAX
91 #define HS_WORD64_MAX UINT64_MAX
93 #ifdef FLOATS_AS_DOUBLES
95 #define HS_FLOAT_RADIX DBL_RADIX
96 #define HS_FLOAT_ROUNDS DBL_ROUNDS
97 #define HS_FLOAT_EPSILON DBL_EPSILON
98 #define HS_FLOAT_DIG DBL_DIG
99 #define HS_FLOAT_MANT_DIG DBL_MANT_DIG
100 #define HS_FLOAT_MIN DBL_MIN
101 #define HS_FLOAT_MIN_EXP DBL_MIN_EXP
102 #define HS_FLOAT_MIN_10_EXP DBL_MIN_10_EXP
103 #define HS_FLOAT_MAX DBL_MAX
104 #define HS_FLOAT_MAX_EXP DBL_MAX_EXP
105 #define HS_FLOAT_MAX_10_EXP DBL_MAX_10_EXP
109 #define HS_FLOAT_RADIX FLT_RADIX
110 #define HS_FLOAT_ROUNDS FLT_ROUNDS
111 #define HS_FLOAT_EPSILON FLT_EPSILON
112 #define HS_FLOAT_DIG FLT_DIG
113 #define HS_FLOAT_MANT_DIG FLT_MANT_DIG
114 #define HS_FLOAT_MIN FLT_MIN
115 #define HS_FLOAT_MIN_EXP FLT_MIN_EXP
116 #define HS_FLOAT_MIN_10_EXP FLT_MIN_10_EXP
117 #define HS_FLOAT_MAX FLT_MAX
118 #define HS_FLOAT_MAX_EXP FLT_MAX_EXP
119 #define HS_FLOAT_MAX_10_EXP FLT_MAX_10_EXP
121 #endif /* FLOATS_AS_DOUBLES */
123 #define HS_DOUBLE_RADIX DBL_RADIX
124 #define HS_DOUBLE_ROUNDS DBL_ROUNDS
125 #define HS_DOUBLE_EPSILON DBL_EPSILON
126 #define HS_DOUBLE_DIG DBL_DIG
127 #define HS_DOUBLE_MANT_DIG DBL_MANT_DIG
128 #define HS_DOUBLE_MIN DBL_MIN
129 #define HS_DOUBLE_MIN_EXP DBL_MIN_EXP
130 #define HS_DOUBLE_MIN_10_EXP DBL_MIN_10_EXP
131 #define HS_DOUBLE_MAX DBL_MAX
132 #define HS_DOUBLE_MAX_EXP DBL_MAX_EXP
133 #define HS_DOUBLE_MAX_10_EXP DBL_MAX_10_EXP