2 * TCC auto test program
5 /* Unfortunately, gcc version < 3 does not handle that! */
8 /* only gcc 3 handles _Bool correctly */
13 /* test various include syntaxes */
15 #define TCCLIB_INC <tcclib.h>
16 #define TCCLIB_INC1 <tcclib
17 #define TCCLIB_INC2 h>
18 #define TCCLIB_INC3 "tcclib"
22 #include TCCLIB_INC1.TCCLIB_INC2
24 #include TCCLIB_INC1.h>
26 #include TCCLIB_INC3 ".h"
48 void constant_expr_test();
50 void char_short_test();
52 void compound_literal_test(void);
54 void struct_assign_test(void);
56 void bitfield_test(void);
57 void c99_bool_test(void);
58 void float_test(void);
59 void longlong_test(void);
60 void stdarg_test(void);
61 void whitespace_test(void);
62 void relocation_test(void);
66 void forward_ref(void);
72 #define M1(a, b) (a) + (b)
75 #define glue(a, b) a ## b
76 #define xglue(a, b) glue(a, b)
77 #define HIGHLOW "hello"
78 #define LOW LOW ", world"
80 #define min(a, b) ((a) < (b) ? (a) : (b))
83 #define dprintf(level,...) printf(__VA_ARGS__)
86 /* gcc vararg macros */
87 #define dprintf1(level, fmt, args...) printf(fmt, ## args)
89 #define MACRO_NOARGS()
105 #define __INT64_C(c) c ## LL
106 #define INT64_MIN (-__INT64_C(9223372036854775807)-1)
108 void macro_test(void)
110 printf("macro:\n");\f\v
112 printf("aaa=%d\n", AAA
);
114 printf("min=%d\n", min(1, min(2, -1)));
116 printf("s1=%s\n", glue(HIGH
, LOW
));
117 printf("s2=%s\n", xglue(HIGH
, LOW
));
118 printf("s3=%s\n", str("c"));
119 printf("s4=%s\n", str(a1
));
120 printf("B3=%d\n", B3
);
123 printf("A defined\n");
126 printf("B defined\n");
129 printf("A defined\n");
131 printf("A not defined\n");
134 printf("B defined\n");
136 printf("B not defined\n");
140 printf("A defined\n");
142 printf("B1 defined\n");
144 printf("B1 not defined\n");
147 printf("A not defined\n");
149 printf("B2 defined\n");
151 printf("B2 not defined\n");
156 printf("test true1\n");
159 printf("test true2\n");
162 printf("test true3\n");
165 printf("test trueA\n");
168 printf("test trueB\n");
184 printf("__LINE__ defined\n");
187 printf("__LINE__=%d __FILE__=%s\n",
190 printf("__LINE__=%d __FILE__=%s\n",
193 printf("__LINE__=%d __FILE__=%s\n",
195 #line 195 "tcctest.c"
197 /* not strictly preprocessor, but we test it there */
199 printf("__func__ = %s\n", __func__
);
200 dprintf(1, "vaarg=%d\n", 1);
202 dprintf1(1, "vaarg1\n");
203 dprintf1(1, "vaarg1=%d\n", 2);
204 dprintf1(1, "vaarg1=%d %d\n", 1, 2);
207 printf("func='%s'\n", __FUNCTION__
);
209 /* complicated macros in glibc */
210 printf("INT64_MIN=%Ld\n", INT64_MIN
);
243 printf("\141\1423\143\n");/* dezdez test */
244 printf("\x41\x42\x43\x3a\n");
245 printf("c=%c\n", 'r');
246 printf("wc=%C 0x%lx %C\n", L
'a', L
'\x1234', L
'c');
247 printf("wstring=%S\n", L
"abc");
248 printf("wstring=%S\n", L
"abc" L
"def" "ghi");
249 printf("'\\377'=%d '\\xff'=%d\n", '\377', '\xff');
250 printf("L'\\377'=%d L'\\xff'=%d\n", L
'\377', L
'\xff');
253 while ((b
= b
+ 1) < 96) {
257 printf("fib=%d\n", fib(33));
259 while (b
!= 0x80000000) {
272 for(i
= 0; i
< 10;i
++)
281 /* break/continue tests */
293 /* break/continue tests */
305 for(i
= 0;i
< 10;i
++) {
345 printf("enum:\n%d %d %d %d %d %d\n",
346 E0
, E1
, E2
, E3
, E4
, E5
);
348 printf("b1=%d\n", b1
);
359 printf("typedef:\n");
360 printf("a=%d\n", *a
);
365 printf("forward:\n");
371 void forward_ref(void)
373 printf("forward ok\n");
376 typedef struct struct1
{
396 struct struct1 st1
, st2
;
398 int main(int argc
, char **argv
)
416 constant_expr_test();
420 compound_literal_test();
422 struct_assign_test();
441 printf("g1=%d\n", g
);
449 printf("g2=%d\n", g
);
453 printf("g3=%d\n", g
);
457 printf("g4=%d\n", g
);
460 printf("g5=%d\n", g
);
463 void array_test(int a
[4])
468 printf("sizeof(a) = %d\n", sizeof(a
));
469 printf("sizeof(int) = %d\n", sizeof(int));
470 printf("sizeof(unsigned int) = %d\n", sizeof(unsigned int));
471 printf("sizeof(short) = %d\n", sizeof(short));
472 printf("sizeof(unsigned short) = %d\n", sizeof(unsigned short));
473 printf("sizeof(char) = %d\n", sizeof(char));
474 printf("sizeof(unsigned char) = %d\n", sizeof(unsigned char));
475 printf("sizeof(\"a\") = %d\n", sizeof("a"));
477 printf("sizeof(__func__) = %d\n", sizeof(__func__
));
479 printf("sizeof tab %d\n", sizeof(tab
));
480 printf("sizeof tab2 %d\n", sizeof tab2
);
484 printf("%d %d %d\n", tab
[0], tab
[1], tab
[2]);
487 tab2
[i
][j
] = 10 * i
+ j
;
489 printf(" %3d", ((int *)tab2
)[i
]);
498 printf("%d\n", a
+= 1);
499 printf("%d\n", a
-= 2);
500 printf("%d\n", a
*= 31232132);
501 printf("%d\n", a
/= 4);
502 printf("%d\n", a
%= 20);
503 printf("%d\n", a
&= 6);
504 printf("%d\n", a
^= 7);
505 printf("%d\n", a
|= 8);
506 printf("%d\n", a
>>= 3);
507 printf("%d\n", a
<<= 4);
511 printf("%d\n", a
+ 1);
512 printf("%d\n", a
- 2);
513 printf("%d\n", a
* 312);
514 printf("%d\n", a
/ 4);
515 printf("%d\n", b
/ 4);
516 printf("%d\n", (unsigned)b
/ 4);
517 printf("%d\n", a
% 20);
518 printf("%d\n", b
% 20);
519 printf("%d\n", (unsigned)b
% 20);
520 printf("%d\n", a
& 6);
521 printf("%d\n", a
^ 7);
522 printf("%d\n", a
| 8);
523 printf("%d\n", a
>> 3);
524 printf("%d\n", b
>> 3);
525 printf("%d\n", (unsigned)b
>> 3);
526 printf("%d\n", a
<< 4);
531 printf("%d\n", 12 + 1);
532 printf("%d\n", 12 - 2);
533 printf("%d\n", 12 * 312);
534 printf("%d\n", 12 / 4);
535 printf("%d\n", 12 % 20);
536 printf("%d\n", 12 & 6);
537 printf("%d\n", 12 ^ 7);
538 printf("%d\n", 12 | 8);
539 printf("%d\n", 12 >> 2);
540 printf("%d\n", 12 << 4);
544 printf("%d %d %d %d\n",
553 return (c
>= 'a' & c
<= 'z') | (c
>= 'A' & c
<= 'Z') | c
== '_';
556 /**********************/
558 int vstack
[10], *vstack_ptr
;
560 void vpush(int vt
, int vc
)
566 void vpop(int *ft
, int *fc
)
579 vstack_ptr
[-2] &= ~0xffffff80;
581 printf("res= %d %d\n", a
, b
);
584 void constant_expr_test()
587 printf("constant_expr:\n");
589 printf("%d\n", a
* 16);
590 printf("%d\n", a
* 1);
591 printf("%d\n", a
+ 0);
600 printf("expr_ptr:\n");
603 printf("diff=%d\n", q
- p
);
605 printf("inc=%d\n", p
- tab4
);
607 printf("dec=%d\n", p
- tab4
);
609 printf("inc=%d\n", p
- tab4
);
611 printf("dec=%d\n", p
- tab4
);
612 printf("add=%d\n", p
+ 3 - tab4
);
613 printf("add=%d\n", 3 + p
- tab4
);
619 printf("constant_expr:\n");
622 printf("%d\n", a
== a
);
623 printf("%d\n", a
!= a
);
625 printf("%d\n", a
< b
);
626 printf("%d\n", a
<= b
);
627 printf("%d\n", a
<= a
);
628 printf("%d\n", b
>= a
);
629 printf("%d\n", a
>= a
);
630 printf("%d\n", b
> a
);
632 printf("%d\n", (unsigned)a
< b
);
633 printf("%d\n", (unsigned)a
<= b
);
634 printf("%d\n", (unsigned)a
<= a
);
635 printf("%d\n", (unsigned)b
>= a
);
636 printf("%d\n", (unsigned)a
>= a
);
637 printf("%d\n", (unsigned)b
> a
);
646 printf("sizes: %d %d %d %d\n",
647 sizeof(struct struct1
),
648 sizeof(struct struct2
),
649 sizeof(union union1
),
650 sizeof(union union2
));
654 printf("st1: %d %d %d\n",
655 st1
.f1
, st1
.f2
, st1
.f3
);
658 printf("union1: %d\n", st1
.u
.v1
);
661 printf("union2: %d\n", u
.w1
);
666 printf("st2: %d %d %d\n",
667 s
->f1
, s
->f2
, s
->f3
);
668 printf("str_addr=%x\n", (int)st1
.str
- (int)&st1
.f1
);
671 /* XXX: depend on endianness */
672 void char_short_test()
676 printf("char_short:\n");
681 *(char *)&var1
, *(char *)&var2
);
683 *(unsigned char *)&var1
, *(unsigned char *)&var2
);
684 printf("s16=%d %d\n",
685 *(short *)&var1
, *(short *)&var2
);
686 printf("u16=%d %d\n",
687 *(unsigned short *)&var1
, *(unsigned short *)&var2
);
688 printf("s32=%d %d\n",
689 *(int *)&var1
, *(int *)&var2
);
690 printf("u32=%d %d\n",
691 *(unsigned int *)&var1
, *(unsigned int *)&var2
);
692 *(char *)&var1
= 0x08;
693 printf("var1=%x\n", var1
);
694 *(short *)&var1
= 0x0809;
695 printf("var1=%x\n", var1
);
696 *(int *)&var1
= 0x08090a0b;
697 printf("var1=%x\n", var1
);
716 printf("!s=%d\n", !s
);
722 printf("a=%d %d %d\n", 0 || 0, 0 || 1, 1 || 1);
723 printf("a=%d %d %d\n", 0 && 0, 0 && 1, 1 && 1);
724 printf("a=%d %d\n", 1 ? 1 : 0, 0 ? 1 : 0);
739 printf("b=%d\n", a
+ (0 ? 1 : a
/ 2));
741 /* test register spilling */
744 a
= (a
+ b
) * ((a
< b
) ?
745 ((b
- a
) * (a
- b
)): a
+ b
);
748 /* test complex || or && expressions */
752 printf("exp=%d\n", f
== (32 <= a
&& a
<= 3));
753 printf("r=%d\n", (t
|| f
) + (t
&& f
));
758 int aspect_native
= 65536;
759 double bfu_aspect
= 1.0;
761 for(aspect_on
= 0; aspect_on
< 2; aspect_on
++) {
762 aspect
=aspect_on
?(aspect_native
*bfu_aspect
+0.5):65535UL;
763 printf("aspect=%d\n", aspect
);
770 int *cinit2
= (int []){3, 2, 1};
772 void compound_literal_test(void)
777 printf("compound_test:\n");
779 p
= (int []){1, 2, 3};
785 printf("%d", cinit2
[i
]);
789 printf("q1=%s\n", q
);
791 q
= (char *){ "tralala2" };
792 printf("q2=%s\n", q
);
795 printf("q3=%s\n", q3
);
797 q
= (char []){ "tralala3" };
798 printf("q4=%s\n", q
);
801 p
= (int []){1, 2, cinit1
+ 3};
807 p
= (int []){1, 2, 4 + i
};
830 printf("kr_test:\n");
831 printf("func1=%d\n", kr_func1(3, 4));
832 printf("func2=%d\n", kr_func2(3, 4));
839 tab
= (char*)malloc(20);
855 /* structure assignment tests */
861 struct structa1 ssta1
;
863 void struct_assign_test1(struct structa1 s1
, int t
)
865 printf("%d %d %d\n", s1
.f1
, s1
.f2
, t
);
868 struct structa1
struct_assign_test2(struct structa1 s1
, int t
)
875 void struct_assign_test(void)
877 struct structa1 lsta1
, lsta2
;
880 printf("struct_assign_test:\n");
884 printf("%d %d\n", lsta1
.f1
, lsta1
.f2
);
886 printf("%d %d\n", lsta2
.f1
, lsta2
.f2
);
891 struct_assign_test1(lsta2
, 3);
893 printf("before call: %d %d\n", lsta2
.f1
, lsta2
.f2
);
894 lsta2
= struct_assign_test2(lsta2
, 4);
895 printf("after call: %d %d\n", lsta2
.f1
, lsta2
.f2
);
898 /* casts to short/char */
900 void cast1(char a
, short b
, unsigned char c
, unsigned short d
)
902 printf("%d %d %d %d\n", a
, b
, c
, d
);
914 printf("cast_test:\n");
918 printf("%d %d %d %d\n",
921 (unsigned char)(a
+ 1),
922 (unsigned short)(a
+ 1));
923 printf("%d %d %d %d\n",
926 (unsigned char)0xfffff,
927 (unsigned short)0xfffff);
929 a
= (bcast
= 128) + 1;
931 a
= (scast
= 65536) + 1;
934 printf("sizeof(c) = %d, sizeof((int)c) = %d\n", sizeof(c
), sizeof((int)c
));
936 /* test implicit int casting for array accesses */
940 printf("%d %d\n", tab
[0], tab
[1]);
942 /* test implicit casting on some operators */
943 printf("sizeof(+(char)'a') = %d\n", sizeof(+(char)'a'));
944 printf("sizeof(-(char)'a') = %d\n", sizeof(-(char)'a'));
945 printf("sizeof(~(char)'a') = %d\n", sizeof(-(char)'a'));
948 /* initializers tests */
958 int sinit3
[3] = { 1, 2, {{3}}, };
959 int sinit4
[3][2] = { {1, 2}, {3, 4}, {5, 6} };
960 int sinit5
[3][2] = { 1, 2, 3, 4, 5, 6 };
961 int sinit6
[] = { 1, 2, 3 };
962 int sinit7
[] = { [2] = 3, [0] = 1, 2 };
963 char sinit8
[] = "hello" "trala";
965 struct structinit1 sinit9
= { 1, 2, 3 };
966 struct structinit1 sinit10
= { .f2
= 2, 3, .f1
= 1 };
967 struct structinit1 sinit11
= { .f2
= 2, 3, .f1
= 1,
975 char *sinit12
= "hello world";
981 char sinit14
[10] = { "abc" };
982 int sinit15
[3] = { sizeof(sinit15
), 1, 2 };
988 int linit4
[3][2] = { {1, 2}, {3, 4}, {5, 6} };
989 int linit6
[] = { 1, 2, 3 };
991 char linit8
[] = "hello" "trala";
992 int linit12
[10] = { 1, 2 };
993 int linit13
[10] = { 1, 2, [7] = 3, [3] = 4, };
994 char linit14
[10] = "abc";
995 int linit15
[10] = { linit1
, linit1
+ 1, [6] = linit1
+ 2, };
996 struct linit16
{ int a1
, a2
, a3
, a4
; } linit16
= { 1, .a3
= 2 };
997 int linit17
= sizeof(linit17
);
999 printf("init_test:\n");
1001 printf("sinit1=%d\n", sinit1
);
1002 printf("sinit2=%d\n", sinit2
);
1003 printf("sinit3=%d %d %d %d\n",
1009 printf("sinit6=%d\n", sizeof(sinit6
));
1010 printf("sinit7=%d %d %d %d\n",
1016 printf("sinit8=%s\n", sinit8
);
1017 printf("sinit9=%d %d %d\n",
1022 printf("sinit10=%d %d %d\n",
1027 printf("sinit11=%d %d %d %d %d %d\n",
1038 printf("[%d][%d] = %d %d %d\n",
1039 i
, j
, sinit4
[i
][j
], sinit5
[i
][j
], linit4
[i
][j
]);
1040 printf("linit1=%d\n", linit1
);
1041 printf("linit2=%d\n", linit2
);
1042 printf("linit6=%d\n", sizeof(linit6
));
1043 printf("linit8=%d %s\n", sizeof(linit8
), linit8
);
1045 printf("sinit12=%s\n", sinit12
);
1046 printf("sinit13=%d %s %s %s\n",
1051 printf("sinit14=%s\n", sinit14
);
1053 for(i
=0;i
<10;i
++) printf(" %d", linit12
[i
]);
1055 for(i
=0;i
<10;i
++) printf(" %d", linit13
[i
]);
1057 for(i
=0;i
<10;i
++) printf(" %d", linit14
[i
]);
1059 for(i
=0;i
<10;i
++) printf(" %d", linit15
[i
]);
1061 printf("%d %d %d %d\n",
1066 /* test that initialisation is done after variable declare */
1067 printf("linit17=%d\n", linit17
);
1068 printf("sinit15=%d\n", sinit15
[0]);
1095 /* ISOC99 _Bool type */
1096 void c99_bool_test(void)
1102 printf("bool_test:\n");
1103 printf("sizeof(_Bool) = %d\n", sizeof(_Bool
));
1105 printf("cast: %d %d %d\n", (_Bool
)10, (_Bool
)0, (_Bool
)a
);
1107 printf("b = %d\n", b
);
1109 printf("b = %d\n", b
);
1113 void bitfield_test(void)
1123 unsigned int f5
: 7;
1125 printf("bitfield_test:");
1126 printf("sizeof(st1) = %d\n", sizeof(st1
));
1135 printf("%d %d %d %d %d\n",
1136 st1
.f1
, st1
.f2
, st1
.f3
, st1
.f4
, st1
.f5
);
1139 #define FTEST(prefix, type, fmt)\
1140 void prefix ## cmp(type a, type b)\
1142 printf("%d %d %d %d %d %d\n",\
1149 printf(fmt " " fmt " " fmt " " fmt " " fmt " " fmt " " fmt "\n",\
1157 printf(fmt "\n", ++a);\
1158 printf(fmt "\n", a++);\
1159 printf(fmt "\n", a);\
1161 void prefix ## fcast(type a)\
1172 printf("ftof: %f %f %Lf\n", fa, da, la);\
1174 ua = (unsigned int)a;\
1175 printf("ftoi: %d %u\n", ia, ua);\
1179 printf("itof: " fmt "\n", b);\
1181 printf("utof: " fmt "\n", b);\
1184 void prefix ## test(void)\
1186 printf("testing '%s'\n", #type);\
1187 prefix ## cmp(1, 2.5);\
1188 prefix ## cmp(2, 1.5);\
1189 prefix ## cmp(1, 1);\
1190 prefix ## fcast(234.6);\
1191 prefix ## fcast(-2334.6);\
1194 FTEST(f
, float, "%f")
1195 FTEST(d
, double, "%f")
1196 FTEST(ld
, long double, "%Lf")
1198 double ftab1
[3] = { 1.2, 3.4, -5.6 };
1201 void float_test(void)
1208 printf("float_test:\n");
1209 printf("sizeof(float) = %d\n", sizeof(float));
1210 printf("sizeof(double) = %d\n", sizeof(double));
1211 printf("sizeof(long double) = %d\n", sizeof(long double));
1215 printf("%f %f %f\n", ftab1
[0], ftab1
[1], ftab1
[2]);
1216 printf("%f %f %f\n", 2.12, .5, 2.3e10
);
1217 // printf("%f %f %f\n", 0x1234p12, 0x1e23.23p10, 0x12dp-10);
1219 printf("da=%f\n", da
);
1221 printf("fa=%f\n", fa
);
1224 printf("da = %f\n", da
);
1227 printf("db = %f\n", db
);
1235 return fib(n
-1) + fib(n
-2);
1247 printf("funcptr:\n");
1254 /* more complicated pointer computation */
1257 printf("sizeof1 = %d\n", sizeof(funcptr_test
));
1258 printf("sizeof2 = %d\n", sizeof funcptr_test
);
1259 printf("sizeof3 = %d\n", sizeof(&funcptr_test
));
1260 printf("sizeof4 = %d\n", sizeof &funcptr_test
);
1263 void lloptest(long long a
, long long b
)
1265 unsigned long long ua
, ub
;
1270 printf("arith: %Ld %Ld %Ld %Ld %Ld\n",
1278 printf("bin: %Ld %Ld %Ld\n",
1284 printf("test: %d %d %d %d %d %d\n",
1292 printf("utest: %d %d %d %d %d %d\n",
1303 printf("arith2: %Ld %Ld\n", a
, b
);
1304 printf("arith2: %Ld %Ld\n", a
++, b
++);
1305 printf("arith2: %Ld %Ld\n", --a
, --b
);
1306 printf("arith2: %Ld %Ld\n", a
, b
);
1309 void llshift(long long a
, int b
)
1311 printf("shift: %Ld %Ld %Ld\n",
1312 (unsigned long long)a
>> b
,
1315 printf("shiftc: %Ld %Ld %Ld\n",
1316 (unsigned long long)a
>> 3,
1319 printf("shiftc: %Ld %Ld %Ld\n",
1320 (unsigned long long)a
>> 35,
1330 long long la
, lb
, lc
;
1331 unsigned long long ula
, ulb
, ulc
;
1334 la
= (la
<< 20) | 0x12345;
1336 printf("la=%Ld ula=%Lu\n", la
, ula
);
1341 printf("lltof: %f %f %Lf\n", fa
, da
, lda
);
1346 printf("ftoll: %Ld %Ld %Ld\n", la
, lb
, lc
);
1351 printf("ulltof: %f %f %Lf\n", fa
, da
, lda
);
1356 printf("ftoull: %Lu %Lu %Lu\n", ula
, ulb
, ulc
);
1359 long long llfunc1(int a
)
1369 long long int value(struct S
*v
)
1371 return ((long long int)v
->item
);
1374 void longlong_test(void)
1379 printf("longlong_test:\n");
1380 printf("sizeof(long long) = %d\n", sizeof(long long));
1385 printf("%Ld %Ld\n", a
, b
);
1386 printf("%Ld %Ld %Ld %Lx\n",
1390 0x1234567812345679);
1395 lloptest(0xff, 0x1234);
1396 b
= 0x72345678 << 10;
1400 b
= 0x72345678LL
<< 10;
1411 /* long long reg spill test */
1416 printf("%lld\n", value(&a
));
1420 void vprintf1(const char *fmt
, ...)
1442 i
= va_arg(ap
, int);
1446 d
= va_arg(ap
, double);
1450 ll
= va_arg(ap
, long long);
1464 void stdarg_test(void)
1466 vprintf1("%d %d %d\n", 1, 2, 3);
1467 vprintf1("%f %d %f\n", 1.0, 2, 3.0);
1468 vprintf1("%l %l %d %f\n", 1234567891234LL, 987654321986LL, 3, 1234.0);
1471 void whitespace_test(void)
1477 ntf("whitspace:\n");\f\v
1486 printf("len1=%d\n", strlen("
1490 printf("len1=%d str[0]=%d\n", strlen(str
), str
[0]);
1491 printf("len1=%d\n", strlen("
a
1495 int reltab
[3] = { 1, 2, 3 };
1497 int *rel1
= &reltab
[1];
1498 int *rel2
= &reltab
[2];
1500 void relocation_test(void)
1502 printf("*rel1=%d\n", *rel1
);
1503 printf("*rel2=%d\n", *rel2
);