sdcc/support/regression/tests/bug-3556.c

   1 /* bug-3556.c
   2    ?
   3  */
   4
   5 #include <testfwk.h>
   6
   7 #include <stdint.h>
   8 #include <stdio.h>
   9 #include <setjmp.h>
  10
  11 jmp_buf buf;
  12
  13 uint8_t pa_odr, pb_idr, dummy;
  14
  15 #define PA_ODR pa_odr
  16 #define PA_DDR dummy
  17 #define PA_CR1 dummy
  18 #define PA_CR2 dummy
  19 #define PB_IDR pb_idr
  20
  21 void setBit(uint8_t* port, uint8_t bit){
  22     (*(port)) |= (1 << bit);
  23 }
  24
  25 void clearBit(uint8_t* port, uint8_t bit){
  26     (*(port)) &= ~(1 << bit);
  27 }
  28
  29 void toggleBit(uint8_t* port, uint8_t bit){
  30     (*(port)) ^= (1 << bit);
  31 }
  32
  33 uint8_t extractBit(uint8_t port, uint8_t bit){
  34    return ((port & (1 << bit)) >> bit);
  35 }
  36
  37 void writeBit(uint8_t* port, uint8_t bit, uint8_t value){
  38     if(value){
  39         setBit(port, bit);
  40     }
  41     else{
  42         clearBit(port, bit);
  43     }
  44     longjmp (buf, 1);
  45 }
  46
  47 void m(){
  48     setBit(&PA_DDR, 1); // configure PA1 as output
  49     setBit(&PA_CR1, 1); // push-pull mode
  50     setBit(&PA_CR2, 1); // high speed
  51
  52     while (1)
  53     {
  54         writeBit(&PA_ODR, 1, extractBit(PB_IDR, 2));
  55     }
  56 }
  57
  58 void writeBit2(uint8_t* port, uint8_t bit, uint8_t value){
  59     if(value){
  60         setBit(port, bit);
  61     }
  62     else{
  63         clearBit(port, bit);
  64     }
  65 }
  66
  67 void m2(){
  68         int i = 1;
  69     setBit(&PA_DDR, 1); // configure PA1 as output
  70     setBit(&PA_CR1, 1); // push-pull mode
  71     setBit(&PA_CR2, 1); // high speed
  72
  73     while (i--)
  74     {
  75         writeBit2(&PA_ODR, 1, extractBit(PB_IDR, 2));
  76     }
  77 }
  78
  79 void
  80 testBug (void) {
  81         PB_IDR = 1 << 2;
  82         PA_ODR = 0;
  83         if (!setjmp (buf))
  84                 m ();
  85         ASSERT (PA_ODR == 1 << 1);
  86
  87         PB_IDR = 0 << 2;
  88         PA_ODR = 0;
  89         if (!setjmp (buf))
  90                 m ();
  91         ASSERT (PA_ODR == 0 << 1);
  92
  93         PB_IDR = 1 << 2;
  94         PA_ODR= 0;
  95         m2 ();
  96         ASSERT (PA_ODR == 1 << 1);
  97
  98         PB_IDR = 0 << 2;
  99         PA_ODR = 0;
 100         m2 ();
 101         ASSERT (PA_ODR == 0 << 1);
 102 }
 103