1 /* This C file is generated by NIT to compile module compiling___icode_generator. */
2 #include "compiling___icode_generator._sep.h"
3 static const char LOCATE_compiling___icode_generator___Program___generate_icode_files
[] = "icode_generator::Program::generate_icode_files";
4 void compiling___icode_generator___Program___generate_icode_files(val_t p0
){
5 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
8 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
9 fra
.me
.file
= LOCATE_compiling___icode_generator
;
11 fra
.me
.meth
= LOCATE_compiling___icode_generator___Program___generate_icode_files
;
14 fra
.me
.nitni_local_ref_head
= NULL
;
15 fra
.me
.REG
[0] = NIT_NULL
;
16 fra
.me
.REG
[1] = NIT_NULL
;
17 fra
.me
.REG
[2] = NIT_NULL
;
19 /* compiling/icode_generator.nit:26 */
20 fra
.me
.REG
[1] = fra
.me
.REG
[0];
21 /* compiling/icode_generator.nit:28 */
22 fra
.me
.REG
[2] = CALL_program___Program___tc(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
23 fra
.me
.REG
[2] = CALL_compiling___compiling_base___ToolContext___compdir(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
24 REGB0
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
25 if (UNTAG_Bool(REGB0
)) {
26 nit_abort("Reciever is null", NULL
, LOCATE_compiling___icode_generator
, 28);
28 CALL_standard___file___String___mkdir(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
29 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
));
30 stack_frame_head
= fra
.me
.prev
;
33 void OC_compiling___icode_generator___Program___generate_icode_files_1(struct stack_frame_t
*closctx
, val_t p0
){
34 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
37 /* compiling/icode_generator.nit:30 */
38 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
39 fra
.me
.file
= LOCATE_compiling___icode_generator
;
41 fra
.me
.meth
= LOCATE_compiling___icode_generator___Program___generate_icode_files
;
44 fra
.me
.nitni_local_ref_head
= NULL
;
45 fra
.me
.REG
[0] = NIT_NULL
;
46 fra
.me
.REG
[1] = NIT_NULL
;
48 /* compiling/icode_generator.nit:31 */
49 fra
.me
.REG
[1] = CALL_program___Program___tc(closctx
->REG
[1])(closctx
->REG
[1]);
50 fra
.me
.REG
[1] = CALL_compiling___compiling_base___ToolContext___compdir(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
51 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*/;
52 if (UNTAG_Bool(REGB0
)) {
54 nit_abort("Cast failed", NULL
, LOCATE_compiling___icode_generator
, 31);
56 CALL_compiling___icode_generator___MMLocalClass___generate_icode_file(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
57 stack_frame_head
= fra
.me
.prev
;
60 static const char LOCATE_compiling___icode_generator___FileICodeDumper___init
[] = "icode_generator::FileICodeDumper::init";
61 void compiling___icode_generator___FileICodeDumper___init(val_t p0
, val_t p1
, int* init_table
){
62 int itpos0
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_compiling___icode_generator___FileICodeDumper
].i
;
63 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
67 if (init_table
[itpos0
]) return;
68 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
69 fra
.me
.file
= LOCATE_compiling___icode_generator
;
71 fra
.me
.meth
= LOCATE_compiling___icode_generator___FileICodeDumper___init
;
74 fra
.me
.nitni_local_ref_head
= NULL
;
75 fra
.me
.REG
[0] = NIT_NULL
;
76 fra
.me
.REG
[1] = NIT_NULL
;
77 fra
.me
.REG
[2] = NIT_NULL
;
80 /* compiling/icode_generator.nit:41 */
81 fra
.me
.REG
[2] = fra
.me
.REG
[0];
82 /* compiling/icode_generator.nit:43 */
85 CALL_analysis___icode_dump___ICodeDumper___init(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB0
, REGB1
, init_table
);
86 /* compiling/icode_generator.nit:44 */
87 ATTR_compiling___icode_generator___FileICodeDumper____file(fra
.me
.REG
[2]) = fra
.me
.REG
[1];
88 stack_frame_head
= fra
.me
.prev
;
89 init_table
[itpos0
] = 1;
92 static const char LOCATE_compiling___icode_generator___FileICodeDumper___write
[] = "icode_generator::FileICodeDumper::(icode_dump::ICodeDumper::write)";
93 void compiling___icode_generator___FileICodeDumper___write(val_t p0
, val_t p1
){
94 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
99 static val_t once_value_1
; /* Once value */
100 static val_t once_value_3
; /* Once value */
101 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
102 fra
.me
.file
= LOCATE_compiling___icode_generator
;
104 fra
.me
.meth
= LOCATE_compiling___icode_generator___FileICodeDumper___write
;
105 fra
.me
.has_broke
= 0;
107 fra
.me
.nitni_local_ref_head
= NULL
;
108 fra
.me
.REG
[0] = NIT_NULL
;
109 fra
.me
.REG
[1] = NIT_NULL
;
110 fra
.me
.REG
[2] = NIT_NULL
;
111 fra
.me
.REG
[3] = NIT_NULL
;
114 /* compiling/icode_generator.nit:48 */
116 REGB1
= CALL_analysis___icode_dump___ICodeDumper___indent_level(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
117 /* ../lib/standard/kernel.nit:404 */
119 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
120 if (UNTAG_Bool(REGB2
)) {
122 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
124 /* ../lib/standard/kernel.nit:242 */
125 REGB2
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB1
));
126 /* ../lib/standard/kernel.nit:404 */
127 if (UNTAG_Bool(REGB2
)) {
128 /* compiling/icode_generator.nit:49 */
129 REGB2
= TAG_Bool(ATTR_compiling___icode_generator___FileICodeDumper____file(fra
.me
.REG
[0])!=NIT_NULL
);
130 if (UNTAG_Bool(REGB2
)) {
132 nit_abort("Uninitialized attribute %s", "_file", LOCATE_compiling___icode_generator
, 49);
134 fra
.me
.REG
[2] = ATTR_compiling___icode_generator___FileICodeDumper____file(fra
.me
.REG
[0]);
136 fra
.me
.REG
[3] = BOX_NativeString(" ");
138 fra
.me
.REG
[3] = CALL_standard___string___NativeString___to_s_with_length(fra
.me
.REG
[3])(fra
.me
.REG
[3], REGB2
);
139 once_value_1
= fra
.me
.REG
[3];
140 register_static_object(&once_value_1
);
141 } else fra
.me
.REG
[3] = once_value_1
;
142 fra
.me
.REG
[3] = fra
.me
.REG
[3];
143 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
144 /* ../lib/standard/kernel.nit:406 */
146 /* ../lib/standard/kernel.nit:245 */
147 REGB2
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB2
));
148 /* ../lib/standard/kernel.nit:406 */
151 /* ../lib/standard/kernel.nit:404 */
156 /* compiling/icode_generator.nit:51 */
157 REGB0
= TAG_Bool(ATTR_compiling___icode_generator___FileICodeDumper____file(fra
.me
.REG
[0])!=NIT_NULL
);
158 if (UNTAG_Bool(REGB0
)) {
160 nit_abort("Uninitialized attribute %s", "_file", LOCATE_compiling___icode_generator
, 51);
162 fra
.me
.REG
[3] = ATTR_compiling___icode_generator___FileICodeDumper____file(fra
.me
.REG
[0]);
163 CALL_standard___stream___OStream___write(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[1]);
164 /* compiling/icode_generator.nit:52 */
165 REGB0
= TAG_Bool(ATTR_compiling___icode_generator___FileICodeDumper____file(fra
.me
.REG
[0])!=NIT_NULL
);
166 if (UNTAG_Bool(REGB0
)) {
168 nit_abort("Uninitialized attribute %s", "_file", LOCATE_compiling___icode_generator
, 52);
170 fra
.me
.REG
[0] = ATTR_compiling___icode_generator___FileICodeDumper____file(fra
.me
.REG
[0]);
172 fra
.me
.REG
[1] = BOX_NativeString("\n");
174 fra
.me
.REG
[1] = CALL_standard___string___NativeString___to_s_with_length(fra
.me
.REG
[1])(fra
.me
.REG
[1], REGB0
);
175 once_value_3
= fra
.me
.REG
[1];
176 register_static_object(&once_value_3
);
177 } else fra
.me
.REG
[1] = once_value_3
;
178 fra
.me
.REG
[1] = fra
.me
.REG
[1];
179 CALL_standard___stream___OStream___write(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
180 stack_frame_head
= fra
.me
.prev
;
183 static const char LOCATE_compiling___icode_generator___MMLocalClass___generate_icode_file
[] = "icode_generator::MMLocalClass::generate_icode_file";
184 void compiling___icode_generator___MMLocalClass___generate_icode_file(val_t p0
, val_t p1
){
185 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
189 static val_t once_value_1
; /* Once value */
190 static val_t once_value_2
; /* Once value */
191 static val_t once_value_3
; /* Once value */
192 static val_t once_value_4
; /* Once value */
193 static val_t once_value_5
; /* Once value */
194 static val_t once_value_6
; /* Once value */
195 static val_t once_value_7
; /* Once value */
196 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
197 fra
.me
.file
= LOCATE_compiling___icode_generator
;
199 fra
.me
.meth
= LOCATE_compiling___icode_generator___MMLocalClass___generate_icode_file
;
200 fra
.me
.has_broke
= 0;
202 fra
.me
.nitni_local_ref_head
= NULL
;
203 fra
.me
.REG
[0] = NIT_NULL
;
204 fra
.me
.REG
[1] = NIT_NULL
;
205 fra
.me
.REG
[2] = NIT_NULL
;
206 fra
.me
.REG
[3] = NIT_NULL
;
209 /* compiling/icode_generator.nit:59 */
211 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
213 fra
.me
.REG
[3] = BOX_NativeString("");
215 fra
.me
.REG
[3] = CALL_standard___string___NativeString___to_s_with_length(fra
.me
.REG
[3])(fra
.me
.REG
[3], REGB0
);
216 once_value_1
= fra
.me
.REG
[3];
217 register_static_object(&once_value_1
);
218 } else fra
.me
.REG
[3] = once_value_1
;
219 fra
.me
.REG
[3] = fra
.me
.REG
[3];
220 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
221 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
223 fra
.me
.REG
[1] = BOX_NativeString("/");
225 fra
.me
.REG
[1] = CALL_standard___string___NativeString___to_s_with_length(fra
.me
.REG
[1])(fra
.me
.REG
[1], REGB0
);
226 once_value_2
= fra
.me
.REG
[1];
227 register_static_object(&once_value_2
);
228 } else fra
.me
.REG
[1] = once_value_2
;
229 fra
.me
.REG
[1] = fra
.me
.REG
[1];
230 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
231 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
232 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
234 fra
.me
.REG
[1] = BOX_NativeString(".icode");
236 fra
.me
.REG
[1] = CALL_standard___string___NativeString___to_s_with_length(fra
.me
.REG
[1])(fra
.me
.REG
[1], REGB0
);
237 once_value_3
= fra
.me
.REG
[1];
238 register_static_object(&once_value_3
);
239 } else fra
.me
.REG
[1] = once_value_3
;
240 fra
.me
.REG
[1] = fra
.me
.REG
[1];
241 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
242 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
243 fra
.me
.REG
[2] = NEW_OFStream_standard___file___OFStream___open(fra
.me
.REG
[2]);
244 /* compiling/icode_generator.nit:60 */
245 fra
.me
.REG
[1] = CALL_primitive_info___MMLocalClass___primitive_info(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
246 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
247 if (UNTAG_Bool(REGB0
)) {
249 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
250 if (UNTAG_Bool(REGB1
)) {
254 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], NIT_NULL
);
258 if (UNTAG_Bool(REGB0
)) {
259 /* compiling/icode_generator.nit:62 */
260 fra
.me
.REG
[1] = CALL_program___MMLocalClass___init_var_iroutine(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
261 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
262 if (UNTAG_Bool(REGB0
)) {
264 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
265 if (UNTAG_Bool(REGB1
)) {
269 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], NIT_NULL
);
273 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
274 if (UNTAG_Bool(REGB0
)) {
275 /* compiling/icode_generator.nit:63 */
276 fra
.me
.REG
[1] = NEW_FileICodeDumper_compiling___icode_generator___FileICodeDumper___init(fra
.me
.REG
[2]);
277 /* compiling/icode_generator.nit:64 */
278 CALL_analysis___icode_dump___ICodeDumper___indent(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
279 /* compiling/icode_generator.nit:65 */
281 fra
.me
.REG
[3] = BOX_NativeString("Init var iroutine::\n");
283 fra
.me
.REG
[3] = CALL_standard___string___NativeString___to_s_with_length(fra
.me
.REG
[3])(fra
.me
.REG
[3], REGB0
);
284 once_value_4
= fra
.me
.REG
[3];
285 register_static_object(&once_value_4
);
286 } else fra
.me
.REG
[3] = once_value_4
;
287 fra
.me
.REG
[3] = fra
.me
.REG
[3];
288 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
289 /* compiling/icode_generator.nit:66 */
290 fra
.me
.REG
[3] = CALL_program___MMLocalClass___init_var_iroutine(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
291 REGB0
= TAG_Bool(fra
.me
.REG
[3]==NIT_NULL
);
292 if (UNTAG_Bool(REGB0
)) {
293 nit_abort("Reciever is null", NULL
, LOCATE_compiling___icode_generator
, 66);
295 CALL_analysis___icode_dump___IRoutine___dump(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[1]);
296 /* compiling/icode_generator.nit:67 */
298 fra
.me
.REG
[1] = BOX_NativeString("\n\n");
300 fra
.me
.REG
[1] = CALL_standard___string___NativeString___to_s_with_length(fra
.me
.REG
[1])(fra
.me
.REG
[1], REGB0
);
301 once_value_5
= fra
.me
.REG
[1];
302 register_static_object(&once_value_5
);
303 } else fra
.me
.REG
[1] = once_value_5
;
304 fra
.me
.REG
[1] = fra
.me
.REG
[1];
305 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
307 /* compiling/icode_generator.nit:69 */
308 fra
.me
.REG
[1] = CALL_program___MMLocalClass___checknew_iroutine(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
309 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
310 if (UNTAG_Bool(REGB0
)) {
312 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
313 if (UNTAG_Bool(REGB1
)) {
317 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], NIT_NULL
);
321 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
322 if (UNTAG_Bool(REGB0
)) {
323 /* compiling/icode_generator.nit:70 */
324 fra
.me
.REG
[1] = NEW_FileICodeDumper_compiling___icode_generator___FileICodeDumper___init(fra
.me
.REG
[2]);
325 /* compiling/icode_generator.nit:71 */
326 CALL_analysis___icode_dump___ICodeDumper___indent(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
327 /* compiling/icode_generator.nit:72 */
329 fra
.me
.REG
[3] = BOX_NativeString("Check new instance iroutine::\n");
331 fra
.me
.REG
[3] = CALL_standard___string___NativeString___to_s_with_length(fra
.me
.REG
[3])(fra
.me
.REG
[3], REGB0
);
332 once_value_6
= fra
.me
.REG
[3];
333 register_static_object(&once_value_6
);
334 } else fra
.me
.REG
[3] = once_value_6
;
335 fra
.me
.REG
[3] = fra
.me
.REG
[3];
336 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
337 /* compiling/icode_generator.nit:73 */
338 fra
.me
.REG
[3] = CALL_program___MMLocalClass___checknew_iroutine(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
339 REGB0
= TAG_Bool(fra
.me
.REG
[3]==NIT_NULL
);
340 if (UNTAG_Bool(REGB0
)) {
341 nit_abort("Reciever is null", NULL
, LOCATE_compiling___icode_generator
, 73);
343 CALL_analysis___icode_dump___IRoutine___dump(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[1]);
344 /* compiling/icode_generator.nit:74 */
346 fra
.me
.REG
[1] = BOX_NativeString("\n\n");
348 fra
.me
.REG
[1] = CALL_standard___string___NativeString___to_s_with_length(fra
.me
.REG
[1])(fra
.me
.REG
[1], REGB0
);
349 once_value_7
= fra
.me
.REG
[1];
350 register_static_object(&once_value_7
);
351 } else fra
.me
.REG
[1] = once_value_7
;
352 fra
.me
.REG
[1] = fra
.me
.REG
[1];
353 CALL_standard___stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
355 /* compiling/icode_generator.nit:78 */
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_8
));
359 /* compiling/icode_generator.nit:92 */
360 fra
.me
.REG
[1] = CALL_metamodel___abstractmetamodel___MMLocalClass___global_properties(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
361 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
));
362 /* compiling/icode_generator.nit:98 */
363 CALL_standard___stream___IOS___close(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
364 stack_frame_head
= fra
.me
.prev
;
367 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
){
368 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
372 static val_t once_value_10
; /* Once value */
373 static val_t once_value_11
; /* Once value */
374 static val_t once_value_12
; /* Once value */
375 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
376 fra
.me
.file
= LOCATE_compiling___icode_generator
;
378 fra
.me
.meth
= LOCATE_compiling___icode_generator___MMLocalClass___generate_icode_file
;
379 fra
.me
.has_broke
= 0;
381 fra
.me
.nitni_local_ref_head
= NULL
;
382 fra
.me
.REG
[0] = NIT_NULL
;
383 fra
.me
.REG
[1] = NIT_NULL
;
384 fra
.me
.REG
[2] = NIT_NULL
;
385 fra
.me
.REG
[3] = NIT_NULL
;
386 fra
.me
.closure_ctx
= closctx_param
;
387 fra
.me
.closure_funs
= CREG
;
390 /* compiling/icode_generator.nit:79 */
391 REGB0
= CALL_metamodel___abstractmetamodel___MMGlobalProperty___is_init_for(fra
.me
.REG
[0])(fra
.me
.REG
[0], closctx
->REG
[0]);
392 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
393 if (UNTAG_Bool(REGB0
)) {
396 /* compiling/icode_generator.nit:80 */
397 fra
.me
.REG
[0] = CALL_metamodel___abstractmetamodel___MMLocalClass_____bra(closctx
->REG
[0])(closctx
->REG
[0], fra
.me
.REG
[0]);
398 /* compiling/icode_generator.nit:81 */
399 REGB0
= TAG_Bool(VAL_ISA(fra
.me
.REG
[0], COLOR_metamodel___abstractmetamodel___MMMethod
, ID_metamodel___abstractmetamodel___MMMethod
)) /*cast MMMethod*/;
400 if (UNTAG_Bool(REGB0
)) {
402 nit_abort("Assert failed", NULL
, LOCATE_compiling___icode_generator
, 81);
404 /* compiling/icode_generator.nit:82 */
405 fra
.me
.REG
[1] = CALL_program___MMLocalClass___new_instance_iroutine(closctx
->REG
[0])(closctx
->REG
[0]);
406 REGB0
= CALL_standard___collection___abstract_collection___MapRead___has_key(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
407 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
408 if (UNTAG_Bool(REGB0
)) {
411 /* compiling/icode_generator.nit:83 */
412 fra
.me
.REG
[1] = NEW_FileICodeDumper_compiling___icode_generator___FileICodeDumper___init(closctx
->REG
[2]);
413 /* compiling/icode_generator.nit:84 */
414 CALL_analysis___icode_dump___ICodeDumper___indent(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
415 /* compiling/icode_generator.nit:85 */
417 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
418 if (!once_value_10
) {
419 fra
.me
.REG
[3] = BOX_NativeString("New instance:: ");
421 fra
.me
.REG
[3] = CALL_standard___string___NativeString___to_s_with_length(fra
.me
.REG
[3])(fra
.me
.REG
[3], REGB0
);
422 once_value_10
= fra
.me
.REG
[3];
423 register_static_object(&once_value_10
);
424 } else fra
.me
.REG
[3] = once_value_10
;
425 fra
.me
.REG
[3] = fra
.me
.REG
[3];
426 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
427 fra
.me
.REG
[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
428 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
429 if (!once_value_11
) {
430 fra
.me
.REG
[3] = BOX_NativeString("\n");
432 fra
.me
.REG
[3] = CALL_standard___string___NativeString___to_s_with_length(fra
.me
.REG
[3])(fra
.me
.REG
[3], REGB0
);
433 once_value_11
= fra
.me
.REG
[3];
434 register_static_object(&once_value_11
);
435 } else fra
.me
.REG
[3] = once_value_11
;
436 fra
.me
.REG
[3] = fra
.me
.REG
[3];
437 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
438 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
439 CALL_standard___stream___OStream___write(closctx
->REG
[2])(closctx
->REG
[2], fra
.me
.REG
[2]);
440 /* compiling/icode_generator.nit:86 */
441 fra
.me
.REG
[2] = CALL_program___MMLocalClass___new_instance_iroutine(closctx
->REG
[0])(closctx
->REG
[0]);
442 fra
.me
.REG
[0] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
443 REGB0
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
444 if (UNTAG_Bool(REGB0
)) {
445 nit_abort("Reciever is null", NULL
, LOCATE_compiling___icode_generator
, 86);
447 CALL_analysis___icode_dump___IRoutine___dump(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
448 /* compiling/icode_generator.nit:87 */
449 if (!once_value_12
) {
450 fra
.me
.REG
[1] = BOX_NativeString("\n\n");
452 fra
.me
.REG
[1] = CALL_standard___string___NativeString___to_s_with_length(fra
.me
.REG
[1])(fra
.me
.REG
[1], REGB0
);
453 once_value_12
= fra
.me
.REG
[1];
454 register_static_object(&once_value_12
);
455 } else fra
.me
.REG
[1] = once_value_12
;
456 fra
.me
.REG
[1] = fra
.me
.REG
[1];
457 CALL_standard___stream___OStream___write(closctx
->REG
[2])(closctx
->REG
[2], fra
.me
.REG
[1]);
459 stack_frame_head
= fra
.me
.prev
;
462 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
){
463 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
468 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
469 fra
.me
.file
= LOCATE_compiling___icode_generator
;
471 fra
.me
.meth
= LOCATE_compiling___icode_generator___MMLocalClass___generate_icode_file
;
472 fra
.me
.has_broke
= 0;
474 fra
.me
.nitni_local_ref_head
= NULL
;
475 fra
.me
.REG
[0] = NIT_NULL
;
476 fra
.me
.REG
[1] = NIT_NULL
;
477 fra
.me
.closure_ctx
= closctx_param
;
478 fra
.me
.closure_funs
= CREG
;
481 /* compiling/icode_generator.nit:93 */
482 fra
.me
.REG
[0] = CALL_metamodel___abstractmetamodel___MMLocalClass_____bra(closctx
->REG
[0])(closctx
->REG
[0], fra
.me
.REG
[0]);
483 /* compiling/icode_generator.nit:94 */
484 fra
.me
.REG
[1] = CALL_metamodel___abstractmetamodel___MMLocalProperty___local_class(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
485 REGB0
= TAG_Bool(IS_EQUAL_OO(fra
.me
.REG
[1],closctx
->REG
[0]));
486 if (UNTAG_Bool(REGB0
)) {
488 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], closctx
->REG
[0]);
491 if (UNTAG_Bool(REGB0
)) {
492 REGB0
= TAG_Bool(VAL_ISA(fra
.me
.REG
[0], COLOR_metamodel___abstractmetamodel___MMMethod
, ID_metamodel___abstractmetamodel___MMMethod
)) /*cast MMMethod*/;
497 if (UNTAG_Bool(REGB0
)) {
498 /* compiling/icode_generator.nit:95 */
499 CALL_compiling___icode_generator___MMMethod___generate_icode(fra
.me
.REG
[0])(fra
.me
.REG
[0], closctx
->REG
[2]);
501 stack_frame_head
= fra
.me
.prev
;
504 static const char LOCATE_compiling___icode_generator___MMMethod___generate_icode
[] = "icode_generator::MMMethod::generate_icode";
505 void compiling___icode_generator___MMMethod___generate_icode(val_t p0
, val_t p1
){
506 struct {struct stack_frame_t me
; val_t MORE_REG
[4];} fra
;
509 static val_t once_value_1
; /* Once value */
510 static val_t once_value_2
; /* Once value */
511 static val_t once_value_3
; /* Once value */
512 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
513 fra
.me
.file
= LOCATE_compiling___icode_generator
;
515 fra
.me
.meth
= LOCATE_compiling___icode_generator___MMMethod___generate_icode
;
516 fra
.me
.has_broke
= 0;
518 fra
.me
.nitni_local_ref_head
= NULL
;
519 fra
.me
.REG
[0] = NIT_NULL
;
520 fra
.me
.REG
[1] = NIT_NULL
;
521 fra
.me
.REG
[2] = NIT_NULL
;
522 fra
.me
.REG
[3] = NIT_NULL
;
523 fra
.me
.REG
[4] = NIT_NULL
;
526 /* compiling/icode_generator.nit:105 */
527 fra
.me
.REG
[2] = NEW_FileICodeDumper_compiling___icode_generator___FileICodeDumper___init(fra
.me
.REG
[1]);
528 /* compiling/icode_generator.nit:106 */
529 CALL_analysis___icode_dump___ICodeDumper___indent(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
530 /* compiling/icode_generator.nit:107 */
532 fra
.me
.REG
[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
534 fra
.me
.REG
[4] = BOX_NativeString("Method:: ");
536 fra
.me
.REG
[4] = CALL_standard___string___NativeString___to_s_with_length(fra
.me
.REG
[4])(fra
.me
.REG
[4], REGB0
);
537 once_value_1
= fra
.me
.REG
[4];
538 register_static_object(&once_value_1
);
539 } else fra
.me
.REG
[4] = once_value_1
;
540 fra
.me
.REG
[4] = fra
.me
.REG
[4];
541 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
542 fra
.me
.REG
[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
543 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
545 fra
.me
.REG
[4] = BOX_NativeString("\n");
547 fra
.me
.REG
[4] = CALL_standard___string___NativeString___to_s_with_length(fra
.me
.REG
[4])(fra
.me
.REG
[4], REGB0
);
548 once_value_2
= fra
.me
.REG
[4];
549 register_static_object(&once_value_2
);
550 } else fra
.me
.REG
[4] = once_value_2
;
551 fra
.me
.REG
[4] = fra
.me
.REG
[4];
552 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
553 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
554 CALL_standard___stream___OStream___write(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[3]);
555 /* compiling/icode_generator.nit:108 */
556 fra
.me
.REG
[0] = CALL_icode___icode_base___MMMethod___iroutine(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
557 REGB0
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
558 if (UNTAG_Bool(REGB0
)) {
559 nit_abort("Reciever is null", NULL
, LOCATE_compiling___icode_generator
, 108);
561 CALL_analysis___icode_dump___IRoutine___dump(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[2]);
562 /* compiling/icode_generator.nit:109 */
564 fra
.me
.REG
[2] = BOX_NativeString("\n\n");
566 fra
.me
.REG
[2] = CALL_standard___string___NativeString___to_s_with_length(fra
.me
.REG
[2])(fra
.me
.REG
[2], REGB0
);
567 once_value_3
= fra
.me
.REG
[2];
568 register_static_object(&once_value_3
);
569 } else fra
.me
.REG
[2] = once_value_3
;
570 fra
.me
.REG
[2] = fra
.me
.REG
[2];
571 CALL_standard___stream___OStream___write(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
572 stack_frame_head
= fra
.me
.prev
;