File: trampoline-params.c

package info (click to toggle)
cc65 2.19-2
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 20,268 kB
  • sloc: ansic: 117,151; asm: 66,339; pascal: 4,248; makefile: 1,009; perl: 607
file content (32 lines) | stat: -rw-r--r-- 575 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
/*
  !!DESCRIPTION!! wrapped-call pragma w/ many params
  !!ORIGIN!!      cc65 regression tests
  !!LICENCE!!     Public Domain
  !!AUTHOR!!      Lauri Kasanen
*/

#include <stdarg.h>

static unsigned char flag;

static void trampoline_set(void) {
        asm("ldy tmp4");
        asm("sty %v", flag);
        asm("jsr callptr4");
}

#pragma wrapped-call(push, trampoline_set, 4)
long adder(long in);
#pragma wrapped-call(pop)

long adder(long in) {

        return in + 7;
}

int main() {

        flag = 0;

        return adder(70436) == 70436 + 7 && flag == 4 ? 0 : 1;
}