1 #include <limits.h>
2 #include <stdarg.h>
3 #include <stdbool.h>
4 #include <stdlib.h>
5 #include <stdio.h>
6 #include <string.h>
7 #include "compat-common.h"
8 
9 #ifndef SKIP_ATTRIBUTE
10 # include "vector-defs.h"
11 #else
12 typedef int qi;
13 typedef int hi;
14 typedef int si;
15 typedef int di;
16 typedef float sf;
17 typedef float df;
18 typedef int v8qi;
19 typedef int v16qi;
20 typedef int v2hi;
21 typedef int v4hi;
22 typedef int v8hi;
23 typedef int v2si;
24 typedef int v4si;
25 typedef int v1di;
26 typedef int v2di;
27 typedef int v2sf;
28 typedef int v4sf;
29 typedef int v16sf;
30 typedef int v2df;
31 typedef int u8qi;
32 typedef int u16qi;
33 typedef int u2hi;
34 typedef int u4hi;
35 typedef int u8hi;
36 typedef int u2si;
37 typedef int u4si;
38 typedef int u1di;
39 typedef int u2di;
40 typedef int u2sf;
41 typedef int u4sf;
42 typedef int u16sf;
43 typedef int u2df;
44 #endif
45 #if (defined __i386__ || defined __x86_64__) && !defined SKIP_ATTRIBUTE
46 # ifdef __MMX__
47 typedef int __m64 __attribute__ ((__vector_size__ (8)));
48 # else
49 typedef int __m64;
50 # endif
51 # ifdef __SSE__
52 typedef float __m128 __attribute__ ((__vector_size__ (16)));
53 # else
54 typedef int __m128;
55 # endif
56 #else
57 typedef int __m64;
58 typedef int __m128;
59 #endif
60 #if defined (__uClinux__)
61 /* The maximum achievable alignment on uClinux is usually 16 bytes.  */
62 #define v16sf v4sf
63 #define u16sf u4sf
64 #endif
65 
66 #define FLDS_MAX	32
67 extern struct Info
68 {
69   int nfields, nbitfields;
70   void *sp, *a0p, *a3p;
71   void *flds[FLDS_MAX];
72   size_t sz, sizes[FLDS_MAX];
73   size_t als, ala0, ala3, aligns[FLDS_MAX];
74 } info;
75 
76 extern int intarray[256];
77 extern int fn0 (void), fn1 (void), fn2 (void), fn3 (void), fn4 (void);
78 extern int fn5 (void), fn6 (void), fn7 (void), fn8 (void), fn9 (void);
79 
80 #ifdef DBG
81 #define FAIL(n, m) printf ("fail %d.%d\n", n, m), ++fails
82 #else
83 #define FAIL(n, m) ++fails
84 #endif
85 
86 #ifdef SKIP_ATTRIBUTE
87 # define __attribute__(x)
88 #endif
89 #define atal		__attribute__((aligned))
90 #define atpa		__attribute__((packed))
91 #define atalpa		__attribute__((aligned, packed))
92 #define atpaal		__attribute__((packed, aligned))
93 #define atal1		__attribute__((aligned (1)))
94 #define atal2		__attribute__((aligned (2)))
95 #define atal4		__attribute__((aligned (4)))
96 #define atal8		__attribute__((aligned (8)))
97 #define atal16		__attribute__((aligned (16)))
98 #define atal1pa		__attribute__((aligned (1), packed))
99 #define atal2pa		__attribute__((aligned (2), packed))
100 #define atal4pa		__attribute__((aligned (4), packed))
101 #define atal8pa		__attribute__((aligned (8), packed))
102 #define atal16pa	__attribute__((aligned (16), packed))
103 #define atpaal1		__attribute__((packed, aligned (1)))
104 #define atpaal2		__attribute__((packed, aligned (2)))
105 #define atpaal4		__attribute__((packed, aligned (4)))
106 #define atpaal8		__attribute__((packed, aligned (8)))
107 #define atpaal16	__attribute__((packed, aligned (16)))
108 
109 #if UCHAR_MAX == 255 && USHORT_MAX == 65535 && UINT_MAX == 4294967295U \
110     && ULLONG_MAX == 18446744073709551615ULL
111 /* For ILP32 and LP64 targets, assume float is at least 32-bit
112    and double plus long double at least 64-bit.  */
113 # define atalx1		atal1
114 # define atalx2		atal2
115 # define atalx4		atal4
116 # define atalx8		atal8
117 # define atalx16	atal16
118 # define atalx1pa	atal1pa
119 # define atalx2pa	atal2pa
120 # define atalx4pa	atal4pa
121 # define atalx8pa	atal8pa
122 # define atalx16pa	atal16pa
123 # define atpaalx1	atpaal1
124 # define atpaalx2	atpaal2
125 # define atpaalx4	atpaal4
126 # define atpaalx8	atpaal8
127 # define atpaalx16	atpaal16
128 # if ULONG_MAX > 4294967295UL
129 #  define ataly8	atal8
130 #  define ataly8pa	atal8pa
131 #  define atpaaly8	atpaal8
132 #  define ataly16	atal16
133 #  define ataly16pa	atal16pa
134 #  define atpaaly16	atpaal16
135 # else
136 #  define ataly8
137 #  define ataly8pa
138 #  define atpaaly8
139 #  define ataly16
140 #  define ataly16pa
141 #  define atpaaly16
142 # endif
143 #else
144 # define atalx1
145 # define atalx2
146 # define atalx4
147 # define atalx8
148 # define atalx16
149 # define atalx1pa
150 # define atalx2pa
151 # define atalx4pa
152 # define atalx8pa
153 # define atalx16pa
154 # define atpaalx1
155 # define atpaalx2
156 # define atpaalx4
157 # define atpaalx8
158 # define atpaalx16
159 # define ataly8
160 # define ataly8pa
161 # define atpaaly8
162 # define ataly16
163 # define ataly16pa
164 # define atpaaly16
165 #endif
166 
167 #define atQI		__attribute__((mode (QI)))
168 #define atHI		__attribute__((mode (HI)))
169 #define atSI		__attribute__((mode (SI)))
170 #define atDI		__attribute__((mode (DI)))
171 
172 enum E0 { e0_0 };
173 enum E1 { e1_0, e1_1 };
174 enum E2 { e2_m3 = -3, e2_m2, e2_m1, e2_0, e2_1, e2_2, e2_3 };
175 enum E3 { e3_m127 = -127, e3_m126, e3_m125, e3_0 = 0, e3_125 = 125, e3_126, e3_127 };
176 enum E4 { e4_0, e4_1, e4_2, e4_3, e4_253 = 253, e4_254, e4_255 };
177 enum E5 { e5_m32767 = -32767, e5_m32766, e5_m32765, e5_0 = 0, e5_32765 = 32765, e5_32766, e5_32767 };
178 enum E6 { e6_0, e6_1, e6_2, e6_3, e6_65533 = 65533, e6_65534, e6_65535 };
179 enum E7 { e7_m2147483647 = -2147483647, e7_m2147483646, e7_m2147483645,
180 	  e7_0, e7_2147483645 = 2147483645, e7_2147483646, e7_2147483647 };
181 enum E8 { e8_0, e8_1, e8_2, e8_3, e8_4294967293 = 4294967293U, e8_4294967294, e8_4294967295 };
182 enum E9 { e9_m1099511627775 = -1099511627775LL, e9_m1099511627774, e9_m1099511627773,
183 	  e9_0, e9_1099511627773 = 1099511627773LL, e9_1099511627774, e9_1099511627775 };
184 
185 typedef char Tchar;
186 typedef signed char Tschar;
187 typedef unsigned char Tuchar;
188 typedef short int Tshort;
189 typedef unsigned short int Tushort;
190 typedef int Tint;
191 typedef unsigned int Tuint;
192 typedef long int Tlong;
193 typedef unsigned long int Tulong;
194 typedef long long int Tllong;
195 typedef unsigned long long int Tullong;
196 #ifndef SKIP_COMPLEX_INT
197 typedef _Complex char Tcchar;
198 typedef _Complex signed char Tcschar;
199 typedef _Complex unsigned char Tcuchar;
200 typedef _Complex short int Tcshort;
201 typedef _Complex unsigned short int Tcushort;
202 typedef _Complex int Tcint;
203 typedef _Complex unsigned int Tcuint;
204 typedef _Complex long int Tclong;
205 typedef _Complex unsigned long int Tculong;
206 typedef _Complex long long int Tcllong;
207 typedef _Complex unsigned long long int Tcullong;
208 #endif
209 typedef float Tfloat;
210 typedef double Tdouble;
211 typedef long double Tldouble;
212 #ifndef SKIP_DECIMAL_FLOAT
213 typedef _Decimal32 TDecimal32;
214 typedef _Decimal64 TDecimal64;
215 typedef _Decimal128 TDecimal128;
216 #endif
217 #ifndef SKIP_COMPLEX
218 typedef _Complex float Tcfloat;
219 typedef _Complex double Tcdouble;
220 typedef _Complex long double Tcldouble;
221 #endif
222 typedef bool Tbool;
223 typedef enum E0 TE0;
224 typedef enum E1 TE1;
225 typedef enum E2 TE2;
226 typedef enum E3 TE3;
227 typedef enum E4 TE4;
228 typedef enum E5 TE5;
229 typedef enum E6 TE6;
230 typedef enum E7 TE7;
231 typedef enum E8 TE8;
232 typedef enum E9 TE9;
233 typedef void *Tptr;
234 typedef char *Tcptr;
235 typedef int *Tiptr;
236 typedef char Talchar atal;
237 typedef signed char Talschar atal;
238 typedef unsigned char Taluchar atal;
239 typedef short int Talshort atal;
240 typedef unsigned short int Talushort atal;
241 typedef int Talint atal;
242 typedef unsigned int Taluint atal;
243 typedef long int Tallong atal;
244 typedef unsigned long int Talulong atal;
245 typedef long long int Talllong atal;
246 typedef unsigned long long int Talullong atal;
247 #ifndef SKIP_COMPLEX_INT
248 typedef _Complex char Talcchar atal;
249 typedef _Complex signed char Talcschar atal;
250 typedef _Complex unsigned char Talcuchar atal;
251 typedef _Complex short int Talcshort atal;
252 typedef _Complex unsigned short int Talcushort atal;
253 typedef _Complex int Talcint atal;
254 typedef _Complex unsigned int Talcuint atal;
255 typedef _Complex long int Talclong atal;
256 typedef _Complex unsigned long int Talculong atal;
257 typedef _Complex long long int Talcllong atal;
258 typedef _Complex unsigned long long int Talcullong atal;
259 #endif
260 typedef float Talfloat atal;
261 typedef double Taldouble atal;
262 typedef long double Talldouble atal;
263 #ifndef SKIP_DECIMAL_FLOAT
264 typedef _Decimal32 TalDecimal32 atal;
265 typedef _Decimal64 TalDecimal64 atal;
266 typedef _Decimal128 TalDecimal128 atal;
267 #endif
268 #ifndef SKIP_COMPLEX
269 typedef _Complex float Talcfloat atal;
270 typedef _Complex double Talcdouble atal;
271 typedef _Complex long double Talcldouble atal;
272 #endif
273 typedef bool Talbool atal;
274 typedef enum E0 TalE0 atal;
275 typedef enum E1 TalE1 atal;
276 typedef enum E2 TalE2 atal;
277 typedef enum E3 TalE3 atal;
278 typedef enum E4 TalE4 atal;
279 typedef enum E5 TalE5 atal;
280 typedef enum E6 TalE6 atal;
281 typedef enum E7 TalE7 atal;
282 typedef enum E8 TalE8 atal;
283 typedef enum E9 TalE9 atal;
284 typedef void *Talptr atal;
285 typedef char *Talcptr atal;
286 typedef int *Taliptr atal;
287 typedef char Tal1char atal1;
288 typedef signed char Tal1schar atal1;
289 typedef unsigned char Tal1uchar atal1;
290 typedef short int Tal1short atal1;
291 typedef unsigned short int Tal1ushort atal1;
292 typedef int Tal1int atal1;
293 typedef unsigned int Tal1uint atal1;
294 typedef long int Tal1long atal1;
295 typedef unsigned long int Tal1ulong atal1;
296 typedef long long int Tal1llong atal1;
297 typedef unsigned long long int Tal1ullong atal1;
298 #ifndef SKIP_COMPLEX_INT
299 typedef _Complex char Tal1cchar atal1;
300 typedef _Complex signed char Tal1cschar atal1;
301 typedef _Complex unsigned char Tal1cuchar atal1;
302 typedef _Complex short int Tal1cshort atal1;
303 typedef _Complex unsigned short int Tal1cushort atal1;
304 typedef _Complex int Tal1cint atal1;
305 typedef _Complex unsigned int Tal1cuint atal1;
306 typedef _Complex long int Tal1clong atal1;
307 typedef _Complex unsigned long int Tal1culong atal1;
308 typedef _Complex long long int Tal1cllong atal1;
309 typedef _Complex unsigned long long int Tal1cullong atal1;
310 #endif
311 typedef float Tal1float atal1;
312 typedef double Tal1double atal1;
313 typedef long double Tal1ldouble atal1;
314 #ifndef SKIP_DECIMAL_FLOAT
315 typedef _Decimal32 Tal1Decimal32 atal1;
316 typedef _Decimal64 Tal1Decimal64 atal1;
317 typedef _Decimal128 Tal1Decimal128 atal1;
318 #endif
319 #ifndef SKIP_COMPLEX
320 typedef _Complex float Tal1cfloat atal1;
321 typedef _Complex double Tal1cdouble atal1;
322 typedef _Complex long double Tal1cldouble atal1;
323 #endif
324 typedef bool Tal1bool atal1;
325 typedef enum E0 Tal1E0 atal1;
326 typedef enum E1 Tal1E1 atal1;
327 typedef enum E2 Tal1E2 atal1;
328 typedef enum E3 Tal1E3 atal1;
329 typedef enum E4 Tal1E4 atal1;
330 typedef enum E5 Tal1E5 atal1;
331 typedef enum E6 Tal1E6 atal1;
332 typedef enum E7 Tal1E7 atal1;
333 typedef enum E8 Tal1E8 atal1;
334 typedef enum E9 Tal1E9 atal1;
335 typedef void *Tal1ptr atal1;
336 typedef char *Tal1cptr atal1;
337 typedef int *Tal1iptr atal1;
338 typedef char Tal2char atal2;
339 typedef signed char Tal2schar atal2;
340 typedef unsigned char Tal2uchar atal2;
341 typedef short int Tal2short atal2;
342 typedef unsigned short int Tal2ushort atal2;
343 typedef int Tal2int atal2;
344 typedef unsigned int Tal2uint atal2;
345 typedef long int Tal2long atal2;
346 typedef unsigned long int Tal2ulong atal2;
347 typedef long long int Tal2llong atal2;
348 typedef unsigned long long int Tal2ullong atal2;
349 #ifndef SKIP_COMPLEX_INT
350 typedef _Complex char Tal2cchar atal2;
351 typedef _Complex signed char Tal2cschar atal2;
352 typedef _Complex unsigned char Tal2cuchar atal2;
353 typedef _Complex short int Tal2cshort atal2;
354 typedef _Complex unsigned short int Tal2cushort atal2;
355 typedef _Complex int Tal2cint atal2;
356 typedef _Complex unsigned int Tal2cuint atal2;
357 typedef _Complex long int Tal2clong atal2;
358 typedef _Complex unsigned long int Tal2culong atal2;
359 typedef _Complex long long int Tal2cllong atal2;
360 typedef _Complex unsigned long long int Tal2cullong atal2;
361 #endif
362 typedef float Tal2float atal2;
363 typedef double Tal2double atal2;
364 typedef long double Tal2ldouble atal2;
365 #ifndef SKIP_DECIMAL_FLOAT
366 typedef _Decimal32 Tal2Decimal32 atal2;
367 typedef _Decimal64 Tal2Decimal64 atal2;
368 typedef _Decimal128 Tal2Decimal128 atal2;
369 #endif
370 #ifndef SKIP_COMPLEX
371 typedef _Complex float Tal2cfloat atal2;
372 typedef _Complex double Tal2cdouble atal2;
373 typedef _Complex long double Tal2cldouble atal2;
374 #endif
375 typedef bool Tal2bool atal2;
376 typedef enum E0 Tal2E0 atal2;
377 typedef enum E1 Tal2E1 atal2;
378 typedef enum E2 Tal2E2 atal2;
379 typedef enum E3 Tal2E3 atal2;
380 typedef enum E4 Tal2E4 atal2;
381 typedef enum E5 Tal2E5 atal2;
382 typedef enum E6 Tal2E6 atal2;
383 typedef enum E7 Tal2E7 atal2;
384 typedef enum E8 Tal2E8 atal2;
385 typedef enum E9 Tal2E9 atal2;
386 typedef void *Tal2ptr atal2;
387 typedef char *Tal2cptr atal2;
388 typedef int *Tal2iptr atal2;
389 typedef char Tal4char atal4;
390 typedef signed char Tal4schar atal4;
391 typedef unsigned char Tal4uchar atal4;
392 typedef short int Tal4short atal4;
393 typedef unsigned short int Tal4ushort atal4;
394 typedef int Tal4int atal4;
395 typedef unsigned int Tal4uint atal4;
396 typedef long int Tal4long atal4;
397 typedef unsigned long int Tal4ulong atal4;
398 typedef long long int Tal4llong atal4;
399 typedef unsigned long long int Tal4ullong atal4;
400 #ifndef SKIP_COMPLEX_INT
401 typedef _Complex char Tal4cchar atal4;
402 typedef _Complex signed char Tal4cschar atal4;
403 typedef _Complex unsigned char Tal4cuchar atal4;
404 typedef _Complex short int Tal4cshort atal4;
405 typedef _Complex unsigned short int Tal4cushort atal4;
406 typedef _Complex int Tal4cint atal4;
407 typedef _Complex unsigned int Tal4cuint atal4;
408 typedef _Complex long int Tal4clong atal4;
409 typedef _Complex unsigned long int Tal4culong atal4;
410 typedef _Complex long long int Tal4cllong atal4;
411 typedef _Complex unsigned long long int Tal4cullong atal4;
412 #endif
413 typedef float Tal4float atal4;
414 typedef double Tal4double atal4;
415 typedef long double Tal4ldouble atal4;
416 #ifndef SKIP_DECIMAL_FLOAT
417 typedef _Decimal32 Tal4Decimal32 atal4;
418 typedef _Decimal64 Tal4Decimal64 atal4;
419 typedef _Decimal128 Tal4Decimal128 atal4;
420 #endif
421 #ifndef SKIP_COMPLEX
422 typedef _Complex float Tal4cfloat atal4;
423 typedef _Complex double Tal4cdouble atal4;
424 typedef _Complex long double Tal4cldouble atal4;
425 #endif
426 typedef bool Tal4bool atal4;
427 typedef enum E0 Tal4E0 atal4;
428 typedef enum E1 Tal4E1 atal4;
429 typedef enum E2 Tal4E2 atal4;
430 typedef enum E3 Tal4E3 atal4;
431 typedef enum E4 Tal4E4 atal4;
432 typedef enum E5 Tal4E5 atal4;
433 typedef enum E6 Tal4E6 atal4;
434 typedef enum E7 Tal4E7 atal4;
435 typedef enum E8 Tal4E8 atal4;
436 typedef enum E9 Tal4E9 atal4;
437 typedef void *Tal4ptr atal4;
438 typedef char *Tal4cptr atal4;
439 typedef int *Tal4iptr atal4;
440 typedef char Tal8char atal8;
441 typedef signed char Tal8schar atal8;
442 typedef unsigned char Tal8uchar atal8;
443 typedef short int Tal8short atal8;
444 typedef unsigned short int Tal8ushort atal8;
445 typedef int Tal8int atal8;
446 typedef unsigned int Tal8uint atal8;
447 typedef long int Tal8long atal8;
448 typedef unsigned long int Tal8ulong atal8;
449 typedef long long int Tal8llong atal8;
450 typedef unsigned long long int Tal8ullong atal8;
451 #ifndef SKIP_COMPLEX_INT
452 typedef _Complex char Tal8cchar atal8;
453 typedef _Complex signed char Tal8cschar atal8;
454 typedef _Complex unsigned char Tal8cuchar atal8;
455 typedef _Complex short int Tal8cshort atal8;
456 typedef _Complex unsigned short int Tal8cushort atal8;
457 typedef _Complex int Tal8cint atal8;
458 typedef _Complex unsigned int Tal8cuint atal8;
459 typedef _Complex long int Tal8clong atal8;
460 typedef _Complex unsigned long int Tal8culong atal8;
461 typedef _Complex long long int Tal8cllong atal8;
462 typedef _Complex unsigned long long int Tal8cullong atal8;
463 #endif
464 typedef float Tal8float atal8;
465 typedef double Tal8double atal8;
466 typedef long double Tal8ldouble atal8;
467 #ifndef SKIP_DECIMAL_FLOAT
468 typedef _Decimal32 Tal8Decimal32 atal8;
469 typedef _Decimal64 Tal8Decimal64 atal8;
470 typedef _Decimal128 Tal8Decimal128 atal8;
471 #endif
472 #ifndef SKIP_COMPLEX
473 typedef _Complex float Tal8cfloat atal8;
474 typedef _Complex double Tal8cdouble atal8;
475 typedef _Complex long double Tal8cldouble atal8;
476 #endif
477 typedef bool Tal8bool atal8;
478 typedef enum E0 Tal8E0 atal8;
479 typedef enum E1 Tal8E1 atal8;
480 typedef enum E2 Tal8E2 atal8;
481 typedef enum E3 Tal8E3 atal8;
482 typedef enum E4 Tal8E4 atal8;
483 typedef enum E5 Tal8E5 atal8;
484 typedef enum E6 Tal8E6 atal8;
485 typedef enum E7 Tal8E7 atal8;
486 typedef enum E8 Tal8E8 atal8;
487 typedef enum E9 Tal8E9 atal8;
488 typedef void *Tal8ptr atal8;
489 typedef char *Tal8cptr atal8;
490 typedef int *Tal8iptr atal8;
491 typedef char Tal16char atal16;
492 typedef signed char Tal16schar atal16;
493 typedef unsigned char Tal16uchar atal16;
494 typedef short int Tal16short atal16;
495 typedef unsigned short int Tal16ushort atal16;
496 typedef int Tal16int atal16;
497 typedef unsigned int Tal16uint atal16;
498 typedef long int Tal16long atal16;
499 typedef unsigned long int Tal16ulong atal16;
500 typedef long long int Tal16llong atal16;
501 typedef unsigned long long int Tal16ullong atal16;
502 #ifndef SKIP_COMPLEX_INT
503 typedef _Complex char Tal16cchar atal16;
504 typedef _Complex signed char Tal16cschar atal16;
505 typedef _Complex unsigned char Tal16cuchar atal16;
506 typedef _Complex short int Tal16cshort atal16;
507 typedef _Complex unsigned short int Tal16cushort atal16;
508 typedef _Complex int Tal16cint atal16;
509 typedef _Complex unsigned int Tal16cuint atal16;
510 typedef _Complex long int Tal16clong atal16;
511 typedef _Complex unsigned long int Tal16culong atal16;
512 typedef _Complex long long int Tal16cllong atal16;
513 typedef _Complex unsigned long long int Tal16cullong atal16;
514 #endif
515 typedef float Tal16float atal16;
516 typedef double Tal16double atal16;
517 typedef long double Tal16ldouble atal16;
518 #ifndef SKIP_DECIMAL_FLOAT
519 typedef _Decimal32 Tal16Decimal32 atal16;
520 typedef _Decimal64 Tal16Decimal64 atal16;
521 typedef _Decimal128 Tal16Decimal128 atal16;
522 #endif
523 #ifndef SKIP_COMPLEX
524 typedef _Complex float Tal16cfloat atal16;
525 typedef _Complex double Tal16cdouble atal16;
526 typedef _Complex long double Tal16cldouble atal16;
527 #endif
528 typedef bool Tal16bool atal16;
529 typedef enum E0 Tal16E0 atal16;
530 typedef enum E1 Tal16E1 atal16;
531 typedef enum E2 Tal16E2 atal16;
532 typedef enum E3 Tal16E3 atal16;
533 typedef enum E4 Tal16E4 atal16;
534 typedef enum E5 Tal16E5 atal16;
535 typedef enum E6 Tal16E6 atal16;
536 typedef enum E7 Tal16E7 atal16;
537 typedef enum E8 Tal16E8 atal16;
538 typedef enum E9 Tal16E9 atal16;
539 typedef void *Tal16ptr atal16;
540 typedef char *Tal16cptr atal16;
541 typedef int *Tal16iptr atal16;
542 typedef char Talx1char atalx1;
543 typedef signed char Talx1schar atalx1;
544 typedef unsigned char Talx1uchar atalx1;
545 typedef short int Talx1short atalx1;
546 typedef unsigned short int Talx1ushort atalx1;
547 typedef int Talx1int atalx1;
548 typedef unsigned int Talx1uint atalx1;
549 typedef long int Talx1long atalx1;
550 typedef unsigned long int Talx1ulong atalx1;
551 typedef long long int Talx1llong atalx1;
552 typedef unsigned long long int Talx1ullong atalx1;
553 #ifndef SKIP_COMPLEX_INT
554 typedef _Complex char Talx1cchar atalx1;
555 typedef _Complex signed char Talx1cschar atalx1;
556 typedef _Complex unsigned char Talx1cuchar atalx1;
557 typedef _Complex short int Talx1cshort atalx1;
558 typedef _Complex unsigned short int Talx1cushort atalx1;
559 typedef _Complex int Talx1cint atalx1;
560 typedef _Complex unsigned int Talx1cuint atalx1;
561 typedef _Complex long int Talx1clong atalx1;
562 typedef _Complex unsigned long int Talx1culong atalx1;
563 typedef _Complex long long int Talx1cllong atalx1;
564 typedef _Complex unsigned long long int Talx1cullong atalx1;
565 #endif
566 typedef float Talx1float atalx1;
567 typedef double Talx1double atalx1;
568 typedef long double Talx1ldouble atalx1;
569 #ifndef SKIP_DECIMAL_FLOAT
570 typedef _Decimal32 Talx1Decimal32 atalx1;
571 typedef _Decimal64 Talx1Decimal64 atalx1;
572 typedef _Decimal128 Talx1Decimal128 atalx1;
573 #endif
574 #ifndef SKIP_COMPLEX
575 typedef _Complex float Talx1cfloat atalx1;
576 typedef _Complex double Talx1cdouble atalx1;
577 typedef _Complex long double Talx1cldouble atalx1;
578 #endif
579 typedef bool Talx1bool atalx1;
580 typedef enum E0 Talx1E0 atalx1;
581 typedef enum E1 Talx1E1 atalx1;
582 typedef enum E2 Talx1E2 atalx1;
583 typedef enum E3 Talx1E3 atalx1;
584 typedef enum E4 Talx1E4 atalx1;
585 typedef enum E5 Talx1E5 atalx1;
586 typedef enum E6 Talx1E6 atalx1;
587 typedef enum E7 Talx1E7 atalx1;
588 typedef enum E8 Talx1E8 atalx1;
589 typedef enum E9 Talx1E9 atalx1;
590 typedef void *Talx1ptr atalx1;
591 typedef char *Talx1cptr atalx1;
592 typedef int *Talx1iptr atalx1;
593 typedef short int Talx2short atalx2;
594 typedef unsigned short int Talx2ushort atalx2;
595 typedef int Talx2int atalx2;
596 typedef unsigned int Talx2uint atalx2;
597 typedef long int Talx2long atalx2;
598 typedef unsigned long int Talx2ulong atalx2;
599 typedef long long int Talx2llong atalx2;
600 typedef unsigned long long int Talx2ullong atalx2;
601 #ifndef SKIP_COMPLEX_INT
602 typedef _Complex char Talx2cchar atalx2;
603 typedef _Complex signed char Talx2cschar atalx2;
604 typedef _Complex unsigned char Talx2cuchar atalx2;
605 typedef _Complex short int Talx2cshort atalx2;
606 typedef _Complex unsigned short int Talx2cushort atalx2;
607 typedef _Complex int Talx2cint atalx2;
608 typedef _Complex unsigned int Talx2cuint atalx2;
609 typedef _Complex long int Talx2clong atalx2;
610 typedef _Complex unsigned long int Talx2culong atalx2;
611 typedef _Complex long long int Talx2cllong atalx2;
612 typedef _Complex unsigned long long int Talx2cullong atalx2;
613 #endif
614 typedef float Talx2float atalx2;
615 typedef double Talx2double atalx2;
616 typedef long double Talx2ldouble atalx2;
617 #ifndef SKIP_DECIMAL_FLOAT
618 typedef _Decimal32 Talx2Decimal32 atalx2;
619 typedef _Decimal64 Talx2Decimal64 atalx2;
620 typedef _Decimal128 Talx2Decimal128 atalx2;
621 #endif
622 #ifndef SKIP_COMPLEX
623 typedef _Complex float Talx2cfloat atalx2;
624 typedef _Complex double Talx2cdouble atalx2;
625 typedef _Complex long double Talx2cldouble atalx2;
626 #endif
627 typedef enum E0 Talx2E0 atalx2;
628 typedef enum E1 Talx2E1 atalx2;
629 typedef enum E2 Talx2E2 atalx2;
630 typedef enum E3 Talx2E3 atalx2;
631 typedef enum E4 Talx2E4 atalx2;
632 typedef enum E5 Talx2E5 atalx2;
633 typedef enum E6 Talx2E6 atalx2;
634 typedef enum E7 Talx2E7 atalx2;
635 typedef enum E8 Talx2E8 atalx2;
636 typedef enum E9 Talx2E9 atalx2;
637 typedef void *Talx2ptr atalx2;
638 typedef char *Talx2cptr atalx2;
639 typedef int *Talx2iptr atalx2;
640 typedef int Talx4int atalx4;
641 typedef unsigned int Talx4uint atalx4;
642 typedef long int Talx4long atalx4;
643 typedef unsigned long int Talx4ulong atalx4;
644 typedef long long int Talx4llong atalx4;
645 typedef unsigned long long int Talx4ullong atalx4;
646 #ifndef SKIP_COMPLEX_INT
647 typedef _Complex short int Talx4cshort atalx4;
648 typedef _Complex unsigned short int Talx4cushort atalx4;
649 typedef _Complex int Talx4cint atalx4;
650 typedef _Complex unsigned int Talx4cuint atalx4;
651 typedef _Complex long int Talx4clong atalx4;
652 typedef _Complex unsigned long int Talx4culong atalx4;
653 typedef _Complex long long int Talx4cllong atalx4;
654 typedef _Complex unsigned long long int Talx4cullong atalx4;
655 #endif
656 typedef float Talx4float atalx4;
657 typedef double Talx4double atalx4;
658 typedef long double Talx4ldouble atalx4;
659 #ifndef SKIP_DECIMAL_FLOAT
660 typedef _Decimal32 Talx4Decimal32 atalx4;
661 typedef _Decimal64 Talx4Decimal64 atalx4;
662 typedef _Decimal128 Talx4Decimal128 atalx4;
663 #endif
664 #ifndef SKIP_COMPLEX
665 typedef _Complex float Talx4cfloat atalx4;
666 typedef _Complex double Talx4cdouble atalx4;
667 typedef _Complex long double Talx4cldouble atalx4;
668 #endif
669 typedef enum E0 Talx4E0 atalx4;
670 typedef enum E1 Talx4E1 atalx4;
671 typedef enum E2 Talx4E2 atalx4;
672 typedef enum E3 Talx4E3 atalx4;
673 typedef enum E4 Talx4E4 atalx4;
674 typedef enum E5 Talx4E5 atalx4;
675 typedef enum E6 Talx4E6 atalx4;
676 typedef enum E7 Talx4E7 atalx4;
677 typedef enum E8 Talx4E8 atalx4;
678 typedef enum E9 Talx4E9 atalx4;
679 typedef void *Talx4ptr atalx4;
680 typedef char *Talx4cptr atalx4;
681 typedef int *Talx4iptr atalx4;
682 typedef long int Taly8long ataly8;
683 typedef unsigned long int Taly8ulong ataly8;
684 typedef long long int Talx8llong atalx8;
685 typedef unsigned long long int Talx8ullong atalx8;
686 #ifndef SKIP_COMPLEX_INT
687 typedef _Complex int Talx8cint atalx8;
688 typedef _Complex unsigned int Talx8cuint atalx8;
689 typedef _Complex long int Talx8clong atalx8;
690 typedef _Complex unsigned long int Talx8culong atalx8;
691 typedef _Complex long long int Talx8cllong atalx8;
692 typedef _Complex unsigned long long int Talx8cullong atalx8;
693 #endif
694 typedef double Talx8double atalx8;
695 typedef long double Talx8ldouble atalx8;
696 #ifndef SKIP_DECIMAL_FLOAT
697 typedef _Decimal64 Talx8Decimal64 atalx8;
698 typedef _Decimal128 Talx8Decimal128 atalx8;
699 #endif
700 #ifndef SKIP_COMPLEX
701 typedef _Complex float Talx8cfloat atalx8;
702 typedef _Complex double Talx8cdouble atalx8;
703 typedef _Complex long double Talx8cldouble atalx8;
704 #endif
705 typedef void *Taly8ptr ataly8;
706 typedef char *Taly8cptr ataly8;
707 typedef int *Taly8iptr ataly8;
708 #ifndef SKIP_COMPLEX_INT
709 typedef _Complex long int Taly16clong ataly16;
710 typedef _Complex unsigned long int Taly16culong ataly16;
711 typedef _Complex long long int Talx16cllong atalx16;
712 typedef _Complex unsigned long long int Talx16cullong atalx16;
713 #endif
714 #ifndef SKIP_COMPLEX
715 typedef _Complex double Talx16cdouble atalx16;
716 typedef _Complex long double Talx16cldouble atalx16;
717 #endif
718 typedef int (*Tfnptr) (void);
719 
720 /* Bitfield macros.  In C, it is invalid to use numbers larger
721    than type's bitsize, but we don't know the size when generating
722    the testcases.  */
723 #define BN8(n) ((((n) - 1) & 7) + 1)
724 #define BN16(n) ((((n) - 1) & 15) + 1)
725 #define BN32(n) ((((n) - 1) & 31) + 1)
726 #define BN64(n) ((((n) - 1) & 63) + 1)
727 #define BCN(n) BN8 (n)
728 #if USHRT_MAX == 255
729 # define BSN(n) BN8 (n)
730 #elif USHRT_MAX == 65535
731 # define BSN(n) BN16 (n)
732 #elif USHRT_MAX == 4294967295U
733 # define BSN(n) BN32 (n)
734 #elif USHRT_MAX == 18446744073709551615ULL
735 # define BSN(n) BN64 (n)
736 #endif
737 #if UINT_MAX == 255
738 # define BIN(n) BN8 (n)
739 #elif UINT_MAX == 65535
740 # define BIN(n) BN16 (n)
741 #elif UINT_MAX == 4294967295U
742 # define BIN(n) BN32 (n)
743 #elif UINT_MAX == 18446744073709551615ULL
744 # define BIN(n) BN64 (n)
745 #endif
746 #if ULONG_MAX == 255
747 # define BLN(n) BN8 (n)
748 #elif ULONG_MAX == 65535
749 # define BLN(n) BN16 (n)
750 #elif ULONG_MAX == 4294967295U
751 # define BLN(n) BN32 (n)
752 #elif ULONG_MAX == 18446744073709551615ULL
753 # define BLN(n) BN64 (n)
754 #endif
755 #if ULONG_MAX == 255
756 # define BLN(n) BN8 (n)
757 #elif ULONG_MAX == 65535
758 # define BLN(n) BN16 (n)
759 #elif ULONG_MAX == 4294967295U
760 # define BLN(n) BN32 (n)
761 #elif ULONG_MAX == 18446744073709551615ULL
762 # define BLN(n) BN64 (n)
763 #endif
764 #if !defined ULLONG_MAX && defined __LONG_LONG_MAX__
765 # define ULLONG_MAX (__LONG_LONG_MAX__ * 2ULL + 1ULL)
766 #endif
767 #if ULLONG_MAX == 255
768 # define BQN(n) BN8 (n)
769 #elif ULLONG_MAX == 65535
770 # define BQN(n) BN16 (n)
771 #elif ULLONG_MAX == 4294967295U
772 # define BQN(n) BN32 (n)
773 #elif ULLONG_MAX == 18446744073709551615ULL
774 # define BQN(n) BN64 (n)
775 #endif
776 
777 #define T(n, fields, ops) TX(n, struct, , fields, ({ ops });)
778 #define U(n, fields, ops) TX(n, union, , fields, ({ ops });)
779 #ifdef SKIP_COMPLEX_INT
780 #define TXCI(n, type, attrs, fields, ops)
781 #define TCI(n, fields, ops)
782 #define UCI(n, fields, ops)
783 #else
784 #define TXCI(n, type, attrs, fields, ops) TX(n, type, attrs, fields, ({ ops });)
785 #define TCI(n, fields, ops) TX(n, struct, , fields, ({ ops });)
786 #define UCI(n, fields, ops) TX(n, union, , fields, ({ ops });)
787 #endif
788