]> www.ginac.de Git - cln.git/blob - include/cln/types.h
Extend the exponent range from 32 bits to 64 bits on selected platforms.
[cln.git] / include / cln / types.h
1 // Basic type definitions
2
3 #ifndef _CL_TYPES_H
4 #define _CL_TYPES_H
5
6 // CPU and other
7 #include "cln/config.h"
8
9 // char_bitsize, short_bitsize, long_bitsize, long_long_bitsize
10 #include "cln/intparam.h"
11
12 // Elementary arithmetic types of given width:
13   // 8 bits
14   #if (char_bitsize==8)
15     typedef signed char    sint8;
16     typedef unsigned char  uint8;
17   #else
18     #error "No 8 bit integer type?"
19   #endif
20   // 16 bits
21   #if (short_bitsize==16)
22     typedef short           sint16;
23     typedef unsigned short  uint16;
24   #else
25     #error "No 16 bit integer type?"
26   #endif
27   // 32 bits
28   #if (long_bitsize==32)
29     typedef long           sint32;
30     typedef unsigned long  uint32;
31   #elif (int_bitsize==32)
32     typedef int            sint32;
33     typedef unsigned int   uint32;
34   #else
35     #error "No 32 bit integer type?"
36   #endif
37   // 64 bits
38   #if (long_bitsize==64)
39     typedef long           sint64;
40     typedef unsigned long  uint64;
41     #undef HAVE_LONGLONG
42     #define HAVE_LONGLONG
43   #elif defined(HAVE_LONGLONG)
44    #if defined(long_long_bitsize) && (long_long_bitsize==64)
45     typedef long long           sint64;
46     typedef unsigned long long  uint64;
47    #else // unusable type
48     #undef HAVE_LONGLONG
49    #endif
50   #endif
51   #if defined(HAVE_LONGLONG) && (defined(__alpha__) || defined(__ia64__) || defined(__mips64__) || defined(__powerpc64__) || defined(__sparc64__) || defined(__x86_64__))
52     // 64 bit registers in hardware
53     #define HAVE_FAST_LONGLONG
54   #endif
55 // Synonyms
56   #define intBsize 8
57   typedef sint8  sintB;
58   typedef uint8  uintB;
59   #define intWsize 16
60   typedef sint16 sintW;
61   typedef uint16 uintW;
62   #define intLsize 32
63   typedef sint32 sintL;
64   typedef uint32 uintL;
65   #ifdef HAVE_LONGLONG
66     #define intQsize 64
67     typedef sint64 sintQ;
68     typedef uint64 uintQ;
69   #endif
70
71 // Boolean type.
72 #if 1
73   typedef enum { cl_false = 0, cl_true = 1 }
74           cl_boolean;
75 #else
76   typedef bool cl_boolean;
77   #define cl_false 0
78   #define cl_true  1
79 #endif
80
81 // Type for three values (0, +1, -1).
82   typedef int  cl_signean;
83   #define signean_plus  1
84   #define signean_null  0
85   #define signean_minus -1
86
87 // Integer type used for counters.
88 // Constraint: sizeof(uintC) >= sizeof(uintL)
89   #if (defined(HAVE_FAST_LONGLONG) && (defined(__alpha__) || defined(__ia64__) || defined(__powerpc64__) || defined(__x86_64__)))
90     #define intCsize long_bitsize
91     typedef long           sintC;
92     typedef unsigned long  uintC;
93   #else
94     #define intCsize int_bitsize
95     typedef int           sintC;
96     typedef unsigned int  uintC;
97   #endif
98
99 // Integer type used for lfloat exponents.
100 // Constraint: sizeof(uintE) >= sizeof(uintC)
101 #if (defined(HAVE_LONGLONG) && (defined(__alpha__) || defined(__ia64__) || defined(__powerpc64__) || defined(__x86_64__) || defined(__i386__)))
102     #define intEsize 64
103     typedef sint64  sintE;
104     typedef uint64  uintE;
105   #else
106     #define intEsize 32
107     typedef sint32  sintE;
108     typedef uint32  uintE;
109   #endif
110
111 // Integer type as large as a pointer.
112 // Assumption: sizeof(long) == sizeof(void*)
113   #define intPsize long_bitsize
114   typedef long           sintP;
115   typedef unsigned long  uintP;
116
117 // Integer type used for the value of a fixnum.
118   #define intVsize long_bitsize
119   typedef long           sintV;
120   typedef unsigned long  uintV;
121
122 // Numbers in the heap are stored as "digit" sequences.
123 // A digit is an unsigned int with intDsize bits.
124 // intDsize should be 8 or 16 or 32 or 64 and it should match mp_limb_t,
125 // if CLN is sitting on top of GMP.
126   #if defined(GMP_DEMANDS_UINTD_LONG_LONG)
127     #define HAVE_FAST_LONGLONG
128     #define intDsize long_long_bitsize
129     typedef long long sintD;
130     typedef unsigned long long uintD;
131   #elif defined(GMP_DEMANDS_UINTD_LONG)
132     #define intDsize long_bitsize
133     typedef long sintD;
134     typedef unsigned long uintD;
135   #elif defined(GMP_DEMANDS_UINTD_INT)
136     #define intDsize int_bitsize
137     typedef int sintD;
138     typedef unsigned int uintD;
139   #else  // we are not using GMP, so just guess something reasonable
140     #if (defined(HAVE_FAST_LONGLONG) && (defined(__alpha__) || defined(__ia64__) || defined(__powerpc64__) || defined(__x86_64__)))
141       #define intDsize 64
142       typedef sint64  sintD;
143       typedef uint64  uintD;
144     #else
145       #define intDsize 32
146       typedef sint32  sintD;
147       typedef uint32  uintD;
148     #endif
149   #endif
150   #if (intDsize==64)
151     #define intDDsize 128    // = 2*intDsize
152     #define log2_intDsize 6  // = log2(intDsize)
153   #elif (intDsize==32)
154     #define intDDsize 64     // = 2*intDsize
155     #define log2_intDsize 5  // = log2(intDsize)
156   #elif (intDsize==16)
157     #define intDDsize 32     // = 2*intDsize
158     #define log2_intDsize 4  // = log2(intDsize)
159   #elif (intDsize==8)
160     #define intDDsize 16     // = 2*intDsize
161     #define log2_intDsize 3  // = log2(intDsize)
162   #else
163     #error "What is intDsize again?"
164   #endif
165 // HAVE_DD means that there are unsigned ints with 2*intDsize bits.
166   #if (intDDsize <= (defined(HAVE_FAST_LONGLONG) ? 64 : 32))
167     #define HAVE_DD 1
168     #if (intDDsize==16)
169       typedef sint16  sintDD;
170       typedef uint16  uintDD;
171     #endif
172     #if (intDDsize==32)
173       typedef sint32  sintDD;
174       typedef uint32  uintDD;
175     #endif
176     #if (intDDsize==64)
177       typedef sint64  sintDD;
178       typedef uint64  uintDD;
179     #endif
180   #else
181     #define HAVE_DD 0
182   #endif
183
184 // Largest integer type which can be manipulated as efficiently as a pointer.
185 // This is normally the same as the hardware register size.
186 // Assumption: cl_word_size >= intPsize
187   #ifdef HAVE_FAST_LONGLONG
188     #define cl_word_size  64
189   #else
190     #define cl_word_size  32
191   #endif
192
193 #endif /* _CL_TYPES_H */