OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [binary-constants-1.c] - Blame information for rev 754

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 689 jeremybenn 
/* Test for binary integer constants.  */
2 
 
3 
/* Derived from: c99-intconst-1.c, bye Joseph Myers <jsm28@cam.ac.uk>.  */
4 
/* Origin: Joerg Wunsch <j.gnu@uriah.heep.sax.de>.  */
5 
/* { dg-do compile } */
6 
/* { dg-options "-std=gnu99" } */
7 
 
8 
#include <limits.h>
9 
 
10 
/* Assertion that constant C is of type T.  */
11 
#define ASSERT_CONST_TYPE(C, T)                 \
12 
        do {                                    \
13 
          typedef T type;                       \
14 
          typedef type **typepp;                \
15 
          typedef __typeof__((C)) ctype;        \
16 
          typedef ctype **ctypepp;              \
17 
          typepp x = 0;                          \
18 
          ctypepp y = 0;                 \
19 
          x = y;                                \
20 
          y = x;                                \
21 
        } while (0)
22 
 
23 
/* (T *) if E is zero, (void *) otherwise.  */
24 
#define type_if_not(T, E) __typeof__(0 ? (T *)0 : (void *)(E))
25 
 
26 
/* (T *) if E is nonzero, (void *) otherwise.  */
27 
#define type_if(T, E) type_if_not(T, !(E))
28 
 
29 
/* Combine pointer types, all but one (void *).  */
30 
#define type_comb2(T1, T2) __typeof__(0 ? (T1)0 : (T2)0)
31 
#define type_comb3(T1, T2, T3) type_comb2(T1, type_comb2(T2, T3))
32 
#define type_comb4(T1, T2, T3, T4)                              \
33 
        type_comb2(T1, type_comb2(T2, type_comb2(T3, T4)))
34 
#define type_comb6(T1, T2, T3, T4, T5, T6)                                 \
35 
        type_comb2(T1,                                                     \
36 
                   type_comb2(T2,                                          \
37 
                              type_comb2(T3,                               \
38 
                                         type_comb2(T4,                    \
39 
                                                    type_comb2(T5, T6)))))
40 
 
41 
/* (T1 *) if E1, otherwise (T2 *) if E2.  */
42 
#define first_of2p(T1, E1, T2, E2) type_comb2(type_if(T1, (E1)),           \
43 
                                             type_if(T2, (!(E1) && (E2))))
44 
/* (T1 *) if E1, otherwise (T2 *) if E2, otherwise (T3 *) if E3.  */
45 
#define first_of3p(T1, E1, T2, E2, T3, E3)                      \
46 
        type_comb3(type_if(T1, (E1)),                           \
47 
                   type_if(T2, (!(E1) && (E2))),                \
48 
                   type_if(T3, (!(E1) && !(E2) && (E3))))
49 
/* (T1 *) if E1, otherwise (T2 *) if E2, otherwise (T3 *) if E3, otherwise
50 
   (T4 *) if E4.  */
51 
#define first_of4p(T1, E1, T2, E2, T3, E3, T4, E4)                      \
52 
        type_comb4(type_if(T1, (E1)),                                   \
53 
                   type_if(T2, (!(E1) && (E2))),                        \
54 
                   type_if(T3, (!(E1) && !(E2) && (E3))),               \
55 
                   type_if(T4, (!(E1) && !(E2) && !(E3) && (E4))))
56 
/* (T1 *) if E1, otherwise (T2 *) if E2, otherwise (T3 *) if E3, otherwise
57 
   (T4 *) if E4, otherwise (T5 *) if E5, otherwise (T6 *) if E6.  */
58 
#define first_of6p(T1, E1, T2, E2, T3, E3, T4, E4, T5, E5, T6, E6)          \
59 
        type_comb6(type_if(T1, (E1)),                                       \
60 
                   type_if(T2, (!(E1) && (E2))),                            \
61 
                   type_if(T3, (!(E1) && !(E2) && (E3))),                   \
62 
                   type_if(T4, (!(E1) && !(E2) && !(E3) && (E4))),          \
63 
                   type_if(T5, (!(E1) && !(E2) && !(E3) && !(E4) && (E5))), \
64 
                   type_if(T6, (!(E1) && !(E2) && !(E3)                     \
65 
                                && !(E4) && !(E5) && (E6))))
66 
 
67 
/* Likewise, but return the original type rather than a pointer type.  */
68 
#define first_of2(T1, E1, T2, E2)                       \
69 
        __typeof__(*((first_of2p(T1, (E1), T2, (E2)))0))
70 
#define first_of3(T1, E1, T2, E2, T3, E3)                               \
71 
        __typeof__(*((first_of3p(T1, (E1), T2, (E2), T3, (E3)))0))
72 
#define first_of4(T1, E1, T2, E2, T3, E3, T4, E4)                           \
73 
        __typeof__(*((first_of4p(T1, (E1), T2, (E2), T3, (E3), T4, (E4)))0))
74 
#define first_of6(T1, E1, T2, E2, T3, E3, T4, E4, T5, E5, T6, E6)       \
75 
        __typeof__(*((first_of6p(T1, (E1), T2, (E2), T3, (E3),          \
76 
                                 T4, (E4), T5, (E5), T6, (E6)))0))
77 
 
78 
/* Types of constants according to the C99 rules.  */
79 
#define C99_UNSUF_TYPE(C)                                       \
80 
        first_of6(int, (C) <= INT_MAX,                          \
81 
                  unsigned int, (C) <= UINT_MAX,                \
82 
                  long int, (C) <= LONG_MAX,                    \
83 
                  unsigned long int, (C) <= ULONG_MAX,          \
84 
                  long long int, (C) <= LLONG_MAX,              \
85 
                  unsigned long long int, (C) <= ULLONG_MAX)
86 
#define C99_SUFu_TYPE(C)                                        \
87 
        first_of3(unsigned int, (C) <= UINT_MAX,                \
88 
                  unsigned long int, (C) <= ULONG_MAX,          \
89 
                  unsigned long long int, (C) <= ULLONG_MAX)
90 
#define C99_SUFl_TYPE(C)                                        \
91 
        first_of4(long int, (C) <= LONG_MAX,                    \
92 
                  unsigned long int, (C) <= ULONG_MAX,          \
93 
                  long long int, (C) <= LLONG_MAX,              \
94 
                  unsigned long long int, (C) <= ULLONG_MAX)
95 
#define C99_SUFul_TYPE(C)                                       \
96 
        first_of2(unsigned long int, (C) <= ULONG_MAX,          \
97 
                  unsigned long long int, (C) <= ULLONG_MAX)
98 
#define C99_SUFll_TYPE(C)                                       \
99 
        first_of2(long long int, (C) <= LLONG_MAX,              \
100 
                  unsigned long long int, (C) <= ULLONG_MAX)
101 
 
102 
/* Checks that constants have correct type.  */
103 
#define CHECK_UNSUF_TYPE(C)                             \
104 
        ASSERT_CONST_TYPE((C), C99_UNSUF_TYPE((C)))
105 
#define CHECK_SUFu_TYPE(C) ASSERT_CONST_TYPE((C), C99_SUFu_TYPE((C)))
106 
#define CHECK_SUFl_TYPE(C)                              \
107 
        ASSERT_CONST_TYPE((C), C99_SUFl_TYPE((C)))
108 
#define CHECK_SUFul_TYPE(C) ASSERT_CONST_TYPE((C), C99_SUFul_TYPE((C)))
109 
#define CHECK_SUFll_TYPE(C)                             \
110 
        ASSERT_CONST_TYPE((C), C99_SUFll_TYPE((C)))
111 
#define CHECK_SUFull_TYPE(C) ASSERT_CONST_TYPE((C), unsigned long long int)
112 
 
113 
/* Check an octal or hexadecimal value, with all suffixes.  */
114 
#define CHECK_CONST(C)                          \
115 
        CHECK_UNSUF_TYPE(C);                    \
116 
        CHECK_SUFu_TYPE(C##u);                  \
117 
        CHECK_SUFu_TYPE(C##U);                  \
118 
        CHECK_SUFl_TYPE(C##l);                  \
119 
        CHECK_SUFl_TYPE(C##L);                  \
120 
        CHECK_SUFul_TYPE(C##ul);                \
121 
        CHECK_SUFul_TYPE(C##uL);                \
122 
        CHECK_SUFul_TYPE(C##Ul);                \
123 
        CHECK_SUFul_TYPE(C##UL);                \
124 
        CHECK_SUFll_TYPE(C##ll);                \
125 
        CHECK_SUFll_TYPE(C##LL);                \
126 
        CHECK_SUFull_TYPE(C##ull);              \
127 
        CHECK_SUFull_TYPE(C##uLL);              \
128 
        CHECK_SUFull_TYPE(C##Ull);              \
129 
        CHECK_SUFull_TYPE(C##ULL);
130 
 
131 
#define CHECK_BIN_CONST(C)                      \
132 
        CHECK_CONST(0b##C);                     \
133 
        CHECK_CONST(0B##C);
134 
 
135 
/* True iff "long long" is at least B bits.  This presumes that (B-2)/3 is at
136 
   most 63.  */
137 
#define LLONG_AT_LEAST(B)                       \
138 
        (LLONG_MAX >> ((B)-2)/3 >> ((B)-2)/3    \
139 
         >> ((B)-2 - ((B)-2)/3 - ((B)-2)/3))
140 
 
141 
#define LLONG_HAS_BITS(B) (LLONG_AT_LEAST((B)) && !LLONG_AT_LEAST((B) + 1))
142 
 
143 
#define FOO 0b1101
144 
#if !FOO
145 
# error "preprocessor does not accept binary constants"
146 
#endif
147 
 
148 
void
149 
foo (void)
150 
{
151 
  /* Check all 2^n and 2^n - 1 up to 2^72 - 1.  */
152 
  CHECK_BIN_CONST(1);
153 
  CHECK_BIN_CONST(10);
154 
  CHECK_BIN_CONST(11);
155 
  CHECK_BIN_CONST(100);
156 
  CHECK_BIN_CONST(111);
157 
  CHECK_BIN_CONST(1000);
158 
  CHECK_BIN_CONST(1111);
159 
  CHECK_BIN_CONST(10000);
160 
  CHECK_BIN_CONST(11111);
161 
  CHECK_BIN_CONST(100000);
162 
  CHECK_BIN_CONST(111111);
163 
  CHECK_BIN_CONST(1000000);
164 
  CHECK_BIN_CONST(1111111);
165 
  CHECK_BIN_CONST(10000000);
166 
  CHECK_BIN_CONST(11111111);
167 
  CHECK_BIN_CONST(100000000);
168 
  CHECK_BIN_CONST(111111111);
169 
  CHECK_BIN_CONST(1000000000);
170 
  CHECK_BIN_CONST(1111111111);
171 
  CHECK_BIN_CONST(10000000000);
172 
  CHECK_BIN_CONST(11111111111);
173 
  CHECK_BIN_CONST(100000000000);
174 
  CHECK_BIN_CONST(111111111111);
175 
  CHECK_BIN_CONST(1000000000000);
176 
  CHECK_BIN_CONST(1111111111111);
177 
  CHECK_BIN_CONST(10000000000000);
178 
  CHECK_BIN_CONST(11111111111111);
179 
  CHECK_BIN_CONST(100000000000000);
180 
  CHECK_BIN_CONST(111111111111111);
181 
  CHECK_BIN_CONST(1000000000000000);
182 
  CHECK_BIN_CONST(1111111111111111);
183 
  CHECK_BIN_CONST(10000000000000000);
184 
  CHECK_BIN_CONST(11111111111111111);
185 
  CHECK_BIN_CONST(100000000000000000);
186 
  CHECK_BIN_CONST(111111111111111111);
187 
  CHECK_BIN_CONST(1000000000000000000);
188 
  CHECK_BIN_CONST(1111111111111111111);
189 
  CHECK_BIN_CONST(10000000000000000000);
190 
  CHECK_BIN_CONST(11111111111111111111);
191 
  CHECK_BIN_CONST(100000000000000000000);
192 
  CHECK_BIN_CONST(111111111111111111111);
193 
  CHECK_BIN_CONST(1000000000000000000000);
194 
  CHECK_BIN_CONST(1111111111111111111111);
195 
  CHECK_BIN_CONST(10000000000000000000000);
196 
  CHECK_BIN_CONST(11111111111111111111111);
197 
  CHECK_BIN_CONST(100000000000000000000000);
198 
  CHECK_BIN_CONST(111111111111111111111111);
199 
  CHECK_BIN_CONST(1000000000000000000000000);
200 
  CHECK_BIN_CONST(1111111111111111111111111);
201 
  CHECK_BIN_CONST(10000000000000000000000000);
202 
  CHECK_BIN_CONST(11111111111111111111111111);
203 
  CHECK_BIN_CONST(100000000000000000000000000);
204 
  CHECK_BIN_CONST(111111111111111111111111111);
205 
  CHECK_BIN_CONST(1000000000000000000000000000);
206 
  CHECK_BIN_CONST(1111111111111111111111111111);
207 
  CHECK_BIN_CONST(10000000000000000000000000000);
208 
  CHECK_BIN_CONST(11111111111111111111111111111);
209 
  CHECK_BIN_CONST(100000000000000000000000000000);
210 
  CHECK_BIN_CONST(111111111111111111111111111111);
211 
  CHECK_BIN_CONST(1000000000000000000000000000000);
212 
  CHECK_BIN_CONST(1111111111111111111111111111111);
213 
  CHECK_BIN_CONST(10000000000000000000000000000000);
214 
  CHECK_BIN_CONST(11111111111111111111111111111111);
215 
  CHECK_BIN_CONST(100000000000000000000000000000000);
216 
  CHECK_BIN_CONST(111111111111111111111111111111111);
217 
  CHECK_BIN_CONST(1000000000000000000000000000000000);
218 
  CHECK_BIN_CONST(1111111111111111111111111111111111);
219 
  CHECK_BIN_CONST(10000000000000000000000000000000000);
220 
  CHECK_BIN_CONST(11111111111111111111111111111111111);
221 
  CHECK_BIN_CONST(100000000000000000000000000000000000);
222 
  CHECK_BIN_CONST(111111111111111111111111111111111111);
223 
  CHECK_BIN_CONST(1000000000000000000000000000000000000);
224 
  CHECK_BIN_CONST(1111111111111111111111111111111111111);
225 
  CHECK_BIN_CONST(10000000000000000000000000000000000000);
226 
  CHECK_BIN_CONST(11111111111111111111111111111111111111);
227 
  CHECK_BIN_CONST(100000000000000000000000000000000000000);
228 
  CHECK_BIN_CONST(111111111111111111111111111111111111111);
229 
  CHECK_BIN_CONST(1000000000000000000000000000000000000000);
230 
  CHECK_BIN_CONST(1111111111111111111111111111111111111111);
231 
  CHECK_BIN_CONST(10000000000000000000000000000000000000000);
232 
  CHECK_BIN_CONST(11111111111111111111111111111111111111111);
233 
  CHECK_BIN_CONST(100000000000000000000000000000000000000000);
234 
  CHECK_BIN_CONST(111111111111111111111111111111111111111111);
235 
  CHECK_BIN_CONST(1000000000000000000000000000000000000000000);
236 
  CHECK_BIN_CONST(1111111111111111111111111111111111111111111);
237 
  CHECK_BIN_CONST(10000000000000000000000000000000000000000000);
238 
  CHECK_BIN_CONST(11111111111111111111111111111111111111111111);
239 
  CHECK_BIN_CONST(100000000000000000000000000000000000000000000);
240 
  CHECK_BIN_CONST(111111111111111111111111111111111111111111111);
241 
  CHECK_BIN_CONST(1000000000000000000000000000000000000000000000);
242 
  CHECK_BIN_CONST(1111111111111111111111111111111111111111111111);
243 
  CHECK_BIN_CONST(10000000000000000000000000000000000000000000000);
244 
  CHECK_BIN_CONST(11111111111111111111111111111111111111111111111);
245 
  CHECK_BIN_CONST(100000000000000000000000000000000000000000000000);
246 
  CHECK_BIN_CONST(111111111111111111111111111111111111111111111111);
247 
  CHECK_BIN_CONST(1000000000000000000000000000000000000000000000000);
248 
  CHECK_BIN_CONST(1111111111111111111111111111111111111111111111111);
249 
  CHECK_BIN_CONST(10000000000000000000000000000000000000000000000000);
250 
  CHECK_BIN_CONST(11111111111111111111111111111111111111111111111111);
251 
  CHECK_BIN_CONST(100000000000000000000000000000000000000000000000000);
252 
  CHECK_BIN_CONST(111111111111111111111111111111111111111111111111111);
253 
  CHECK_BIN_CONST(1000000000000000000000000000000000000000000000000000);
254 
  CHECK_BIN_CONST(1111111111111111111111111111111111111111111111111111);
255 
  CHECK_BIN_CONST(10000000000000000000000000000000000000000000000000000);
256 
  CHECK_BIN_CONST(11111111111111111111111111111111111111111111111111111);
257 
  CHECK_BIN_CONST(100000000000000000000000000000000000000000000000000000);
258 
  CHECK_BIN_CONST(111111111111111111111111111111111111111111111111111111);
259 
  CHECK_BIN_CONST(1000000000000000000000000000000000000000000000000000000);
260 
  CHECK_BIN_CONST(1111111111111111111111111111111111111111111111111111111);
261 
  CHECK_BIN_CONST(10000000000000000000000000000000000000000000000000000000);
262 
  CHECK_BIN_CONST(11111111111111111111111111111111111111111111111111111111);
263 
  CHECK_BIN_CONST(100000000000000000000000000000000000000000000000000000000);
264 
  CHECK_BIN_CONST(111111111111111111111111111111111111111111111111111111111);
265 
  CHECK_BIN_CONST(1000000000000000000000000000000000000000000000000000000000);
266 
  CHECK_BIN_CONST(1111111111111111111111111111111111111111111111111111111111);
267 
  CHECK_BIN_CONST(10000000000000000000000000000000000000000000000000000000000);
268 
  CHECK_BIN_CONST(11111111111111111111111111111111111111111111111111111111111);
269 
  CHECK_BIN_CONST(100000000000000000000000000000000000000000000000000000000000);
270 
  CHECK_BIN_CONST(111111111111111111111111111111111111111111111111111111111111);
271 
  CHECK_BIN_CONST(1000000000000000000000000000000000000000000000000000000000000);
272 
  CHECK_BIN_CONST(1111111111111111111111111111111111111111111111111111111111111);
273 
  CHECK_BIN_CONST(10000000000000000000000000000000000000000000000000000000000000);
274 
  CHECK_BIN_CONST(11111111111111111111111111111111111111111111111111111111111111);
275 
  CHECK_BIN_CONST(100000000000000000000000000000000000000000000000000000000000000);
276 
  CHECK_BIN_CONST(111111111111111111111111111111111111111111111111111111111111111);
277 
  CHECK_BIN_CONST(1000000000000000000000000000000000000000000000000000000000000000);
278 
  CHECK_BIN_CONST(1111111111111111111111111111111111111111111111111111111111111111);
279 
#if LLONG_AT_LEAST(65)
280 
  CHECK_BIN_CONST(10000000000000000000000000000000000000000000000000000000000000000);
281 
  CHECK_BIN_CONST(11111111111111111111111111111111111111111111111111111111111111111);
282 
#endif
283 
#if LLONG_AT_LEAST(66)
284 
  CHECK_BIN_CONST(100000000000000000000000000000000000000000000000000000000000000000);
285 
  CHECK_BIN_CONST(111111111111111111111111111111111111111111111111111111111111111111);
286 
#endif
287 
#if LLONG_AT_LEAST(67)
288 
  CHECK_BIN_CONST(1000000000000000000000000000000000000000000000000000000000000000000);
289 
  CHECK_BIN_CONST(1111111111111111111111111111111111111111111111111111111111111111111);
290 
#endif
291 
#if LLONG_AT_LEAST(68)
292 
  CHECK_BIN_CONST(10000000000000000000000000000000000000000000000000000000000000000000);
293 
  CHECK_BIN_CONST(11111111111111111111111111111111111111111111111111111111111111111111);
294 
#endif
295 
#if LLONG_AT_LEAST(69)
296 
  CHECK_BIN_CONST(100000000000000000000000000000000000000000000000000000000000000000000);
297 
  CHECK_BIN_CONST(111111111111111111111111111111111111111111111111111111111111111111111);
298 
#endif
299 
#if LLONG_AT_LEAST(70)
300 
  CHECK_BIN_CONST(1000000000000000000000000000000000000000000000000000000000000000000000);
301 
  CHECK_BIN_CONST(1111111111111111111111111111111111111111111111111111111111111111111111);
302 
#endif
303 
#if LLONG_AT_LEAST(71)
304 
  CHECK_BIN_CONST(10000000000000000000000000000000000000000000000000000000000000000000000);
305 
  CHECK_BIN_CONST(11111111111111111111111111111111111111111111111111111111111111111111111);
306 
#endif
307 
#if LLONG_AT_LEAST(72)
308 
  CHECK_BIN_CONST(100000000000000000000000000000000000000000000000000000000000000000000000);
309 
  CHECK_BIN_CONST(111111111111111111111111111111111111111111111111111111111111111111111111);
310 
#endif
311 
}
312 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.