Mercurial > hg > CbC > old > device

annotate test/arg.c @ 935:7672a37e7545 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Raspbery PI ARM support begin
author kono
date Sat, 24 Dec 2016 03:02:57 +0000
parents 5313ed059cee
children
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
725
3f1f6c0610c1 goto with enviornment syntax changed.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 720
diff changeset
3 #define __environment _CbC_environment
3f1f6c0610c1 goto with enviornment syntax changed.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 720
diff changeset
4 #define __return _CbC_return
3f1f6c0610c1 goto with enviornment syntax changed.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 720
diff changeset
5
3f1f6c0610c1 goto with enviornment syntax changed.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 720
diff changeset
6
53
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
7 struct arg {
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
8 int a0;int a1;int a2;int a3;int a4;
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
9 };
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
10
720
6b7372e17970 *** empty log message ***
kono
parents: 622
diff changeset
11 extern void exit(int);
6b7372e17970 *** empty log message ***
kono
parents: 622
diff changeset
12
193
ce0c38b6c85e try long long
kono
parents: 172
diff changeset
13 void *exit_env;
622
682c8ec38d45 _code へ
kono
parents: 427
diff changeset
14 __code (*exit___code)();
193
ce0c38b6c85e try long long
kono
parents: 172
diff changeset
15
622
682c8ec38d45 _code へ
kono
parents: 427
diff changeset
16 __code carg1(int arg0,int arg1,int arg2,int arg3,int arg4,__code(*exit1)(),void *env)
55
94564b45c4f3 all save implementation of parallel assignment
kono
parents: 54
diff changeset
17 {
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
18 printf("#0017:arg1: %d %d %d %d %d : %x %x\n",arg0,arg1,arg2,arg3,arg4,exit1==exit___code,env==exit_env);
55
94564b45c4f3 all save implementation of parallel assignment
kono
parents: 54
diff changeset
19 goto carg2(arg1,arg2,arg3,arg4,arg0,exit1,env);
94564b45c4f3 all save implementation of parallel assignment
kono
parents: 54
diff changeset
20 }
94564b45c4f3 all save implementation of parallel assignment
kono
parents: 54
diff changeset
21
622
682c8ec38d45 _code へ
kono
parents: 427
diff changeset
22 __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
23 {
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
24 struct arg args0;
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
25 printf("#0024:arg1: %d %d %d %d %d : %x %x\n",arg0,arg1,arg2,arg3,arg4,exit1==exit___code,env==exit_env );
53
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
26 args0.a0 = arg0;
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
27 args0.a1 = arg1;
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
28 args0.a2 = arg2;
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
29 args0.a3 = arg3;
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
30 args0.a4 = arg4;
55
94564b45c4f3 all save implementation of parallel assignment
kono
parents: 54
diff changeset
31 goto cargs(args0,exit1,env);
53
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
32 }
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
33
622
682c8ec38d45 _code へ
kono
parents: 427
diff changeset
34 __code cargs(struct arg args0,__code exit1(),void *env)
53
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
35 {
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
36 printf("#0035:args: %d %d %d %d %d : %x %x\n",
880
5313ed059cee no tabs in source
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 748
diff changeset
37 args0.a0,args0.a1,args0.a2,args0.a3,args0.a4,
622
682c8ec38d45 _code へ
kono
parents: 427
diff changeset
38 exit1==exit___code,env==exit_env);
77
2b8ba655e572 fix arg type
kono
parents: 57
diff changeset
39 // goto exit1(321),env;
725
3f1f6c0610c1 goto with enviornment syntax changed.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 720
diff changeset
40 goto (*exit1)(0,env);
53
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
41 }
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
42
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
43
622
682c8ec38d45 _code へ
kono
parents: 427
diff changeset
44 __code carg3(struct arg args0,struct arg args1,int i, int j,int k,int l)
57
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
45 {
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
46 printf("#0045:args3: %d %d %d %d %d : %x %x %x %x\n",
880
5313ed059cee no tabs in source
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 748
diff changeset
47 args0.a0,args0.a1,args0.a2,args0.a3,args0.a4,i,j,k,l);
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
48 printf("#0047:args3: args0 %d %d %d %d %d : args1 %d %d %d %d %d : %x %x %x %x\n",
880
5313ed059cee no tabs in source
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 748
diff changeset
49 args0.a0,args0.a1,args0.a2,args0.a3,args0.a4,
5313ed059cee no tabs in source
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 748
diff changeset
50 args1.a0,args1.a1,args1.a2,args1.a3,args1.a4,
5313ed059cee no tabs in source
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 748
diff changeset
51 i,j,k,l);
172
096559f07a70 some check
kono
parents: 79
diff changeset
52 if (args0.a0==args1.a0) exit(0);
57
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
53 goto carg4(args0,args1,j,k,l,i);
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
54 }
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
55
622
682c8ec38d45 _code へ
kono
parents: 427
diff changeset
56 __code carg4(struct arg args0,struct arg args1,int i, int j,int k,int l)
57
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
57 {
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
58 printf("#0057:args4: %d %d %d %d %d : %x %x %x %x\n",
880
5313ed059cee no tabs in source
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 748
diff changeset
59 args0.a0,args0.a1,args0.a2,args0.a3,args0.a4,i,j,k,l);
57
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
60 goto carg5(args1,args0,j,k,l,i);
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
61 }
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
62
622
682c8ec38d45 _code へ
kono
parents: 427
diff changeset
63 __code carg5(struct arg args0,struct arg args1,int i, int j,int k,int l)
57
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
64 {
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
65 printf("#0064:args5: %d %d %d %d %d : %x %x %x %x\n",
880
5313ed059cee no tabs in source
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 748
diff changeset
66 args0.a0,args0.a1,args0.a2,args0.a3,args0.a4,i,j,k,l);
57
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
67 goto carg6(i,j,k,l,args0);
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
68 }
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
69
622
682c8ec38d45 _code へ
kono
parents: 427
diff changeset
70 __code carg6(int i, int j,int k,int l,struct arg args0)
57
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
71 {
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
72 printf("#0071:args6: %d %d %d %d %d : %x %x %x %x\n",
880
5313ed059cee no tabs in source
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 748
diff changeset
73 args0.a0,args0.a1,args0.a2,args0.a3,args0.a4,i,j,k,l);
57
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
74 goto carg3(args0,args0,i,j,k,l);
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
75 }
3d7f199e99d0 struct handling
kono
parents: 55
diff changeset
76
54
kono
parents: 53
diff changeset
77 int main1(int n)
kono
parents: 53
diff changeset
78 {
720
6b7372e17970 *** empty log message ***
kono
parents: 622
diff changeset
79 goto carg1(0,1,2,3,4,exit___code=__return,exit_env=__environment);
54
kono
parents: 53
diff changeset
80 return n;
kono
parents: 53
diff changeset
81 }
kono
parents: 53
diff changeset
82
79
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
83 struct arg a00;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
84 struct arg a01;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
85
53
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
86 int main( int ac, char *av[])
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
87 {
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
88 int n;
54
kono
parents: 53
diff changeset
89 n = main1(123);
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
90 printf("#0089:321=%d\n",n);
79
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
91
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
92 a00.a0 = 11;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
93 a00.a1 = 22;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
94 a00.a2 = 33;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
95 a00.a3 = 44;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
96 a00.a4 = 55;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
97 a01.a0 = 66;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
98 a01.a1 = 77;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
99 a01.a2 = 88;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
100 a01.a3 = 99;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
101 a01.a4 = 10;
82d0e30f61dd *** empty log message ***
kono
parents: 77
diff changeset
102 goto carg3(a00,a01,1,2,3,4);
53
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
103 }
64a4e3789fd2 parallel assign works.
kono
parents:
diff changeset
104