Mercurial > hg > CbC > CbC_gcc
annotate CbC-examples/arg.c @ 84:a5786e986ad2
modify gcc/c-parser.c
| author | Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> |
|---|---|
| date | Sun, 13 Nov 2011 16:21:32 +0900 |
| parents | 365b84b6fe04 |
| children | 5d30d517ebed |
| rev | line source |
|---|---|
| 78 | 1 #include "stdio.h" |
| 2 | |
| 3 #define __environment _CbC_environment | |
| 4 #define __return _CbC_return | |
| 5 | |
| 6 | |
| 7 struct arg { | |
| 8 int a0;int a1;int a2;int a3;int a4; | |
| 9 }; | |
| 10 | |
| 11 extern void exit(int); | |
| 12 | |
| 13 void *exit_env; | |
| 14 __code (*exit___code)(); | |
| 15 | |
|
84
a5786e986ad2
modify gcc/c-parser.c
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
78
diff
changeset
|
16 __code carg1(int arg0,int arg1,int arg2,int arg3,int arg4,__code(*exit1)(int, void*),void *env) |
| 78 | 17 { |
| 18 printf("#0017:arg1: %d %d %d %d %d : %x %x\n",arg0,arg1,arg2,arg3,arg4,exit1==exit___code,env==exit_env); | |
| 19 goto carg2(arg1,arg2,arg3,arg4,arg0,exit1,env); | |
| 20 } | |
| 21 | |
|
84
a5786e986ad2
modify gcc/c-parser.c
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
78
diff
changeset
|
22 __code carg2(int arg0,int arg1,int arg2,int arg3,int arg4,__code(*exit1)(int, void*),void *env) |
| 78 | 23 { |
| 24 struct arg args0; | |
| 25 printf("#0024:arg1: %d %d %d %d %d : %x %x\n",arg0,arg1,arg2,arg3,arg4,exit1==exit___code,env==exit_env ); | |
| 26 args0.a0 = arg0; | |
| 27 args0.a1 = arg1; | |
| 28 args0.a2 = arg2; | |
| 29 args0.a3 = arg3; | |
| 30 args0.a4 = arg4; | |
| 31 goto cargs(args0,exit1,env); | |
| 32 } | |
| 33 | |
|
84
a5786e986ad2
modify gcc/c-parser.c
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
78
diff
changeset
|
34 __code cargs(struct arg args0,__code exit1(int, void*),void *env) |
| 78 | 35 { |
| 36 printf("#0035:args: %d %d %d %d %d : %x %x\n", | |
| 37 args0.a0,args0.a1,args0.a2,args0.a3,args0.a4, | |
| 38 exit1==exit___code,env==exit_env); | |
| 39 // goto exit1(321),env; | |
| 40 goto (*exit1)(0,env); | |
| 41 } | |
| 42 | |
| 43 | |
| 44 __code carg3(struct arg args0,struct arg args1,int i, int j,int k,int l) | |
| 45 { | |
| 46 printf("#0045:args3: %d %d %d %d %d : %x %x %x %x\n", | |
| 47 args0.a0,args0.a1,args0.a2,args0.a3,args0.a4,i,j,k,l); | |
| 48 printf("#0047:args3: args0 %d %d %d %d %d : args1 %d %d %d %d %d : %x %x %x %x\n", | |
| 49 args0.a0,args0.a1,args0.a2,args0.a3,args0.a4, | |
| 50 args1.a0,args1.a1,args1.a2,args1.a3,args1.a4, | |
| 51 i,j,k,l); | |
| 52 if (args0.a0==args1.a0) exit(0); | |
| 53 goto carg4(args0,args1,j,k,l,i); | |
| 54 } | |
| 55 | |
| 56 __code carg4(struct arg args0,struct arg args1,int i, int j,int k,int l) | |
| 57 { | |
| 58 printf("#0057:args4: %d %d %d %d %d : %x %x %x %x\n", | |
| 59 args0.a0,args0.a1,args0.a2,args0.a3,args0.a4,i,j,k,l); | |
| 60 goto carg5(args1,args0,j,k,l,i); | |
| 61 } | |
| 62 | |
| 63 __code carg5(struct arg args0,struct arg args1,int i, int j,int k,int l) | |
| 64 { | |
| 65 printf("#0064:args5: %d %d %d %d %d : %x %x %x %x\n", | |
| 66 args0.a0,args0.a1,args0.a2,args0.a3,args0.a4,i,j,k,l); | |
| 67 goto carg6(i,j,k,l,args0); | |
| 68 } | |
| 69 | |
| 70 __code carg6(int i, int j,int k,int l,struct arg args0) | |
| 71 { | |
| 72 printf("#0071:args6: %d %d %d %d %d : %x %x %x %x\n", | |
| 73 args0.a0,args0.a1,args0.a2,args0.a3,args0.a4,i,j,k,l); | |
| 74 goto carg3(args0,args0,i,j,k,l); | |
| 75 } | |
| 76 | |
| 77 int main1(int n) | |
| 78 { | |
| 79 goto carg1(0,1,2,3,4,exit___code=__return,exit_env=__environment); | |
| 80 return n; | |
| 81 } | |
| 82 | |
| 83 struct arg a00; | |
| 84 struct arg a01; | |
| 85 | |
| 86 int main( int ac, char *av[]) | |
| 87 { | |
| 88 int n; | |
| 89 n = main1(123); | |
| 90 printf("#0089:321=%d\n",n); | |
| 91 | |
| 92 a00.a0 = 11; | |
| 93 a00.a1 = 22; | |
| 94 a00.a2 = 33; | |
| 95 a00.a3 = 44; | |
| 96 a00.a4 = 55; | |
| 97 a01.a0 = 66; | |
| 98 a01.a1 = 77; | |
| 99 a01.a2 = 88; | |
| 100 a01.a3 = 99; | |
| 101 a01.a4 = 10; | |
| 102 goto carg3(a00,a01,1,2,3,4); | |
| 103 } | |
| 104 |