annotate mc-switch.c @ 297:0f79c95df73a

switch index no compile error
author kono
date Sun, 06 Jun 2004 20:19:36 +0900 (2004-06-06)
parents
children 4ccacae1d2e6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
297
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
1 /* Micro-C Switch Code generation Part */
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
2 /* $Id$ */
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
3
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
4 #define EXTERN extern
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
5 #include "mc.h"
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
6 #include "mc-code.h"
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
7 #include "mc-codegen.h"
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
8
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
9 #if CASE_CODE
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
10
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
11 extern void genswitch(int cslist,int cslabel,int dlabel);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
12
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
13 /*
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
14 value label pair
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
15 cslist = list3(value,next,label) label==0 means skip
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
16 continuous cslist
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
17 chunks: list4(cslist,next,delta,list3(count,min,max))
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
18 mergeable chunks count list
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
19 merge: list4(continuous number of chunk,next,delta,case_count);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
20 index list
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
21 index: list4(label,next,max,min);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
22 */
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
23
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
24 #define chunk_max(chunks) caddr(cadddr(chunks))
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
25 #define chunk_min(chunks) cadr(cadddr(chunks))
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
26 #define index_max(index) caddr(index)
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
27 #define index_min(index) cadddr(index)
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
28
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
29 /*
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
30 group continous case value
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
31 */
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
32
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
33 static int
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
34 make_chunk(int cslist)
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
35 {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
36 int delta,delta1,list,p,count;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
37 // cslist is already sorted
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
38 delta = 0;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
39 list = list4(cslist,0,1,list3(0,car(cslist) /* min */,0));
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
40 count=1;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
41 for(p=0;cadr(cslist);cslist = cadr(cslist),count++) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
42 // compute new delta
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
43 delta1 = car(cadr(cslist))-car(cslist);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
44 // empty case
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
45 if (!caddr(cslist)) count--;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
46 if (delta==0) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
47 // 2nd element
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
48 caddr(list) = delta = delta1;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
49 if (p) cadr(p)=0; // terminate previous chunk
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
50 } else if (delta1!=delta) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
51 // not contiguous, start new list
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
52 caddr(cadddr(list)) = car(cslist); // max
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
53 car(cadddr(list)) = count; count=0;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
54 delta = 0;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
55 list = list4(cadr(cslist),list,1,list3(0,0,0));
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
56 cadr(cadddr(list)) = car(cadr(cslist)); // min
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
57 // prepare terminate point for next turn
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
58 p=cslist;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
59 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
60 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
61 if (p) cadr(p)=0; // terminate previous chunk
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
62 car(cadddr(list)) = count;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
63 caddr(cadddr(list)) = car(cslist); // max
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
64 return list;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
65 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
66
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
67 #define CASE_MERGE_RATE 70
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
68
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
69 static int gcd(int i,int j)
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
70 {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
71 int k;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
72 if (i<j) { k=i; i=j; j=k;}
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
73 for(;;) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
74 if ((k=i%j)==0) return j;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
75 i = j; j = k;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
76 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
77 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
78
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
79 /*
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
80 check two chunks are mergeable or not.
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
81 */
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
82
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
83 static int
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
84 merge_chunk_p(int *delta,int max,int min,int *count,int delta1,int count1)
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
85 {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
86 int range = max-min;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
87 int g;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
88 // compute possible merge delta
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
89 g = gcd(*delta,delta1);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
90 g = gcd(g,range);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
91 range /= g;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
92 *count = count1 = count1+*count;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
93 *delta = g;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
94 #if 1
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
95 if (count1*128>(range*128*CASE_MERGE_RATE/100)) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
96 printf("# min %d, max %d, count %d, delta %d, rate %g t=%d\n",
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
97 min,max,count1,g,
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
98 ((double)count1)*100.0/range,
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
99 count1*128>(range*128*CASE_MERGE_RATE/100)
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
100 );
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
101 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
102 #endif
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
103 // count/((max-min)/delta) > 0.8
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
104 return count1*128>(range*128*CASE_MERGE_RATE/100);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
105 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
106
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
107
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
108 static int
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
109 merge_chunk(int chunks)
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
110 {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
111 int list = chunks;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
112 int tail,last,max,min,i;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
113 int count,c_count,p,widest,delta=1;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
114 int merge = 0;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
115 while(cadr(list)) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
116 p = cadddr(list);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
117 c_count = count = car(p); max=caddr(p);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
118 widest = 1; last = list;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
119 delta = caddr(list);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
120 // check possible merge against the end of the chunks
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
121 for(i=1,tail=cadr(list);cadr(tail); tail=cadr(tail),i++) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
122 p = cadddr(tail);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
123 min = cadr(p);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
124 if (merge_chunk_p(&delta,max,min,&count,caddr(tail),car(p))) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
125 // It is mergeable.
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
126 widest = i+1; last = tail; c_count=count;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
127 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
128 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
129 merge = list4(widest,merge,delta,c_count);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
130 // skip merged chunks
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
131 list = cadr(last);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
132 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
133 // last one can remain.
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
134 if (list) merge = list4(1,merge,caddr(list),car(cadddr(list)));
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
135 return merge;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
136 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
137
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
138 static int
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
139 table_jump(int count,int delta,int cslist)
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
140 {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
141 int list;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
142 for(;count-->0;cslist=cadr(cslist)) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
143 list = car(cslist);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
144 printf("# table cases delta=%d count=%d min=%d max=%d\n",
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
145 caddr(cslist),car(cadddr(cslist)),
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
146 cadr(cadddr(cslist)),caddr(cadddr(cslist))
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
147 );
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
148 for(;list; list=cadr(list)) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
149 if (caddr(list))
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
150 cmpdimm(car(list),csvalue1,caddr(list),0);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
151 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
152 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
153 return cslist;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
154 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
155
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
156 static int
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
157 cascade_compare(int count,int cslist)
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
158 {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
159 int list;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
160 for(;count-->0;cslist=cadr(cslist)) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
161 list = car(cslist);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
162 printf("# cascade cases delta=%d count=%d min=%d max=%d\n",
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
163 caddr(cslist),car(cadddr(cslist)),
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
164 cadr(cadddr(cslist)),caddr(cadddr(cslist))
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
165 );
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
166 for(;list; list=cadr(list)) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
167 if (caddr(list))
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
168 cmpdimm(car(list),csvalue1,caddr(list),0);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
169 // value register label mode
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
170 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
171 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
172 return cslist;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
173 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
174
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
175 #define CASE_TABLE_COUNT 10
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
176 #define CASE_INDEX_COUNT 10
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
177
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
178
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
179 /*
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
180 generate index jmp
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
181 */
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
182
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
183 static void
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
184 switch_index_jmp(int index,int label)
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
185 {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
186 int value = car(car(caddr(caddr(index))));
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
187 cmpdimm(value,csvalue1,label,LT);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
188 // value register label mode
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
189 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
190
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
191 /*
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
192 generate leaf index branch
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
193 */
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
194
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
195 static int
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
196 switch_make_index_leaf(int count,int index)
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
197 {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
198 for(;count-- !=0 && cadr(index);index=cadr(index)) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
199 switch_index_jmp(
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
200 cadr(index), /* next max */
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
201 car(caddr(index)) /*label*/ );
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
202 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
203 if (!cadr(index)) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
204 // don't check max boundary
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
205 jmp(car(caddr(index)));
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
206 return 0;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
207 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
208 if (count!=0) error(-1);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
209 return index;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
210 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
211
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
212 /*
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
213 generate index switch branch (no table).
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
214 if necessary generate higher index.
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
215 */
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
216
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
217 static void
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
218 switch_make_index(int index0,int count,int cslabel)
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
219 {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
220 int index=0;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
221 int icount=0;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
222 int l,min,max;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
223 while (index0 && count > CASE_INDEX_COUNT) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
224 l = backdef();
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
225 min = index_min(index0);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
226 index0=switch_make_index_leaf(CASE_INDEX_COUNT,index0);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
227 max = index_min(index0);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
228 index = list4(l,index,max,min);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
229 count-=CASE_INDEX_COUNT;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
230 icount++;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
231 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
232 if (index) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
233 switch_make_index(reverse0(index),icount,cslabel);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
234 if (dlabel) jmp(dlabel);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
235 } else {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
236 fwddef(cslabel);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
237 switch_make_index_leaf(-1,index0);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
238 if (dlabel) jmp(dlabel);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
239 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
240 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
241
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
242 /*
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
243 generate leaf switch branch or table jump
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
244 */
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
245
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
246 static int
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
247 switch_leaf(int count,int merge,int cslist)
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
248 {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
249 for(;count-- !=0 && merge;merge=cadr(merge)) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
250 printf("# merge count %d delta %d c_count %d\n",
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
251 car(merge),caddr(merge),cadddr(merge));
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
252 if (cadddr(merge)>CASE_TABLE_COUNT)
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
253 cslist = table_jump(car(merge),caddr(merge),cslist);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
254 else
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
255 cslist = cascade_compare(car(merge),cslist);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
256 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
257 return cslist;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
258 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
259
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
260 /*
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
261 make index if necessary or
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
262 generate case branch or table jump
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
263 */
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
264
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
265 static void
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
266 switch_index(int merge,int chunks,int cslabel,int dlabel,int gmax)
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
267 {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
268 int m,l,max,min;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
269 int chnkcnt = 0;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
270 int icount = 0;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
271 int count = 0;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
272 int index = 0;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
273 for(m=merge;m;m=cadr(m)) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
274 chnkcnt++;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
275 count += cadddr(m);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
276 if (count > CASE_INDEX_COUNT || (index && !cadr(m))) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
277 icount++;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
278 min = car(car(chunks));
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
279 l = backdef();
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
280 chunks= switch_leaf(chnkcnt,merge,chunks);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
281 max = chunks?car(car(chunks)):gmax;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
282 index = list4(l,index,max,min);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
283 merge = cadr(m); count = 0; chnkcnt = 0;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
284 if (dlabel) jmp(dlabel);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
285 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
286 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
287 if (index) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
288 index = reverse0(index);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
289 // check lower bound
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
290 switch_index_jmp(index,dlabel?dlabel:blabel);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
291 switch_make_index(index,icount,cslabel);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
292 if (dlabel) jmp(dlabel);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
293 } else {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
294 fwddef(cslabel);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
295 switch_leaf(-1,merge,chunks);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
296 if (dlabel) jmp(dlabel);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
297 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
298 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
299
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
300 /* generate switch table, index, cascading branch */
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
301
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
302
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
303 void
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
304 genswitch(int cslist,int cslabel,int dlabel)
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
305 {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
306 int chunks,merge,gmax;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
307 int i,j;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
308 #if 0
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
309 for(i=cslist;i;i=cadr(i)) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
310 printf("# case %d L_%d\n",car(i),caddr(i));
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
311 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
312 #endif
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
313 /* find stepwise chunks */
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
314 chunks=make_chunk(cslist);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
315 #if 1
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
316 chunks = 0;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
317 for(i=cslist;i;i=cadr(i)) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
318 chunks++;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
319 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
320 j = chunks;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
321 #endif
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
322 /* possible merge of loose stepwise chunks */
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
323 merge = merge_chunk(chunks);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
324 #if 0
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
325 // chunks: list3(widest,next,delta);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
326 printf("# chunks %d = sum ",j);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
327 j = 0;
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
328 for(i=merge;i;i=cadr(i)) {
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
329 printf(" %d/%d",car(i),caddr(i));
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
330 j+=car(i);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
331 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
332 printf(" sum = %d\n",j);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
333 #endif
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
334 /* make index branch or table jump */
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
335 gmax = chunk_max(chunks);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
336 chunks = reverse0(chunks);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
337 switch_index(merge,chunks,cslabel,dlabel,gmax);
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
338 }
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
339
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
340 #endif
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
341
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
342
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
343
0f79c95df73a switch index no compile error
kono
parents:
diff changeset
344 /* end */