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

   1 /*
   2    pr42833.c from the execute part of the gcc torture tests.
   3  */
   4
   5 #include <testfwk.h>
   6
   7 #ifdef __SDCC
   8 #pragma std_c99
   9 #endif
  10
  11 #include <stdint.h>
  12 #include <string.h>
  13 #include <limits.h>
  14
  15 /* If SSIZE_MAX is defined in limits.h, then we are running in a POSIX    */
  16 /* environment that already has a ssize_t definition (which may have been */
  17 /* included indirectly via string.h). In this case, use the guaranteed    */
  18 /* definition in sys/types.h, otherwise assume int compatible and hope    */
  19 /* for the best. */
  20 #ifdef SSIZE_MAX
  21 #include <sys/types.h>
  22 #else
  23 typedef int ssize_t;
  24 #endif
  25
  26 #ifndef __SDCC_pdk14 // Lack of memory
  27 typedef struct { int8_t v1; int8_t v2; int8_t v3; int8_t v4; } neon_s8;
  28
  29 uint32_t helper_neon_rshl_s8 (uint32_t arg1, uint32_t arg2);
  30
  31 uint32_t
  32 helper_neon_rshl_s8 (uint32_t arg1, uint32_t arg2)
  33 {
  34   uint32_t res;
  35   neon_s8 vsrc1;
  36   neon_s8 vsrc2;
  37   neon_s8 vdest;
  38   do
  39     {
  40       union
  41       {
  42         neon_s8 v;
  43         uint32_t i;
  44       } conv_u;
  45       conv_u.i = (arg1);
  46       /*vsrc1 = conv_u.v; not in sdcc */
  47       memcpy (&vsrc1, &(conv_u.v), sizeof (neon_s8));
  48     }
  49   while (0);
  50   do
  51     {
  52       union
  53       {
  54         neon_s8 v;
  55         uint32_t i;
  56       } conv_u;
  57       conv_u.i = (arg2);
  58       /*vsrc2 = conv_u.v; not in sdcc*/
  59       memcpy (&vsrc2, &(conv_u.v), sizeof (neon_s8));
  60     }
  61   while (0);
  62   do
  63     {
  64       int8_t tmp;
  65       tmp = (int8_t) vsrc2.v1;
  66       if (tmp >= (ssize_t) sizeof (vsrc1.v1) * 8)
  67         {
  68           vdest.v1 = 0;
  69         }
  70       else if (tmp < -(ssize_t) sizeof (vsrc1.v1) * 8)
  71         {
  72           vdest.v1 = vsrc1.v1 >> (sizeof (vsrc1.v1) * 8 - 1);
  73         }
  74       else if (tmp == -(ssize_t) sizeof (vsrc1.v1) * 8)
  75         {
  76           vdest.v1 = vsrc1.v1 >> (tmp - 1);
  77           vdest.v1++;
  78           vdest.v1 >>= 1;
  79         }
  80       else if (tmp < 0)
  81         {
  82           vdest.v1 = (vsrc1.v1 + (1 << (-1 - tmp))) >> -tmp;
  83         }
  84       else
  85         {
  86           vdest.v1 = vsrc1.v1 << tmp;
  87         }
  88     }
  89   while (0);
  90   do
  91     {
  92       int8_t tmp;
  93       tmp = (int8_t) vsrc2.v2;
  94       if (tmp >= (ssize_t) sizeof (vsrc1.v2) * 8)
  95         {
  96           vdest.v2 = 0;
  97         }
  98       else if (tmp < -(ssize_t) sizeof (vsrc1.v2) * 8)
  99         {
 100           vdest.v2 = vsrc1.v2 >> (sizeof (vsrc1.v2) * 8 - 1);
 101         }
 102       else if (tmp == -(ssize_t) sizeof (vsrc1.v2) * 8)
 103         {
 104           vdest.v2 = vsrc1.v2 >> (tmp - 1);
 105           vdest.v2++;
 106           vdest.v2 >>= 1;
 107         }
 108       else if (tmp < 0)
 109         {
 110           vdest.v2 = (vsrc1.v2 + (1 << (-1 - tmp))) >> -tmp;
 111         }
 112       else
 113         {
 114           vdest.v2 = vsrc1.v2 << tmp;
 115         }
 116     }
 117   while (0);
 118   do
 119     {
 120       int8_t tmp;
 121       tmp = (int8_t) vsrc2.v3;
 122       if (tmp >= (ssize_t) sizeof (vsrc1.v3) * 8)
 123         {
 124           vdest.v3 = 0;
 125         }
 126       else if (tmp < -(ssize_t) sizeof (vsrc1.v3) * 8)
 127         {
 128           vdest.v3 = vsrc1.v3 >> (sizeof (vsrc1.v3) * 8 - 1);
 129         }
 130       else if (tmp == -(ssize_t) sizeof (vsrc1.v3) * 8)
 131         {
 132           vdest.v3 = vsrc1.v3 >> (tmp - 1);
 133           vdest.v3++;
 134           vdest.v3 >>= 1;
 135         }
 136       else if (tmp < 0)
 137         {
 138           vdest.v3 = (vsrc1.v3 + (1 << (-1 - tmp))) >> -tmp;
 139         }
 140       else
 141         {
 142           vdest.v3 = vsrc1.v3 << tmp;
 143         }
 144     }
 145   while (0);
 146   do
 147     {
 148       int8_t tmp;
 149       tmp = (int8_t) vsrc2.v4;
 150       if (tmp >= (ssize_t) sizeof (vsrc1.v4) * 8)
 151         {
 152           vdest.v4 = 0;
 153         }
 154       else if (tmp < -(ssize_t) sizeof (vsrc1.v4) * 8)
 155         {
 156           vdest.v4 = vsrc1.v4 >> (sizeof (vsrc1.v4) * 8 - 1);
 157         }
 158       else if (tmp == -(ssize_t) sizeof (vsrc1.v4) * 8)
 159         {
 160           vdest.v4 = vsrc1.v4 >> (tmp - 1);
 161           vdest.v4++;
 162           vdest.v4 >>= 1;
 163         }
 164       else if (tmp < 0)
 165         {
 166           vdest.v4 = (vsrc1.v4 + (1 << (-1 - tmp))) >> -tmp;
 167         }
 168       else
 169         {
 170           vdest.v4 = vsrc1.v4 << tmp;
 171         }
 172     }
 173   while (0);;
 174   do
 175     {
 176       union
 177       {
 178         neon_s8 v;
 179         uint32_t i;
 180       } conv_u;
 181       /*conv_u.v = (vdest) not in sdcc */;
 182       memcpy (&conv_u.v, &(vdest), sizeof (neon_s8));
 183       res = conv_u.i;
 184     }
 185   while (0);
 186   return res;
 187 }
 188 #endif
 189
 190 void
 191 testTortureExecute (void)
 192 {
 193 #if !(defined(__SDCC_pdk15) && defined(__SDCC_STACK_AUTO)) // Bug #2939
 194 #ifndef __SDCC_pdk14 // Lack of memory
 195 #if !(defined (__GNUC__) && __GNUC__ < 5)
 196   uint32_t r = helper_neon_rshl_s8 (0x05050505, 0x01010101);
 197   if (r != 0x0a0a0a0a)
 198     ASSERT (0);
 199   return;
 200 #endif
 201 #endif
 202 #endif
 203 }
 204