1 /* This C file is generated by NIT to compile module analysis___icode_dump. */
2 #include "analysis___icode_dump._sep.h"
3 void analysis___icode_dump___IRoutine___dump(val_t p0
, val_t p1
){
4 struct {struct stack_frame_t me
; val_t MORE_REG
[4];} fra
;
9 static val_t once_value_2
; /* Once value */
10 static val_t once_value_3
; /* Once value */
11 static val_t once_value_4
; /* Once value */
12 static val_t once_value_5
; /* Once value */
13 static val_t once_value_6
; /* Once value */
14 static val_t once_value_7
; /* Once value */
15 static val_t once_value_8
; /* Once value */
16 static val_t once_value_9
; /* Once value */
17 static val_t once_value_10
; /* Once value */
18 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
19 fra
.me
.file
= LOCATE_analysis___icode_dump
;
21 fra
.me
.meth
= LOCATE_analysis___icode_dump___IRoutine___dump
;
24 fra
.me
.nitni_local_ref_head
= NULL
;
25 fra
.me
.REG
[0] = NIT_NULL
;
26 fra
.me
.REG
[1] = NIT_NULL
;
27 fra
.me
.REG
[2] = NIT_NULL
;
28 fra
.me
.REG
[3] = NIT_NULL
;
29 fra
.me
.REG
[4] = NIT_NULL
;
32 /* analysis/icode_dump.nit:27 */
33 fra
.me
.REG
[2] = CALL_icode___icode_base___IRoutine___params(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
34 REGB0
= CALL_standard___collection___abstract_collection___Collection___is_empty(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
35 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
36 if (UNTAG_Bool(REGB0
)) {
37 /* analysis/icode_dump.nit:28 */
38 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___init();
39 /* analysis/icode_dump.nit:29 */
40 fra
.me
.REG
[3] = CALL_icode___icode_base___IRoutine___params(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
41 CALL_standard___collection___abstract_collection___Collection___iterate(fra
.me
.REG
[3])(fra
.me
.REG
[3], (&(fra
.me
)), ((fun_t
)OC_analysis___icode_dump___IRoutine___dump_1
));
42 /* analysis/icode_dump.nit:32 */
44 fra
.me
.REG
[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
46 fra
.me
.REG
[4] = BOX_NativeString("Parameters: ");
48 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB0
);
49 once_value_2
= fra
.me
.REG
[4];
50 register_static_object(&once_value_2
);
51 } else fra
.me
.REG
[4] = once_value_2
;
52 fra
.me
.REG
[4] = fra
.me
.REG
[4];
53 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
55 fra
.me
.REG
[4] = BOX_NativeString(", ");
57 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB0
);
58 once_value_3
= fra
.me
.REG
[4];
59 register_static_object(&once_value_3
);
60 } else fra
.me
.REG
[4] = once_value_3
;
61 fra
.me
.REG
[4] = fra
.me
.REG
[4];
62 fra
.me
.REG
[4] = CALL_standard___string___Collection___join(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[4]);
63 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
65 fra
.me
.REG
[4] = BOX_NativeString("");
67 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB0
);
68 once_value_4
= fra
.me
.REG
[4];
69 register_static_object(&once_value_4
);
70 } else fra
.me
.REG
[4] = once_value_4
;
71 fra
.me
.REG
[4] = fra
.me
.REG
[4];
72 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
73 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
74 CALL_analysis___icode_dump___ICodeDumper___write(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[3]);
76 /* analysis/icode_dump.nit:34 */
77 fra
.me
.REG
[3] = CALL_icode___icode_base___IRoutine___result(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
78 /* analysis/icode_dump.nit:35 */
79 REGB0
= TAG_Bool(fra
.me
.REG
[3]==NIT_NULL
);
80 if (UNTAG_Bool(REGB0
)) {
82 REGB1
= TAG_Bool(fra
.me
.REG
[3]==NIT_NULL
);
83 if (UNTAG_Bool(REGB1
)) {
84 REGB1
= TAG_Bool(false);
87 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[3])(fra
.me
.REG
[3], NIT_NULL
);
91 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
92 if (UNTAG_Bool(REGB0
)) {
93 /* analysis/icode_dump.nit:36 */
95 fra
.me
.REG
[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
97 fra
.me
.REG
[2] = BOX_NativeString("Result: ");
99 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
100 once_value_5
= fra
.me
.REG
[2];
101 register_static_object(&once_value_5
);
102 } else fra
.me
.REG
[2] = once_value_5
;
103 fra
.me
.REG
[2] = fra
.me
.REG
[2];
104 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[2]);
105 fra
.me
.REG
[3] = CALL_analysis___icode_dump___ICodeDumper___register(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[3]);
106 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[3]);
108 fra
.me
.REG
[3] = BOX_NativeString("");
110 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
111 once_value_6
= fra
.me
.REG
[3];
112 register_static_object(&once_value_6
);
113 } else fra
.me
.REG
[3] = once_value_6
;
114 fra
.me
.REG
[3] = fra
.me
.REG
[3];
115 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[3]);
116 fra
.me
.REG
[4] = CALL_standard___string___Object___to_s(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
117 CALL_analysis___icode_dump___ICodeDumper___write(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[4]);
119 /* analysis/icode_dump.nit:38 */
120 REGB0
= CALL_analysis___allocate_iregister_slots___IRoutine___std_slots_nb(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
122 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
123 if (UNTAG_Bool(REGB2
)) {
125 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
127 /* ../lib/standard/kernel.nit:234 */
128 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)>UNTAG_Int(REGB1
));
129 /* analysis/icode_dump.nit:38 */
130 if (UNTAG_Bool(REGB1
)) {
131 /* analysis/icode_dump.nit:39 */
133 fra
.me
.REG
[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1
);
135 fra
.me
.REG
[3] = BOX_NativeString("StdSlots: ");
137 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB1
);
138 once_value_7
= fra
.me
.REG
[3];
139 register_static_object(&once_value_7
);
140 } else fra
.me
.REG
[3] = once_value_7
;
141 fra
.me
.REG
[3] = fra
.me
.REG
[3];
142 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[3]);
143 REGB1
= CALL_analysis___allocate_iregister_slots___IRoutine___std_slots_nb(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
144 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(REGB1
)(REGB1
);
145 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[3]);
147 fra
.me
.REG
[3] = BOX_NativeString("");
149 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB1
);
150 once_value_8
= fra
.me
.REG
[3];
151 register_static_object(&once_value_8
);
152 } else fra
.me
.REG
[3] = once_value_8
;
153 fra
.me
.REG
[3] = fra
.me
.REG
[3];
154 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[3]);
155 fra
.me
.REG
[4] = CALL_standard___string___Object___to_s(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
156 CALL_analysis___icode_dump___ICodeDumper___write(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[4]);
158 /* analysis/icode_dump.nit:41 */
159 REGB1
= CALL_analysis___allocate_iregister_slots___IRoutine___tag_slots_nb(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
161 REGB2
= TAG_Bool(VAL_ISA(REGB0
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1
), VTID_standard___kernel___Comparable___OTHER(REGB1
))) /*cast OTHER*/;
162 if (UNTAG_Bool(REGB2
)) {
164 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
166 /* ../lib/standard/kernel.nit:234 */
167 REGB0
= TAG_Bool(UNTAG_Int(REGB1
)>UNTAG_Int(REGB0
));
168 /* analysis/icode_dump.nit:41 */
169 if (UNTAG_Bool(REGB0
)) {
170 /* analysis/icode_dump.nit:42 */
172 fra
.me
.REG
[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
174 fra
.me
.REG
[3] = BOX_NativeString("TagSlots: ");
176 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
177 once_value_9
= fra
.me
.REG
[3];
178 register_static_object(&once_value_9
);
179 } else fra
.me
.REG
[3] = once_value_9
;
180 fra
.me
.REG
[3] = fra
.me
.REG
[3];
181 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[3]);
182 REGB0
= CALL_analysis___allocate_iregister_slots___IRoutine___tag_slots_nb(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
183 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(REGB0
)(REGB0
);
184 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[3]);
185 if (!once_value_10
) {
186 fra
.me
.REG
[3] = BOX_NativeString("");
188 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
189 once_value_10
= fra
.me
.REG
[3];
190 register_static_object(&once_value_10
);
191 } else fra
.me
.REG
[3] = once_value_10
;
192 fra
.me
.REG
[3] = fra
.me
.REG
[3];
193 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[3]);
194 fra
.me
.REG
[4] = CALL_standard___string___Object___to_s(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
195 CALL_analysis___icode_dump___ICodeDumper___write(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[4]);
197 /* analysis/icode_dump.nit:44 */
198 fra
.me
.REG
[4] = CALL_icode___icode_base___IRoutine___closure_decls(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
199 /* analysis/icode_dump.nit:45 */
200 REGB0
= TAG_Bool(fra
.me
.REG
[4]==NIT_NULL
);
201 if (UNTAG_Bool(REGB0
)) {
203 REGB1
= TAG_Bool(fra
.me
.REG
[4]==NIT_NULL
);
204 if (UNTAG_Bool(REGB1
)) {
205 REGB1
= TAG_Bool(false);
208 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[4])(fra
.me
.REG
[4], NIT_NULL
);
212 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
213 if (UNTAG_Bool(REGB0
)) {
214 /* analysis/icode_dump.nit:46 */
215 REGB0
= TAG_Bool(fra
.me
.REG
[4]==NIT_NULL
);
216 if (UNTAG_Bool(REGB0
)) {
217 nit_abort("Reciever is null", NULL
, LOCATE_analysis___icode_dump
, 46);
219 CALL_standard___collection___abstract_collection___Collection___iterate(fra
.me
.REG
[4])(fra
.me
.REG
[4], (&(fra
.me
)), ((fun_t
)OC_analysis___icode_dump___IRoutine___dump_11
));
221 /* analysis/icode_dump.nit:50 */
222 fra
.me
.REG
[0] = CALL_icode___icode_base___IRoutine___body(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
223 CALL_analysis___icode_dump___ICode___dump(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
224 stack_frame_head
= fra
.me
.prev
;
227 void OC_analysis___icode_dump___IRoutine___dump_1(struct stack_frame_t
*closctx
, val_t p0
, struct stack_frame_t
*closctx_param
, fun_t clos_fun0
){
228 struct {struct stack_frame_t me
;} fra
;
231 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
232 fra
.me
.file
= LOCATE_analysis___icode_dump
;
234 fra
.me
.meth
= LOCATE_analysis___icode_dump___IRoutine___dump
;
235 fra
.me
.has_broke
= 0;
237 fra
.me
.nitni_local_ref_head
= NULL
;
238 fra
.me
.REG
[0] = NIT_NULL
;
239 fra
.me
.closure_ctx
= closctx_param
;
240 fra
.me
.closure_funs
= CREG
;
243 /* analysis/icode_dump.nit:30 */
244 fra
.me
.REG
[0] = CALL_analysis___icode_dump___ICodeDumper___register(closctx
->REG
[1])(closctx
->REG
[1], fra
.me
.REG
[0]);
245 CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx
->REG
[2])(closctx
->REG
[2], fra
.me
.REG
[0]);
246 stack_frame_head
= fra
.me
.prev
;
249 void OC_analysis___icode_dump___IRoutine___dump_11(struct stack_frame_t
*closctx
, val_t p0
, struct stack_frame_t
*closctx_param
, fun_t clos_fun0
){
250 struct {struct stack_frame_t me
;} fra
;
253 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
254 fra
.me
.file
= LOCATE_analysis___icode_dump
;
256 fra
.me
.meth
= LOCATE_analysis___icode_dump___IRoutine___dump
;
257 fra
.me
.has_broke
= 0;
259 fra
.me
.nitni_local_ref_head
= NULL
;
260 fra
.me
.REG
[0] = NIT_NULL
;
261 fra
.me
.closure_ctx
= closctx_param
;
262 fra
.me
.closure_funs
= CREG
;
265 /* analysis/icode_dump.nit:47 */
266 CALL_analysis___icode_dump___IClosureDecl___dump(fra
.me
.REG
[0])(fra
.me
.REG
[0], closctx
->REG
[1]);
267 stack_frame_head
= fra
.me
.prev
;
270 void analysis___icode_dump___IClosureDecl___dump(val_t p0
, val_t p1
){
271 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
275 static val_t once_value_1
; /* Once value */
276 static val_t once_value_2
; /* Once value */
277 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
278 fra
.me
.file
= LOCATE_analysis___icode_dump
;
280 fra
.me
.meth
= LOCATE_analysis___icode_dump___IClosureDecl___dump
;
281 fra
.me
.has_broke
= 0;
283 fra
.me
.nitni_local_ref_head
= NULL
;
284 fra
.me
.REG
[0] = NIT_NULL
;
285 fra
.me
.REG
[1] = NIT_NULL
;
286 fra
.me
.REG
[2] = NIT_NULL
;
287 fra
.me
.REG
[3] = NIT_NULL
;
290 /* analysis/icode_dump.nit:58 */
292 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
294 fra
.me
.REG
[3] = BOX_NativeString("Closure: ");
296 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
297 once_value_1
= fra
.me
.REG
[3];
298 register_static_object(&once_value_1
);
299 } else fra
.me
.REG
[3] = once_value_1
;
300 fra
.me
.REG
[3] = fra
.me
.REG
[3];
301 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
302 fra
.me
.REG
[3] = CALL_analysis___icode_dump___ICodeDumper___closdecl(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
303 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
305 fra
.me
.REG
[3] = BOX_NativeString("");
307 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
308 once_value_2
= fra
.me
.REG
[3];
309 register_static_object(&once_value_2
);
310 } else fra
.me
.REG
[3] = once_value_2
;
311 fra
.me
.REG
[3] = fra
.me
.REG
[3];
312 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
313 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
314 CALL_analysis___icode_dump___ICodeDumper___write(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
315 /* analysis/icode_dump.nit:59 */
316 fra
.me
.REG
[2] = CALL_icode___icode_base___IClosureDecl___default(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
317 REGB0
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
318 if (UNTAG_Bool(REGB0
)) {
320 REGB1
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
321 if (UNTAG_Bool(REGB1
)) {
322 REGB1
= TAG_Bool(false);
325 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[2])(fra
.me
.REG
[2], NIT_NULL
);
329 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
330 if (UNTAG_Bool(REGB0
)) {
331 /* analysis/icode_dump.nit:60 */
332 CALL_analysis___icode_dump___ICodeDumper___indent(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
333 /* analysis/icode_dump.nit:61 */
334 fra
.me
.REG
[0] = CALL_icode___icode_base___IClosureDecl___default(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
335 REGB0
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
336 if (UNTAG_Bool(REGB0
)) {
337 nit_abort("Reciever is null", NULL
, LOCATE_analysis___icode_dump
, 61);
339 CALL_analysis___icode_dump___IRoutine___dump(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
340 /* analysis/icode_dump.nit:62 */
341 CALL_analysis___icode_dump___ICodeDumper___unindent(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
343 stack_frame_head
= fra
.me
.prev
;
346 val_t
analysis___icode_dump___ICodeDumper___dump_locations(val_t p0
){
347 struct {struct stack_frame_t me
;} fra
;
350 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
351 fra
.me
.file
= LOCATE_analysis___icode_dump
;
353 fra
.me
.meth
= LOCATE_analysis___icode_dump___ICodeDumper___dump_locations
;
354 fra
.me
.has_broke
= 0;
356 fra
.me
.nitni_local_ref_head
= NULL
;
357 fra
.me
.REG
[0] = NIT_NULL
;
359 /* analysis/icode_dump.nit:68 */
360 REGB0
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____dump_locations(fra
.me
.REG
[0])!=NIT_NULL
);
361 if (UNTAG_Bool(REGB0
)) {
363 nit_abort("Uninitialized attribute %s", "_dump_locations", LOCATE_analysis___icode_dump
, 68);
365 REGB0
= ATTR_analysis___icode_dump___ICodeDumper____dump_locations(fra
.me
.REG
[0]);
366 stack_frame_head
= fra
.me
.prev
;
369 val_t
analysis___icode_dump___ICodeDumper___dump_line_numbers(val_t p0
){
370 struct {struct stack_frame_t me
;} fra
;
373 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
374 fra
.me
.file
= LOCATE_analysis___icode_dump
;
376 fra
.me
.meth
= LOCATE_analysis___icode_dump___ICodeDumper___dump_line_numbers
;
377 fra
.me
.has_broke
= 0;
379 fra
.me
.nitni_local_ref_head
= NULL
;
380 fra
.me
.REG
[0] = NIT_NULL
;
382 /* analysis/icode_dump.nit:69 */
383 REGB0
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____dump_line_numbers(fra
.me
.REG
[0])!=NIT_NULL
);
384 if (UNTAG_Bool(REGB0
)) {
386 nit_abort("Uninitialized attribute %s", "_dump_line_numbers", LOCATE_analysis___icode_dump
, 69);
388 REGB0
= ATTR_analysis___icode_dump___ICodeDumper____dump_line_numbers(fra
.me
.REG
[0]);
389 stack_frame_head
= fra
.me
.prev
;
392 void analysis___icode_dump___ICodeDumper___init(val_t p0
, val_t p1
, val_t p2
, int* init_table
){
393 int itpos0
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_analysis___icode_dump___ICodeDumper
].i
;
394 struct {struct stack_frame_t me
;} fra
;
398 if (init_table
[itpos0
]) return;
399 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
400 fra
.me
.file
= LOCATE_analysis___icode_dump
;
402 fra
.me
.meth
= LOCATE_analysis___icode_dump___ICodeDumper___init
;
403 fra
.me
.has_broke
= 0;
405 fra
.me
.nitni_local_ref_head
= NULL
;
406 fra
.me
.REG
[0] = NIT_NULL
;
410 /* analysis/icode_dump.nit:74 */
411 ATTR_analysis___icode_dump___ICodeDumper____dump_locations(fra
.me
.REG
[0]) = REGB0
;
412 /* analysis/icode_dump.nit:75 */
413 ATTR_analysis___icode_dump___ICodeDumper____dump_line_numbers(fra
.me
.REG
[0]) = REGB1
;
414 stack_frame_head
= fra
.me
.prev
;
415 init_table
[itpos0
] = 1;
418 val_t
analysis___icode_dump___ICodeDumper___register(val_t p0
, val_t p1
){
419 struct {struct stack_frame_t me
; val_t MORE_REG
[6];} fra
;
423 static val_t once_value_2
; /* Once value */
424 static val_t once_value_3
; /* Once value */
425 static val_t once_value_4
; /* Once value */
426 static val_t once_value_5
; /* Once value */
427 static val_t once_value_6
; /* Once value */
428 static val_t once_value_7
; /* Once value */
429 static val_t once_value_8
; /* Once value */
430 static val_t once_value_9
; /* Once value */
431 static val_t once_value_10
; /* Once value */
432 static val_t once_value_11
; /* Once value */
433 static val_t once_value_12
; /* Once value */
434 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
435 fra
.me
.file
= LOCATE_analysis___icode_dump
;
437 fra
.me
.meth
= LOCATE_analysis___icode_dump___ICodeDumper___register
;
438 fra
.me
.has_broke
= 0;
440 fra
.me
.nitni_local_ref_head
= NULL
;
441 fra
.me
.REG
[0] = NIT_NULL
;
442 fra
.me
.REG
[1] = NIT_NULL
;
443 fra
.me
.REG
[2] = NIT_NULL
;
444 fra
.me
.REG
[3] = NIT_NULL
;
445 fra
.me
.REG
[4] = NIT_NULL
;
446 fra
.me
.REG
[5] = NIT_NULL
;
447 fra
.me
.REG
[6] = NIT_NULL
;
450 /* analysis/icode_dump.nit:82 */
451 REGB0
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0])!=NIT_NULL
);
452 if (UNTAG_Bool(REGB0
)) {
454 nit_abort("Uninitialized attribute %s", "_ids", LOCATE_analysis___icode_dump
, 82);
456 fra
.me
.REG
[2] = ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0]);
457 REGB0
= CALL_standard___collection___abstract_collection___MapRead___has_key(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
458 if (UNTAG_Bool(REGB0
)) {
459 /* analysis/icode_dump.nit:83 */
460 REGB0
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0])!=NIT_NULL
);
461 if (UNTAG_Bool(REGB0
)) {
463 nit_abort("Uninitialized attribute %s", "_ids", LOCATE_analysis___icode_dump
, 83);
465 fra
.me
.REG
[2] = ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0]);
466 fra
.me
.REG
[2] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
469 /* analysis/icode_dump.nit:85 */
470 fra
.me
.REG
[3] = CALL_analysis___allocate_iregister_slots___IRegister___slot_index(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
471 /* analysis/icode_dump.nit:86 */
472 REGB0
= TAG_Bool(fra
.me
.REG
[3]==NIT_NULL
);
473 if (UNTAG_Bool(REGB0
)) {
475 REGB1
= TAG_Bool(fra
.me
.REG
[3]==NIT_NULL
);
476 if (UNTAG_Bool(REGB1
)) {
477 REGB1
= TAG_Bool(false);
480 /* ../lib/standard/kernel.nit:227 */
481 REGB1
= TAG_Bool((fra
.me
.REG
[3])==(NIT_NULL
));
482 /* analysis/icode_dump.nit:86 */
486 if (UNTAG_Bool(REGB0
)) {
487 /* analysis/icode_dump.nit:87 */
488 REGB0
= ATTR_analysis___icode_dump___ICodeDumper____last_value(fra
.me
.REG
[0]);
490 /* ../lib/standard/kernel.nit:235 */
491 REGB1
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB1
));
492 /* analysis/icode_dump.nit:87 */
493 ATTR_analysis___icode_dump___ICodeDumper____last_value(fra
.me
.REG
[0]) = REGB1
;
494 /* analysis/icode_dump.nit:88 */
496 fra
.me
.REG
[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1
);
498 fra
.me
.REG
[5] = BOX_NativeString("r");
500 fra
.me
.REG
[5] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[5], REGB1
);
501 once_value_2
= fra
.me
.REG
[5];
502 register_static_object(&once_value_2
);
503 } else fra
.me
.REG
[5] = once_value_2
;
504 fra
.me
.REG
[5] = fra
.me
.REG
[5];
505 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[5]);
506 REGB1
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____last_value(fra
.me
.REG
[0])!=NIT_NULL
);
507 if (UNTAG_Bool(REGB1
)) {
509 nit_abort("Uninitialized attribute %s", "_last_value", LOCATE_analysis___icode_dump
, 88);
511 REGB1
= ATTR_analysis___icode_dump___ICodeDumper____last_value(fra
.me
.REG
[0]);
512 fra
.me
.REG
[5] = CALL_standard___string___Object___to_s(REGB1
)(REGB1
);
513 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[5]);
515 fra
.me
.REG
[5] = BOX_NativeString("");
517 fra
.me
.REG
[5] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[5], REGB1
);
518 once_value_3
= fra
.me
.REG
[5];
519 register_static_object(&once_value_3
);
520 } else fra
.me
.REG
[5] = once_value_3
;
521 fra
.me
.REG
[5] = fra
.me
.REG
[5];
522 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[5]);
523 fra
.me
.REG
[4] = CALL_standard___string___Object___to_s(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
524 /* analysis/icode_dump.nit:89 */
525 REGB1
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0])!=NIT_NULL
);
526 if (UNTAG_Bool(REGB1
)) {
528 nit_abort("Uninitialized attribute %s", "_ids", LOCATE_analysis___icode_dump
, 89);
530 fra
.me
.REG
[5] = ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0]);
531 CALL_standard___collection___abstract_collection___Map_____braeq(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[1], fra
.me
.REG
[4]);
532 /* analysis/icode_dump.nit:90 */
533 fra
.me
.REG
[2] = fra
.me
.REG
[4];
536 /* analysis/icode_dump.nit:92 */
537 REGB1
= ATTR_analysis___icode_dump___ICodeDumper____last_value(fra
.me
.REG
[0]);
539 /* ../lib/standard/kernel.nit:235 */
540 REGB0
= TAG_Int(UNTAG_Int(REGB1
)+UNTAG_Int(REGB0
));
541 /* analysis/icode_dump.nit:92 */
542 ATTR_analysis___icode_dump___ICodeDumper____last_value(fra
.me
.REG
[0]) = REGB0
;
543 /* analysis/icode_dump.nit:94 */
544 REGB0
= CALL_analysis___allocate_iregister_slots___IRegister___in_tag_slots(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
545 if (UNTAG_Bool(REGB0
)) {
546 /* analysis/icode_dump.nit:95 */
548 fra
.me
.REG
[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
550 fra
.me
.REG
[5] = BOX_NativeString("BREG");
552 fra
.me
.REG
[5] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[5], REGB0
);
553 once_value_4
= fra
.me
.REG
[5];
554 register_static_object(&once_value_4
);
555 } else fra
.me
.REG
[5] = once_value_4
;
556 fra
.me
.REG
[5] = fra
.me
.REG
[5];
557 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[5]);
558 fra
.me
.REG
[5] = CALL_standard___string___Object___to_s(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
559 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[5]);
561 fra
.me
.REG
[5] = BOX_NativeString("(r");
563 fra
.me
.REG
[5] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[5], REGB0
);
564 once_value_5
= fra
.me
.REG
[5];
565 register_static_object(&once_value_5
);
566 } else fra
.me
.REG
[5] = once_value_5
;
567 fra
.me
.REG
[5] = fra
.me
.REG
[5];
568 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[5]);
569 REGB0
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____last_value(fra
.me
.REG
[0])!=NIT_NULL
);
570 if (UNTAG_Bool(REGB0
)) {
572 nit_abort("Uninitialized attribute %s", "_last_value", LOCATE_analysis___icode_dump
, 95);
574 REGB0
= ATTR_analysis___icode_dump___ICodeDumper____last_value(fra
.me
.REG
[0]);
575 fra
.me
.REG
[5] = CALL_standard___string___Object___to_s(REGB0
)(REGB0
);
576 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[5]);
578 fra
.me
.REG
[5] = BOX_NativeString(")");
580 fra
.me
.REG
[5] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[5], REGB0
);
581 once_value_6
= fra
.me
.REG
[5];
582 register_static_object(&once_value_6
);
583 } else fra
.me
.REG
[5] = once_value_6
;
584 fra
.me
.REG
[5] = fra
.me
.REG
[5];
585 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[5]);
586 fra
.me
.REG
[4] = CALL_standard___string___Object___to_s(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
588 /* analysis/icode_dump.nit:96 */
589 REGB0
= CALL_analysis___allocate_iregister_slots___IRegister___is_local(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
590 if (UNTAG_Bool(REGB0
)) {
591 /* analysis/icode_dump.nit:97 */
593 fra
.me
.REG
[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
595 fra
.me
.REG
[6] = BOX_NativeString("LREG");
597 fra
.me
.REG
[6] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[6], REGB0
);
598 once_value_7
= fra
.me
.REG
[6];
599 register_static_object(&once_value_7
);
600 } else fra
.me
.REG
[6] = once_value_7
;
601 fra
.me
.REG
[6] = fra
.me
.REG
[6];
602 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
603 fra
.me
.REG
[6] = CALL_standard___string___Object___to_s(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
604 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
606 fra
.me
.REG
[6] = BOX_NativeString("(r");
608 fra
.me
.REG
[6] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[6], REGB0
);
609 once_value_8
= fra
.me
.REG
[6];
610 register_static_object(&once_value_8
);
611 } else fra
.me
.REG
[6] = once_value_8
;
612 fra
.me
.REG
[6] = fra
.me
.REG
[6];
613 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
614 REGB0
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____last_value(fra
.me
.REG
[0])!=NIT_NULL
);
615 if (UNTAG_Bool(REGB0
)) {
617 nit_abort("Uninitialized attribute %s", "_last_value", LOCATE_analysis___icode_dump
, 97);
619 REGB0
= ATTR_analysis___icode_dump___ICodeDumper____last_value(fra
.me
.REG
[0]);
620 fra
.me
.REG
[6] = CALL_standard___string___Object___to_s(REGB0
)(REGB0
);
621 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
623 fra
.me
.REG
[6] = BOX_NativeString(")");
625 fra
.me
.REG
[6] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[6], REGB0
);
626 once_value_9
= fra
.me
.REG
[6];
627 register_static_object(&once_value_9
);
628 } else fra
.me
.REG
[6] = once_value_9
;
629 fra
.me
.REG
[6] = fra
.me
.REG
[6];
630 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
631 fra
.me
.REG
[5] = CALL_standard___string___Object___to_s(fra
.me
.REG
[5])(fra
.me
.REG
[5]);
632 fra
.me
.REG
[4] = fra
.me
.REG
[5];
634 /* analysis/icode_dump.nit:99 */
636 fra
.me
.REG
[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
637 if (!once_value_10
) {
638 fra
.me
.REG
[6] = BOX_NativeString("REG");
640 fra
.me
.REG
[6] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[6], REGB0
);
641 once_value_10
= fra
.me
.REG
[6];
642 register_static_object(&once_value_10
);
643 } else fra
.me
.REG
[6] = once_value_10
;
644 fra
.me
.REG
[6] = fra
.me
.REG
[6];
645 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[6]);
646 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
647 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[3]);
648 if (!once_value_11
) {
649 fra
.me
.REG
[3] = BOX_NativeString("(r");
651 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
652 once_value_11
= fra
.me
.REG
[3];
653 register_static_object(&once_value_11
);
654 } else fra
.me
.REG
[3] = once_value_11
;
655 fra
.me
.REG
[3] = fra
.me
.REG
[3];
656 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[3]);
657 REGB0
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____last_value(fra
.me
.REG
[0])!=NIT_NULL
);
658 if (UNTAG_Bool(REGB0
)) {
660 nit_abort("Uninitialized attribute %s", "_last_value", LOCATE_analysis___icode_dump
, 99);
662 REGB0
= ATTR_analysis___icode_dump___ICodeDumper____last_value(fra
.me
.REG
[0]);
663 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(REGB0
)(REGB0
);
664 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[3]);
665 if (!once_value_12
) {
666 fra
.me
.REG
[3] = BOX_NativeString(")");
668 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
669 once_value_12
= fra
.me
.REG
[3];
670 register_static_object(&once_value_12
);
671 } else fra
.me
.REG
[3] = once_value_12
;
672 fra
.me
.REG
[3] = fra
.me
.REG
[3];
673 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[5])(fra
.me
.REG
[5], fra
.me
.REG
[3]);
674 fra
.me
.REG
[5] = CALL_standard___string___Object___to_s(fra
.me
.REG
[5])(fra
.me
.REG
[5]);
675 fra
.me
.REG
[4] = fra
.me
.REG
[5];
678 /* analysis/icode_dump.nit:101 */
679 REGB0
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0])!=NIT_NULL
);
680 if (UNTAG_Bool(REGB0
)) {
682 nit_abort("Uninitialized attribute %s", "_ids", LOCATE_analysis___icode_dump
, 101);
684 fra
.me
.REG
[0] = ATTR_analysis___icode_dump___ICodeDumper____ids(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
[4]);
686 /* analysis/icode_dump.nit:102 */
687 fra
.me
.REG
[2] = fra
.me
.REG
[4];
692 stack_frame_head
= fra
.me
.prev
;
693 return fra
.me
.REG
[2];
695 val_t
analysis___icode_dump___ICodeDumper___register_all(val_t p0
, val_t p1
){
696 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
700 static val_t once_value_1
; /* Once value */
701 static val_t once_value_4
; /* Once value */
702 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
703 fra
.me
.file
= LOCATE_analysis___icode_dump
;
705 fra
.me
.meth
= LOCATE_analysis___icode_dump___ICodeDumper___register_all
;
706 fra
.me
.has_broke
= 0;
708 fra
.me
.nitni_local_ref_head
= NULL
;
709 fra
.me
.REG
[0] = NIT_NULL
;
710 fra
.me
.REG
[1] = NIT_NULL
;
711 fra
.me
.REG
[2] = NIT_NULL
;
712 fra
.me
.REG
[3] = NIT_NULL
;
715 /* analysis/icode_dump.nit:110 */
716 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
717 if (UNTAG_Bool(REGB0
)) {
719 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
720 if (UNTAG_Bool(REGB1
)) {
721 REGB1
= TAG_Bool(false);
724 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], NIT_NULL
);
728 if (UNTAG_Bool(REGB0
)) {
730 fra
.me
.REG
[2] = BOX_NativeString("");
732 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
733 once_value_1
= fra
.me
.REG
[2];
734 register_static_object(&once_value_1
);
735 } else fra
.me
.REG
[2] = once_value_1
;
736 fra
.me
.REG
[2] = fra
.me
.REG
[2];
739 /* analysis/icode_dump.nit:111 */
740 fra
.me
.REG
[3] = NEW_Array_standard___collection___array___Array___init();
741 /* analysis/icode_dump.nit:112 */
742 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
743 if (UNTAG_Bool(REGB0
)) {
744 nit_abort("Reciever is null", NULL
, LOCATE_analysis___icode_dump
, 112);
746 CALL_standard___collection___abstract_collection___Collection___iterate(fra
.me
.REG
[1])(fra
.me
.REG
[1], (&(fra
.me
)), ((fun_t
)OC_analysis___icode_dump___ICodeDumper___register_all_3
));
747 /* analysis/icode_dump.nit:115 */
749 fra
.me
.REG
[0] = BOX_NativeString(", ");
751 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
752 once_value_4
= fra
.me
.REG
[0];
753 register_static_object(&once_value_4
);
754 } else fra
.me
.REG
[0] = once_value_4
;
755 fra
.me
.REG
[0] = fra
.me
.REG
[0];
756 fra
.me
.REG
[0] = CALL_standard___string___Collection___join(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[0]);
757 fra
.me
.REG
[2] = fra
.me
.REG
[0];
760 stack_frame_head
= fra
.me
.prev
;
761 return fra
.me
.REG
[2];
763 void OC_analysis___icode_dump___ICodeDumper___register_all_3(struct stack_frame_t
*closctx
, val_t p0
, struct stack_frame_t
*closctx_param
, fun_t clos_fun0
){
764 struct {struct stack_frame_t me
;} fra
;
767 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
768 fra
.me
.file
= LOCATE_analysis___icode_dump
;
770 fra
.me
.meth
= LOCATE_analysis___icode_dump___ICodeDumper___register_all
;
771 fra
.me
.has_broke
= 0;
773 fra
.me
.nitni_local_ref_head
= NULL
;
774 fra
.me
.REG
[0] = NIT_NULL
;
775 fra
.me
.closure_ctx
= closctx_param
;
776 fra
.me
.closure_funs
= CREG
;
779 /* analysis/icode_dump.nit:113 */
780 fra
.me
.REG
[0] = CALL_analysis___icode_dump___ICodeDumper___register(closctx
->REG
[0])(closctx
->REG
[0], fra
.me
.REG
[0]);
781 CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx
->REG
[3])(closctx
->REG
[3], fra
.me
.REG
[0]);
782 stack_frame_head
= fra
.me
.prev
;
785 val_t
analysis___icode_dump___ICodeDumper___closdecl(val_t p0
, val_t p1
){
786 struct {struct stack_frame_t me
; val_t MORE_REG
[4];} fra
;
790 static val_t once_value_2
; /* Once value */
791 static val_t once_value_3
; /* Once value */
792 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
793 fra
.me
.file
= LOCATE_analysis___icode_dump
;
795 fra
.me
.meth
= LOCATE_analysis___icode_dump___ICodeDumper___closdecl
;
796 fra
.me
.has_broke
= 0;
798 fra
.me
.nitni_local_ref_head
= NULL
;
799 fra
.me
.REG
[0] = NIT_NULL
;
800 fra
.me
.REG
[1] = NIT_NULL
;
801 fra
.me
.REG
[2] = NIT_NULL
;
802 fra
.me
.REG
[3] = NIT_NULL
;
803 fra
.me
.REG
[4] = NIT_NULL
;
806 /* analysis/icode_dump.nit:124 */
807 REGB0
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0])!=NIT_NULL
);
808 if (UNTAG_Bool(REGB0
)) {
810 nit_abort("Uninitialized attribute %s", "_ids", LOCATE_analysis___icode_dump
, 124);
812 fra
.me
.REG
[2] = ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0]);
813 REGB0
= CALL_standard___collection___abstract_collection___MapRead___has_key(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
814 if (UNTAG_Bool(REGB0
)) {
815 /* analysis/icode_dump.nit:125 */
816 REGB0
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0])!=NIT_NULL
);
817 if (UNTAG_Bool(REGB0
)) {
819 nit_abort("Uninitialized attribute %s", "_ids", LOCATE_analysis___icode_dump
, 125);
821 fra
.me
.REG
[2] = ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0]);
822 fra
.me
.REG
[2] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
825 /* analysis/icode_dump.nit:127 */
826 REGB0
= ATTR_analysis___icode_dump___ICodeDumper____last_clos(fra
.me
.REG
[0]);
828 /* ../lib/standard/kernel.nit:235 */
829 REGB1
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB1
));
830 /* analysis/icode_dump.nit:127 */
831 ATTR_analysis___icode_dump___ICodeDumper____last_clos(fra
.me
.REG
[0]) = REGB1
;
832 /* analysis/icode_dump.nit:128 */
834 fra
.me
.REG
[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1
);
836 fra
.me
.REG
[4] = BOX_NativeString("clos");
838 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB1
);
839 once_value_2
= fra
.me
.REG
[4];
840 register_static_object(&once_value_2
);
841 } else fra
.me
.REG
[4] = once_value_2
;
842 fra
.me
.REG
[4] = fra
.me
.REG
[4];
843 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
844 REGB1
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____last_clos(fra
.me
.REG
[0])!=NIT_NULL
);
845 if (UNTAG_Bool(REGB1
)) {
847 nit_abort("Uninitialized attribute %s", "_last_clos", LOCATE_analysis___icode_dump
, 128);
849 REGB1
= ATTR_analysis___icode_dump___ICodeDumper____last_clos(fra
.me
.REG
[0]);
850 fra
.me
.REG
[4] = CALL_standard___string___Object___to_s(REGB1
)(REGB1
);
851 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
853 fra
.me
.REG
[4] = BOX_NativeString("");
855 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB1
);
856 once_value_3
= fra
.me
.REG
[4];
857 register_static_object(&once_value_3
);
858 } else fra
.me
.REG
[4] = once_value_3
;
859 fra
.me
.REG
[4] = fra
.me
.REG
[4];
860 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
861 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
862 /* analysis/icode_dump.nit:129 */
863 REGB1
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0])!=NIT_NULL
);
864 if (UNTAG_Bool(REGB1
)) {
866 nit_abort("Uninitialized attribute %s", "_ids", LOCATE_analysis___icode_dump
, 129);
868 fra
.me
.REG
[0] = ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0]);
869 CALL_standard___collection___abstract_collection___Map_____braeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1], fra
.me
.REG
[3]);
870 /* analysis/icode_dump.nit:130 */
871 fra
.me
.REG
[2] = fra
.me
.REG
[3];
875 stack_frame_head
= fra
.me
.prev
;
876 return fra
.me
.REG
[2];
878 val_t
analysis___icode_dump___ICodeDumper___lab(val_t p0
, val_t p1
){
879 struct {struct stack_frame_t me
; val_t MORE_REG
[4];} fra
;
883 static val_t once_value_2
; /* Once value */
884 static val_t once_value_3
; /* Once value */
885 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
886 fra
.me
.file
= LOCATE_analysis___icode_dump
;
888 fra
.me
.meth
= LOCATE_analysis___icode_dump___ICodeDumper___lab
;
889 fra
.me
.has_broke
= 0;
891 fra
.me
.nitni_local_ref_head
= NULL
;
892 fra
.me
.REG
[0] = NIT_NULL
;
893 fra
.me
.REG
[1] = NIT_NULL
;
894 fra
.me
.REG
[2] = NIT_NULL
;
895 fra
.me
.REG
[3] = NIT_NULL
;
896 fra
.me
.REG
[4] = NIT_NULL
;
899 /* analysis/icode_dump.nit:139 */
900 REGB0
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0])!=NIT_NULL
);
901 if (UNTAG_Bool(REGB0
)) {
903 nit_abort("Uninitialized attribute %s", "_ids", LOCATE_analysis___icode_dump
, 139);
905 fra
.me
.REG
[2] = ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0]);
906 REGB0
= CALL_standard___collection___abstract_collection___MapRead___has_key(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
907 if (UNTAG_Bool(REGB0
)) {
908 /* analysis/icode_dump.nit:140 */
909 REGB0
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0])!=NIT_NULL
);
910 if (UNTAG_Bool(REGB0
)) {
912 nit_abort("Uninitialized attribute %s", "_ids", LOCATE_analysis___icode_dump
, 140);
914 fra
.me
.REG
[2] = ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0]);
915 fra
.me
.REG
[2] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
918 /* analysis/icode_dump.nit:142 */
919 REGB0
= ATTR_analysis___icode_dump___ICodeDumper____last_label(fra
.me
.REG
[0]);
921 /* ../lib/standard/kernel.nit:235 */
922 REGB1
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB1
));
923 /* analysis/icode_dump.nit:142 */
924 ATTR_analysis___icode_dump___ICodeDumper____last_label(fra
.me
.REG
[0]) = REGB1
;
925 /* analysis/icode_dump.nit:143 */
927 fra
.me
.REG
[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1
);
929 fra
.me
.REG
[4] = BOX_NativeString("[l");
931 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB1
);
932 once_value_2
= fra
.me
.REG
[4];
933 register_static_object(&once_value_2
);
934 } else fra
.me
.REG
[4] = once_value_2
;
935 fra
.me
.REG
[4] = fra
.me
.REG
[4];
936 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
937 REGB1
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____last_label(fra
.me
.REG
[0])!=NIT_NULL
);
938 if (UNTAG_Bool(REGB1
)) {
940 nit_abort("Uninitialized attribute %s", "_last_label", LOCATE_analysis___icode_dump
, 143);
942 REGB1
= ATTR_analysis___icode_dump___ICodeDumper____last_label(fra
.me
.REG
[0]);
943 fra
.me
.REG
[4] = CALL_standard___string___Object___to_s(REGB1
)(REGB1
);
944 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
946 fra
.me
.REG
[4] = BOX_NativeString("]");
948 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB1
);
949 once_value_3
= fra
.me
.REG
[4];
950 register_static_object(&once_value_3
);
951 } else fra
.me
.REG
[4] = once_value_3
;
952 fra
.me
.REG
[4] = fra
.me
.REG
[4];
953 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
954 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
955 /* analysis/icode_dump.nit:144 */
956 REGB1
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0])!=NIT_NULL
);
957 if (UNTAG_Bool(REGB1
)) {
959 nit_abort("Uninitialized attribute %s", "_ids", LOCATE_analysis___icode_dump
, 144);
961 fra
.me
.REG
[0] = ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0]);
962 CALL_standard___collection___abstract_collection___Map_____braeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1], fra
.me
.REG
[3]);
963 /* analysis/icode_dump.nit:145 */
964 fra
.me
.REG
[2] = fra
.me
.REG
[3];
968 stack_frame_head
= fra
.me
.prev
;
969 return fra
.me
.REG
[2];
971 val_t
analysis___icode_dump___ICodeDumper___line(val_t p0
, val_t p1
){
972 struct {struct stack_frame_t me
; val_t MORE_REG
[4];} fra
;
976 static val_t once_value_2
; /* Once value */
977 static val_t once_value_3
; /* Once value */
978 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
979 fra
.me
.file
= LOCATE_analysis___icode_dump
;
981 fra
.me
.meth
= LOCATE_analysis___icode_dump___ICodeDumper___line
;
982 fra
.me
.has_broke
= 0;
984 fra
.me
.nitni_local_ref_head
= NULL
;
985 fra
.me
.REG
[0] = NIT_NULL
;
986 fra
.me
.REG
[1] = NIT_NULL
;
987 fra
.me
.REG
[2] = NIT_NULL
;
988 fra
.me
.REG
[3] = NIT_NULL
;
989 fra
.me
.REG
[4] = NIT_NULL
;
992 /* analysis/icode_dump.nit:153 */
993 REGB0
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0])!=NIT_NULL
);
994 if (UNTAG_Bool(REGB0
)) {
996 nit_abort("Uninitialized attribute %s", "_ids", LOCATE_analysis___icode_dump
, 153);
998 fra
.me
.REG
[2] = ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0]);
999 REGB0
= CALL_standard___collection___abstract_collection___MapRead___has_key(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
1000 if (UNTAG_Bool(REGB0
)) {
1001 /* analysis/icode_dump.nit:154 */
1002 REGB0
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0])!=NIT_NULL
);
1003 if (UNTAG_Bool(REGB0
)) {
1005 nit_abort("Uninitialized attribute %s", "_ids", LOCATE_analysis___icode_dump
, 154);
1007 fra
.me
.REG
[2] = ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0]);
1008 fra
.me
.REG
[2] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
1011 /* analysis/icode_dump.nit:156 */
1012 REGB0
= ATTR_analysis___icode_dump___ICodeDumper____last_line(fra
.me
.REG
[0]);
1014 /* ../lib/standard/kernel.nit:235 */
1015 REGB1
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB1
));
1016 /* analysis/icode_dump.nit:156 */
1017 ATTR_analysis___icode_dump___ICodeDumper____last_line(fra
.me
.REG
[0]) = REGB1
;
1018 /* analysis/icode_dump.nit:157 */
1020 fra
.me
.REG
[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1
);
1021 if (!once_value_2
) {
1022 fra
.me
.REG
[4] = BOX_NativeString("");
1024 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB1
);
1025 once_value_2
= fra
.me
.REG
[4];
1026 register_static_object(&once_value_2
);
1027 } else fra
.me
.REG
[4] = once_value_2
;
1028 fra
.me
.REG
[4] = fra
.me
.REG
[4];
1029 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
1030 REGB1
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____last_line(fra
.me
.REG
[0])!=NIT_NULL
);
1031 if (UNTAG_Bool(REGB1
)) {
1033 nit_abort("Uninitialized attribute %s", "_last_line", LOCATE_analysis___icode_dump
, 157);
1035 REGB1
= ATTR_analysis___icode_dump___ICodeDumper____last_line(fra
.me
.REG
[0]);
1036 fra
.me
.REG
[4] = CALL_standard___string___Object___to_s(REGB1
)(REGB1
);
1037 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
1038 if (!once_value_3
) {
1039 fra
.me
.REG
[4] = BOX_NativeString("");
1041 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB1
);
1042 once_value_3
= fra
.me
.REG
[4];
1043 register_static_object(&once_value_3
);
1044 } else fra
.me
.REG
[4] = once_value_3
;
1045 fra
.me
.REG
[4] = fra
.me
.REG
[4];
1046 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
1047 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
1048 /* analysis/icode_dump.nit:158 */
1049 REGB1
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0])!=NIT_NULL
);
1050 if (UNTAG_Bool(REGB1
)) {
1052 nit_abort("Uninitialized attribute %s", "_ids", LOCATE_analysis___icode_dump
, 158);
1054 fra
.me
.REG
[0] = ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0]);
1055 CALL_standard___collection___abstract_collection___Map_____braeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1], fra
.me
.REG
[3]);
1056 /* analysis/icode_dump.nit:159 */
1057 fra
.me
.REG
[2] = fra
.me
.REG
[3];
1061 stack_frame_head
= fra
.me
.prev
;
1062 return fra
.me
.REG
[2];
1064 val_t
analysis___icode_dump___ICodeDumper___has_lab(val_t p0
, val_t p1
){
1065 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
1068 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1069 fra
.me
.file
= LOCATE_analysis___icode_dump
;
1071 fra
.me
.meth
= LOCATE_analysis___icode_dump___ICodeDumper___has_lab
;
1072 fra
.me
.has_broke
= 0;
1073 fra
.me
.REG_size
= 2;
1074 fra
.me
.nitni_local_ref_head
= NULL
;
1075 fra
.me
.REG
[0] = NIT_NULL
;
1076 fra
.me
.REG
[1] = NIT_NULL
;
1079 /* analysis/icode_dump.nit:166 */
1080 REGB0
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0])!=NIT_NULL
);
1081 if (UNTAG_Bool(REGB0
)) {
1083 nit_abort("Uninitialized attribute %s", "_ids", LOCATE_analysis___icode_dump
, 166);
1085 fra
.me
.REG
[0] = ATTR_analysis___icode_dump___ICodeDumper____ids(fra
.me
.REG
[0]);
1086 REGB0
= CALL_standard___collection___abstract_collection___MapRead___has_key(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
1089 stack_frame_head
= fra
.me
.prev
;
1092 void analysis___icode_dump___ICodeDumper___write(val_t p0
, val_t p1
){
1093 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
1098 static val_t once_value_1
; /* Once value */
1099 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1100 fra
.me
.file
= LOCATE_analysis___icode_dump
;
1102 fra
.me
.meth
= LOCATE_analysis___icode_dump___ICodeDumper___write
;
1103 fra
.me
.has_broke
= 0;
1104 fra
.me
.REG_size
= 4;
1105 fra
.me
.nitni_local_ref_head
= NULL
;
1106 fra
.me
.REG
[0] = NIT_NULL
;
1107 fra
.me
.REG
[1] = NIT_NULL
;
1108 fra
.me
.REG
[2] = NIT_NULL
;
1109 fra
.me
.REG
[3] = NIT_NULL
;
1112 /* analysis/icode_dump.nit:172 */
1114 REGB1
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____indent_level(fra
.me
.REG
[0])!=NIT_NULL
);
1115 if (UNTAG_Bool(REGB1
)) {
1117 nit_abort("Uninitialized attribute %s", "_indent_level", LOCATE_analysis___icode_dump
, 172);
1119 REGB1
= ATTR_analysis___icode_dump___ICodeDumper____indent_level(fra
.me
.REG
[0]);
1120 /* ../lib/standard/kernel.nit:352 */
1122 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
1123 if (UNTAG_Bool(REGB2
)) {
1125 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1127 /* ../lib/standard/kernel.nit:232 */
1128 REGB2
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB1
));
1129 /* ../lib/standard/kernel.nit:352 */
1130 if (UNTAG_Bool(REGB2
)) {
1131 /* analysis/icode_dump.nit:173 */
1133 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB2
);
1134 if (!once_value_1
) {
1135 fra
.me
.REG
[3] = BOX_NativeString(" ");
1137 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB2
);
1138 once_value_1
= fra
.me
.REG
[3];
1139 register_static_object(&once_value_1
);
1140 } else fra
.me
.REG
[3] = once_value_1
;
1141 fra
.me
.REG
[3] = fra
.me
.REG
[3];
1142 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
1143 CALL_standard___file___Object___printn(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[2]);
1144 /* ../lib/standard/kernel.nit:354 */
1146 /* ../lib/standard/kernel.nit:235 */
1147 REGB2
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB2
));
1148 /* ../lib/standard/kernel.nit:354 */
1151 /* ../lib/standard/kernel.nit:352 */
1156 /* analysis/icode_dump.nit:175 */
1157 CALL_standard___file___Object___print(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
1158 stack_frame_head
= fra
.me
.prev
;
1161 val_t
analysis___icode_dump___ICodeDumper___indent_level(val_t p0
){
1162 struct {struct stack_frame_t me
;} fra
;
1165 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1166 fra
.me
.file
= LOCATE_analysis___icode_dump
;
1168 fra
.me
.meth
= LOCATE_analysis___icode_dump___ICodeDumper___indent_level
;
1169 fra
.me
.has_broke
= 0;
1170 fra
.me
.REG_size
= 1;
1171 fra
.me
.nitni_local_ref_head
= NULL
;
1172 fra
.me
.REG
[0] = NIT_NULL
;
1174 /* analysis/icode_dump.nit:178 */
1175 REGB0
= TAG_Bool(ATTR_analysis___icode_dump___ICodeDumper____indent_level(fra
.me
.REG
[0])!=NIT_NULL
);
1176 if (UNTAG_Bool(REGB0
)) {
1178 nit_abort("Uninitialized attribute %s", "_indent_level", LOCATE_analysis___icode_dump
, 178);
1180 REGB0
= ATTR_analysis___icode_dump___ICodeDumper____indent_level(fra
.me
.REG
[0]);
1181 stack_frame_head
= fra
.me
.prev
;
1184 void analysis___icode_dump___ICodeDumper___indent(val_t p0
){
1185 struct {struct stack_frame_t me
;} fra
;
1189 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1190 fra
.me
.file
= LOCATE_analysis___icode_dump
;
1192 fra
.me
.meth
= LOCATE_analysis___icode_dump___ICodeDumper___indent
;
1193 fra
.me
.has_broke
= 0;
1194 fra
.me
.REG_size
= 1;
1195 fra
.me
.nitni_local_ref_head
= NULL
;
1196 fra
.me
.REG
[0] = NIT_NULL
;
1198 /* analysis/icode_dump.nit:181 */
1199 REGB0
= ATTR_analysis___icode_dump___ICodeDumper____indent_level(fra
.me
.REG
[0]);
1201 /* ../lib/standard/kernel.nit:235 */
1202 REGB1
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB1
));
1203 /* analysis/icode_dump.nit:181 */
1204 ATTR_analysis___icode_dump___ICodeDumper____indent_level(fra
.me
.REG
[0]) = REGB1
;
1205 stack_frame_head
= fra
.me
.prev
;
1208 void analysis___icode_dump___ICodeDumper___unindent(val_t p0
){
1209 struct {struct stack_frame_t me
;} fra
;
1213 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1214 fra
.me
.file
= LOCATE_analysis___icode_dump
;
1216 fra
.me
.meth
= LOCATE_analysis___icode_dump___ICodeDumper___unindent
;
1217 fra
.me
.has_broke
= 0;
1218 fra
.me
.REG_size
= 1;
1219 fra
.me
.nitni_local_ref_head
= NULL
;
1220 fra
.me
.REG
[0] = NIT_NULL
;
1222 /* analysis/icode_dump.nit:184 */
1223 REGB0
= ATTR_analysis___icode_dump___ICodeDumper____indent_level(fra
.me
.REG
[0]);
1225 /* ../lib/standard/kernel.nit:237 */
1226 REGB1
= TAG_Int(UNTAG_Int(REGB0
)-UNTAG_Int(REGB1
));
1227 /* analysis/icode_dump.nit:184 */
1228 ATTR_analysis___icode_dump___ICodeDumper____indent_level(fra
.me
.REG
[0]) = REGB1
;
1229 stack_frame_head
= fra
.me
.prev
;
1232 void analysis___icode_dump___ICode___dump(val_t p0
, val_t p1
){
1233 struct {struct stack_frame_t me
; val_t MORE_REG
[7];} fra
;
1237 static val_t once_value_1
; /* Once value */
1238 static val_t once_value_2
; /* Once value */
1239 static val_t once_value_3
; /* Once value */
1240 static val_t once_value_4
; /* Once value */
1241 static val_t once_value_5
; /* Once value */
1242 static val_t once_value_6
; /* Once value */
1243 static val_t once_value_7
; /* Once value */
1244 static val_t once_value_8
; /* Once value */
1245 static val_t once_value_9
; /* Once value */
1246 static val_t once_value_10
; /* Once value */
1247 static val_t once_value_11
; /* Once value */
1248 static val_t once_value_12
; /* Once value */
1249 static val_t once_value_13
; /* Once value */
1250 static val_t once_value_14
; /* Once value */
1251 static val_t once_value_15
; /* Once value */
1252 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1253 fra
.me
.file
= LOCATE_analysis___icode_dump
;
1255 fra
.me
.meth
= LOCATE_analysis___icode_dump___ICode___dump
;
1256 fra
.me
.has_broke
= 0;
1257 fra
.me
.REG_size
= 8;
1258 fra
.me
.nitni_local_ref_head
= NULL
;
1259 fra
.me
.REG
[0] = NIT_NULL
;
1260 fra
.me
.REG
[1] = NIT_NULL
;
1261 fra
.me
.REG
[2] = NIT_NULL
;
1262 fra
.me
.REG
[3] = NIT_NULL
;
1263 fra
.me
.REG
[4] = NIT_NULL
;
1264 fra
.me
.REG
[5] = NIT_NULL
;
1265 fra
.me
.REG
[6] = NIT_NULL
;
1266 fra
.me
.REG
[7] = NIT_NULL
;
1269 /* analysis/icode_dump.nit:191 */
1270 fra
.me
.REG
[2] = CALL_icode___icode_base___ICode___result(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1271 /* analysis/icode_dump.nit:192 */
1272 if (!once_value_1
) {
1273 fra
.me
.REG
[3] = BOX_NativeString("");
1275 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
1276 once_value_1
= fra
.me
.REG
[3];
1277 register_static_object(&once_value_1
);
1278 } else fra
.me
.REG
[3] = once_value_1
;
1279 fra
.me
.REG
[3] = fra
.me
.REG
[3];
1280 /* analysis/icode_dump.nit:193 */
1281 if (!once_value_2
) {
1282 fra
.me
.REG
[4] = BOX_NativeString("");
1284 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB0
);
1285 once_value_2
= fra
.me
.REG
[4];
1286 register_static_object(&once_value_2
);
1287 } else fra
.me
.REG
[4] = once_value_2
;
1288 fra
.me
.REG
[4] = fra
.me
.REG
[4];
1289 /* analysis/icode_dump.nit:194 */
1290 fra
.me
.REG
[5] = CALL_icode___icode_base___ICode___location(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1291 /* analysis/icode_dump.nit:195 */
1292 REGB0
= TAG_Bool(fra
.me
.REG
[5]==NIT_NULL
);
1293 if (UNTAG_Bool(REGB0
)) {
1295 REGB1
= TAG_Bool(fra
.me
.REG
[5]==NIT_NULL
);
1296 if (UNTAG_Bool(REGB1
)) {
1297 REGB1
= TAG_Bool(false);
1300 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[5])(fra
.me
.REG
[5], NIT_NULL
);
1304 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
1305 if (UNTAG_Bool(REGB0
)) {
1306 REGB0
= CALL_analysis___icode_dump___ICodeDumper___dump_locations(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1308 REGB1
= TAG_Bool(false);
1311 if (UNTAG_Bool(REGB0
)) {
1312 /* analysis/icode_dump.nit:196 */
1314 fra
.me
.REG
[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
1315 if (!once_value_3
) {
1316 fra
.me
.REG
[7] = BOX_NativeString(" ... ");
1317 REGB0
= TAG_Int(12);
1318 fra
.me
.REG
[7] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[7], REGB0
);
1319 once_value_3
= fra
.me
.REG
[7];
1320 register_static_object(&once_value_3
);
1321 } else fra
.me
.REG
[7] = once_value_3
;
1322 fra
.me
.REG
[7] = fra
.me
.REG
[7];
1323 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[7]);
1324 fra
.me
.REG
[5] = CALL_standard___string___Object___to_s(fra
.me
.REG
[5])(fra
.me
.REG
[5]);
1325 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[5]);
1326 if (!once_value_4
) {
1327 fra
.me
.REG
[5] = BOX_NativeString("");
1329 fra
.me
.REG
[5] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[5], REGB0
);
1330 once_value_4
= fra
.me
.REG
[5];
1331 register_static_object(&once_value_4
);
1332 } else fra
.me
.REG
[5] = once_value_4
;
1333 fra
.me
.REG
[5] = fra
.me
.REG
[5];
1334 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[5]);
1335 fra
.me
.REG
[6] = CALL_standard___string___Object___to_s(fra
.me
.REG
[6])(fra
.me
.REG
[6]);
1336 fra
.me
.REG
[3] = fra
.me
.REG
[6];
1338 /* analysis/icode_dump.nit:198 */
1339 REGB0
= CALL_analysis___icode_dump___ICodeDumper___dump_line_numbers(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1340 if (UNTAG_Bool(REGB0
)) {
1341 /* analysis/icode_dump.nit:199 */
1343 fra
.me
.REG
[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
1344 if (!once_value_5
) {
1345 fra
.me
.REG
[5] = BOX_NativeString("");
1347 fra
.me
.REG
[5] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[5], REGB0
);
1348 once_value_5
= fra
.me
.REG
[5];
1349 register_static_object(&once_value_5
);
1350 } else fra
.me
.REG
[5] = once_value_5
;
1351 fra
.me
.REG
[5] = fra
.me
.REG
[5];
1352 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[5]);
1353 fra
.me
.REG
[5] = CALL_analysis___icode_dump___ICodeDumper___line(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
1354 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[5]);
1355 if (!once_value_6
) {
1356 fra
.me
.REG
[5] = BOX_NativeString(": ");
1358 fra
.me
.REG
[5] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[5], REGB0
);
1359 once_value_6
= fra
.me
.REG
[5];
1360 register_static_object(&once_value_6
);
1361 } else fra
.me
.REG
[5] = once_value_6
;
1362 fra
.me
.REG
[5] = fra
.me
.REG
[5];
1363 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[5]);
1364 fra
.me
.REG
[6] = CALL_standard___string___Object___to_s(fra
.me
.REG
[6])(fra
.me
.REG
[6]);
1365 fra
.me
.REG
[4] = fra
.me
.REG
[6];
1367 /* analysis/icode_dump.nit:201 */
1368 REGB0
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
1369 if (UNTAG_Bool(REGB0
)) {
1371 REGB1
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
1372 if (UNTAG_Bool(REGB1
)) {
1373 REGB1
= TAG_Bool(false);
1376 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[2])(fra
.me
.REG
[2], NIT_NULL
);
1380 if (UNTAG_Bool(REGB0
)) {
1381 /* analysis/icode_dump.nit:202 */
1383 fra
.me
.REG
[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
1384 if (!once_value_7
) {
1385 fra
.me
.REG
[5] = BOX_NativeString("");
1387 fra
.me
.REG
[5] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[5], REGB0
);
1388 once_value_7
= fra
.me
.REG
[5];
1389 register_static_object(&once_value_7
);
1390 } else fra
.me
.REG
[5] = once_value_7
;
1391 fra
.me
.REG
[5] = fra
.me
.REG
[5];
1392 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[5]);
1393 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[4]);
1394 if (!once_value_8
) {
1395 fra
.me
.REG
[5] = BOX_NativeString("");
1397 fra
.me
.REG
[5] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[5], REGB0
);
1398 once_value_8
= fra
.me
.REG
[5];
1399 register_static_object(&once_value_8
);
1400 } else fra
.me
.REG
[5] = once_value_8
;
1401 fra
.me
.REG
[5] = fra
.me
.REG
[5];
1402 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[5]);
1403 fra
.me
.REG
[5] = CALL_analysis___icode_dump___ICode___dump_intern(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
1404 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[5]);
1405 if (!once_value_9
) {
1406 fra
.me
.REG
[5] = BOX_NativeString("");
1408 fra
.me
.REG
[5] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[5], REGB0
);
1409 once_value_9
= fra
.me
.REG
[5];
1410 register_static_object(&once_value_9
);
1411 } else fra
.me
.REG
[5] = once_value_9
;
1412 fra
.me
.REG
[5] = fra
.me
.REG
[5];
1413 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[5]);
1414 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[3]);
1415 if (!once_value_10
) {
1416 fra
.me
.REG
[5] = BOX_NativeString("");
1418 fra
.me
.REG
[5] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[5], REGB0
);
1419 once_value_10
= fra
.me
.REG
[5];
1420 register_static_object(&once_value_10
);
1421 } else fra
.me
.REG
[5] = once_value_10
;
1422 fra
.me
.REG
[5] = fra
.me
.REG
[5];
1423 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[5]);
1424 fra
.me
.REG
[6] = CALL_standard___string___Object___to_s(fra
.me
.REG
[6])(fra
.me
.REG
[6]);
1425 CALL_analysis___icode_dump___ICodeDumper___write(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[6]);
1427 /* analysis/icode_dump.nit:204 */
1429 fra
.me
.REG
[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
1430 if (!once_value_11
) {
1431 fra
.me
.REG
[5] = BOX_NativeString("");
1433 fra
.me
.REG
[5] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[5], REGB0
);
1434 once_value_11
= fra
.me
.REG
[5];
1435 register_static_object(&once_value_11
);
1436 } else fra
.me
.REG
[5] = once_value_11
;
1437 fra
.me
.REG
[5] = fra
.me
.REG
[5];
1438 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[5]);
1439 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[4]);
1440 if (!once_value_12
) {
1441 fra
.me
.REG
[4] = BOX_NativeString("");
1443 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB0
);
1444 once_value_12
= fra
.me
.REG
[4];
1445 register_static_object(&once_value_12
);
1446 } else fra
.me
.REG
[4] = once_value_12
;
1447 fra
.me
.REG
[4] = fra
.me
.REG
[4];
1448 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[4]);
1449 fra
.me
.REG
[2] = CALL_analysis___icode_dump___ICodeDumper___register(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
1450 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[2]);
1451 if (!once_value_13
) {
1452 fra
.me
.REG
[2] = BOX_NativeString(" := ");
1454 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
1455 once_value_13
= fra
.me
.REG
[2];
1456 register_static_object(&once_value_13
);
1457 } else fra
.me
.REG
[2] = once_value_13
;
1458 fra
.me
.REG
[2] = fra
.me
.REG
[2];
1459 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[2]);
1460 fra
.me
.REG
[0] = CALL_analysis___icode_dump___ICode___dump_intern(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
1461 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[0]);
1462 if (!once_value_14
) {
1463 fra
.me
.REG
[0] = BOX_NativeString("");
1465 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
1466 once_value_14
= fra
.me
.REG
[0];
1467 register_static_object(&once_value_14
);
1468 } else fra
.me
.REG
[0] = once_value_14
;
1469 fra
.me
.REG
[0] = fra
.me
.REG
[0];
1470 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[0]);
1471 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[3]);
1472 if (!once_value_15
) {
1473 fra
.me
.REG
[3] = BOX_NativeString("");
1475 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
1476 once_value_15
= fra
.me
.REG
[3];
1477 register_static_object(&once_value_15
);
1478 } else fra
.me
.REG
[3] = once_value_15
;
1479 fra
.me
.REG
[3] = fra
.me
.REG
[3];
1480 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[3]);
1481 fra
.me
.REG
[6] = CALL_standard___string___Object___to_s(fra
.me
.REG
[6])(fra
.me
.REG
[6]);
1482 CALL_analysis___icode_dump___ICodeDumper___write(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[6]);
1484 stack_frame_head
= fra
.me
.prev
;
1487 val_t
analysis___icode_dump___ICode___dump_intern(val_t p0
, val_t p1
){
1488 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
1491 static val_t once_value_1
; /* Once value */
1492 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1493 fra
.me
.file
= LOCATE_analysis___icode_dump
;
1495 fra
.me
.meth
= LOCATE_analysis___icode_dump___ICode___dump_intern
;
1496 fra
.me
.has_broke
= 0;
1497 fra
.me
.REG_size
= 2;
1498 fra
.me
.nitni_local_ref_head
= NULL
;
1499 fra
.me
.REG
[0] = NIT_NULL
;
1500 fra
.me
.REG
[1] = NIT_NULL
;
1503 /* analysis/icode_dump.nit:209 */
1504 if (!once_value_1
) {
1505 fra
.me
.REG
[1] = BOX_NativeString("???");
1507 fra
.me
.REG
[1] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[1], REGB0
);
1508 once_value_1
= fra
.me
.REG
[1];
1509 register_static_object(&once_value_1
);
1510 } else fra
.me
.REG
[1] = once_value_1
;
1511 fra
.me
.REG
[1] = fra
.me
.REG
[1];
1514 stack_frame_head
= fra
.me
.prev
;
1515 return fra
.me
.REG
[1];
1517 void analysis___icode_dump___ICodeN___dump(val_t p0
, val_t p1
){
1518 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
1522 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1523 fra
.me
.file
= LOCATE_analysis___icode_dump
;
1525 fra
.me
.meth
= LOCATE_analysis___icode_dump___ICodeN___dump
;
1526 fra
.me
.has_broke
= 0;
1527 fra
.me
.REG_size
= 4;
1528 fra
.me
.nitni_local_ref_head
= NULL
;
1529 fra
.me
.REG
[0] = NIT_NULL
;
1530 fra
.me
.REG
[1] = NIT_NULL
;
1531 fra
.me
.REG
[2] = NIT_NULL
;
1532 fra
.me
.REG
[3] = NIT_NULL
;
1535 /* analysis/icode_dump.nit:213 */
1536 fra
.me
.REG
[2] = fra
.me
.REG
[0];
1537 fra
.me
.REG
[3] = fra
.me
.REG
[1];
1538 /* analysis/icode_dump.nit:215 */
1539 CALL_SUPER_analysis___icode_dump___ICodeN___dump(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
1540 /* analysis/icode_dump.nit:216 */
1541 fra
.me
.REG
[2] = CALL_icode___icode_base___ICodeN___closure_defs(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
1542 /* analysis/icode_dump.nit:217 */
1543 REGB0
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
1544 if (UNTAG_Bool(REGB0
)) {
1546 REGB1
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
1547 if (UNTAG_Bool(REGB1
)) {
1548 REGB1
= TAG_Bool(false);
1551 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[2])(fra
.me
.REG
[2], NIT_NULL
);
1555 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
1556 if (UNTAG_Bool(REGB0
)) {
1557 /* analysis/icode_dump.nit:218 */
1558 REGB0
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
1559 if (UNTAG_Bool(REGB0
)) {
1560 nit_abort("Reciever is null", NULL
, LOCATE_analysis___icode_dump
, 218);
1562 CALL_standard___collection___abstract_collection___Collection___iterate(fra
.me
.REG
[2])(fra
.me
.REG
[2], (&(fra
.me
)), ((fun_t
)OC_analysis___icode_dump___ICodeN___dump_1
));
1564 stack_frame_head
= fra
.me
.prev
;
1567 void OC_analysis___icode_dump___ICodeN___dump_1(struct stack_frame_t
*closctx
, val_t p0
, struct stack_frame_t
*closctx_param
, fun_t clos_fun0
){
1568 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
1573 static val_t once_value_2
; /* Once value */
1574 static val_t once_value_3
; /* Once value */
1575 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1576 fra
.me
.file
= LOCATE_analysis___icode_dump
;
1578 fra
.me
.meth
= LOCATE_analysis___icode_dump___ICodeN___dump
;
1579 fra
.me
.has_broke
= 0;
1580 fra
.me
.REG_size
= 2;
1581 fra
.me
.nitni_local_ref_head
= NULL
;
1582 fra
.me
.REG
[0] = NIT_NULL
;
1583 fra
.me
.REG
[1] = NIT_NULL
;
1584 fra
.me
.closure_ctx
= closctx_param
;
1585 fra
.me
.closure_funs
= CREG
;
1587 CREG
[0] = clos_fun0
;
1588 /* analysis/icode_dump.nit:219 */
1589 REGB0
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
1590 if (UNTAG_Bool(REGB0
)) {
1592 REGB1
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
1593 if (UNTAG_Bool(REGB1
)) {
1594 REGB1
= TAG_Bool(false);
1597 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], NIT_NULL
);
1601 if (UNTAG_Bool(REGB0
)) {
1602 /* analysis/icode_dump.nit:220 */
1603 if (!once_value_2
) {
1604 fra
.me
.REG
[1] = BOX_NativeString("CLOSURE = NULL");
1605 REGB0
= TAG_Int(14);
1606 fra
.me
.REG
[1] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[1], REGB0
);
1607 once_value_2
= fra
.me
.REG
[1];
1608 register_static_object(&once_value_2
);
1609 } else fra
.me
.REG
[1] = once_value_2
;
1610 fra
.me
.REG
[1] = fra
.me
.REG
[1];
1611 CALL_analysis___icode_dump___ICodeDumper___write(closctx
->REG
[3])(closctx
->REG
[3], fra
.me
.REG
[1]);
1613 /* analysis/icode_dump.nit:222 */
1614 if (!once_value_3
) {
1615 fra
.me
.REG
[1] = BOX_NativeString("CLOSURE");
1617 fra
.me
.REG
[1] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[1], REGB0
);
1618 once_value_3
= fra
.me
.REG
[1];
1619 register_static_object(&once_value_3
);
1620 } else fra
.me
.REG
[1] = once_value_3
;
1621 fra
.me
.REG
[1] = fra
.me
.REG
[1];
1622 CALL_analysis___icode_dump___ICodeDumper___write(closctx
->REG
[3])(closctx
->REG
[3], fra
.me
.REG
[1]);
1623 /* analysis/icode_dump.nit:223 */
1624 CALL_analysis___icode_dump___ICodeDumper___indent(closctx
->REG
[3])(closctx
->REG
[3]);
1625 /* analysis/icode_dump.nit:224 */
1626 REGB0
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
1627 if (UNTAG_Bool(REGB0
)) {
1628 nit_abort("Reciever is null", NULL
, LOCATE_analysis___icode_dump
, 224);
1630 CALL_analysis___icode_dump___IRoutine___dump(fra
.me
.REG
[0])(fra
.me
.REG
[0], closctx
->REG
[3]);
1631 /* analysis/icode_dump.nit:225 */
1632 CALL_analysis___icode_dump___ICodeDumper___unindent(closctx
->REG
[3])(closctx
->REG
[3]);
1634 stack_frame_head
= fra
.me
.prev
;
1637 void analysis___icode_dump___ISeq___dump(val_t p0
, val_t p1
){
1638 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
1642 static val_t once_value_2
; /* Once value */
1643 static val_t once_value_3
; /* Once value */
1644 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1645 fra
.me
.file
= LOCATE_analysis___icode_dump
;
1647 fra
.me
.meth
= LOCATE_analysis___icode_dump___ISeq___dump
;
1648 fra
.me
.has_broke
= 0;
1649 fra
.me
.REG_size
= 4;
1650 fra
.me
.nitni_local_ref_head
= NULL
;
1651 fra
.me
.REG
[0] = NIT_NULL
;
1652 fra
.me
.REG
[1] = NIT_NULL
;
1653 fra
.me
.REG
[2] = NIT_NULL
;
1654 fra
.me
.REG
[3] = NIT_NULL
;
1657 /* analysis/icode_dump.nit:235 */
1658 fra
.me
.REG
[2] = CALL_icode___icode_base___ISeq___icodes(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1659 CALL_standard___collection___abstract_collection___Collection___iterate(fra
.me
.REG
[2])(fra
.me
.REG
[2], (&(fra
.me
)), ((fun_t
)OC_analysis___icode_dump___ISeq___dump_1
));
1660 /* analysis/icode_dump.nit:238 */
1661 fra
.me
.REG
[0] = CALL_icode___icode_base___ISeq___iescape_mark(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1662 /* analysis/icode_dump.nit:239 */
1663 REGB0
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
1664 if (UNTAG_Bool(REGB0
)) {
1666 REGB1
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
1667 if (UNTAG_Bool(REGB1
)) {
1668 REGB1
= TAG_Bool(false);
1671 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], NIT_NULL
);
1675 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
1676 if (UNTAG_Bool(REGB0
)) {
1677 REGB0
= CALL_analysis___icode_dump___ICodeDumper___has_lab(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
1679 REGB1
= TAG_Bool(false);
1682 if (UNTAG_Bool(REGB0
)) {
1684 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
1685 if (!once_value_2
) {
1686 fra
.me
.REG
[3] = BOX_NativeString("");
1688 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
1689 once_value_2
= fra
.me
.REG
[3];
1690 register_static_object(&once_value_2
);
1691 } else fra
.me
.REG
[3] = once_value_2
;
1692 fra
.me
.REG
[3] = fra
.me
.REG
[3];
1693 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
1694 fra
.me
.REG
[0] = CALL_analysis___icode_dump___ICodeDumper___lab(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
1695 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
1696 if (!once_value_3
) {
1697 fra
.me
.REG
[0] = BOX_NativeString(":");
1699 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
1700 once_value_3
= fra
.me
.REG
[0];
1701 register_static_object(&once_value_3
);
1702 } else fra
.me
.REG
[0] = once_value_3
;
1703 fra
.me
.REG
[0] = fra
.me
.REG
[0];
1704 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
1705 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
1706 CALL_analysis___icode_dump___ICodeDumper___write(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
1708 stack_frame_head
= fra
.me
.prev
;
1711 void OC_analysis___icode_dump___ISeq___dump_1(struct stack_frame_t
*closctx
, val_t p0
, struct stack_frame_t
*closctx_param
, fun_t clos_fun0
){
1712 struct {struct stack_frame_t me
;} fra
;
1715 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1716 fra
.me
.file
= LOCATE_analysis___icode_dump
;
1718 fra
.me
.meth
= LOCATE_analysis___icode_dump___ISeq___dump
;
1719 fra
.me
.has_broke
= 0;
1720 fra
.me
.REG_size
= 1;
1721 fra
.me
.nitni_local_ref_head
= NULL
;
1722 fra
.me
.REG
[0] = NIT_NULL
;
1723 fra
.me
.closure_ctx
= closctx_param
;
1724 fra
.me
.closure_funs
= CREG
;
1726 CREG
[0] = clos_fun0
;
1727 /* analysis/icode_dump.nit:236 */
1728 CALL_analysis___icode_dump___ICode___dump(fra
.me
.REG
[0])(fra
.me
.REG
[0], closctx
->REG
[1]);
1729 stack_frame_head
= fra
.me
.prev
;
1732 void analysis___icode_dump___IIf___dump(val_t p0
, val_t p1
){
1733 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
1736 static val_t once_value_1
; /* Once value */
1737 static val_t once_value_2
; /* Once value */
1738 static val_t once_value_3
; /* Once value */
1739 static val_t once_value_4
; /* Once value */
1740 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1741 fra
.me
.file
= LOCATE_analysis___icode_dump
;
1743 fra
.me
.meth
= LOCATE_analysis___icode_dump___IIf___dump
;
1744 fra
.me
.has_broke
= 0;
1745 fra
.me
.REG_size
= 4;
1746 fra
.me
.nitni_local_ref_head
= NULL
;
1747 fra
.me
.REG
[0] = NIT_NULL
;
1748 fra
.me
.REG
[1] = NIT_NULL
;
1749 fra
.me
.REG
[2] = NIT_NULL
;
1750 fra
.me
.REG
[3] = NIT_NULL
;
1753 /* analysis/icode_dump.nit:246 */
1755 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
1756 if (!once_value_1
) {
1757 fra
.me
.REG
[3] = BOX_NativeString("IF(");
1759 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
1760 once_value_1
= fra
.me
.REG
[3];
1761 register_static_object(&once_value_1
);
1762 } else fra
.me
.REG
[3] = once_value_1
;
1763 fra
.me
.REG
[3] = fra
.me
.REG
[3];
1764 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
1765 fra
.me
.REG
[3] = CALL_icode___icode_base___ICode1___expr(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1766 fra
.me
.REG
[3] = CALL_analysis___icode_dump___ICodeDumper___register(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[3]);
1767 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
1768 if (!once_value_2
) {
1769 fra
.me
.REG
[3] = BOX_NativeString(") {");
1771 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
1772 once_value_2
= fra
.me
.REG
[3];
1773 register_static_object(&once_value_2
);
1774 } else fra
.me
.REG
[3] = once_value_2
;
1775 fra
.me
.REG
[3] = fra
.me
.REG
[3];
1776 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
1777 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
1778 CALL_analysis___icode_dump___ICodeDumper___write(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
1779 /* analysis/icode_dump.nit:247 */
1780 CALL_analysis___icode_dump___ICodeDumper___indent(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1781 /* analysis/icode_dump.nit:248 */
1782 fra
.me
.REG
[2] = CALL_icode___icode_base___IIf___then_seq(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1783 CALL_analysis___icode_dump___ICode___dump(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
1784 /* analysis/icode_dump.nit:249 */
1785 CALL_analysis___icode_dump___ICodeDumper___unindent(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1786 /* analysis/icode_dump.nit:250 */
1787 if (!once_value_3
) {
1788 fra
.me
.REG
[2] = BOX_NativeString("} ELSE {");
1790 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
1791 once_value_3
= fra
.me
.REG
[2];
1792 register_static_object(&once_value_3
);
1793 } else fra
.me
.REG
[2] = once_value_3
;
1794 fra
.me
.REG
[2] = fra
.me
.REG
[2];
1795 CALL_analysis___icode_dump___ICodeDumper___write(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
1796 /* analysis/icode_dump.nit:251 */
1797 CALL_analysis___icode_dump___ICodeDumper___indent(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1798 /* analysis/icode_dump.nit:252 */
1799 fra
.me
.REG
[0] = CALL_icode___icode_base___IIf___else_seq(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1800 CALL_analysis___icode_dump___ICode___dump(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
1801 /* analysis/icode_dump.nit:253 */
1802 CALL_analysis___icode_dump___ICodeDumper___unindent(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1803 /* analysis/icode_dump.nit:254 */
1804 if (!once_value_4
) {
1805 fra
.me
.REG
[0] = BOX_NativeString("}");
1807 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
1808 once_value_4
= fra
.me
.REG
[0];
1809 register_static_object(&once_value_4
);
1810 } else fra
.me
.REG
[0] = once_value_4
;
1811 fra
.me
.REG
[0] = fra
.me
.REG
[0];
1812 CALL_analysis___icode_dump___ICodeDumper___write(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
1813 stack_frame_head
= fra
.me
.prev
;
1816 void analysis___icode_dump___ILoop___dump(val_t p0
, val_t p1
){
1817 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
1821 static val_t once_value_1
; /* Once value */
1822 static val_t once_value_3
; /* Once value */
1823 static val_t once_value_4
; /* Once value */
1824 static val_t once_value_5
; /* Once value */
1825 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1826 fra
.me
.file
= LOCATE_analysis___icode_dump
;
1828 fra
.me
.meth
= LOCATE_analysis___icode_dump___ILoop___dump
;
1829 fra
.me
.has_broke
= 0;
1830 fra
.me
.REG_size
= 4;
1831 fra
.me
.nitni_local_ref_head
= NULL
;
1832 fra
.me
.REG
[0] = NIT_NULL
;
1833 fra
.me
.REG
[1] = NIT_NULL
;
1834 fra
.me
.REG
[2] = NIT_NULL
;
1835 fra
.me
.REG
[3] = NIT_NULL
;
1838 /* analysis/icode_dump.nit:261 */
1839 if (!once_value_1
) {
1840 fra
.me
.REG
[2] = BOX_NativeString("LOOP {");
1842 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
1843 once_value_1
= fra
.me
.REG
[2];
1844 register_static_object(&once_value_1
);
1845 } else fra
.me
.REG
[2] = once_value_1
;
1846 fra
.me
.REG
[2] = fra
.me
.REG
[2];
1847 CALL_analysis___icode_dump___ICodeDumper___write(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
1848 /* analysis/icode_dump.nit:262 */
1849 CALL_analysis___icode_dump___ICodeDumper___indent(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1850 /* analysis/icode_dump.nit:263 */
1851 fra
.me
.REG
[2] = CALL_icode___icode_base___ISeq___icodes(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1852 CALL_standard___collection___abstract_collection___Collection___iterate(fra
.me
.REG
[2])(fra
.me
.REG
[2], (&(fra
.me
)), ((fun_t
)OC_analysis___icode_dump___ILoop___dump_2
));
1853 /* analysis/icode_dump.nit:266 */
1854 CALL_analysis___icode_dump___ICodeDumper___unindent(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1855 /* analysis/icode_dump.nit:267 */
1856 if (!once_value_3
) {
1857 fra
.me
.REG
[2] = BOX_NativeString("}");
1859 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
1860 once_value_3
= fra
.me
.REG
[2];
1861 register_static_object(&once_value_3
);
1862 } else fra
.me
.REG
[2] = once_value_3
;
1863 fra
.me
.REG
[2] = fra
.me
.REG
[2];
1864 CALL_analysis___icode_dump___ICodeDumper___write(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
1865 /* analysis/icode_dump.nit:268 */
1866 fra
.me
.REG
[0] = CALL_icode___icode_base___ISeq___iescape_mark(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1867 /* analysis/icode_dump.nit:269 */
1868 REGB0
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
1869 if (UNTAG_Bool(REGB0
)) {
1871 REGB1
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
1872 if (UNTAG_Bool(REGB1
)) {
1873 REGB1
= TAG_Bool(false);
1876 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], NIT_NULL
);
1880 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
1881 if (UNTAG_Bool(REGB0
)) {
1882 REGB0
= CALL_analysis___icode_dump___ICodeDumper___has_lab(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
1884 REGB1
= TAG_Bool(false);
1887 if (UNTAG_Bool(REGB0
)) {
1889 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
1890 if (!once_value_4
) {
1891 fra
.me
.REG
[3] = BOX_NativeString("");
1893 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
1894 once_value_4
= fra
.me
.REG
[3];
1895 register_static_object(&once_value_4
);
1896 } else fra
.me
.REG
[3] = once_value_4
;
1897 fra
.me
.REG
[3] = fra
.me
.REG
[3];
1898 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
1899 fra
.me
.REG
[0] = CALL_analysis___icode_dump___ICodeDumper___lab(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
1900 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
1901 if (!once_value_5
) {
1902 fra
.me
.REG
[0] = BOX_NativeString(":");
1904 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
1905 once_value_5
= fra
.me
.REG
[0];
1906 register_static_object(&once_value_5
);
1907 } else fra
.me
.REG
[0] = once_value_5
;
1908 fra
.me
.REG
[0] = fra
.me
.REG
[0];
1909 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
1910 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
1911 CALL_analysis___icode_dump___ICodeDumper___write(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
1913 stack_frame_head
= fra
.me
.prev
;
1916 void OC_analysis___icode_dump___ILoop___dump_2(struct stack_frame_t
*closctx
, val_t p0
, struct stack_frame_t
*closctx_param
, fun_t clos_fun0
){
1917 struct {struct stack_frame_t me
;} fra
;
1920 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1921 fra
.me
.file
= LOCATE_analysis___icode_dump
;
1923 fra
.me
.meth
= LOCATE_analysis___icode_dump___ILoop___dump
;
1924 fra
.me
.has_broke
= 0;
1925 fra
.me
.REG_size
= 1;
1926 fra
.me
.nitni_local_ref_head
= NULL
;
1927 fra
.me
.REG
[0] = NIT_NULL
;
1928 fra
.me
.closure_ctx
= closctx_param
;
1929 fra
.me
.closure_funs
= CREG
;
1931 CREG
[0] = clos_fun0
;
1932 /* analysis/icode_dump.nit:264 */
1933 CALL_analysis___icode_dump___ICode___dump(fra
.me
.REG
[0])(fra
.me
.REG
[0], closctx
->REG
[1]);
1934 stack_frame_head
= fra
.me
.prev
;
1937 val_t
analysis___icode_dump___IEscape___dump_intern(val_t p0
, val_t p1
){
1938 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
1941 static val_t once_value_1
; /* Once value */
1942 static val_t once_value_2
; /* Once value */
1943 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1944 fra
.me
.file
= LOCATE_analysis___icode_dump
;
1946 fra
.me
.meth
= LOCATE_analysis___icode_dump___IEscape___dump_intern
;
1947 fra
.me
.has_broke
= 0;
1948 fra
.me
.REG_size
= 4;
1949 fra
.me
.nitni_local_ref_head
= NULL
;
1950 fra
.me
.REG
[0] = NIT_NULL
;
1951 fra
.me
.REG
[1] = NIT_NULL
;
1952 fra
.me
.REG
[2] = NIT_NULL
;
1953 fra
.me
.REG
[3] = NIT_NULL
;
1956 /* analysis/icode_dump.nit:276 */
1958 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
1959 if (!once_value_1
) {
1960 fra
.me
.REG
[3] = BOX_NativeString("ESCAPE ");
1962 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
1963 once_value_1
= fra
.me
.REG
[3];
1964 register_static_object(&once_value_1
);
1965 } else fra
.me
.REG
[3] = once_value_1
;
1966 fra
.me
.REG
[3] = fra
.me
.REG
[3];
1967 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
1968 fra
.me
.REG
[0] = CALL_icode___icode_base___IEscape___iescape_mark(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1969 fra
.me
.REG
[0] = CALL_analysis___icode_dump___ICodeDumper___lab(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
1970 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
1971 if (!once_value_2
) {
1972 fra
.me
.REG
[0] = BOX_NativeString("");
1974 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
1975 once_value_2
= fra
.me
.REG
[0];
1976 register_static_object(&once_value_2
);
1977 } else fra
.me
.REG
[0] = once_value_2
;
1978 fra
.me
.REG
[0] = fra
.me
.REG
[0];
1979 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
1980 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
1983 stack_frame_head
= fra
.me
.prev
;
1984 return fra
.me
.REG
[2];
1986 val_t
analysis___icode_dump___IAbort___dump_intern(val_t p0
, val_t p1
){
1987 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
1990 static val_t once_value_1
; /* Once value */
1991 static val_t once_value_2
; /* Once value */
1992 static val_t once_value_3
; /* Once value */
1993 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1994 fra
.me
.file
= LOCATE_analysis___icode_dump
;
1996 fra
.me
.meth
= LOCATE_analysis___icode_dump___IAbort___dump_intern
;
1997 fra
.me
.has_broke
= 0;
1998 fra
.me
.REG_size
= 3;
1999 fra
.me
.nitni_local_ref_head
= NULL
;
2000 fra
.me
.REG
[0] = NIT_NULL
;
2001 fra
.me
.REG
[1] = NIT_NULL
;
2002 fra
.me
.REG
[2] = NIT_NULL
;
2005 /* analysis/icode_dump.nit:283 */
2007 fra
.me
.REG
[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2008 if (!once_value_1
) {
2009 fra
.me
.REG
[2] = BOX_NativeString("ABORT (\"");
2011 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
2012 once_value_1
= fra
.me
.REG
[2];
2013 register_static_object(&once_value_1
);
2014 } else fra
.me
.REG
[2] = once_value_1
;
2015 fra
.me
.REG
[2] = fra
.me
.REG
[2];
2016 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
2017 fra
.me
.REG
[0] = CALL_icode___icode_base___IAbort___texts(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2018 if (!once_value_2
) {
2019 fra
.me
.REG
[2] = BOX_NativeString("\", \"");
2021 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
2022 once_value_2
= fra
.me
.REG
[2];
2023 register_static_object(&once_value_2
);
2024 } else fra
.me
.REG
[2] = once_value_2
;
2025 fra
.me
.REG
[2] = fra
.me
.REG
[2];
2026 fra
.me
.REG
[2] = CALL_standard___string___Collection___join(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[2]);
2027 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
2028 if (!once_value_3
) {
2029 fra
.me
.REG
[2] = BOX_NativeString("\")");
2031 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
2032 once_value_3
= fra
.me
.REG
[2];
2033 register_static_object(&once_value_3
);
2034 } else fra
.me
.REG
[2] = once_value_3
;
2035 fra
.me
.REG
[2] = fra
.me
.REG
[2];
2036 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
2037 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
2040 stack_frame_head
= fra
.me
.prev
;
2041 return fra
.me
.REG
[1];
2043 val_t
analysis___icode_dump___ICall___dump_intern(val_t p0
, val_t p1
){
2044 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
2047 static val_t once_value_1
; /* Once value */
2048 static val_t once_value_2
; /* Once value */
2049 static val_t once_value_3
; /* Once value */
2050 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2051 fra
.me
.file
= LOCATE_analysis___icode_dump
;
2053 fra
.me
.meth
= LOCATE_analysis___icode_dump___ICall___dump_intern
;
2054 fra
.me
.has_broke
= 0;
2055 fra
.me
.REG_size
= 4;
2056 fra
.me
.nitni_local_ref_head
= NULL
;
2057 fra
.me
.REG
[0] = NIT_NULL
;
2058 fra
.me
.REG
[1] = NIT_NULL
;
2059 fra
.me
.REG
[2] = NIT_NULL
;
2060 fra
.me
.REG
[3] = NIT_NULL
;
2063 /* analysis/icode_dump.nit:290 */
2065 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2066 if (!once_value_1
) {
2067 fra
.me
.REG
[3] = BOX_NativeString("CALL ");
2069 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2070 once_value_1
= fra
.me
.REG
[3];
2071 register_static_object(&once_value_1
);
2072 } else fra
.me
.REG
[3] = once_value_1
;
2073 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2074 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2075 fra
.me
.REG
[3] = CALL_icode___icode_base___IAbsCall___property(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2076 fra
.me
.REG
[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
2077 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2078 if (!once_value_2
) {
2079 fra
.me
.REG
[3] = BOX_NativeString("(");
2081 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2082 once_value_2
= fra
.me
.REG
[3];
2083 register_static_object(&once_value_2
);
2084 } else fra
.me
.REG
[3] = once_value_2
;
2085 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2086 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2087 fra
.me
.REG
[0] = CALL_icode___icode_base___ICodeN___exprs(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2088 fra
.me
.REG
[0] = CALL_analysis___icode_dump___ICodeDumper___register_all(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2089 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2090 if (!once_value_3
) {
2091 fra
.me
.REG
[0] = BOX_NativeString(")");
2093 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2094 once_value_3
= fra
.me
.REG
[0];
2095 register_static_object(&once_value_3
);
2096 } else fra
.me
.REG
[0] = once_value_3
;
2097 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2098 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2099 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
2102 stack_frame_head
= fra
.me
.prev
;
2103 return fra
.me
.REG
[2];
2105 val_t
analysis___icode_dump___INew___dump_intern(val_t p0
, val_t p1
){
2106 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
2109 static val_t once_value_1
; /* Once value */
2110 static val_t once_value_2
; /* Once value */
2111 static val_t once_value_3
; /* Once value */
2112 static val_t once_value_4
; /* Once value */
2113 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2114 fra
.me
.file
= LOCATE_analysis___icode_dump
;
2116 fra
.me
.meth
= LOCATE_analysis___icode_dump___INew___dump_intern
;
2117 fra
.me
.has_broke
= 0;
2118 fra
.me
.REG_size
= 4;
2119 fra
.me
.nitni_local_ref_head
= NULL
;
2120 fra
.me
.REG
[0] = NIT_NULL
;
2121 fra
.me
.REG
[1] = NIT_NULL
;
2122 fra
.me
.REG
[2] = NIT_NULL
;
2123 fra
.me
.REG
[3] = NIT_NULL
;
2126 /* analysis/icode_dump.nit:297 */
2128 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2129 if (!once_value_1
) {
2130 fra
.me
.REG
[3] = BOX_NativeString("NEW ");
2132 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2133 once_value_1
= fra
.me
.REG
[3];
2134 register_static_object(&once_value_1
);
2135 } else fra
.me
.REG
[3] = once_value_1
;
2136 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2137 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2138 fra
.me
.REG
[3] = CALL_icode___icode_base___INew___stype(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2139 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
2140 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2141 if (!once_value_2
) {
2142 fra
.me
.REG
[3] = BOX_NativeString(".");
2144 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2145 once_value_2
= fra
.me
.REG
[3];
2146 register_static_object(&once_value_2
);
2147 } else fra
.me
.REG
[3] = once_value_2
;
2148 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2149 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2150 fra
.me
.REG
[3] = CALL_icode___icode_base___IAbsCall___property(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2151 fra
.me
.REG
[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
2152 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2153 if (!once_value_3
) {
2154 fra
.me
.REG
[3] = BOX_NativeString("(");
2156 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2157 once_value_3
= fra
.me
.REG
[3];
2158 register_static_object(&once_value_3
);
2159 } else fra
.me
.REG
[3] = once_value_3
;
2160 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2161 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2162 fra
.me
.REG
[0] = CALL_icode___icode_base___ICodeN___exprs(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2163 fra
.me
.REG
[0] = CALL_analysis___icode_dump___ICodeDumper___register_all(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2164 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2165 if (!once_value_4
) {
2166 fra
.me
.REG
[0] = BOX_NativeString(")");
2168 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2169 once_value_4
= fra
.me
.REG
[0];
2170 register_static_object(&once_value_4
);
2171 } else fra
.me
.REG
[0] = once_value_4
;
2172 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2173 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2174 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
2177 stack_frame_head
= fra
.me
.prev
;
2178 return fra
.me
.REG
[2];
2180 val_t
analysis___icode_dump___ISuper___dump_intern(val_t p0
, val_t p1
){
2181 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
2184 static val_t once_value_1
; /* Once value */
2185 static val_t once_value_2
; /* Once value */
2186 static val_t once_value_3
; /* Once value */
2187 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2188 fra
.me
.file
= LOCATE_analysis___icode_dump
;
2190 fra
.me
.meth
= LOCATE_analysis___icode_dump___ISuper___dump_intern
;
2191 fra
.me
.has_broke
= 0;
2192 fra
.me
.REG_size
= 4;
2193 fra
.me
.nitni_local_ref_head
= NULL
;
2194 fra
.me
.REG
[0] = NIT_NULL
;
2195 fra
.me
.REG
[1] = NIT_NULL
;
2196 fra
.me
.REG
[2] = NIT_NULL
;
2197 fra
.me
.REG
[3] = NIT_NULL
;
2200 /* analysis/icode_dump.nit:304 */
2202 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2203 if (!once_value_1
) {
2204 fra
.me
.REG
[3] = BOX_NativeString("SUPER ");
2206 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2207 once_value_1
= fra
.me
.REG
[3];
2208 register_static_object(&once_value_1
);
2209 } else fra
.me
.REG
[3] = once_value_1
;
2210 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2211 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2212 fra
.me
.REG
[3] = CALL_icode___icode_base___IAbsCall___property(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2213 fra
.me
.REG
[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
2214 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2215 if (!once_value_2
) {
2216 fra
.me
.REG
[3] = BOX_NativeString("(");
2218 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2219 once_value_2
= fra
.me
.REG
[3];
2220 register_static_object(&once_value_2
);
2221 } else fra
.me
.REG
[3] = once_value_2
;
2222 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2223 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2224 fra
.me
.REG
[0] = CALL_icode___icode_base___ICodeN___exprs(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2225 fra
.me
.REG
[0] = CALL_analysis___icode_dump___ICodeDumper___register_all(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2226 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2227 if (!once_value_3
) {
2228 fra
.me
.REG
[0] = BOX_NativeString(")");
2230 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2231 once_value_3
= fra
.me
.REG
[0];
2232 register_static_object(&once_value_3
);
2233 } else fra
.me
.REG
[0] = once_value_3
;
2234 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2235 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2236 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
2239 stack_frame_head
= fra
.me
.prev
;
2240 return fra
.me
.REG
[2];
2242 val_t
analysis___icode_dump___IStaticCall___dump_intern(val_t p0
, val_t p1
){
2243 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
2246 static val_t once_value_1
; /* Once value */
2247 static val_t once_value_2
; /* Once value */
2248 static val_t once_value_3
; /* Once value */
2249 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2250 fra
.me
.file
= LOCATE_analysis___icode_dump
;
2252 fra
.me
.meth
= LOCATE_analysis___icode_dump___IStaticCall___dump_intern
;
2253 fra
.me
.has_broke
= 0;
2254 fra
.me
.REG_size
= 4;
2255 fra
.me
.nitni_local_ref_head
= NULL
;
2256 fra
.me
.REG
[0] = NIT_NULL
;
2257 fra
.me
.REG
[1] = NIT_NULL
;
2258 fra
.me
.REG
[2] = NIT_NULL
;
2259 fra
.me
.REG
[3] = NIT_NULL
;
2262 /* analysis/icode_dump.nit:311 */
2264 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2265 if (!once_value_1
) {
2266 fra
.me
.REG
[3] = BOX_NativeString("STATIC_CALL ");
2267 REGB0
= TAG_Int(12);
2268 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2269 once_value_1
= fra
.me
.REG
[3];
2270 register_static_object(&once_value_1
);
2271 } else fra
.me
.REG
[3] = once_value_1
;
2272 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2273 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2274 fra
.me
.REG
[3] = CALL_icode___icode_base___IAbsCall___property(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2275 fra
.me
.REG
[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
2276 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2277 if (!once_value_2
) {
2278 fra
.me
.REG
[3] = BOX_NativeString("(");
2280 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2281 once_value_2
= fra
.me
.REG
[3];
2282 register_static_object(&once_value_2
);
2283 } else fra
.me
.REG
[3] = once_value_2
;
2284 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2285 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2286 fra
.me
.REG
[0] = CALL_icode___icode_base___ICodeN___exprs(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2287 fra
.me
.REG
[0] = CALL_analysis___icode_dump___ICodeDumper___register_all(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2288 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2289 if (!once_value_3
) {
2290 fra
.me
.REG
[0] = BOX_NativeString(")");
2292 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2293 once_value_3
= fra
.me
.REG
[0];
2294 register_static_object(&once_value_3
);
2295 } else fra
.me
.REG
[0] = once_value_3
;
2296 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2297 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2298 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
2301 stack_frame_head
= fra
.me
.prev
;
2302 return fra
.me
.REG
[2];
2304 val_t
analysis___icode_dump___IAllocateInstance___dump_intern(val_t p0
, val_t p1
){
2305 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
2308 static val_t once_value_1
; /* Once value */
2309 static val_t once_value_2
; /* Once value */
2310 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2311 fra
.me
.file
= LOCATE_analysis___icode_dump
;
2313 fra
.me
.meth
= LOCATE_analysis___icode_dump___IAllocateInstance___dump_intern
;
2314 fra
.me
.has_broke
= 0;
2315 fra
.me
.REG_size
= 3;
2316 fra
.me
.nitni_local_ref_head
= NULL
;
2317 fra
.me
.REG
[0] = NIT_NULL
;
2318 fra
.me
.REG
[1] = NIT_NULL
;
2319 fra
.me
.REG
[2] = NIT_NULL
;
2322 /* analysis/icode_dump.nit:318 */
2324 fra
.me
.REG
[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2325 if (!once_value_1
) {
2326 fra
.me
.REG
[2] = BOX_NativeString("ALLOCATE NEW_");
2327 REGB0
= TAG_Int(13);
2328 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
2329 once_value_1
= fra
.me
.REG
[2];
2330 register_static_object(&once_value_1
);
2331 } else fra
.me
.REG
[2] = once_value_1
;
2332 fra
.me
.REG
[2] = fra
.me
.REG
[2];
2333 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
2334 fra
.me
.REG
[0] = CALL_icode___icode_base___IAllocateInstance___stype(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2335 fra
.me
.REG
[0] = CALL_standard___string___Object___to_s(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2336 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2337 if (!once_value_2
) {
2338 fra
.me
.REG
[0] = BOX_NativeString("");
2340 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2341 once_value_2
= fra
.me
.REG
[0];
2342 register_static_object(&once_value_2
);
2343 } else fra
.me
.REG
[0] = once_value_2
;
2344 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2345 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2346 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
2349 stack_frame_head
= fra
.me
.prev
;
2350 return fra
.me
.REG
[1];
2352 val_t
analysis___icode_dump___ICheckInstance___dump_intern(val_t p0
, val_t p1
){
2353 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
2356 static val_t once_value_1
; /* Once value */
2357 static val_t once_value_2
; /* Once value */
2358 static val_t once_value_3
; /* Once value */
2359 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2360 fra
.me
.file
= LOCATE_analysis___icode_dump
;
2362 fra
.me
.meth
= LOCATE_analysis___icode_dump___ICheckInstance___dump_intern
;
2363 fra
.me
.has_broke
= 0;
2364 fra
.me
.REG_size
= 4;
2365 fra
.me
.nitni_local_ref_head
= NULL
;
2366 fra
.me
.REG
[0] = NIT_NULL
;
2367 fra
.me
.REG
[1] = NIT_NULL
;
2368 fra
.me
.REG
[2] = NIT_NULL
;
2369 fra
.me
.REG
[3] = NIT_NULL
;
2372 /* analysis/icode_dump.nit:325 */
2374 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2375 if (!once_value_1
) {
2376 fra
.me
.REG
[3] = BOX_NativeString("CHECK_INSTANCE CHECKNEW_");
2377 REGB0
= TAG_Int(24);
2378 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2379 once_value_1
= fra
.me
.REG
[3];
2380 register_static_object(&once_value_1
);
2381 } else fra
.me
.REG
[3] = once_value_1
;
2382 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2383 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2384 fra
.me
.REG
[3] = CALL_icode___icode_base___ICheckInstance___stype(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2385 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
2386 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2387 if (!once_value_2
) {
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_2
= fra
.me
.REG
[3];
2392 register_static_object(&once_value_2
);
2393 } else fra
.me
.REG
[3] = once_value_2
;
2394 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2395 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2396 fra
.me
.REG
[0] = CALL_icode___icode_base___ICode1___expr(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2397 fra
.me
.REG
[0] = CALL_analysis___icode_dump___ICodeDumper___register(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2398 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2399 if (!once_value_3
) {
2400 fra
.me
.REG
[0] = BOX_NativeString(")");
2402 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2403 once_value_3
= fra
.me
.REG
[0];
2404 register_static_object(&once_value_3
);
2405 } else fra
.me
.REG
[0] = once_value_3
;
2406 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2407 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2408 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
2411 stack_frame_head
= fra
.me
.prev
;
2412 return fra
.me
.REG
[2];
2414 val_t
analysis___icode_dump___IInitAttributes___dump_intern(val_t p0
, val_t p1
){
2415 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
2418 static val_t once_value_1
; /* Once value */
2419 static val_t once_value_2
; /* Once value */
2420 static val_t once_value_3
; /* Once value */
2421 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2422 fra
.me
.file
= LOCATE_analysis___icode_dump
;
2424 fra
.me
.meth
= LOCATE_analysis___icode_dump___IInitAttributes___dump_intern
;
2425 fra
.me
.has_broke
= 0;
2426 fra
.me
.REG_size
= 4;
2427 fra
.me
.nitni_local_ref_head
= NULL
;
2428 fra
.me
.REG
[0] = NIT_NULL
;
2429 fra
.me
.REG
[1] = NIT_NULL
;
2430 fra
.me
.REG
[2] = NIT_NULL
;
2431 fra
.me
.REG
[3] = NIT_NULL
;
2434 /* analysis/icode_dump.nit:332 */
2436 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2437 if (!once_value_1
) {
2438 fra
.me
.REG
[3] = BOX_NativeString("INIT_ATTRIBUTES INIT_ATTRIBUTES_");
2439 REGB0
= TAG_Int(32);
2440 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2441 once_value_1
= fra
.me
.REG
[3];
2442 register_static_object(&once_value_1
);
2443 } else fra
.me
.REG
[3] = once_value_1
;
2444 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2445 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2446 fra
.me
.REG
[3] = CALL_icode___icode_base___IInitAttributes___stype(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2447 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
2448 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2449 if (!once_value_2
) {
2450 fra
.me
.REG
[3] = BOX_NativeString("(");
2452 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2453 once_value_2
= fra
.me
.REG
[3];
2454 register_static_object(&once_value_2
);
2455 } else fra
.me
.REG
[3] = once_value_2
;
2456 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2457 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2458 fra
.me
.REG
[0] = CALL_icode___icode_base___ICode1___expr(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2459 fra
.me
.REG
[0] = CALL_analysis___icode_dump___ICodeDumper___register(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2460 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2461 if (!once_value_3
) {
2462 fra
.me
.REG
[0] = BOX_NativeString(")");
2464 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2465 once_value_3
= fra
.me
.REG
[0];
2466 register_static_object(&once_value_3
);
2467 } else fra
.me
.REG
[0] = once_value_3
;
2468 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2469 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2470 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
2473 stack_frame_head
= fra
.me
.prev
;
2474 return fra
.me
.REG
[2];
2476 val_t
analysis___icode_dump___IClosCall___dump_intern(val_t p0
, val_t p1
){
2477 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
2480 static val_t once_value_1
; /* Once value */
2481 static val_t once_value_2
; /* Once value */
2482 static val_t once_value_3
; /* Once value */
2483 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2484 fra
.me
.file
= LOCATE_analysis___icode_dump
;
2486 fra
.me
.meth
= LOCATE_analysis___icode_dump___IClosCall___dump_intern
;
2487 fra
.me
.has_broke
= 0;
2488 fra
.me
.REG_size
= 4;
2489 fra
.me
.nitni_local_ref_head
= NULL
;
2490 fra
.me
.REG
[0] = NIT_NULL
;
2491 fra
.me
.REG
[1] = NIT_NULL
;
2492 fra
.me
.REG
[2] = NIT_NULL
;
2493 fra
.me
.REG
[3] = NIT_NULL
;
2496 /* analysis/icode_dump.nit:339 */
2498 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2499 if (!once_value_1
) {
2500 fra
.me
.REG
[3] = BOX_NativeString("CLOS_CALL ");
2501 REGB0
= TAG_Int(10);
2502 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2503 once_value_1
= fra
.me
.REG
[3];
2504 register_static_object(&once_value_1
);
2505 } else fra
.me
.REG
[3] = once_value_1
;
2506 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2507 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2508 fra
.me
.REG
[3] = CALL_icode___icode_base___IClosCall___closure_decl(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2509 fra
.me
.REG
[3] = CALL_analysis___icode_dump___ICodeDumper___closdecl(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[3]);
2510 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2511 if (!once_value_2
) {
2512 fra
.me
.REG
[3] = BOX_NativeString("(");
2514 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2515 once_value_2
= fra
.me
.REG
[3];
2516 register_static_object(&once_value_2
);
2517 } else fra
.me
.REG
[3] = once_value_2
;
2518 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2519 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2520 fra
.me
.REG
[0] = CALL_icode___icode_base___ICodeN___exprs(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2521 fra
.me
.REG
[0] = CALL_analysis___icode_dump___ICodeDumper___register_all(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2522 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2523 if (!once_value_3
) {
2524 fra
.me
.REG
[0] = BOX_NativeString(")");
2526 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2527 once_value_3
= fra
.me
.REG
[0];
2528 register_static_object(&once_value_3
);
2529 } else fra
.me
.REG
[0] = once_value_3
;
2530 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2531 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2532 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
2535 stack_frame_head
= fra
.me
.prev
;
2536 return fra
.me
.REG
[2];
2538 val_t
analysis___icode_dump___IAttrRead___dump_intern(val_t p0
, val_t p1
){
2539 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
2542 static val_t once_value_1
; /* Once value */
2543 static val_t once_value_2
; /* Once value */
2544 static val_t once_value_3
; /* Once value */
2545 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2546 fra
.me
.file
= LOCATE_analysis___icode_dump
;
2548 fra
.me
.meth
= LOCATE_analysis___icode_dump___IAttrRead___dump_intern
;
2549 fra
.me
.has_broke
= 0;
2550 fra
.me
.REG_size
= 4;
2551 fra
.me
.nitni_local_ref_head
= NULL
;
2552 fra
.me
.REG
[0] = NIT_NULL
;
2553 fra
.me
.REG
[1] = NIT_NULL
;
2554 fra
.me
.REG
[2] = NIT_NULL
;
2555 fra
.me
.REG
[3] = NIT_NULL
;
2558 /* analysis/icode_dump.nit:346 */
2560 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2561 if (!once_value_1
) {
2562 fra
.me
.REG
[3] = BOX_NativeString("ATTR_READ ");
2563 REGB0
= TAG_Int(10);
2564 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2565 once_value_1
= fra
.me
.REG
[3];
2566 register_static_object(&once_value_1
);
2567 } else fra
.me
.REG
[3] = once_value_1
;
2568 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2569 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2570 fra
.me
.REG
[3] = CALL_icode___icode_base___IAttrRead___property(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2571 fra
.me
.REG
[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
2572 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2573 if (!once_value_2
) {
2574 fra
.me
.REG
[3] = BOX_NativeString("(");
2576 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2577 once_value_2
= fra
.me
.REG
[3];
2578 register_static_object(&once_value_2
);
2579 } else fra
.me
.REG
[3] = once_value_2
;
2580 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2581 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2582 fra
.me
.REG
[0] = CALL_icode___icode_base___ICode1___expr(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2583 fra
.me
.REG
[0] = CALL_analysis___icode_dump___ICodeDumper___register(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2584 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2585 if (!once_value_3
) {
2586 fra
.me
.REG
[0] = BOX_NativeString(")");
2588 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2589 once_value_3
= fra
.me
.REG
[0];
2590 register_static_object(&once_value_3
);
2591 } else fra
.me
.REG
[0] = once_value_3
;
2592 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2593 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2594 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
2597 stack_frame_head
= fra
.me
.prev
;
2598 return fra
.me
.REG
[2];
2600 val_t
analysis___icode_dump___IAttrWrite___dump_intern(val_t p0
, val_t p1
){
2601 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
2604 static val_t once_value_1
; /* Once value */
2605 static val_t once_value_2
; /* Once value */
2606 static val_t once_value_3
; /* Once value */
2607 static val_t once_value_4
; /* Once value */
2608 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2609 fra
.me
.file
= LOCATE_analysis___icode_dump
;
2611 fra
.me
.meth
= LOCATE_analysis___icode_dump___IAttrWrite___dump_intern
;
2612 fra
.me
.has_broke
= 0;
2613 fra
.me
.REG_size
= 4;
2614 fra
.me
.nitni_local_ref_head
= NULL
;
2615 fra
.me
.REG
[0] = NIT_NULL
;
2616 fra
.me
.REG
[1] = NIT_NULL
;
2617 fra
.me
.REG
[2] = NIT_NULL
;
2618 fra
.me
.REG
[3] = NIT_NULL
;
2621 /* analysis/icode_dump.nit:353 */
2623 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2624 if (!once_value_1
) {
2625 fra
.me
.REG
[3] = BOX_NativeString("ATTR_WRITE ");
2626 REGB0
= TAG_Int(11);
2627 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2628 once_value_1
= fra
.me
.REG
[3];
2629 register_static_object(&once_value_1
);
2630 } else fra
.me
.REG
[3] = once_value_1
;
2631 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2632 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2633 fra
.me
.REG
[3] = CALL_icode___icode_base___IAttrWrite___property(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2634 fra
.me
.REG
[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
2635 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2636 if (!once_value_2
) {
2637 fra
.me
.REG
[3] = BOX_NativeString("(");
2639 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2640 once_value_2
= fra
.me
.REG
[3];
2641 register_static_object(&once_value_2
);
2642 } else fra
.me
.REG
[3] = once_value_2
;
2643 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2644 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2645 fra
.me
.REG
[3] = CALL_icode___icode_base___ICode2___expr1(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2646 fra
.me
.REG
[3] = CALL_analysis___icode_dump___ICodeDumper___register(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[3]);
2647 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2648 if (!once_value_3
) {
2649 fra
.me
.REG
[3] = BOX_NativeString(") := ");
2651 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2652 once_value_3
= fra
.me
.REG
[3];
2653 register_static_object(&once_value_3
);
2654 } else fra
.me
.REG
[3] = once_value_3
;
2655 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2656 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2657 fra
.me
.REG
[0] = CALL_icode___icode_base___ICode2___expr2(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2658 fra
.me
.REG
[0] = CALL_analysis___icode_dump___ICodeDumper___register(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2659 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2660 if (!once_value_4
) {
2661 fra
.me
.REG
[0] = BOX_NativeString("");
2663 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2664 once_value_4
= fra
.me
.REG
[0];
2665 register_static_object(&once_value_4
);
2666 } else fra
.me
.REG
[0] = once_value_4
;
2667 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2668 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2669 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
2672 stack_frame_head
= fra
.me
.prev
;
2673 return fra
.me
.REG
[2];
2675 val_t
analysis___icode_dump___IAttrIsset___dump_intern(val_t p0
, val_t p1
){
2676 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
2679 static val_t once_value_1
; /* Once value */
2680 static val_t once_value_2
; /* Once value */
2681 static val_t once_value_3
; /* Once value */
2682 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2683 fra
.me
.file
= LOCATE_analysis___icode_dump
;
2685 fra
.me
.meth
= LOCATE_analysis___icode_dump___IAttrIsset___dump_intern
;
2686 fra
.me
.has_broke
= 0;
2687 fra
.me
.REG_size
= 4;
2688 fra
.me
.nitni_local_ref_head
= NULL
;
2689 fra
.me
.REG
[0] = NIT_NULL
;
2690 fra
.me
.REG
[1] = NIT_NULL
;
2691 fra
.me
.REG
[2] = NIT_NULL
;
2692 fra
.me
.REG
[3] = NIT_NULL
;
2695 /* analysis/icode_dump.nit:360 */
2697 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2698 if (!once_value_1
) {
2699 fra
.me
.REG
[3] = BOX_NativeString("ATTR_ISSET ");
2700 REGB0
= TAG_Int(11);
2701 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2702 once_value_1
= fra
.me
.REG
[3];
2703 register_static_object(&once_value_1
);
2704 } else fra
.me
.REG
[3] = once_value_1
;
2705 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2706 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2707 fra
.me
.REG
[3] = CALL_icode___icode_base___IAttrIsset___property(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2708 fra
.me
.REG
[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
2709 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2710 if (!once_value_2
) {
2711 fra
.me
.REG
[3] = BOX_NativeString("(");
2713 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2714 once_value_2
= fra
.me
.REG
[3];
2715 register_static_object(&once_value_2
);
2716 } else fra
.me
.REG
[3] = once_value_2
;
2717 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2718 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2719 fra
.me
.REG
[0] = CALL_icode___icode_base___ICode1___expr(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2720 fra
.me
.REG
[0] = CALL_analysis___icode_dump___ICodeDumper___register(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2721 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2722 if (!once_value_3
) {
2723 fra
.me
.REG
[0] = BOX_NativeString(")");
2725 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2726 once_value_3
= fra
.me
.REG
[0];
2727 register_static_object(&once_value_3
);
2728 } else fra
.me
.REG
[0] = once_value_3
;
2729 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2730 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2731 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
2734 stack_frame_head
= fra
.me
.prev
;
2735 return fra
.me
.REG
[2];
2737 val_t
analysis___icode_dump___ITypeCheck___dump_intern(val_t p0
, val_t p1
){
2738 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
2741 static val_t once_value_1
; /* Once value */
2742 static val_t once_value_2
; /* Once value */
2743 static val_t once_value_3
; /* Once value */
2744 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2745 fra
.me
.file
= LOCATE_analysis___icode_dump
;
2747 fra
.me
.meth
= LOCATE_analysis___icode_dump___ITypeCheck___dump_intern
;
2748 fra
.me
.has_broke
= 0;
2749 fra
.me
.REG_size
= 4;
2750 fra
.me
.nitni_local_ref_head
= NULL
;
2751 fra
.me
.REG
[0] = NIT_NULL
;
2752 fra
.me
.REG
[1] = NIT_NULL
;
2753 fra
.me
.REG
[2] = NIT_NULL
;
2754 fra
.me
.REG
[3] = NIT_NULL
;
2757 /* analysis/icode_dump.nit:367 */
2759 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2760 if (!once_value_1
) {
2761 fra
.me
.REG
[3] = BOX_NativeString("CHECKTYPE ");
2762 REGB0
= TAG_Int(10);
2763 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2764 once_value_1
= fra
.me
.REG
[3];
2765 register_static_object(&once_value_1
);
2766 } else fra
.me
.REG
[3] = once_value_1
;
2767 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2768 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2769 fra
.me
.REG
[3] = CALL_icode___icode_base___ICode2___expr2(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2770 fra
.me
.REG
[3] = CALL_analysis___icode_dump___ICodeDumper___register(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[3]);
2771 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2772 if (!once_value_2
) {
2773 fra
.me
.REG
[3] = BOX_NativeString(" isa ");
2775 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2776 once_value_2
= fra
.me
.REG
[3];
2777 register_static_object(&once_value_2
);
2778 } else fra
.me
.REG
[3] = once_value_2
;
2779 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2780 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2781 fra
.me
.REG
[0] = CALL_icode___icode_base___ITypeCheck___stype(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2782 fra
.me
.REG
[0] = CALL_standard___string___Object___to_s(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2783 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2784 if (!once_value_3
) {
2785 fra
.me
.REG
[0] = BOX_NativeString("");
2787 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2788 once_value_3
= fra
.me
.REG
[0];
2789 register_static_object(&once_value_3
);
2790 } else fra
.me
.REG
[0] = once_value_3
;
2791 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2792 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2793 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
2796 stack_frame_head
= fra
.me
.prev
;
2797 return fra
.me
.REG
[2];
2799 val_t
analysis___icode_dump___INative___dump_intern(val_t p0
, val_t p1
){
2800 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
2803 static val_t once_value_1
; /* Once value */
2804 static val_t once_value_2
; /* Once value */
2805 static val_t once_value_3
; /* Once value */
2806 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2807 fra
.me
.file
= LOCATE_analysis___icode_dump
;
2809 fra
.me
.meth
= LOCATE_analysis___icode_dump___INative___dump_intern
;
2810 fra
.me
.has_broke
= 0;
2811 fra
.me
.REG_size
= 4;
2812 fra
.me
.nitni_local_ref_head
= NULL
;
2813 fra
.me
.REG
[0] = NIT_NULL
;
2814 fra
.me
.REG
[1] = NIT_NULL
;
2815 fra
.me
.REG
[2] = NIT_NULL
;
2816 fra
.me
.REG
[3] = NIT_NULL
;
2819 /* analysis/icode_dump.nit:374 */
2821 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2822 if (!once_value_1
) {
2823 fra
.me
.REG
[3] = BOX_NativeString("NATIVE \"");
2825 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2826 once_value_1
= fra
.me
.REG
[3];
2827 register_static_object(&once_value_1
);
2828 } else fra
.me
.REG
[3] = once_value_1
;
2829 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2830 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2831 fra
.me
.REG
[3] = CALL_icode___icode_base___INative___method(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2832 fra
.me
.REG
[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
2833 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2834 if (!once_value_2
) {
2835 fra
.me
.REG
[3] = BOX_NativeString("\"(");
2837 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2838 once_value_2
= fra
.me
.REG
[3];
2839 register_static_object(&once_value_2
);
2840 } else fra
.me
.REG
[3] = once_value_2
;
2841 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2842 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2843 fra
.me
.REG
[0] = CALL_icode___icode_base___ICodeN___exprs(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2844 fra
.me
.REG
[0] = CALL_analysis___icode_dump___ICodeDumper___register_all(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2845 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2846 if (!once_value_3
) {
2847 fra
.me
.REG
[0] = BOX_NativeString(")");
2849 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2850 once_value_3
= fra
.me
.REG
[0];
2851 register_static_object(&once_value_3
);
2852 } else fra
.me
.REG
[0] = once_value_3
;
2853 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2854 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
2855 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
2858 stack_frame_head
= fra
.me
.prev
;
2859 return fra
.me
.REG
[2];
2861 val_t
analysis___icode_dump___IIntValue___dump_intern(val_t p0
, val_t p1
){
2862 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
2865 static val_t once_value_1
; /* Once value */
2866 static val_t once_value_2
; /* Once value */
2867 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2868 fra
.me
.file
= LOCATE_analysis___icode_dump
;
2870 fra
.me
.meth
= LOCATE_analysis___icode_dump___IIntValue___dump_intern
;
2871 fra
.me
.has_broke
= 0;
2872 fra
.me
.REG_size
= 3;
2873 fra
.me
.nitni_local_ref_head
= NULL
;
2874 fra
.me
.REG
[0] = NIT_NULL
;
2875 fra
.me
.REG
[1] = NIT_NULL
;
2876 fra
.me
.REG
[2] = NIT_NULL
;
2879 /* analysis/icode_dump.nit:381 */
2881 fra
.me
.REG
[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2882 if (!once_value_1
) {
2883 fra
.me
.REG
[2] = BOX_NativeString("INTVALUE ");
2885 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
2886 once_value_1
= fra
.me
.REG
[2];
2887 register_static_object(&once_value_1
);
2888 } else fra
.me
.REG
[2] = once_value_1
;
2889 fra
.me
.REG
[2] = fra
.me
.REG
[2];
2890 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
2891 fra
.me
.REG
[0] = CALL_icode___icode_base___IIntValue___value(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2892 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2893 if (!once_value_2
) {
2894 fra
.me
.REG
[0] = BOX_NativeString("");
2896 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2897 once_value_2
= fra
.me
.REG
[0];
2898 register_static_object(&once_value_2
);
2899 } else fra
.me
.REG
[0] = once_value_2
;
2900 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2901 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2902 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
2905 stack_frame_head
= fra
.me
.prev
;
2906 return fra
.me
.REG
[1];
2908 val_t
analysis___icode_dump___IBoolValue___dump_intern(val_t p0
, val_t p1
){
2909 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
2912 static val_t once_value_1
; /* Once value */
2913 static val_t once_value_2
; /* Once value */
2914 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2915 fra
.me
.file
= LOCATE_analysis___icode_dump
;
2917 fra
.me
.meth
= LOCATE_analysis___icode_dump___IBoolValue___dump_intern
;
2918 fra
.me
.has_broke
= 0;
2919 fra
.me
.REG_size
= 3;
2920 fra
.me
.nitni_local_ref_head
= NULL
;
2921 fra
.me
.REG
[0] = NIT_NULL
;
2922 fra
.me
.REG
[1] = NIT_NULL
;
2923 fra
.me
.REG
[2] = NIT_NULL
;
2926 /* analysis/icode_dump.nit:388 */
2928 fra
.me
.REG
[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2929 if (!once_value_1
) {
2930 fra
.me
.REG
[2] = BOX_NativeString("BOOLVALUE ");
2931 REGB0
= TAG_Int(10);
2932 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
2933 once_value_1
= fra
.me
.REG
[2];
2934 register_static_object(&once_value_1
);
2935 } else fra
.me
.REG
[2] = once_value_1
;
2936 fra
.me
.REG
[2] = fra
.me
.REG
[2];
2937 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
2938 REGB0
= CALL_icode___icode_base___IBoolValue___value(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2939 fra
.me
.REG
[0] = CALL_standard___string___Object___to_s(REGB0
)(REGB0
);
2940 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2941 if (!once_value_2
) {
2942 fra
.me
.REG
[0] = BOX_NativeString("");
2944 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2945 once_value_2
= fra
.me
.REG
[0];
2946 register_static_object(&once_value_2
);
2947 } else fra
.me
.REG
[0] = once_value_2
;
2948 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2949 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2950 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
2953 stack_frame_head
= fra
.me
.prev
;
2954 return fra
.me
.REG
[1];
2956 val_t
analysis___icode_dump___IStringValue___dump_intern(val_t p0
, val_t p1
){
2957 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
2960 static val_t once_value_1
; /* Once value */
2961 static val_t once_value_2
; /* Once value */
2962 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2963 fra
.me
.file
= LOCATE_analysis___icode_dump
;
2965 fra
.me
.meth
= LOCATE_analysis___icode_dump___IStringValue___dump_intern
;
2966 fra
.me
.has_broke
= 0;
2967 fra
.me
.REG_size
= 3;
2968 fra
.me
.nitni_local_ref_head
= NULL
;
2969 fra
.me
.REG
[0] = NIT_NULL
;
2970 fra
.me
.REG
[1] = NIT_NULL
;
2971 fra
.me
.REG
[2] = NIT_NULL
;
2974 /* analysis/icode_dump.nit:395 */
2976 fra
.me
.REG
[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2977 if (!once_value_1
) {
2978 fra
.me
.REG
[2] = BOX_NativeString("STRINGVALUE ");
2979 REGB0
= TAG_Int(12);
2980 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
2981 once_value_1
= fra
.me
.REG
[2];
2982 register_static_object(&once_value_1
);
2983 } else fra
.me
.REG
[2] = once_value_1
;
2984 fra
.me
.REG
[2] = fra
.me
.REG
[2];
2985 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
2986 fra
.me
.REG
[0] = CALL_icode___icode_base___IStringValue___value(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2987 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2988 if (!once_value_2
) {
2989 fra
.me
.REG
[0] = BOX_NativeString("");
2991 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2992 once_value_2
= fra
.me
.REG
[0];
2993 register_static_object(&once_value_2
);
2994 } else fra
.me
.REG
[0] = once_value_2
;
2995 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2996 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2997 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
3000 stack_frame_head
= fra
.me
.prev
;
3001 return fra
.me
.REG
[1];
3003 val_t
analysis___icode_dump___ICharValue___dump_intern(val_t p0
, val_t p1
){
3004 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
3007 static val_t once_value_1
; /* Once value */
3008 static val_t once_value_2
; /* Once value */
3009 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
3010 fra
.me
.file
= LOCATE_analysis___icode_dump
;
3012 fra
.me
.meth
= LOCATE_analysis___icode_dump___ICharValue___dump_intern
;
3013 fra
.me
.has_broke
= 0;
3014 fra
.me
.REG_size
= 3;
3015 fra
.me
.nitni_local_ref_head
= NULL
;
3016 fra
.me
.REG
[0] = NIT_NULL
;
3017 fra
.me
.REG
[1] = NIT_NULL
;
3018 fra
.me
.REG
[2] = NIT_NULL
;
3021 /* analysis/icode_dump.nit:402 */
3023 fra
.me
.REG
[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
3024 if (!once_value_1
) {
3025 fra
.me
.REG
[2] = BOX_NativeString("CHARVALUE ");
3026 REGB0
= TAG_Int(10);
3027 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
3028 once_value_1
= fra
.me
.REG
[2];
3029 register_static_object(&once_value_1
);
3030 } else fra
.me
.REG
[2] = once_value_1
;
3031 fra
.me
.REG
[2] = fra
.me
.REG
[2];
3032 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
3033 fra
.me
.REG
[0] = CALL_icode___icode_base___ICharValue___value(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
3034 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
3035 if (!once_value_2
) {
3036 fra
.me
.REG
[0] = BOX_NativeString("");
3038 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
3039 once_value_2
= fra
.me
.REG
[0];
3040 register_static_object(&once_value_2
);
3041 } else fra
.me
.REG
[0] = once_value_2
;
3042 fra
.me
.REG
[0] = fra
.me
.REG
[0];
3043 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
3044 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
3047 stack_frame_head
= fra
.me
.prev
;
3048 return fra
.me
.REG
[1];
3050 val_t
analysis___icode_dump___IFloatValue___dump_intern(val_t p0
, val_t p1
){
3051 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
3054 static val_t once_value_1
; /* Once value */
3055 static val_t once_value_2
; /* Once value */
3056 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
3057 fra
.me
.file
= LOCATE_analysis___icode_dump
;
3059 fra
.me
.meth
= LOCATE_analysis___icode_dump___IFloatValue___dump_intern
;
3060 fra
.me
.has_broke
= 0;
3061 fra
.me
.REG_size
= 3;
3062 fra
.me
.nitni_local_ref_head
= NULL
;
3063 fra
.me
.REG
[0] = NIT_NULL
;
3064 fra
.me
.REG
[1] = NIT_NULL
;
3065 fra
.me
.REG
[2] = NIT_NULL
;
3068 /* analysis/icode_dump.nit:409 */
3070 fra
.me
.REG
[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
3071 if (!once_value_1
) {
3072 fra
.me
.REG
[2] = BOX_NativeString("FLOATVALUE ");
3073 REGB0
= TAG_Int(11);
3074 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
3075 once_value_1
= fra
.me
.REG
[2];
3076 register_static_object(&once_value_1
);
3077 } else fra
.me
.REG
[2] = once_value_1
;
3078 fra
.me
.REG
[2] = fra
.me
.REG
[2];
3079 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
3080 fra
.me
.REG
[0] = CALL_icode___icode_base___IFloatValue___value(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
3081 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
3082 if (!once_value_2
) {
3083 fra
.me
.REG
[0] = BOX_NativeString("");
3085 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
3086 once_value_2
= fra
.me
.REG
[0];
3087 register_static_object(&once_value_2
);
3088 } else fra
.me
.REG
[0] = once_value_2
;
3089 fra
.me
.REG
[0] = fra
.me
.REG
[0];
3090 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
3091 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
3094 stack_frame_head
= fra
.me
.prev
;
3095 return fra
.me
.REG
[1];
3097 val_t
analysis___icode_dump___IMove___dump_intern(val_t p0
, val_t p1
){
3098 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
3101 static val_t once_value_1
; /* Once value */
3102 static val_t once_value_2
; /* Once value */
3103 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
3104 fra
.me
.file
= LOCATE_analysis___icode_dump
;
3106 fra
.me
.meth
= LOCATE_analysis___icode_dump___IMove___dump_intern
;
3107 fra
.me
.has_broke
= 0;
3108 fra
.me
.REG_size
= 4;
3109 fra
.me
.nitni_local_ref_head
= NULL
;
3110 fra
.me
.REG
[0] = NIT_NULL
;
3111 fra
.me
.REG
[1] = NIT_NULL
;
3112 fra
.me
.REG
[2] = NIT_NULL
;
3113 fra
.me
.REG
[3] = NIT_NULL
;
3116 /* analysis/icode_dump.nit:416 */
3118 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
3119 if (!once_value_1
) {
3120 fra
.me
.REG
[3] = BOX_NativeString("");
3122 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
3123 once_value_1
= fra
.me
.REG
[3];
3124 register_static_object(&once_value_1
);
3125 } else fra
.me
.REG
[3] = once_value_1
;
3126 fra
.me
.REG
[3] = fra
.me
.REG
[3];
3127 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
3128 fra
.me
.REG
[0] = CALL_icode___icode_base___ICode1___expr(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
3129 fra
.me
.REG
[0] = CALL_analysis___icode_dump___ICodeDumper___register(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
3130 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
3131 if (!once_value_2
) {
3132 fra
.me
.REG
[0] = BOX_NativeString("");
3134 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
3135 once_value_2
= fra
.me
.REG
[0];
3136 register_static_object(&once_value_2
);
3137 } else fra
.me
.REG
[0] = once_value_2
;
3138 fra
.me
.REG
[0] = fra
.me
.REG
[0];
3139 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
3140 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
3143 stack_frame_head
= fra
.me
.prev
;
3144 return fra
.me
.REG
[2];
3146 val_t
analysis___icode_dump___IIs___dump_intern(val_t p0
, val_t p1
){
3147 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
3150 static val_t once_value_1
; /* Once value */
3151 static val_t once_value_2
; /* Once value */
3152 static val_t once_value_3
; /* Once value */
3153 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
3154 fra
.me
.file
= LOCATE_analysis___icode_dump
;
3156 fra
.me
.meth
= LOCATE_analysis___icode_dump___IIs___dump_intern
;
3157 fra
.me
.has_broke
= 0;
3158 fra
.me
.REG_size
= 4;
3159 fra
.me
.nitni_local_ref_head
= NULL
;
3160 fra
.me
.REG
[0] = NIT_NULL
;
3161 fra
.me
.REG
[1] = NIT_NULL
;
3162 fra
.me
.REG
[2] = NIT_NULL
;
3163 fra
.me
.REG
[3] = NIT_NULL
;
3166 /* analysis/icode_dump.nit:423 */
3168 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
3169 if (!once_value_1
) {
3170 fra
.me
.REG
[3] = BOX_NativeString("");
3172 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
3173 once_value_1
= fra
.me
.REG
[3];
3174 register_static_object(&once_value_1
);
3175 } else fra
.me
.REG
[3] = once_value_1
;
3176 fra
.me
.REG
[3] = fra
.me
.REG
[3];
3177 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
3178 fra
.me
.REG
[3] = CALL_icode___icode_base___ICode2___expr1(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
3179 fra
.me
.REG
[3] = CALL_analysis___icode_dump___ICodeDumper___register(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[3]);
3180 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
3181 if (!once_value_2
) {
3182 fra
.me
.REG
[3] = BOX_NativeString(" is ");
3184 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
3185 once_value_2
= fra
.me
.REG
[3];
3186 register_static_object(&once_value_2
);
3187 } else fra
.me
.REG
[3] = once_value_2
;
3188 fra
.me
.REG
[3] = fra
.me
.REG
[3];
3189 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
3190 fra
.me
.REG
[0] = CALL_icode___icode_base___ICode2___expr2(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
3191 fra
.me
.REG
[0] = CALL_analysis___icode_dump___ICodeDumper___register(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
3192 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
3193 if (!once_value_3
) {
3194 fra
.me
.REG
[0] = BOX_NativeString("");
3196 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
3197 once_value_3
= fra
.me
.REG
[0];
3198 register_static_object(&once_value_3
);
3199 } else fra
.me
.REG
[0] = once_value_3
;
3200 fra
.me
.REG
[0] = fra
.me
.REG
[0];
3201 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
3202 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
3205 stack_frame_head
= fra
.me
.prev
;
3206 return fra
.me
.REG
[2];
3208 val_t
analysis___icode_dump___INot___dump_intern(val_t p0
, val_t p1
){
3209 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
3212 static val_t once_value_1
; /* Once value */
3213 static val_t once_value_2
; /* Once value */
3214 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
3215 fra
.me
.file
= LOCATE_analysis___icode_dump
;
3217 fra
.me
.meth
= LOCATE_analysis___icode_dump___INot___dump_intern
;
3218 fra
.me
.has_broke
= 0;
3219 fra
.me
.REG_size
= 4;
3220 fra
.me
.nitni_local_ref_head
= NULL
;
3221 fra
.me
.REG
[0] = NIT_NULL
;
3222 fra
.me
.REG
[1] = NIT_NULL
;
3223 fra
.me
.REG
[2] = NIT_NULL
;
3224 fra
.me
.REG
[3] = NIT_NULL
;
3227 /* analysis/icode_dump.nit:430 */
3229 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
3230 if (!once_value_1
) {
3231 fra
.me
.REG
[3] = BOX_NativeString("NOT ");
3233 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
3234 once_value_1
= fra
.me
.REG
[3];
3235 register_static_object(&once_value_1
);
3236 } else fra
.me
.REG
[3] = once_value_1
;
3237 fra
.me
.REG
[3] = fra
.me
.REG
[3];
3238 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
3239 fra
.me
.REG
[0] = CALL_icode___icode_base___ICode1___expr(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
3240 fra
.me
.REG
[0] = CALL_analysis___icode_dump___ICodeDumper___register(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
3241 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
3242 if (!once_value_2
) {
3243 fra
.me
.REG
[0] = BOX_NativeString("");
3245 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
3246 once_value_2
= fra
.me
.REG
[0];
3247 register_static_object(&once_value_2
);
3248 } else fra
.me
.REG
[0] = once_value_2
;
3249 fra
.me
.REG
[0] = fra
.me
.REG
[0];
3250 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
3251 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
3254 stack_frame_head
= fra
.me
.prev
;
3255 return fra
.me
.REG
[2];
3257 void analysis___icode_dump___IOnce___dump(val_t p0
, val_t p1
){
3258 struct {struct stack_frame_t me
; val_t MORE_REG
[4];} fra
;
3261 static val_t once_value_1
; /* Once value */
3262 static val_t once_value_2
; /* Once value */
3263 static val_t once_value_3
; /* Once value */
3264 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
3265 fra
.me
.file
= LOCATE_analysis___icode_dump
;
3267 fra
.me
.meth
= LOCATE_analysis___icode_dump___IOnce___dump
;
3268 fra
.me
.has_broke
= 0;
3269 fra
.me
.REG_size
= 5;
3270 fra
.me
.nitni_local_ref_head
= NULL
;
3271 fra
.me
.REG
[0] = NIT_NULL
;
3272 fra
.me
.REG
[1] = NIT_NULL
;
3273 fra
.me
.REG
[2] = NIT_NULL
;
3274 fra
.me
.REG
[3] = NIT_NULL
;
3275 fra
.me
.REG
[4] = NIT_NULL
;
3278 /* analysis/icode_dump.nit:435 */
3279 fra
.me
.REG
[2] = fra
.me
.REG
[0];
3280 /* analysis/icode_dump.nit:437 */
3282 fra
.me
.REG
[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
3283 if (!once_value_1
) {
3284 fra
.me
.REG
[4] = BOX_NativeString("");
3286 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB0
);
3287 once_value_1
= fra
.me
.REG
[4];
3288 register_static_object(&once_value_1
);
3289 } else fra
.me
.REG
[4] = once_value_1
;
3290 fra
.me
.REG
[4] = fra
.me
.REG
[4];
3291 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
3292 fra
.me
.REG
[4] = CALL_icode___icode_base___ICode___result(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
3293 REGB0
= TAG_Bool((fra
.me
.REG
[4]!=NIT_NULL
) && VAL_ISA(fra
.me
.REG
[4], COLOR_icode___icode_base___IRegister
, ID_icode___icode_base___IRegister
)) /*cast IRegister*/;
3294 if (UNTAG_Bool(REGB0
)) {
3296 nit_abort("Cast failed", NULL
, LOCATE_analysis___icode_dump
, 437);
3298 fra
.me
.REG
[4] = CALL_analysis___icode_dump___ICodeDumper___register(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[4]);
3299 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
3300 if (!once_value_2
) {
3301 fra
.me
.REG
[4] = BOX_NativeString(" := ONCE {");
3302 REGB0
= TAG_Int(10);
3303 fra
.me
.REG
[4] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[4], REGB0
);
3304 once_value_2
= fra
.me
.REG
[4];
3305 register_static_object(&once_value_2
);
3306 } else fra
.me
.REG
[4] = once_value_2
;
3307 fra
.me
.REG
[4] = fra
.me
.REG
[4];
3308 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[4]);
3309 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
3310 CALL_analysis___icode_dump___ICodeDumper___write(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[3]);
3311 /* analysis/icode_dump.nit:438 */
3312 CALL_analysis___icode_dump___ICodeDumper___indent(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
3313 /* analysis/icode_dump.nit:439 */
3314 fra
.me
.REG
[2] = CALL_icode___icode_base___IOnce___body(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
3315 CALL_analysis___icode_dump___ICode___dump(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
3316 /* analysis/icode_dump.nit:440 */
3317 CALL_analysis___icode_dump___ICodeDumper___unindent(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
3318 /* analysis/icode_dump.nit:441 */
3319 if (!once_value_3
) {
3320 fra
.me
.REG
[2] = BOX_NativeString("}");
3322 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
3323 once_value_3
= fra
.me
.REG
[2];
3324 register_static_object(&once_value_3
);
3325 } else fra
.me
.REG
[2] = once_value_3
;
3326 fra
.me
.REG
[2] = fra
.me
.REG
[2];
3327 CALL_analysis___icode_dump___ICodeDumper___write(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
3328 stack_frame_head
= fra
.me
.prev
;
3331 val_t
analysis___icode_dump___IHasClos___dump_intern(val_t p0
, val_t p1
){
3332 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
3335 static val_t once_value_1
; /* Once value */
3336 static val_t once_value_2
; /* Once value */
3337 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
3338 fra
.me
.file
= LOCATE_analysis___icode_dump
;
3340 fra
.me
.meth
= LOCATE_analysis___icode_dump___IHasClos___dump_intern
;
3341 fra
.me
.has_broke
= 0;
3342 fra
.me
.REG_size
= 4;
3343 fra
.me
.nitni_local_ref_head
= NULL
;
3344 fra
.me
.REG
[0] = NIT_NULL
;
3345 fra
.me
.REG
[1] = NIT_NULL
;
3346 fra
.me
.REG
[2] = NIT_NULL
;
3347 fra
.me
.REG
[3] = NIT_NULL
;
3350 /* analysis/icode_dump.nit:448 */
3352 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
3353 if (!once_value_1
) {
3354 fra
.me
.REG
[3] = BOX_NativeString("HASCLOS ");
3356 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
3357 once_value_1
= fra
.me
.REG
[3];
3358 register_static_object(&once_value_1
);
3359 } else fra
.me
.REG
[3] = once_value_1
;
3360 fra
.me
.REG
[3] = fra
.me
.REG
[3];
3361 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
3362 fra
.me
.REG
[0] = CALL_icode___icode_base___IHasClos___closure_decl(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
3363 fra
.me
.REG
[0] = CALL_analysis___icode_dump___ICodeDumper___closdecl(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
3364 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
3365 if (!once_value_2
) {
3366 fra
.me
.REG
[0] = BOX_NativeString("");
3368 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
3369 once_value_2
= fra
.me
.REG
[0];
3370 register_static_object(&once_value_2
);
3371 } else fra
.me
.REG
[0] = once_value_2
;
3372 fra
.me
.REG
[0] = fra
.me
.REG
[0];
3373 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
3374 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
3377 stack_frame_head
= fra
.me
.prev
;
3378 return fra
.me
.REG
[2];