git.sur5r.net Git - cc65/blob - test/val/trampoline.c

   1 /*
   2   !!DESCRIPTION!! wrapped-call pragma used for trampolines
   3   !!ORIGIN!!      cc65 regression tests
   4   !!LICENCE!!     Public Domain
   5   !!AUTHOR!!      Lauri Kasanen
   6 */
   7
   8 static unsigned char flag;
   9
  10 static void trampoline_set() {
  11         asm("ldy tmp4");
  12         asm("sty %v", flag);
  13         asm("jsr callptr4");
  14 }
  15
  16 void trampoline_inc() {
  17         asm("inc %v", flag);
  18         asm("jsr callptr4");
  19 }
  20
  21 void func3() {
  22
  23 }
  24
  25 #pragma wrapped-call(push, trampoline_inc, 0)
  26
  27 void func2() {
  28         func3();
  29 }
  30
  31 #pragma wrapped-call(push, trampoline_set, 4)
  32
  33 void func1(void);
  34
  35 #pragma wrapped-call(pop)
  36 #pragma wrapped-call(pop)
  37
  38 void func1() {
  39         func2();
  40 }
  41
  42 int main(void)
  43 {
  44         flag = 0;
  45
  46         func1();
  47
  48         return flag == 5 ? 0 : 1;
  49 }