annotate test/tmp1.c @ 602:429ec87e03e7

*** empty log message ***
author kono
date Fri, 27 Jan 2006 14:35:38 +0900
parents a4445cb1aa91
children 682c8ec38d45
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
1 /* easy test */
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
2
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
3 code (*ret)();
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
4 void *env;
572
388baa7d4bee more strict errors.
kono
parents: 491
diff changeset
5 code exit1(int ac);
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
6
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
7 main0(ac,av)
0
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 {
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
11 ret = return;
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
12 env = environment;
573
3de2ae36c7e5 *** empty log message ***
kono
parents: 572
diff changeset
13 printf("#0012:main0 %d start.\n",ac);
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
14 if (ac>=1)
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
15 goto code0(ac,av,return);
172
096559f07a70 some check
kono
parents: 0
diff changeset
16 goto code1(ac,av,exit1);
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
17 // not reached. (warning?)
573
3de2ae36c7e5 *** empty log message ***
kono
parents: 572
diff changeset
18 printf("#0017:main0 %d end.\n",ac);
172
096559f07a70 some check
kono
parents: 0
diff changeset
19 }
096559f07a70 some check
kono
parents: 0
diff changeset
20
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
21 code exit1(int ac)
172
096559f07a70 some check
kono
parents: 0
diff changeset
22 {
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
23 // exit(0);
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
24 goto code3(0,1,2,3,4,5);
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
25 }
d35df41eac69 Initial revision
kono
parents:
diff changeset
26
d35df41eac69 Initial revision
kono
parents:
diff changeset
27 code code3(a,b,c,d,e,f)
d35df41eac69 Initial revision
kono
parents:
diff changeset
28 char a,b;
d35df41eac69 Initial revision
kono
parents:
diff changeset
29 int c,d,e,f;
d35df41eac69 Initial revision
kono
parents:
diff changeset
30 {
573
3de2ae36c7e5 *** empty log message ***
kono
parents: 572
diff changeset
31 printf("#0030:code3: %d %d %d %d %d %d\n",a,b,c,d,e,f);
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
32 if(a<10)
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
33 goto code3(a+1,b,c,d,e,f);
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
34 else
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
35 goto code4(a+3,b+3,c+3,d+3,e+3,f+3);
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
36 }
d35df41eac69 Initial revision
kono
parents:
diff changeset
37
d35df41eac69 Initial revision
kono
parents:
diff changeset
38 code code4(a,b,c,d,e,f)
d35df41eac69 Initial revision
kono
parents:
diff changeset
39 char a,b;
d35df41eac69 Initial revision
kono
parents:
diff changeset
40 int c,d,e,f;
d35df41eac69 Initial revision
kono
parents:
diff changeset
41 {
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
42 int i=1,j=2;
573
3de2ae36c7e5 *** empty log message ***
kono
parents: 572
diff changeset
43 printf("#0042:code4: %d %d %d %d %d %d\n",a,b,c,d,e,f);
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
44 if(a<20) // cyclic binary dependency
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
45 goto code3(a+b,b+c,c+d,d+e,e+f,f+a);
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
46 else if(a<30)
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
47 goto code3(a,b,c,d,e,f);
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
48 else if(a<40) // cyclic dependency
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
49 goto code3(b,c,a,e,f,d);
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
50 else if(a<50)
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
51 goto code4(a+i,b+j,c+i,d+3,e+3,f+3);
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
52 else goto ret(0),env;
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
53 }
d35df41eac69 Initial revision
kono
parents:
diff changeset
54
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
55 code code0(ac,av,ret)
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
56 int ac;
d35df41eac69 Initial revision
kono
parents:
diff changeset
57 char *av[];
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
58 code ret();
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
59 {
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
60 goto code1(ac,av,ret);
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
61 }
d35df41eac69 Initial revision
kono
parents:
diff changeset
62
172
096559f07a70 some check
kono
parents: 0
diff changeset
63 code code1(ac,av,exit)
096559f07a70 some check
kono
parents: 0
diff changeset
64 int ac,exit;
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
65 char *av[];
d35df41eac69 Initial revision
kono
parents:
diff changeset
66 {
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
67 code (*f)(int);
573
3de2ae36c7e5 *** empty log message ***
kono
parents: 572
diff changeset
68 printf("#0067:code1: %d\n",ac);
172
096559f07a70 some check
kono
parents: 0
diff changeset
69 f = exit;
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
70 if (ac>3)
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
71 goto code1(ac,av,f);
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
72 else if (ac>2)
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
73 goto code1(av,ac,f);
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
74 else
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
75 goto (*f)(ac),env;
0
d35df41eac69 Initial revision
kono
parents:
diff changeset
76 }
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
77
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
78 int
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
79 main(int ac,char *av[])
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
80 {
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
81 main0(1,av);
573
3de2ae36c7e5 *** empty log message ***
kono
parents: 572
diff changeset
82 printf("#0081:main continue.\n");
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
83 main0(0,av);
573
3de2ae36c7e5 *** empty log message ***
kono
parents: 572
diff changeset
84 printf("#0083:main end.\n");
575
a4445cb1aa91 Example filex.
kono
parents: 573
diff changeset
85 return 0;
449
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
86 }
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
87
c55363eff5e5 parallel assignment (modify not completed)
kono
parents: 172
diff changeset
88 /* end */