|
78
|
1 #define __environment _CbC_environment
|
|
|
2 #define __return _CbC_return
|
|
|
3
|
|
|
4 #include "stdio.h"
|
|
|
5
|
|
|
6 int
|
|
|
7 main(ac,av)
|
|
|
8 int ac;
|
|
|
9 char *av[];
|
|
|
10 {
|
|
|
11 int i;
|
|
|
12 i=main0(ac,av);
|
|
|
13 fprintf(stdout,"#0012:1: %s %d\n",av[0],i);
|
|
|
14 return 0;
|
|
|
15 }
|
|
|
16
|
|
|
17 int
|
|
|
18 main0(ac,av)
|
|
|
19 int ac;
|
|
|
20 char *av[];
|
|
|
21 {
|
|
|
22 fprintf(stdout,"#0021:2: %s\n",av[0]);
|
|
|
23 goto code0(av,__return,__environment);
|
|
|
24 }
|
|
|
25
|
|
|
26 __code code0(av,ret,retenv)
|
|
|
27 char *av[];
|
|
|
28 __code (*ret)();
|
|
|
29 void *retenv;
|
|
|
30 {
|
|
|
31 char *p;
|
|
|
32 p = av[0];
|
|
|
33 fprintf(stdout,"#0032:3: %s\n",p);
|
|
|
34 goto code1(av,ret,retenv);
|
|
|
35 }
|
|
|
36
|
|
|
37 __code code1(av,ret,retenv)
|
|
|
38 char *av[];
|
|
|
39 __code (*ret)();
|
|
|
40 void *retenv;
|
|
|
41 {
|
|
|
42 fprintf(stdout,"#0041:4: %s\n",av[0]);
|
|
|
43 goto (*ret)(1234,retenv);
|
|
|
44 }
|
