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