sdcc/support/regression/tests/gcc-torture-execute-20051110-1.c

   1 /*
   2    20051110-1.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 void add_unwind_adjustsp (long);
  12
  13 unsigned char bytes[5];
  14
  15 void
  16 add_unwind_adjustsp (long offset)
  17 {
  18   int n;
  19   unsigned long o;
  20
  21   o = (long) ((offset - 0x204) >> 2);
  22
  23   n = 0;
  24   while (o)
  25     {
  26       bytes[n] = o & 0x7f;
  27       o >>= 7;
  28       if (o)
  29         bytes[n] |= 0x80;
  30       n++;
  31     }
  32 }
  33
  34 void testTortureExecute(void)
  35 {
  36   add_unwind_adjustsp (4132);
  37   if (bytes[0] != 0x88 || bytes[1] != 0x07)
  38     ASSERT (0);
  39   return;
  40 }