~ chicken-core (chicken-5) /cconv-sample.c

 1/* cconv-sample.c - code to disassemble if you want to figure out calling conventions */
 2
 3
 4#include "chicken.h"
 5
 6
 7void foo(C_word x1, C_word x2, C_word x3, C_word x4, C_word x5, 
 8	 C_word x6, C_word x7, C_word x8, C_word x9, C_word x10) C_noret;
 9
10void 
11foo(C_word x1, C_word x2, C_word x3, C_word x4, C_word x5, 
12    C_word x6, C_word x7, C_word x8, C_word x9, C_word x10)
13{
14  exit(0);
15}
16
17
18void
19callfoo()
20{
21  foo(C_fix(1), C_fix(2), C_fix(3), C_fix(4), C_fix(5), 
22      C_fix(6), C_fix(7), C_fix(8), C_fix(9), C_fix(10) );
23}