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

   1 /*
   2   !!DESCRIPTION!! wrapped-call pragma w/ many params
   3   !!ORIGIN!!      cc65 regression tests
   4   !!LICENCE!!     Public Domain
   5   !!AUTHOR!!      Lauri Kasanen
   6 */
   7
   8 #include <stdarg.h>
   9
  10 static unsigned char flag;
  11
  12 static void trampoline_set() {
  13         asm("ldy tmp4");
  14         asm("sty %v", flag);
  15         asm("jsr callptr4");
  16 }
  17
  18 #pragma wrapped-call(push, trampoline_set, 4)
  19 long adder(long in);
  20 #pragma wrapped-call(pop)
  21
  22 long adder(long in) {
  23
  24         return in + 7;
  25 }
  26
  27 int main() {
  28
  29         flag = 0;
  30
  31         return adder(70436) == 70436 + 7 && flag == 4 ? 0 : 1;
  32 }