sdcc/support/regression/tests/z88dk_callee.c

   1 /** z88dk.c
   2 */
   3 #include <testfwk.h>
   4 #include <stdlib.h>
   5
   6 unsigned char f1(unsigned char c) __z88dk_callee
   7 {
   8         return c + 1;
   9 }
  10
  11 unsigned int f2(unsigned int c) __z88dk_callee
  12 {
  13         return c + 1;
  14 }
  15
  16 unsigned int f3(unsigned char c, unsigned char d) __z88dk_callee __smallc __reentrant
  17 {
  18         return c + d;
  19 }
  20
  21 #if !defined(__SDCC_hc08) && !defined(__SDCC_s08) && !defined(__SDCC_mos6502) && !defined(__SDCC_mos65c02)
  22 unsigned long int f4(unsigned long int c) __z88dk_callee
  23 #else
  24 unsigned long int f4(unsigned long int c) __z88dk_callee __reentrant
  25 #endif
  26 {
  27         return c + 1;
  28 }
  29
  30 unsigned char (*p1)(unsigned char) __z88dk_callee;
  31 unsigned int (*p2)(unsigned int) __z88dk_callee;
  32 unsigned int (*p3)(unsigned char, unsigned char) __z88dk_callee __smallc __reentrant;
  33 #if !defined(__SDCC_hc08) && !defined(__SDCC_s08) && !defined(__SDCC_mos6502) && !defined(__SDCC_mos65c02)
  34 unsigned long int (*p4)(unsigned long int) __z88dk_callee;
  35 #else
  36 unsigned long int (*p4)(unsigned long int) __z88dk_callee __reentrant;
  37 #endif
  38
  39 int j;
  40
  41 void g0(void)
  42 {
  43         j++;
  44 }
  45
  46 void g1(int i) __z88dk_callee
  47 {
  48         j = i;
  49         g0(); // Tail call optimization needs to do extra work here, to avoid skipping stack cleanup.
  50 }
  51
  52 void
  53 testZ88dk(void)
  54 {
  55 #if !defined(__SDCC_pdk14) && !defined(__SDCC_pdk15)
  56   ASSERT (f1 (23) == 24);
  57   ASSERT (f2 (23) == 24);
  58   ASSERT (f3 (23, 42) == 65);
  59   ASSERT (f4 (23) == 24);
  60
  61   p1 = &f1;
  62   p2 = &f2;
  63   p3 = &f3;
  64   p4 = &f4;
  65
  66   ASSERT ((*p1) (23) == 24);
  67   ASSERT ((*p2) (23) == 24);
  68   ASSERT ((*p3) (23, 42) == 65);
  69   ASSERT ((*p4) (23) == 24);
  70 #endif
  71
  72   g1(1);
  73   ASSERT (j == 2);
  74 }
  75