Mercurial > hg > CbC > CbC_gcc
comparison CbC-examples/tmp2.c @ 128:fe568345ddd5
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 } |