Mercurial > hg > CbC > old > device

annotate test/tmp6.c @ 788:fcb642ef08c9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sun, 21 Nov 2010 15:36:23 +0900
parents c2c709727221
children 5313ed059cee
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: 720
diff changeset
1 #define __environment _CbC_environment
3f1f6c0610c1 goto with enviornment syntax changed.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 720
diff changeset
2 #define __return _CbC_return
3f1f6c0610c1 goto with enviornment syntax changed.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 720
diff changeset
3
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
4 #include "stdio.h"
d35df41eac69 Initial revision
kono
parents:
diff changeset
5
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
6 char *a[] = {"test1","2"};
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
7
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
8 int
d35df41eac69 Initial revision
kono
parents:
diff changeset
9 main(ac,av)
d35df41eac69 Initial revision
kono
parents:
diff changeset
10 int ac;
d35df41eac69 Initial revision
kono
parents:
diff changeset
11 char *av[];
d35df41eac69 Initial revision
kono
parents:
diff changeset
12 {
d35df41eac69 Initial revision
kono
parents:
diff changeset
13 int i;
d35df41eac69 Initial revision
kono
parents:
diff changeset
14
6
bf602558130d continuation
kono
parents: 0
diff changeset
15 if(ac!=2) {
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
16 fprintf(stdout,"#0015:a used.\n");
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
17 // return(0);
720
6b7372e17970 *** empty log message ***
kono
parents: 685
diff changeset
18 i=main0(2,a,__return,__environment);
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
19 return 0;
6
bf602558130d continuation
kono
parents: 0
diff changeset
20 }
720
6b7372e17970 *** empty log message ***
kono
parents: 685
diff changeset
21 i=main0(ac,av,__return,__environment);
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
22 fprintf(stdout,"#0021:1: %s %d\n",av[0],i);
172
096559f07a70 some check
kono
parents: 6
diff changeset
23 return 0;
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
24 }
d35df41eac69 Initial revision
kono
parents:
diff changeset
25
d35df41eac69 Initial revision
kono
parents:
diff changeset
26 int
d35df41eac69 Initial revision
kono
parents:
diff changeset
27 main0(ac,av,ret,retenv)
d35df41eac69 Initial revision
kono
parents:
diff changeset
28 int ac;
d35df41eac69 Initial revision
kono
parents:
diff changeset
29 char *av[];
622
682c8ec38d45 _code へ
kono
parents: 449
diff changeset
30 __code (*ret)();
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
31 void *retenv;
d35df41eac69 Initial revision
kono
parents:
diff changeset
32 {
d35df41eac69 Initial revision
kono
parents:
diff changeset
33 int i,j,k;
d35df41eac69 Initial revision
kono
parents:
diff changeset
34 i=123;
d35df41eac69 Initial revision
kono
parents:
diff changeset
35 j=456;
d35df41eac69 Initial revision
kono
parents:
diff changeset
36 k = atoi(av[1]);
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
37 fprintf(stdout,"#0036:2: av=%x av[0]=%x %s\n",av==a,av[0]==a[0],av[0]);
720
6b7372e17970 *** empty log message ***
kono
parents: 685
diff changeset
38 goto code0(i,j,k,av,ret,retenv,__return,__environment);
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
39 }
d35df41eac69 Initial revision
kono
parents:
diff changeset
40
622
682c8ec38d45 _code へ
kono
parents: 449
diff changeset
41 __code code0(i,j,k,av,ret,retenv,ret1,ret1env)
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
42 int i,j,k;
d35df41eac69 Initial revision
kono
parents:
diff changeset
43 char *av[];
622
682c8ec38d45 _code へ
kono
parents: 449
diff changeset
44 __code (*ret)();
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
45 void *retenv;
622
682c8ec38d45 _code へ
kono
parents: 449
diff changeset
46 __code (*ret1)();
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
47 void *ret1env;
d35df41eac69 Initial revision
kono
parents:
diff changeset
48 {
d35df41eac69 Initial revision
kono
parents:
diff changeset
49 char *p;
d35df41eac69 Initial revision
kono
parents:
diff changeset
50 p = av[0];
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
51 fprintf(stdout,"#0050:code0\n",av[0]);
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
52 goto code1(i,j,k,av,ret,retenv,ret1,ret1env);
d35df41eac69 Initial revision
kono
parents:
diff changeset
53 }
d35df41eac69 Initial revision
kono
parents:
diff changeset
54
622
682c8ec38d45 _code へ
kono
parents: 449
diff changeset
55 __code code1(i,j,k,av,ret,retenv,ret1,ret1env)
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
56 int i,j,k;
d35df41eac69 Initial revision
kono
parents:
diff changeset
57 char *av[];
622
682c8ec38d45 _code へ
kono
parents: 449
diff changeset
58 __code (*ret)();
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
59 void *retenv;
622
682c8ec38d45 _code へ
kono
parents: 449
diff changeset
60 __code (*ret1)();
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
61 void *ret1env;
d35df41eac69 Initial revision
kono
parents:
diff changeset
62 {
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
63 fprintf(stdout,"#0062:4: %s\n",av[0]);
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
64 goto code2(i,j,k,av,ret,retenv,ret1,ret1env);
d35df41eac69 Initial revision
kono
parents:
diff changeset
65 }
d35df41eac69 Initial revision
kono
parents:
diff changeset
66
622
682c8ec38d45 _code へ
kono
parents: 449
diff changeset
67 __code code2(i,j,k,av,ret,retenv,ret1,ret1env)
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
68 int i,j,k;
d35df41eac69 Initial revision
kono
parents:
diff changeset
69 char *av[];
622
682c8ec38d45 _code へ
kono
parents: 449
diff changeset
70 __code (*ret)();
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
71 void *retenv;
622
682c8ec38d45 _code へ
kono
parents: 449
diff changeset
72 __code (*ret1)();
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
73 void *ret1env;
d35df41eac69 Initial revision
kono
parents:
diff changeset
74 {
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
75 fprintf(stdout,"#0074:5: %s\n",av[0]);
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
76 fprintf(stdout,"#0075:5: i=%d j=%d k=%d av=%x\n",i,j,k,av==a);
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
77 if (k>3)
725
3f1f6c0610c1 goto with enviornment syntax changed.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 720
diff changeset
78 goto (*ret1)(1234,ret1env);
3f1f6c0610c1 goto with enviornment syntax changed.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 720
diff changeset
79 goto (*ret)(1234,retenv);
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
80 }