sdcc/support/regression/tests/gcc-torture-execute-980223.c

   1 /*
   2    980223.c from the execute part of the gcc torture suite.
   3  */
   4
   5 #include <testfwk.h>
   6
   7 #ifdef __SDCC
   8 #pragma std_c99
   9 #endif
  10
  11 // TODO: Enable when sdcc can return struct!
  12 #if 0
  13 typedef struct { char *addr; long type; } object;
  14
  15 object bar (object blah)
  16 {
  17   ASSERT(0);
  18 }
  19
  20 object foo (object x, object y)
  21 {
  22   object z = *(object*)(x.addr);
  23   if (z.type & 64)
  24     {
  25       y = *(object*)(z.addr+sizeof(object));
  26       z = *(object*)(z.addr);
  27       if (z.type & 64)
  28         y = bar(y);
  29     }
  30   return y;
  31 }
  32
  33 int nil;
  34 object cons1[2] = { {(char *) &nil, 0}, {(char *) &nil, 0} };
  35 object cons2[2] = { {(char *) &cons1, 64}, {(char *) &nil, 0} };
  36 #endif
  37
  38 void
  39 testTortureExecute (void)
  40 {
  41 #if 0
  42   object x = {(char *) &cons2, 64};
  43   object y = {(char *) &nil, 0};
  44   object three = foo(x,y);
  45   return;
  46 #endif
  47 }
  48