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);
63 void forward_ref(void);
69 #define M1(a, b) (a) + (b)
72 #define glue(a, b) a ## b
73 #define xglue(a, b) glue(a, b)
74 #define HIGHLOW "hello"
75 #define LOW LOW ", world"
77 #define min(a, b) ((a) < (b) ? (a) : (b))
80 #define dprintf(level,...) printf(__VA_ARGS__)
83 /* gcc vararg macros */
84 #define dprintf1(level, fmt, args...) printf(fmt, ## args)
86 #define MACRO_NOARGS()
106 printf("aaa=%d\n", AAA
);
108 printf("min=%d\n", min(1, min(2, -1)));
110 printf("s1=%s\n", glue(HIGH
, LOW
));
111 printf("s2=%s\n", xglue(HIGH
, LOW
));
112 printf("s3=%s\n", str("c"));
113 printf("s4=%s\n", str(a1
));
114 printf("B3=%d\n", B3
);
117 printf("A defined\n");
120 printf("B defined\n");
123 printf("A defined\n");
125 printf("A not defined\n");
128 printf("B defined\n");
130 printf("B not defined\n");
134 printf("A defined\n");
136 printf("B1 defined\n");
138 printf("B1 not defined\n");
141 printf("A not defined\n");
143 printf("B2 defined\n");
145 printf("B2 not defined\n");
150 printf("test true1\n");
153 printf("test true2\n");
156 printf("test true3\n");
159 printf("test trueA\n");
162 printf("test trueB\n");
177 printf("__LINE__=%d __FILE__=%s\n",
180 printf("__LINE__=%d __FILE__=%s\n",
183 printf("__LINE__=%d __FILE__=%s\n",
185 #line 185 "tcctest.c"
187 /* not strictly preprocessor, but we test it there */
189 printf("__func__ = %s\n", __func__
);
190 dprintf(1, "vaarg=%d\n", 1);
192 dprintf1(1, "vaarg1\n");
193 dprintf1(1, "vaarg1=%d\n", 2);
194 dprintf1(1, "vaarg1=%d %d\n", 1, 2);
227 printf("\141\1423\143\n");/* dezdez test */
228 printf("\x41\x42\x43\x3a\n");
229 printf("c=%c\n", 'r');
230 printf("wc=%C 0x%lx %C\n", L
'a', L
'\x1234', L
'c');
231 printf("wstring=%S\n", L
"abc");
232 printf("wstring=%S\n", L
"abc" L
"def" "ghi");
233 printf("'\\377'=%d '\xff'=%d\n", '\377', '\xff');
234 printf("L'\\377'=%d L'\xff'=%d\n", L
'\377', L
'\xff');
237 while ((b
= b
+ 1) < 96) {
241 printf("fib=%d\n", fib(33));
243 while (b
!= 0x80000000) {
256 for(i
= 0; i
< 10;i
++)
265 /* break/continue tests */
277 /* break/continue tests */
289 for(i
= 0;i
< 10;i
++) {
329 printf("enum:\n%d %d %d %d %d %d\n",
330 E0
, E1
, E2
, E3
, E4
, E5
);
332 printf("b1=%d\n", b1
);
343 printf("typedef:\n");
344 printf("a=%d\n", *a
);
349 printf("forward:\n");
355 void forward_ref(void)
357 printf("forward ok\n");
360 typedef struct struct1
{
380 struct struct1 st1
, st2
;
382 int main(int argc
, char **argv
)
400 constant_expr_test();
404 compound_literal_test();
406 struct_assign_test();
422 printf("g1=%d\n", g
);
430 printf("g2=%d\n", g
);
434 printf("g3=%d\n", g
);
438 printf("g4=%d\n", g
);
441 printf("g5=%d\n", g
);
444 void array_test(int a
[4])
449 printf("sizeof(a) = %d\n", sizeof(a
));
450 printf("sizeof(int) = %d\n", sizeof(int));
451 printf("sizeof(unsigned int) = %d\n", sizeof(unsigned int));
452 printf("sizeof(short) = %d\n", sizeof(short));
453 printf("sizeof(unsigned short) = %d\n", sizeof(unsigned short));
454 printf("sizeof(char) = %d\n", sizeof(char));
455 printf("sizeof(unsigned char) = %d\n", sizeof(unsigned char));
456 printf("sizeof(\"a\") = %d\n", sizeof("a"));
458 printf("sizeof(__func__) = %d\n", sizeof(__func__
));
460 printf("sizeof tab %d\n", sizeof(tab
));
461 printf("sizeof tab2 %d\n", sizeof tab2
);
465 printf("%d %d %d\n", tab
[0], tab
[1], tab
[2]);
468 tab2
[i
][j
] = 10 * i
+ j
;
470 printf(" %3d", ((int *)tab2
)[i
]);
479 printf("%d\n", a
+= 1);
480 printf("%d\n", a
-= 2);
481 printf("%d\n", a
*= 31232132);
482 printf("%d\n", a
/= 4);
483 printf("%d\n", a
%= 20);
484 printf("%d\n", a
&= 6);
485 printf("%d\n", a
^= 7);
486 printf("%d\n", a
|= 8);
487 printf("%d\n", a
>>= 3);
488 printf("%d\n", a
<<= 4);
492 printf("%d\n", a
+ 1);
493 printf("%d\n", a
- 2);
494 printf("%d\n", a
* 312);
495 printf("%d\n", a
/ 4);
496 printf("%d\n", b
/ 4);
497 printf("%d\n", (unsigned)b
/ 4);
498 printf("%d\n", a
% 20);
499 printf("%d\n", b
% 20);
500 printf("%d\n", (unsigned)b
% 20);
501 printf("%d\n", a
& 6);
502 printf("%d\n", a
^ 7);
503 printf("%d\n", a
| 8);
504 printf("%d\n", a
>> 3);
505 printf("%d\n", b
>> 3);
506 printf("%d\n", (unsigned)b
>> 3);
507 printf("%d\n", a
<< 4);
512 printf("%d\n", 12 + 1);
513 printf("%d\n", 12 - 2);
514 printf("%d\n", 12 * 312);
515 printf("%d\n", 12 / 4);
516 printf("%d\n", 12 % 20);
517 printf("%d\n", 12 & 6);
518 printf("%d\n", 12 ^ 7);
519 printf("%d\n", 12 | 8);
520 printf("%d\n", 12 >> 2);
521 printf("%d\n", 12 << 4);
525 printf("%d %d %d %d\n",
534 return (c
>= 'a' & c
<= 'z') | (c
>= 'A' & c
<= 'Z') | c
== '_';
537 /**********************/
539 int vstack
[10], *vstack_ptr
;
541 void vpush(int vt
, int vc
)
547 void vpop(int *ft
, int *fc
)
560 vstack_ptr
[-2] &= ~0xffffff80;
562 printf("res= %d %d\n", a
, b
);
565 void constant_expr_test()
568 printf("constant_expr:\n");
570 printf("%d\n", a
* 16);
571 printf("%d\n", a
* 1);
572 printf("%d\n", a
+ 0);
581 printf("expr_ptr:\n");
584 printf("diff=%d\n", q
- p
);
586 printf("inc=%d\n", p
- tab4
);
588 printf("dec=%d\n", p
- tab4
);
590 printf("inc=%d\n", p
- tab4
);
592 printf("dec=%d\n", p
- tab4
);
593 printf("add=%d\n", p
+ 3 - tab4
);
594 printf("add=%d\n", 3 + p
- tab4
);
600 printf("constant_expr:\n");
603 printf("%d\n", a
== a
);
604 printf("%d\n", a
!= a
);
606 printf("%d\n", a
< b
);
607 printf("%d\n", a
<= b
);
608 printf("%d\n", a
<= a
);
609 printf("%d\n", b
>= a
);
610 printf("%d\n", a
>= a
);
611 printf("%d\n", b
> a
);
613 printf("%d\n", (unsigned)a
< b
);
614 printf("%d\n", (unsigned)a
<= b
);
615 printf("%d\n", (unsigned)a
<= a
);
616 printf("%d\n", (unsigned)b
>= a
);
617 printf("%d\n", (unsigned)a
>= a
);
618 printf("%d\n", (unsigned)b
> a
);
627 printf("sizes: %d %d %d %d\n",
628 sizeof(struct struct1
),
629 sizeof(struct struct2
),
630 sizeof(union union1
),
631 sizeof(union union2
));
635 printf("st1: %d %d %d\n",
636 st1
.f1
, st1
.f2
, st1
.f3
);
639 printf("union1: %d\n", st1
.u
.v1
);
642 printf("union2: %d\n", u
.w1
);
647 printf("st2: %d %d %d\n",
648 s
->f1
, s
->f2
, s
->f3
);
649 printf("str_addr=%x\n", (int)st1
.str
- (int)&st1
.f1
);
652 /* XXX: depend on endianness */
653 void char_short_test()
657 printf("char_short:\n");
662 *(char *)&var1
, *(char *)&var2
);
664 *(unsigned char *)&var1
, *(unsigned char *)&var2
);
665 printf("s16=%d %d\n",
666 *(short *)&var1
, *(short *)&var2
);
667 printf("u16=%d %d\n",
668 *(unsigned short *)&var1
, *(unsigned short *)&var2
);
669 printf("s32=%d %d\n",
670 *(int *)&var1
, *(int *)&var2
);
671 printf("u32=%d %d\n",
672 *(unsigned int *)&var1
, *(unsigned int *)&var2
);
673 *(char *)&var1
= 0x08;
674 printf("var1=%x\n", var1
);
675 *(short *)&var1
= 0x0809;
676 printf("var1=%x\n", var1
);
677 *(int *)&var1
= 0x08090a0b;
678 printf("var1=%x\n", var1
);
697 printf("!s=%d\n", !s
);
703 printf("a=%d %d %d\n", 0 || 0, 0 || 1, 1 || 1);
704 printf("a=%d %d %d\n", 0 && 0, 0 && 1, 1 && 1);
705 printf("a=%d %d\n", 1 ? 1 : 0, 0 ? 1 : 0);
720 printf("b=%d\n", a
+ (0 ? 1 : a
/ 2));
722 /* test register spilling */
725 a
= (a
+ b
) * ((a
< b
) ?
726 ((b
- a
) * (a
- b
)): a
+ b
);
732 int *cinit2
= (int []){3, 2, 1};
734 void compound_literal_test(void)
739 printf("compound_test:\n");
741 p
= (int []){1, 2, 3};
747 printf("%d", cinit2
[i
]);
751 printf("q1=%s\n", q
);
753 q
= (char *){ "tralala2" };
754 printf("q2=%s\n", q
);
757 printf("q3=%s\n", q3
);
759 q
= (char []){ "tralala3" };
760 printf("q4=%s\n", q
);
763 p
= (int []){1, 2, cinit1
+ 3};
769 p
= (int []){1, 2, 4 + i
};
792 printf("kr_test:\n");
793 printf("func1=%d\n", kr_func1(3, 4));
794 printf("func2=%d\n", kr_func2(3, 4));
801 tab
= (char*)malloc(20);
817 /* structure assignment tests */
823 struct structa1 ssta1
;
825 void struct_assign_test1(struct structa1 s1
, int t
)
827 printf("%d %d %d\n", s1
.f1
, s1
.f2
, t
);
830 struct structa1
struct_assign_test2(struct structa1 s1
, int t
)
837 void struct_assign_test(void)
839 struct structa1 lsta1
, lsta2
;
842 printf("struct_assign_test:\n");
846 printf("%d %d\n", lsta1
.f1
, lsta1
.f2
);
848 printf("%d %d\n", lsta2
.f1
, lsta2
.f2
);
853 struct_assign_test1(lsta2
, 3);
855 printf("before call: %d %d\n", lsta2
.f1
, lsta2
.f2
);
856 lsta2
= struct_assign_test2(lsta2
, 4);
857 printf("after call: %d %d\n", lsta2
.f1
, lsta2
.f2
);
860 /* casts to short/char */
862 void cast1(char a
, short b
, unsigned char c
, unsigned short d
)
864 printf("%d %d %d %d\n", a
, b
, c
, d
);
876 printf("cast_test:\n");
880 printf("%d %d %d %d\n",
883 (unsigned char)(a
+ 1),
884 (unsigned short)(a
+ 1));
885 printf("%d %d %d %d\n",
888 (unsigned char)0xfffff,
889 (unsigned short)0xfffff);
891 a
= (bcast
= 128) + 1;
893 a
= (scast
= 65536) + 1;
896 printf("sizeof(c) = %d, sizeof((int)c) = %d\n", sizeof(c
), sizeof((int)c
));
898 /* test implicit int casting for array accesses */
902 printf("%d %d\n", tab
[0], tab
[1]);
904 /* test implicit casting on some operators */
905 printf("sizeof(+(char)'a') = %d\n", sizeof(+(char)'a'));
906 printf("sizeof(-(char)'a') = %d\n", sizeof(-(char)'a'));
907 printf("sizeof(~(char)'a') = %d\n", sizeof(-(char)'a'));
910 /* initializers tests */
920 int sinit3
[3] = { 1, 2, {{3}}, };
921 int sinit4
[3][2] = { {1, 2}, {3, 4}, {5, 6} };
922 int sinit5
[3][2] = { 1, 2, 3, 4, 5, 6 };
923 int sinit6
[] = { 1, 2, 3 };
924 int sinit7
[] = { [2] = 3, [0] = 1, 2 };
925 char sinit8
[] = "hello" "trala";
927 struct structinit1 sinit9
= { 1, 2, 3 };
928 struct structinit1 sinit10
= { .f2
= 2, 3, .f1
= 1 };
929 struct structinit1 sinit11
= { .f2
= 2, 3, .f1
= 1,
937 char *sinit12
= "hello world";
943 char sinit14
[10] = { "abc" };
944 int sinit15
[3] = { sizeof(sinit15
), 1, 2 };
950 int linit4
[3][2] = { {1, 2}, {3, 4}, {5, 6} };
951 int linit6
[] = { 1, 2, 3 };
953 char linit8
[] = "hello" "trala";
954 int linit12
[10] = { 1, 2 };
955 int linit13
[10] = { 1, 2, [7] = 3, [3] = 4, };
956 char linit14
[10] = "abc";
957 int linit15
[10] = { linit1
, linit1
+ 1, [6] = linit1
+ 2, };
958 struct linit16
{ int a1
, a2
, a3
, a4
; } linit16
= { 1, .a3
= 2 };
959 int linit17
= sizeof(linit17
);
961 printf("init_test:\n");
963 printf("sinit1=%d\n", sinit1
);
964 printf("sinit2=%d\n", sinit2
);
965 printf("sinit3=%d %d %d %d\n",
971 printf("sinit6=%d\n", sizeof(sinit6
));
972 printf("sinit7=%d %d %d %d\n",
978 printf("sinit8=%s\n", sinit8
);
979 printf("sinit9=%d %d %d\n",
984 printf("sinit10=%d %d %d\n",
989 printf("sinit11=%d %d %d %d %d %d\n",
1000 printf("[%d][%d] = %d %d %d\n",
1001 i
, j
, sinit4
[i
][j
], sinit5
[i
][j
], linit4
[i
][j
]);
1002 printf("linit1=%d\n", linit1
);
1003 printf("linit2=%d\n", linit2
);
1004 printf("linit6=%d\n", sizeof(linit6
));
1005 printf("linit8=%d %s\n", sizeof(linit8
), linit8
);
1007 printf("sinit12=%s\n", sinit12
);
1008 printf("sinit13=%d %s %s %s\n",
1013 printf("sinit14=%s\n", sinit14
);
1015 for(i
=0;i
<10;i
++) printf(" %d", linit12
[i
]);
1017 for(i
=0;i
<10;i
++) printf(" %d", linit13
[i
]);
1019 for(i
=0;i
<10;i
++) printf(" %d", linit14
[i
]);
1021 for(i
=0;i
<10;i
++) printf(" %d", linit15
[i
]);
1023 printf("%d %d %d %d\n",
1028 /* test that initialisation is done after variable declare */
1029 printf("linit17=%d\n", linit17
);
1030 printf("sinit15=%d\n", sinit15
[0]);
1057 /* ISOC99 _Bool type */
1058 void c99_bool_test(void)
1064 printf("bool_test:\n");
1065 printf("sizeof(_Bool) = %d\n", sizeof(_Bool
));
1067 printf("cast: %d %d %d\n", (_Bool
)10, (_Bool
)0, (_Bool
)a
);
1069 printf("b = %d\n", b
);
1071 printf("b = %d\n", b
);
1075 void bitfield_test(void)
1085 unsigned int f5
: 7;
1087 printf("bitfield_test:");
1088 printf("sizeof(st1) = %d\n", sizeof(st1
));
1097 printf("%d %d %d %d %d\n",
1098 st1
.f1
, st1
.f2
, st1
.f3
, st1
.f4
, st1
.f5
);
1101 #define FTEST(prefix, type, fmt)\
1102 void prefix ## cmp(type a, type b)\
1104 printf("%d %d %d %d %d %d\n",\
1111 printf(fmt " " fmt " " fmt " " fmt " " fmt " " fmt " " fmt "\n",\
1119 printf(fmt "\n", ++a);\
1120 printf(fmt "\n", a++);\
1121 printf(fmt "\n", a);\
1123 void prefix ## fcast(type a)\
1134 printf("ftof: %f %f %Lf\n", fa, da, la);\
1136 ua = (unsigned int)a;\
1137 printf("ftoi: %d %u\n", ia, ua);\
1141 printf("itof: " fmt "\n", b);\
1143 printf("utof: " fmt "\n", b);\
1146 void prefix ## test(void)\
1148 printf("testing '%s'\n", #type);\
1149 prefix ## cmp(1, 2.5);\
1150 prefix ## cmp(2, 1.5);\
1151 prefix ## cmp(1, 1);\
1152 prefix ## fcast(234.6);\
1153 prefix ## fcast(-2334.6);\
1156 FTEST(f
, float, "%f")
1157 FTEST(d
, double, "%f")
1158 FTEST(ld
, long double, "%Lf")
1160 double ftab1
[3] = { 1.2, 3.4, -5.6 };
1163 void float_test(void)
1170 printf("float_test:\n");
1171 printf("sizeof(float) = %d\n", sizeof(float));
1172 printf("sizeof(double) = %d\n", sizeof(double));
1173 printf("sizeof(long double) = %d\n", sizeof(long double));
1177 printf("%f %f %f\n", ftab1
[0], ftab1
[1], ftab1
[2]);
1178 printf("%f %f %f\n", 2.12, .5, 2.3e10
);
1179 // printf("%f %f %f\n", 0x1234p12, 0x1e23.23p10, 0x12dp-10);
1181 printf("da=%f\n", da
);
1183 printf("fa=%f\n", fa
);
1186 printf("da = %f\n", da
);
1189 printf("db = %f\n", db
);
1197 return fib(n
-1) + fib(n
-2);
1209 printf("funcptr:\n");
1216 /* more complicated pointer computation */
1219 printf("sizeof1 = %d\n", sizeof(funcptr_test
));
1220 printf("sizeof2 = %d\n", sizeof funcptr_test
);
1221 printf("sizeof3 = %d\n", sizeof(&funcptr_test
));
1222 printf("sizeof4 = %d\n", sizeof &funcptr_test
);
1225 void lloptest(long long a
, long long b
)
1227 unsigned long long ua
, ub
;
1232 printf("arith: %Ld %Ld %Ld %Ld %Ld\n",
1240 printf("bin: %Ld %Ld %Ld\n",
1246 printf("test: %d %d %d %d %d %d\n",
1254 printf("utest: %d %d %d %d %d %d\n",
1265 printf("arith2: %Ld %Ld\n", a
, b
);
1266 printf("arith2: %Ld %Ld\n", a
++, b
++);
1267 printf("arith2: %Ld %Ld\n", --a
, --b
);
1268 printf("arith2: %Ld %Ld\n", a
, b
);
1271 void llshift(long long a
, int b
)
1273 printf("shift: %Ld %Ld %Ld\n",
1274 (unsigned long long)a
>> b
,
1277 printf("shiftc: %Ld %Ld %Ld\n",
1278 (unsigned long long)a
>> 3,
1281 printf("shiftc: %Ld %Ld %Ld\n",
1282 (unsigned long long)a
>> 35,
1292 long long la
, lb
, lc
;
1293 unsigned long long ula
, ulb
, ulc
;
1296 la
= (la
<< 20) | 0x12345;
1298 printf("la=%Ld ula=%Lu\n", la
, ula
);
1303 printf("lltof: %f %f %Lf\n", fa
, da
, lda
);
1308 printf("ftoll: %Ld %Ld %Ld\n", la
, lb
, lc
);
1313 printf("ulltof: %f %f %Lf\n", fa
, da
, lda
);
1318 printf("ftoull: %Lu %Lu %Lu\n", ula
, ulb
, ulc
);
1321 long long llfunc1(int a
)
1326 /* currently not supported, except for typing */
1327 void longlong_test(void)
1332 printf("longlong_test:\n");
1333 printf("sizeof(long long) = %d\n", sizeof(long long));
1338 printf("%Ld %Ld\n", a
, b
);
1339 printf("%Ld %Ld %Ld %Lx\n",
1343 0x1234567812345679);
1348 lloptest(0xff, 0x1234);
1349 b
= 0x72345678 << 10;
1353 b
= 0x72345678 << 10;