1 /* This C file is generated by NIT to compile module nitc. */
3 void nitc___NitCompiler___process_options(val_t p0
){
4 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
8 static val_t once_value_1
; /* Once value */
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 static val_t once_value_11
; /* Once value */
19 static val_t once_value_12
; /* Once value */
20 static val_t once_value_13
; /* Once value */
21 static val_t once_value_14
; /* Once value */
22 static val_t once_value_15
; /* Once value */
23 static val_t once_value_16
; /* Once value */
24 static val_t once_value_17
; /* Once value */
25 static val_t once_value_18
; /* Once value */
26 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
27 fra
.me
.file
= LOCATE_nitc
;
29 fra
.me
.meth
= LOCATE_nitc___NitCompiler___process_options
;
32 fra
.me
.REG
[0] = NIT_NULL
;
33 fra
.me
.REG
[1] = NIT_NULL
;
34 fra
.me
.REG
[2] = NIT_NULL
;
35 fra
.me
.REG
[3] = NIT_NULL
;
37 fra
.me
.REG
[1] = fra
.me
.REG
[0];
39 CALL_SUPER_nitc___NitCompiler___process_options(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
40 fra
.me
.REG
[0] = CALL_nitc___NitCompiler___opt_output(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
41 fra
.me
.REG
[0] = CALL_opts___Option___value(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
43 CALL_compiling_base___ToolContext___output_file__eq(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
44 fra
.me
.REG
[0] = CALL_nitc___NitCompiler___opt_boost(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
45 fra
.me
.REG
[0] = CALL_opts___Option___value(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
47 CALL_compiling_base___ToolContext___boost__eq(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
48 fra
.me
.REG
[0] = CALL_nitc___NitCompiler___opt_no_cc(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
49 fra
.me
.REG
[0] = CALL_opts___Option___value(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
51 CALL_compiling_base___ToolContext___no_cc__eq(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
52 fra
.me
.REG
[0] = CALL_nitc___NitCompiler___opt_extension_prefix(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
53 fra
.me
.REG
[0] = CALL_opts___Option___value(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
54 REGB0
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
56 if (UNTAG_Bool(REGB0
)) {
58 REGB1
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
59 if (UNTAG_Bool(REGB1
)) {
60 REGB1
= TAG_Bool(false);
63 REGB1
= CALL_kernel___Object_____eqeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], NIT_NULL
);
67 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
68 if (UNTAG_Bool(REGB0
)) {
69 CALL_compiling_base___ToolContext___ext_prefix__eq(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
72 fra
.me
.REG
[0] = BOX_NativeString("");
74 fra
.me
.REG
[0] = NEW_String_string___String___with_native(fra
.me
.REG
[0], REGB0
);
75 once_value_1
= fra
.me
.REG
[0];
76 register_static_object(&once_value_1
);
77 } else fra
.me
.REG
[0] = once_value_1
;
78 CALL_compiling_base___ToolContext___ext_prefix__eq(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
80 fra
.me
.REG
[0] = CALL_nitc___NitCompiler___opt_global(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
81 fra
.me
.REG
[0] = CALL_opts___Option___value(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
83 CALL_compiling_base___ToolContext___global__eq(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
84 fra
.me
.REG
[0] = CALL_nitc___NitCompiler___opt_compdir(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
85 fra
.me
.REG
[0] = CALL_opts___Option___value(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
87 CALL_compiling_base___ToolContext___compdir__eq(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
88 fra
.me
.REG
[0] = CALL_compiling_base___ToolContext___compdir(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
89 REGB0
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
91 if (UNTAG_Bool(REGB0
)) {
93 REGB1
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
94 if (UNTAG_Bool(REGB1
)) {
95 REGB1
= TAG_Bool(false);
98 REGB1
= CALL_kernel___Object_____eqeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], NIT_NULL
);
102 if (UNTAG_Bool(REGB0
)) {
106 fra
.me
.REG
[0] = BOX_NativeString("NIT_COMPDIR");
108 fra
.me
.REG
[0] = NEW_String_string___String___with_native(fra
.me
.REG
[0], REGB0
);
109 once_value_3
= fra
.me
.REG
[0];
110 register_static_object(&once_value_3
);
111 } else fra
.me
.REG
[0] = once_value_3
;
112 fra
.me
.REG
[0] = CALL_symbol___String___to_symbol(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
113 fra
.me
.REG
[0] = CALL_environ___Symbol___environ(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
114 once_value_2
= fra
.me
.REG
[0];
115 register_static_object(&once_value_2
);
116 } else fra
.me
.REG
[0] = once_value_2
;
117 REGB0
= CALL_abstract_collection___Collection___is_empty(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
118 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
120 if (UNTAG_Bool(REGB0
)) {
122 CALL_compiling_base___ToolContext___compdir__eq(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
124 fra
.me
.REG
[0] = CALL_compiling_base___ToolContext___compdir(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
125 REGB0
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
127 if (UNTAG_Bool(REGB0
)) {
129 REGB1
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
130 if (UNTAG_Bool(REGB1
)) {
131 REGB1
= TAG_Bool(false);
134 REGB1
= CALL_kernel___Object_____eqeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], NIT_NULL
);
138 if (UNTAG_Bool(REGB0
)) {
141 fra
.me
.REG
[0] = BOX_NativeString(".nit_compile");
143 fra
.me
.REG
[0] = NEW_String_string___String___with_native(fra
.me
.REG
[0], REGB0
);
144 once_value_4
= fra
.me
.REG
[0];
145 register_static_object(&once_value_4
);
146 } else fra
.me
.REG
[0] = once_value_4
;
147 CALL_compiling_base___ToolContext___compdir__eq(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
150 fra
.me
.REG
[0] = CALL_compiling_base___ToolContext___compdir(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
151 fra
.me
.REG
[2] = CALL_compiling_base___ToolContext___ext_prefix(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
152 fra
.me
.REG
[2] = CALL_string___String_____plus(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[2]);
154 CALL_compiling_base___ToolContext___compdir__eq(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
155 fra
.me
.REG
[2] = CALL_nitc___NitCompiler___opt_clibdir(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
156 fra
.me
.REG
[2] = CALL_opts___Option___value(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
158 CALL_compiling_base___ToolContext___clibdir__eq(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
159 fra
.me
.REG
[2] = CALL_compiling_base___ToolContext___clibdir(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
160 REGB0
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
162 if (UNTAG_Bool(REGB0
)) {
164 REGB1
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
165 if (UNTAG_Bool(REGB1
)) {
166 REGB1
= TAG_Bool(false);
169 REGB1
= CALL_kernel___Object_____eqeq(fra
.me
.REG
[2])(fra
.me
.REG
[2], NIT_NULL
);
173 if (UNTAG_Bool(REGB0
)) {
177 fra
.me
.REG
[2] = BOX_NativeString("NIT_DIR");
179 fra
.me
.REG
[2] = NEW_String_string___String___with_native(fra
.me
.REG
[2], REGB0
);
180 once_value_6
= fra
.me
.REG
[2];
181 register_static_object(&once_value_6
);
182 } else fra
.me
.REG
[2] = once_value_6
;
183 fra
.me
.REG
[2] = CALL_symbol___String___to_symbol(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
184 fra
.me
.REG
[2] = CALL_environ___Symbol___environ(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
185 once_value_5
= fra
.me
.REG
[2];
186 register_static_object(&once_value_5
);
187 } else fra
.me
.REG
[2] = once_value_5
;
188 REGB0
= CALL_abstract_collection___Collection___is_empty(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
190 if (UNTAG_Bool(REGB0
)) {
192 fra
.me
.REG
[0] = NEW_Array_array___Array___with_capacity(REGB0
);
195 fra
.me
.REG
[3] = BOX_NativeString("");
197 fra
.me
.REG
[3] = NEW_String_string___String___with_native(fra
.me
.REG
[3], REGB0
);
198 once_value_7
= fra
.me
.REG
[3];
199 register_static_object(&once_value_7
);
200 } else fra
.me
.REG
[3] = once_value_7
;
201 array___Array___add(fra
.me
.REG
[0], fra
.me
.REG
[3]);
202 fra
.me
.REG
[3] = CALL_kernel___Object___sys(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
203 fra
.me
.REG
[3] = CALL_string___Sys___program_name(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
204 fra
.me
.REG
[3] = CALL_file___String___dirname(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
205 array___Array___add(fra
.me
.REG
[0], fra
.me
.REG
[3]);
207 fra
.me
.REG
[3] = BOX_NativeString("/../clib");
209 fra
.me
.REG
[3] = NEW_String_string___String___with_native(fra
.me
.REG
[3], REGB0
);
210 once_value_8
= fra
.me
.REG
[3];
211 register_static_object(&once_value_8
);
212 } else fra
.me
.REG
[3] = once_value_8
;
213 array___Array___add(fra
.me
.REG
[0], fra
.me
.REG
[3]);
214 fra
.me
.REG
[0] = CALL_string___Object___to_s(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
215 fra
.me
.REG
[2] = fra
.me
.REG
[0];
216 REGB0
= CALL_file___String___file_exists(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
218 if (UNTAG_Bool(REGB0
)) {
219 CALL_compiling_base___ToolContext___clibdir__eq(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
223 fra
.me
.REG
[0] = NEW_Array_array___Array___with_capacity(REGB0
);
226 fra
.me
.REG
[3] = BOX_NativeString("");
228 fra
.me
.REG
[3] = NEW_String_string___String___with_native(fra
.me
.REG
[3], REGB0
);
229 once_value_9
= fra
.me
.REG
[3];
230 register_static_object(&once_value_9
);
231 } else fra
.me
.REG
[3] = once_value_9
;
232 array___Array___add(fra
.me
.REG
[0], fra
.me
.REG
[3]);
233 array___Array___add(fra
.me
.REG
[0], fra
.me
.REG
[2]);
234 if (!once_value_10
) {
235 fra
.me
.REG
[3] = BOX_NativeString("/clib");
237 fra
.me
.REG
[3] = NEW_String_string___String___with_native(fra
.me
.REG
[3], REGB0
);
238 once_value_10
= fra
.me
.REG
[3];
239 register_static_object(&once_value_10
);
240 } else fra
.me
.REG
[3] = once_value_10
;
241 array___Array___add(fra
.me
.REG
[0], fra
.me
.REG
[3]);
242 fra
.me
.REG
[0] = CALL_string___Object___to_s(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
243 fra
.me
.REG
[2] = fra
.me
.REG
[0];
244 REGB0
= CALL_file___String___file_exists(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
246 if (UNTAG_Bool(REGB0
)) {
247 CALL_compiling_base___ToolContext___clibdir__eq(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
250 fra
.me
.REG
[2] = CALL_compiling_base___ToolContext___clibdir(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
251 REGB0
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
253 if (UNTAG_Bool(REGB0
)) {
255 REGB1
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
256 if (UNTAG_Bool(REGB1
)) {
257 REGB1
= TAG_Bool(false);
260 REGB1
= CALL_kernel___Object_____eqeq(fra
.me
.REG
[2])(fra
.me
.REG
[2], NIT_NULL
);
264 if (UNTAG_Bool(REGB0
)) {
266 if (!once_value_11
) {
267 fra
.me
.REG
[2] = BOX_NativeString("Error: Cannot locate NIT C library directory. Uses --clibdir or envvar NIT_DIR.");
269 fra
.me
.REG
[2] = NEW_String_string___String___with_native(fra
.me
.REG
[2], REGB0
);
270 once_value_11
= fra
.me
.REG
[2];
271 register_static_object(&once_value_11
);
272 } else fra
.me
.REG
[2] = once_value_11
;
273 CALL_mmloader___ToolContext___fatal_error(fra
.me
.REG
[1])(fra
.me
.REG
[1], NIT_NULL
, fra
.me
.REG
[2]);
276 fra
.me
.REG
[2] = CALL_nitc___NitCompiler___opt_bindir(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
277 fra
.me
.REG
[2] = CALL_opts___Option___value(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
279 CALL_compiling_base___ToolContext___bindir__eq(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
280 fra
.me
.REG
[2] = CALL_compiling_base___ToolContext___bindir(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
281 REGB0
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
283 if (UNTAG_Bool(REGB0
)) {
285 REGB1
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
286 if (UNTAG_Bool(REGB1
)) {
287 REGB1
= TAG_Bool(false);
290 REGB1
= CALL_kernel___Object_____eqeq(fra
.me
.REG
[2])(fra
.me
.REG
[2], NIT_NULL
);
294 if (UNTAG_Bool(REGB0
)) {
296 if (!once_value_12
) {
297 if (!once_value_13
) {
298 fra
.me
.REG
[2] = BOX_NativeString("NIT_DIR");
300 fra
.me
.REG
[2] = NEW_String_string___String___with_native(fra
.me
.REG
[2], REGB0
);
301 once_value_13
= fra
.me
.REG
[2];
302 register_static_object(&once_value_13
);
303 } else fra
.me
.REG
[2] = once_value_13
;
304 fra
.me
.REG
[2] = CALL_symbol___String___to_symbol(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
305 fra
.me
.REG
[2] = CALL_environ___Symbol___environ(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
306 once_value_12
= fra
.me
.REG
[2];
307 register_static_object(&once_value_12
);
308 } else fra
.me
.REG
[2] = once_value_12
;
309 REGB0
= CALL_abstract_collection___Collection___is_empty(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
311 if (UNTAG_Bool(REGB0
)) {
313 fra
.me
.REG
[0] = NEW_Array_array___Array___with_capacity(REGB0
);
315 if (!once_value_14
) {
316 fra
.me
.REG
[3] = BOX_NativeString("");
318 fra
.me
.REG
[3] = NEW_String_string___String___with_native(fra
.me
.REG
[3], REGB0
);
319 once_value_14
= fra
.me
.REG
[3];
320 register_static_object(&once_value_14
);
321 } else fra
.me
.REG
[3] = once_value_14
;
322 array___Array___add(fra
.me
.REG
[0], fra
.me
.REG
[3]);
323 fra
.me
.REG
[3] = CALL_kernel___Object___sys(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
324 fra
.me
.REG
[3] = CALL_string___Sys___program_name(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
325 fra
.me
.REG
[3] = CALL_file___String___dirname(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
326 array___Array___add(fra
.me
.REG
[0], fra
.me
.REG
[3]);
327 if (!once_value_15
) {
328 fra
.me
.REG
[3] = BOX_NativeString("/../bin");
330 fra
.me
.REG
[3] = NEW_String_string___String___with_native(fra
.me
.REG
[3], REGB0
);
331 once_value_15
= fra
.me
.REG
[3];
332 register_static_object(&once_value_15
);
333 } else fra
.me
.REG
[3] = once_value_15
;
334 array___Array___add(fra
.me
.REG
[0], fra
.me
.REG
[3]);
335 fra
.me
.REG
[0] = CALL_string___Object___to_s(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
336 fra
.me
.REG
[2] = fra
.me
.REG
[0];
337 REGB0
= CALL_file___String___file_exists(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
339 if (UNTAG_Bool(REGB0
)) {
340 CALL_compiling_base___ToolContext___bindir__eq(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
344 fra
.me
.REG
[0] = NEW_Array_array___Array___with_capacity(REGB0
);
346 if (!once_value_16
) {
347 fra
.me
.REG
[3] = BOX_NativeString("");
349 fra
.me
.REG
[3] = NEW_String_string___String___with_native(fra
.me
.REG
[3], REGB0
);
350 once_value_16
= fra
.me
.REG
[3];
351 register_static_object(&once_value_16
);
352 } else fra
.me
.REG
[3] = once_value_16
;
353 array___Array___add(fra
.me
.REG
[0], fra
.me
.REG
[3]);
354 array___Array___add(fra
.me
.REG
[0], fra
.me
.REG
[2]);
355 if (!once_value_17
) {
356 fra
.me
.REG
[3] = BOX_NativeString("/bin");
358 fra
.me
.REG
[3] = NEW_String_string___String___with_native(fra
.me
.REG
[3], REGB0
);
359 once_value_17
= fra
.me
.REG
[3];
360 register_static_object(&once_value_17
);
361 } else fra
.me
.REG
[3] = once_value_17
;
362 array___Array___add(fra
.me
.REG
[0], fra
.me
.REG
[3]);
363 fra
.me
.REG
[0] = CALL_string___Object___to_s(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
364 fra
.me
.REG
[2] = fra
.me
.REG
[0];
365 REGB0
= CALL_file___String___file_exists(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
367 if (UNTAG_Bool(REGB0
)) {
368 CALL_compiling_base___ToolContext___bindir__eq(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
371 fra
.me
.REG
[2] = CALL_compiling_base___ToolContext___bindir(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
372 REGB0
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
374 if (UNTAG_Bool(REGB0
)) {
376 REGB1
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
377 if (UNTAG_Bool(REGB1
)) {
378 REGB1
= TAG_Bool(false);
381 REGB1
= CALL_kernel___Object_____eqeq(fra
.me
.REG
[2])(fra
.me
.REG
[2], NIT_NULL
);
385 if (UNTAG_Bool(REGB0
)) {
387 if (!once_value_18
) {
388 fra
.me
.REG
[2] = BOX_NativeString("Error: Cannot locate NIT tools directory. Uses --bindir or envvar NIT_DIR.");
390 fra
.me
.REG
[2] = NEW_String_string___String___with_native(fra
.me
.REG
[2], REGB0
);
391 once_value_18
= fra
.me
.REG
[2];
392 register_static_object(&once_value_18
);
393 } else fra
.me
.REG
[2] = once_value_18
;
394 CALL_mmloader___ToolContext___fatal_error(fra
.me
.REG
[1])(fra
.me
.REG
[1], NIT_NULL
, fra
.me
.REG
[2]);
397 stack_frame_head
= fra
.me
.prev
;
400 void nitc___NitCompiler___perform_work(val_t p0
, val_t p1
){
401 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
404 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
405 fra
.me
.file
= LOCATE_nitc
;
407 fra
.me
.meth
= LOCATE_nitc___NitCompiler___perform_work
;
408 fra
.me
.has_broke
= 0;
410 fra
.me
.REG
[0] = NIT_NULL
;
411 fra
.me
.REG
[1] = NIT_NULL
;
412 fra
.me
.REG
[2] = NIT_NULL
;
415 fra
.me
.REG
[2] = CALL_nitc___NitCompiler___opt_dump(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
416 fra
.me
.REG
[2] = CALL_opts___Option___value(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
418 if (UNTAG_Bool(fra
.me
.REG
[2])) {
420 CALL_nitc___NitCompiler___dump_intermediate_code(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
422 fra
.me
.REG
[1] = CALL_abstract_collection___Collection___iterator(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
425 REGB0
= CALL_abstract_collection___Iterator___is_ok(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
426 if (UNTAG_Bool(REGB0
)) {
427 fra
.me
.REG
[2] = CALL_abstract_collection___Iterator___item(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
428 fra
.me
.REG
[2] = NEW_Program_program___Program___init(fra
.me
.REG
[2]);
430 CALL_program___Program___compute_main_method(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
432 CALL_table_computation___Program___do_table_computation(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
434 CALL_compiling___Program___generate_classes_init_to_icode(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
436 CALL_compiling___Program___compile_prog_to_c(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
441 CALL_abstract_collection___Iterator___next(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
444 stack_frame_head
= fra
.me
.prev
;
447 val_t
nitc___NitCompiler___opt_output(val_t p0
){
448 struct {struct stack_frame_t me
;} fra
;
451 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
452 fra
.me
.file
= LOCATE_nitc
;
454 fra
.me
.meth
= LOCATE_nitc___NitCompiler___opt_output
;
455 fra
.me
.has_broke
= 0;
457 fra
.me
.REG
[0] = NIT_NULL
;
459 REGB0
= TAG_Bool(ATTR_nitc___NitCompiler____opt_output(fra
.me
.REG
[0])!=NIT_NULL
);
461 if (UNTAG_Bool(REGB0
)) {
463 fprintf(stderr
, "Uninitialized attribute %s", "_opt_output");
464 fprintf(stderr
, " (%s:%d)\n", LOCATE_nitc
, 29);
467 fra
.me
.REG
[0] = ATTR_nitc___NitCompiler____opt_output(fra
.me
.REG
[0]);
468 stack_frame_head
= fra
.me
.prev
;
469 return fra
.me
.REG
[0];
471 val_t
nitc___NitCompiler___opt_boost(val_t p0
){
472 struct {struct stack_frame_t me
;} fra
;
475 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
476 fra
.me
.file
= LOCATE_nitc
;
478 fra
.me
.meth
= LOCATE_nitc___NitCompiler___opt_boost
;
479 fra
.me
.has_broke
= 0;
481 fra
.me
.REG
[0] = NIT_NULL
;
483 REGB0
= TAG_Bool(ATTR_nitc___NitCompiler____opt_boost(fra
.me
.REG
[0])!=NIT_NULL
);
485 if (UNTAG_Bool(REGB0
)) {
487 fprintf(stderr
, "Uninitialized attribute %s", "_opt_boost");
488 fprintf(stderr
, " (%s:%d)\n", LOCATE_nitc
, 30);
491 fra
.me
.REG
[0] = ATTR_nitc___NitCompiler____opt_boost(fra
.me
.REG
[0]);
492 stack_frame_head
= fra
.me
.prev
;
493 return fra
.me
.REG
[0];
495 val_t
nitc___NitCompiler___opt_no_cc(val_t p0
){
496 struct {struct stack_frame_t me
;} fra
;
499 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
500 fra
.me
.file
= LOCATE_nitc
;
502 fra
.me
.meth
= LOCATE_nitc___NitCompiler___opt_no_cc
;
503 fra
.me
.has_broke
= 0;
505 fra
.me
.REG
[0] = NIT_NULL
;
507 REGB0
= TAG_Bool(ATTR_nitc___NitCompiler____opt_no_cc(fra
.me
.REG
[0])!=NIT_NULL
);
509 if (UNTAG_Bool(REGB0
)) {
511 fprintf(stderr
, "Uninitialized attribute %s", "_opt_no_cc");
512 fprintf(stderr
, " (%s:%d)\n", LOCATE_nitc
, 31);
515 fra
.me
.REG
[0] = ATTR_nitc___NitCompiler____opt_no_cc(fra
.me
.REG
[0]);
516 stack_frame_head
= fra
.me
.prev
;
517 return fra
.me
.REG
[0];
519 val_t
nitc___NitCompiler___opt_global(val_t p0
){
520 struct {struct stack_frame_t me
;} fra
;
523 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
524 fra
.me
.file
= LOCATE_nitc
;
526 fra
.me
.meth
= LOCATE_nitc___NitCompiler___opt_global
;
527 fra
.me
.has_broke
= 0;
529 fra
.me
.REG
[0] = NIT_NULL
;
531 REGB0
= TAG_Bool(ATTR_nitc___NitCompiler____opt_global(fra
.me
.REG
[0])!=NIT_NULL
);
533 if (UNTAG_Bool(REGB0
)) {
535 fprintf(stderr
, "Uninitialized attribute %s", "_opt_global");
536 fprintf(stderr
, " (%s:%d)\n", LOCATE_nitc
, 32);
539 fra
.me
.REG
[0] = ATTR_nitc___NitCompiler____opt_global(fra
.me
.REG
[0]);
540 stack_frame_head
= fra
.me
.prev
;
541 return fra
.me
.REG
[0];
543 val_t
nitc___NitCompiler___opt_clibdir(val_t p0
){
544 struct {struct stack_frame_t me
;} fra
;
547 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
548 fra
.me
.file
= LOCATE_nitc
;
550 fra
.me
.meth
= LOCATE_nitc___NitCompiler___opt_clibdir
;
551 fra
.me
.has_broke
= 0;
553 fra
.me
.REG
[0] = NIT_NULL
;
555 REGB0
= TAG_Bool(ATTR_nitc___NitCompiler____opt_clibdir(fra
.me
.REG
[0])!=NIT_NULL
);
557 if (UNTAG_Bool(REGB0
)) {
559 fprintf(stderr
, "Uninitialized attribute %s", "_opt_clibdir");
560 fprintf(stderr
, " (%s:%d)\n", LOCATE_nitc
, 33);
563 fra
.me
.REG
[0] = ATTR_nitc___NitCompiler____opt_clibdir(fra
.me
.REG
[0]);
564 stack_frame_head
= fra
.me
.prev
;
565 return fra
.me
.REG
[0];
567 val_t
nitc___NitCompiler___opt_bindir(val_t p0
){
568 struct {struct stack_frame_t me
;} fra
;
571 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
572 fra
.me
.file
= LOCATE_nitc
;
574 fra
.me
.meth
= LOCATE_nitc___NitCompiler___opt_bindir
;
575 fra
.me
.has_broke
= 0;
577 fra
.me
.REG
[0] = NIT_NULL
;
579 REGB0
= TAG_Bool(ATTR_nitc___NitCompiler____opt_bindir(fra
.me
.REG
[0])!=NIT_NULL
);
581 if (UNTAG_Bool(REGB0
)) {
583 fprintf(stderr
, "Uninitialized attribute %s", "_opt_bindir");
584 fprintf(stderr
, " (%s:%d)\n", LOCATE_nitc
, 34);
587 fra
.me
.REG
[0] = ATTR_nitc___NitCompiler____opt_bindir(fra
.me
.REG
[0]);
588 stack_frame_head
= fra
.me
.prev
;
589 return fra
.me
.REG
[0];
591 val_t
nitc___NitCompiler___opt_compdir(val_t p0
){
592 struct {struct stack_frame_t me
;} fra
;
595 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
596 fra
.me
.file
= LOCATE_nitc
;
598 fra
.me
.meth
= LOCATE_nitc___NitCompiler___opt_compdir
;
599 fra
.me
.has_broke
= 0;
601 fra
.me
.REG
[0] = NIT_NULL
;
603 REGB0
= TAG_Bool(ATTR_nitc___NitCompiler____opt_compdir(fra
.me
.REG
[0])!=NIT_NULL
);
605 if (UNTAG_Bool(REGB0
)) {
607 fprintf(stderr
, "Uninitialized attribute %s", "_opt_compdir");
608 fprintf(stderr
, " (%s:%d)\n", LOCATE_nitc
, 35);
611 fra
.me
.REG
[0] = ATTR_nitc___NitCompiler____opt_compdir(fra
.me
.REG
[0]);
612 stack_frame_head
= fra
.me
.prev
;
613 return fra
.me
.REG
[0];
615 val_t
nitc___NitCompiler___opt_extension_prefix(val_t p0
){
616 struct {struct stack_frame_t me
;} fra
;
619 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
620 fra
.me
.file
= LOCATE_nitc
;
622 fra
.me
.meth
= LOCATE_nitc___NitCompiler___opt_extension_prefix
;
623 fra
.me
.has_broke
= 0;
625 fra
.me
.REG
[0] = NIT_NULL
;
627 REGB0
= TAG_Bool(ATTR_nitc___NitCompiler____opt_extension_prefix(fra
.me
.REG
[0])!=NIT_NULL
);
629 if (UNTAG_Bool(REGB0
)) {
631 fprintf(stderr
, "Uninitialized attribute %s", "_opt_extension_prefix");
632 fprintf(stderr
, " (%s:%d)\n", LOCATE_nitc
, 36);
635 fra
.me
.REG
[0] = ATTR_nitc___NitCompiler____opt_extension_prefix(fra
.me
.REG
[0]);
636 stack_frame_head
= fra
.me
.prev
;
637 return fra
.me
.REG
[0];
639 val_t
nitc___NitCompiler___opt_dump(val_t p0
){
640 struct {struct stack_frame_t me
;} fra
;
643 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
644 fra
.me
.file
= LOCATE_nitc
;
646 fra
.me
.meth
= LOCATE_nitc___NitCompiler___opt_dump
;
647 fra
.me
.has_broke
= 0;
649 fra
.me
.REG
[0] = NIT_NULL
;
651 REGB0
= TAG_Bool(ATTR_nitc___NitCompiler____opt_dump(fra
.me
.REG
[0])!=NIT_NULL
);
653 if (UNTAG_Bool(REGB0
)) {
655 fprintf(stderr
, "Uninitialized attribute %s", "_opt_dump");
656 fprintf(stderr
, " (%s:%d)\n", LOCATE_nitc
, 37);
659 fra
.me
.REG
[0] = ATTR_nitc___NitCompiler____opt_dump(fra
.me
.REG
[0]);
660 stack_frame_head
= fra
.me
.prev
;
661 return fra
.me
.REG
[0];
663 void nitc___NitCompiler___init(val_t p0
, int* init_table
){
664 int itpos0
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_NitCompiler
].i
;
665 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
668 static val_t once_value_1
; /* Once value */
669 if (init_table
[itpos0
]) return;
670 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
671 fra
.me
.file
= LOCATE_nitc
;
673 fra
.me
.meth
= LOCATE_nitc___NitCompiler___init
;
674 fra
.me
.has_broke
= 0;
676 fra
.me
.REG
[0] = NIT_NULL
;
677 fra
.me
.REG
[1] = NIT_NULL
;
678 fra
.me
.REG
[2] = NIT_NULL
;
679 fra
.me
.REG
[3] = NIT_NULL
;
681 fra
.me
.REG
[1] = fra
.me
.REG
[0];
684 fra
.me
.REG
[2] = BOX_NativeString("nitc");
686 fra
.me
.REG
[2] = NEW_String_string___String___with_native(fra
.me
.REG
[2], REGB0
);
687 once_value_1
= fra
.me
.REG
[2];
688 register_static_object(&once_value_1
);
689 } else fra
.me
.REG
[2] = once_value_1
;
690 CALL_abstracttool___AbstractCompiler___init(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[2], init_table
);
691 fra
.me
.REG
[2] = CALL_mmloader___ToolContext___option_context(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
693 fra
.me
.REG
[0] = NEW_Array_array___Array___with_capacity(REGB0
);
694 fra
.me
.REG
[3] = CALL_nitc___NitCompiler___opt_output(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
696 array___Array___add(fra
.me
.REG
[0], fra
.me
.REG
[3]);
697 fra
.me
.REG
[3] = CALL_nitc___NitCompiler___opt_boost(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
698 array___Array___add(fra
.me
.REG
[0], fra
.me
.REG
[3]);
699 fra
.me
.REG
[3] = CALL_nitc___NitCompiler___opt_no_cc(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
700 array___Array___add(fra
.me
.REG
[0], fra
.me
.REG
[3]);
701 fra
.me
.REG
[3] = CALL_nitc___NitCompiler___opt_global(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
702 array___Array___add(fra
.me
.REG
[0], fra
.me
.REG
[3]);
703 fra
.me
.REG
[3] = CALL_nitc___NitCompiler___opt_clibdir(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
704 array___Array___add(fra
.me
.REG
[0], fra
.me
.REG
[3]);
705 fra
.me
.REG
[3] = CALL_nitc___NitCompiler___opt_bindir(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
706 array___Array___add(fra
.me
.REG
[0], fra
.me
.REG
[3]);
707 fra
.me
.REG
[3] = CALL_nitc___NitCompiler___opt_compdir(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
708 array___Array___add(fra
.me
.REG
[0], fra
.me
.REG
[3]);
709 fra
.me
.REG
[3] = CALL_nitc___NitCompiler___opt_extension_prefix(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
710 array___Array___add(fra
.me
.REG
[0], fra
.me
.REG
[3]);
711 fra
.me
.REG
[1] = CALL_nitc___NitCompiler___opt_dump(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
712 array___Array___add(fra
.me
.REG
[0], fra
.me
.REG
[1]);
713 CALL_opts___OptionContext___add_option(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
714 stack_frame_head
= fra
.me
.prev
;
715 init_table
[itpos0
] = 1;
718 void nitc___NitCompiler___dump_intermediate_code(val_t p0
, val_t p1
){
719 struct {struct stack_frame_t me
; val_t MORE_REG
[9];} fra
;
723 static val_t once_value_3
; /* Once value */
724 static val_t once_value_4
; /* Once value */
725 static val_t once_value_5
; /* Once value */
726 static val_t once_value_6
; /* Once value */
727 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
728 fra
.me
.file
= LOCATE_nitc
;
730 fra
.me
.meth
= LOCATE_nitc___NitCompiler___dump_intermediate_code
;
731 fra
.me
.has_broke
= 0;
732 fra
.me
.REG_size
= 10;
733 fra
.me
.REG
[0] = NIT_NULL
;
734 fra
.me
.REG
[1] = NIT_NULL
;
735 fra
.me
.REG
[2] = NIT_NULL
;
736 fra
.me
.REG
[3] = NIT_NULL
;
737 fra
.me
.REG
[4] = NIT_NULL
;
738 fra
.me
.REG
[5] = NIT_NULL
;
739 fra
.me
.REG
[6] = NIT_NULL
;
740 fra
.me
.REG
[7] = NIT_NULL
;
741 fra
.me
.REG
[8] = NIT_NULL
;
742 fra
.me
.REG
[9] = NIT_NULL
;
745 fra
.me
.REG
[1] = CALL_abstract_collection___Collection___iterator(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
748 REGB0
= CALL_abstract_collection___Iterator___is_ok(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
749 if (UNTAG_Bool(REGB0
)) {
750 fra
.me
.REG
[2] = CALL_abstract_collection___Iterator___item(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
751 fra
.me
.REG
[3] = CALL_abstractmetamodel___MMModule___local_classes(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
752 fra
.me
.REG
[3] = CALL_abstract_collection___Collection___iterator(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
755 REGB0
= CALL_abstract_collection___Iterator___is_ok(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
756 if (UNTAG_Bool(REGB0
)) {
757 fra
.me
.REG
[4] = CALL_abstract_collection___Iterator___item(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
758 REGB0
= TAG_Bool(VAL_ISA(fra
.me
.REG
[4], COLOR_MMConcreteClass
, ID_MMConcreteClass
)) /*cast MMConcreteClass*/;
759 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
761 if (UNTAG_Bool(REGB0
)) {
764 fra
.me
.REG
[4] = CALL_abstractmetamodel___MMLocalClass___local_local_properties(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
765 fra
.me
.REG
[4] = CALL_abstract_collection___Collection___iterator(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
768 REGB0
= CALL_abstract_collection___Iterator___is_ok(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
769 if (UNTAG_Bool(REGB0
)) {
770 fra
.me
.REG
[5] = CALL_abstract_collection___Iterator___item(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
771 fra
.me
.REG
[6] = NIT_NULL
;
772 REGB0
= TAG_Bool(VAL_ISA(fra
.me
.REG
[5], COLOR_MMAttribute
, ID_MMAttribute
)) /*cast MMAttribute*/;
774 if (UNTAG_Bool(REGB0
)) {
775 fra
.me
.REG
[7] = CALL_icode_base___MMAttribute___iroutine(fra
.me
.REG
[5])(fra
.me
.REG
[5]);
776 fra
.me
.REG
[6] = fra
.me
.REG
[7];
779 REGB0
= TAG_Bool(VAL_ISA(fra
.me
.REG
[5], COLOR_MMMethod
, ID_MMMethod
)) /*cast MMMethod*/;
781 if (UNTAG_Bool(REGB0
)) {
782 fra
.me
.REG
[7] = CALL_icode_base___MMMethod___iroutine(fra
.me
.REG
[5])(fra
.me
.REG
[5]);
783 fra
.me
.REG
[6] = fra
.me
.REG
[7];
787 REGB0
= TAG_Bool(fra
.me
.REG
[6]==NIT_NULL
);
789 if (UNTAG_Bool(REGB0
)) {
791 REGB1
= TAG_Bool(fra
.me
.REG
[6]==NIT_NULL
);
792 if (UNTAG_Bool(REGB1
)) {
793 REGB1
= TAG_Bool(false);
796 REGB1
= CALL_kernel___Object_____eqeq(fra
.me
.REG
[6])(fra
.me
.REG
[6], NIT_NULL
);
800 if (UNTAG_Bool(REGB0
)) {
804 fra
.me
.REG
[7] = NEW_Array_array___Array___with_capacity(REGB0
);
807 fra
.me
.REG
[8] = BOX_NativeString("**** Property ");
809 fra
.me
.REG
[8] = NEW_String_string___String___with_native(fra
.me
.REG
[8], REGB0
);
810 once_value_3
= fra
.me
.REG
[8];
811 register_static_object(&once_value_3
);
812 } else fra
.me
.REG
[8] = once_value_3
;
813 array___Array___add(fra
.me
.REG
[7], fra
.me
.REG
[8]);
814 fra
.me
.REG
[8] = CALL_abstractmetamodel___MMLocalProperty___full_name(fra
.me
.REG
[5])(fra
.me
.REG
[5]);
815 array___Array___add(fra
.me
.REG
[7], fra
.me
.REG
[8]);
817 fra
.me
.REG
[8] = BOX_NativeString(" ****");
819 fra
.me
.REG
[8] = NEW_String_string___String___with_native(fra
.me
.REG
[8], REGB0
);
820 once_value_4
= fra
.me
.REG
[8];
821 register_static_object(&once_value_4
);
822 } else fra
.me
.REG
[8] = once_value_4
;
823 array___Array___add(fra
.me
.REG
[7], fra
.me
.REG
[8]);
824 fra
.me
.REG
[7] = CALL_string___Object___to_s(fra
.me
.REG
[7])(fra
.me
.REG
[7]);
825 CALL_file___Object___print(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[7]);
826 fra
.me
.REG
[7] = NEW_ICodeDumper_icode_dump___ICodeDumper___init();
827 REGB0
= TAG_Bool(fra
.me
.REG
[6]==NIT_NULL
);
829 if (UNTAG_Bool(REGB0
)) {
830 fprintf(stderr
, "Reciever is null");
831 fprintf(stderr
, " (%s:%d)\n", LOCATE_nitc
, 112);
834 CALL_icode_dump___IRoutine___dump(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[7]);
836 fra
.me
.REG
[8] = NEW_Array_array___Array___with_capacity(REGB0
);
839 fra
.me
.REG
[9] = BOX_NativeString("**** OPTIMIZE ");
841 fra
.me
.REG
[9] = NEW_String_string___String___with_native(fra
.me
.REG
[9], REGB0
);
842 once_value_5
= fra
.me
.REG
[9];
843 register_static_object(&once_value_5
);
844 } else fra
.me
.REG
[9] = once_value_5
;
845 array___Array___add(fra
.me
.REG
[8], fra
.me
.REG
[9]);
846 fra
.me
.REG
[5] = CALL_abstractmetamodel___MMLocalProperty___full_name(fra
.me
.REG
[5])(fra
.me
.REG
[5]);
847 array___Array___add(fra
.me
.REG
[8], fra
.me
.REG
[5]);
849 fra
.me
.REG
[5] = BOX_NativeString(" ****");
851 fra
.me
.REG
[5] = NEW_String_string___String___with_native(fra
.me
.REG
[5], REGB0
);
852 once_value_6
= fra
.me
.REG
[5];
853 register_static_object(&once_value_6
);
854 } else fra
.me
.REG
[5] = once_value_6
;
855 array___Array___add(fra
.me
.REG
[8], fra
.me
.REG
[5]);
856 fra
.me
.REG
[8] = CALL_string___Object___to_s(fra
.me
.REG
[8])(fra
.me
.REG
[8]);
857 CALL_file___Object___print(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[8]);
858 REGB0
= TAG_Bool(fra
.me
.REG
[6]==NIT_NULL
);
860 if (UNTAG_Bool(REGB0
)) {
861 fprintf(stderr
, "Reciever is null");
862 fprintf(stderr
, " (%s:%d)\n", LOCATE_nitc
, 114);
865 CALL_analysis___IRoutine___optimize(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[2]);
866 fra
.me
.REG
[8] = NEW_ICodeDumper_icode_dump___ICodeDumper___init();
867 fra
.me
.REG
[7] = fra
.me
.REG
[8];
868 REGB0
= TAG_Bool(fra
.me
.REG
[6]==NIT_NULL
);
870 if (UNTAG_Bool(REGB0
)) {
871 fprintf(stderr
, "Reciever is null");
872 fprintf(stderr
, " (%s:%d)\n", LOCATE_nitc
, 116);
875 CALL_icode_dump___IRoutine___dump(fra
.me
.REG
[6])(fra
.me
.REG
[6], fra
.me
.REG
[7]);
881 CALL_abstract_collection___Iterator___next(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
889 CALL_abstract_collection___Iterator___next(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
896 CALL_abstract_collection___Iterator___next(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
899 stack_frame_head
= fra
.me
.prev
;
902 void nitc___Sys___main(val_t p0
){
903 struct {struct stack_frame_t me
;} fra
;
905 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
906 fra
.me
.file
= LOCATE_nitc
;
908 fra
.me
.meth
= LOCATE_nitc___Sys___main
;
909 fra
.me
.has_broke
= 0;
911 fra
.me
.REG
[0] = NIT_NULL
;
913 fra
.me
.REG
[0] = NEW_NitCompiler_nitc___NitCompiler___init();
915 CALL_abstracttool___AbstractCompiler___exec_cmd_line(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
916 stack_frame_head
= fra
.me
.prev
;