1 /* This C file is generated by NIT to compile module compiling___icode_generator. */
2 #include "compiling___icode_generator._sep.h"
3 void compiling___icode_generator___Program___generate_icode_files(val_t p0
){
4 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
7 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
8 fra
.me
.file
= LOCATE_compiling___icode_generator
;
10 fra
.me
.meth
= LOCATE_compiling___icode_generator___Program___generate_icode_files
;
13 fra
.me
.nitni_local_ref_head
= NULL
;
14 fra
.me
.REG
[0] = NIT_NULL
;
15 fra
.me
.REG
[1] = NIT_NULL
;
16 fra
.me
.REG
[2] = NIT_NULL
;
18 /* compiling/icode_generator.nit:26 */
19 fra
.me
.REG
[1] = fra
.me
.REG
[0];
20 /* compiling/icode_generator.nit:28 */
21 fra
.me
.REG
[2] = CALL_program___Program___tc(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
22 fra
.me
.REG
[2] = CALL_compiling___compiling_base___ToolContext___compdir(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
23 REGB0
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
24 if (UNTAG_Bool(REGB0
)) {
25 nit_abort("Reciever is null", NULL
, LOCATE_compiling___icode_generator
, 28);
27 CALL_standard___file___String___mkdir(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
28 CALL_program___Program___with_each_live_local_classes(fra
.me
.REG
[1])(fra
.me
.REG
[1], (&(fra
.me
)), ((fun_t
)OC_compiling___icode_generator___Program___generate_icode_files_1
));
29 stack_frame_head
= fra
.me
.prev
;
32 void OC_compiling___icode_generator___Program___generate_icode_files_1(struct stack_frame_t
*closctx
, val_t p0
){
33 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
36 /* compiling/icode_generator.nit:30 */
37 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
38 fra
.me
.file
= LOCATE_compiling___icode_generator
;
40 fra
.me
.meth
= LOCATE_compiling___icode_generator___Program___generate_icode_files
;
43 fra
.me
.nitni_local_ref_head
= NULL
;
44 fra
.me
.REG
[0] = NIT_NULL
;
45 fra
.me
.REG
[1] = NIT_NULL
;
47 /* compiling/icode_generator.nit:31 */
48 fra
.me
.REG
[1] = CALL_program___Program___tc(closctx
->REG
[1])(closctx
->REG
[1]);
49 fra
.me
.REG
[1] = CALL_compiling___compiling_base___ToolContext___compdir(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
50 REGB0
= TAG_Bool((fra
.me
.REG
[1]!=NIT_NULL
) && VAL_ISA(fra
.me
.REG
[1], COLOR_standard___string___String
, ID_standard___string___String
)) /*cast String*/;
51 if (UNTAG_Bool(REGB0
)) {
53 nit_abort("Cast failed", NULL
, LOCATE_compiling___icode_generator
, 31);
55 CALL_compiling___icode_generator___MMLocalClass___generate_icode_file(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
56 stack_frame_head
= fra
.me
.prev
;
59 void compiling___icode_generator___FileICodeDumper___init(val_t p0
, val_t p1
, int* init_table
){
60 int itpos0
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_compiling___icode_generator___FileICodeDumper
].i
;
61 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
65 if (init_table
[itpos0
]) return;
66 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
67 fra
.me
.file
= LOCATE_compiling___icode_generator
;
69 fra
.me
.meth
= LOCATE_compiling___icode_generator___FileICodeDumper___init
;
72 fra
.me
.nitni_local_ref_head
= NULL
;
73 fra
.me
.REG
[0] = NIT_NULL
;
74 fra
.me
.REG
[1] = NIT_NULL
;
75 fra
.me
.REG
[2] = NIT_NULL
;
78 /* compiling/icode_generator.nit:41 */
79 fra
.me
.REG
[2] = fra
.me
.REG
[0];
80 /* compiling/icode_generator.nit:43 */
81 REGB0
= TAG_Bool(false);
82 REGB1
= TAG_Bool(false);
83 CALL_analysis___icode_dump___ICodeDumper___init(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB0
, REGB1
, init_table
);
84 /* compiling/icode_generator.nit:44 */
85 ATTR_compiling___icode_generator___FileICodeDumper____file(fra
.me
.REG
[2]) = fra
.me
.REG
[1];
86 stack_frame_head
= fra
.me
.prev
;
87 init_table
[itpos0
] = 1;
90 void compiling___icode_generator___FileICodeDumper___write(val_t p0
, val_t p1
){
91 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
96 static val_t once_value_1
; /* Once value */
97 static val_t once_value_3
; /* Once value */
98 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
99 fra
.me
.file
= LOCATE_compiling___icode_generator
;
101 fra
.me
.meth
= LOCATE_compiling___icode_generator___FileICodeDumper___write
;
102 fra
.me
.has_broke
= 0;
104 fra
.me
.nitni_local_ref_head
= NULL
;
105 fra
.me
.REG
[0] = NIT_NULL
;
106 fra
.me
.REG
[1] = NIT_NULL
;
107 fra
.me
.REG
[2] = NIT_NULL
;
108 fra
.me
.REG
[3] = NIT_NULL
;
111 /* compiling/icode_generator.nit:48 */
113 REGB1
= CALL_analysis___icode_dump___ICodeDumper___indent_level(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
114 /* ../lib/standard/kernel.nit:352 */
116 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
117 if (UNTAG_Bool(REGB2
)) {
119 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
121 /* ../lib/standard/kernel.nit:232 */
122 REGB2
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB1
));
123 /* ../lib/standard/kernel.nit:352 */
124 if (UNTAG_Bool(REGB2
)) {
125 /* compiling/icode_generator.nit:49 */
126 REGB2
= TAG_Bool(ATTR_compiling___icode_generator___FileICodeDumper____file(fra
.me
.REG
[0])!=NIT_NULL
);
127 if (UNTAG_Bool(REGB2
)) {
129 nit_abort("Uninitialized attribute %s", "_file", LOCATE_compiling___icode_generator
, 49);
131 fra
.me
.REG
[2] = ATTR_compiling___icode_generator___FileICodeDumper____file(fra
.me
.REG
[0]);
133 fra
.me
.REG
[3] = BOX_NativeString(" ");
135 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB2
);
136 once_value_1
= fra
.me
.REG
[3];
137 register_static_object(&once_value_1
);
138 } else fra
.me
.REG
[3] = once_value_1
;
139 fra
.me
.REG
[3] = fra
.me
.REG
[3];
140 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
141 /* ../lib/standard/kernel.nit:354 */
143 /* ../lib/standard/kernel.nit:235 */
144 REGB2
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB2
));
145 /* ../lib/standard/kernel.nit:354 */
148 /* ../lib/standard/kernel.nit:352 */
153 /* compiling/icode_generator.nit:51 */
154 REGB0
= TAG_Bool(ATTR_compiling___icode_generator___FileICodeDumper____file(fra
.me
.REG
[0])!=NIT_NULL
);
155 if (UNTAG_Bool(REGB0
)) {
157 nit_abort("Uninitialized attribute %s", "_file", LOCATE_compiling___icode_generator
, 51);
159 fra
.me
.REG
[3] = ATTR_compiling___icode_generator___FileICodeDumper____file(fra
.me
.REG
[0]);
160 CALL_standard___stream___OStream___write(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[1]);
161 /* compiling/icode_generator.nit:52 */
162 REGB0
= TAG_Bool(ATTR_compiling___icode_generator___FileICodeDumper____file(fra
.me
.REG
[0])!=NIT_NULL
);
163 if (UNTAG_Bool(REGB0
)) {
165 nit_abort("Uninitialized attribute %s", "_file", LOCATE_compiling___icode_generator
, 52);
167 fra
.me
.REG
[0] = ATTR_compiling___icode_generator___FileICodeDumper____file(fra
.me
.REG
[0]);
169 fra
.me
.REG
[1] = BOX_NativeString("\n");
171 fra
.me
.REG
[1] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[1], REGB0
);
172 once_value_3
= fra
.me
.REG
[1];
173 register_static_object(&once_value_3
);
174 } else fra
.me
.REG
[1] = once_value_3
;
175 fra
.me
.REG
[1] = fra
.me
.REG
[1];
176 CALL_standard___stream___OStream___write(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
177 stack_frame_head
= fra
.me
.prev
;
180 void compiling___icode_generator___MMLocalClass___generate_icode_file(val_t p0
, val_t p1
){
181 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
185 static val_t once_value_1
; /* Once value */
186 static val_t once_value_2
; /* Once value */
187 static val_t once_value_3
; /* Once value */
188 static val_t once_value_4
; /* Once value */
189 static val_t once_value_5
; /* Once value */
190 static val_t once_value_6
; /* Once value */
191 static val_t once_value_7
; /* Once value */
192 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
193 fra
.me
.file
= LOCATE_compiling___icode_generator
;
195 fra
.me
.meth
= LOCATE_compiling___icode_generator___MMLocalClass___generate_icode_file
;
196 fra
.me
.has_broke
= 0;
198 fra
.me
.nitni_local_ref_head
= NULL
;
199 fra
.me
.REG
[0] = NIT_NULL
;
200 fra
.me
.REG
[1] = NIT_NULL
;
201 fra
.me
.REG
[2] = NIT_NULL
;
202 fra
.me
.REG
[3] = NIT_NULL
;
205 /* compiling/icode_generator.nit:59 */
207 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
209 fra
.me
.REG
[3] = BOX_NativeString("");
211 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
212 once_value_1
= fra
.me
.REG
[3];
213 register_static_object(&once_value_1
);
214 } else fra
.me
.REG
[3] = once_value_1
;
215 fra
.me
.REG
[3] = fra
.me
.REG
[3];
216 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
217 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
219 fra
.me
.REG
[1] = BOX_NativeString("/");
221 fra
.me
.REG
[1] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[1], REGB0
);
222 once_value_2
= fra
.me
.REG
[1];
223 register_static_object(&once_value_2
);
224 } else fra
.me
.REG
[1] = once_value_2
;
225 fra
.me
.REG
[1] = fra
.me
.REG
[1];
226 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
227 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
228 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
230 fra
.me
.REG
[1] = BOX_NativeString(".icode");
232 fra
.me
.REG
[1] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[1], REGB0
);
233 once_value_3
= fra
.me
.REG
[1];
234 register_static_object(&once_value_3
);
235 } else fra
.me
.REG
[1] = once_value_3
;
236 fra
.me
.REG
[1] = fra
.me
.REG
[1];
237 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
238 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
239 fra
.me
.REG
[2] = NEW_OFStream_standard___file___OFStream___open(fra
.me
.REG
[2]);
240 /* compiling/icode_generator.nit:60 */
241 fra
.me
.REG
[1] = CALL_primitive_info___MMLocalClass___primitive_info(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
242 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
243 if (UNTAG_Bool(REGB0
)) {
245 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
246 if (UNTAG_Bool(REGB1
)) {
247 REGB1
= TAG_Bool(false);
250 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], NIT_NULL
);
254 if (UNTAG_Bool(REGB0
)) {
255 /* compiling/icode_generator.nit:62 */
256 fra
.me
.REG
[1] = CALL_program___MMLocalClass___init_var_iroutine(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
257 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
258 if (UNTAG_Bool(REGB0
)) {
260 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
261 if (UNTAG_Bool(REGB1
)) {
262 REGB1
= TAG_Bool(false);
265 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], NIT_NULL
);
269 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
270 if (UNTAG_Bool(REGB0
)) {
271 /* compiling/icode_generator.nit:63 */
272 fra
.me
.REG
[1] = NEW_FileICodeDumper_compiling___icode_generator___FileICodeDumper___init(fra
.me
.REG
[2]);
273 /* compiling/icode_generator.nit:64 */
274 CALL_analysis___icode_dump___ICodeDumper___indent(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
275 /* compiling/icode_generator.nit:65 */
277 fra
.me
.REG
[3] = BOX_NativeString("Init var iroutine::\n");
279 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
280 once_value_4
= fra
.me
.REG
[3];
281 register_static_object(&once_value_4
);
282 } else fra
.me
.REG
[3] = once_value_4
;
283 fra
.me
.REG
[3] = fra
.me
.REG
[3];
284 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
285 /* compiling/icode_generator.nit:66 */
286 fra
.me
.REG
[3] = CALL_program___MMLocalClass___init_var_iroutine(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
287 REGB0
= TAG_Bool(fra
.me
.REG
[3]==NIT_NULL
);
288 if (UNTAG_Bool(REGB0
)) {
289 nit_abort("Reciever is null", NULL
, LOCATE_compiling___icode_generator
, 66);
291 CALL_analysis___icode_dump___IRoutine___dump(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[1]);
292 /* compiling/icode_generator.nit:67 */
294 fra
.me
.REG
[1] = BOX_NativeString("\n\n");
296 fra
.me
.REG
[1] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[1], REGB0
);
297 once_value_5
= fra
.me
.REG
[1];
298 register_static_object(&once_value_5
);
299 } else fra
.me
.REG
[1] = once_value_5
;
300 fra
.me
.REG
[1] = fra
.me
.REG
[1];
301 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
303 /* compiling/icode_generator.nit:69 */
304 fra
.me
.REG
[1] = CALL_program___MMLocalClass___checknew_iroutine(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
305 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
306 if (UNTAG_Bool(REGB0
)) {
308 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
309 if (UNTAG_Bool(REGB1
)) {
310 REGB1
= TAG_Bool(false);
313 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], NIT_NULL
);
317 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
318 if (UNTAG_Bool(REGB0
)) {
319 /* compiling/icode_generator.nit:70 */
320 fra
.me
.REG
[1] = NEW_FileICodeDumper_compiling___icode_generator___FileICodeDumper___init(fra
.me
.REG
[2]);
321 /* compiling/icode_generator.nit:71 */
322 CALL_analysis___icode_dump___ICodeDumper___indent(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
323 /* compiling/icode_generator.nit:72 */
325 fra
.me
.REG
[3] = BOX_NativeString("Check new instance iroutine::\n");
327 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
328 once_value_6
= fra
.me
.REG
[3];
329 register_static_object(&once_value_6
);
330 } else fra
.me
.REG
[3] = once_value_6
;
331 fra
.me
.REG
[3] = fra
.me
.REG
[3];
332 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
333 /* compiling/icode_generator.nit:73 */
334 fra
.me
.REG
[3] = CALL_program___MMLocalClass___checknew_iroutine(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
335 REGB0
= TAG_Bool(fra
.me
.REG
[3]==NIT_NULL
);
336 if (UNTAG_Bool(REGB0
)) {
337 nit_abort("Reciever is null", NULL
, LOCATE_compiling___icode_generator
, 73);
339 CALL_analysis___icode_dump___IRoutine___dump(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[1]);
340 /* compiling/icode_generator.nit:74 */
342 fra
.me
.REG
[1] = BOX_NativeString("\n\n");
344 fra
.me
.REG
[1] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[1], REGB0
);
345 once_value_7
= fra
.me
.REG
[1];
346 register_static_object(&once_value_7
);
347 } else fra
.me
.REG
[1] = once_value_7
;
348 fra
.me
.REG
[1] = fra
.me
.REG
[1];
349 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
351 /* compiling/icode_generator.nit:78 */
352 fra
.me
.REG
[1] = CALL_metamodel___abstractmetamodel___MMLocalClass___global_properties(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
353 CALL_standard___collection___abstract_collection___Collection___iterate(fra
.me
.REG
[1])(fra
.me
.REG
[1], (&(fra
.me
)), ((fun_t
)OC_compiling___icode_generator___MMLocalClass___generate_icode_file_8
));
355 /* compiling/icode_generator.nit:92 */
356 fra
.me
.REG
[1] = CALL_metamodel___abstractmetamodel___MMLocalClass___global_properties(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
357 CALL_standard___collection___abstract_collection___Collection___iterate(fra
.me
.REG
[1])(fra
.me
.REG
[1], (&(fra
.me
)), ((fun_t
)OC_compiling___icode_generator___MMLocalClass___generate_icode_file_13
));
358 /* compiling/icode_generator.nit:98 */
359 CALL_standard___stream___IOS___close(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
360 stack_frame_head
= fra
.me
.prev
;
363 void OC_compiling___icode_generator___MMLocalClass___generate_icode_file_8(struct stack_frame_t
*closctx
, val_t p0
, struct stack_frame_t
*closctx_param
, fun_t clos_fun0
){
364 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
368 static val_t once_value_10
; /* Once value */
369 static val_t once_value_11
; /* Once value */
370 static val_t once_value_12
; /* Once value */
371 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
372 fra
.me
.file
= LOCATE_compiling___icode_generator
;
374 fra
.me
.meth
= LOCATE_compiling___icode_generator___MMLocalClass___generate_icode_file
;
375 fra
.me
.has_broke
= 0;
377 fra
.me
.nitni_local_ref_head
= NULL
;
378 fra
.me
.REG
[0] = NIT_NULL
;
379 fra
.me
.REG
[1] = NIT_NULL
;
380 fra
.me
.REG
[2] = NIT_NULL
;
381 fra
.me
.REG
[3] = NIT_NULL
;
382 fra
.me
.closure_ctx
= closctx_param
;
383 fra
.me
.closure_funs
= CREG
;
386 /* compiling/icode_generator.nit:79 */
387 REGB0
= CALL_metamodel___abstractmetamodel___MMGlobalProperty___is_init_for(fra
.me
.REG
[0])(fra
.me
.REG
[0], closctx
->REG
[0]);
388 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
389 if (UNTAG_Bool(REGB0
)) {
392 /* compiling/icode_generator.nit:80 */
393 fra
.me
.REG
[0] = CALL_metamodel___abstractmetamodel___MMLocalClass_____bra(closctx
->REG
[0])(closctx
->REG
[0], fra
.me
.REG
[0]);
394 /* compiling/icode_generator.nit:81 */
395 REGB0
= TAG_Bool(VAL_ISA(fra
.me
.REG
[0], COLOR_metamodel___abstractmetamodel___MMMethod
, ID_metamodel___abstractmetamodel___MMMethod
)) /*cast MMMethod*/;
396 if (UNTAG_Bool(REGB0
)) {
398 nit_abort("Assert failed", NULL
, LOCATE_compiling___icode_generator
, 81);
400 /* compiling/icode_generator.nit:82 */
401 fra
.me
.REG
[1] = CALL_program___MMLocalClass___new_instance_iroutine(closctx
->REG
[0])(closctx
->REG
[0]);
402 REGB0
= CALL_standard___collection___abstract_collection___MapRead___has_key(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
403 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
404 if (UNTAG_Bool(REGB0
)) {
407 /* compiling/icode_generator.nit:83 */
408 fra
.me
.REG
[1] = NEW_FileICodeDumper_compiling___icode_generator___FileICodeDumper___init(closctx
->REG
[2]);
409 /* compiling/icode_generator.nit:84 */
410 CALL_analysis___icode_dump___ICodeDumper___indent(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
411 /* compiling/icode_generator.nit:85 */
413 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
414 if (!once_value_10
) {
415 fra
.me
.REG
[3] = BOX_NativeString("New instance:: ");
417 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
418 once_value_10
= fra
.me
.REG
[3];
419 register_static_object(&once_value_10
);
420 } else fra
.me
.REG
[3] = once_value_10
;
421 fra
.me
.REG
[3] = fra
.me
.REG
[3];
422 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
423 fra
.me
.REG
[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
424 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
425 if (!once_value_11
) {
426 fra
.me
.REG
[3] = BOX_NativeString("\n");
428 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
429 once_value_11
= fra
.me
.REG
[3];
430 register_static_object(&once_value_11
);
431 } else fra
.me
.REG
[3] = once_value_11
;
432 fra
.me
.REG
[3] = fra
.me
.REG
[3];
433 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
434 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
435 CALL_standard___stream___OStream___write(closctx
->REG
[2])(closctx
->REG
[2], fra
.me
.REG
[2]);
436 /* compiling/icode_generator.nit:86 */
437 fra
.me
.REG
[2] = CALL_program___MMLocalClass___new_instance_iroutine(closctx
->REG
[0])(closctx
->REG
[0]);
438 fra
.me
.REG
[0] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
439 REGB0
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
440 if (UNTAG_Bool(REGB0
)) {
441 nit_abort("Reciever is null", NULL
, LOCATE_compiling___icode_generator
, 86);
443 CALL_analysis___icode_dump___IRoutine___dump(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
444 /* compiling/icode_generator.nit:87 */
445 if (!once_value_12
) {
446 fra
.me
.REG
[1] = BOX_NativeString("\n\n");
448 fra
.me
.REG
[1] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[1], REGB0
);
449 once_value_12
= fra
.me
.REG
[1];
450 register_static_object(&once_value_12
);
451 } else fra
.me
.REG
[1] = once_value_12
;
452 fra
.me
.REG
[1] = fra
.me
.REG
[1];
453 CALL_standard___stream___OStream___write(closctx
->REG
[2])(closctx
->REG
[2], fra
.me
.REG
[1]);
455 stack_frame_head
= fra
.me
.prev
;
458 void OC_compiling___icode_generator___MMLocalClass___generate_icode_file_13(struct stack_frame_t
*closctx
, val_t p0
, struct stack_frame_t
*closctx_param
, fun_t clos_fun0
){
459 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
464 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
465 fra
.me
.file
= LOCATE_compiling___icode_generator
;
467 fra
.me
.meth
= LOCATE_compiling___icode_generator___MMLocalClass___generate_icode_file
;
468 fra
.me
.has_broke
= 0;
470 fra
.me
.nitni_local_ref_head
= NULL
;
471 fra
.me
.REG
[0] = NIT_NULL
;
472 fra
.me
.REG
[1] = NIT_NULL
;
473 fra
.me
.closure_ctx
= closctx_param
;
474 fra
.me
.closure_funs
= CREG
;
477 /* compiling/icode_generator.nit:93 */
478 fra
.me
.REG
[0] = CALL_metamodel___abstractmetamodel___MMLocalClass_____bra(closctx
->REG
[0])(closctx
->REG
[0], fra
.me
.REG
[0]);
479 /* compiling/icode_generator.nit:94 */
480 fra
.me
.REG
[1] = CALL_metamodel___abstractmetamodel___MMLocalProperty___local_class(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
481 REGB0
= TAG_Bool(IS_EQUAL_OO(fra
.me
.REG
[1],closctx
->REG
[0]));
482 if (UNTAG_Bool(REGB0
)) {
484 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], closctx
->REG
[0]);
487 if (UNTAG_Bool(REGB0
)) {
488 REGB0
= TAG_Bool(VAL_ISA(fra
.me
.REG
[0], COLOR_metamodel___abstractmetamodel___MMMethod
, ID_metamodel___abstractmetamodel___MMMethod
)) /*cast MMMethod*/;
490 REGB1
= TAG_Bool(false);
493 if (UNTAG_Bool(REGB0
)) {
494 /* compiling/icode_generator.nit:95 */
495 CALL_compiling___icode_generator___MMMethod___generate_icode(fra
.me
.REG
[0])(fra
.me
.REG
[0], closctx
->REG
[2]);
497 stack_frame_head
= fra
.me
.prev
;
500 void compiling___icode_generator___MMMethod___generate_icode(val_t p0
, val_t p1
){
501 struct {struct stack_frame_t me
; val_t MORE_REG
[4];} fra
;
504 static val_t once_value_1
; /* Once value */
505 static val_t once_value_2
; /* Once value */
506 static val_t once_value_3
; /* Once value */
507 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
508 fra
.me
.file
= LOCATE_compiling___icode_generator
;
510 fra
.me
.meth
= LOCATE_compiling___icode_generator___MMMethod___generate_icode
;
511 fra
.me
.has_broke
= 0;
513 fra
.me
.nitni_local_ref_head
= NULL
;
514 fra
.me
.REG
[0] = NIT_NULL
;
515 fra
.me
.REG
[1] = NIT_NULL
;
516 fra
.me
.REG
[2] = NIT_NULL
;
517 fra
.me
.REG
[3] = NIT_NULL
;
518 fra
.me
.REG
[4] = NIT_NULL
;
521 /* compiling/icode_generator.nit:105 */
522 fra
.me
.REG
[2] = NEW_FileICodeDumper_compiling___icode_generator___FileICodeDumper___init(fra
.me
.REG
[1]);
523 /* compiling/icode_generator.nit:106 */
524 CALL_analysis___icode_dump___ICodeDumper___indent(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
525 /* compiling/icode_generator.nit:107 */
527 fra
.me
.REG
[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
529 fra
.me
.REG
[4] = BOX_NativeString("Method:: ");
531 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB0
);
532 once_value_1
= fra
.me
.REG
[4];
533 register_static_object(&once_value_1
);
534 } else fra
.me
.REG
[4] = once_value_1
;
535 fra
.me
.REG
[4] = fra
.me
.REG
[4];
536 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
537 fra
.me
.REG
[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
538 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
540 fra
.me
.REG
[4] = BOX_NativeString("\n");
542 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB0
);
543 once_value_2
= fra
.me
.REG
[4];
544 register_static_object(&once_value_2
);
545 } else fra
.me
.REG
[4] = once_value_2
;
546 fra
.me
.REG
[4] = fra
.me
.REG
[4];
547 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
548 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
549 CALL_standard___stream___OStream___write(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[3]);
550 /* compiling/icode_generator.nit:108 */
551 fra
.me
.REG
[0] = CALL_icode___icode_base___MMMethod___iroutine(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
552 REGB0
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
553 if (UNTAG_Bool(REGB0
)) {
554 nit_abort("Reciever is null", NULL
, LOCATE_compiling___icode_generator
, 108);
556 CALL_analysis___icode_dump___IRoutine___dump(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[2]);
557 /* compiling/icode_generator.nit:109 */
559 fra
.me
.REG
[2] = BOX_NativeString("\n\n");
561 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
562 once_value_3
= fra
.me
.REG
[2];
563 register_static_object(&once_value_3
);
564 } else fra
.me
.REG
[2] = once_value_3
;
565 fra
.me
.REG
[2] = fra
.me
.REG
[2];
566 CALL_standard___stream___OStream___write(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
567 stack_frame_head
= fra
.me
.prev
;