annotate test/arg.c @ 119:b815fcd57b9d

input var ( incomplete )
author kono
date Sun, 23 Mar 2003 19:23:29 +0900
parents 82d0e30f61dd
children 096559f07a70
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
53
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
1 #include "stdio.h"
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
2
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
3 struct arg {
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
4 int a0;int a1;int a2;int a3;int a4;
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
5 };
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
6
55
94564b45c4f3 all save implementation of parallel assignment
kono
parents: 54
diff changeset
7 code carg1(int arg0,int arg1,int arg2,int arg3,int arg4,code(*exit1)(),void *env)
94564b45c4f3 all save implementation of parallel assignment
kono
parents: 54
diff changeset
8 {
94564b45c4f3 all save implementation of parallel assignment
kono
parents: 54
diff changeset
9 printf("arg1: %d %d %d %d %d : %x %x\n",arg0,arg1,arg2,arg3,arg4,exit1,env);
94564b45c4f3 all save implementation of parallel assignment
kono
parents: 54
diff changeset
10 goto carg2(arg1,arg2,arg3,arg4,arg0,exit1,env);
94564b45c4f3 all save implementation of parallel assignment
kono
parents: 54
diff changeset
11 }
94564b45c4f3 all save implementation of parallel assignment
kono
parents: 54
diff changeset
12
94564b45c4f3 all save implementation of parallel assignment
kono
parents: 54
diff changeset
13 code carg2(int arg0,int arg1,int arg2,int arg3,int arg4,code(*exit1)(),void *env)
53
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
14 {
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
15 struct arg args0;
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
16 printf("arg1: %d %d %d %d %d : %x %x\n",arg0,arg1,arg2,arg3,arg4,exit1,env);
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
17 args0.a0 = arg0;
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
18 args0.a1 = arg1;
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
19 args0.a2 = arg2;
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
20 args0.a3 = arg3;
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
21 args0.a4 = arg4;
55
94564b45c4f3 all save implementation of parallel assignment
kono
parents: 54
diff changeset
22 goto cargs(args0,exit1,env);
53
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
23 }
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
24
55
94564b45c4f3 all save implementation of parallel assignment
kono
parents: 54
diff changeset
25 code cargs(struct arg args0,code exit1(),void *env)
53
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
26 {
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
27 printf("args: %d %d %d %d %d : %x %x\n",
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
28 args0.a0,args0.a1,args0.a2,args0.a3,args0.a4,
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
29 exit1,env);
77
2b8ba655e572 fix arg type
kono
parents: 57
diff changeset
30 // goto exit1(321),env;
54
kono
parents: 53
diff changeset
31 goto (*exit1)(321),env;
53
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
32 }
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
33
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
34
57
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
35 code carg3(struct arg args0,struct arg args1,int i, int j,int k,int l)
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
36 {
79
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
37 printf("args3: %d %d %d %d %d : %x %x %x %x\n",
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
38 args0.a0,args0.a1,args0.a2,args0.a3,args0.a4,i,j,k,l);
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
39 if (args0.a0==args1.a0) exit();
57
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
40 goto carg4(args0,args1,j,k,l,i);
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
41 }
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
42
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
43 code carg4(struct arg args0,struct arg args1,int i, int j,int k,int l)
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
44 {
79
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
45 printf("args4: %d %d %d %d %d : %x %x %x %x\n",
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
46 args0.a0,args0.a1,args0.a2,args0.a3,args0.a4,i,j,k,l);
57
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
47 goto carg5(args1,args0,j,k,l,i);
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
48 }
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
49
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
50 code carg5(struct arg args0,struct arg args1,int i, int j,int k,int l)
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
51 {
79
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
52 printf("args5: %d %d %d %d %d : %x %x %x %x\n",
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
53 args0.a0,args0.a1,args0.a2,args0.a3,args0.a4,i,j,k,l);
57
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
54 goto carg6(i,j,k,l,args0);
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
55 }
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
56
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
57 code carg6(int i, int j,int k,int l,struct arg args0)
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
58 {
79
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
59 printf("args6: %d %d %d %d %d : %x %x %x %x\n",
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
60 args0.a0,args0.a1,args0.a2,args0.a3,args0.a4,i,j,k,l);
57
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
61 goto carg3(args0,args0,i,j,k,l);
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
62 }
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
63
54
kono
parents: 53
diff changeset
64 int main1(int n)
kono
parents: 53
diff changeset
65 {
55
94564b45c4f3 all save implementation of parallel assignment
kono
parents: 54
diff changeset
66 goto carg1(0,1,2,3,4,return,environment);
54
kono
parents: 53
diff changeset
67 return n;
kono
parents: 53
diff changeset
68 }
kono
parents: 53
diff changeset
69
79
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
70 struct arg a00;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
71 struct arg a01;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
72
53
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
73 int main( int ac, char *av[])
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
74 {
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
75 int n;
54
kono
parents: 53
diff changeset
76 n = main1(123);
kono
parents: 53
diff changeset
77 printf("321=%d\n",n);
79
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
78
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
79 a00.a0 = 11;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
80 a00.a1 = 22;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
81 a00.a2 = 33;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
82 a00.a3 = 44;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
83 a00.a4 = 55;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
84 a01.a0 = 66;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
85 a01.a1 = 77;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
86 a01.a2 = 88;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
87 a01.a3 = 99;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
88 a01.a4 = 10;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
89 goto carg3(a00,a01,1,2,3,4);
53
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
90 }
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
91