Mercurial > hg > CbC > old > device
annotate test/tmp7.c @ 624:4d28634e46e4
*** empty log message ***
| author | kono |
|---|---|
| date | Wed, 27 Sep 2006 13:57:55 +0900 |
| parents | aad312f61654 |
| children | c2c709727221 |
| rev | line source |
|---|---|
| 467 | 1 int printf(const char *format, ...); |
| 574 | 2 #ifndef INLINE |
| 3 #define INLINE | |
| 4 #endif | |
| 13 | 5 int k=3; |
| 6 struct aa { int a[100]; } aaa,bbb; | |
|
258
22949117768f
Complex function argments. Struct is done. Long long is odd.
kono
parents:
172
diff
changeset
|
7 struct bb { int b[2]; } aaa1,bbb1; |
| 574 | 8 INLINE void tmp(void); |
| 13 | 9 |
| 574 | 10 INLINE struct aa |
| 45 | 11 main0(int); |
| 0 | 12 |
| 624 | 13 INLINE void |
| 14 main01(int k, struct aa a) | |
| 15 { | |
| 16 printf("main01 k=%d,a[0]=%d,a[99]=%d\n",k,a.a[0],a.a[99]); | |
| 17 } | |
| 18 | |
| 574 | 19 INLINE struct aa |
| 45 | 20 main0(int k) |
| 0 | 21 { |
| 39 | 22 int i; |
| 16 | 23 struct aa ccc; |
| 39 | 24 |
| 25 for(i=0;i<100;i++) ccc.a[i]=i; | |
| 45 | 26 ccc.a[55]=k; |
| 16 | 27 return ccc; |
| 0 | 28 } |
| 29 | |
| 574 | 30 INLINE struct aa |
| 45 | 31 main3(struct aa arg) |
| 32 { | |
| 33 int j=++arg.a[55]; | |
| 34 return main0(j); | |
| 35 } | |
| 36 | |
| 574 | 37 INLINE void |
| 8 | 38 main2(struct aa a1) |
| 39 { | |
| 37 | 40 /* main2 a1.a[99] 0 */ |
| 41 /* main2 a1.a[55] 0 */ | |
| 42 /* main2 a1.a[99] 55 */ | |
| 43 /* main2 a1.a[55] 44 */ | |
| 491 | 44 printf("#0038:main2 a1.a[99] %d\n",a1.a[99]); |
| 45 printf("#0039:main2 a1.a[55] %d\n",a1.a[55]); | |
| 8 | 46 } |
| 47 | |
| 574 | 48 INLINE struct bb |
|
258
22949117768f
Complex function argments. Struct is done. Long long is odd.
kono
parents:
172
diff
changeset
|
49 main5(struct aa a1,struct bb a2) |
|
22949117768f
Complex function argments. Struct is done. Long long is odd.
kono
parents:
172
diff
changeset
|
50 { |
| 491 | 51 printf("#0045:main5 a1.a[99] %d\n",a1.a[99]); |
| 52 printf("#0046:main5 a1.a[55] %d\n",a1.a[55]); | |
| 53 printf("#0047:main5 a2.b[0] %d\n",a2.b[0]); | |
| 54 printf("#0048:main5 a2.b[1] %d\n",a2.b[1]); | |
|
258
22949117768f
Complex function argments. Struct is done. Long long is odd.
kono
parents:
172
diff
changeset
|
55 a2.b[0]=333; |
|
22949117768f
Complex function argments. Struct is done. Long long is odd.
kono
parents:
172
diff
changeset
|
56 a2.b[1]=555; |
|
22949117768f
Complex function argments. Struct is done. Long long is odd.
kono
parents:
172
diff
changeset
|
57 return a2; |
|
22949117768f
Complex function argments. Struct is done. Long long is odd.
kono
parents:
172
diff
changeset
|
58 } |
|
22949117768f
Complex function argments. Struct is done. Long long is odd.
kono
parents:
172
diff
changeset
|
59 |
|
22949117768f
Complex function argments. Struct is done. Long long is odd.
kono
parents:
172
diff
changeset
|
60 |
| 574 | 61 INLINE void |
| 0 | 62 main1(struct aa a1) |
| 63 { | |
| 37 | 64 /* main1 a1.a[0] 0 */ |
| 65 /* main1 a1.a[0] 44 */ | |
| 491 | 66 printf("#0060:main1 a1.a[0] %d\n",a1.a[0]); |
| 15 | 67 a1.a[55]=44; |
| 0 | 68 if (a1.a[0]) |
| 8 | 69 main2(a1); |
| 0 | 70 else |
| 8 | 71 main2(aaa); |
| 0 | 72 } |
| 73 | |
| 487 | 74 int |
| 0 | 75 main(ac,av) |
| 76 int ac; | |
| 77 char *av[]; | |
| 78 { | |
| 79 register int i; | |
| 80 register char *p; | |
| 81 int j = 3; | |
| 16 | 82 struct { int b; void (*c)(struct aa); } q = {3,main1},r; |
| 39 | 83 struct aa *aap[3]; |
| 0 | 84 |
| 85 j = 3; | |
| 86 | |
| 624 | 87 aaa.a[0] = 55; |
| 88 aaa.a[99] = 66; | |
| 89 main01(j,aaa); | |
| 90 | |
| 45 | 91 bbb = main0(123); |
| 491 | 92 printf("#0082:copied main0 ccc.a[55] %d==123\n",bbb.a[55]); |
| 39 | 93 aap[2] = &bbb; |
| 45 | 94 *aap[2] = main0(123); |
| 491 | 95 printf("#0085:complex copied main0 ccc.a[55] %d==123\n",bbb.a[55]); |
| 39 | 96 bbb.a[55]=0; |
| 45 | 97 j = main0(123).a[55]; |
| 491 | 98 printf("#0088:new main0 ccc.a[55] in temporal copy %d==123\n",j); |
| 39 | 99 |
| 45 | 100 j = 552; |
| 101 bbb = main3(bbb); | |
| 491 | 102 printf("#0092:main3 bbb.a[55] in temporal copy %d==552 %d==1\n",j,bbb.a[55]); |
| 45 | 103 j = main3(bbb).a[55]; |
| 491 | 104 printf("#0094:main3 bbb.a[55] in temporal copy %d==2 %d\n",j,bbb.a[53]); |
| 45 | 105 j = main3(bbb).a[53]; |
| 491 | 106 printf("#0096:main3 bbb.a[55] in temporal copy %d==53 %d\n",j,bbb.a[53]); |
| 45 | 107 |
| 491 | 108 printf("#0098:%d==3\n",q.b); |
| 37 | 109 /* 3==3 */ |
| 0 | 110 r = q; |
| 491 | 111 printf("#0101:%d==3\n",r.b); |
| 37 | 112 /* 3==3 */ |
| 15 | 113 (*r.c)(aaa); |
| 491 | 114 printf("#0104:main aaa.a[55] %d\n",aaa.a[55]); |
| 37 | 115 /* main aaa.a[55] 123 */ |
| 15 | 116 bbb.a[0]=44; |
| 0 | 117 aaa = bbb; |
| 15 | 118 aaa.a[99]=55; /* core dump? */ |
| 119 (*r.c)(aaa); | |
| 37 | 120 /* main aaa.a[55] 0 */ |
| 491 | 121 printf("#0111:main aaa.a[55] %d\n",aaa.a[55]); |
| 8 | 122 p = av[0]; |
| 487 | 123 if (!p) return 55; |
| 0 | 124 i = p[1]; |
| 125 p = p+i; | |
| 37 | 126 /* 47 ./a.out */ |
| 491 | 127 printf("#0117:%d %s\n",i,p-i+3); |
|
258
22949117768f
Complex function argments. Struct is done. Long long is odd.
kono
parents:
172
diff
changeset
|
128 aaa1.b[0]=33; |
|
22949117768f
Complex function argments. Struct is done. Long long is odd.
kono
parents:
172
diff
changeset
|
129 aaa1.b[1]=55; |
|
22949117768f
Complex function argments. Struct is done. Long long is odd.
kono
parents:
172
diff
changeset
|
130 bbb1 = main5(aaa,aaa1); |
| 491 | 131 printf("#0121:main5-2 %d\n", |
|
258
22949117768f
Complex function argments. Struct is done. Long long is odd.
kono
parents:
172
diff
changeset
|
132 main5(bbb,bbb1).b[0]); |
| 491 | 133 printf("#0123:main5-1 %d\n", |
|
258
22949117768f
Complex function argments. Struct is done. Long long is odd.
kono
parents:
172
diff
changeset
|
134 main5(bbb,main5(aaa,aaa1)).b[0]); |
| 172 | 135 return 0; |
| 0 | 136 } |
| 137 | |
| 574 | 138 INLINE void |
| 0 | 139 tmp() |
| 140 { | |
| 141 } | |
| 37 | 142 |
| 143 |