1 /* This C file is generated by NIT to compile module standard___collection___sorter. */
2 #include "standard___collection___sorter._sep.h"
3 val_t
standard___collection___sorter___AbstractSorter___compare(val_t p0
, val_t p1
, val_t p2
){
4 struct {struct stack_frame_t me
;} fra
;
6 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
7 fra
.me
.file
= LOCATE_standard___collection___sorter
;
9 fra
.me
.meth
= LOCATE_standard___collection___sorter___AbstractSorter___compare
;
12 fra
.me
.nitni_local_ref_head
= NULL
;
13 /* ../lib/standard/collection/sorter.nit:22 */
14 nit_abort("Deferred method called", NULL
, LOCATE_standard___collection___sorter
, 22);
15 stack_frame_head
= fra
.me
.prev
;
18 void standard___collection___sorter___AbstractSorter___sort(val_t p0
, val_t p1
){
19 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
24 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
25 fra
.me
.file
= LOCATE_standard___collection___sorter
;
27 fra
.me
.meth
= LOCATE_standard___collection___sorter___AbstractSorter___sort
;
30 fra
.me
.nitni_local_ref_head
= NULL
;
31 fra
.me
.REG
[0] = NIT_NULL
;
32 fra
.me
.REG
[1] = NIT_NULL
;
35 /* ../lib/standard/collection/sorter.nit:30 */
37 /* ../lib/standard/collection/array.nit:24 */
38 REGB1
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1])!=NIT_NULL
);
39 if (UNTAG_Bool(REGB1
)) {
41 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
43 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1]);
44 /* ../lib/standard/collection/sorter.nit:30 */
46 /* ../lib/standard/kernel.nit:237 */
47 REGB2
= TAG_Int(UNTAG_Int(REGB1
)-UNTAG_Int(REGB2
));
48 /* ../lib/standard/collection/sorter.nit:30 */
49 CALL_standard___collection___sorter___AbstractSorter___sub_sort(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1], REGB0
, REGB2
);
50 stack_frame_head
= fra
.me
.prev
;
53 void standard___collection___sorter___AbstractSorter___sub_sort(val_t p0
, val_t p1
, val_t p2
, val_t p3
){
54 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
60 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
61 fra
.me
.file
= LOCATE_standard___collection___sorter
;
63 fra
.me
.meth
= LOCATE_standard___collection___sorter___AbstractSorter___sub_sort
;
66 fra
.me
.nitni_local_ref_head
= NULL
;
67 fra
.me
.REG
[0] = NIT_NULL
;
68 fra
.me
.REG
[1] = NIT_NULL
;
73 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
74 if (UNTAG_Bool(REGB2
)) {
76 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
78 /* ../lib/standard/kernel.nit:233 */
79 REGB2
= TAG_Bool(UNTAG_Int(REGB0
)>=UNTAG_Int(REGB1
));
80 /* ../lib/standard/collection/sorter.nit:35 */
81 if (UNTAG_Bool(REGB2
)) {
82 /* ../lib/standard/collection/sorter.nit:36 */
85 /* ../lib/standard/collection/sorter.nit:37 */
87 /* ../lib/standard/kernel.nit:235 */
88 REGB2
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB2
));
89 REGB3
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2
), VTID_standard___kernel___Comparable___OTHER(REGB2
))) /*cast OTHER*/;
90 if (UNTAG_Bool(REGB3
)) {
92 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
94 /* ../lib/standard/kernel.nit:232 */
95 REGB2
= TAG_Bool(UNTAG_Int(REGB2
)<UNTAG_Int(REGB1
));
96 /* ../lib/standard/collection/sorter.nit:37 */
97 if (UNTAG_Bool(REGB2
)) {
98 /* ../lib/standard/collection/sorter.nit:38 */
99 CALL_standard___collection___sorter___AbstractSorter___quick_sort(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1], REGB0
, REGB1
);
101 /* ../lib/standard/collection/sorter.nit:40 */
102 CALL_standard___collection___sorter___AbstractSorter___bubble_sort(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1], REGB0
, REGB1
);
106 stack_frame_head
= fra
.me
.prev
;
109 void standard___collection___sorter___AbstractSorter___quick_sort(val_t p0
, val_t p1
, val_t p2
, val_t p3
){
110 struct {struct stack_frame_t me
; val_t MORE_REG
[4];} fra
;
119 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
120 fra
.me
.file
= LOCATE_standard___collection___sorter
;
122 fra
.me
.meth
= LOCATE_standard___collection___sorter___AbstractSorter___quick_sort
;
123 fra
.me
.has_broke
= 0;
125 fra
.me
.nitni_local_ref_head
= NULL
;
126 fra
.me
.REG
[0] = NIT_NULL
;
127 fra
.me
.REG
[1] = NIT_NULL
;
128 fra
.me
.REG
[2] = NIT_NULL
;
129 fra
.me
.REG
[3] = NIT_NULL
;
130 fra
.me
.REG
[4] = NIT_NULL
;
135 /* ../lib/standard/collection/array.nit:278 */
136 fra
.me
.REG
[2] = fra
.me
.REG
[1];
138 /* ../lib/standard/collection/array.nit:280 */
140 REGB4
= TAG_Bool(VAL_ISA(REGB3
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2
), VTID_standard___kernel___Comparable___OTHER(REGB2
))) /*cast OTHER*/;
141 if (UNTAG_Bool(REGB4
)) {
143 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
145 /* ../lib/standard/kernel.nit:233 */
146 REGB3
= TAG_Bool(UNTAG_Int(REGB2
)>=UNTAG_Int(REGB3
));
147 /* ../lib/standard/collection/array.nit:280 */
148 if (UNTAG_Bool(REGB3
)) {
149 REGB3
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[2])!=NIT_NULL
);
150 if (UNTAG_Bool(REGB3
)) {
152 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 280);
154 REGB3
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[2]);
155 REGB4
= TAG_Bool(VAL_ISA(REGB3
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2
), VTID_standard___kernel___Comparable___OTHER(REGB2
))) /*cast OTHER*/;
156 if (UNTAG_Bool(REGB4
)) {
158 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
160 /* ../lib/standard/kernel.nit:232 */
161 REGB3
= TAG_Bool(UNTAG_Int(REGB2
)<UNTAG_Int(REGB3
));
163 /* ../lib/standard/collection/array.nit:280 */
164 REGB4
= TAG_Bool(false);
167 if (UNTAG_Bool(REGB3
)) {
169 nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array
, 280);
171 /* ../lib/standard/collection/array.nit:281 */
172 fra
.me
.REG
[2] = ATTR_standard___collection___array___Array____items(fra
.me
.REG
[2]);
173 REGB3
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
174 if (UNTAG_Bool(REGB3
)) {
175 nit_abort("Reciever is null", NULL
, LOCATE_standard___collection___array
, 281);
177 /* ../lib/standard/collection/array.nit:718 */
178 fra
.me
.REG
[2] = ((Nit_NativeArray
)fra
.me
.REG
[2])->val
[UNTAG_Int(REGB2
)];
179 /* ../lib/standard/collection/array.nit:281 */
182 /* ../lib/standard/collection/sorter.nit:48 */
184 /* ../lib/standard/collection/sorter.nit:49 */
186 /* ../lib/standard/collection/sorter.nit:50 */
188 REGB4
= TAG_Bool(VAL_ISA(REGB2
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3
), VTID_standard___kernel___Comparable___OTHER(REGB3
))) /*cast OTHER*/;
189 if (UNTAG_Bool(REGB4
)) {
191 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
193 /* ../lib/standard/kernel.nit:234 */
194 REGB4
= TAG_Bool(UNTAG_Int(REGB3
)>UNTAG_Int(REGB2
));
195 /* ../lib/standard/collection/sorter.nit:50 */
196 if (UNTAG_Bool(REGB4
)) {
197 /* ../lib/standard/collection/sorter.nit:51 */
199 REGB4
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2
), VTID_standard___kernel___Comparable___OTHER(REGB2
))) /*cast OTHER*/;
200 if (UNTAG_Bool(REGB4
)) {
202 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
204 /* ../lib/standard/kernel.nit:231 */
205 REGB4
= TAG_Bool(UNTAG_Int(REGB2
)<=UNTAG_Int(REGB1
));
206 /* ../lib/standard/collection/sorter.nit:51 */
207 if (UNTAG_Bool(REGB4
)) {
208 /* ../lib/standard/collection/array.nit:278 */
209 fra
.me
.REG
[3] = fra
.me
.REG
[1];
211 /* ../lib/standard/collection/array.nit:280 */
213 REGB6
= TAG_Bool(VAL_ISA(REGB5
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB4
), VTID_standard___kernel___Comparable___OTHER(REGB4
))) /*cast OTHER*/;
214 if (UNTAG_Bool(REGB6
)) {
216 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
218 /* ../lib/standard/kernel.nit:233 */
219 REGB5
= TAG_Bool(UNTAG_Int(REGB4
)>=UNTAG_Int(REGB5
));
220 /* ../lib/standard/collection/array.nit:280 */
221 if (UNTAG_Bool(REGB5
)) {
222 REGB5
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[3])!=NIT_NULL
);
223 if (UNTAG_Bool(REGB5
)) {
225 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 280);
227 REGB5
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[3]);
228 REGB6
= TAG_Bool(VAL_ISA(REGB5
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB4
), VTID_standard___kernel___Comparable___OTHER(REGB4
))) /*cast OTHER*/;
229 if (UNTAG_Bool(REGB6
)) {
231 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
233 /* ../lib/standard/kernel.nit:232 */
234 REGB5
= TAG_Bool(UNTAG_Int(REGB4
)<UNTAG_Int(REGB5
));
236 /* ../lib/standard/collection/array.nit:280 */
237 REGB6
= TAG_Bool(false);
240 if (UNTAG_Bool(REGB5
)) {
242 nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array
, 280);
244 /* ../lib/standard/collection/array.nit:281 */
245 fra
.me
.REG
[3] = ATTR_standard___collection___array___Array____items(fra
.me
.REG
[3]);
246 REGB5
= TAG_Bool(fra
.me
.REG
[3]==NIT_NULL
);
247 if (UNTAG_Bool(REGB5
)) {
248 nit_abort("Reciever is null", NULL
, LOCATE_standard___collection___array
, 281);
250 /* ../lib/standard/collection/array.nit:718 */
251 fra
.me
.REG
[3] = ((Nit_NativeArray
)fra
.me
.REG
[3])->val
[UNTAG_Int(REGB4
)];
252 /* ../lib/standard/collection/array.nit:281 */
255 /* ../lib/standard/collection/sorter.nit:51 */
256 REGB4
= CALL_standard___collection___sorter___AbstractSorter___compare(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[3], fra
.me
.REG
[2]);
258 REGB6
= TAG_Bool(VAL_ISA(REGB5
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB4
), VTID_standard___kernel___Comparable___OTHER(REGB4
))) /*cast OTHER*/;
259 if (UNTAG_Bool(REGB6
)) {
261 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
263 /* ../lib/standard/kernel.nit:231 */
264 REGB5
= TAG_Bool(UNTAG_Int(REGB4
)<=UNTAG_Int(REGB5
));
266 /* ../lib/standard/collection/sorter.nit:51 */
267 REGB4
= TAG_Bool(false);
270 if (UNTAG_Bool(REGB5
)) {
272 /* ../lib/standard/kernel.nit:235 */
273 REGB5
= TAG_Int(UNTAG_Int(REGB2
)+UNTAG_Int(REGB5
));
274 /* ../lib/standard/collection/sorter.nit:51 */
281 /* ../lib/standard/collection/sorter.nit:52 */
283 REGB5
= TAG_Bool(VAL_ISA(REGB2
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3
), VTID_standard___kernel___Comparable___OTHER(REGB3
))) /*cast OTHER*/;
284 if (UNTAG_Bool(REGB5
)) {
286 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
288 /* ../lib/standard/kernel.nit:234 */
289 REGB5
= TAG_Bool(UNTAG_Int(REGB3
)>UNTAG_Int(REGB2
));
290 /* ../lib/standard/collection/sorter.nit:52 */
291 if (UNTAG_Bool(REGB5
)) {
292 /* ../lib/standard/collection/array.nit:278 */
293 fra
.me
.REG
[3] = fra
.me
.REG
[1];
295 /* ../lib/standard/collection/array.nit:280 */
297 REGB6
= TAG_Bool(VAL_ISA(REGB4
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB5
), VTID_standard___kernel___Comparable___OTHER(REGB5
))) /*cast OTHER*/;
298 if (UNTAG_Bool(REGB6
)) {
300 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
302 /* ../lib/standard/kernel.nit:233 */
303 REGB4
= TAG_Bool(UNTAG_Int(REGB5
)>=UNTAG_Int(REGB4
));
304 /* ../lib/standard/collection/array.nit:280 */
305 if (UNTAG_Bool(REGB4
)) {
306 REGB4
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[3])!=NIT_NULL
);
307 if (UNTAG_Bool(REGB4
)) {
309 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 280);
311 REGB4
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[3]);
312 REGB6
= TAG_Bool(VAL_ISA(REGB4
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB5
), VTID_standard___kernel___Comparable___OTHER(REGB5
))) /*cast OTHER*/;
313 if (UNTAG_Bool(REGB6
)) {
315 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
317 /* ../lib/standard/kernel.nit:232 */
318 REGB4
= TAG_Bool(UNTAG_Int(REGB5
)<UNTAG_Int(REGB4
));
320 /* ../lib/standard/collection/array.nit:280 */
321 REGB6
= TAG_Bool(false);
324 if (UNTAG_Bool(REGB4
)) {
326 nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array
, 280);
328 /* ../lib/standard/collection/array.nit:281 */
329 fra
.me
.REG
[3] = ATTR_standard___collection___array___Array____items(fra
.me
.REG
[3]);
330 REGB4
= TAG_Bool(fra
.me
.REG
[3]==NIT_NULL
);
331 if (UNTAG_Bool(REGB4
)) {
332 nit_abort("Reciever is null", NULL
, LOCATE_standard___collection___array
, 281);
334 /* ../lib/standard/collection/array.nit:718 */
335 fra
.me
.REG
[3] = ((Nit_NativeArray
)fra
.me
.REG
[3])->val
[UNTAG_Int(REGB5
)];
336 /* ../lib/standard/collection/array.nit:281 */
339 /* ../lib/standard/collection/sorter.nit:52 */
340 REGB5
= CALL_standard___collection___sorter___AbstractSorter___compare(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[3], fra
.me
.REG
[2]);
342 REGB6
= TAG_Bool(VAL_ISA(REGB4
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB5
), VTID_standard___kernel___Comparable___OTHER(REGB5
))) /*cast OTHER*/;
343 if (UNTAG_Bool(REGB6
)) {
345 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
347 /* ../lib/standard/kernel.nit:233 */
348 REGB4
= TAG_Bool(UNTAG_Int(REGB5
)>=UNTAG_Int(REGB4
));
350 /* ../lib/standard/collection/sorter.nit:52 */
351 REGB5
= TAG_Bool(false);
354 if (UNTAG_Bool(REGB4
)) {
356 /* ../lib/standard/kernel.nit:237 */
357 REGB4
= TAG_Int(UNTAG_Int(REGB3
)-UNTAG_Int(REGB4
));
358 /* ../lib/standard/collection/sorter.nit:52 */
365 REGB4
= TAG_Bool(VAL_ISA(REGB2
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3
), VTID_standard___kernel___Comparable___OTHER(REGB3
))) /*cast OTHER*/;
366 if (UNTAG_Bool(REGB4
)) {
368 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
370 /* ../lib/standard/kernel.nit:234 */
371 REGB4
= TAG_Bool(UNTAG_Int(REGB3
)>UNTAG_Int(REGB2
));
372 /* ../lib/standard/collection/sorter.nit:53 */
373 if (UNTAG_Bool(REGB4
)) {
374 /* ../lib/standard/collection/array.nit:278 */
375 fra
.me
.REG
[3] = fra
.me
.REG
[1];
377 /* ../lib/standard/collection/array.nit:280 */
379 REGB6
= TAG_Bool(VAL_ISA(REGB5
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB4
), VTID_standard___kernel___Comparable___OTHER(REGB4
))) /*cast OTHER*/;
380 if (UNTAG_Bool(REGB6
)) {
382 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
384 /* ../lib/standard/kernel.nit:233 */
385 REGB5
= TAG_Bool(UNTAG_Int(REGB4
)>=UNTAG_Int(REGB5
));
386 /* ../lib/standard/collection/array.nit:280 */
387 if (UNTAG_Bool(REGB5
)) {
388 REGB5
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[3])!=NIT_NULL
);
389 if (UNTAG_Bool(REGB5
)) {
391 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 280);
393 REGB5
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[3]);
394 REGB6
= TAG_Bool(VAL_ISA(REGB5
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB4
), VTID_standard___kernel___Comparable___OTHER(REGB4
))) /*cast OTHER*/;
395 if (UNTAG_Bool(REGB6
)) {
397 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
399 /* ../lib/standard/kernel.nit:232 */
400 REGB5
= TAG_Bool(UNTAG_Int(REGB4
)<UNTAG_Int(REGB5
));
402 /* ../lib/standard/collection/array.nit:280 */
403 REGB6
= TAG_Bool(false);
406 if (UNTAG_Bool(REGB5
)) {
408 nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array
, 280);
410 /* ../lib/standard/collection/array.nit:281 */
411 fra
.me
.REG
[3] = ATTR_standard___collection___array___Array____items(fra
.me
.REG
[3]);
412 REGB5
= TAG_Bool(fra
.me
.REG
[3]==NIT_NULL
);
413 if (UNTAG_Bool(REGB5
)) {
414 nit_abort("Reciever is null", NULL
, LOCATE_standard___collection___array
, 281);
416 /* ../lib/standard/collection/array.nit:718 */
417 fra
.me
.REG
[3] = ((Nit_NativeArray
)fra
.me
.REG
[3])->val
[UNTAG_Int(REGB4
)];
418 /* ../lib/standard/collection/array.nit:281 */
421 /* ../lib/standard/collection/array.nit:278 */
422 fra
.me
.REG
[4] = fra
.me
.REG
[1];
424 /* ../lib/standard/collection/array.nit:280 */
426 REGB6
= TAG_Bool(VAL_ISA(REGB5
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB4
), VTID_standard___kernel___Comparable___OTHER(REGB4
))) /*cast OTHER*/;
427 if (UNTAG_Bool(REGB6
)) {
429 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
431 /* ../lib/standard/kernel.nit:233 */
432 REGB5
= TAG_Bool(UNTAG_Int(REGB4
)>=UNTAG_Int(REGB5
));
433 /* ../lib/standard/collection/array.nit:280 */
434 if (UNTAG_Bool(REGB5
)) {
435 REGB5
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[4])!=NIT_NULL
);
436 if (UNTAG_Bool(REGB5
)) {
438 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 280);
440 REGB5
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[4]);
441 REGB6
= TAG_Bool(VAL_ISA(REGB5
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB4
), VTID_standard___kernel___Comparable___OTHER(REGB4
))) /*cast OTHER*/;
442 if (UNTAG_Bool(REGB6
)) {
444 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
446 /* ../lib/standard/kernel.nit:232 */
447 REGB5
= TAG_Bool(UNTAG_Int(REGB4
)<UNTAG_Int(REGB5
));
449 /* ../lib/standard/collection/array.nit:280 */
450 REGB6
= TAG_Bool(false);
453 if (UNTAG_Bool(REGB5
)) {
455 nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array
, 280);
457 /* ../lib/standard/collection/array.nit:281 */
458 fra
.me
.REG
[4] = ATTR_standard___collection___array___Array____items(fra
.me
.REG
[4]);
459 REGB5
= TAG_Bool(fra
.me
.REG
[4]==NIT_NULL
);
460 if (UNTAG_Bool(REGB5
)) {
461 nit_abort("Reciever is null", NULL
, LOCATE_standard___collection___array
, 281);
463 /* ../lib/standard/collection/array.nit:718 */
464 fra
.me
.REG
[4] = ((Nit_NativeArray
)fra
.me
.REG
[4])->val
[UNTAG_Int(REGB4
)];
465 /* ../lib/standard/collection/array.nit:281 */
468 /* ../lib/standard/collection/sorter.nit:55 */
469 CALL_standard___collection___abstract_collection___Sequence_____braeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], REGB2
, fra
.me
.REG
[4]);
470 /* ../lib/standard/collection/sorter.nit:56 */
471 CALL_standard___collection___abstract_collection___Sequence_____braeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], REGB3
, fra
.me
.REG
[3]);
474 /* ../lib/standard/collection/sorter.nit:50 */
479 /* ../lib/standard/collection/sorter.nit:59 */
481 /* ../lib/standard/kernel.nit:237 */
482 REGB3
= TAG_Int(UNTAG_Int(REGB2
)-UNTAG_Int(REGB3
));
483 /* ../lib/standard/collection/array.nit:278 */
484 fra
.me
.REG
[3] = fra
.me
.REG
[1];
485 /* ../lib/standard/collection/array.nit:280 */
487 REGB5
= TAG_Bool(VAL_ISA(REGB4
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3
), VTID_standard___kernel___Comparable___OTHER(REGB3
))) /*cast OTHER*/;
488 if (UNTAG_Bool(REGB5
)) {
490 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
492 /* ../lib/standard/kernel.nit:233 */
493 REGB4
= TAG_Bool(UNTAG_Int(REGB3
)>=UNTAG_Int(REGB4
));
494 /* ../lib/standard/collection/array.nit:280 */
495 if (UNTAG_Bool(REGB4
)) {
496 REGB4
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[3])!=NIT_NULL
);
497 if (UNTAG_Bool(REGB4
)) {
499 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 280);
501 REGB4
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[3]);
502 REGB5
= TAG_Bool(VAL_ISA(REGB4
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3
), VTID_standard___kernel___Comparable___OTHER(REGB3
))) /*cast OTHER*/;
503 if (UNTAG_Bool(REGB5
)) {
505 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
507 /* ../lib/standard/kernel.nit:232 */
508 REGB4
= TAG_Bool(UNTAG_Int(REGB3
)<UNTAG_Int(REGB4
));
510 /* ../lib/standard/collection/array.nit:280 */
511 REGB5
= TAG_Bool(false);
514 if (UNTAG_Bool(REGB4
)) {
516 nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array
, 280);
518 /* ../lib/standard/collection/array.nit:281 */
519 fra
.me
.REG
[3] = ATTR_standard___collection___array___Array____items(fra
.me
.REG
[3]);
520 REGB4
= TAG_Bool(fra
.me
.REG
[3]==NIT_NULL
);
521 if (UNTAG_Bool(REGB4
)) {
522 nit_abort("Reciever is null", NULL
, LOCATE_standard___collection___array
, 281);
524 /* ../lib/standard/collection/array.nit:718 */
525 fra
.me
.REG
[3] = ((Nit_NativeArray
)fra
.me
.REG
[3])->val
[UNTAG_Int(REGB3
)];
526 /* ../lib/standard/collection/array.nit:281 */
529 /* ../lib/standard/collection/sorter.nit:59 */
530 CALL_standard___collection___abstract_collection___Sequence_____braeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], REGB0
, fra
.me
.REG
[3]);
531 /* ../lib/standard/collection/sorter.nit:60 */
533 /* ../lib/standard/kernel.nit:237 */
534 REGB3
= TAG_Int(UNTAG_Int(REGB2
)-UNTAG_Int(REGB3
));
535 /* ../lib/standard/collection/sorter.nit:60 */
536 CALL_standard___collection___abstract_collection___Sequence_____braeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], REGB3
, fra
.me
.REG
[2]);
537 /* ../lib/standard/collection/sorter.nit:61 */
539 /* ../lib/standard/kernel.nit:237 */
540 REGB3
= TAG_Int(UNTAG_Int(REGB2
)-UNTAG_Int(REGB3
));
541 /* ../lib/standard/collection/sorter.nit:61 */
542 CALL_standard___collection___sorter___AbstractSorter___sub_sort(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1], REGB0
, REGB3
);
543 /* ../lib/standard/collection/sorter.nit:62 */
544 CALL_standard___collection___sorter___AbstractSorter___sub_sort(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1], REGB2
, REGB1
);
545 stack_frame_head
= fra
.me
.prev
;
548 void standard___collection___sorter___AbstractSorter___bubble_sort(val_t p0
, val_t p1
, val_t p2
, val_t p3
){
549 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
558 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
559 fra
.me
.file
= LOCATE_standard___collection___sorter
;
561 fra
.me
.meth
= LOCATE_standard___collection___sorter___AbstractSorter___bubble_sort
;
562 fra
.me
.has_broke
= 0;
564 fra
.me
.nitni_local_ref_head
= NULL
;
565 fra
.me
.REG
[0] = NIT_NULL
;
566 fra
.me
.REG
[1] = NIT_NULL
;
567 fra
.me
.REG
[2] = NIT_NULL
;
568 fra
.me
.REG
[3] = NIT_NULL
;
573 /* ../lib/standard/collection/sorter.nit:69 */
575 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
576 if (UNTAG_Bool(REGB2
)) {
578 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
580 /* ../lib/standard/kernel.nit:232 */
581 REGB2
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB1
));
582 /* ../lib/standard/collection/sorter.nit:69 */
583 if (UNTAG_Bool(REGB2
)) {
584 /* ../lib/standard/collection/sorter.nit:70 */
586 /* ../lib/standard/collection/array.nit:278 */
587 fra
.me
.REG
[2] = fra
.me
.REG
[1];
589 /* ../lib/standard/collection/array.nit:280 */
591 REGB5
= TAG_Bool(VAL_ISA(REGB4
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3
), VTID_standard___kernel___Comparable___OTHER(REGB3
))) /*cast OTHER*/;
592 if (UNTAG_Bool(REGB5
)) {
594 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
596 /* ../lib/standard/kernel.nit:233 */
597 REGB4
= TAG_Bool(UNTAG_Int(REGB3
)>=UNTAG_Int(REGB4
));
598 /* ../lib/standard/collection/array.nit:280 */
599 if (UNTAG_Bool(REGB4
)) {
600 REGB4
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[2])!=NIT_NULL
);
601 if (UNTAG_Bool(REGB4
)) {
603 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 280);
605 REGB4
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[2]);
606 REGB5
= TAG_Bool(VAL_ISA(REGB4
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3
), VTID_standard___kernel___Comparable___OTHER(REGB3
))) /*cast OTHER*/;
607 if (UNTAG_Bool(REGB5
)) {
609 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
611 /* ../lib/standard/kernel.nit:232 */
612 REGB4
= TAG_Bool(UNTAG_Int(REGB3
)<UNTAG_Int(REGB4
));
614 /* ../lib/standard/collection/array.nit:280 */
615 REGB5
= TAG_Bool(false);
618 if (UNTAG_Bool(REGB4
)) {
620 nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array
, 280);
622 /* ../lib/standard/collection/array.nit:281 */
623 fra
.me
.REG
[2] = ATTR_standard___collection___array___Array____items(fra
.me
.REG
[2]);
624 REGB4
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
625 if (UNTAG_Bool(REGB4
)) {
626 nit_abort("Reciever is null", NULL
, LOCATE_standard___collection___array
, 281);
628 /* ../lib/standard/collection/array.nit:718 */
629 fra
.me
.REG
[2] = ((Nit_NativeArray
)fra
.me
.REG
[2])->val
[UNTAG_Int(REGB3
)];
630 /* ../lib/standard/collection/array.nit:281 */
633 /* ../lib/standard/collection/sorter.nit:72 */
635 /* ../lib/standard/collection/sorter.nit:73 */
637 REGB4
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3
), VTID_standard___kernel___Comparable___OTHER(REGB3
))) /*cast OTHER*/;
638 if (UNTAG_Bool(REGB4
)) {
640 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
642 /* ../lib/standard/kernel.nit:231 */
643 REGB4
= TAG_Bool(UNTAG_Int(REGB3
)<=UNTAG_Int(REGB1
));
644 /* ../lib/standard/collection/sorter.nit:73 */
645 if (UNTAG_Bool(REGB4
)) {
646 /* ../lib/standard/collection/array.nit:278 */
647 fra
.me
.REG
[3] = fra
.me
.REG
[1];
649 /* ../lib/standard/collection/array.nit:280 */
651 REGB6
= TAG_Bool(VAL_ISA(REGB5
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB4
), VTID_standard___kernel___Comparable___OTHER(REGB4
))) /*cast OTHER*/;
652 if (UNTAG_Bool(REGB6
)) {
654 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
656 /* ../lib/standard/kernel.nit:233 */
657 REGB5
= TAG_Bool(UNTAG_Int(REGB4
)>=UNTAG_Int(REGB5
));
658 /* ../lib/standard/collection/array.nit:280 */
659 if (UNTAG_Bool(REGB5
)) {
660 REGB5
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[3])!=NIT_NULL
);
661 if (UNTAG_Bool(REGB5
)) {
663 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 280);
665 REGB5
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[3]);
666 REGB6
= TAG_Bool(VAL_ISA(REGB5
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB4
), VTID_standard___kernel___Comparable___OTHER(REGB4
))) /*cast OTHER*/;
667 if (UNTAG_Bool(REGB6
)) {
669 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
671 /* ../lib/standard/kernel.nit:232 */
672 REGB5
= TAG_Bool(UNTAG_Int(REGB4
)<UNTAG_Int(REGB5
));
674 /* ../lib/standard/collection/array.nit:280 */
675 REGB6
= TAG_Bool(false);
678 if (UNTAG_Bool(REGB5
)) {
680 nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array
, 280);
682 /* ../lib/standard/collection/array.nit:281 */
683 fra
.me
.REG
[3] = ATTR_standard___collection___array___Array____items(fra
.me
.REG
[3]);
684 REGB5
= TAG_Bool(fra
.me
.REG
[3]==NIT_NULL
);
685 if (UNTAG_Bool(REGB5
)) {
686 nit_abort("Reciever is null", NULL
, LOCATE_standard___collection___array
, 281);
688 /* ../lib/standard/collection/array.nit:718 */
689 fra
.me
.REG
[3] = ((Nit_NativeArray
)fra
.me
.REG
[3])->val
[UNTAG_Int(REGB4
)];
690 /* ../lib/standard/collection/array.nit:281 */
693 /* ../lib/standard/collection/sorter.nit:74 */
694 REGB4
= CALL_standard___collection___sorter___AbstractSorter___compare(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[2], fra
.me
.REG
[3]);
696 REGB6
= TAG_Bool(VAL_ISA(REGB5
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB4
), VTID_standard___kernel___Comparable___OTHER(REGB4
))) /*cast OTHER*/;
697 if (UNTAG_Bool(REGB6
)) {
699 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
701 /* ../lib/standard/kernel.nit:234 */
702 REGB5
= TAG_Bool(UNTAG_Int(REGB4
)>UNTAG_Int(REGB5
));
703 /* ../lib/standard/collection/sorter.nit:74 */
704 if (UNTAG_Bool(REGB5
)) {
705 /* ../lib/standard/collection/sorter.nit:75 */
707 /* ../lib/standard/collection/array.nit:278 */
708 fra
.me
.REG
[3] = fra
.me
.REG
[1];
710 /* ../lib/standard/collection/array.nit:280 */
712 REGB6
= TAG_Bool(VAL_ISA(REGB4
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB5
), VTID_standard___kernel___Comparable___OTHER(REGB5
))) /*cast OTHER*/;
713 if (UNTAG_Bool(REGB6
)) {
715 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
717 /* ../lib/standard/kernel.nit:233 */
718 REGB4
= TAG_Bool(UNTAG_Int(REGB5
)>=UNTAG_Int(REGB4
));
719 /* ../lib/standard/collection/array.nit:280 */
720 if (UNTAG_Bool(REGB4
)) {
721 REGB4
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[3])!=NIT_NULL
);
722 if (UNTAG_Bool(REGB4
)) {
724 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 280);
726 REGB4
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[3]);
727 REGB6
= TAG_Bool(VAL_ISA(REGB4
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB5
), VTID_standard___kernel___Comparable___OTHER(REGB5
))) /*cast OTHER*/;
728 if (UNTAG_Bool(REGB6
)) {
730 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
732 /* ../lib/standard/kernel.nit:232 */
733 REGB4
= TAG_Bool(UNTAG_Int(REGB5
)<UNTAG_Int(REGB4
));
735 /* ../lib/standard/collection/array.nit:280 */
736 REGB6
= TAG_Bool(false);
739 if (UNTAG_Bool(REGB4
)) {
741 nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array
, 280);
743 /* ../lib/standard/collection/array.nit:281 */
744 fra
.me
.REG
[3] = ATTR_standard___collection___array___Array____items(fra
.me
.REG
[3]);
745 REGB4
= TAG_Bool(fra
.me
.REG
[3]==NIT_NULL
);
746 if (UNTAG_Bool(REGB4
)) {
747 nit_abort("Reciever is null", NULL
, LOCATE_standard___collection___array
, 281);
749 /* ../lib/standard/collection/array.nit:718 */
750 fra
.me
.REG
[3] = ((Nit_NativeArray
)fra
.me
.REG
[3])->val
[UNTAG_Int(REGB5
)];
751 /* ../lib/standard/collection/array.nit:281 */
754 /* ../lib/standard/collection/sorter.nit:76 */
755 fra
.me
.REG
[2] = fra
.me
.REG
[3];
757 /* ../lib/standard/collection/sorter.nit:78 */
759 /* ../lib/standard/kernel.nit:235 */
760 REGB5
= TAG_Int(UNTAG_Int(REGB3
)+UNTAG_Int(REGB5
));
761 /* ../lib/standard/collection/sorter.nit:78 */
764 /* ../lib/standard/collection/sorter.nit:73 */
769 /* ../lib/standard/collection/sorter.nit:80 */
770 REGB3
= TAG_Bool(IS_EQUAL_OO(REGB2
,REGB0
));
771 if (UNTAG_Bool(REGB3
)) {
773 /* ../lib/standard/kernel.nit:227 */
774 REGB5
= TAG_Bool((REGB2
)==(REGB0
));
775 /* ../lib/standard/collection/sorter.nit:80 */
778 REGB3
= TAG_Bool(!UNTAG_Bool(REGB3
));
779 if (UNTAG_Bool(REGB3
)) {
780 /* ../lib/standard/collection/array.nit:278 */
781 fra
.me
.REG
[3] = fra
.me
.REG
[1];
783 /* ../lib/standard/collection/array.nit:280 */
785 REGB4
= TAG_Bool(VAL_ISA(REGB5
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3
), VTID_standard___kernel___Comparable___OTHER(REGB3
))) /*cast OTHER*/;
786 if (UNTAG_Bool(REGB4
)) {
788 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
790 /* ../lib/standard/kernel.nit:233 */
791 REGB5
= TAG_Bool(UNTAG_Int(REGB3
)>=UNTAG_Int(REGB5
));
792 /* ../lib/standard/collection/array.nit:280 */
793 if (UNTAG_Bool(REGB5
)) {
794 REGB5
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[3])!=NIT_NULL
);
795 if (UNTAG_Bool(REGB5
)) {
797 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 280);
799 REGB5
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[3]);
800 REGB4
= TAG_Bool(VAL_ISA(REGB5
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3
), VTID_standard___kernel___Comparable___OTHER(REGB3
))) /*cast OTHER*/;
801 if (UNTAG_Bool(REGB4
)) {
803 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
805 /* ../lib/standard/kernel.nit:232 */
806 REGB5
= TAG_Bool(UNTAG_Int(REGB3
)<UNTAG_Int(REGB5
));
808 /* ../lib/standard/collection/array.nit:280 */
809 REGB4
= TAG_Bool(false);
812 if (UNTAG_Bool(REGB5
)) {
814 nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array
, 280);
816 /* ../lib/standard/collection/array.nit:281 */
817 fra
.me
.REG
[3] = ATTR_standard___collection___array___Array____items(fra
.me
.REG
[3]);
818 REGB5
= TAG_Bool(fra
.me
.REG
[3]==NIT_NULL
);
819 if (UNTAG_Bool(REGB5
)) {
820 nit_abort("Reciever is null", NULL
, LOCATE_standard___collection___array
, 281);
822 /* ../lib/standard/collection/array.nit:718 */
823 fra
.me
.REG
[3] = ((Nit_NativeArray
)fra
.me
.REG
[3])->val
[UNTAG_Int(REGB3
)];
824 /* ../lib/standard/collection/array.nit:281 */
827 /* ../lib/standard/collection/sorter.nit:81 */
828 CALL_standard___collection___abstract_collection___Sequence_____braeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], REGB2
, fra
.me
.REG
[3]);
829 /* ../lib/standard/collection/sorter.nit:82 */
830 CALL_standard___collection___abstract_collection___Sequence_____braeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], REGB0
, fra
.me
.REG
[2]);
832 /* ../lib/standard/collection/sorter.nit:84 */
834 /* ../lib/standard/kernel.nit:235 */
835 REGB2
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB2
));
836 /* ../lib/standard/collection/sorter.nit:84 */
839 /* ../lib/standard/collection/sorter.nit:69 */
844 stack_frame_head
= fra
.me
.prev
;
847 val_t
standard___collection___sorter___ComparableSorter___compare(val_t p0
, val_t p1
, val_t p2
){
848 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
851 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
852 fra
.me
.file
= LOCATE_standard___collection___sorter
;
854 fra
.me
.meth
= LOCATE_standard___collection___sorter___ComparableSorter___compare
;
855 fra
.me
.has_broke
= 0;
857 fra
.me
.nitni_local_ref_head
= NULL
;
858 fra
.me
.REG
[0] = NIT_NULL
;
859 fra
.me
.REG
[1] = NIT_NULL
;
860 fra
.me
.REG
[2] = NIT_NULL
;
864 /* ../lib/standard/collection/sorter.nit:94 */
865 REGB0
= CALL_standard___kernel___Comparable_____leqg(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
868 stack_frame_head
= fra
.me
.prev
;
871 void standard___collection___sorter___ComparableSorter___init(val_t p0
, int* init_table
){
872 int itpos0
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_standard___collection___sorter___ComparableSorter
].i
;
873 struct {struct stack_frame_t me
;} fra
;
875 if (init_table
[itpos0
]) return;
876 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
877 fra
.me
.file
= LOCATE_standard___collection___sorter
;
879 fra
.me
.meth
= LOCATE_standard___collection___sorter___ComparableSorter___init
;
880 fra
.me
.has_broke
= 0;
882 fra
.me
.nitni_local_ref_head
= NULL
;
883 fra
.me
.REG
[0] = NIT_NULL
;
885 stack_frame_head
= fra
.me
.prev
;
886 init_table
[itpos0
] = 1;