annotate test/arg.c @ 53:64a4e3789fd2 parallel-assign

parallel assign works.
author kono
date Tue, 18 Feb 2003 20:14:19 +0900
parents
children 1a6b6a7bdca6
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
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
7 code arg1(int arg0,int arg1,int arg2,int arg3,int arg4,code(*exit1)(),void *env)
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
8 {
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
9 struct arg args0;
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
10 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
11 args0.a0 = arg0;
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
12 args0.a1 = arg1;
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
13 args0.a2 = arg2;
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
14 args0.a3 = arg3;
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
15 args0.a4 = arg4;
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
16 goto args(args0,exit1,env);
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
17 }
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
18
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
19 code args(struct arg args0,code exit1(),void *env)
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
20 {
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
21 printf("args: %d %d %d %d %d : %x %x\n",
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
22 args0.a0,args0.a1,args0.a2,args0.a3,args0.a4,
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
23 exit1,env);
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
24 goto (*exit1)(0),env;
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
25 }
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
26
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
27
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
28 int main( int ac, char *av[])
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
29 {
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
30 int n;
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
31 goto arg1(0,1,2,3,4,return,environment);
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
32 }
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
33