/*
  !!DESCRIPTION!! Shift bytes left and right by a constant.
  !!ORIGIN!!      SDCC regression tests
  !!LICENCE!!     GPL, read COPYING.GPL
*/

#include <stdio.h>
#include <limits.h>
#include <stdint.h>

/* #define SUPPORT_BIT_TYPES */

unsigned char success=0;
unsigned char failures=0;
unsigned char dummy=0;

#ifdef SUPPORT_BIT_TYPES
bit bit0 = 0;
#endif

int16_t aint0 = 0;
int16_t aint1 = 0;

signed char achar0 = 0;
signed char achar1 = 0;
signed char achar2 = 0;

void done()
{
  dummy++;
}

void check(void)
{
  if(achar0 != achar1)
    failures++;
}

void shift_left_1(void)
{
  achar0 <<= 1;

  check();
}

void shift_left_2(void)
{
  achar0 <<= 2;

  if(achar0 != achar1)
    failures++;
}

void shift_left_3(void)
{
  achar0 <<= 3;

  if(achar0 != achar1)
    failures++;
}

void shift_left_4(void)
{
  achar0 <<= 4;

  if(achar0 != achar1)
    failures++;
}

void shift_left_5(void)
{
  achar0 <<= 5;

  if(achar0 != achar1)
    failures++;
}

void shift_left_6(void)
{
  achar0 <<= 6;

  if(achar0 != achar1)
    failures++;
}

void shift_left_7(void)
{
  achar0 <<= 7;

  if(achar0 != achar1)
    failures++;
}

void shift_right_1(void)
{
  achar0 >>= 1;

  check();
}

void shift_right_2(void)
{
  achar0 >>= 2;

  check();
}

void shift_right_3(void)
{
  achar0 >>= 3;

  check();
}

void shift_right_4(void)
{
  achar0 >>= 4;

  check();
}

void shift_right_5(void)
{
  achar0 >>= 5;

  check();
}

void shift_right_6(void)
{
  achar0 >>= 6;

  check();
}

void shift_right_7(void)
{
  achar0 >>= 7;

  check();
}

int main(void)
{
  /* call with both values zero */
  shift_left_1();
  printf("failures: %d\n",failures);

  achar0 = 1;
  achar1 = 2;
  for(achar2=0; achar2<6; achar2++) {
    shift_left_1();
    achar1 <<=1;
  }
  printf("failures: %d\n",failures);

  achar0 = 1;
  achar1 = 4;
  shift_left_2();
  printf("failures: %d\n",failures);

  achar0 = 1;
  achar1 = 8;
  shift_left_3();
  printf("failures: %d\n",failures);

  achar0 = 1;
  achar1 = 0x10;
  shift_left_4();
  printf("failures: %d\n",failures);

  achar0 = 1;
  achar1 = 0x20;
  shift_left_5();
  printf("failures: %d\n",failures);

  achar0 = 1;
  achar1 = 0x40;
  shift_left_6();
  printf("failures: %d\n",failures);

  achar0 = 1;
  achar1 = 0x80;
  shift_left_7();
  printf("failures: %d\n",failures);

  achar0 = 2;
  achar1 = 1;
  shift_right_1();
  printf("failures: %d\n",failures);

  achar0 = 4;
  shift_right_2();
  printf("failures: %d\n",failures);

  achar0 = 8;
  shift_right_3();
  printf("failures: %d\n",failures);

  achar0 = 0x10;
  shift_right_4();
  printf("failures: %d\n",failures);

  achar0 = 0x20;
  shift_right_5();
  printf("failures: %d\n",failures);

  achar0 = 0x40;
  shift_right_6();
  printf("failures: %d\n",failures);

  achar0 = 0xff;
  achar1 = 0xff;
  shift_right_1();
  printf("failures: %d\n",failures);

  achar0 = 0xfe;
  achar1 = 0xff;
  shift_right_1();
  printf("failures: %d\n",failures);

  achar0 = 0xfc;
  shift_right_2();
  printf("failures: %d\n",failures);

  achar0 = 0xf8;
  shift_right_3();
  printf("failures: %d\n",failures);

  achar0 = 0xf0;
  shift_right_4();
  printf("failures: %d\n",failures);

  achar0 = 0xe0;
  shift_right_5();
  printf("failures: %d\n",failures);

  achar0 = 0xc0;
  shift_right_6();
  printf("failures: %d\n",failures);

  achar0 = 0x80;
  achar1 = 0xff;
  shift_right_7();

  success=failures;
  done();
  printf("failures: %d\n",failures);

  return failures;
}