Mercurial > hg > CbC > CbC_gcc

comparison CbC-examples/tmp2.c @ 128:fe568345ddd5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix CbC-example
author mir3636
date Wed, 11 Apr 2018 19:32:28 +0900
parents 4c56639505ff
children
comparison
equal deleted inserted replaced
127:4c56639505ff 128:fe568345ddd5
2 #define __return _CbC_return 2 #define __return _CbC_return
3 3
4 #include "stdio.h" 4 #include "stdio.h"
5 5
6 int main0(int ac,char *av[]); 6 int main0(int ac,char *av[]);
7 __code code0(char *av[],__code (*ret)(int),void *retenv); 7 __code code0(char *av[],__code (*ret)(int, void*),void *retenv);
8 __code code1(char *av[],__code (*ret)(int),void *retenv); 8 __code code1(char *av[],__code (*ret)(int, void*),void *retenv);
9 9
10 int 10 int
11 main(ac,av) 11 main(ac,av)
12 int ac; 12 int ac;
13 char *av[]; 13 char *av[];
27 goto code0(av,_CbC_return,_CbC_environment); 27 goto code0(av,_CbC_return,_CbC_environment);
28 } 28 }
29 29
30 __code code0(av,ret,retenv) 30 __code code0(av,ret,retenv)
31 char *av[]; 31 char *av[];
32 __code (*ret)(); 32 __code (*ret)(int, void*);
33 void *retenv; 33 void *retenv;
34 { 34 {
35 char *p; 35 char *p;
36 p = av[0]; 36 p = av[0];
37 fprintf(stdout,"#0032:3: %s\n",p); 37 fprintf(stdout,"#0032:3: %s\n",p);
38 goto code1(av,ret,retenv); 38 goto code1(av,ret,retenv);
39 } 39 }
40 40
41 __code code1(av,ret,retenv) 41 __code code1(av,ret,retenv)
42 char *av[]; 42 char *av[];
43 __code (*ret)(); 43 __code (*ret)(int, void*);
44 void *retenv; 44 void *retenv;
45 { 45 {
46 fprintf(stdout,"#0041:4: %s\n",av[0]); 46 fprintf(stdout,"#0041:4: %s\n",av[0]);
47 goto (*ret)(1234,retenv); 47 goto (*ret)(1234,retenv);
48 } 48 }