sdcc/support/regression/tcc/90_struct-init.c

   1 typedef unsigned char u8;
   2 typedef struct {} empty_s;
   3 struct contains_empty {
   4     u8 a;
   5     empty_s empty;
   6     u8 b;
   7 };
   8 struct contains_empty ce = { { (1) }, (empty_s){}, 022, };
   9 /* The following decl of 'q' would demonstrate the TCC bug in init_putv when
  10    handling copying compound literals.  (Compound literals
  11    aren't acceptable constant initializers in isoc99, but
  12    we accept them like gcc, except for this case)
  13 //char *q = (char *){ "trara" }; */
  14 struct SS {u8 a[3], b; };
  15 struct SS sinit16[] = { { 1 }, 2 };
  16 struct S
  17 {
  18   u8 a,b;
  19   u8 c[2];
  20 };
  21
  22 struct T
  23 {
  24   u8 s[16];
  25   u8 a;
  26 };
  27
  28 struct U
  29 {
  30   u8 a;
  31   struct S s;
  32   u8 b;
  33   struct T t;
  34 };
  35
  36 struct V
  37 {
  38   struct S s;
  39   struct T t;
  40   u8 a;
  41 };
  42
  43 struct W
  44 {
  45   struct V t;
  46   struct S s[];
  47 };
  48
  49 struct S gs = ((struct S){1, 2, 3, 4});
  50 struct S gs2 = {1, 2, {3, 4}};
  51 struct T gt = {"hello", 42};
  52 struct U gu = {3, 5,6,7,8, 4, "huhu", 43};
  53 struct U gu2 = {3, {5,6,7,8}, 4, {"huhu", 43}};
  54 /* Optional braces around scalar initializers.  Accepted, but with
  55    a warning.  */
  56 struct U gu3 = { {3}, {5,6,7,8,}, 4, {"huhu", 43}};
  57 /* Many superfluous braces and leaving out one initializer for U.s.c[1] */
  58 struct U gu4 = { 3, {5,6,7,},  5, { "bla", {44}} };
  59 /* Superfluous braces and useless parens around values */
  60 struct S gs3 = { (1), {(2)}, {(((3))), {4}}};
  61 /* Superfluous braces, and leaving out braces for V.t, plus cast */
  62 struct V gv = {{{3},4,{5,6}}, "haha", (u8)45, 46};
  63 /* Compound literal */
  64 struct V gv2 = {(struct S){7,8,{9,10}}, {"hihi", 47}, 48};
  65 /* Parens around compound literal */
  66 struct V gv3 = {((struct S){7,8,{9,10}}), {"hoho", 49}, 50};
  67 /* Initialization of a flex array member (warns in GCC) */
  68 struct W gw = {{1,2,3,4}, {1,2,3,4,5}};
  69
  70 union UU {
  71     u8 a;
  72     u8 b;
  73 };
  74 struct SU {
  75     union UU u;
  76     u8 c;
  77 };
  78 struct SU gsu = {5,6};
  79
  80 /* Unnamed struct/union members aren't ISO C, but it's a widely accepted
  81    extension.  See below for further extensions to that under -fms-extension.*/
  82 union UV {
  83     struct {u8 a,b;};
  84     struct S s;
  85 };
  86 union UV guv = {{6,5}};
  87 union UV guv2 = {{.b = 7, .a = 8}};
  88 union UV guv3 = {.b = 8, .a = 7};
  89
  90 struct SSU {
  91     int y;
  92     struct { int x; };
  93 };
  94 struct SSU gssu1 = { .y = 5, .x = 3 };
  95 struct SSU gssu2 = { 5, 3 };
  96
  97 /* Under -fms-extensions also the following is valid:
  98 union UV2 {
  99     struct Anon {u8 a,b;};    // unnamed member, but tagged struct, ...
 100     struct S s;
 101 };
 102 struct Anon gan = { 10, 11 }; // ... which makes it available here.
 103 union UV2 guv4 = {{4,3}};     // and the other inits from above as well
 104 */
 105
 106 struct in6_addr {
 107     union {
 108         u8 u6_addr8[16];
 109         unsigned short u6_addr16[8];
 110     } u;
 111 };
 112 struct flowi6 {
 113     struct in6_addr saddr, daddr;
 114 };
 115 struct pkthdr {
 116     struct in6_addr daddr, saddr;
 117 };
 118 struct pkthdr phdr = { { { 6,5,4,3 } }, { { 9,8,7,6 } } };
 119
 120 struct Wrap {
 121     void *func;
 122 };
 123 int global;
 124 void inc_global (void)
 125 {
 126   global++;
 127 }
 128
 129 struct Wrap global_wrap[] = {
 130     ((struct Wrap) {inc_global}),
 131     inc_global,
 132 };
 133
 134 #include <stdio.h>
 135 void print_ (const char *name, const u8 *p, long size)
 136 {
 137   printf ("%s:", name);
 138   while (size--) {
 139       printf (" %x", *p++);
 140   }
 141   printf ("\n");
 142 }
 143 #define print(x) print_(#x, (u8*)&x, sizeof (x))
 144 #if 1
 145 void foo (struct W *w, struct pkthdr *phdr_)
 146 {
 147   struct S ls = {1, 2, 3, 4};
 148   struct S ls2 = {1, 2, {3, 4}};
 149   struct T lt = {"hello", 42};
 150   struct U lu = {3, 5,6,7,8, 4, "huhu", 43};
 151   struct U lu1 = {3, ls, 4, {"huhu", 43}};
 152   struct U lu2 = {3, (ls), 4, {"huhu", 43}};
 153   const struct S *pls = &ls;
 154   struct S ls21 = *pls;
 155   struct U lu22 = {3, *pls, 4, {"huhu", 43}};
 156   /* Incomplete bracing.  */
 157   struct U lu21 = {3, ls, 4, "huhu", 43};
 158   /* Optional braces around scalar initializers.  Accepted, but with
 159      a warning.  */
 160   struct U lu3 = { 3, {5,6,7,8,}, 4, {"huhu", 43}};
 161   /* Many superfluous braces and leaving out one initializer for U.s.c[1] */
 162   struct U lu4 = { 3, {5,6,7,},  5, { "bla", 44} };
 163   /* Superfluous braces and useless parens around values */
 164   struct S ls3 = { (1), (2), {(((3))), 4}};
 165   /* Superfluous braces, and leaving out braces for V.t, plus cast */
 166   struct V lv = {{3,4,{5,6}}, "haha", (u8)45, 46};
 167   /* Compound literal */
 168   struct V lv2 = {(struct S)w->t.s, {"hihi", 47}, 48};
 169   /* Parens around compound literal */
 170   struct V lv3 = {((struct S){7,8,{9,10}}), ((const struct W *)w)->t.t, 50};
 171   const struct pkthdr *phdr = phdr_;
 172   struct flowi6 flow = { .daddr = phdr->daddr, .saddr = phdr->saddr };
 173   int elt = 0x42;
 174   /* Range init, overlapping */
 175   struct T lt2 = { { [1 ... 5] = 9, [6 ... 10] = elt, [4 ... 7] = elt+1 }, 1 };
 176   struct SSU lssu1 = { 5, 3 };
 177   struct SSU lssu2 = { .y = 5, .x = 3 };
 178   /* designated initializers in GNU form */
 179 #if defined(__GNUC__) || defined(__TINYC__)
 180   struct S ls4 = {a: 1, b: 2, c: {3, 4}};
 181 #else
 182   struct S ls4 = {.a = 1, .b = 2, .c = {3, 4}};
 183 #endif
 184   print(ls);
 185   print(ls2);
 186   print(lt);
 187   print(lu);
 188   print(lu1);
 189   print(lu2);
 190   print(ls21);
 191   print(lu21);
 192   print(lu22);
 193   print(lu3);
 194   print(lu4);
 195   print(ls3);
 196   print(lv);
 197   print(lv2);
 198   print(lv3);
 199   print(lt2);
 200   print(lssu1);
 201   print(lssu2);
 202   print(flow);
 203   print(ls4);
 204 }
 205 #endif
 206
 207 void test_compound_with_relocs (void)
 208 {
 209   struct Wrap local_wrap[] = {
 210       ((struct Wrap) {inc_global}),
 211       inc_global,
 212   };
 213   void (*p)(void);
 214   p = global_wrap[0].func; p();
 215   p = global_wrap[1].func; p();
 216   p = local_wrap[0].func; p();
 217   p = local_wrap[1].func; p();
 218 }
 219
 220 void sys_ni(void) { printf("ni\n"); }
 221 void sys_one(void) { printf("one\n"); }
 222 void sys_two(void) { printf("two\n"); }
 223 void sys_three(void) { printf("three\n"); }
 224 void sys_four(void) { printf("four\n"); }
 225 typedef void (*fptr)(void);
 226
 227 #define array_size(a) (sizeof a / sizeof a[0])
 228
 229 void test_multi_relocs(void)
 230 {
 231   int i;
 232
 233   static const fptr tabl1[4] = {
 234       [0 ... 3] = &sys_ni,
 235       [0] = sys_one,
 236       [1] = sys_two,
 237       [2] = sys_three,
 238       sys_four,
 239       [1 ... 2] = &sys_ni,
 240       [1] = 0,
 241   };
 242   for (i = 0; i < array_size(tabl1); i++)
 243     if (tabl1[i])
 244       tabl1[i]();
 245     else
 246       printf("(0)\n");
 247
 248   const fptr tabl2[4] = {
 249       [0 ... 3] = &sys_ni,
 250       [0] = sys_one,
 251       [1] = sys_two,
 252       [2] = sys_three,
 253       sys_four,
 254       [1 ... 2] = &sys_ni,
 255       [1] = 0,
 256   };
 257   for (i = 0; i < array_size(tabl2); i++)
 258     if (tabl2[i])
 259       tabl2[i]();
 260     else
 261       printf("(0)\n");
 262
 263   int c = 0;
 264   int dd[] = {
 265     [0 ... 1] = ++c,
 266     [2 ... 3] = ++c
 267   };
 268   for (i = 0; i < array_size(dd); i++)
 269     printf(" %d", dd[i]);
 270   printf("\n");
 271
 272   /* multi-dimensional flex array with range initializers */
 273   static char m1[][2][3] = {[0 ... 2]={{3,4,5},{6,7,8}},{{9},10},"abc"};
 274   char        m2[][2][3] = {[0 ... 2]={{3,4,5},{6,7,8}},{{9},10},"abc"};
 275   int g, j, k;
 276   for (g = 2; g-- > 0;) {
 277     printf("mdfa %s: %d -", "locl\0glob" + g * 5, sizeof m1);
 278     for (i = 0; i < array_size(m1); i++)
 279     for (j = 0; j < array_size(m1[0]); j++)
 280     for (k = 0; k < array_size(m1[0][0]); k++)
 281       printf(" %d", (g ? m1:m2)[i][j][k]);
 282     printf("\n");
 283   }
 284 }
 285
 286 void test_init_ranges(void) {
 287     int i,c=0;
 288     static void *gostring[] = {
 289         [0 ... 31] = &&l_bad, [127] = &&l_bad,
 290         [32 ... 126] = &&l_loop,
 291         ['\\'] = &&l_esc, ['"'] = &&l_qdown,
 292         [128 ... 191] = &&l_bad,
 293         [192 ... 223] = &&l_utf8_2,
 294         [224 ... 239] = &&l_utf8_3,
 295         [240 ... 247] = &&l_utf8_4,
 296         [248 ... 255] = &&l_bad
 297     };
 298
 299     for (i = 0; i < 256; i++) {
 300         goto *gostring[i];
 301         l_bad: c++;
 302         l_loop: c++;
 303         l_esc: c++;
 304         l_qdown: c++;
 305         l_utf8_2: c++;
 306         l_utf8_3: c++;
 307         l_utf8_4: c++;
 308     }
 309     printf ("%d\n", c);
 310 }
 311
 312 \f
 313 /* Following is from GCC gcc.c-torture/execute/20050613-1.c.  */
 314
 315 struct SEA { int i; int j; int k; int l; };
 316 struct SEB { struct SEA a; int r[1]; };
 317 struct SEC { struct SEA a; int r[0]; };
 318 struct SED { struct SEA a; int r[]; };
 319
 320 static void
 321 test_correct_filling (struct SEA *x)
 322 {
 323   static int i;
 324   if (x->i != 0 || x->j != 5 || x->k != 0 || x->l != 0)
 325     printf("sea_fill%d: wrong\n", i);
 326   else
 327     printf("sea_fill%d: okay\n", i);
 328   i++;
 329 }
 330
 331 int
 332 test_zero_init (void)
 333 {
 334   /* The peculiarity here is that only a.j is initialized.  That
 335      means that all other members must be zero initialized.  TCC
 336      once didn't do that for sub-level designators.  */
 337   struct SEB b = { .a.j = 5 };
 338   struct SEC c = { .a.j = 5 };
 339   struct SED d = { .a.j = 5 };
 340   test_correct_filling (&b.a);
 341   test_correct_filling (&c.a);
 342   test_correct_filling (&d.a);
 343   return 0;
 344 }
 345 \f
 346 int main()
 347 {
 348   print(ce);
 349   print(gs);
 350   print(gs2);
 351   print(gt);
 352   print(gu);
 353   print(gu2);
 354   print(gu3);
 355   print(gu4);
 356   print(gs3);
 357   print(gv);
 358   print(gv2);
 359   print(gv3);
 360   print(sinit16);
 361   print(gw);
 362   print(gsu);
 363   print(guv);
 364   print(guv.b);
 365   print(guv2);
 366   print(guv3);
 367   print(gssu1);
 368   print(gssu2);
 369   print(phdr);
 370   foo(&gw, &phdr);
 371   //printf("q: %s\n", q);
 372   test_compound_with_relocs();
 373   test_multi_relocs();
 374   test_zero_init();
 375   test_init_ranges();
 376   return 0;
 377 }