sdcc/support/regression/tests/preserves_regs.c.in

   1 /* __preserves_regs test
   2    type: unsigned char, unsigned int, unsigned long
   3 */
   4
   5 #include <testfwk.h>
   6
   7 #if defined(__SDCC_z80) || defined(__SDCC_z80n) || defined(__SDCC_z180) || defined(__SDCC_r2k) || defined(__SDCC_r2ka) || defined(__SDCC_r3ka) || defined(__SDCC_tlcs90) || defined(__SDCC_ez80_z80)
   8 void write_bc(void) __preserves_regs(a, d, e, h, l, iyl, iyh) __naked
   9 {
  10 __asm
  11         ld bc, #0
  12         ret
  13 __endasm;
  14 }
  15
  16 void write_de(void) __preserves_regs(a, b, c, h, l, iyl, iyh) __naked
  17 {
  18 __asm
  19         ld de, #0
  20         ret
  21 __endasm;
  22 }
  23
  24 void write_hl(void) __preserves_regs(a, b, c, d, e, iyl, iyh) __naked
  25 {
  26 __asm
  27         ld hl, #0
  28         ret
  29 __endasm;
  30 }
  31
  32 {type} add_bc({type} a, {type} b)
  33 {
  34         {type} r = a + b;
  35
  36         write_de();
  37         write_hl();
  38
  39         return(r);
  40 }
  41
  42 {type} add_de({type} a, {type} b)
  43 {
  44         {type} r = a + b;
  45
  46         write_bc();
  47         write_hl();
  48
  49         return(r);
  50 }
  51
  52
  53 {type} add_hl({type} a, {type} b)
  54 {
  55         {type} r = a + b;
  56
  57         write_bc();
  58         write_de();
  59
  60         return(r);
  61 }
  62
  63
  64 {type} add_iy({type} a, {type} b)
  65 {
  66         {type} r = a + b;
  67
  68         write_bc();
  69         write_de();
  70         write_hl();
  71
  72         return(r);
  73 }
  74 #endif
  75
  76 void testRegs(void)
  77 {
  78 #if defined(__SDCC_z80) || defined(__SDCC_z80n) || defined(__SDCC_z180) || defined(__SDCC_r2k) || defined(__SDCC_r2ka) || defined(__SDCC_r3ka) || defined(__SDCC_tlcs90) || defined(__SDCC_ez80_z80)
  79         ASSERT(add_bc(0x55, 0xaa) == ({type})(0x55 + 0xaa));
  80         ASSERT(add_de(0x55, 0xaa) == ({type})(0x55 + 0xaa));
  81         ASSERT(add_hl(0x55, 0xaa) == ({type})(0x55 + 0xaa));
  82         ASSERT(add_iy(0x55, 0xaa) == ({type})(0x55 + 0xaa));
  83 #endif
  84 }
  85