Mercurial > hg > CbC > old > device

annotate test/tmp2.c @ 876:f93bf97bbd1f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Wed, 02 Apr 2014 12:44:48 +0900
parents c2c709727221
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
725
3f1f6c0610c1 goto with enviornment syntax changed.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 721
diff changeset
1 #define __environment _CbC_environment
3f1f6c0610c1 goto with enviornment syntax changed.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 721
diff changeset
2 #define __return _CbC_return
3f1f6c0610c1 goto with enviornment syntax changed.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 721
diff changeset
3
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
4 #include "stdio.h"
d35df41eac69 Initial revision
kono
parents:
diff changeset
5
d35df41eac69 Initial revision
kono
parents:
diff changeset
6 int
d35df41eac69 Initial revision
kono
parents:
diff changeset
7 main(ac,av)
d35df41eac69 Initial revision
kono
parents:
diff changeset
8 int ac;
d35df41eac69 Initial revision
kono
parents:
diff changeset
9 char *av[];
d35df41eac69 Initial revision
kono
parents:
diff changeset
10 {
d35df41eac69 Initial revision
kono
parents:
diff changeset
11 int i;
d35df41eac69 Initial revision
kono
parents:
diff changeset
12 i=main0(ac,av);
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
13 fprintf(stdout,"#0012:1: %s %d\n",av[0],i);
172
096559f07a70 some check
kono
parents: 0
diff changeset
14 return 0;
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
15 }
d35df41eac69 Initial revision
kono
parents:
diff changeset
16
d35df41eac69 Initial revision
kono
parents:
diff changeset
17 int
d35df41eac69 Initial revision
kono
parents:
diff changeset
18 main0(ac,av)
d35df41eac69 Initial revision
kono
parents:
diff changeset
19 int ac;
d35df41eac69 Initial revision
kono
parents:
diff changeset
20 char *av[];
d35df41eac69 Initial revision
kono
parents:
diff changeset
21 {
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
22 fprintf(stdout,"#0021:2: %s\n",av[0]);
721
76761a18703b Recursive macro
kono
parents: 622
diff changeset
23 goto code0(av,__return,__environment);
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
24 }
d35df41eac69 Initial revision
kono
parents:
diff changeset
25
622
682c8ec38d45 _code へ
kono
parents: 172
diff changeset
26 __code code0(av,ret,retenv)
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
27 char *av[];
622
682c8ec38d45 _code へ
kono
parents: 172
diff changeset
28 __code (*ret)();
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
29 void *retenv;
d35df41eac69 Initial revision
kono
parents:
diff changeset
30 {
d35df41eac69 Initial revision
kono
parents:
diff changeset
31 char *p;
d35df41eac69 Initial revision
kono
parents:
diff changeset
32 p = av[0];
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
33 fprintf(stdout,"#0032:3: %s\n",p);
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
34 goto code1(av,ret,retenv);
d35df41eac69 Initial revision
kono
parents:
diff changeset
35 }
d35df41eac69 Initial revision
kono
parents:
diff changeset
36
622
682c8ec38d45 _code へ
kono
parents: 172
diff changeset
37 __code code1(av,ret,retenv)
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
38 char *av[];
622
682c8ec38d45 _code へ
kono
parents: 172
diff changeset
39 __code (*ret)();
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
40 void *retenv;
d35df41eac69 Initial revision
kono
parents:
diff changeset
41 {
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
42 fprintf(stdout,"#0041:4: %s\n",av[0]);
725
3f1f6c0610c1 goto with enviornment syntax changed.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 721
diff changeset
43 goto (*ret)(1234,retenv);
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
44 }