1 /* This C file is generated by NIT to compile module compiling___compiling_base. */
2 #include "compiling___compiling_base._sep.h"
3 val_t
compiling___compiling_base___ToolContext___compdir(val_t p0
){
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_compiling___compiling_base
;
9 fra
.me
.meth
= LOCATE_compiling___compiling_base___ToolContext___compdir
;
12 fra
.me
.REG
[0] = NIT_NULL
;
14 /* ./compiling//compiling_base.nit:27 */
15 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___ToolContext____compdir(fra
.me
.REG
[0]);
16 stack_frame_head
= fra
.me
.prev
;
19 void compiling___compiling_base___ToolContext___compdir__eq(val_t p0
, val_t p1
){
20 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
22 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
23 fra
.me
.file
= LOCATE_compiling___compiling_base
;
25 fra
.me
.meth
= LOCATE_compiling___compiling_base___ToolContext___compdir__eq
;
28 fra
.me
.REG
[0] = NIT_NULL
;
29 fra
.me
.REG
[1] = NIT_NULL
;
32 /* ./compiling//compiling_base.nit:27 */
33 ATTR_compiling___compiling_base___ToolContext____compdir(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
34 stack_frame_head
= fra
.me
.prev
;
37 val_t
compiling___compiling_base___ToolContext___clibdir(val_t p0
){
38 struct {struct stack_frame_t me
;} fra
;
40 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
41 fra
.me
.file
= LOCATE_compiling___compiling_base
;
43 fra
.me
.meth
= LOCATE_compiling___compiling_base___ToolContext___clibdir
;
46 fra
.me
.REG
[0] = NIT_NULL
;
48 /* ./compiling//compiling_base.nit:28 */
49 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___ToolContext____clibdir(fra
.me
.REG
[0]);
50 stack_frame_head
= fra
.me
.prev
;
53 void compiling___compiling_base___ToolContext___clibdir__eq(val_t p0
, val_t p1
){
54 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
56 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
57 fra
.me
.file
= LOCATE_compiling___compiling_base
;
59 fra
.me
.meth
= LOCATE_compiling___compiling_base___ToolContext___clibdir__eq
;
62 fra
.me
.REG
[0] = NIT_NULL
;
63 fra
.me
.REG
[1] = NIT_NULL
;
66 /* ./compiling//compiling_base.nit:28 */
67 ATTR_compiling___compiling_base___ToolContext____clibdir(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
68 stack_frame_head
= fra
.me
.prev
;
71 val_t
compiling___compiling_base___ToolContext___bindir(val_t p0
){
72 struct {struct stack_frame_t me
;} fra
;
74 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
75 fra
.me
.file
= LOCATE_compiling___compiling_base
;
77 fra
.me
.meth
= LOCATE_compiling___compiling_base___ToolContext___bindir
;
80 fra
.me
.REG
[0] = NIT_NULL
;
82 /* ./compiling//compiling_base.nit:29 */
83 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___ToolContext____bindir(fra
.me
.REG
[0]);
84 stack_frame_head
= fra
.me
.prev
;
87 void compiling___compiling_base___ToolContext___bindir__eq(val_t p0
, val_t p1
){
88 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
90 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
91 fra
.me
.file
= LOCATE_compiling___compiling_base
;
93 fra
.me
.meth
= LOCATE_compiling___compiling_base___ToolContext___bindir__eq
;
96 fra
.me
.REG
[0] = NIT_NULL
;
97 fra
.me
.REG
[1] = NIT_NULL
;
100 /* ./compiling//compiling_base.nit:29 */
101 ATTR_compiling___compiling_base___ToolContext____bindir(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
102 stack_frame_head
= fra
.me
.prev
;
105 val_t
compiling___compiling_base___ToolContext___output_file(val_t p0
){
106 struct {struct stack_frame_t me
;} fra
;
108 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
109 fra
.me
.file
= LOCATE_compiling___compiling_base
;
111 fra
.me
.meth
= LOCATE_compiling___compiling_base___ToolContext___output_file
;
112 fra
.me
.has_broke
= 0;
114 fra
.me
.REG
[0] = NIT_NULL
;
116 /* ./compiling//compiling_base.nit:30 */
117 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___ToolContext____output_file(fra
.me
.REG
[0]);
118 stack_frame_head
= fra
.me
.prev
;
119 return fra
.me
.REG
[0];
121 void compiling___compiling_base___ToolContext___output_file__eq(val_t p0
, val_t p1
){
122 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
124 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
125 fra
.me
.file
= LOCATE_compiling___compiling_base
;
127 fra
.me
.meth
= LOCATE_compiling___compiling_base___ToolContext___output_file__eq
;
128 fra
.me
.has_broke
= 0;
130 fra
.me
.REG
[0] = NIT_NULL
;
131 fra
.me
.REG
[1] = NIT_NULL
;
134 /* ./compiling//compiling_base.nit:30 */
135 ATTR_compiling___compiling_base___ToolContext____output_file(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
136 stack_frame_head
= fra
.me
.prev
;
139 val_t
compiling___compiling_base___ToolContext___boost(val_t p0
){
140 struct {struct stack_frame_t me
;} fra
;
143 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
144 fra
.me
.file
= LOCATE_compiling___compiling_base
;
146 fra
.me
.meth
= LOCATE_compiling___compiling_base___ToolContext___boost
;
147 fra
.me
.has_broke
= 0;
149 fra
.me
.REG
[0] = NIT_NULL
;
151 /* ./compiling//compiling_base.nit:31 */
152 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___ToolContext____boost(fra
.me
.REG
[0])!=NIT_NULL
);
153 if (UNTAG_Bool(REGB0
)) {
155 nit_abort("Uninitialized attribute %s", "_boost", LOCATE_compiling___compiling_base
, 31);
157 REGB0
= ATTR_compiling___compiling_base___ToolContext____boost(fra
.me
.REG
[0]);
158 stack_frame_head
= fra
.me
.prev
;
161 void compiling___compiling_base___ToolContext___boost__eq(val_t p0
, val_t p1
){
162 struct {struct stack_frame_t me
;} fra
;
165 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
166 fra
.me
.file
= LOCATE_compiling___compiling_base
;
168 fra
.me
.meth
= LOCATE_compiling___compiling_base___ToolContext___boost__eq
;
169 fra
.me
.has_broke
= 0;
171 fra
.me
.REG
[0] = NIT_NULL
;
174 /* ./compiling//compiling_base.nit:31 */
175 ATTR_compiling___compiling_base___ToolContext____boost(fra
.me
.REG
[0]) = REGB0
;
176 stack_frame_head
= fra
.me
.prev
;
179 val_t
compiling___compiling_base___ToolContext___no_cc(val_t p0
){
180 struct {struct stack_frame_t me
;} fra
;
183 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
184 fra
.me
.file
= LOCATE_compiling___compiling_base
;
186 fra
.me
.meth
= LOCATE_compiling___compiling_base___ToolContext___no_cc
;
187 fra
.me
.has_broke
= 0;
189 fra
.me
.REG
[0] = NIT_NULL
;
191 /* ./compiling//compiling_base.nit:32 */
192 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___ToolContext____no_cc(fra
.me
.REG
[0])!=NIT_NULL
);
193 if (UNTAG_Bool(REGB0
)) {
195 nit_abort("Uninitialized attribute %s", "_no_cc", LOCATE_compiling___compiling_base
, 32);
197 REGB0
= ATTR_compiling___compiling_base___ToolContext____no_cc(fra
.me
.REG
[0]);
198 stack_frame_head
= fra
.me
.prev
;
201 void compiling___compiling_base___ToolContext___no_cc__eq(val_t p0
, val_t p1
){
202 struct {struct stack_frame_t me
;} fra
;
205 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
206 fra
.me
.file
= LOCATE_compiling___compiling_base
;
208 fra
.me
.meth
= LOCATE_compiling___compiling_base___ToolContext___no_cc__eq
;
209 fra
.me
.has_broke
= 0;
211 fra
.me
.REG
[0] = NIT_NULL
;
214 /* ./compiling//compiling_base.nit:32 */
215 ATTR_compiling___compiling_base___ToolContext____no_cc(fra
.me
.REG
[0]) = REGB0
;
216 stack_frame_head
= fra
.me
.prev
;
219 val_t
compiling___compiling_base___ToolContext___cc_link(val_t p0
){
220 struct {struct stack_frame_t me
;} fra
;
223 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
224 fra
.me
.file
= LOCATE_compiling___compiling_base
;
226 fra
.me
.meth
= LOCATE_compiling___compiling_base___ToolContext___cc_link
;
227 fra
.me
.has_broke
= 0;
229 fra
.me
.REG
[0] = NIT_NULL
;
231 /* ./compiling//compiling_base.nit:33 */
232 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___ToolContext____cc_link(fra
.me
.REG
[0])!=NIT_NULL
);
233 if (UNTAG_Bool(REGB0
)) {
235 nit_abort("Uninitialized attribute %s", "_cc_link", LOCATE_compiling___compiling_base
, 33);
237 REGB0
= ATTR_compiling___compiling_base___ToolContext____cc_link(fra
.me
.REG
[0]);
238 stack_frame_head
= fra
.me
.prev
;
241 void compiling___compiling_base___ToolContext___cc_link__eq(val_t p0
, val_t p1
){
242 struct {struct stack_frame_t me
;} fra
;
245 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
246 fra
.me
.file
= LOCATE_compiling___compiling_base
;
248 fra
.me
.meth
= LOCATE_compiling___compiling_base___ToolContext___cc_link__eq
;
249 fra
.me
.has_broke
= 0;
251 fra
.me
.REG
[0] = NIT_NULL
;
254 /* ./compiling//compiling_base.nit:33 */
255 ATTR_compiling___compiling_base___ToolContext____cc_link(fra
.me
.REG
[0]) = REGB0
;
256 stack_frame_head
= fra
.me
.prev
;
259 val_t
compiling___compiling_base___ToolContext___cc_libs(val_t p0
){
260 struct {struct stack_frame_t me
;} fra
;
263 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
264 fra
.me
.file
= LOCATE_compiling___compiling_base
;
266 fra
.me
.meth
= LOCATE_compiling___compiling_base___ToolContext___cc_libs
;
267 fra
.me
.has_broke
= 0;
269 fra
.me
.REG
[0] = NIT_NULL
;
271 /* ./compiling//compiling_base.nit:34 */
272 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___ToolContext____cc_libs(fra
.me
.REG
[0])!=NIT_NULL
);
273 if (UNTAG_Bool(REGB0
)) {
275 nit_abort("Uninitialized attribute %s", "_cc_libs", LOCATE_compiling___compiling_base
, 34);
277 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___ToolContext____cc_libs(fra
.me
.REG
[0]);
278 stack_frame_head
= fra
.me
.prev
;
279 return fra
.me
.REG
[0];
281 void compiling___compiling_base___ToolContext___cc_libs__eq(val_t p0
, val_t p1
){
282 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
284 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
285 fra
.me
.file
= LOCATE_compiling___compiling_base
;
287 fra
.me
.meth
= LOCATE_compiling___compiling_base___ToolContext___cc_libs__eq
;
288 fra
.me
.has_broke
= 0;
290 fra
.me
.REG
[0] = NIT_NULL
;
291 fra
.me
.REG
[1] = NIT_NULL
;
294 /* ./compiling//compiling_base.nit:34 */
295 ATTR_compiling___compiling_base___ToolContext____cc_libs(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
296 stack_frame_head
= fra
.me
.prev
;
299 val_t
compiling___compiling_base___ToolContext___cc_lib_paths(val_t p0
){
300 struct {struct stack_frame_t me
;} fra
;
303 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
304 fra
.me
.file
= LOCATE_compiling___compiling_base
;
306 fra
.me
.meth
= LOCATE_compiling___compiling_base___ToolContext___cc_lib_paths
;
307 fra
.me
.has_broke
= 0;
309 fra
.me
.REG
[0] = NIT_NULL
;
311 /* ./compiling//compiling_base.nit:35 */
312 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___ToolContext____cc_lib_paths(fra
.me
.REG
[0])!=NIT_NULL
);
313 if (UNTAG_Bool(REGB0
)) {
315 nit_abort("Uninitialized attribute %s", "_cc_lib_paths", LOCATE_compiling___compiling_base
, 35);
317 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___ToolContext____cc_lib_paths(fra
.me
.REG
[0]);
318 stack_frame_head
= fra
.me
.prev
;
319 return fra
.me
.REG
[0];
321 void compiling___compiling_base___ToolContext___cc_lib_paths__eq(val_t p0
, val_t p1
){
322 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
324 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
325 fra
.me
.file
= LOCATE_compiling___compiling_base
;
327 fra
.me
.meth
= LOCATE_compiling___compiling_base___ToolContext___cc_lib_paths__eq
;
328 fra
.me
.has_broke
= 0;
330 fra
.me
.REG
[0] = NIT_NULL
;
331 fra
.me
.REG
[1] = NIT_NULL
;
334 /* ./compiling//compiling_base.nit:35 */
335 ATTR_compiling___compiling_base___ToolContext____cc_lib_paths(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
336 stack_frame_head
= fra
.me
.prev
;
339 val_t
compiling___compiling_base___ToolContext___cc_include_paths(val_t p0
){
340 struct {struct stack_frame_t me
;} fra
;
343 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
344 fra
.me
.file
= LOCATE_compiling___compiling_base
;
346 fra
.me
.meth
= LOCATE_compiling___compiling_base___ToolContext___cc_include_paths
;
347 fra
.me
.has_broke
= 0;
349 fra
.me
.REG
[0] = NIT_NULL
;
351 /* ./compiling//compiling_base.nit:36 */
352 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___ToolContext____cc_include_paths(fra
.me
.REG
[0])!=NIT_NULL
);
353 if (UNTAG_Bool(REGB0
)) {
355 nit_abort("Uninitialized attribute %s", "_cc_include_paths", LOCATE_compiling___compiling_base
, 36);
357 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___ToolContext____cc_include_paths(fra
.me
.REG
[0]);
358 stack_frame_head
= fra
.me
.prev
;
359 return fra
.me
.REG
[0];
361 void compiling___compiling_base___ToolContext___cc_include_paths__eq(val_t p0
, val_t p1
){
362 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
364 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
365 fra
.me
.file
= LOCATE_compiling___compiling_base
;
367 fra
.me
.meth
= LOCATE_compiling___compiling_base___ToolContext___cc_include_paths__eq
;
368 fra
.me
.has_broke
= 0;
370 fra
.me
.REG
[0] = NIT_NULL
;
371 fra
.me
.REG
[1] = NIT_NULL
;
374 /* ./compiling//compiling_base.nit:36 */
375 ATTR_compiling___compiling_base___ToolContext____cc_include_paths(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
376 stack_frame_head
= fra
.me
.prev
;
379 val_t
compiling___compiling_base___ToolContext___ext_prefix(val_t p0
){
380 struct {struct stack_frame_t me
;} fra
;
383 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
384 fra
.me
.file
= LOCATE_compiling___compiling_base
;
386 fra
.me
.meth
= LOCATE_compiling___compiling_base___ToolContext___ext_prefix
;
387 fra
.me
.has_broke
= 0;
389 fra
.me
.REG
[0] = NIT_NULL
;
391 /* ./compiling//compiling_base.nit:37 */
392 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___ToolContext____ext_prefix(fra
.me
.REG
[0])!=NIT_NULL
);
393 if (UNTAG_Bool(REGB0
)) {
395 nit_abort("Uninitialized attribute %s", "_ext_prefix", LOCATE_compiling___compiling_base
, 37);
397 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___ToolContext____ext_prefix(fra
.me
.REG
[0]);
398 stack_frame_head
= fra
.me
.prev
;
399 return fra
.me
.REG
[0];
401 void compiling___compiling_base___ToolContext___ext_prefix__eq(val_t p0
, val_t p1
){
402 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
404 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
405 fra
.me
.file
= LOCATE_compiling___compiling_base
;
407 fra
.me
.meth
= LOCATE_compiling___compiling_base___ToolContext___ext_prefix__eq
;
408 fra
.me
.has_broke
= 0;
410 fra
.me
.REG
[0] = NIT_NULL
;
411 fra
.me
.REG
[1] = NIT_NULL
;
414 /* ./compiling//compiling_base.nit:37 */
415 ATTR_compiling___compiling_base___ToolContext____ext_prefix(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
416 stack_frame_head
= fra
.me
.prev
;
419 void compiling___compiling_base___CProgram___init(val_t p0
, val_t p1
, int* init_table
){
420 int itpos0
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_compiling___compiling_base___CProgram
].i
;
421 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
424 static val_t once_value_1
; /* Once value */
425 static val_t once_value_2
; /* Once value */
426 static val_t once_value_3
; /* Once value */
427 if (init_table
[itpos0
]) return;
428 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
429 fra
.me
.file
= LOCATE_compiling___compiling_base
;
431 fra
.me
.meth
= LOCATE_compiling___compiling_base___CProgram___init
;
432 fra
.me
.has_broke
= 0;
434 fra
.me
.REG
[0] = NIT_NULL
;
435 fra
.me
.REG
[1] = NIT_NULL
;
436 fra
.me
.REG
[2] = NIT_NULL
;
439 /* ./compiling//compiling_base.nit:42 */
440 fra
.me
.REG
[2] = fra
.me
.REG
[0];
441 /* ./compiling//compiling_base.nit:44 */
442 ATTR_compiling___compiling_base___CProgram____program(fra
.me
.REG
[2]) = fra
.me
.REG
[1];
443 /* ./compiling//compiling_base.nit:45 */
444 fra
.me
.REG
[1] = CALL_program___Program___tc(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
445 fra
.me
.REG
[1] = CALL_compiling___compiling_base___ToolContext___compdir(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
446 REGB0
= TAG_Bool(fra
.me
.REG
[1]!=NIT_NULL
);
447 if (UNTAG_Bool(REGB0
)) {
449 nit_abort("Cast failed", NULL
, LOCATE_compiling___compiling_base
, 45);
451 ATTR_compiling___compiling_base___CProgram____compdir(fra
.me
.REG
[2]) = fra
.me
.REG
[1];
452 /* ./compiling//compiling_base.nit:46 */
454 fra
.me
.REG
[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
456 fra
.me
.REG
[0] = BOX_NativeString("");
458 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
459 once_value_1
= fra
.me
.REG
[0];
460 register_static_object(&once_value_1
);
461 } else fra
.me
.REG
[0] = once_value_1
;
462 fra
.me
.REG
[0] = fra
.me
.REG
[0];
463 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
464 fra
.me
.REG
[0] = CALL_compiling___compiling_base___CProgram___compdir(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
465 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
467 fra
.me
.REG
[0] = BOX_NativeString("/");
469 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
470 once_value_2
= fra
.me
.REG
[0];
471 register_static_object(&once_value_2
);
472 } else fra
.me
.REG
[0] = once_value_2
;
473 fra
.me
.REG
[0] = fra
.me
.REG
[0];
474 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
475 fra
.me
.REG
[0] = CALL_compiling___compiling_base___CProgram___program(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
476 fra
.me
.REG
[0] = CALL_program___Program___main_module(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
477 fra
.me
.REG
[0] = CALL_compiling___compiling_base___MMModule___cname(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
478 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
480 fra
.me
.REG
[0] = BOX_NativeString("._build.sh");
482 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
483 once_value_3
= fra
.me
.REG
[0];
484 register_static_object(&once_value_3
);
485 } else fra
.me
.REG
[0] = once_value_3
;
486 fra
.me
.REG
[0] = fra
.me
.REG
[0];
487 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
488 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
489 ATTR_compiling___compiling_base___CProgram____build_file(fra
.me
.REG
[2]) = fra
.me
.REG
[1];
490 stack_frame_head
= fra
.me
.prev
;
491 init_table
[itpos0
] = 1;
494 val_t
compiling___compiling_base___CProgram___program(val_t p0
){
495 struct {struct stack_frame_t me
;} fra
;
498 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
499 fra
.me
.file
= LOCATE_compiling___compiling_base
;
501 fra
.me
.meth
= LOCATE_compiling___compiling_base___CProgram___program
;
502 fra
.me
.has_broke
= 0;
504 fra
.me
.REG
[0] = NIT_NULL
;
506 /* ./compiling//compiling_base.nit:49 */
507 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CProgram____program(fra
.me
.REG
[0])!=NIT_NULL
);
508 if (UNTAG_Bool(REGB0
)) {
510 nit_abort("Uninitialized attribute %s", "_program", LOCATE_compiling___compiling_base
, 49);
512 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___CProgram____program(fra
.me
.REG
[0]);
513 stack_frame_head
= fra
.me
.prev
;
514 return fra
.me
.REG
[0];
516 val_t
compiling___compiling_base___CProgram___files(val_t p0
){
517 struct {struct stack_frame_t me
;} fra
;
520 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
521 fra
.me
.file
= LOCATE_compiling___compiling_base
;
523 fra
.me
.meth
= LOCATE_compiling___compiling_base___CProgram___files
;
524 fra
.me
.has_broke
= 0;
526 fra
.me
.REG
[0] = NIT_NULL
;
528 /* ./compiling//compiling_base.nit:52 */
529 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CProgram____files(fra
.me
.REG
[0])!=NIT_NULL
);
530 if (UNTAG_Bool(REGB0
)) {
532 nit_abort("Uninitialized attribute %s", "_files", LOCATE_compiling___compiling_base
, 52);
534 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___CProgram____files(fra
.me
.REG
[0]);
535 stack_frame_head
= fra
.me
.prev
;
536 return fra
.me
.REG
[0];
538 val_t
compiling___compiling_base___CProgram___include_dirs(val_t p0
){
539 struct {struct stack_frame_t me
;} fra
;
542 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
543 fra
.me
.file
= LOCATE_compiling___compiling_base
;
545 fra
.me
.meth
= LOCATE_compiling___compiling_base___CProgram___include_dirs
;
546 fra
.me
.has_broke
= 0;
548 fra
.me
.REG
[0] = NIT_NULL
;
550 /* ./compiling//compiling_base.nit:55 */
551 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CProgram____include_dirs(fra
.me
.REG
[0])!=NIT_NULL
);
552 if (UNTAG_Bool(REGB0
)) {
554 nit_abort("Uninitialized attribute %s", "_include_dirs", LOCATE_compiling___compiling_base
, 55);
556 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___CProgram____include_dirs(fra
.me
.REG
[0]);
557 stack_frame_head
= fra
.me
.prev
;
558 return fra
.me
.REG
[0];
560 val_t
compiling___compiling_base___CProgram___build_file(val_t p0
){
561 struct {struct stack_frame_t me
;} fra
;
564 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
565 fra
.me
.file
= LOCATE_compiling___compiling_base
;
567 fra
.me
.meth
= LOCATE_compiling___compiling_base___CProgram___build_file
;
568 fra
.me
.has_broke
= 0;
570 fra
.me
.REG
[0] = NIT_NULL
;
572 /* ./compiling//compiling_base.nit:58 */
573 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CProgram____build_file(fra
.me
.REG
[0])!=NIT_NULL
);
574 if (UNTAG_Bool(REGB0
)) {
576 nit_abort("Uninitialized attribute %s", "_build_file", LOCATE_compiling___compiling_base
, 58);
578 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___CProgram____build_file(fra
.me
.REG
[0]);
579 stack_frame_head
= fra
.me
.prev
;
580 return fra
.me
.REG
[0];
582 val_t
compiling___compiling_base___CProgram___compdir(val_t p0
){
583 struct {struct stack_frame_t me
;} fra
;
586 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
587 fra
.me
.file
= LOCATE_compiling___compiling_base
;
589 fra
.me
.meth
= LOCATE_compiling___compiling_base___CProgram___compdir
;
590 fra
.me
.has_broke
= 0;
592 fra
.me
.REG
[0] = NIT_NULL
;
594 /* ./compiling//compiling_base.nit:61 */
595 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CProgram____compdir(fra
.me
.REG
[0])!=NIT_NULL
);
596 if (UNTAG_Bool(REGB0
)) {
598 nit_abort("Uninitialized attribute %s", "_compdir", LOCATE_compiling___compiling_base
, 61);
600 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___CProgram____compdir(fra
.me
.REG
[0]);
601 stack_frame_head
= fra
.me
.prev
;
602 return fra
.me
.REG
[0];
604 val_t
compiling___compiling_base___CProgram___module_header_name(val_t p0
, val_t p1
){
605 struct {struct stack_frame_t me
; val_t MORE_REG
[4];} fra
;
608 static val_t once_value_2
; /* Once value */
609 static val_t once_value_3
; /* Once value */
610 static val_t once_value_4
; /* Once value */
611 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
612 fra
.me
.file
= LOCATE_compiling___compiling_base
;
614 fra
.me
.meth
= LOCATE_compiling___compiling_base___CProgram___module_header_name
;
615 fra
.me
.has_broke
= 0;
617 fra
.me
.REG
[0] = NIT_NULL
;
618 fra
.me
.REG
[1] = NIT_NULL
;
619 fra
.me
.REG
[2] = NIT_NULL
;
620 fra
.me
.REG
[3] = NIT_NULL
;
621 fra
.me
.REG
[4] = NIT_NULL
;
624 /* ./compiling//compiling_base.nit:67 */
625 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CProgram____module_include(fra
.me
.REG
[0])!=NIT_NULL
);
626 if (UNTAG_Bool(REGB0
)) {
628 nit_abort("Uninitialized attribute %s", "_module_include", LOCATE_compiling___compiling_base
, 67);
630 fra
.me
.REG
[2] = ATTR_compiling___compiling_base___CProgram____module_include(fra
.me
.REG
[0]);
631 REGB0
= CALL_standard___collection___abstract_collection___MapRead___has_key(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
632 if (UNTAG_Bool(REGB0
)) {
633 /* ./compiling//compiling_base.nit:68 */
634 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CProgram____module_include(fra
.me
.REG
[0])!=NIT_NULL
);
635 if (UNTAG_Bool(REGB0
)) {
637 nit_abort("Uninitialized attribute %s", "_module_include", LOCATE_compiling___compiling_base
, 68);
639 fra
.me
.REG
[2] = ATTR_compiling___compiling_base___CProgram____module_include(fra
.me
.REG
[0]);
640 fra
.me
.REG
[2] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
643 /* ./compiling//compiling_base.nit:70 */
645 fra
.me
.REG
[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
647 fra
.me
.REG
[4] = BOX_NativeString("");
649 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB0
);
650 once_value_2
= fra
.me
.REG
[4];
651 register_static_object(&once_value_2
);
652 } else fra
.me
.REG
[4] = once_value_2
;
653 fra
.me
.REG
[4] = fra
.me
.REG
[4];
654 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
655 fra
.me
.REG
[4] = CALL_compiling___compiling_base___MMModule___cname(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
656 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
658 fra
.me
.REG
[4] = BOX_NativeString(".");
660 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB0
);
661 once_value_3
= fra
.me
.REG
[4];
662 register_static_object(&once_value_3
);
663 } else fra
.me
.REG
[4] = once_value_3
;
664 fra
.me
.REG
[4] = fra
.me
.REG
[4];
665 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
666 fra
.me
.REG
[4] = CALL_compiling___compiling_base___CProgram___get_file_ending(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
667 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
669 fra
.me
.REG
[4] = BOX_NativeString(".h");
671 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB0
);
672 once_value_4
= fra
.me
.REG
[4];
673 register_static_object(&once_value_4
);
674 } else fra
.me
.REG
[4] = once_value_4
;
675 fra
.me
.REG
[4] = fra
.me
.REG
[4];
676 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
677 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
678 /* ./compiling//compiling_base.nit:71 */
679 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CProgram____module_include(fra
.me
.REG
[0])!=NIT_NULL
);
680 if (UNTAG_Bool(REGB0
)) {
682 nit_abort("Uninitialized attribute %s", "_module_include", LOCATE_compiling___compiling_base
, 71);
684 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___CProgram____module_include(fra
.me
.REG
[0]);
685 CALL_standard___collection___abstract_collection___Map_____braeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1], fra
.me
.REG
[3]);
686 /* ./compiling//compiling_base.nit:72 */
687 fra
.me
.REG
[2] = fra
.me
.REG
[3];
690 stack_frame_head
= fra
.me
.prev
;
691 return fra
.me
.REG
[2];
693 val_t
compiling___compiling_base___CProgram___get_file_ending(val_t p0
){
694 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
697 static val_t once_value_1
; /* Once value */
698 static val_t once_value_2
; /* Once value */
699 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
700 fra
.me
.file
= LOCATE_compiling___compiling_base
;
702 fra
.me
.meth
= LOCATE_compiling___compiling_base___CProgram___get_file_ending
;
703 fra
.me
.has_broke
= 0;
705 fra
.me
.REG
[0] = NIT_NULL
;
706 fra
.me
.REG
[1] = NIT_NULL
;
708 /* ./compiling//compiling_base.nit:80 */
709 fra
.me
.REG
[0] = CALL_compiling___compiling_base___CProgram___program(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
710 fra
.me
.REG
[0] = CALL_program___Program___tc(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
711 REGB0
= CALL_program___ToolContext___global(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
712 if (UNTAG_Bool(REGB0
)) {
714 fra
.me
.REG
[0] = BOX_NativeString("_glob");
716 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
717 once_value_1
= fra
.me
.REG
[0];
718 register_static_object(&once_value_1
);
719 } else fra
.me
.REG
[0] = once_value_1
;
720 fra
.me
.REG
[0] = fra
.me
.REG
[0];
723 fra
.me
.REG
[1] = BOX_NativeString("_sep");
725 fra
.me
.REG
[1] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[1], REGB0
);
726 once_value_2
= fra
.me
.REG
[1];
727 register_static_object(&once_value_2
);
728 } else fra
.me
.REG
[1] = once_value_2
;
729 fra
.me
.REG
[1] = fra
.me
.REG
[1];
730 fra
.me
.REG
[0] = fra
.me
.REG
[1];
734 stack_frame_head
= fra
.me
.prev
;
735 return fra
.me
.REG
[0];
737 void compiling___compiling_base___CProgram___generate_build_file(val_t p0
){
738 struct {struct stack_frame_t me
; val_t MORE_REG
[7];} fra
;
743 static val_t once_value_1
; /* Once value */
744 static val_t once_value_2
; /* Once value */
745 static val_t once_value_3
; /* Once value */
746 static val_t once_value_4
; /* Once value */
747 static val_t once_value_5
; /* Once value */
748 static val_t once_value_6
; /* Once value */
749 static val_t once_value_7
; /* Once value */
750 static val_t once_value_8
; /* Once value */
751 static val_t once_value_9
; /* Once value */
752 static val_t once_value_10
; /* Once value */
753 static val_t once_value_11
; /* Once value */
754 static val_t once_value_12
; /* Once value */
755 static val_t once_value_13
; /* Once value */
756 static val_t once_value_14
; /* Once value */
757 static val_t once_value_15
; /* Once value */
758 static val_t once_value_16
; /* Once value */
759 static val_t once_value_17
; /* Once value */
760 static val_t once_value_18
; /* Once value */
761 static val_t once_value_19
; /* Once value */
762 static val_t once_value_20
; /* Once value */
763 static val_t once_value_21
; /* Once value */
764 static val_t once_value_22
; /* Once value */
765 static val_t once_value_23
; /* Once value */
766 static val_t once_value_24
; /* Once value */
767 static val_t once_value_25
; /* Once value */
768 static val_t once_value_27
; /* Once value */
769 static val_t once_value_28
; /* Once value */
770 static val_t once_value_30
; /* Once value */
771 static val_t once_value_31
; /* Once value */
772 static val_t once_value_33
; /* Once value */
773 static val_t once_value_34
; /* Once value */
774 static val_t once_value_35
; /* Once value */
775 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
776 fra
.me
.file
= LOCATE_compiling___compiling_base
;
778 fra
.me
.meth
= LOCATE_compiling___compiling_base___CProgram___generate_build_file
;
779 fra
.me
.has_broke
= 0;
781 fra
.me
.REG
[0] = NIT_NULL
;
782 fra
.me
.REG
[1] = NIT_NULL
;
783 fra
.me
.REG
[2] = NIT_NULL
;
784 fra
.me
.REG
[3] = NIT_NULL
;
785 fra
.me
.REG
[4] = NIT_NULL
;
786 fra
.me
.REG
[5] = NIT_NULL
;
787 fra
.me
.REG
[6] = NIT_NULL
;
788 fra
.me
.REG
[7] = NIT_NULL
;
790 /* ./compiling//compiling_base.nit:82 */
791 fra
.me
.REG
[1] = fra
.me
.REG
[0];
792 /* ./compiling//compiling_base.nit:85 */
793 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CProgram____build_file(fra
.me
.REG
[1])!=NIT_NULL
);
794 if (UNTAG_Bool(REGB0
)) {
796 nit_abort("Uninitialized attribute %s", "_build_file", LOCATE_compiling___compiling_base
, 85);
798 fra
.me
.REG
[2] = ATTR_compiling___compiling_base___CProgram____build_file(fra
.me
.REG
[1]);
799 fra
.me
.REG
[2] = NEW_OFStream_standard___file___OFStream___open(fra
.me
.REG
[2]);
800 /* ./compiling//compiling_base.nit:86 */
802 fra
.me
.REG
[3] = BOX_NativeString("");
804 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
805 once_value_1
= fra
.me
.REG
[3];
806 register_static_object(&once_value_1
);
807 } else fra
.me
.REG
[3] = once_value_1
;
808 fra
.me
.REG
[3] = fra
.me
.REG
[3];
809 /* ./compiling//compiling_base.nit:87 */
810 fra
.me
.REG
[4] = CALL_compiling___compiling_base___CProgram___program(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
811 fra
.me
.REG
[4] = CALL_program___Program___tc(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
812 /* ./compiling//compiling_base.nit:89 */
813 REGB0
= CALL_mmloader___ToolContext___verbose_level(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
815 REGB2
= TAG_Bool(IS_EQUAL_OO(REGB0
,REGB1
));
816 if (UNTAG_Bool(REGB2
)) {
818 /* ./../lib/standard//kernel.nit:210 */
819 REGB1
= TAG_Bool((REGB0
)==(REGB1
));
820 /* ./compiling//compiling_base.nit:89 */
823 if (UNTAG_Bool(REGB2
)) {
824 /* ./compiling//compiling_base.nit:90 */
826 fra
.me
.REG
[5] = BOX_NativeString("-v");
828 fra
.me
.REG
[5] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[5], REGB2
);
829 once_value_2
= fra
.me
.REG
[5];
830 register_static_object(&once_value_2
);
831 } else fra
.me
.REG
[5] = once_value_2
;
832 fra
.me
.REG
[5] = fra
.me
.REG
[5];
833 fra
.me
.REG
[3] = fra
.me
.REG
[5];
835 /* ./compiling//compiling_base.nit:91 */
836 REGB2
= CALL_mmloader___ToolContext___verbose_level(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
838 REGB0
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2
), VTID_standard___kernel___Comparable___OTHER(REGB2
))) /*cast OTHER*/;
839 if (UNTAG_Bool(REGB0
)) {
841 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
843 /* ./../lib/standard//kernel.nit:216 */
844 REGB1
= TAG_Bool(UNTAG_Int(REGB2
)>=UNTAG_Int(REGB1
));
845 /* ./compiling//compiling_base.nit:91 */
846 if (UNTAG_Bool(REGB1
)) {
847 /* ./compiling//compiling_base.nit:93 */
849 fra
.me
.REG
[5] = BOX_NativeString("-vv");
851 fra
.me
.REG
[5] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[5], REGB1
);
852 once_value_3
= fra
.me
.REG
[5];
853 register_static_object(&once_value_3
);
854 } else fra
.me
.REG
[5] = once_value_3
;
855 fra
.me
.REG
[5] = fra
.me
.REG
[5];
856 fra
.me
.REG
[3] = fra
.me
.REG
[5];
859 /* ./compiling//compiling_base.nit:96 */
861 fra
.me
.REG
[5] = BOX_NativeString("#!/bin/sh\n");
863 fra
.me
.REG
[5] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[5], REGB1
);
864 once_value_4
= fra
.me
.REG
[5];
865 register_static_object(&once_value_4
);
866 } else fra
.me
.REG
[5] = once_value_4
;
867 fra
.me
.REG
[5] = fra
.me
.REG
[5];
868 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[5]);
869 /* ./compiling//compiling_base.nit:97 */
871 fra
.me
.REG
[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1
);
873 fra
.me
.REG
[6] = BOX_NativeString("# This shell script is generated by NIT to compile the program ");
875 fra
.me
.REG
[6] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[6], REGB1
);
876 once_value_5
= fra
.me
.REG
[6];
877 register_static_object(&once_value_5
);
878 } else fra
.me
.REG
[6] = once_value_5
;
879 fra
.me
.REG
[6] = fra
.me
.REG
[6];
880 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
881 fra
.me
.REG
[6] = CALL_compiling___compiling_base___CProgram___program(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
882 fra
.me
.REG
[6] = CALL_program___Program___main_module(fra
.me
.REG
[6])(fra
.me
.REG
[6]);
883 fra
.me
.REG
[6] = CALL_metamodel___abstractmetamodel___MMModule___full_name(fra
.me
.REG
[6])(fra
.me
.REG
[6]);
884 fra
.me
.REG
[6] = CALL_standard___string___Object___to_s(fra
.me
.REG
[6])(fra
.me
.REG
[6]);
885 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
887 fra
.me
.REG
[6] = BOX_NativeString(".\n");
889 fra
.me
.REG
[6] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[6], REGB1
);
890 once_value_6
= fra
.me
.REG
[6];
891 register_static_object(&once_value_6
);
892 } else fra
.me
.REG
[6] = once_value_6
;
893 fra
.me
.REG
[6] = fra
.me
.REG
[6];
894 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
895 fra
.me
.REG
[5] = CALL_standard___string___Object___to_s(fra
.me
.REG
[5])(fra
.me
.REG
[5]);
896 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[5]);
897 /* ./compiling//compiling_base.nit:98 */
899 fra
.me
.REG
[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1
);
901 fra
.me
.REG
[6] = BOX_NativeString("CLIBDIR=\"");
903 fra
.me
.REG
[6] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[6], REGB1
);
904 once_value_7
= fra
.me
.REG
[6];
905 register_static_object(&once_value_7
);
906 } else fra
.me
.REG
[6] = once_value_7
;
907 fra
.me
.REG
[6] = fra
.me
.REG
[6];
908 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
909 fra
.me
.REG
[6] = CALL_compiling___compiling_base___ToolContext___clibdir(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
910 REGB1
= TAG_Bool(fra
.me
.REG
[6]!=NIT_NULL
);
911 if (UNTAG_Bool(REGB1
)) {
913 nit_abort("Cast failed", NULL
, LOCATE_compiling___compiling_base
, 98);
915 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
917 fra
.me
.REG
[6] = BOX_NativeString("\"\n");
919 fra
.me
.REG
[6] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[6], REGB1
);
920 once_value_8
= fra
.me
.REG
[6];
921 register_static_object(&once_value_8
);
922 } else fra
.me
.REG
[6] = once_value_8
;
923 fra
.me
.REG
[6] = fra
.me
.REG
[6];
924 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
925 fra
.me
.REG
[5] = CALL_standard___string___Object___to_s(fra
.me
.REG
[5])(fra
.me
.REG
[5]);
926 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[5]);
927 /* ./compiling//compiling_base.nit:99 */
929 fra
.me
.REG
[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1
);
931 fra
.me
.REG
[6] = BOX_NativeString("");
933 fra
.me
.REG
[6] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[6], REGB1
);
934 once_value_9
= fra
.me
.REG
[6];
935 register_static_object(&once_value_9
);
936 } else fra
.me
.REG
[6] = once_value_9
;
937 fra
.me
.REG
[6] = fra
.me
.REG
[6];
938 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
939 fra
.me
.REG
[6] = CALL_compiling___compiling_base___ToolContext___bindir(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
940 REGB1
= TAG_Bool(fra
.me
.REG
[6]!=NIT_NULL
);
941 if (UNTAG_Bool(REGB1
)) {
943 nit_abort("Cast failed", NULL
, LOCATE_compiling___compiling_base
, 99);
945 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
946 if (!once_value_10
) {
947 fra
.me
.REG
[6] = BOX_NativeString("/gccx ");
949 fra
.me
.REG
[6] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[6], REGB1
);
950 once_value_10
= fra
.me
.REG
[6];
951 register_static_object(&once_value_10
);
952 } else fra
.me
.REG
[6] = once_value_10
;
953 fra
.me
.REG
[6] = fra
.me
.REG
[6];
954 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
955 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[3]);
956 if (!once_value_11
) {
957 fra
.me
.REG
[3] = BOX_NativeString(" -d ");
959 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB1
);
960 once_value_11
= fra
.me
.REG
[3];
961 register_static_object(&once_value_11
);
962 } else fra
.me
.REG
[3] = once_value_11
;
963 fra
.me
.REG
[3] = fra
.me
.REG
[3];
964 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[3]);
965 fra
.me
.REG
[3] = CALL_compiling___compiling_base___CProgram___compdir(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
966 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[3]);
967 if (!once_value_12
) {
968 fra
.me
.REG
[3] = BOX_NativeString(" -I $CLIBDIR ");
970 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB1
);
971 once_value_12
= fra
.me
.REG
[3];
972 register_static_object(&once_value_12
);
973 } else fra
.me
.REG
[3] = once_value_12
;
974 fra
.me
.REG
[3] = fra
.me
.REG
[3];
975 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[3]);
976 fra
.me
.REG
[3] = CALL_compiling___compiling_base___CProgram___include_dirs(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
977 if (!once_value_13
) {
978 fra
.me
.REG
[6] = BOX_NativeString(" ");
980 fra
.me
.REG
[6] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[6], REGB1
);
981 once_value_13
= fra
.me
.REG
[6];
982 register_static_object(&once_value_13
);
983 } else fra
.me
.REG
[6] = once_value_13
;
984 fra
.me
.REG
[6] = fra
.me
.REG
[6];
985 fra
.me
.REG
[6] = CALL_standard___string___Collection___join(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[6]);
986 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
987 if (!once_value_14
) {
988 fra
.me
.REG
[6] = BOX_NativeString("");
990 fra
.me
.REG
[6] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[6], REGB1
);
991 once_value_14
= fra
.me
.REG
[6];
992 register_static_object(&once_value_14
);
993 } else fra
.me
.REG
[6] = once_value_14
;
994 fra
.me
.REG
[6] = fra
.me
.REG
[6];
995 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
996 fra
.me
.REG
[5] = CALL_standard___string___Object___to_s(fra
.me
.REG
[5])(fra
.me
.REG
[5]);
997 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[5]);
998 /* ./compiling//compiling_base.nit:100 */
999 fra
.me
.REG
[5] = CALL_compiling___compiling_base___ToolContext___output_file(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
1000 REGB1
= TAG_Bool(fra
.me
.REG
[5]==NIT_NULL
);
1001 if (UNTAG_Bool(REGB1
)) {
1003 REGB2
= TAG_Bool(fra
.me
.REG
[5]==NIT_NULL
);
1004 if (UNTAG_Bool(REGB2
)) {
1005 REGB2
= TAG_Bool(false);
1008 REGB2
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[5])(fra
.me
.REG
[5], NIT_NULL
);
1012 REGB1
= TAG_Bool(!UNTAG_Bool(REGB1
));
1013 if (UNTAG_Bool(REGB1
)) {
1014 /* ./compiling//compiling_base.nit:101 */
1016 fra
.me
.REG
[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1
);
1017 if (!once_value_15
) {
1018 fra
.me
.REG
[6] = BOX_NativeString(" -o ");
1020 fra
.me
.REG
[6] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[6], REGB1
);
1021 once_value_15
= fra
.me
.REG
[6];
1022 register_static_object(&once_value_15
);
1023 } else fra
.me
.REG
[6] = once_value_15
;
1024 fra
.me
.REG
[6] = fra
.me
.REG
[6];
1025 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
1026 fra
.me
.REG
[6] = CALL_compiling___compiling_base___ToolContext___output_file(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
1027 REGB1
= TAG_Bool(fra
.me
.REG
[6]!=NIT_NULL
);
1028 if (UNTAG_Bool(REGB1
)) {
1030 nit_abort("Cast failed", NULL
, LOCATE_compiling___compiling_base
, 101);
1032 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
1033 if (!once_value_16
) {
1034 fra
.me
.REG
[6] = BOX_NativeString("");
1036 fra
.me
.REG
[6] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[6], REGB1
);
1037 once_value_16
= fra
.me
.REG
[6];
1038 register_static_object(&once_value_16
);
1039 } else fra
.me
.REG
[6] = once_value_16
;
1040 fra
.me
.REG
[6] = fra
.me
.REG
[6];
1041 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
1042 fra
.me
.REG
[5] = CALL_standard___string___Object___to_s(fra
.me
.REG
[5])(fra
.me
.REG
[5]);
1043 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[5]);
1045 /* ./compiling//compiling_base.nit:102 */
1046 fra
.me
.REG
[5] = CALL_compiling___compiling_base___ToolContext___ext_prefix(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
1047 REGB1
= CALL_standard___collection___abstract_collection___Collection___is_empty(fra
.me
.REG
[5])(fra
.me
.REG
[5]);
1048 if (UNTAG_Bool(REGB1
)) {
1049 /* ./compiling//compiling_base.nit:103 */
1051 fra
.me
.REG
[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1
);
1052 if (!once_value_17
) {
1053 fra
.me
.REG
[6] = BOX_NativeString(" -o ");
1055 fra
.me
.REG
[6] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[6], REGB1
);
1056 once_value_17
= fra
.me
.REG
[6];
1057 register_static_object(&once_value_17
);
1058 } else fra
.me
.REG
[6] = once_value_17
;
1059 fra
.me
.REG
[6] = fra
.me
.REG
[6];
1060 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
1061 fra
.me
.REG
[6] = CALL_compiling___compiling_base___CProgram___program(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1062 fra
.me
.REG
[6] = CALL_program___Program___main_module(fra
.me
.REG
[6])(fra
.me
.REG
[6]);
1063 fra
.me
.REG
[6] = CALL_metamodel___abstractmetamodel___MMModule___name(fra
.me
.REG
[6])(fra
.me
.REG
[6]);
1064 fra
.me
.REG
[6] = CALL_standard___string___Object___to_s(fra
.me
.REG
[6])(fra
.me
.REG
[6]);
1065 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
1066 if (!once_value_18
) {
1067 fra
.me
.REG
[6] = BOX_NativeString("");
1069 fra
.me
.REG
[6] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[6], REGB1
);
1070 once_value_18
= fra
.me
.REG
[6];
1071 register_static_object(&once_value_18
);
1072 } else fra
.me
.REG
[6] = once_value_18
;
1073 fra
.me
.REG
[6] = fra
.me
.REG
[6];
1074 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
1075 fra
.me
.REG
[5] = CALL_standard___string___Object___to_s(fra
.me
.REG
[5])(fra
.me
.REG
[5]);
1076 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[5]);
1078 /* ./compiling//compiling_base.nit:105 */
1080 fra
.me
.REG
[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1
);
1081 if (!once_value_19
) {
1082 fra
.me
.REG
[6] = BOX_NativeString(" -o ");
1084 fra
.me
.REG
[6] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[6], REGB1
);
1085 once_value_19
= fra
.me
.REG
[6];
1086 register_static_object(&once_value_19
);
1087 } else fra
.me
.REG
[6] = once_value_19
;
1088 fra
.me
.REG
[6] = fra
.me
.REG
[6];
1089 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
1090 fra
.me
.REG
[6] = CALL_compiling___compiling_base___CProgram___program(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1091 fra
.me
.REG
[6] = CALL_program___Program___main_module(fra
.me
.REG
[6])(fra
.me
.REG
[6]);
1092 fra
.me
.REG
[6] = CALL_metamodel___abstractmetamodel___MMModule___name(fra
.me
.REG
[6])(fra
.me
.REG
[6]);
1093 fra
.me
.REG
[6] = CALL_standard___string___Object___to_s(fra
.me
.REG
[6])(fra
.me
.REG
[6]);
1094 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
1095 if (!once_value_20
) {
1096 fra
.me
.REG
[6] = BOX_NativeString("_");
1098 fra
.me
.REG
[6] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[6], REGB1
);
1099 once_value_20
= fra
.me
.REG
[6];
1100 register_static_object(&once_value_20
);
1101 } else fra
.me
.REG
[6] = once_value_20
;
1102 fra
.me
.REG
[6] = fra
.me
.REG
[6];
1103 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
1104 fra
.me
.REG
[6] = CALL_compiling___compiling_base___ToolContext___ext_prefix(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
1105 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
1106 if (!once_value_21
) {
1107 fra
.me
.REG
[6] = BOX_NativeString("");
1109 fra
.me
.REG
[6] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[6], REGB1
);
1110 once_value_21
= fra
.me
.REG
[6];
1111 register_static_object(&once_value_21
);
1112 } else fra
.me
.REG
[6] = once_value_21
;
1113 fra
.me
.REG
[6] = fra
.me
.REG
[6];
1114 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
1115 fra
.me
.REG
[5] = CALL_standard___string___Object___to_s(fra
.me
.REG
[5])(fra
.me
.REG
[5]);
1116 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[5]);
1119 /* ./compiling//compiling_base.nit:107 */
1120 REGB1
= CALL_compiling___compiling_base___ToolContext___boost(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
1121 if (UNTAG_Bool(REGB1
)) {
1122 if (!once_value_22
) {
1123 fra
.me
.REG
[5] = BOX_NativeString(" -O");
1125 fra
.me
.REG
[5] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[5], REGB1
);
1126 once_value_22
= fra
.me
.REG
[5];
1127 register_static_object(&once_value_22
);
1128 } else fra
.me
.REG
[5] = once_value_22
;
1129 fra
.me
.REG
[5] = fra
.me
.REG
[5];
1130 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[5]);
1132 /* ./compiling//compiling_base.nit:108 */
1133 REGB1
= CALL_compiling___compiling_base___ToolContext___cc_link(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
1134 REGB1
= TAG_Bool(!UNTAG_Bool(REGB1
));
1135 if (UNTAG_Bool(REGB1
)) {
1136 if (!once_value_23
) {
1137 fra
.me
.REG
[5] = BOX_NativeString(" -x \"-c\"");
1139 fra
.me
.REG
[5] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[5], REGB1
);
1140 once_value_23
= fra
.me
.REG
[5];
1141 register_static_object(&once_value_23
);
1142 } else fra
.me
.REG
[5] = once_value_23
;
1143 fra
.me
.REG
[5] = fra
.me
.REG
[5];
1144 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[5]);
1146 /* ./compiling//compiling_base.nit:109 */
1147 fra
.me
.REG
[5] = CALL_compiling___compiling_base___ToolContext___cc_libs(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
1148 /* ./../lib/standard//collection//array.nit:232 */
1150 /* ./../lib/standard//collection//array.nit:233 */
1151 REGB2
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[5])!=NIT_NULL
);
1152 if (UNTAG_Bool(REGB2
)) {
1154 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 233);
1156 REGB2
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[5]);
1157 /* ./../lib/standard//collection//array.nit:234 */
1158 fra
.me
.REG
[6] = ATTR_standard___collection___array___Array____items(fra
.me
.REG
[5]);
1159 /* ./../lib/standard//collection//array.nit:235 */
1161 /* ./../lib/standard//collection//array.nit:23 */
1162 REGB2
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[5])!=NIT_NULL
);
1163 if (UNTAG_Bool(REGB2
)) {
1165 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 23);
1167 REGB2
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[5]);
1168 REGB0
= TAG_Bool(VAL_ISA(REGB2
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1
), VTID_standard___kernel___Comparable___OTHER(REGB1
))) /*cast OTHER*/;
1169 if (UNTAG_Bool(REGB0
)) {
1171 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1173 /* ./../lib/standard//kernel.nit:215 */
1174 REGB2
= TAG_Bool(UNTAG_Int(REGB1
)<UNTAG_Int(REGB2
));
1175 /* ./../lib/standard//collection//array.nit:235 */
1176 if (UNTAG_Bool(REGB2
)) {
1177 /* ./../lib/standard//collection//array.nit:236 */
1178 REGB2
= TAG_Bool(fra
.me
.REG
[6]==NIT_NULL
);
1179 if (UNTAG_Bool(REGB2
)) {
1180 nit_abort("Reciever is null", NULL
, LOCATE_standard___collection___array
, 236);
1182 /* ./../lib/standard//collection//array.nit:652 */
1183 fra
.me
.REG
[0] = ((Nit_NativeArray
)fra
.me
.REG
[6])->val
[UNTAG_Int(REGB1
)];
1184 /* ./compiling//compiling_base.nit:109 */
1186 fra
.me
.REG
[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB2
);
1187 if (!once_value_24
) {
1188 fra
.me
.REG
[7] = BOX_NativeString(" -x \"-l ");
1190 fra
.me
.REG
[7] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[7], REGB2
);
1191 once_value_24
= fra
.me
.REG
[7];
1192 register_static_object(&once_value_24
);
1193 } else fra
.me
.REG
[7] = once_value_24
;
1194 fra
.me
.REG
[7] = fra
.me
.REG
[7];
1195 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[7]);
1196 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[0]);
1197 if (!once_value_25
) {
1198 fra
.me
.REG
[0] = BOX_NativeString("\"");
1200 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB2
);
1201 once_value_25
= fra
.me
.REG
[0];
1202 register_static_object(&once_value_25
);
1203 } else fra
.me
.REG
[0] = once_value_25
;
1204 fra
.me
.REG
[0] = fra
.me
.REG
[0];
1205 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[0]);
1206 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
1207 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
1208 /* ./../lib/standard//collection//array.nit:237 */
1210 /* ./../lib/standard//kernel.nit:218 */
1211 REGB2
= TAG_Int(UNTAG_Int(REGB1
)+UNTAG_Int(REGB2
));
1212 /* ./../lib/standard//collection//array.nit:237 */
1215 /* ./../lib/standard//collection//array.nit:235 */
1220 /* ./compiling//compiling_base.nit:110 */
1221 fra
.me
.REG
[6] = CALL_compiling___compiling_base___ToolContext___cc_lib_paths(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
1222 /* ./../lib/standard//collection//array.nit:232 */
1224 /* ./../lib/standard//collection//array.nit:233 */
1225 REGB2
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[6])!=NIT_NULL
);
1226 if (UNTAG_Bool(REGB2
)) {
1228 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 233);
1230 REGB2
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[6]);
1231 /* ./../lib/standard//collection//array.nit:234 */
1232 fra
.me
.REG
[5] = ATTR_standard___collection___array___Array____items(fra
.me
.REG
[6]);
1233 /* ./../lib/standard//collection//array.nit:235 */
1235 /* ./../lib/standard//collection//array.nit:23 */
1236 REGB2
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[6])!=NIT_NULL
);
1237 if (UNTAG_Bool(REGB2
)) {
1239 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 23);
1241 REGB2
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[6]);
1242 REGB0
= TAG_Bool(VAL_ISA(REGB2
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1
), VTID_standard___kernel___Comparable___OTHER(REGB1
))) /*cast OTHER*/;
1243 if (UNTAG_Bool(REGB0
)) {
1245 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1247 /* ./../lib/standard//kernel.nit:215 */
1248 REGB2
= TAG_Bool(UNTAG_Int(REGB1
)<UNTAG_Int(REGB2
));
1249 /* ./../lib/standard//collection//array.nit:235 */
1250 if (UNTAG_Bool(REGB2
)) {
1251 /* ./../lib/standard//collection//array.nit:236 */
1252 REGB2
= TAG_Bool(fra
.me
.REG
[5]==NIT_NULL
);
1253 if (UNTAG_Bool(REGB2
)) {
1254 nit_abort("Reciever is null", NULL
, LOCATE_standard___collection___array
, 236);
1256 /* ./../lib/standard//collection//array.nit:652 */
1257 fra
.me
.REG
[3] = ((Nit_NativeArray
)fra
.me
.REG
[5])->val
[UNTAG_Int(REGB1
)];
1258 /* ./compiling//compiling_base.nit:110 */
1260 fra
.me
.REG
[0] = NEW_Array_standard___collection___array___Array___with_capacity(REGB2
);
1261 if (!once_value_27
) {
1262 fra
.me
.REG
[7] = BOX_NativeString(" -x \"-L ");
1264 fra
.me
.REG
[7] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[7], REGB2
);
1265 once_value_27
= fra
.me
.REG
[7];
1266 register_static_object(&once_value_27
);
1267 } else fra
.me
.REG
[7] = once_value_27
;
1268 fra
.me
.REG
[7] = fra
.me
.REG
[7];
1269 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[7]);
1270 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[3]);
1271 if (!once_value_28
) {
1272 fra
.me
.REG
[3] = BOX_NativeString("\"");
1274 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB2
);
1275 once_value_28
= fra
.me
.REG
[3];
1276 register_static_object(&once_value_28
);
1277 } else fra
.me
.REG
[3] = once_value_28
;
1278 fra
.me
.REG
[3] = fra
.me
.REG
[3];
1279 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[3]);
1280 fra
.me
.REG
[0] = CALL_standard___string___Object___to_s(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1281 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
1282 /* ./../lib/standard//collection//array.nit:237 */
1284 /* ./../lib/standard//kernel.nit:218 */
1285 REGB2
= TAG_Int(UNTAG_Int(REGB1
)+UNTAG_Int(REGB2
));
1286 /* ./../lib/standard//collection//array.nit:237 */
1289 /* ./../lib/standard//collection//array.nit:235 */
1294 /* ./compiling//compiling_base.nit:111 */
1295 fra
.me
.REG
[4] = CALL_compiling___compiling_base___ToolContext___cc_include_paths(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
1296 /* ./../lib/standard//collection//array.nit:232 */
1298 /* ./../lib/standard//collection//array.nit:233 */
1299 REGB2
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[4])!=NIT_NULL
);
1300 if (UNTAG_Bool(REGB2
)) {
1302 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 233);
1304 REGB2
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[4]);
1305 /* ./../lib/standard//collection//array.nit:234 */
1306 fra
.me
.REG
[5] = ATTR_standard___collection___array___Array____items(fra
.me
.REG
[4]);
1307 /* ./../lib/standard//collection//array.nit:235 */
1309 /* ./../lib/standard//collection//array.nit:23 */
1310 REGB2
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[4])!=NIT_NULL
);
1311 if (UNTAG_Bool(REGB2
)) {
1313 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 23);
1315 REGB2
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[4]);
1316 REGB0
= TAG_Bool(VAL_ISA(REGB2
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1
), VTID_standard___kernel___Comparable___OTHER(REGB1
))) /*cast OTHER*/;
1317 if (UNTAG_Bool(REGB0
)) {
1319 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1321 /* ./../lib/standard//kernel.nit:215 */
1322 REGB2
= TAG_Bool(UNTAG_Int(REGB1
)<UNTAG_Int(REGB2
));
1323 /* ./../lib/standard//collection//array.nit:235 */
1324 if (UNTAG_Bool(REGB2
)) {
1325 /* ./../lib/standard//collection//array.nit:236 */
1326 REGB2
= TAG_Bool(fra
.me
.REG
[5]==NIT_NULL
);
1327 if (UNTAG_Bool(REGB2
)) {
1328 nit_abort("Reciever is null", NULL
, LOCATE_standard___collection___array
, 236);
1330 /* ./../lib/standard//collection//array.nit:652 */
1331 fra
.me
.REG
[6] = ((Nit_NativeArray
)fra
.me
.REG
[5])->val
[UNTAG_Int(REGB1
)];
1332 /* ./compiling//compiling_base.nit:111 */
1334 fra
.me
.REG
[0] = NEW_Array_standard___collection___array___Array___with_capacity(REGB2
);
1335 if (!once_value_30
) {
1336 fra
.me
.REG
[3] = BOX_NativeString(" -x \"-I ");
1338 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB2
);
1339 once_value_30
= fra
.me
.REG
[3];
1340 register_static_object(&once_value_30
);
1341 } else fra
.me
.REG
[3] = once_value_30
;
1342 fra
.me
.REG
[3] = fra
.me
.REG
[3];
1343 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[3]);
1344 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[6]);
1345 if (!once_value_31
) {
1346 fra
.me
.REG
[6] = BOX_NativeString("\"");
1348 fra
.me
.REG
[6] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[6], REGB2
);
1349 once_value_31
= fra
.me
.REG
[6];
1350 register_static_object(&once_value_31
);
1351 } else fra
.me
.REG
[6] = once_value_31
;
1352 fra
.me
.REG
[6] = fra
.me
.REG
[6];
1353 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[6]);
1354 fra
.me
.REG
[0] = CALL_standard___string___Object___to_s(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1355 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
1356 /* ./../lib/standard//collection//array.nit:237 */
1358 /* ./../lib/standard//kernel.nit:218 */
1359 REGB2
= TAG_Int(UNTAG_Int(REGB1
)+UNTAG_Int(REGB2
));
1360 /* ./../lib/standard//collection//array.nit:237 */
1363 /* ./../lib/standard//collection//array.nit:235 */
1368 /* ./compiling//compiling_base.nit:112 */
1370 fra
.me
.REG
[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1
);
1371 if (!once_value_33
) {
1372 fra
.me
.REG
[4] = BOX_NativeString(" \"$@\" \\\n ");
1373 REGB1
= TAG_Int(10);
1374 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB1
);
1375 once_value_33
= fra
.me
.REG
[4];
1376 register_static_object(&once_value_33
);
1377 } else fra
.me
.REG
[4] = once_value_33
;
1378 fra
.me
.REG
[4] = fra
.me
.REG
[4];
1379 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[4]);
1380 fra
.me
.REG
[1] = CALL_compiling___compiling_base___CProgram___files(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1381 if (!once_value_34
) {
1382 fra
.me
.REG
[4] = BOX_NativeString("\\\n ");
1384 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB1
);
1385 once_value_34
= fra
.me
.REG
[4];
1386 register_static_object(&once_value_34
);
1387 } else fra
.me
.REG
[4] = once_value_34
;
1388 fra
.me
.REG
[4] = fra
.me
.REG
[4];
1389 fra
.me
.REG
[4] = CALL_standard___string___Collection___join(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[4]);
1390 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[4]);
1391 if (!once_value_35
) {
1392 fra
.me
.REG
[4] = BOX_NativeString("\n");
1394 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB1
);
1395 once_value_35
= fra
.me
.REG
[4];
1396 register_static_object(&once_value_35
);
1397 } else fra
.me
.REG
[4] = once_value_35
;
1398 fra
.me
.REG
[4] = fra
.me
.REG
[4];
1399 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[4]);
1400 fra
.me
.REG
[5] = CALL_standard___string___Object___to_s(fra
.me
.REG
[5])(fra
.me
.REG
[5]);
1401 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[5]);
1402 /* ./compiling//compiling_base.nit:113 */
1403 CALL_standard___stream___IOS___close(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
1404 stack_frame_head
= fra
.me
.prev
;
1407 void compiling___compiling_base___CProgram___run_c_compiler(val_t p0
){
1408 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
1411 static val_t once_value_1
; /* Once value */
1412 static val_t once_value_2
; /* Once value */
1413 static val_t once_value_3
; /* Once value */
1414 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1415 fra
.me
.file
= LOCATE_compiling___compiling_base
;
1417 fra
.me
.meth
= LOCATE_compiling___compiling_base___CProgram___run_c_compiler
;
1418 fra
.me
.has_broke
= 0;
1419 fra
.me
.REG_size
= 4;
1420 fra
.me
.REG
[0] = NIT_NULL
;
1421 fra
.me
.REG
[1] = NIT_NULL
;
1422 fra
.me
.REG
[2] = NIT_NULL
;
1423 fra
.me
.REG
[3] = NIT_NULL
;
1425 /* ./compiling//compiling_base.nit:119 */
1426 fra
.me
.REG
[1] = CALL_compiling___compiling_base___CProgram___program(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1427 fra
.me
.REG
[1] = CALL_program___Program___tc(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1428 if (!once_value_1
) {
1429 fra
.me
.REG
[2] = BOX_NativeString("Building");
1431 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
1432 once_value_1
= fra
.me
.REG
[2];
1433 register_static_object(&once_value_1
);
1434 } else fra
.me
.REG
[2] = once_value_1
;
1435 fra
.me
.REG
[2] = fra
.me
.REG
[2];
1437 CALL_mmloader___ToolContext___info(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2], REGB0
);
1438 /* ./compiling//compiling_base.nit:120 */
1439 fra
.me
.REG
[2] = CALL_standard___kernel___Object___sys(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1441 fra
.me
.REG
[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
1442 if (!once_value_2
) {
1443 fra
.me
.REG
[3] = BOX_NativeString("sh ");
1445 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
1446 once_value_2
= fra
.me
.REG
[3];
1447 register_static_object(&once_value_2
);
1448 } else fra
.me
.REG
[3] = once_value_2
;
1449 fra
.me
.REG
[3] = fra
.me
.REG
[3];
1450 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[3]);
1451 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CProgram____build_file(fra
.me
.REG
[0])!=NIT_NULL
);
1452 if (UNTAG_Bool(REGB0
)) {
1454 nit_abort("Uninitialized attribute %s", "_build_file", LOCATE_compiling___compiling_base
, 120);
1456 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___CProgram____build_file(fra
.me
.REG
[0]);
1457 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
1458 if (!once_value_3
) {
1459 fra
.me
.REG
[0] = BOX_NativeString("");
1461 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
1462 once_value_3
= fra
.me
.REG
[0];
1463 register_static_object(&once_value_3
);
1464 } else fra
.me
.REG
[0] = once_value_3
;
1465 fra
.me
.REG
[0] = fra
.me
.REG
[0];
1466 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
1467 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1468 CALL_standard___exec___Sys___system(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
1469 stack_frame_head
= fra
.me
.prev
;
1472 void compiling___compiling_base___CompilerVisitor___add_decl(val_t p0
, val_t p1
){
1473 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
1476 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1477 fra
.me
.file
= LOCATE_compiling___compiling_base
;
1479 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___add_decl
;
1480 fra
.me
.has_broke
= 0;
1481 fra
.me
.REG_size
= 3;
1482 fra
.me
.REG
[0] = NIT_NULL
;
1483 fra
.me
.REG
[1] = NIT_NULL
;
1484 fra
.me
.REG
[2] = NIT_NULL
;
1487 /* ./compiling//compiling_base.nit:131 */
1488 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CompilerVisitor____decl_writer(fra
.me
.REG
[0])!=NIT_NULL
);
1489 if (UNTAG_Bool(REGB0
)) {
1491 nit_abort("Uninitialized attribute %s", "_decl_writer", LOCATE_compiling___compiling_base
, 131);
1493 fra
.me
.REG
[2] = ATTR_compiling___compiling_base___CompilerVisitor____decl_writer(fra
.me
.REG
[0]);
1494 CALL_compiling___compiling_base___CompilerVisitor___add_line_to(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[2], fra
.me
.REG
[1]);
1495 stack_frame_head
= fra
.me
.prev
;
1498 void compiling___compiling_base___CompilerVisitor___add_instr(val_t p0
, val_t p1
){
1499 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
1502 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1503 fra
.me
.file
= LOCATE_compiling___compiling_base
;
1505 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___add_instr
;
1506 fra
.me
.has_broke
= 0;
1507 fra
.me
.REG_size
= 3;
1508 fra
.me
.REG
[0] = NIT_NULL
;
1509 fra
.me
.REG
[1] = NIT_NULL
;
1510 fra
.me
.REG
[2] = NIT_NULL
;
1513 /* ./compiling//compiling_base.nit:137 */
1514 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CompilerVisitor____writer(fra
.me
.REG
[0])!=NIT_NULL
);
1515 if (UNTAG_Bool(REGB0
)) {
1517 nit_abort("Uninitialized attribute %s", "_writer", LOCATE_compiling___compiling_base
, 137);
1519 fra
.me
.REG
[2] = ATTR_compiling___compiling_base___CompilerVisitor____writer(fra
.me
.REG
[0]);
1520 CALL_compiling___compiling_base___CompilerVisitor___add_line_to(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[2], fra
.me
.REG
[1]);
1521 stack_frame_head
= fra
.me
.prev
;
1524 void compiling___compiling_base___CompilerVisitor___add_indent(val_t p0
, val_t p1
){
1525 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
1530 static val_t once_value_1
; /* Once value */
1531 static val_t once_value_2
; /* Once value */
1532 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1533 fra
.me
.file
= LOCATE_compiling___compiling_base
;
1535 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___add_indent
;
1536 fra
.me
.has_broke
= 0;
1537 fra
.me
.REG_size
= 3;
1538 fra
.me
.REG
[0] = NIT_NULL
;
1539 fra
.me
.REG
[1] = NIT_NULL
;
1540 fra
.me
.REG
[2] = NIT_NULL
;
1543 /* ./compiling//compiling_base.nit:143 */
1544 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CompilerVisitor____indent_level(fra
.me
.REG
[0])!=NIT_NULL
);
1545 if (UNTAG_Bool(REGB0
)) {
1547 nit_abort("Uninitialized attribute %s", "_indent_level", LOCATE_compiling___compiling_base
, 143);
1549 REGB0
= ATTR_compiling___compiling_base___CompilerVisitor____indent_level(fra
.me
.REG
[0]);
1551 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
1552 if (UNTAG_Bool(REGB2
)) {
1554 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1556 /* ./../lib/standard//kernel.nit:216 */
1557 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)>=UNTAG_Int(REGB1
));
1558 /* ./compiling//compiling_base.nit:143 */
1559 if (UNTAG_Bool(REGB1
)) {
1560 /* ./compiling//compiling_base.nit:144 */
1561 if (!once_value_1
) {
1562 fra
.me
.REG
[2] = BOX_NativeString("\t\t");
1564 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB1
);
1565 once_value_1
= fra
.me
.REG
[2];
1566 register_static_object(&once_value_1
);
1567 } else fra
.me
.REG
[2] = once_value_1
;
1568 fra
.me
.REG
[2] = fra
.me
.REG
[2];
1569 CALL_compiling___compiling_writer___Writer___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
1571 /* ./compiling//compiling_base.nit:146 */
1573 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CompilerVisitor____indent_level(fra
.me
.REG
[0])!=NIT_NULL
);
1574 if (UNTAG_Bool(REGB0
)) {
1576 nit_abort("Uninitialized attribute %s", "_indent_level", LOCATE_compiling___compiling_base
, 146);
1578 REGB0
= ATTR_compiling___compiling_base___CompilerVisitor____indent_level(fra
.me
.REG
[0]);
1579 /* ./../lib/standard//kernel.nit:335 */
1581 REGB2
= TAG_Bool(VAL_ISA(REGB0
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1
), VTID_standard___kernel___Comparable___OTHER(REGB1
))) /*cast OTHER*/;
1582 if (UNTAG_Bool(REGB2
)) {
1584 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1586 /* ./../lib/standard//kernel.nit:215 */
1587 REGB2
= TAG_Bool(UNTAG_Int(REGB1
)<UNTAG_Int(REGB0
));
1588 /* ./../lib/standard//kernel.nit:335 */
1589 if (UNTAG_Bool(REGB2
)) {
1590 /* ./compiling//compiling_base.nit:147 */
1591 if (!once_value_2
) {
1592 fra
.me
.REG
[0] = BOX_NativeString(" ");
1594 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB2
);
1595 once_value_2
= fra
.me
.REG
[0];
1596 register_static_object(&once_value_2
);
1597 } else fra
.me
.REG
[0] = once_value_2
;
1598 fra
.me
.REG
[0] = fra
.me
.REG
[0];
1599 CALL_compiling___compiling_writer___Writer___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
1600 /* ./../lib/standard//kernel.nit:337 */
1602 /* ./../lib/standard//kernel.nit:218 */
1603 REGB2
= TAG_Int(UNTAG_Int(REGB1
)+UNTAG_Int(REGB2
));
1604 /* ./../lib/standard//kernel.nit:337 */
1607 /* ./../lib/standard//kernel.nit:335 */
1613 stack_frame_head
= fra
.me
.prev
;
1616 void compiling___compiling_base___CompilerVisitor___add_line_to(val_t p0
, val_t p1
, val_t p2
){
1617 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
1620 static val_t once_value_1
; /* Once value */
1621 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1622 fra
.me
.file
= LOCATE_compiling___compiling_base
;
1624 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___add_line_to
;
1625 fra
.me
.has_broke
= 0;
1626 fra
.me
.REG_size
= 3;
1627 fra
.me
.REG
[0] = NIT_NULL
;
1628 fra
.me
.REG
[1] = NIT_NULL
;
1629 fra
.me
.REG
[2] = NIT_NULL
;
1633 /* ./compiling//compiling_base.nit:154 */
1634 CALL_compiling___compiling_base___CompilerVisitor___add_indent(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
1635 /* ./compiling//compiling_base.nit:155 */
1636 CALL_compiling___compiling_writer___Writer___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
1637 /* ./compiling//compiling_base.nit:156 */
1638 if (!once_value_1
) {
1639 fra
.me
.REG
[2] = BOX_NativeString("\n");
1641 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
1642 once_value_1
= fra
.me
.REG
[2];
1643 register_static_object(&once_value_1
);
1644 } else fra
.me
.REG
[2] = once_value_1
;
1645 fra
.me
.REG
[2] = fra
.me
.REG
[2];
1646 CALL_compiling___compiling_writer___Writer___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
1647 stack_frame_head
= fra
.me
.prev
;
1650 void compiling___compiling_base___CompilerVisitor___add_assignment(val_t p0
, val_t p1
, val_t p2
){
1651 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
1655 static val_t once_value_1
; /* Once value */
1656 static val_t once_value_2
; /* Once value */
1657 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1658 fra
.me
.file
= LOCATE_compiling___compiling_base
;
1660 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___add_assignment
;
1661 fra
.me
.has_broke
= 0;
1662 fra
.me
.REG_size
= 4;
1663 fra
.me
.REG
[0] = NIT_NULL
;
1664 fra
.me
.REG
[1] = NIT_NULL
;
1665 fra
.me
.REG
[2] = NIT_NULL
;
1666 fra
.me
.REG
[3] = NIT_NULL
;
1670 /* ./compiling//compiling_base.nit:162 */
1671 REGB0
= TAG_Bool(IS_EQUAL_OO(fra
.me
.REG
[1],fra
.me
.REG
[2]));
1672 if (UNTAG_Bool(REGB0
)) {
1674 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
1677 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
1678 if (UNTAG_Bool(REGB0
)) {
1679 /* ./compiling//compiling_base.nit:163 */
1680 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CompilerVisitor____writer(fra
.me
.REG
[0])!=NIT_NULL
);
1681 if (UNTAG_Bool(REGB0
)) {
1683 nit_abort("Uninitialized attribute %s", "_writer", LOCATE_compiling___compiling_base
, 163);
1685 fra
.me
.REG
[3] = ATTR_compiling___compiling_base___CompilerVisitor____writer(fra
.me
.REG
[0]);
1686 /* ./compiling//compiling_base.nit:164 */
1687 CALL_compiling___compiling_base___CompilerVisitor___add_indent(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[3]);
1688 /* ./compiling//compiling_base.nit:165 */
1689 CALL_compiling___compiling_writer___Writer___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[1]);
1690 /* ./compiling//compiling_base.nit:166 */
1691 if (!once_value_1
) {
1692 fra
.me
.REG
[1] = BOX_NativeString(" = ");
1694 fra
.me
.REG
[1] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[1], REGB0
);
1695 once_value_1
= fra
.me
.REG
[1];
1696 register_static_object(&once_value_1
);
1697 } else fra
.me
.REG
[1] = once_value_1
;
1698 fra
.me
.REG
[1] = fra
.me
.REG
[1];
1699 CALL_compiling___compiling_writer___Writer___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[1]);
1700 /* ./compiling//compiling_base.nit:167 */
1701 CALL_compiling___compiling_writer___Writer___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[2]);
1702 /* ./compiling//compiling_base.nit:168 */
1703 if (!once_value_2
) {
1704 fra
.me
.REG
[2] = BOX_NativeString(";\n");
1706 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
1707 once_value_2
= fra
.me
.REG
[2];
1708 register_static_object(&once_value_2
);
1709 } else fra
.me
.REG
[2] = once_value_2
;
1710 fra
.me
.REG
[2] = fra
.me
.REG
[2];
1711 CALL_compiling___compiling_writer___Writer___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[2]);
1713 stack_frame_head
= fra
.me
.prev
;
1716 val_t
compiling___compiling_base___CompilerVisitor___new_number(val_t p0
){
1717 struct {struct stack_frame_t me
;} fra
;
1721 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1722 fra
.me
.file
= LOCATE_compiling___compiling_base
;
1724 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___new_number
;
1725 fra
.me
.has_broke
= 0;
1726 fra
.me
.REG_size
= 1;
1727 fra
.me
.REG
[0] = NIT_NULL
;
1729 /* ./compiling//compiling_base.nit:175 */
1730 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CompilerVisitor____number_cpt(fra
.me
.REG
[0])!=NIT_NULL
);
1731 if (UNTAG_Bool(REGB0
)) {
1733 nit_abort("Uninitialized attribute %s", "_number_cpt", LOCATE_compiling___compiling_base
, 175);
1735 REGB0
= ATTR_compiling___compiling_base___CompilerVisitor____number_cpt(fra
.me
.REG
[0]);
1736 /* ./compiling//compiling_base.nit:176 */
1738 /* ./../lib/standard//kernel.nit:218 */
1739 REGB1
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB1
));
1740 /* ./compiling//compiling_base.nit:176 */
1741 ATTR_compiling___compiling_base___CompilerVisitor____number_cpt(fra
.me
.REG
[0]) = REGB1
;
1742 /* ./compiling//compiling_base.nit:177 */
1745 stack_frame_head
= fra
.me
.prev
;
1748 void compiling___compiling_base___CompilerVisitor___indent(val_t p0
){
1749 struct {struct stack_frame_t me
;} fra
;
1753 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1754 fra
.me
.file
= LOCATE_compiling___compiling_base
;
1756 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___indent
;
1757 fra
.me
.has_broke
= 0;
1758 fra
.me
.REG_size
= 1;
1759 fra
.me
.REG
[0] = NIT_NULL
;
1761 /* ./compiling//compiling_base.nit:184 */
1762 REGB0
= ATTR_compiling___compiling_base___CompilerVisitor____indent_level(fra
.me
.REG
[0]);
1764 /* ./../lib/standard//kernel.nit:218 */
1765 REGB1
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB1
));
1766 /* ./compiling//compiling_base.nit:184 */
1767 ATTR_compiling___compiling_base___CompilerVisitor____indent_level(fra
.me
.REG
[0]) = REGB1
;
1768 stack_frame_head
= fra
.me
.prev
;
1771 void compiling___compiling_base___CompilerVisitor___unindent(val_t p0
){
1772 struct {struct stack_frame_t me
;} fra
;
1777 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1778 fra
.me
.file
= LOCATE_compiling___compiling_base
;
1780 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___unindent
;
1781 fra
.me
.has_broke
= 0;
1782 fra
.me
.REG_size
= 1;
1783 fra
.me
.REG
[0] = NIT_NULL
;
1785 /* ./compiling//compiling_base.nit:189 */
1786 REGB0
= ATTR_compiling___compiling_base___CompilerVisitor____indent_level(fra
.me
.REG
[0]);
1788 /* ./../lib/standard//kernel.nit:220 */
1789 REGB1
= TAG_Int(UNTAG_Int(REGB0
)-UNTAG_Int(REGB1
));
1790 /* ./compiling//compiling_base.nit:189 */
1791 ATTR_compiling___compiling_base___CompilerVisitor____indent_level(fra
.me
.REG
[0]) = REGB1
;
1792 /* ./compiling//compiling_base.nit:190 */
1793 REGB1
= TAG_Bool(ATTR_compiling___compiling_base___CompilerVisitor____indent_level(fra
.me
.REG
[0])!=NIT_NULL
);
1794 if (UNTAG_Bool(REGB1
)) {
1796 nit_abort("Uninitialized attribute %s", "_indent_level", LOCATE_compiling___compiling_base
, 190);
1798 REGB1
= ATTR_compiling___compiling_base___CompilerVisitor____indent_level(fra
.me
.REG
[0]);
1800 REGB2
= TAG_Bool(VAL_ISA(REGB0
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1
), VTID_standard___kernel___Comparable___OTHER(REGB1
))) /*cast OTHER*/;
1801 if (UNTAG_Bool(REGB2
)) {
1803 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1805 /* ./../lib/standard//kernel.nit:215 */
1806 REGB0
= TAG_Bool(UNTAG_Int(REGB1
)<UNTAG_Int(REGB0
));
1807 /* ./compiling//compiling_base.nit:190 */
1808 if (UNTAG_Bool(REGB0
)) {
1810 ATTR_compiling___compiling_base___CompilerVisitor____indent_level(fra
.me
.REG
[0]) = REGB0
;
1812 stack_frame_head
= fra
.me
.prev
;
1815 val_t
compiling___compiling_base___CompilerVisitor___mmmodule(val_t p0
){
1816 struct {struct stack_frame_t me
;} fra
;
1819 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1820 fra
.me
.file
= LOCATE_compiling___compiling_base
;
1822 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___mmmodule
;
1823 fra
.me
.has_broke
= 0;
1824 fra
.me
.REG_size
= 1;
1825 fra
.me
.REG
[0] = NIT_NULL
;
1827 /* ./compiling//compiling_base.nit:193 */
1828 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CompilerVisitor____mmmodule(fra
.me
.REG
[0])!=NIT_NULL
);
1829 if (UNTAG_Bool(REGB0
)) {
1831 nit_abort("Uninitialized attribute %s", "_mmmodule", LOCATE_compiling___compiling_base
, 193);
1833 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___CompilerVisitor____mmmodule(fra
.me
.REG
[0]);
1834 stack_frame_head
= fra
.me
.prev
;
1835 return fra
.me
.REG
[0];
1837 val_t
compiling___compiling_base___CompilerVisitor___header_writer(val_t p0
){
1838 struct {struct stack_frame_t me
;} fra
;
1841 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1842 fra
.me
.file
= LOCATE_compiling___compiling_base
;
1844 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___header_writer
;
1845 fra
.me
.has_broke
= 0;
1846 fra
.me
.REG_size
= 1;
1847 fra
.me
.REG
[0] = NIT_NULL
;
1849 /* ./compiling//compiling_base.nit:196 */
1850 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CompilerVisitor____header_writer(fra
.me
.REG
[0])!=NIT_NULL
);
1851 if (UNTAG_Bool(REGB0
)) {
1853 nit_abort("Uninitialized attribute %s", "_header_writer", LOCATE_compiling___compiling_base
, 196);
1855 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___CompilerVisitor____header_writer(fra
.me
.REG
[0]);
1856 stack_frame_head
= fra
.me
.prev
;
1857 return fra
.me
.REG
[0];
1859 void compiling___compiling_base___CompilerVisitor___header_writer__eq(val_t p0
, val_t p1
){
1860 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
1862 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1863 fra
.me
.file
= LOCATE_compiling___compiling_base
;
1865 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___header_writer__eq
;
1866 fra
.me
.has_broke
= 0;
1867 fra
.me
.REG_size
= 2;
1868 fra
.me
.REG
[0] = NIT_NULL
;
1869 fra
.me
.REG
[1] = NIT_NULL
;
1872 /* ./compiling//compiling_base.nit:196 */
1873 ATTR_compiling___compiling_base___CompilerVisitor____header_writer(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
1874 stack_frame_head
= fra
.me
.prev
;
1877 val_t
compiling___compiling_base___CompilerVisitor___writer(val_t p0
){
1878 struct {struct stack_frame_t me
;} fra
;
1881 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1882 fra
.me
.file
= LOCATE_compiling___compiling_base
;
1884 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___writer
;
1885 fra
.me
.has_broke
= 0;
1886 fra
.me
.REG_size
= 1;
1887 fra
.me
.REG
[0] = NIT_NULL
;
1889 /* ./compiling//compiling_base.nit:199 */
1890 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CompilerVisitor____writer(fra
.me
.REG
[0])!=NIT_NULL
);
1891 if (UNTAG_Bool(REGB0
)) {
1893 nit_abort("Uninitialized attribute %s", "_writer", LOCATE_compiling___compiling_base
, 199);
1895 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___CompilerVisitor____writer(fra
.me
.REG
[0]);
1896 stack_frame_head
= fra
.me
.prev
;
1897 return fra
.me
.REG
[0];
1899 void compiling___compiling_base___CompilerVisitor___writer__eq(val_t p0
, val_t p1
){
1900 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
1902 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1903 fra
.me
.file
= LOCATE_compiling___compiling_base
;
1905 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___writer__eq
;
1906 fra
.me
.has_broke
= 0;
1907 fra
.me
.REG_size
= 2;
1908 fra
.me
.REG
[0] = NIT_NULL
;
1909 fra
.me
.REG
[1] = NIT_NULL
;
1912 /* ./compiling//compiling_base.nit:199 */
1913 ATTR_compiling___compiling_base___CompilerVisitor____writer(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
1914 stack_frame_head
= fra
.me
.prev
;
1917 val_t
compiling___compiling_base___CompilerVisitor___decl_writer(val_t p0
){
1918 struct {struct stack_frame_t me
;} fra
;
1921 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1922 fra
.me
.file
= LOCATE_compiling___compiling_base
;
1924 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___decl_writer
;
1925 fra
.me
.has_broke
= 0;
1926 fra
.me
.REG_size
= 1;
1927 fra
.me
.REG
[0] = NIT_NULL
;
1929 /* ./compiling//compiling_base.nit:202 */
1930 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CompilerVisitor____decl_writer(fra
.me
.REG
[0])!=NIT_NULL
);
1931 if (UNTAG_Bool(REGB0
)) {
1933 nit_abort("Uninitialized attribute %s", "_decl_writer", LOCATE_compiling___compiling_base
, 202);
1935 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___CompilerVisitor____decl_writer(fra
.me
.REG
[0]);
1936 stack_frame_head
= fra
.me
.prev
;
1937 return fra
.me
.REG
[0];
1939 void compiling___compiling_base___CompilerVisitor___decl_writer__eq(val_t p0
, val_t p1
){
1940 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
1942 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1943 fra
.me
.file
= LOCATE_compiling___compiling_base
;
1945 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___decl_writer__eq
;
1946 fra
.me
.has_broke
= 0;
1947 fra
.me
.REG_size
= 2;
1948 fra
.me
.REG
[0] = NIT_NULL
;
1949 fra
.me
.REG
[1] = NIT_NULL
;
1952 /* ./compiling//compiling_base.nit:202 */
1953 ATTR_compiling___compiling_base___CompilerVisitor____decl_writer(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
1954 stack_frame_head
= fra
.me
.prev
;
1957 val_t
compiling___compiling_base___CompilerVisitor___top_writer(val_t p0
){
1958 struct {struct stack_frame_t me
;} fra
;
1961 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1962 fra
.me
.file
= LOCATE_compiling___compiling_base
;
1964 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___top_writer
;
1965 fra
.me
.has_broke
= 0;
1966 fra
.me
.REG_size
= 1;
1967 fra
.me
.REG
[0] = NIT_NULL
;
1969 /* ./compiling//compiling_base.nit:205 */
1970 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CompilerVisitor____top_writer(fra
.me
.REG
[0])!=NIT_NULL
);
1971 if (UNTAG_Bool(REGB0
)) {
1973 nit_abort("Uninitialized attribute %s", "_top_writer", LOCATE_compiling___compiling_base
, 205);
1975 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___CompilerVisitor____top_writer(fra
.me
.REG
[0]);
1976 stack_frame_head
= fra
.me
.prev
;
1977 return fra
.me
.REG
[0];
1979 void compiling___compiling_base___CompilerVisitor___top_writer__eq(val_t p0
, val_t p1
){
1980 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
1982 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1983 fra
.me
.file
= LOCATE_compiling___compiling_base
;
1985 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___top_writer__eq
;
1986 fra
.me
.has_broke
= 0;
1987 fra
.me
.REG_size
= 2;
1988 fra
.me
.REG
[0] = NIT_NULL
;
1989 fra
.me
.REG
[1] = NIT_NULL
;
1992 /* ./compiling//compiling_base.nit:205 */
1993 ATTR_compiling___compiling_base___CompilerVisitor____top_writer(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
1994 stack_frame_head
= fra
.me
.prev
;
1997 val_t
compiling___compiling_base___CompilerVisitor___top_decl_writer(val_t p0
){
1998 struct {struct stack_frame_t me
;} fra
;
2001 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2002 fra
.me
.file
= LOCATE_compiling___compiling_base
;
2004 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___top_decl_writer
;
2005 fra
.me
.has_broke
= 0;
2006 fra
.me
.REG_size
= 1;
2007 fra
.me
.REG
[0] = NIT_NULL
;
2009 /* ./compiling//compiling_base.nit:208 */
2010 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CompilerVisitor____top_decl_writer(fra
.me
.REG
[0])!=NIT_NULL
);
2011 if (UNTAG_Bool(REGB0
)) {
2013 nit_abort("Uninitialized attribute %s", "_top_decl_writer", LOCATE_compiling___compiling_base
, 208);
2015 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___CompilerVisitor____top_decl_writer(fra
.me
.REG
[0]);
2016 stack_frame_head
= fra
.me
.prev
;
2017 return fra
.me
.REG
[0];
2019 void compiling___compiling_base___CompilerVisitor___top_decl_writer__eq(val_t p0
, val_t p1
){
2020 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
2022 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2023 fra
.me
.file
= LOCATE_compiling___compiling_base
;
2025 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___top_decl_writer__eq
;
2026 fra
.me
.has_broke
= 0;
2027 fra
.me
.REG_size
= 2;
2028 fra
.me
.REG
[0] = NIT_NULL
;
2029 fra
.me
.REG
[1] = NIT_NULL
;
2032 /* ./compiling//compiling_base.nit:208 */
2033 ATTR_compiling___compiling_base___CompilerVisitor____top_decl_writer(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
2034 stack_frame_head
= fra
.me
.prev
;
2037 val_t
compiling___compiling_base___CompilerVisitor___indent_level(val_t p0
){
2038 struct {struct stack_frame_t me
;} fra
;
2041 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2042 fra
.me
.file
= LOCATE_compiling___compiling_base
;
2044 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___indent_level
;
2045 fra
.me
.has_broke
= 0;
2046 fra
.me
.REG_size
= 1;
2047 fra
.me
.REG
[0] = NIT_NULL
;
2049 /* ./compiling//compiling_base.nit:211 */
2050 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CompilerVisitor____indent_level(fra
.me
.REG
[0])!=NIT_NULL
);
2051 if (UNTAG_Bool(REGB0
)) {
2053 nit_abort("Uninitialized attribute %s", "_indent_level", LOCATE_compiling___compiling_base
, 211);
2055 REGB0
= ATTR_compiling___compiling_base___CompilerVisitor____indent_level(fra
.me
.REG
[0]);
2056 stack_frame_head
= fra
.me
.prev
;
2059 void compiling___compiling_base___CompilerVisitor___indent_level__eq(val_t p0
, val_t p1
){
2060 struct {struct stack_frame_t me
;} fra
;
2063 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2064 fra
.me
.file
= LOCATE_compiling___compiling_base
;
2066 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___indent_level__eq
;
2067 fra
.me
.has_broke
= 0;
2068 fra
.me
.REG_size
= 1;
2069 fra
.me
.REG
[0] = NIT_NULL
;
2072 /* ./compiling//compiling_base.nit:211 */
2073 ATTR_compiling___compiling_base___CompilerVisitor____indent_level(fra
.me
.REG
[0]) = REGB0
;
2074 stack_frame_head
= fra
.me
.prev
;
2077 val_t
compiling___compiling_base___CompilerVisitor___program(val_t p0
){
2078 struct {struct stack_frame_t me
;} fra
;
2081 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2082 fra
.me
.file
= LOCATE_compiling___compiling_base
;
2084 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___program
;
2085 fra
.me
.has_broke
= 0;
2086 fra
.me
.REG_size
= 1;
2087 fra
.me
.REG
[0] = NIT_NULL
;
2089 /* ./compiling//compiling_base.nit:214 */
2090 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CompilerVisitor____program(fra
.me
.REG
[0])!=NIT_NULL
);
2091 if (UNTAG_Bool(REGB0
)) {
2093 nit_abort("Uninitialized attribute %s", "_program", LOCATE_compiling___compiling_base
, 214);
2095 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___CompilerVisitor____program(fra
.me
.REG
[0]);
2096 stack_frame_head
= fra
.me
.prev
;
2097 return fra
.me
.REG
[0];
2099 val_t
compiling___compiling_base___CompilerVisitor___cprogram(val_t p0
){
2100 struct {struct stack_frame_t me
;} fra
;
2103 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2104 fra
.me
.file
= LOCATE_compiling___compiling_base
;
2106 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___cprogram
;
2107 fra
.me
.has_broke
= 0;
2108 fra
.me
.REG_size
= 1;
2109 fra
.me
.REG
[0] = NIT_NULL
;
2111 /* ./compiling//compiling_base.nit:217 */
2112 REGB0
= TAG_Bool(ATTR_compiling___compiling_base___CompilerVisitor____cprogram(fra
.me
.REG
[0])!=NIT_NULL
);
2113 if (UNTAG_Bool(REGB0
)) {
2115 nit_abort("Uninitialized attribute %s", "_cprogram", LOCATE_compiling___compiling_base
, 217);
2117 fra
.me
.REG
[0] = ATTR_compiling___compiling_base___CompilerVisitor____cprogram(fra
.me
.REG
[0]);
2118 stack_frame_head
= fra
.me
.prev
;
2119 return fra
.me
.REG
[0];
2121 void compiling___compiling_base___CompilerVisitor___init(val_t p0
, val_t p1
, val_t p2
, int* init_table
){
2122 int itpos1
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_compiling___compiling_base___CompilerVisitor
].i
;
2123 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
2125 if (init_table
[itpos1
]) return;
2126 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2127 fra
.me
.file
= LOCATE_compiling___compiling_base
;
2129 fra
.me
.meth
= LOCATE_compiling___compiling_base___CompilerVisitor___init
;
2130 fra
.me
.has_broke
= 0;
2131 fra
.me
.REG_size
= 3;
2132 fra
.me
.REG
[0] = NIT_NULL
;
2133 fra
.me
.REG
[1] = NIT_NULL
;
2134 fra
.me
.REG
[2] = NIT_NULL
;
2138 /* ./compiling//compiling_base.nit:223 */
2139 ATTR_compiling___compiling_base___CompilerVisitor____mmmodule(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
2140 /* ./compiling//compiling_base.nit:224 */
2141 ATTR_compiling___compiling_base___CompilerVisitor____cprogram(fra
.me
.REG
[0]) = fra
.me
.REG
[2];
2142 /* ./compiling//compiling_base.nit:225 */
2143 fra
.me
.REG
[2] = CALL_compiling___compiling_base___CProgram___program(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
2144 ATTR_compiling___compiling_base___CompilerVisitor____program(fra
.me
.REG
[0]) = fra
.me
.REG
[2];
2145 /* ./compiling//compiling_base.nit:227 */
2146 fra
.me
.REG
[2] = NEW_Writer_compiling___compiling_writer___Writer___init();
2147 /* ./compiling//compiling_base.nit:228 */
2148 ATTR_compiling___compiling_base___CompilerVisitor____header_writer(fra
.me
.REG
[0]) = fra
.me
.REG
[2];
2149 /* ./compiling//compiling_base.nit:229 */
2150 ATTR_compiling___compiling_base___CompilerVisitor____decl_writer(fra
.me
.REG
[0]) = fra
.me
.REG
[2];
2151 /* ./compiling//compiling_base.nit:230 */
2152 fra
.me
.REG
[1] = NEW_Writer_compiling___compiling_writer___Writer___init();
2153 fra
.me
.REG
[2] = fra
.me
.REG
[1];
2154 /* ./compiling//compiling_base.nit:231 */
2155 ATTR_compiling___compiling_base___CompilerVisitor____writer(fra
.me
.REG
[0]) = fra
.me
.REG
[2];
2156 /* ./compiling//compiling_base.nit:232 */
2157 ATTR_compiling___compiling_base___CompilerVisitor____top_writer(fra
.me
.REG
[0]) = fra
.me
.REG
[2];
2158 /* ./compiling//compiling_base.nit:233 */
2159 fra
.me
.REG
[2] = CALL_compiling___compiling_writer___Writer___sub(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
2160 ATTR_compiling___compiling_base___CompilerVisitor____top_decl_writer(fra
.me
.REG
[0]) = fra
.me
.REG
[2];
2161 stack_frame_head
= fra
.me
.prev
;
2162 init_table
[itpos1
] = 1;
2165 val_t
compiling___compiling_base___MMGlobalProperty___meth_call(val_t p0
){
2166 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
2169 static val_t once_value_1
; /* Once value */
2170 static val_t once_value_2
; /* Once value */
2171 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2172 fra
.me
.file
= LOCATE_compiling___compiling_base
;
2174 fra
.me
.meth
= LOCATE_compiling___compiling_base___MMGlobalProperty___meth_call
;
2175 fra
.me
.has_broke
= 0;
2176 fra
.me
.REG_size
= 3;
2177 fra
.me
.REG
[0] = NIT_NULL
;
2178 fra
.me
.REG
[1] = NIT_NULL
;
2179 fra
.me
.REG
[2] = NIT_NULL
;
2181 /* ./compiling//compiling_base.nit:241 */
2183 fra
.me
.REG
[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2184 if (!once_value_1
) {
2185 fra
.me
.REG
[2] = BOX_NativeString("CALL_");
2187 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
2188 once_value_1
= fra
.me
.REG
[2];
2189 register_static_object(&once_value_1
);
2190 } else fra
.me
.REG
[2] = once_value_1
;
2191 fra
.me
.REG
[2] = fra
.me
.REG
[2];
2192 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
2193 fra
.me
.REG
[0] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___intro(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2194 fra
.me
.REG
[0] = CALL_compiling___compiling_base___MMLocalProperty___cname(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2195 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2196 if (!once_value_2
) {
2197 fra
.me
.REG
[0] = BOX_NativeString("");
2199 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2200 once_value_2
= fra
.me
.REG
[0];
2201 register_static_object(&once_value_2
);
2202 } else fra
.me
.REG
[0] = once_value_2
;
2203 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2204 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2205 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
2208 stack_frame_head
= fra
.me
.prev
;
2209 return fra
.me
.REG
[1];
2211 val_t
compiling___compiling_base___MMGlobalProperty___attr_access(val_t p0
){
2212 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
2215 static val_t once_value_1
; /* Once value */
2216 static val_t once_value_2
; /* Once value */
2217 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2218 fra
.me
.file
= LOCATE_compiling___compiling_base
;
2220 fra
.me
.meth
= LOCATE_compiling___compiling_base___MMGlobalProperty___attr_access
;
2221 fra
.me
.has_broke
= 0;
2222 fra
.me
.REG_size
= 3;
2223 fra
.me
.REG
[0] = NIT_NULL
;
2224 fra
.me
.REG
[1] = NIT_NULL
;
2225 fra
.me
.REG
[2] = NIT_NULL
;
2227 /* ./compiling//compiling_base.nit:247 */
2229 fra
.me
.REG
[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2230 if (!once_value_1
) {
2231 fra
.me
.REG
[2] = BOX_NativeString("ATTR_");
2233 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
2234 once_value_1
= fra
.me
.REG
[2];
2235 register_static_object(&once_value_1
);
2236 } else fra
.me
.REG
[2] = once_value_1
;
2237 fra
.me
.REG
[2] = fra
.me
.REG
[2];
2238 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
2239 fra
.me
.REG
[0] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___intro(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2240 fra
.me
.REG
[0] = CALL_compiling___compiling_base___MMLocalProperty___cname(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2241 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2242 if (!once_value_2
) {
2243 fra
.me
.REG
[0] = BOX_NativeString("");
2245 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2246 once_value_2
= fra
.me
.REG
[0];
2247 register_static_object(&once_value_2
);
2248 } else fra
.me
.REG
[0] = once_value_2
;
2249 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2250 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2251 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
2254 stack_frame_head
= fra
.me
.prev
;
2255 return fra
.me
.REG
[1];
2257 val_t
compiling___compiling_base___MMGlobalProperty___vt_class_color(val_t p0
){
2258 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
2261 static val_t once_value_1
; /* Once value */
2262 static val_t once_value_2
; /* Once value */
2263 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2264 fra
.me
.file
= LOCATE_compiling___compiling_base
;
2266 fra
.me
.meth
= LOCATE_compiling___compiling_base___MMGlobalProperty___vt_class_color
;
2267 fra
.me
.has_broke
= 0;
2268 fra
.me
.REG_size
= 3;
2269 fra
.me
.REG
[0] = NIT_NULL
;
2270 fra
.me
.REG
[1] = NIT_NULL
;
2271 fra
.me
.REG
[2] = NIT_NULL
;
2273 /* ./compiling//compiling_base.nit:253 */
2275 fra
.me
.REG
[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2276 if (!once_value_1
) {
2277 fra
.me
.REG
[2] = BOX_NativeString("VTCOLOR_");
2279 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
2280 once_value_1
= fra
.me
.REG
[2];
2281 register_static_object(&once_value_1
);
2282 } else fra
.me
.REG
[2] = once_value_1
;
2283 fra
.me
.REG
[2] = fra
.me
.REG
[2];
2284 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
2285 fra
.me
.REG
[0] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___intro(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2286 fra
.me
.REG
[0] = CALL_compiling___compiling_base___MMLocalProperty___cname(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2287 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2288 if (!once_value_2
) {
2289 fra
.me
.REG
[0] = BOX_NativeString("");
2291 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2292 once_value_2
= fra
.me
.REG
[0];
2293 register_static_object(&once_value_2
);
2294 } else fra
.me
.REG
[0] = once_value_2
;
2295 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2296 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2297 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
2300 stack_frame_head
= fra
.me
.prev
;
2301 return fra
.me
.REG
[1];
2303 val_t
compiling___compiling_base___MMGlobalProperty___vt_class_id(val_t p0
){
2304 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
2307 static val_t once_value_1
; /* Once value */
2308 static val_t once_value_2
; /* Once value */
2309 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2310 fra
.me
.file
= LOCATE_compiling___compiling_base
;
2312 fra
.me
.meth
= LOCATE_compiling___compiling_base___MMGlobalProperty___vt_class_id
;
2313 fra
.me
.has_broke
= 0;
2314 fra
.me
.REG_size
= 3;
2315 fra
.me
.REG
[0] = NIT_NULL
;
2316 fra
.me
.REG
[1] = NIT_NULL
;
2317 fra
.me
.REG
[2] = NIT_NULL
;
2319 /* ./compiling//compiling_base.nit:259 */
2321 fra
.me
.REG
[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2322 if (!once_value_1
) {
2323 fra
.me
.REG
[2] = BOX_NativeString("VTID_");
2325 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
2326 once_value_1
= fra
.me
.REG
[2];
2327 register_static_object(&once_value_1
);
2328 } else fra
.me
.REG
[2] = once_value_1
;
2329 fra
.me
.REG
[2] = fra
.me
.REG
[2];
2330 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
2331 fra
.me
.REG
[0] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___intro(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2332 fra
.me
.REG
[0] = CALL_compiling___compiling_base___MMLocalProperty___cname(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2333 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2334 if (!once_value_2
) {
2335 fra
.me
.REG
[0] = BOX_NativeString("");
2337 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2338 once_value_2
= fra
.me
.REG
[0];
2339 register_static_object(&once_value_2
);
2340 } else fra
.me
.REG
[0] = once_value_2
;
2341 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2342 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2343 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
2346 stack_frame_head
= fra
.me
.prev
;
2347 return fra
.me
.REG
[1];
2349 val_t
compiling___compiling_base___MMGlobalClass___cname(val_t p0
){
2350 struct {struct stack_frame_t me
; val_t MORE_REG
[4];} fra
;
2354 static val_t once_value_1
; /* Once value */
2355 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2356 fra
.me
.file
= LOCATE_compiling___compiling_base
;
2358 fra
.me
.meth
= LOCATE_compiling___compiling_base___MMGlobalClass___cname
;
2359 fra
.me
.has_broke
= 0;
2360 fra
.me
.REG_size
= 5;
2361 fra
.me
.REG
[0] = NIT_NULL
;
2362 fra
.me
.REG
[1] = NIT_NULL
;
2363 fra
.me
.REG
[2] = NIT_NULL
;
2364 fra
.me
.REG
[3] = NIT_NULL
;
2365 fra
.me
.REG
[4] = NIT_NULL
;
2367 /* ./compiling//compiling_base.nit:270 */
2368 fra
.me
.REG
[1] = ATTR_compiling___compiling_base___MMGlobalClass____cname_cache(fra
.me
.REG
[0]);
2369 /* ./compiling//compiling_base.nit:271 */
2370 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
2371 if (UNTAG_Bool(REGB0
)) {
2373 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
2374 if (UNTAG_Bool(REGB1
)) {
2375 REGB1
= TAG_Bool(false);
2378 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], NIT_NULL
);
2382 if (UNTAG_Bool(REGB0
)) {
2383 /* ./compiling//compiling_base.nit:272 */
2384 fra
.me
.REG
[2] = CALL_metamodel___abstractmetamodel___MMGlobalClass___intro(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2385 fra
.me
.REG
[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___mmmodule(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
2386 fra
.me
.REG
[2] = CALL_compiling___compiling_base___MMModule___cname(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
2387 if (!once_value_1
) {
2388 fra
.me
.REG
[3] = BOX_NativeString("___");
2390 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2391 once_value_1
= fra
.me
.REG
[3];
2392 register_static_object(&once_value_1
);
2393 } else fra
.me
.REG
[3] = once_value_1
;
2394 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2395 fra
.me
.REG
[3] = CALL_standard___string___String_____plus(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2397 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2398 fra
.me
.REG
[4] = CALL_metamodel___abstractmetamodel___MMGlobalClass___intro(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2399 fra
.me
.REG
[4] = CALL_metamodel___abstractmetamodel___MMLocalClass___name(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
2400 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[4]);
2401 fra
.me
.REG
[2] = CALL_utils___Object___cmangle(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[2]);
2402 fra
.me
.REG
[2] = CALL_standard___string___String_____plus(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[2]);
2403 fra
.me
.REG
[1] = fra
.me
.REG
[2];
2404 /* ./compiling//compiling_base.nit:273 */
2405 ATTR_compiling___compiling_base___MMGlobalClass____cname_cache(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
2407 /* ./compiling//compiling_base.nit:275 */
2410 stack_frame_head
= fra
.me
.prev
;
2411 return fra
.me
.REG
[1];
2413 val_t
compiling___compiling_base___MMGlobalClass___id_id(val_t p0
){
2414 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
2417 static val_t once_value_1
; /* Once value */
2418 static val_t once_value_2
; /* Once value */
2419 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2420 fra
.me
.file
= LOCATE_compiling___compiling_base
;
2422 fra
.me
.meth
= LOCATE_compiling___compiling_base___MMGlobalClass___id_id
;
2423 fra
.me
.has_broke
= 0;
2424 fra
.me
.REG_size
= 3;
2425 fra
.me
.REG
[0] = NIT_NULL
;
2426 fra
.me
.REG
[1] = NIT_NULL
;
2427 fra
.me
.REG
[2] = NIT_NULL
;
2429 /* ./compiling//compiling_base.nit:281 */
2431 fra
.me
.REG
[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2432 if (!once_value_1
) {
2433 fra
.me
.REG
[2] = BOX_NativeString("ID_");
2435 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
2436 once_value_1
= fra
.me
.REG
[2];
2437 register_static_object(&once_value_1
);
2438 } else fra
.me
.REG
[2] = once_value_1
;
2439 fra
.me
.REG
[2] = fra
.me
.REG
[2];
2440 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
2441 fra
.me
.REG
[0] = CALL_compiling___compiling_base___MMGlobalClass___cname(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2442 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2443 if (!once_value_2
) {
2444 fra
.me
.REG
[0] = BOX_NativeString("");
2446 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2447 once_value_2
= fra
.me
.REG
[0];
2448 register_static_object(&once_value_2
);
2449 } else fra
.me
.REG
[0] = once_value_2
;
2450 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2451 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2452 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
2455 stack_frame_head
= fra
.me
.prev
;
2456 return fra
.me
.REG
[1];
2458 val_t
compiling___compiling_base___MMGlobalClass___color_id(val_t p0
){
2459 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
2462 static val_t once_value_1
; /* Once value */
2463 static val_t once_value_2
; /* Once value */
2464 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2465 fra
.me
.file
= LOCATE_compiling___compiling_base
;
2467 fra
.me
.meth
= LOCATE_compiling___compiling_base___MMGlobalClass___color_id
;
2468 fra
.me
.has_broke
= 0;
2469 fra
.me
.REG_size
= 3;
2470 fra
.me
.REG
[0] = NIT_NULL
;
2471 fra
.me
.REG
[1] = NIT_NULL
;
2472 fra
.me
.REG
[2] = NIT_NULL
;
2474 /* ./compiling//compiling_base.nit:287 */
2476 fra
.me
.REG
[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2477 if (!once_value_1
) {
2478 fra
.me
.REG
[2] = BOX_NativeString("COLOR_");
2480 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
2481 once_value_1
= fra
.me
.REG
[2];
2482 register_static_object(&once_value_1
);
2483 } else fra
.me
.REG
[2] = once_value_1
;
2484 fra
.me
.REG
[2] = fra
.me
.REG
[2];
2485 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
2486 fra
.me
.REG
[0] = CALL_compiling___compiling_base___MMGlobalClass___cname(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2487 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2488 if (!once_value_2
) {
2489 fra
.me
.REG
[0] = BOX_NativeString("");
2491 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2492 once_value_2
= fra
.me
.REG
[0];
2493 register_static_object(&once_value_2
);
2494 } else fra
.me
.REG
[0] = once_value_2
;
2495 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2496 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2497 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
2500 stack_frame_head
= fra
.me
.prev
;
2501 return fra
.me
.REG
[1];
2503 val_t
compiling___compiling_base___MMGlobalClass___init_table_pos_id(val_t p0
){
2504 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
2507 static val_t once_value_1
; /* Once value */
2508 static val_t once_value_2
; /* Once value */
2509 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2510 fra
.me
.file
= LOCATE_compiling___compiling_base
;
2512 fra
.me
.meth
= LOCATE_compiling___compiling_base___MMGlobalClass___init_table_pos_id
;
2513 fra
.me
.has_broke
= 0;
2514 fra
.me
.REG_size
= 3;
2515 fra
.me
.REG
[0] = NIT_NULL
;
2516 fra
.me
.REG
[1] = NIT_NULL
;
2517 fra
.me
.REG
[2] = NIT_NULL
;
2519 /* ./compiling//compiling_base.nit:293 */
2521 fra
.me
.REG
[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2522 if (!once_value_1
) {
2523 fra
.me
.REG
[2] = BOX_NativeString("INIT_TABLE_POS_");
2524 REGB0
= TAG_Int(15);
2525 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
2526 once_value_1
= fra
.me
.REG
[2];
2527 register_static_object(&once_value_1
);
2528 } else fra
.me
.REG
[2] = once_value_1
;
2529 fra
.me
.REG
[2] = fra
.me
.REG
[2];
2530 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
2531 fra
.me
.REG
[0] = CALL_compiling___compiling_base___MMGlobalClass___cname(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2532 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2533 if (!once_value_2
) {
2534 fra
.me
.REG
[0] = BOX_NativeString("");
2536 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2537 once_value_2
= fra
.me
.REG
[0];
2538 register_static_object(&once_value_2
);
2539 } else fra
.me
.REG
[0] = once_value_2
;
2540 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2541 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2542 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
2545 stack_frame_head
= fra
.me
.prev
;
2546 return fra
.me
.REG
[1];
2548 val_t
compiling___compiling_base___MMModule___cname(val_t p0
){
2549 struct {struct stack_frame_t me
; val_t MORE_REG
[5];} fra
;
2553 static val_t once_value_3
; /* Once value */
2554 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2555 fra
.me
.file
= LOCATE_compiling___compiling_base
;
2557 fra
.me
.meth
= LOCATE_compiling___compiling_base___MMModule___cname
;
2558 fra
.me
.has_broke
= 0;
2559 fra
.me
.REG_size
= 6;
2560 fra
.me
.REG
[0] = NIT_NULL
;
2561 fra
.me
.REG
[1] = NIT_NULL
;
2562 fra
.me
.REG
[2] = NIT_NULL
;
2563 fra
.me
.REG
[3] = NIT_NULL
;
2564 fra
.me
.REG
[4] = NIT_NULL
;
2565 fra
.me
.REG
[5] = NIT_NULL
;
2567 /* ./compiling//compiling_base.nit:304 */
2568 fra
.me
.REG
[1] = ATTR_compiling___compiling_base___MMModule____cname_cache(fra
.me
.REG
[0]);
2569 /* ./compiling//compiling_base.nit:305 */
2570 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
2571 if (UNTAG_Bool(REGB0
)) {
2573 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
2574 if (UNTAG_Bool(REGB1
)) {
2575 REGB1
= TAG_Bool(false);
2578 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], NIT_NULL
);
2582 if (UNTAG_Bool(REGB0
)) {
2583 /* ./compiling//compiling_base.nit:306 */
2584 fra
.me
.REG
[2] = NEW_List_standard___collection___list___List___init();
2585 /* ./compiling//compiling_base.nit:307 */
2586 fra
.me
.REG
[3] = fra
.me
.REG
[0];
2587 /* ./compiling//compiling_base.nit:308 */
2589 REGB0
= TAG_Bool(fra
.me
.REG
[3]==NIT_NULL
);
2590 if (UNTAG_Bool(REGB0
)) {
2592 REGB1
= TAG_Bool(fra
.me
.REG
[3]==NIT_NULL
);
2593 if (UNTAG_Bool(REGB1
)) {
2594 REGB1
= TAG_Bool(false);
2597 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[3])(fra
.me
.REG
[3], NIT_NULL
);
2601 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
2602 if (UNTAG_Bool(REGB0
)) {
2603 /* ./compiling//compiling_base.nit:309 */
2605 fra
.me
.REG
[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2606 REGB0
= TAG_Bool(fra
.me
.REG
[3]==NIT_NULL
);
2607 if (UNTAG_Bool(REGB0
)) {
2608 nit_abort("Reciever is null", NULL
, LOCATE_compiling___compiling_base
, 309);
2610 fra
.me
.REG
[5] = CALL_metamodel___abstractmetamodel___MMModule___name(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
2611 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[5]);
2612 fra
.me
.REG
[4] = CALL_utils___Object___cmangle(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[4]);
2613 CALL_standard___collection___abstract_collection___Sequence___unshift(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[4]);
2614 /* ./compiling//compiling_base.nit:310 */
2615 REGB0
= TAG_Bool(fra
.me
.REG
[3]==NIT_NULL
);
2616 if (UNTAG_Bool(REGB0
)) {
2617 nit_abort("Reciever is null", NULL
, LOCATE_compiling___compiling_base
, 310);
2619 fra
.me
.REG
[4] = CALL_metamodel___abstractmetamodel___MMModule___directory(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
2620 /* ./compiling//compiling_base.nit:311 */
2622 REGB0
= TAG_Bool(fra
.me
.REG
[4]==NIT_NULL
);
2623 if (UNTAG_Bool(REGB0
)) {
2625 REGB1
= TAG_Bool(fra
.me
.REG
[4]==NIT_NULL
);
2626 if (UNTAG_Bool(REGB1
)) {
2627 REGB1
= TAG_Bool(false);
2630 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[4])(fra
.me
.REG
[4], NIT_NULL
);
2634 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
2635 if (UNTAG_Bool(REGB0
)) {
2636 REGB0
= TAG_Bool(fra
.me
.REG
[4]==NIT_NULL
);
2637 if (UNTAG_Bool(REGB0
)) {
2638 nit_abort("Reciever is null", NULL
, LOCATE_compiling___compiling_base
, 311);
2640 fra
.me
.REG
[5] = CALL_metamodel___abstractmetamodel___MMDirectory___owner(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
2641 REGB0
= TAG_Bool(IS_EQUAL_NN(fra
.me
.REG
[5],fra
.me
.REG
[3]));
2642 if (UNTAG_Bool(REGB0
)) {
2644 REGB1
= TAG_Bool(fra
.me
.REG
[5]==NIT_NULL
);
2645 if (UNTAG_Bool(REGB1
)) {
2646 REGB1
= TAG_Bool(false);
2649 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[3]);
2654 REGB1
= TAG_Bool(false);
2657 if (UNTAG_Bool(REGB0
)) {
2658 REGB0
= TAG_Bool(fra
.me
.REG
[4]==NIT_NULL
);
2659 if (UNTAG_Bool(REGB0
)) {
2660 nit_abort("Reciever is null", NULL
, LOCATE_compiling___compiling_base
, 311);
2662 fra
.me
.REG
[5] = CALL_metamodel___abstractmetamodel___MMDirectory___parent(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
2663 fra
.me
.REG
[4] = fra
.me
.REG
[5];
2669 /* ./compiling//compiling_base.nit:312 */
2670 REGB0
= TAG_Bool(fra
.me
.REG
[4]==NIT_NULL
);
2671 if (UNTAG_Bool(REGB0
)) {
2673 REGB1
= TAG_Bool(fra
.me
.REG
[4]==NIT_NULL
);
2674 if (UNTAG_Bool(REGB1
)) {
2675 REGB1
= TAG_Bool(false);
2678 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[4])(fra
.me
.REG
[4], NIT_NULL
);
2682 if (UNTAG_Bool(REGB0
)) {
2683 fra
.me
.REG
[3] = NIT_NULL
;
2685 REGB0
= TAG_Bool(fra
.me
.REG
[4]==NIT_NULL
);
2686 if (UNTAG_Bool(REGB0
)) {
2687 nit_abort("Reciever is null", NULL
, LOCATE_compiling___compiling_base
, 312);
2689 fra
.me
.REG
[4] = CALL_metamodel___abstractmetamodel___MMDirectory___owner(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
2690 fra
.me
.REG
[3] = fra
.me
.REG
[4];
2693 /* ./compiling//compiling_base.nit:308 */
2698 /* ./compiling//compiling_base.nit:314 */
2699 fra
.me
.REG
[2] = CALL_standard___collection___array___Collection___to_a(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
2700 if (!once_value_3
) {
2701 fra
.me
.REG
[3] = BOX_NativeString("___");
2703 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2704 once_value_3
= fra
.me
.REG
[3];
2705 register_static_object(&once_value_3
);
2706 } else fra
.me
.REG
[3] = once_value_3
;
2707 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2708 fra
.me
.REG
[3] = CALL_standard___string___Collection___join(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2709 fra
.me
.REG
[1] = fra
.me
.REG
[3];
2710 /* ./compiling//compiling_base.nit:315 */
2711 ATTR_compiling___compiling_base___MMModule____cname_cache(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
2713 /* ./compiling//compiling_base.nit:317 */
2716 stack_frame_head
= fra
.me
.prev
;
2717 return fra
.me
.REG
[1];
2719 val_t
compiling___compiling_base___MMLocalClass___cname(val_t p0
){
2720 struct {struct stack_frame_t me
;} fra
;
2722 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2723 fra
.me
.file
= LOCATE_compiling___compiling_base
;
2725 fra
.me
.meth
= LOCATE_compiling___compiling_base___MMLocalClass___cname
;
2726 fra
.me
.has_broke
= 0;
2727 fra
.me
.REG_size
= 1;
2728 fra
.me
.REG
[0] = NIT_NULL
;
2730 /* ./compiling//compiling_base.nit:323 */
2731 fra
.me
.REG
[0] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2732 fra
.me
.REG
[0] = CALL_compiling___compiling_base___MMGlobalClass___cname(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2735 stack_frame_head
= fra
.me
.prev
;
2736 return fra
.me
.REG
[0];
2738 val_t
compiling___compiling_base___MMLocalProperty___cname(val_t p0
){
2739 struct {struct stack_frame_t me
; val_t MORE_REG
[4];} fra
;
2743 static val_t once_value_1
; /* Once value */
2744 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2745 fra
.me
.file
= LOCATE_compiling___compiling_base
;
2747 fra
.me
.meth
= LOCATE_compiling___compiling_base___MMLocalProperty___cname
;
2748 fra
.me
.has_broke
= 0;
2749 fra
.me
.REG_size
= 5;
2750 fra
.me
.REG
[0] = NIT_NULL
;
2751 fra
.me
.REG
[1] = NIT_NULL
;
2752 fra
.me
.REG
[2] = NIT_NULL
;
2753 fra
.me
.REG
[3] = NIT_NULL
;
2754 fra
.me
.REG
[4] = NIT_NULL
;
2756 /* ./compiling//compiling_base.nit:333 */
2757 fra
.me
.REG
[1] = ATTR_compiling___compiling_base___MMLocalProperty____cname_cache(fra
.me
.REG
[0]);
2758 /* ./compiling//compiling_base.nit:334 */
2759 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
2760 if (UNTAG_Bool(REGB0
)) {
2762 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
2763 if (UNTAG_Bool(REGB1
)) {
2764 REGB1
= TAG_Bool(false);
2767 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], NIT_NULL
);
2771 if (UNTAG_Bool(REGB0
)) {
2772 /* ./compiling//compiling_base.nit:335 */
2773 fra
.me
.REG
[2] = CALL_metamodel___abstractmetamodel___MMLocalProperty___mmmodule(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2774 fra
.me
.REG
[2] = CALL_compiling___compiling_base___MMModule___cname(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
2775 if (!once_value_1
) {
2776 fra
.me
.REG
[3] = BOX_NativeString("___");
2778 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2779 once_value_1
= fra
.me
.REG
[3];
2780 register_static_object(&once_value_1
);
2781 } else fra
.me
.REG
[3] = once_value_1
;
2782 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2783 fra
.me
.REG
[3] = CALL_standard___string___String_____plus(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2785 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2786 fra
.me
.REG
[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___local_class(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2787 fra
.me
.REG
[4] = CALL_metamodel___abstractmetamodel___MMLocalClass___name(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
2788 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[4]);
2789 fra
.me
.REG
[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___name(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2790 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[4]);
2791 fra
.me
.REG
[2] = CALL_utils___Object___cmangle(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[2]);
2792 fra
.me
.REG
[2] = CALL_standard___string___String_____plus(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[2]);
2793 fra
.me
.REG
[1] = fra
.me
.REG
[2];
2794 /* ./compiling//compiling_base.nit:336 */
2795 ATTR_compiling___compiling_base___MMLocalProperty____cname_cache(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
2797 /* ./compiling//compiling_base.nit:338 */
2800 stack_frame_head
= fra
.me
.prev
;
2801 return fra
.me
.REG
[1];
2803 val_t
compiling___compiling_base___MMLocalProperty___super_meth_call(val_t p0
){
2804 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
2807 static val_t once_value_1
; /* Once value */
2808 static val_t once_value_2
; /* Once value */
2809 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2810 fra
.me
.file
= LOCATE_compiling___compiling_base
;
2812 fra
.me
.meth
= LOCATE_compiling___compiling_base___MMLocalProperty___super_meth_call
;
2813 fra
.me
.has_broke
= 0;
2814 fra
.me
.REG_size
= 3;
2815 fra
.me
.REG
[0] = NIT_NULL
;
2816 fra
.me
.REG
[1] = NIT_NULL
;
2817 fra
.me
.REG
[2] = NIT_NULL
;
2819 /* ./compiling//compiling_base.nit:344 */
2821 fra
.me
.REG
[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2822 if (!once_value_1
) {
2823 fra
.me
.REG
[2] = BOX_NativeString("CALL_SUPER_");
2824 REGB0
= TAG_Int(11);
2825 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
2826 once_value_1
= fra
.me
.REG
[2];
2827 register_static_object(&once_value_1
);
2828 } else fra
.me
.REG
[2] = once_value_1
;
2829 fra
.me
.REG
[2] = fra
.me
.REG
[2];
2830 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
2831 fra
.me
.REG
[0] = CALL_compiling___compiling_base___MMLocalProperty___cname(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2832 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2833 if (!once_value_2
) {
2834 fra
.me
.REG
[0] = BOX_NativeString("");
2836 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2837 once_value_2
= fra
.me
.REG
[0];
2838 register_static_object(&once_value_2
);
2839 } else fra
.me
.REG
[0] = once_value_2
;
2840 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2841 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2842 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
2845 stack_frame_head
= fra
.me
.prev
;
2846 return fra
.me
.REG
[1];