1 /* This C file is generated by NIT to compile module location. */
2 #include "location._sep.h"
3 val_t
location___SourceFile___filename(val_t p0
){
4 struct {struct stack_frame_t me
;} fra
;
7 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
8 fra
.me
.file
= LOCATE_location
;
10 fra
.me
.meth
= LOCATE_location___SourceFile___filename
;
13 fra
.me
.nitni_local_ref_head
= NULL
;
14 fra
.me
.REG
[0] = NIT_NULL
;
17 REGB0
= TAG_Bool(ATTR_location___SourceFile_____atfilename(fra
.me
.REG
[0])!=NIT_NULL
);
18 if (UNTAG_Bool(REGB0
)) {
20 nit_abort("Uninitialized attribute %s", "@filename", LOCATE_location
, 22);
22 fra
.me
.REG
[0] = ATTR_location___SourceFile_____atfilename(fra
.me
.REG
[0]);
23 stack_frame_head
= fra
.me
.prev
;
26 void location___SourceFile___filename__eq(val_t p0
, val_t p1
){
27 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
29 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
30 fra
.me
.file
= LOCATE_location
;
32 fra
.me
.meth
= LOCATE_location___SourceFile___filename__eq
;
35 fra
.me
.nitni_local_ref_head
= NULL
;
36 fra
.me
.REG
[0] = NIT_NULL
;
37 fra
.me
.REG
[1] = NIT_NULL
;
41 ATTR_location___SourceFile_____atfilename(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
42 stack_frame_head
= fra
.me
.prev
;
45 val_t
location___SourceFile___string(val_t p0
){
46 struct {struct stack_frame_t me
;} fra
;
49 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
50 fra
.me
.file
= LOCATE_location
;
52 fra
.me
.meth
= LOCATE_location___SourceFile___string
;
55 fra
.me
.nitni_local_ref_head
= NULL
;
56 fra
.me
.REG
[0] = NIT_NULL
;
59 REGB0
= TAG_Bool(ATTR_location___SourceFile_____atstring(fra
.me
.REG
[0])!=NIT_NULL
);
60 if (UNTAG_Bool(REGB0
)) {
62 nit_abort("Uninitialized attribute %s", "@string", LOCATE_location
, 25);
64 fra
.me
.REG
[0] = ATTR_location___SourceFile_____atstring(fra
.me
.REG
[0]);
65 stack_frame_head
= fra
.me
.prev
;
68 void location___SourceFile___string__eq(val_t p0
, val_t p1
){
69 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
71 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
72 fra
.me
.file
= LOCATE_location
;
74 fra
.me
.meth
= LOCATE_location___SourceFile___string__eq
;
77 fra
.me
.nitni_local_ref_head
= NULL
;
78 fra
.me
.REG
[0] = NIT_NULL
;
79 fra
.me
.REG
[1] = NIT_NULL
;
83 ATTR_location___SourceFile_____atstring(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
84 stack_frame_head
= fra
.me
.prev
;
87 void location___SourceFile___init(val_t p0
, val_t p1
, val_t p2
, int* init_table
){
88 int itpos0
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_location___SourceFile
].i
;
89 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
93 if (init_table
[itpos0
]) return;
94 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
95 fra
.me
.file
= LOCATE_location
;
97 fra
.me
.meth
= LOCATE_location___SourceFile___init
;
100 fra
.me
.nitni_local_ref_head
= NULL
;
101 fra
.me
.REG
[0] = NIT_NULL
;
102 fra
.me
.REG
[1] = NIT_NULL
;
103 fra
.me
.REG
[2] = NIT_NULL
;
107 /* location.nit:31 */
108 CALL_location___SourceFile___filename__eq(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
109 /* location.nit:32 */
110 fra
.me
.REG
[2] = CALL_standard___stream___IStream___read_all(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
111 CALL_location___SourceFile___string__eq(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[2]);
112 /* location.nit:33 */
113 fra
.me
.REG
[0] = CALL_location___SourceFile___line_starts(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
116 CALL_standard___collection___abstract_collection___Sequence_____braeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB0
, REGB1
);
117 stack_frame_head
= fra
.me
.prev
;
118 init_table
[itpos0
] = 1;
121 val_t
location___SourceFile___line_starts(val_t p0
){
122 struct {struct stack_frame_t me
;} fra
;
125 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
126 fra
.me
.file
= LOCATE_location
;
128 fra
.me
.meth
= LOCATE_location___SourceFile___line_starts
;
129 fra
.me
.has_broke
= 0;
131 fra
.me
.nitni_local_ref_head
= NULL
;
132 fra
.me
.REG
[0] = NIT_NULL
;
134 /* location.nit:36 */
135 REGB0
= TAG_Bool(ATTR_location___SourceFile_____atline_starts(fra
.me
.REG
[0])!=NIT_NULL
);
136 if (UNTAG_Bool(REGB0
)) {
138 nit_abort("Uninitialized attribute %s", "@line_starts", LOCATE_location
, 36);
140 fra
.me
.REG
[0] = ATTR_location___SourceFile_____atline_starts(fra
.me
.REG
[0]);
141 stack_frame_head
= fra
.me
.prev
;
142 return fra
.me
.REG
[0];
144 void location___SourceFile___line_starts__eq(val_t p0
, val_t p1
){
145 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
147 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
148 fra
.me
.file
= LOCATE_location
;
150 fra
.me
.meth
= LOCATE_location___SourceFile___line_starts__eq
;
151 fra
.me
.has_broke
= 0;
153 fra
.me
.nitni_local_ref_head
= NULL
;
154 fra
.me
.REG
[0] = NIT_NULL
;
155 fra
.me
.REG
[1] = NIT_NULL
;
158 /* location.nit:36 */
159 ATTR_location___SourceFile_____atline_starts(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
160 stack_frame_head
= fra
.me
.prev
;
163 val_t
location___Location___file(val_t p0
){
164 struct {struct stack_frame_t me
;} fra
;
166 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
167 fra
.me
.file
= LOCATE_location
;
169 fra
.me
.meth
= LOCATE_location___Location___file
;
170 fra
.me
.has_broke
= 0;
172 fra
.me
.nitni_local_ref_head
= NULL
;
173 fra
.me
.REG
[0] = NIT_NULL
;
175 /* location.nit:45 */
176 fra
.me
.REG
[0] = ATTR_location___Location____file(fra
.me
.REG
[0]);
177 stack_frame_head
= fra
.me
.prev
;
178 return fra
.me
.REG
[0];
180 val_t
location___Location___line_start(val_t p0
){
181 struct {struct stack_frame_t me
;} fra
;
184 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
185 fra
.me
.file
= LOCATE_location
;
187 fra
.me
.meth
= LOCATE_location___Location___line_start
;
188 fra
.me
.has_broke
= 0;
190 fra
.me
.nitni_local_ref_head
= NULL
;
191 fra
.me
.REG
[0] = NIT_NULL
;
193 /* location.nit:46 */
194 REGB0
= TAG_Bool(ATTR_location___Location____line_start(fra
.me
.REG
[0])!=NIT_NULL
);
195 if (UNTAG_Bool(REGB0
)) {
197 nit_abort("Uninitialized attribute %s", "_line_start", LOCATE_location
, 46);
199 REGB0
= ATTR_location___Location____line_start(fra
.me
.REG
[0]);
200 stack_frame_head
= fra
.me
.prev
;
203 val_t
location___Location___line_end(val_t p0
){
204 struct {struct stack_frame_t me
;} fra
;
207 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
208 fra
.me
.file
= LOCATE_location
;
210 fra
.me
.meth
= LOCATE_location___Location___line_end
;
211 fra
.me
.has_broke
= 0;
213 fra
.me
.nitni_local_ref_head
= NULL
;
214 fra
.me
.REG
[0] = NIT_NULL
;
216 /* location.nit:47 */
217 REGB0
= TAG_Bool(ATTR_location___Location____line_end(fra
.me
.REG
[0])!=NIT_NULL
);
218 if (UNTAG_Bool(REGB0
)) {
220 nit_abort("Uninitialized attribute %s", "_line_end", LOCATE_location
, 47);
222 REGB0
= ATTR_location___Location____line_end(fra
.me
.REG
[0]);
223 stack_frame_head
= fra
.me
.prev
;
226 val_t
location___Location___column_start(val_t p0
){
227 struct {struct stack_frame_t me
;} fra
;
230 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
231 fra
.me
.file
= LOCATE_location
;
233 fra
.me
.meth
= LOCATE_location___Location___column_start
;
234 fra
.me
.has_broke
= 0;
236 fra
.me
.nitni_local_ref_head
= NULL
;
237 fra
.me
.REG
[0] = NIT_NULL
;
239 /* location.nit:48 */
240 REGB0
= TAG_Bool(ATTR_location___Location____column_start(fra
.me
.REG
[0])!=NIT_NULL
);
241 if (UNTAG_Bool(REGB0
)) {
243 nit_abort("Uninitialized attribute %s", "_column_start", LOCATE_location
, 48);
245 REGB0
= ATTR_location___Location____column_start(fra
.me
.REG
[0]);
246 stack_frame_head
= fra
.me
.prev
;
249 val_t
location___Location___column_end(val_t p0
){
250 struct {struct stack_frame_t me
;} fra
;
253 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
254 fra
.me
.file
= LOCATE_location
;
256 fra
.me
.meth
= LOCATE_location___Location___column_end
;
257 fra
.me
.has_broke
= 0;
259 fra
.me
.nitni_local_ref_head
= NULL
;
260 fra
.me
.REG
[0] = NIT_NULL
;
262 /* location.nit:49 */
263 REGB0
= TAG_Bool(ATTR_location___Location____column_end(fra
.me
.REG
[0])!=NIT_NULL
);
264 if (UNTAG_Bool(REGB0
)) {
266 nit_abort("Uninitialized attribute %s", "_column_end", LOCATE_location
, 49);
268 REGB0
= ATTR_location___Location____column_end(fra
.me
.REG
[0]);
269 stack_frame_head
= fra
.me
.prev
;
272 void location___Location___init(val_t p0
, val_t p1
, val_t p2
, val_t p3
, val_t p4
, val_t p5
, int* init_table
){
273 int itpos1
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_location___Location
].i
;
274 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
280 if (init_table
[itpos1
]) return;
281 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
282 fra
.me
.file
= LOCATE_location
;
284 fra
.me
.meth
= LOCATE_location___Location___init
;
285 fra
.me
.has_broke
= 0;
287 fra
.me
.nitni_local_ref_head
= NULL
;
288 fra
.me
.REG
[0] = NIT_NULL
;
289 fra
.me
.REG
[1] = NIT_NULL
;
296 /* location.nit:52 */
297 ATTR_location___Location____file(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
298 /* location.nit:53 */
299 ATTR_location___Location____line_start(fra
.me
.REG
[0]) = REGB0
;
300 /* location.nit:54 */
301 ATTR_location___Location____line_end(fra
.me
.REG
[0]) = REGB1
;
302 /* location.nit:55 */
303 ATTR_location___Location____column_start(fra
.me
.REG
[0]) = REGB2
;
304 /* location.nit:56 */
305 ATTR_location___Location____column_end(fra
.me
.REG
[0]) = REGB3
;
306 stack_frame_head
= fra
.me
.prev
;
307 init_table
[itpos1
] = 1;
310 void location___Location___with_file(val_t p0
, val_t p1
, int* init_table
){
311 int itpos2
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_location___Location
].i
;
312 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
318 if (init_table
[itpos2
]) return;
319 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
320 fra
.me
.file
= LOCATE_location
;
322 fra
.me
.meth
= LOCATE_location___Location___with_file
;
323 fra
.me
.has_broke
= 0;
325 fra
.me
.nitni_local_ref_head
= NULL
;
326 fra
.me
.REG
[0] = NIT_NULL
;
327 fra
.me
.REG
[1] = NIT_NULL
;
330 /* location.nit:59 */
335 CALL_location___Location___init(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1], REGB0
, REGB1
, REGB2
, REGB3
, init_table
);
336 stack_frame_head
= fra
.me
.prev
;
337 init_table
[itpos2
] = 1;
340 val_t
location___Location_____eqeq(val_t p0
, val_t p1
){
341 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
347 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
348 fra
.me
.file
= LOCATE_location
;
350 fra
.me
.meth
= LOCATE_location___Location_____eqeq
;
351 fra
.me
.has_broke
= 0;
353 fra
.me
.nitni_local_ref_head
= NULL
;
354 fra
.me
.REG
[0] = NIT_NULL
;
355 fra
.me
.REG
[1] = NIT_NULL
;
356 fra
.me
.REG
[2] = NIT_NULL
;
357 fra
.me
.REG
[3] = NIT_NULL
;
360 /* location.nit:62 */
361 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
362 if (UNTAG_Bool(REGB0
)) {
364 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
365 if (UNTAG_Bool(REGB1
)) {
366 REGB1
= TAG_Bool(false);
369 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], NIT_NULL
);
373 if (UNTAG_Bool(REGB0
)) {
374 REGB0
= TAG_Bool(false);
377 /* location.nit:63 */
378 REGB1
= TAG_Bool((fra
.me
.REG
[1]!=NIT_NULL
) && VAL_ISA(fra
.me
.REG
[1], COLOR_location___Location
, ID_location___Location
)) /*cast Location*/;
379 REGB1
= TAG_Bool(!UNTAG_Bool(REGB1
));
380 if (UNTAG_Bool(REGB1
)) {
381 REGB1
= TAG_Bool(false);
385 /* location.nit:65 */
386 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
387 if (UNTAG_Bool(REGB1
)) {
388 nit_abort("Reciever is null", NULL
, LOCATE_location
, 65);
390 fra
.me
.REG
[2] = CALL_location___Location___file(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
391 fra
.me
.REG
[3] = CALL_location___Location___file(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
392 REGB1
= TAG_Bool(IS_EQUAL_NN(fra
.me
.REG
[2],fra
.me
.REG
[3]));
393 if (UNTAG_Bool(REGB1
)) {
395 REGB2
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
396 if (UNTAG_Bool(REGB2
)) {
397 REGB2
= TAG_Bool(false);
400 REGB2
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
404 REGB1
= TAG_Bool(!UNTAG_Bool(REGB1
));
405 if (UNTAG_Bool(REGB1
)) {
406 REGB1
= TAG_Bool(false);
410 /* location.nit:66 */
411 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
412 if (UNTAG_Bool(REGB1
)) {
413 nit_abort("Reciever is null", NULL
, LOCATE_location
, 66);
415 REGB1
= CALL_location___Location___line_start(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
416 REGB2
= CALL_location___Location___line_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
417 REGB3
= TAG_Bool(IS_EQUAL_OO(REGB1
,REGB2
));
418 if (UNTAG_Bool(REGB3
)) {
420 /* ../lib/standard/kernel.nit:227 */
421 REGB2
= TAG_Bool((REGB1
)==(REGB2
));
422 /* location.nit:66 */
425 REGB3
= TAG_Bool(!UNTAG_Bool(REGB3
));
426 if (UNTAG_Bool(REGB3
)) {
427 REGB3
= TAG_Bool(false);
431 /* location.nit:67 */
432 REGB3
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
433 if (UNTAG_Bool(REGB3
)) {
434 nit_abort("Reciever is null", NULL
, LOCATE_location
, 67);
436 REGB3
= CALL_location___Location___line_end(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
437 REGB2
= CALL_location___Location___line_end(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
438 REGB1
= TAG_Bool(IS_EQUAL_OO(REGB3
,REGB2
));
439 if (UNTAG_Bool(REGB1
)) {
441 /* ../lib/standard/kernel.nit:227 */
442 REGB2
= TAG_Bool((REGB3
)==(REGB2
));
443 /* location.nit:67 */
446 REGB1
= TAG_Bool(!UNTAG_Bool(REGB1
));
447 if (UNTAG_Bool(REGB1
)) {
448 REGB1
= TAG_Bool(false);
452 /* location.nit:68 */
453 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
454 if (UNTAG_Bool(REGB1
)) {
455 nit_abort("Reciever is null", NULL
, LOCATE_location
, 68);
457 REGB1
= CALL_location___Location___column_start(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
458 REGB2
= CALL_location___Location___column_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
459 REGB3
= TAG_Bool(IS_EQUAL_OO(REGB1
,REGB2
));
460 if (UNTAG_Bool(REGB3
)) {
462 /* ../lib/standard/kernel.nit:227 */
463 REGB2
= TAG_Bool((REGB1
)==(REGB2
));
464 /* location.nit:68 */
467 REGB3
= TAG_Bool(!UNTAG_Bool(REGB3
));
468 if (UNTAG_Bool(REGB3
)) {
469 REGB3
= TAG_Bool(false);
473 /* location.nit:69 */
474 REGB3
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
475 if (UNTAG_Bool(REGB3
)) {
476 nit_abort("Reciever is null", NULL
, LOCATE_location
, 69);
478 REGB3
= CALL_location___Location___column_end(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
479 REGB2
= CALL_location___Location___column_end(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
480 REGB1
= TAG_Bool(IS_EQUAL_OO(REGB3
,REGB2
));
481 if (UNTAG_Bool(REGB1
)) {
483 /* ../lib/standard/kernel.nit:227 */
484 REGB2
= TAG_Bool((REGB3
)==(REGB2
));
485 /* location.nit:69 */
488 REGB1
= TAG_Bool(!UNTAG_Bool(REGB1
));
489 if (UNTAG_Bool(REGB1
)) {
490 REGB1
= TAG_Bool(false);
494 /* location.nit:71 */
495 REGB1
= TAG_Bool(true);
499 stack_frame_head
= fra
.me
.prev
;
502 val_t
location___Location___located_in(val_t p0
, val_t p1
){
503 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
509 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
510 fra
.me
.file
= LOCATE_location
;
512 fra
.me
.meth
= LOCATE_location___Location___located_in
;
513 fra
.me
.has_broke
= 0;
515 fra
.me
.nitni_local_ref_head
= NULL
;
516 fra
.me
.REG
[0] = NIT_NULL
;
517 fra
.me
.REG
[1] = NIT_NULL
;
520 /* location.nit:75 */
521 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
522 if (UNTAG_Bool(REGB0
)) {
524 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
525 if (UNTAG_Bool(REGB1
)) {
526 REGB1
= TAG_Bool(false);
529 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], NIT_NULL
);
533 if (UNTAG_Bool(REGB0
)) {
534 REGB0
= TAG_Bool(false);
537 /* location.nit:77 */
538 REGB1
= CALL_location___Location___line_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
539 REGB2
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
540 if (UNTAG_Bool(REGB2
)) {
541 nit_abort("Reciever is null", NULL
, LOCATE_location
, 77);
543 REGB2
= CALL_location___Location___line_start(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
544 REGB3
= TAG_Bool(VAL_ISA(REGB2
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1
), VTID_standard___kernel___Comparable___OTHER(REGB1
))) /*cast OTHER*/;
545 if (UNTAG_Bool(REGB3
)) {
547 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
549 /* ../lib/standard/kernel.nit:232 */
550 REGB2
= TAG_Bool(UNTAG_Int(REGB1
)<UNTAG_Int(REGB2
));
551 /* location.nit:77 */
552 if (UNTAG_Bool(REGB2
)) {
553 REGB2
= TAG_Bool(false);
557 /* location.nit:78 */
558 REGB2
= CALL_location___Location___line_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
559 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
560 if (UNTAG_Bool(REGB1
)) {
561 nit_abort("Reciever is null", NULL
, LOCATE_location
, 78);
563 REGB1
= CALL_location___Location___line_end(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
564 REGB3
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2
), VTID_standard___kernel___Comparable___OTHER(REGB2
))) /*cast OTHER*/;
565 if (UNTAG_Bool(REGB3
)) {
567 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
569 /* ../lib/standard/kernel.nit:234 */
570 REGB1
= TAG_Bool(UNTAG_Int(REGB2
)>UNTAG_Int(REGB1
));
571 /* location.nit:78 */
572 if (UNTAG_Bool(REGB1
)) {
573 REGB1
= TAG_Bool(false);
577 /* location.nit:80 */
578 REGB1
= CALL_location___Location___line_end(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
579 REGB2
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
580 if (UNTAG_Bool(REGB2
)) {
581 nit_abort("Reciever is null", NULL
, LOCATE_location
, 80);
583 REGB2
= CALL_location___Location___line_end(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
584 REGB3
= TAG_Bool(VAL_ISA(REGB2
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1
), VTID_standard___kernel___Comparable___OTHER(REGB1
))) /*cast OTHER*/;
585 if (UNTAG_Bool(REGB3
)) {
587 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
589 /* ../lib/standard/kernel.nit:234 */
590 REGB2
= TAG_Bool(UNTAG_Int(REGB1
)>UNTAG_Int(REGB2
));
591 /* location.nit:80 */
592 if (UNTAG_Bool(REGB2
)) {
593 REGB2
= TAG_Bool(false);
597 /* location.nit:82 */
598 REGB2
= CALL_location___Location___line_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
599 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
600 if (UNTAG_Bool(REGB1
)) {
601 nit_abort("Reciever is null", NULL
, LOCATE_location
, 82);
603 REGB1
= CALL_location___Location___line_start(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
604 REGB3
= TAG_Bool(IS_EQUAL_OO(REGB2
,REGB1
));
605 if (UNTAG_Bool(REGB3
)) {
607 /* ../lib/standard/kernel.nit:227 */
608 REGB1
= TAG_Bool((REGB2
)==(REGB1
));
609 /* location.nit:82 */
612 if (UNTAG_Bool(REGB3
)) {
613 /* location.nit:83 */
614 REGB3
= CALL_location___Location___column_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
615 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
616 if (UNTAG_Bool(REGB1
)) {
617 nit_abort("Reciever is null", NULL
, LOCATE_location
, 83);
619 REGB1
= CALL_location___Location___column_start(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
620 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3
), VTID_standard___kernel___Comparable___OTHER(REGB3
))) /*cast OTHER*/;
621 if (UNTAG_Bool(REGB2
)) {
623 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
625 /* ../lib/standard/kernel.nit:232 */
626 REGB1
= TAG_Bool(UNTAG_Int(REGB3
)<UNTAG_Int(REGB1
));
627 /* location.nit:83 */
628 if (UNTAG_Bool(REGB1
)) {
629 REGB1
= TAG_Bool(false);
633 /* location.nit:84 */
634 REGB1
= CALL_location___Location___column_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
635 REGB3
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
636 if (UNTAG_Bool(REGB3
)) {
637 nit_abort("Reciever is null", NULL
, LOCATE_location
, 84);
639 REGB3
= CALL_location___Location___column_end(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
640 REGB2
= TAG_Bool(VAL_ISA(REGB3
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1
), VTID_standard___kernel___Comparable___OTHER(REGB1
))) /*cast OTHER*/;
641 if (UNTAG_Bool(REGB2
)) {
643 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
645 /* ../lib/standard/kernel.nit:234 */
646 REGB3
= TAG_Bool(UNTAG_Int(REGB1
)>UNTAG_Int(REGB3
));
647 /* location.nit:84 */
648 if (UNTAG_Bool(REGB3
)) {
649 REGB3
= TAG_Bool(false);
654 /* location.nit:87 */
655 REGB3
= CALL_location___Location___line_end(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
656 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
657 if (UNTAG_Bool(REGB1
)) {
658 nit_abort("Reciever is null", NULL
, LOCATE_location
, 87);
660 REGB1
= CALL_location___Location___line_end(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
661 REGB2
= TAG_Bool(IS_EQUAL_OO(REGB3
,REGB1
));
662 if (UNTAG_Bool(REGB2
)) {
664 /* ../lib/standard/kernel.nit:227 */
665 REGB1
= TAG_Bool((REGB3
)==(REGB1
));
666 /* location.nit:87 */
669 if (UNTAG_Bool(REGB2
)) {
670 REGB2
= CALL_location___Location___column_end(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
671 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
672 if (UNTAG_Bool(REGB1
)) {
673 nit_abort("Reciever is null", NULL
, LOCATE_location
, 87);
675 REGB1
= CALL_location___Location___column_end(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
676 REGB3
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2
), VTID_standard___kernel___Comparable___OTHER(REGB2
))) /*cast OTHER*/;
677 if (UNTAG_Bool(REGB3
)) {
679 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
681 /* ../lib/standard/kernel.nit:234 */
682 REGB1
= TAG_Bool(UNTAG_Int(REGB2
)>UNTAG_Int(REGB1
));
684 /* location.nit:87 */
685 REGB2
= TAG_Bool(false);
688 if (UNTAG_Bool(REGB1
)) {
689 REGB1
= TAG_Bool(false);
693 /* location.nit:89 */
694 REGB1
= TAG_Bool(true);
698 stack_frame_head
= fra
.me
.prev
;
701 val_t
location___Location___to_s(val_t p0
){
702 struct {struct stack_frame_t me
; val_t MORE_REG
[4];} fra
;
707 static val_t once_value_1
; /* Once value */
708 static val_t once_value_2
; /* Once value */
709 static val_t once_value_3
; /* Once value */
710 static val_t once_value_4
; /* Once value */
711 static val_t once_value_5
; /* Once value */
712 static val_t once_value_6
; /* Once value */
713 static val_t once_value_8
; /* Once value */
714 static val_t once_value_9
; /* Once value */
715 static val_t once_value_10
; /* Once value */
716 static val_t once_value_11
; /* Once value */
717 static val_t once_value_12
; /* Once value */
718 static val_t once_value_13
; /* Once value */
719 static val_t once_value_14
; /* Once value */
720 static val_t once_value_15
; /* Once value */
721 static val_t once_value_16
; /* Once value */
722 static val_t once_value_17
; /* Once value */
723 static val_t once_value_18
; /* Once value */
724 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
725 fra
.me
.file
= LOCATE_location
;
727 fra
.me
.meth
= LOCATE_location___Location___to_s
;
728 fra
.me
.has_broke
= 0;
730 fra
.me
.nitni_local_ref_head
= NULL
;
731 fra
.me
.REG
[0] = NIT_NULL
;
732 fra
.me
.REG
[1] = NIT_NULL
;
733 fra
.me
.REG
[2] = NIT_NULL
;
734 fra
.me
.REG
[3] = NIT_NULL
;
735 fra
.me
.REG
[4] = NIT_NULL
;
737 /* location.nit:93 */
739 fra
.me
.REG
[1] = BOX_NativeString("");
741 fra
.me
.REG
[1] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[1], REGB0
);
742 once_value_1
= fra
.me
.REG
[1];
743 register_static_object(&once_value_1
);
744 } else fra
.me
.REG
[1] = once_value_1
;
745 fra
.me
.REG
[1] = fra
.me
.REG
[1];
746 /* location.nit:94 */
747 fra
.me
.REG
[2] = CALL_location___Location___file(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
748 REGB0
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
749 if (UNTAG_Bool(REGB0
)) {
751 REGB1
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
752 if (UNTAG_Bool(REGB1
)) {
753 REGB1
= TAG_Bool(false);
756 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[2])(fra
.me
.REG
[2], NIT_NULL
);
760 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
761 if (UNTAG_Bool(REGB0
)) {
762 /* location.nit:95 */
763 fra
.me
.REG
[2] = CALL_location___Location___file(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
764 REGB0
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
765 if (UNTAG_Bool(REGB0
)) {
766 nit_abort("Reciever is null", NULL
, LOCATE_location
, 95);
768 fra
.me
.REG
[2] = CALL_location___SourceFile___filename(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
769 fra
.me
.REG
[1] = fra
.me
.REG
[2];
770 /* location.nit:96 */
771 fra
.me
.REG
[2] = CALL_location___Location___file(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
772 REGB0
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
773 if (UNTAG_Bool(REGB0
)) {
774 nit_abort("Reciever is null", NULL
, LOCATE_location
, 96);
776 fra
.me
.REG
[2] = CALL_location___SourceFile___filename(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
777 /* ../lib/standard/collection/array.nit:24 */
778 REGB0
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[2])!=NIT_NULL
);
779 if (UNTAG_Bool(REGB0
)) {
781 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
783 REGB0
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[2]);
784 /* location.nit:96 */
786 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
787 if (UNTAG_Bool(REGB2
)) {
789 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
791 /* ../lib/standard/kernel.nit:234 */
792 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)>UNTAG_Int(REGB1
));
793 /* location.nit:96 */
794 if (UNTAG_Bool(REGB1
)) {
796 fra
.me
.REG
[2] = BOX_NativeString(":");
798 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB1
);
799 once_value_2
= fra
.me
.REG
[2];
800 register_static_object(&once_value_2
);
801 } else fra
.me
.REG
[2] = once_value_2
;
802 fra
.me
.REG
[2] = fra
.me
.REG
[2];
803 fra
.me
.REG
[2] = CALL_standard___string___String_____plus(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
804 fra
.me
.REG
[1] = fra
.me
.REG
[2];
807 /* location.nit:99 */
808 REGB1
= CALL_location___Location___line_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
809 REGB0
= CALL_location___Location___line_end(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
810 REGB2
= TAG_Bool(IS_EQUAL_OO(REGB1
,REGB0
));
811 if (UNTAG_Bool(REGB2
)) {
813 /* ../lib/standard/kernel.nit:227 */
814 REGB0
= TAG_Bool((REGB1
)==(REGB0
));
815 /* location.nit:99 */
818 if (UNTAG_Bool(REGB2
)) {
819 /* location.nit:100 */
820 REGB2
= CALL_location___Location___column_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
821 REGB0
= CALL_location___Location___column_end(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
822 REGB1
= TAG_Bool(IS_EQUAL_OO(REGB2
,REGB0
));
823 if (UNTAG_Bool(REGB1
)) {
825 /* ../lib/standard/kernel.nit:227 */
826 REGB0
= TAG_Bool((REGB2
)==(REGB0
));
827 /* location.nit:100 */
830 if (UNTAG_Bool(REGB1
)) {
831 /* location.nit:101 */
833 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1
);
835 fra
.me
.REG
[3] = BOX_NativeString("");
837 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB1
);
838 once_value_3
= fra
.me
.REG
[3];
839 register_static_object(&once_value_3
);
840 } else fra
.me
.REG
[3] = once_value_3
;
841 fra
.me
.REG
[3] = fra
.me
.REG
[3];
842 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
843 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
845 fra
.me
.REG
[3] = BOX_NativeString("");
847 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB1
);
848 once_value_4
= fra
.me
.REG
[3];
849 register_static_object(&once_value_4
);
850 } else fra
.me
.REG
[3] = once_value_4
;
851 fra
.me
.REG
[3] = fra
.me
.REG
[3];
852 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
853 REGB1
= CALL_location___Location___line_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
854 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(REGB1
)(REGB1
);
855 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
857 fra
.me
.REG
[3] = BOX_NativeString(",");
859 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB1
);
860 once_value_5
= fra
.me
.REG
[3];
861 register_static_object(&once_value_5
);
862 } else fra
.me
.REG
[3] = once_value_5
;
863 fra
.me
.REG
[3] = fra
.me
.REG
[3];
864 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
865 REGB1
= CALL_location___Location___column_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
866 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(REGB1
)(REGB1
);
867 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
869 fra
.me
.REG
[3] = BOX_NativeString("");
871 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB1
);
872 once_value_6
= fra
.me
.REG
[3];
873 register_static_object(&once_value_6
);
874 } else fra
.me
.REG
[3] = once_value_6
;
875 fra
.me
.REG
[3] = fra
.me
.REG
[3];
876 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
877 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
880 /* location.nit:103 */
882 fra
.me
.REG
[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1
);
884 fra
.me
.REG
[4] = BOX_NativeString("");
886 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB1
);
887 once_value_8
= fra
.me
.REG
[4];
888 register_static_object(&once_value_8
);
889 } else fra
.me
.REG
[4] = once_value_8
;
890 fra
.me
.REG
[4] = fra
.me
.REG
[4];
891 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
892 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[1]);
894 fra
.me
.REG
[4] = BOX_NativeString("");
896 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB1
);
897 once_value_9
= fra
.me
.REG
[4];
898 register_static_object(&once_value_9
);
899 } else fra
.me
.REG
[4] = once_value_9
;
900 fra
.me
.REG
[4] = fra
.me
.REG
[4];
901 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
902 REGB1
= CALL_location___Location___line_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
903 fra
.me
.REG
[4] = CALL_standard___string___Object___to_s(REGB1
)(REGB1
);
904 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
905 if (!once_value_10
) {
906 fra
.me
.REG
[4] = BOX_NativeString(",");
908 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB1
);
909 once_value_10
= fra
.me
.REG
[4];
910 register_static_object(&once_value_10
);
911 } else fra
.me
.REG
[4] = once_value_10
;
912 fra
.me
.REG
[4] = fra
.me
.REG
[4];
913 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
914 REGB1
= CALL_location___Location___column_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
915 fra
.me
.REG
[4] = CALL_standard___string___Object___to_s(REGB1
)(REGB1
);
916 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
917 if (!once_value_11
) {
918 fra
.me
.REG
[4] = BOX_NativeString("--");
920 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB1
);
921 once_value_11
= fra
.me
.REG
[4];
922 register_static_object(&once_value_11
);
923 } else fra
.me
.REG
[4] = once_value_11
;
924 fra
.me
.REG
[4] = fra
.me
.REG
[4];
925 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
926 REGB1
= CALL_location___Location___column_end(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
927 fra
.me
.REG
[4] = CALL_standard___string___Object___to_s(REGB1
)(REGB1
);
928 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
929 if (!once_value_12
) {
930 fra
.me
.REG
[4] = BOX_NativeString("");
932 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB1
);
933 once_value_12
= fra
.me
.REG
[4];
934 register_static_object(&once_value_12
);
935 } else fra
.me
.REG
[4] = once_value_12
;
936 fra
.me
.REG
[4] = fra
.me
.REG
[4];
937 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
938 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
939 fra
.me
.REG
[2] = fra
.me
.REG
[3];
943 /* location.nit:106 */
945 fra
.me
.REG
[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1
);
946 if (!once_value_13
) {
947 fra
.me
.REG
[4] = BOX_NativeString("");
949 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB1
);
950 once_value_13
= fra
.me
.REG
[4];
951 register_static_object(&once_value_13
);
952 } else fra
.me
.REG
[4] = once_value_13
;
953 fra
.me
.REG
[4] = fra
.me
.REG
[4];
954 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
955 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[1]);
956 if (!once_value_14
) {
957 fra
.me
.REG
[1] = BOX_NativeString("");
959 fra
.me
.REG
[1] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[1], REGB1
);
960 once_value_14
= fra
.me
.REG
[1];
961 register_static_object(&once_value_14
);
962 } else fra
.me
.REG
[1] = once_value_14
;
963 fra
.me
.REG
[1] = fra
.me
.REG
[1];
964 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[1]);
965 REGB1
= CALL_location___Location___line_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
966 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(REGB1
)(REGB1
);
967 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[1]);
968 if (!once_value_15
) {
969 fra
.me
.REG
[1] = BOX_NativeString(",");
971 fra
.me
.REG
[1] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[1], REGB1
);
972 once_value_15
= fra
.me
.REG
[1];
973 register_static_object(&once_value_15
);
974 } else fra
.me
.REG
[1] = once_value_15
;
975 fra
.me
.REG
[1] = fra
.me
.REG
[1];
976 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[1]);
977 REGB1
= CALL_location___Location___column_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
978 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(REGB1
)(REGB1
);
979 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[1]);
980 if (!once_value_16
) {
981 fra
.me
.REG
[1] = BOX_NativeString("--");
983 fra
.me
.REG
[1] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[1], REGB1
);
984 once_value_16
= fra
.me
.REG
[1];
985 register_static_object(&once_value_16
);
986 } else fra
.me
.REG
[1] = once_value_16
;
987 fra
.me
.REG
[1] = fra
.me
.REG
[1];
988 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[1]);
989 REGB1
= CALL_location___Location___line_end(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
990 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(REGB1
)(REGB1
);
991 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[1]);
992 if (!once_value_17
) {
993 fra
.me
.REG
[1] = BOX_NativeString(",");
995 fra
.me
.REG
[1] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[1], REGB1
);
996 once_value_17
= fra
.me
.REG
[1];
997 register_static_object(&once_value_17
);
998 } else fra
.me
.REG
[1] = once_value_17
;
999 fra
.me
.REG
[1] = fra
.me
.REG
[1];
1000 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[1]);
1001 REGB1
= CALL_location___Location___column_end(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1002 fra
.me
.REG
[0] = CALL_standard___string___Object___to_s(REGB1
)(REGB1
);
1003 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[0]);
1004 if (!once_value_18
) {
1005 fra
.me
.REG
[0] = BOX_NativeString("");
1007 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB1
);
1008 once_value_18
= fra
.me
.REG
[0];
1009 register_static_object(&once_value_18
);
1010 } else fra
.me
.REG
[0] = once_value_18
;
1011 fra
.me
.REG
[0] = fra
.me
.REG
[0];
1012 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[0]);
1013 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
1014 fra
.me
.REG
[2] = fra
.me
.REG
[3];
1018 stack_frame_head
= fra
.me
.prev
;
1019 return fra
.me
.REG
[2];
1021 val_t
location___Location___relative_to(val_t p0
, val_t p1
){
1022 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
1028 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1029 fra
.me
.file
= LOCATE_location
;
1031 fra
.me
.meth
= LOCATE_location___Location___relative_to
;
1032 fra
.me
.has_broke
= 0;
1033 fra
.me
.REG_size
= 3;
1034 fra
.me
.nitni_local_ref_head
= NULL
;
1035 fra
.me
.REG
[0] = NIT_NULL
;
1036 fra
.me
.REG
[1] = NIT_NULL
;
1037 fra
.me
.REG
[2] = NIT_NULL
;
1040 /* location.nit:112 */
1041 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
1042 if (UNTAG_Bool(REGB0
)) {
1044 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
1045 if (UNTAG_Bool(REGB1
)) {
1046 REGB1
= TAG_Bool(false);
1049 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], NIT_NULL
);
1053 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
1054 if (UNTAG_Bool(REGB0
)) {
1055 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
1056 if (UNTAG_Bool(REGB0
)) {
1057 nit_abort("Reciever is null", NULL
, LOCATE_location
, 112);
1059 fra
.me
.REG
[1] = CALL_location___Location___file(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1060 fra
.me
.REG
[2] = CALL_location___Location___file(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1061 REGB0
= TAG_Bool(IS_EQUAL_NN(fra
.me
.REG
[1],fra
.me
.REG
[2]));
1062 if (UNTAG_Bool(REGB0
)) {
1064 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
1065 if (UNTAG_Bool(REGB1
)) {
1066 REGB1
= TAG_Bool(false);
1069 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
1074 REGB1
= TAG_Bool(false);
1077 if (UNTAG_Bool(REGB0
)) {
1078 /* location.nit:113 */
1079 REGB0
= CALL_location___Location___line_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1080 REGB1
= CALL_location___Location___line_end(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1081 REGB2
= CALL_location___Location___column_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1082 REGB3
= CALL_location___Location___column_end(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1083 fra
.me
.REG
[2] = NEW_Location_location___Location___init(NIT_NULL
, REGB0
, REGB1
, REGB2
, REGB3
);
1085 /* location.nit:115 */
1086 fra
.me
.REG
[1] = CALL_location___Location___file(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1087 REGB3
= CALL_location___Location___line_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1088 REGB2
= CALL_location___Location___line_end(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1089 REGB1
= CALL_location___Location___column_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1090 REGB0
= CALL_location___Location___column_end(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1091 fra
.me
.REG
[1] = NEW_Location_location___Location___init(fra
.me
.REG
[1], REGB3
, REGB2
, REGB1
, REGB0
);
1092 fra
.me
.REG
[2] = fra
.me
.REG
[1];
1094 /* location.nit:117 */
1095 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
1098 stack_frame_head
= fra
.me
.prev
;
1099 return fra
.me
.REG
[2];
1101 val_t
location___Location_____l(val_t p0
, val_t p1
){
1102 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
1108 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1109 fra
.me
.file
= LOCATE_location
;
1111 fra
.me
.meth
= LOCATE_location___Location_____l
;
1112 fra
.me
.has_broke
= 0;
1113 fra
.me
.REG_size
= 2;
1114 fra
.me
.nitni_local_ref_head
= NULL
;
1115 fra
.me
.REG
[0] = NIT_NULL
;
1116 fra
.me
.REG
[1] = NIT_NULL
;
1119 REGB0
= TAG_Bool(VAL_ISA(fra
.me
.REG
[1], VTCOLOR_standard___kernel___Comparable___OTHER(fra
.me
.REG
[0]), VTID_standard___kernel___Comparable___OTHER(fra
.me
.REG
[0]))) /*cast OTHER*/;
1120 if (UNTAG_Bool(REGB0
)) {
1122 nit_abort("Cast failed", NULL
, LOCATE_location
, 0);
1124 /* location.nit:121 */
1125 REGB0
= TAG_Bool(IS_EQUAL_OO(fra
.me
.REG
[0],fra
.me
.REG
[1]));
1126 if (UNTAG_Bool(REGB0
)) {
1128 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
1131 if (UNTAG_Bool(REGB0
)) {
1132 REGB0
= TAG_Bool(false);
1135 /* location.nit:122 */
1136 REGB1
= CALL_location___Location___located_in(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
1137 if (UNTAG_Bool(REGB1
)) {
1138 REGB1
= TAG_Bool(true);
1142 /* location.nit:123 */
1143 REGB1
= CALL_location___Location___located_in(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
1144 if (UNTAG_Bool(REGB1
)) {
1145 REGB1
= TAG_Bool(false);
1149 /* location.nit:125 */
1150 REGB1
= CALL_location___Location___line_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1151 REGB2
= CALL_location___Location___line_start(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1152 REGB3
= TAG_Bool(IS_EQUAL_OO(REGB1
,REGB2
));
1153 if (UNTAG_Bool(REGB3
)) {
1155 /* ../lib/standard/kernel.nit:227 */
1156 REGB2
= TAG_Bool((REGB1
)==(REGB2
));
1157 /* location.nit:125 */
1160 REGB3
= TAG_Bool(!UNTAG_Bool(REGB3
));
1161 if (UNTAG_Bool(REGB3
)) {
1162 REGB3
= CALL_location___Location___line_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1163 REGB2
= CALL_location___Location___line_start(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1164 REGB1
= TAG_Bool(VAL_ISA(REGB2
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3
), VTID_standard___kernel___Comparable___OTHER(REGB3
))) /*cast OTHER*/;
1165 if (UNTAG_Bool(REGB1
)) {
1167 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1169 /* ../lib/standard/kernel.nit:232 */
1170 REGB2
= TAG_Bool(UNTAG_Int(REGB3
)<UNTAG_Int(REGB2
));
1171 /* location.nit:125 */
1175 /* location.nit:126 */
1176 REGB2
= CALL_location___Location___column_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1177 REGB3
= CALL_location___Location___column_start(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1178 REGB1
= TAG_Bool(IS_EQUAL_OO(REGB2
,REGB3
));
1179 if (UNTAG_Bool(REGB1
)) {
1181 /* ../lib/standard/kernel.nit:227 */
1182 REGB3
= TAG_Bool((REGB2
)==(REGB3
));
1183 /* location.nit:126 */
1186 REGB1
= TAG_Bool(!UNTAG_Bool(REGB1
));
1187 if (UNTAG_Bool(REGB1
)) {
1188 REGB1
= CALL_location___Location___column_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1189 REGB3
= CALL_location___Location___column_start(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1190 REGB2
= TAG_Bool(VAL_ISA(REGB3
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1
), VTID_standard___kernel___Comparable___OTHER(REGB1
))) /*cast OTHER*/;
1191 if (UNTAG_Bool(REGB2
)) {
1193 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1195 /* ../lib/standard/kernel.nit:232 */
1196 REGB3
= TAG_Bool(UNTAG_Int(REGB1
)<UNTAG_Int(REGB3
));
1197 /* location.nit:126 */
1201 /* location.nit:127 */
1202 REGB3
= CALL_location___Location___line_end(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1203 REGB1
= CALL_location___Location___line_end(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1204 REGB2
= TAG_Bool(IS_EQUAL_OO(REGB3
,REGB1
));
1205 if (UNTAG_Bool(REGB2
)) {
1207 /* ../lib/standard/kernel.nit:227 */
1208 REGB1
= TAG_Bool((REGB3
)==(REGB1
));
1209 /* location.nit:127 */
1212 REGB2
= TAG_Bool(!UNTAG_Bool(REGB2
));
1213 if (UNTAG_Bool(REGB2
)) {
1214 REGB2
= CALL_location___Location___line_end(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1215 REGB1
= CALL_location___Location___line_end(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1216 REGB3
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2
), VTID_standard___kernel___Comparable___OTHER(REGB2
))) /*cast OTHER*/;
1217 if (UNTAG_Bool(REGB3
)) {
1219 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1221 /* ../lib/standard/kernel.nit:232 */
1222 REGB1
= TAG_Bool(UNTAG_Int(REGB2
)<UNTAG_Int(REGB1
));
1223 /* location.nit:127 */
1227 /* location.nit:129 */
1228 REGB1
= CALL_location___Location___column_end(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1229 REGB2
= CALL_location___Location___column_end(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1230 REGB3
= TAG_Bool(VAL_ISA(REGB2
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1
), VTID_standard___kernel___Comparable___OTHER(REGB1
))) /*cast OTHER*/;
1231 if (UNTAG_Bool(REGB3
)) {
1233 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1235 /* ../lib/standard/kernel.nit:232 */
1236 REGB2
= TAG_Bool(UNTAG_Int(REGB1
)<UNTAG_Int(REGB2
));
1237 /* location.nit:129 */
1241 stack_frame_head
= fra
.me
.prev
;
1244 val_t
location___Location___colored_line(val_t p0
, val_t p1
){
1245 struct {struct stack_frame_t me
; val_t MORE_REG
[7];} fra
;
1253 static val_t once_value_1
; /* Once value */
1254 static val_t once_value_2
; /* Once value */
1255 static val_t once_value_3
; /* Once value */
1256 static val_t once_value_4
; /* Once value */
1257 static val_t once_value_5
; /* Once value */
1258 static val_t once_value_8
; /* Once value */
1259 static val_t once_value_9
; /* Once value */
1260 static val_t once_value_11
; /* Once value */
1261 static val_t once_value_12
; /* Once value */
1262 static val_t once_value_13
; /* Once value */
1263 static val_t once_value_14
; /* Once value */
1264 static val_t once_value_15
; /* Once value */
1265 static val_t once_value_16
; /* Once value */
1266 static val_t once_value_17
; /* Once value */
1267 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1268 fra
.me
.file
= LOCATE_location
;
1270 fra
.me
.meth
= LOCATE_location___Location___colored_line
;
1271 fra
.me
.has_broke
= 0;
1272 fra
.me
.REG_size
= 8;
1273 fra
.me
.nitni_local_ref_head
= NULL
;
1274 fra
.me
.REG
[0] = NIT_NULL
;
1275 fra
.me
.REG
[1] = NIT_NULL
;
1276 fra
.me
.REG
[2] = NIT_NULL
;
1277 fra
.me
.REG
[3] = NIT_NULL
;
1278 fra
.me
.REG
[4] = NIT_NULL
;
1279 fra
.me
.REG
[5] = NIT_NULL
;
1280 fra
.me
.REG
[6] = NIT_NULL
;
1281 fra
.me
.REG
[7] = NIT_NULL
;
1284 /* location.nit:139 */
1285 REGB0
= TAG_Int(27);
1286 /* ../lib/standard/kernel.nit:297 */
1287 REGB0
= TAG_Char(UNTAG_Int(REGB0
));
1288 /* location.nit:140 */
1290 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1
);
1291 if (!once_value_1
) {
1292 fra
.me
.REG
[3] = BOX_NativeString("");
1294 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB1
);
1295 once_value_1
= fra
.me
.REG
[3];
1296 register_static_object(&once_value_1
);
1297 } else fra
.me
.REG
[3] = once_value_1
;
1298 fra
.me
.REG
[3] = fra
.me
.REG
[3];
1299 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
1300 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(REGB0
)(REGB0
);
1301 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
1302 if (!once_value_2
) {
1303 fra
.me
.REG
[3] = BOX_NativeString("[0m");
1305 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB1
);
1306 once_value_2
= fra
.me
.REG
[3];
1307 register_static_object(&once_value_2
);
1308 } else fra
.me
.REG
[3] = once_value_2
;
1309 fra
.me
.REG
[3] = fra
.me
.REG
[3];
1310 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
1311 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
1312 /* location.nit:141 */
1314 fra
.me
.REG
[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1
);
1315 if (!once_value_3
) {
1316 fra
.me
.REG
[4] = BOX_NativeString("");
1318 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB1
);
1319 once_value_3
= fra
.me
.REG
[4];
1320 register_static_object(&once_value_3
);
1321 } else fra
.me
.REG
[4] = once_value_3
;
1322 fra
.me
.REG
[4] = fra
.me
.REG
[4];
1323 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
1324 fra
.me
.REG
[4] = CALL_standard___string___Object___to_s(REGB0
)(REGB0
);
1325 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
1326 if (!once_value_4
) {
1327 fra
.me
.REG
[4] = BOX_NativeString("[");
1329 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB0
);
1330 once_value_4
= fra
.me
.REG
[4];
1331 register_static_object(&once_value_4
);
1332 } else fra
.me
.REG
[4] = once_value_4
;
1333 fra
.me
.REG
[4] = fra
.me
.REG
[4];
1334 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
1335 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[1]);
1336 if (!once_value_5
) {
1337 fra
.me
.REG
[1] = BOX_NativeString("m");
1339 fra
.me
.REG
[1] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[1], REGB0
);
1340 once_value_5
= fra
.me
.REG
[1];
1341 register_static_object(&once_value_5
);
1342 } else fra
.me
.REG
[1] = once_value_5
;
1343 fra
.me
.REG
[1] = fra
.me
.REG
[1];
1344 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[1]);
1345 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
1346 /* location.nit:144 */
1347 REGB0
= CALL_location___Location___line_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1348 /* location.nit:145 */
1349 fra
.me
.REG
[1] = CALL_location___Location___file(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1350 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
1351 if (UNTAG_Bool(REGB1
)) {
1352 nit_abort("Reciever is null", NULL
, LOCATE_location
, 145);
1354 fra
.me
.REG
[1] = CALL_location___SourceFile___line_starts(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1356 /* ../lib/standard/kernel.nit:237 */
1357 REGB1
= TAG_Int(UNTAG_Int(REGB0
)-UNTAG_Int(REGB1
));
1358 /* ../lib/standard/collection/array.nit:280 */
1360 REGB3
= TAG_Bool(VAL_ISA(REGB2
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1
), VTID_standard___kernel___Comparable___OTHER(REGB1
))) /*cast OTHER*/;
1361 if (UNTAG_Bool(REGB3
)) {
1363 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1365 /* ../lib/standard/kernel.nit:233 */
1366 REGB2
= TAG_Bool(UNTAG_Int(REGB1
)>=UNTAG_Int(REGB2
));
1367 /* ../lib/standard/collection/array.nit:280 */
1368 if (UNTAG_Bool(REGB2
)) {
1369 REGB2
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1])!=NIT_NULL
);
1370 if (UNTAG_Bool(REGB2
)) {
1372 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 280);
1374 REGB2
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1]);
1375 REGB3
= TAG_Bool(VAL_ISA(REGB2
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1
), VTID_standard___kernel___Comparable___OTHER(REGB1
))) /*cast OTHER*/;
1376 if (UNTAG_Bool(REGB3
)) {
1378 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1380 /* ../lib/standard/kernel.nit:232 */
1381 REGB2
= TAG_Bool(UNTAG_Int(REGB1
)<UNTAG_Int(REGB2
));
1383 /* ../lib/standard/collection/array.nit:280 */
1384 REGB3
= TAG_Bool(false);
1387 if (UNTAG_Bool(REGB2
)) {
1389 nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array
, 280);
1391 /* ../lib/standard/collection/array.nit:281 */
1392 fra
.me
.REG
[1] = ATTR_standard___collection___array___Array____items(fra
.me
.REG
[1]);
1393 REGB2
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
1394 if (UNTAG_Bool(REGB2
)) {
1395 nit_abort("Reciever is null", NULL
, LOCATE_standard___collection___array
, 281);
1397 /* ../lib/standard/collection/array.nit:718 */
1398 fra
.me
.REG
[1] = ((Nit_NativeArray
)fra
.me
.REG
[1])->val
[UNTAG_Int(REGB1
)];
1399 /* ../lib/standard/collection/array.nit:281 */
1402 /* location.nit:145 */
1403 REGB1
= fra
.me
.REG
[1];
1404 /* location.nit:146 */
1406 /* location.nit:147 */
1407 fra
.me
.REG
[1] = CALL_location___Location___file(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1408 REGB3
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
1409 if (UNTAG_Bool(REGB3
)) {
1410 nit_abort("Reciever is null", NULL
, LOCATE_location
, 147);
1412 fra
.me
.REG
[1] = CALL_location___SourceFile___string(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1413 /* location.nit:148 */
1416 /* ../lib/standard/kernel.nit:235 */
1417 REGB3
= TAG_Int(UNTAG_Int(REGB2
)+UNTAG_Int(REGB3
));
1418 /* ../lib/standard/collection/array.nit:24 */
1419 REGB4
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1])!=NIT_NULL
);
1420 if (UNTAG_Bool(REGB4
)) {
1422 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
1424 REGB4
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1]);
1425 REGB5
= TAG_Bool(VAL_ISA(REGB4
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3
), VTID_standard___kernel___Comparable___OTHER(REGB3
))) /*cast OTHER*/;
1426 if (UNTAG_Bool(REGB5
)) {
1428 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1430 /* ../lib/standard/kernel.nit:232 */
1431 REGB4
= TAG_Bool(UNTAG_Int(REGB3
)<UNTAG_Int(REGB4
));
1432 /* location.nit:148 */
1433 if (UNTAG_Bool(REGB4
)) {
1435 /* ../lib/standard/kernel.nit:235 */
1436 REGB4
= TAG_Int(UNTAG_Int(REGB2
)+UNTAG_Int(REGB4
));
1437 /* location.nit:148 */
1438 REGB4
= CALL_standard___collection___abstract_collection___SequenceRead_____bra(fra
.me
.REG
[1])(fra
.me
.REG
[1], REGB4
);
1439 REGB3
= TAG_Char('\n');
1440 REGB5
= TAG_Bool(IS_EQUAL_OO(REGB4
,REGB3
));
1441 if (UNTAG_Bool(REGB5
)) {
1443 /* ../lib/standard/kernel.nit:378 */
1444 REGB3
= TAG_Bool((REGB4
)==(REGB3
));
1445 /* location.nit:148 */
1448 REGB5
= TAG_Bool(!UNTAG_Bool(REGB5
));
1450 REGB3
= TAG_Bool(false);
1453 if (UNTAG_Bool(REGB5
)) {
1455 /* ../lib/standard/kernel.nit:235 */
1456 REGB5
= TAG_Int(UNTAG_Int(REGB2
)+UNTAG_Int(REGB5
));
1457 /* location.nit:148 */
1458 REGB5
= CALL_standard___collection___abstract_collection___SequenceRead_____bra(fra
.me
.REG
[1])(fra
.me
.REG
[1], REGB5
);
1459 REGB3
= TAG_Char('\r');
1460 REGB4
= TAG_Bool(IS_EQUAL_OO(REGB5
,REGB3
));
1461 if (UNTAG_Bool(REGB4
)) {
1463 /* ../lib/standard/kernel.nit:378 */
1464 REGB3
= TAG_Bool((REGB5
)==(REGB3
));
1465 /* location.nit:148 */
1468 REGB4
= TAG_Bool(!UNTAG_Bool(REGB4
));
1470 REGB3
= TAG_Bool(false);
1473 if (UNTAG_Bool(REGB4
)) {
1474 /* location.nit:149 */
1476 /* ../lib/standard/kernel.nit:235 */
1477 REGB4
= TAG_Int(UNTAG_Int(REGB2
)+UNTAG_Int(REGB4
));
1478 /* location.nit:149 */
1481 /* location.nit:148 */
1486 /* location.nit:151 */
1487 REGB4
= CALL_location___Location___column_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1489 /* ../lib/standard/kernel.nit:237 */
1490 REGB3
= TAG_Int(UNTAG_Int(REGB4
)-UNTAG_Int(REGB3
));
1491 /* location.nit:151 */
1492 fra
.me
.REG
[4] = CALL_standard___string___AbstractString___substring(fra
.me
.REG
[1])(fra
.me
.REG
[1], REGB1
, REGB3
);
1493 /* location.nit:153 */
1494 REGB3
= CALL_location___Location___line_end(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1495 REGB4
= TAG_Bool(IS_EQUAL_OO(REGB0
,REGB3
));
1496 if (UNTAG_Bool(REGB4
)) {
1498 /* ../lib/standard/kernel.nit:227 */
1499 REGB3
= TAG_Bool((REGB0
)==(REGB3
));
1500 /* location.nit:153 */
1503 REGB4
= TAG_Bool(!UNTAG_Bool(REGB4
));
1504 if (UNTAG_Bool(REGB4
)) {
1505 /* ../lib/standard/kernel.nit:237 */
1506 REGB4
= TAG_Int(UNTAG_Int(REGB2
)-UNTAG_Int(REGB1
));
1507 /* location.nit:154 */
1509 /* ../lib/standard/kernel.nit:235 */
1510 REGB3
= TAG_Int(UNTAG_Int(REGB4
)+UNTAG_Int(REGB3
));
1511 /* location.nit:154 */
1512 fra
.me
.REG
[5] = REGB3
;
1514 /* location.nit:156 */
1515 REGB3
= CALL_location___Location___column_end(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1516 fra
.me
.REG
[5] = REGB3
;
1518 /* ../lib/standard/kernel.nit:235 */
1519 REGB3
= TAG_Int(UNTAG_Int(REGB1
)+UNTAG_Int(fra
.me
.REG
[5]));
1520 /* ../lib/standard/collection/array.nit:24 */
1521 REGB4
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1])!=NIT_NULL
);
1522 if (UNTAG_Bool(REGB4
)) {
1524 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
1526 REGB4
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1]);
1527 REGB0
= TAG_Bool(VAL_ISA(REGB4
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3
), VTID_standard___kernel___Comparable___OTHER(REGB3
))) /*cast OTHER*/;
1528 if (UNTAG_Bool(REGB0
)) {
1530 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1532 /* ../lib/standard/kernel.nit:231 */
1533 REGB4
= TAG_Bool(UNTAG_Int(REGB3
)<=UNTAG_Int(REGB4
));
1534 /* location.nit:160 */
1535 if (UNTAG_Bool(REGB4
)) {
1536 /* location.nit:161 */
1537 REGB4
= CALL_location___Location___column_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1538 /* ../lib/standard/kernel.nit:235 */
1539 REGB4
= TAG_Int(UNTAG_Int(REGB1
)+UNTAG_Int(REGB4
));
1540 /* location.nit:161 */
1542 /* ../lib/standard/kernel.nit:237 */
1543 REGB3
= TAG_Int(UNTAG_Int(REGB4
)-UNTAG_Int(REGB3
));
1544 /* location.nit:161 */
1545 REGB4
= CALL_location___Location___column_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1546 REGB0
= TAG_Bool(fra
.me
.REG
[5]==NIT_NULL
);
1547 if (UNTAG_Bool(REGB0
)) {
1548 nit_abort("Reciever is null", NULL
, LOCATE_location
, 161);
1550 /* ../lib/standard/kernel.nit:237 */
1551 REGB4
= TAG_Int(UNTAG_Int(fra
.me
.REG
[5])-UNTAG_Int(REGB4
));
1552 /* location.nit:161 */
1554 /* ../lib/standard/kernel.nit:235 */
1555 REGB0
= TAG_Int(UNTAG_Int(REGB4
)+UNTAG_Int(REGB0
));
1556 /* location.nit:161 */
1557 fra
.me
.REG
[6] = CALL_standard___string___AbstractString___substring(fra
.me
.REG
[1])(fra
.me
.REG
[1], REGB3
, REGB0
);
1558 /* ../lib/standard/kernel.nit:235 */
1559 REGB0
= TAG_Int(UNTAG_Int(REGB1
)+UNTAG_Int(fra
.me
.REG
[5]));
1560 /* ../lib/standard/kernel.nit:237 */
1561 REGB2
= TAG_Int(UNTAG_Int(REGB2
)-UNTAG_Int(REGB1
));
1562 REGB2
= TAG_Int(UNTAG_Int(REGB2
)-UNTAG_Int(fra
.me
.REG
[5]));
1563 /* location.nit:162 */
1565 /* ../lib/standard/kernel.nit:235 */
1566 REGB3
= TAG_Int(UNTAG_Int(REGB2
)+UNTAG_Int(REGB3
));
1567 /* location.nit:162 */
1568 fra
.me
.REG
[5] = CALL_standard___string___AbstractString___substring(fra
.me
.REG
[1])(fra
.me
.REG
[1], REGB0
, REGB3
);
1570 /* location.nit:164 */
1571 if (!once_value_8
) {
1572 fra
.me
.REG
[7] = BOX_NativeString("");
1574 fra
.me
.REG
[7] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[7], REGB3
);
1575 once_value_8
= fra
.me
.REG
[7];
1576 register_static_object(&once_value_8
);
1577 } else fra
.me
.REG
[7] = once_value_8
;
1578 fra
.me
.REG
[7] = fra
.me
.REG
[7];
1579 fra
.me
.REG
[6] = fra
.me
.REG
[7];
1580 /* location.nit:165 */
1581 if (!once_value_9
) {
1582 fra
.me
.REG
[7] = BOX_NativeString("");
1584 fra
.me
.REG
[7] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[7], REGB3
);
1585 once_value_9
= fra
.me
.REG
[7];
1586 register_static_object(&once_value_9
);
1587 } else fra
.me
.REG
[7] = once_value_9
;
1588 fra
.me
.REG
[7] = fra
.me
.REG
[7];
1589 fra
.me
.REG
[5] = fra
.me
.REG
[7];
1591 /* location.nit:167 */
1592 fra
.me
.REG
[7] = NEW_Buffer_standard___string___Buffer___init();
1593 /* location.nit:168 */
1594 REGB3
= CALL_location___Location___column_start(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1595 /* ../lib/standard/kernel.nit:235 */
1596 REGB3
= TAG_Int(UNTAG_Int(REGB1
)+UNTAG_Int(REGB3
));
1597 /* location.nit:168 */
1599 /* ../lib/standard/kernel.nit:237 */
1600 REGB0
= TAG_Int(UNTAG_Int(REGB3
)-UNTAG_Int(REGB0
));
1601 /* ../lib/standard/kernel.nit:352 */
1603 REGB3
= TAG_Bool(VAL_ISA(REGB0
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1
), VTID_standard___kernel___Comparable___OTHER(REGB1
))) /*cast OTHER*/;
1604 if (UNTAG_Bool(REGB3
)) {
1606 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1608 /* ../lib/standard/kernel.nit:232 */
1609 REGB3
= TAG_Bool(UNTAG_Int(REGB1
)<UNTAG_Int(REGB0
));
1610 /* ../lib/standard/kernel.nit:352 */
1611 if (UNTAG_Bool(REGB3
)) {
1612 /* location.nit:168 */
1614 /* location.nit:169 */
1615 REGB3
= CALL_standard___collection___abstract_collection___SequenceRead_____bra(fra
.me
.REG
[1])(fra
.me
.REG
[1], REGB3
);
1616 REGB2
= TAG_Char('\t');
1617 REGB4
= TAG_Bool(IS_EQUAL_OO(REGB3
,REGB2
));
1618 if (UNTAG_Bool(REGB4
)) {
1620 /* ../lib/standard/kernel.nit:378 */
1621 REGB2
= TAG_Bool((REGB3
)==(REGB2
));
1622 /* location.nit:169 */
1625 if (UNTAG_Bool(REGB4
)) {
1626 /* location.nit:170 */
1627 REGB4
= TAG_Char('\t');
1628 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[7])(fra
.me
.REG
[7], REGB4
);
1630 /* location.nit:172 */
1631 REGB4
= TAG_Char(' ');
1632 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[7])(fra
.me
.REG
[7], REGB4
);
1634 /* ../lib/standard/kernel.nit:354 */
1636 /* ../lib/standard/kernel.nit:235 */
1637 REGB4
= TAG_Int(UNTAG_Int(REGB1
)+UNTAG_Int(REGB4
));
1638 /* ../lib/standard/kernel.nit:354 */
1641 /* ../lib/standard/kernel.nit:352 */
1646 /* location.nit:175 */
1647 REGB1
= TAG_Int(13);
1648 fra
.me
.REG
[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1
);
1649 if (!once_value_11
) {
1650 fra
.me
.REG
[0] = BOX_NativeString("\t");
1652 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB1
);
1653 once_value_11
= fra
.me
.REG
[0];
1654 register_static_object(&once_value_11
);
1655 } else fra
.me
.REG
[0] = once_value_11
;
1656 fra
.me
.REG
[0] = fra
.me
.REG
[0];
1657 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
1658 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[4]);
1659 if (!once_value_12
) {
1660 fra
.me
.REG
[4] = BOX_NativeString("");
1662 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB1
);
1663 once_value_12
= fra
.me
.REG
[4];
1664 register_static_object(&once_value_12
);
1665 } else fra
.me
.REG
[4] = once_value_12
;
1666 fra
.me
.REG
[4] = fra
.me
.REG
[4];
1667 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[4]);
1668 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[3]);
1669 if (!once_value_13
) {
1670 fra
.me
.REG
[3] = BOX_NativeString("");
1672 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB1
);
1673 once_value_13
= fra
.me
.REG
[3];
1674 register_static_object(&once_value_13
);
1675 } else fra
.me
.REG
[3] = once_value_13
;
1676 fra
.me
.REG
[3] = fra
.me
.REG
[3];
1677 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[3]);
1678 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[6]);
1679 if (!once_value_14
) {
1680 fra
.me
.REG
[6] = BOX_NativeString("");
1682 fra
.me
.REG
[6] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[6], REGB1
);
1683 once_value_14
= fra
.me
.REG
[6];
1684 register_static_object(&once_value_14
);
1685 } else fra
.me
.REG
[6] = once_value_14
;
1686 fra
.me
.REG
[6] = fra
.me
.REG
[6];
1687 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[6]);
1688 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
1689 if (!once_value_15
) {
1690 fra
.me
.REG
[2] = BOX_NativeString("");
1692 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB1
);
1693 once_value_15
= fra
.me
.REG
[2];
1694 register_static_object(&once_value_15
);
1695 } else fra
.me
.REG
[2] = once_value_15
;
1696 fra
.me
.REG
[2] = fra
.me
.REG
[2];
1697 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
1698 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[5]);
1699 if (!once_value_16
) {
1700 fra
.me
.REG
[5] = BOX_NativeString("\n\t");
1702 fra
.me
.REG
[5] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[5], REGB1
);
1703 once_value_16
= fra
.me
.REG
[5];
1704 register_static_object(&once_value_16
);
1705 } else fra
.me
.REG
[5] = once_value_16
;
1706 fra
.me
.REG
[5] = fra
.me
.REG
[5];
1707 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[5]);
1708 fra
.me
.REG
[7] = CALL_standard___string___Object___to_s(fra
.me
.REG
[7])(fra
.me
.REG
[7]);
1709 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[7]);
1710 if (!once_value_17
) {
1711 fra
.me
.REG
[7] = BOX_NativeString("^");
1713 fra
.me
.REG
[7] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[7], REGB1
);
1714 once_value_17
= fra
.me
.REG
[7];
1715 register_static_object(&once_value_17
);
1716 } else fra
.me
.REG
[7] = once_value_17
;
1717 fra
.me
.REG
[7] = fra
.me
.REG
[7];
1718 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[7]);
1719 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1722 stack_frame_head
= fra
.me
.prev
;
1723 return fra
.me
.REG
[1];