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

   1 /*
   2   !!DESCRIPTION!! wrapped-call pragma w/ variadic function
   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         // The Y register is used for variadics - save and restore
  14         asm("sty tmp3");
  15
  16         asm("ldy tmp4");
  17         asm("sty %v", flag);
  18
  19         asm("ldy tmp3");
  20         asm("jsr callptr4");
  21 }
  22
  23 #pragma wrapped-call(push, trampoline_set, 4)
  24 unsigned adder(unsigned char num, ...);
  25 #pragma wrapped-call(pop)
  26
  27 unsigned adder(unsigned char num, ...) {
  28
  29         unsigned char i;
  30         unsigned sum = 0;
  31         va_list ap;
  32         va_start(ap, num);
  33
  34         for (i = 0; i < num; i++) {
  35                 sum += va_arg(ap, unsigned);
  36         }
  37
  38         va_end(ap);
  39
  40         return sum;
  41 }
  42
  43 int main() {
  44
  45         flag = 0;
  46
  47         return adder(3, 0, 5, 500) == 505 && flag == 4 ? 0 : 1;
  48 }