X-Git-Url: http://nitlanguage.org diff --git a/c_src/nitc._sep.c b/c_src/nitc._sep.c index e4a33db..e26959c 100644 --- a/c_src/nitc._sep.c +++ b/c_src/nitc._sep.c @@ -1,379 +1,1073 @@ /* This C file is generated by NIT to compile module nitc. */ #include "nitc._sep.h" -void nitc___NitCompiler___process_options(val_t self) { - struct trace_t trace = {NULL, NULL, 41, LOCATE_nitc___NitCompiler___process_options}; - static val_t once_value_1; static int once_bool_1; /* Once value for variable[3]*/ - static val_t once_value_2; static int once_bool_2; /* Once value for variable[3]*/ - static val_t once_value_3; static int once_bool_3; /* Once value for variable[3]*/ - val_t variable[11]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_nitc; - variable[0] = self; - CALL_SUPER_nitc___NitCompiler___process_options(variable[0])(variable[0]) /*super NitCompiler::process_options*/; - variable[2] = variable[0]; - variable[3] = variable[0]; - variable[3] = CALL_nitc___NitCompiler___opt_output(variable[3])(variable[3]) /*NitCompiler::opt_output*/; - variable[3] = CALL_opts___Option___value(variable[3])(variable[3]) /*Option::value*/; - CALL_compiling_base___ToolContext___output_file__eq(variable[2])(variable[2], variable[3]) /*ToolContext::output_file=*/; - variable[2] = variable[0]; - variable[3] = variable[0]; - variable[3] = CALL_nitc___NitCompiler___opt_boost(variable[3])(variable[3]) /*NitCompiler::opt_boost*/; - variable[3] = CALL_opts___Option___value(variable[3])(variable[3]) /*Option::value*/; - CALL_compiling_base___ToolContext___boost__eq(variable[2])(variable[2], variable[3]) /*ToolContext::boost=*/; - variable[2] = variable[0]; - variable[3] = variable[0]; - variable[3] = CALL_nitc___NitCompiler___opt_no_cc(variable[3])(variable[3]) /*NitCompiler::opt_no_cc*/; - variable[3] = CALL_opts___Option___value(variable[3])(variable[3]) /*Option::value*/; - CALL_compiling_base___ToolContext___no_cc__eq(variable[2])(variable[2], variable[3]) /*ToolContext::no_cc=*/; - variable[2] = variable[0]; - variable[3] = variable[0]; - variable[3] = CALL_nitc___NitCompiler___opt_extension_prefix(variable[3])(variable[3]) /*NitCompiler::opt_extension_prefix*/; - variable[3] = CALL_opts___Option___value(variable[3])(variable[3]) /*Option::value*/; - CALL_compiling_base___ToolContext___ext_prefix__eq(variable[2])(variable[2], variable[3]) /*ToolContext::ext_prefix=*/; - variable[2] = variable[0]; - variable[2] = CALL_compiling_base___ToolContext___ext_prefix(variable[2])(variable[2]) /*ToolContext::ext_prefix*/; - variable[2] = TAG_Bool((variable[2] == NIT_NULL /*null*/) || ((variable[2] != NIT_NULL) && UNTAG_Bool(CALL_kernel___Object_____eqeq(variable[2])(variable[2], NIT_NULL /*null*/) /*String::==*/))); - if (UNTAG_Bool(variable[2])) { /*if*/ - variable[2] = variable[0]; - variable[3] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/ - CALL_compiling_base___ToolContext___ext_prefix__eq(variable[2])(variable[2], variable[3]) /*ToolContext::ext_prefix=*/; +val_t nitc___NitCompiler___opt_output(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 29; + fra.me.meth = LOCATE_nitc___NitCompiler___opt_output; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./nitc.nit:29 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_output(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_opt_output", LOCATE_nitc, 29); } - variable[2] = variable[0]; - variable[3] = variable[0]; - variable[3] = CALL_nitc___NitCompiler___opt_global(variable[3])(variable[3]) /*NitCompiler::opt_global*/; - variable[3] = CALL_opts___Option___value(variable[3])(variable[3]) /*Option::value*/; - CALL_compiling_base___ToolContext___global__eq(variable[2])(variable[2], variable[3]) /*ToolContext::global=*/; - variable[2] = variable[0]; - variable[3] = variable[0]; - variable[3] = CALL_nitc___NitCompiler___opt_compdir(variable[3])(variable[3]) /*NitCompiler::opt_compdir*/; - variable[3] = CALL_opts___Option___value(variable[3])(variable[3]) /*Option::value*/; - CALL_compiling_base___ToolContext___compdir__eq(variable[2])(variable[2], variable[3]) /*ToolContext::compdir=*/; - variable[2] = variable[0]; - variable[2] = CALL_compiling_base___ToolContext___compdir(variable[2])(variable[2]) /*ToolContext::compdir*/; - variable[2] = TAG_Bool((variable[2] == NIT_NULL /*null*/) || ((variable[2] != NIT_NULL) && UNTAG_Bool(CALL_kernel___Object_____eqeq(variable[2])(variable[2], NIT_NULL /*null*/) /*String::==*/))); - if (UNTAG_Bool(variable[2])) { /*if*/ - if (once_bool_1) variable[3] = once_value_1; - else { - variable[3] = NEW_String_string___String___with_native(BOX_NativeString("NIT_COMPDIR"), TAG_Int(11)); /*new String*/ - variable[3] = CALL_symbol___String___to_symbol(variable[3])(variable[3]) /*String::to_symbol*/; - variable[3] = CALL_environ___Symbol___environ(variable[3])(variable[3]) /*Symbol::environ*/; - once_value_1 = variable[3]; - once_bool_1 = true; + fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_output(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t nitc___NitCompiler___opt_boost(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 30; + fra.me.meth = LOCATE_nitc___NitCompiler___opt_boost; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./nitc.nit:30 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_boost(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_opt_boost", LOCATE_nitc, 30); + } + fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_boost(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t nitc___NitCompiler___opt_no_cc(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 31; + fra.me.meth = LOCATE_nitc___NitCompiler___opt_no_cc; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./nitc.nit:31 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_no_cc(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_opt_no_cc", LOCATE_nitc, 31); + } + fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_no_cc(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t nitc___NitCompiler___opt_cc_no_link(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 32; + fra.me.meth = LOCATE_nitc___NitCompiler___opt_cc_no_link; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./nitc.nit:32 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_cc_no_link(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_opt_cc_no_link", LOCATE_nitc, 32); + } + fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_cc_no_link(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t nitc___NitCompiler___opt_cc_lib_paths(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 33; + fra.me.meth = LOCATE_nitc___NitCompiler___opt_cc_lib_paths; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./nitc.nit:33 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_cc_lib_paths(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_opt_cc_lib_paths", LOCATE_nitc, 33); + } + fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_cc_lib_paths(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t nitc___NitCompiler___opt_cc_libs(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 34; + fra.me.meth = LOCATE_nitc___NitCompiler___opt_cc_libs; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./nitc.nit:34 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_cc_libs(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_opt_cc_libs", LOCATE_nitc, 34); + } + fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_cc_libs(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t nitc___NitCompiler___opt_cc_include_paths(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 35; + fra.me.meth = LOCATE_nitc___NitCompiler___opt_cc_include_paths; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./nitc.nit:35 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_cc_include_paths(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_opt_cc_include_paths", LOCATE_nitc, 35); + } + fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_cc_include_paths(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t nitc___NitCompiler___opt_global(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 36; + fra.me.meth = LOCATE_nitc___NitCompiler___opt_global; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./nitc.nit:36 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_global(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_opt_global", LOCATE_nitc, 36); + } + fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_global(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t nitc___NitCompiler___opt_global_no_STF_opt(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 37; + fra.me.meth = LOCATE_nitc___NitCompiler___opt_global_no_STF_opt; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./nitc.nit:37 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_global_no_STF_opt(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_opt_global_no_STF_opt", LOCATE_nitc, 37); + } + fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_global_no_STF_opt(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t nitc___NitCompiler___opt_global_no_DMR_opt(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 38; + fra.me.meth = LOCATE_nitc___NitCompiler___opt_global_no_DMR_opt; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./nitc.nit:38 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_global_no_DMR_opt(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_opt_global_no_DMR_opt", LOCATE_nitc, 38); + } + fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_global_no_DMR_opt(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t nitc___NitCompiler___opt_global_no_inline_get_set(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 39; + fra.me.meth = LOCATE_nitc___NitCompiler___opt_global_no_inline_get_set; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./nitc.nit:39 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_global_no_inline_get_set(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_opt_global_no_inline_get_set", LOCATE_nitc, 39); + } + fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_global_no_inline_get_set(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t nitc___NitCompiler___opt_global_no_out_of_init_get_test_opt(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 40; + fra.me.meth = LOCATE_nitc___NitCompiler___opt_global_no_out_of_init_get_test_opt; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./nitc.nit:40 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_global_no_out_of_init_get_test_opt(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_opt_global_no_out_of_init_get_test_opt", LOCATE_nitc, 40); + } + fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_global_no_out_of_init_get_test_opt(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t nitc___NitCompiler___opt_global_no_RFIMA(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 41; + fra.me.meth = LOCATE_nitc___NitCompiler___opt_global_no_RFIMA; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./nitc.nit:41 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_global_no_RFIMA(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_opt_global_no_RFIMA", LOCATE_nitc, 41); + } + fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_global_no_RFIMA(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t nitc___NitCompiler___opt_global_callgraph(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 42; + fra.me.meth = LOCATE_nitc___NitCompiler___opt_global_callgraph; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./nitc.nit:42 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_global_callgraph(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_opt_global_callgraph", LOCATE_nitc, 42); + } + fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_global_callgraph(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t nitc___NitCompiler___opt_clibdir(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 43; + fra.me.meth = LOCATE_nitc___NitCompiler___opt_clibdir; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./nitc.nit:43 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_clibdir(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_opt_clibdir", LOCATE_nitc, 43); + } + fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_clibdir(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t nitc___NitCompiler___opt_bindir(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 44; + fra.me.meth = LOCATE_nitc___NitCompiler___opt_bindir; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./nitc.nit:44 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_bindir(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_opt_bindir", LOCATE_nitc, 44); + } + fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_bindir(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t nitc___NitCompiler___opt_compdir(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 45; + fra.me.meth = LOCATE_nitc___NitCompiler___opt_compdir; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./nitc.nit:45 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_compdir(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_opt_compdir", LOCATE_nitc, 45); + } + fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_compdir(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t nitc___NitCompiler___opt_extension_prefix(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 46; + fra.me.meth = LOCATE_nitc___NitCompiler___opt_extension_prefix; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./nitc.nit:46 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_extension_prefix(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_opt_extension_prefix", LOCATE_nitc, 46); + } + fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_extension_prefix(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t nitc___NitCompiler___opt_output_format(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 47; + fra.me.meth = LOCATE_nitc___NitCompiler___opt_output_format; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./nitc.nit:47 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_output_format(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_opt_output_format", LOCATE_nitc, 47); + } + fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_output_format(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +void nitc___NitCompiler___init(val_t p0, int* init_table){ + int itpos0 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_NitCompiler].i; + struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; + val_t REGB0; + val_t tmp; + static val_t once_value_1; /* Once value */ + if (init_table[itpos0]) return; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 49; + fra.me.meth = LOCATE_nitc___NitCompiler___init; + fra.me.has_broke = 0; + fra.me.REG_size = 4; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[2] = NIT_NULL; + fra.me.REG[3] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./nitc.nit:49 */ + fra.me.REG[1] = fra.me.REG[0]; + /* ./nitc.nit:51 */ + if (!once_value_1) { + fra.me.REG[2] = BOX_NativeString("nitc"); + REGB0 = TAG_Int(4); + fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0); + once_value_1 = fra.me.REG[2]; + register_static_object(&once_value_1); + } else fra.me.REG[2] = once_value_1; + fra.me.REG[2] = fra.me.REG[2]; + CALL_abstracttool___AbstractCompiler___init(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2], init_table); + /* ./nitc.nit:52 */ + fra.me.REG[2] = CALL_mmloader___ToolContext___option_context(fra.me.REG[1])(fra.me.REG[1]); + REGB0 = TAG_Int(18); + fra.me.REG[0] = NEW_Array_array___Array___with_capacity(REGB0); + fra.me.REG[3] = CALL_nitc___NitCompiler___opt_output(fra.me.REG[1])(fra.me.REG[1]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[3] = CALL_nitc___NitCompiler___opt_boost(fra.me.REG[1])(fra.me.REG[1]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[3] = CALL_nitc___NitCompiler___opt_no_cc(fra.me.REG[1])(fra.me.REG[1]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[3] = CALL_nitc___NitCompiler___opt_cc_no_link(fra.me.REG[1])(fra.me.REG[1]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[3] = CALL_nitc___NitCompiler___opt_cc_libs(fra.me.REG[1])(fra.me.REG[1]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[3] = CALL_nitc___NitCompiler___opt_cc_lib_paths(fra.me.REG[1])(fra.me.REG[1]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[3] = CALL_nitc___NitCompiler___opt_cc_include_paths(fra.me.REG[1])(fra.me.REG[1]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[3] = CALL_nitc___NitCompiler___opt_global(fra.me.REG[1])(fra.me.REG[1]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[3] = CALL_nitc___NitCompiler___opt_clibdir(fra.me.REG[1])(fra.me.REG[1]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[3] = CALL_nitc___NitCompiler___opt_bindir(fra.me.REG[1])(fra.me.REG[1]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[3] = CALL_nitc___NitCompiler___opt_compdir(fra.me.REG[1])(fra.me.REG[1]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[3] = CALL_nitc___NitCompiler___opt_extension_prefix(fra.me.REG[1])(fra.me.REG[1]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[3] = CALL_nitc___NitCompiler___opt_global_no_STF_opt(fra.me.REG[1])(fra.me.REG[1]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[3] = CALL_nitc___NitCompiler___opt_global_no_DMR_opt(fra.me.REG[1])(fra.me.REG[1]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[3] = CALL_nitc___NitCompiler___opt_global_callgraph(fra.me.REG[1])(fra.me.REG[1]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[3] = CALL_nitc___NitCompiler___opt_global_no_inline_get_set(fra.me.REG[1])(fra.me.REG[1]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[3] = CALL_nitc___NitCompiler___opt_global_no_RFIMA(fra.me.REG[1])(fra.me.REG[1]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[3] = CALL_nitc___NitCompiler___opt_global_no_out_of_init_get_test_opt(fra.me.REG[1])(fra.me.REG[1]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[1] = CALL_nitc___NitCompiler___opt_output_format(fra.me.REG[1])(fra.me.REG[1]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); + CALL_opts___OptionContext___add_option(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); + stack_frame_head = fra.me.prev; + init_table[itpos0] = 1; + return; +} +void nitc___NitCompiler___process_options(val_t p0){ + struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; + val_t REGB0; + val_t REGB1; + val_t tmp; + static val_t once_value_1; /* Once value */ + static val_t once_value_2; /* Once value */ + static val_t once_value_3; /* Once value */ + static val_t once_value_4; /* Once value */ + static val_t once_value_5; /* Once value */ + static val_t once_value_6; /* Once value */ + static val_t once_value_7; /* Once value */ + static val_t once_value_8; /* Once value */ + static val_t once_value_9; /* Once value */ + static val_t once_value_10; /* Once value */ + static val_t once_value_11; /* Once value */ + static val_t once_value_12; /* Once value */ + static val_t once_value_13; /* Once value */ + static val_t once_value_14; /* Once value */ + static val_t once_value_15; /* Once value */ + static val_t once_value_16; /* Once value */ + static val_t once_value_17; /* Once value */ + static val_t once_value_18; /* Once value */ + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 55; + fra.me.meth = LOCATE_nitc___NitCompiler___process_options; + fra.me.has_broke = 0; + fra.me.REG_size = 4; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[2] = NIT_NULL; + fra.me.REG[3] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./nitc.nit:55 */ + fra.me.REG[1] = fra.me.REG[0]; + /* ./nitc.nit:57 */ + CALL_SUPER_nitc___NitCompiler___process_options(fra.me.REG[0])(fra.me.REG[0]); + /* ./nitc.nit:58 */ + fra.me.REG[0] = CALL_nitc___NitCompiler___opt_output(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[0] = CALL_opts___Option___value(fra.me.REG[0])(fra.me.REG[0]); + CALL_compiling_base___ToolContext___output_file__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); + /* ./nitc.nit:59 */ + fra.me.REG[0] = CALL_nitc___NitCompiler___opt_boost(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[0] = CALL_opts___Option___value(fra.me.REG[0])(fra.me.REG[0]); + CALL_compiling_base___ToolContext___boost__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); + /* ./nitc.nit:60 */ + fra.me.REG[0] = CALL_nitc___NitCompiler___opt_no_cc(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[0] = CALL_opts___Option___value(fra.me.REG[0])(fra.me.REG[0]); + CALL_compiling_base___ToolContext___no_cc__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); + /* ./nitc.nit:61 */ + fra.me.REG[0] = CALL_nitc___NitCompiler___opt_cc_no_link(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[0] = CALL_opts___Option___value(fra.me.REG[0])(fra.me.REG[0]); + REGB0 = TAG_Bool(!UNTAG_Bool(fra.me.REG[0])); + CALL_compiling_base___ToolContext___cc_link__eq(fra.me.REG[1])(fra.me.REG[1], REGB0); + /* ./nitc.nit:62 */ + fra.me.REG[0] = CALL_nitc___NitCompiler___opt_cc_lib_paths(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[0] = CALL_opts___Option___value(fra.me.REG[0])(fra.me.REG[0]); + CALL_compiling_base___ToolContext___cc_lib_paths__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); + /* ./nitc.nit:63 */ + fra.me.REG[0] = CALL_nitc___NitCompiler___opt_cc_libs(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[0] = CALL_opts___Option___value(fra.me.REG[0])(fra.me.REG[0]); + CALL_compiling_base___ToolContext___cc_libs__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); + /* ./nitc.nit:64 */ + fra.me.REG[0] = CALL_nitc___NitCompiler___opt_cc_include_paths(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[0] = CALL_opts___Option___value(fra.me.REG[0])(fra.me.REG[0]); + CALL_compiling_base___ToolContext___cc_include_paths__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); + /* ./nitc.nit:65 */ + fra.me.REG[0] = CALL_nitc___NitCompiler___opt_extension_prefix(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[0] = CALL_opts___Option___value(fra.me.REG[0])(fra.me.REG[0]); + /* ./nitc.nit:66 */ + REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + REGB1 = TAG_Bool(fra.me.REG[0]==NIT_NULL); + if (UNTAG_Bool(REGB1)) { + REGB1 = TAG_Bool(false); + REGB0 = REGB1; + } else { + REGB1 = CALL_kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], NIT_NULL); + REGB0 = REGB1; } - variable[2] = variable[3]; - variable[3] = CALL_abstract_collection___Collection___is_empty( variable[2] /*dir*/)( variable[2] /*dir*/) /*AbstractArray::is_empty*/; - if (UNTAG_Bool( TAG_Bool(!UNTAG_Bool(variable[3])))) { /*if*/ - variable[3] = variable[0]; - CALL_compiling_base___ToolContext___compdir__eq(variable[3])(variable[3], variable[2] /*dir*/) /*ToolContext::compdir=*/; + } + REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); + if (UNTAG_Bool(REGB0)) { + CALL_compiling_base___ToolContext___ext_prefix__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); + } else { + if (!once_value_1) { + fra.me.REG[0] = BOX_NativeString(""); + REGB0 = TAG_Int(0); + fra.me.REG[0] = NEW_String_string___String___with_native(fra.me.REG[0], REGB0); + once_value_1 = fra.me.REG[0]; + register_static_object(&once_value_1); + } else fra.me.REG[0] = once_value_1; + fra.me.REG[0] = fra.me.REG[0]; + CALL_compiling_base___ToolContext___ext_prefix__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); + } + /* ./nitc.nit:67 */ + fra.me.REG[0] = CALL_nitc___NitCompiler___opt_global(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[0] = CALL_opts___Option___value(fra.me.REG[0])(fra.me.REG[0]); + CALL_program___ToolContext___global__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); + /* ./nitc.nit:68 */ + fra.me.REG[0] = CALL_nitc___NitCompiler___opt_global_no_STF_opt(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[0] = CALL_opts___Option___value(fra.me.REG[0])(fra.me.REG[0]); + REGB0 = TAG_Bool(!UNTAG_Bool(fra.me.REG[0])); + CALL_program___ToolContext___use_SFT_optimization__eq(fra.me.REG[1])(fra.me.REG[1], REGB0); + /* ./nitc.nit:69 */ + fra.me.REG[0] = CALL_nitc___NitCompiler___opt_global_no_DMR_opt(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[0] = CALL_opts___Option___value(fra.me.REG[0])(fra.me.REG[0]); + CALL_analysis___ToolContext___no_dead_method_removal__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); + /* ./nitc.nit:70 */ + fra.me.REG[0] = CALL_nitc___NitCompiler___opt_global_no_inline_get_set(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[0] = CALL_opts___Option___value(fra.me.REG[0])(fra.me.REG[0]); + CALL_analysis___ToolContext___no_inline_get_set__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); + /* ./nitc.nit:71 */ + fra.me.REG[0] = CALL_nitc___NitCompiler___opt_global_no_RFIMA(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[0] = CALL_opts___Option___value(fra.me.REG[0])(fra.me.REG[0]); + CALL_analysis___ToolContext___no_callgraph_from_init__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); + /* ./nitc.nit:72 */ + fra.me.REG[0] = CALL_nitc___NitCompiler___opt_global_no_out_of_init_get_test_opt(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[0] = CALL_opts___Option___value(fra.me.REG[0])(fra.me.REG[0]); + CALL_analysis___ToolContext___no_out_of_init_get_test_removal__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); + /* ./nitc.nit:73 */ + fra.me.REG[0] = CALL_nitc___NitCompiler___opt_global_callgraph(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[0] = CALL_opts___OptionEnum___value_name(fra.me.REG[0])(fra.me.REG[0]); + CALL_analysis___ToolContext___global_callgraph__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); + /* ./nitc.nit:74 */ + fra.me.REG[0] = CALL_nitc___NitCompiler___opt_compdir(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[0] = CALL_opts___Option___value(fra.me.REG[0])(fra.me.REG[0]); + CALL_compiling_base___ToolContext___compdir__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); + /* ./nitc.nit:75 */ + fra.me.REG[0] = CALL_compiling_base___ToolContext___compdir(fra.me.REG[1])(fra.me.REG[1]); + REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + REGB1 = TAG_Bool(fra.me.REG[0]==NIT_NULL); + if (UNTAG_Bool(REGB1)) { + REGB1 = TAG_Bool(false); + REGB0 = REGB1; + } else { + REGB1 = CALL_kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], NIT_NULL); + REGB0 = REGB1; } - variable[3] = variable[0]; - variable[3] = CALL_compiling_base___ToolContext___compdir(variable[3])(variable[3]) /*ToolContext::compdir*/; - variable[3] = TAG_Bool((variable[3] == NIT_NULL /*null*/) || ((variable[3] != NIT_NULL) && UNTAG_Bool(CALL_kernel___Object_____eqeq(variable[3])(variable[3], NIT_NULL /*null*/) /*String::==*/))); - if (UNTAG_Bool(variable[3])) { /*if*/ - variable[3] = variable[0]; - variable[4] = NEW_String_string___String___with_native(BOX_NativeString(".nit_compile"), TAG_Int(12)); /*new String*/ - CALL_compiling_base___ToolContext___compdir__eq(variable[3])(variable[3], variable[4]) /*ToolContext::compdir=*/; + } + if (UNTAG_Bool(REGB0)) { + /* ./nitc.nit:76 */ + if (!once_value_2) { + if (!once_value_3) { + fra.me.REG[0] = BOX_NativeString("NIT_COMPDIR"); + REGB0 = TAG_Int(11); + fra.me.REG[0] = NEW_String_string___String___with_native(fra.me.REG[0], REGB0); + once_value_3 = fra.me.REG[0]; + register_static_object(&once_value_3); + } else fra.me.REG[0] = once_value_3; + fra.me.REG[0] = fra.me.REG[0]; + fra.me.REG[0] = CALL_symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[0] = CALL_environ___Symbol___environ(fra.me.REG[0])(fra.me.REG[0]); + once_value_2 = fra.me.REG[0]; + register_static_object(&once_value_2); + } else fra.me.REG[0] = once_value_2; + fra.me.REG[0] = fra.me.REG[0]; + /* ./nitc.nit:77 */ + REGB0 = CALL_abstract_collection___Collection___is_empty(fra.me.REG[0])(fra.me.REG[0]); + REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); + if (UNTAG_Bool(REGB0)) { + /* ./nitc.nit:78 */ + CALL_compiling_base___ToolContext___compdir__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); + } + /* ./nitc.nit:80 */ + fra.me.REG[0] = CALL_compiling_base___ToolContext___compdir(fra.me.REG[1])(fra.me.REG[1]); + REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + REGB1 = TAG_Bool(fra.me.REG[0]==NIT_NULL); + if (UNTAG_Bool(REGB1)) { + REGB1 = TAG_Bool(false); + REGB0 = REGB1; + } else { + REGB1 = CALL_kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], NIT_NULL); + REGB0 = REGB1; + } + } + if (UNTAG_Bool(REGB0)) { + /* ./nitc.nit:81 */ + if (!once_value_4) { + fra.me.REG[0] = BOX_NativeString(".nit_compile"); + REGB0 = TAG_Int(12); + fra.me.REG[0] = NEW_String_string___String___with_native(fra.me.REG[0], REGB0); + once_value_4 = fra.me.REG[0]; + register_static_object(&once_value_4); + } else fra.me.REG[0] = once_value_4; + fra.me.REG[0] = fra.me.REG[0]; + CALL_compiling_base___ToolContext___compdir__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); } } - variable[2] = variable[0]; - variable[2] = CALL_compiling_base___ToolContext___compdir(variable[2])(variable[2]) /*ToolContext::compdir*/; - variable[3] = variable[0]; - variable[3] = CALL_compiling_base___ToolContext___ext_prefix(variable[3])(variable[3]) /*ToolContext::ext_prefix*/; - CALL_abstract_collection___IndexedCollection___append(variable[2])(variable[2], variable[3]) /*String::append*/; - variable[2] = variable[0]; - variable[3] = variable[0]; - variable[3] = CALL_nitc___NitCompiler___opt_clibdir(variable[3])(variable[3]) /*NitCompiler::opt_clibdir*/; - variable[3] = CALL_opts___Option___value(variable[3])(variable[3]) /*Option::value*/; - CALL_compiling_base___ToolContext___clibdir__eq(variable[2])(variable[2], variable[3]) /*ToolContext::clibdir=*/; - variable[2] = variable[0]; - variable[2] = CALL_compiling_base___ToolContext___clibdir(variable[2])(variable[2]) /*ToolContext::clibdir*/; - variable[2] = TAG_Bool((variable[2] == NIT_NULL /*null*/) || ((variable[2] != NIT_NULL) && UNTAG_Bool(CALL_kernel___Object_____eqeq(variable[2])(variable[2], NIT_NULL /*null*/) /*String::==*/))); - if (UNTAG_Bool(variable[2])) { /*if*/ - if (once_bool_2) variable[3] = once_value_2; - else { - variable[3] = NEW_String_string___String___with_native(BOX_NativeString("NIT_DIR"), TAG_Int(7)); /*new String*/ - variable[3] = CALL_symbol___String___to_symbol(variable[3])(variable[3]) /*String::to_symbol*/; - variable[3] = CALL_environ___Symbol___environ(variable[3])(variable[3]) /*Symbol::environ*/; - once_value_2 = variable[3]; - once_bool_2 = true; + /* ./nitc.nit:84 */ + fra.me.REG[0] = CALL_compiling_base___ToolContext___compdir(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[2] = CALL_compiling_base___ToolContext___ext_prefix(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[2] = CALL_string___String_____plus(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]); + CALL_compiling_base___ToolContext___compdir__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); + /* ./nitc.nit:86 */ + fra.me.REG[2] = CALL_nitc___NitCompiler___opt_clibdir(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[2] = CALL_opts___Option___value(fra.me.REG[2])(fra.me.REG[2]); + CALL_compiling_base___ToolContext___clibdir__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); + /* ./nitc.nit:87 */ + fra.me.REG[2] = CALL_compiling_base___ToolContext___clibdir(fra.me.REG[1])(fra.me.REG[1]); + REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL); + if (UNTAG_Bool(REGB1)) { + REGB1 = TAG_Bool(false); + REGB0 = REGB1; + } else { + REGB1 = CALL_kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL); + REGB0 = REGB1; } - variable[2] = variable[3]; - variable[3] = CALL_abstract_collection___Collection___is_empty( variable[2] /*dir*/)( variable[2] /*dir*/) /*AbstractArray::is_empty*/; - if (UNTAG_Bool(variable[3])) { /*if*/ - variable[4] = NEW_Array_array___Array___with_capacity(TAG_Int(3)); /*new Array[String]*/ - variable[5] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/ - variable[6] = variable[5]; - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[6]) /*AbstractArray::add*/; - variable[7] = variable[0]; - variable[7] = (G_sys); - variable[7] = CALL_string___Sys___program_name(variable[7])(variable[7]) /*Sys::program_name*/; - variable[7] = CALL_file___String___dirname(variable[7])(variable[7]) /*String::dirname*/; - variable[8] = variable[7]; - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[8]) /*AbstractArray::add*/; - variable[9] = NEW_String_string___String___with_native(BOX_NativeString("/../lib"), TAG_Int(7)); /*new String*/ - variable[10] = variable[9]; - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[10]) /*AbstractArray::add*/; - variable[4] = CALL_string___Object___to_s(variable[4])(variable[4]) /*Object::to_s*/; - variable[3] = variable[4]; - variable[4] = CALL_file___String___file_exists( variable[3] /*dir*/)( variable[3] /*dir*/) /*String::file_exists*/; - if (UNTAG_Bool(variable[4])) { /*if*/ - variable[4] = variable[0]; - CALL_compiling_base___ToolContext___clibdir__eq(variable[4])(variable[4], variable[3] /*dir*/) /*ToolContext::clibdir=*/; + } + if (UNTAG_Bool(REGB0)) { + /* ./nitc.nit:88 */ + if (!once_value_5) { + if (!once_value_6) { + fra.me.REG[2] = BOX_NativeString("NIT_DIR"); + REGB0 = TAG_Int(7); + fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0); + once_value_6 = fra.me.REG[2]; + register_static_object(&once_value_6); + } else fra.me.REG[2] = once_value_6; + fra.me.REG[2] = fra.me.REG[2]; + fra.me.REG[2] = CALL_symbol___String___to_symbol(fra.me.REG[2])(fra.me.REG[2]); + fra.me.REG[2] = CALL_environ___Symbol___environ(fra.me.REG[2])(fra.me.REG[2]); + once_value_5 = fra.me.REG[2]; + register_static_object(&once_value_5); + } else fra.me.REG[2] = once_value_5; + fra.me.REG[2] = fra.me.REG[2]; + /* ./nitc.nit:89 */ + REGB0 = CALL_abstract_collection___Collection___is_empty(fra.me.REG[2])(fra.me.REG[2]); + if (UNTAG_Bool(REGB0)) { + /* ./nitc.nit:90 */ + REGB0 = TAG_Int(3); + fra.me.REG[0] = NEW_Array_array___Array___with_capacity(REGB0); + if (!once_value_7) { + fra.me.REG[3] = BOX_NativeString(""); + REGB0 = TAG_Int(0); + fra.me.REG[3] = NEW_String_string___String___with_native(fra.me.REG[3], REGB0); + once_value_7 = fra.me.REG[3]; + register_static_object(&once_value_7); + } else fra.me.REG[3] = once_value_7; + fra.me.REG[3] = fra.me.REG[3]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[3] = CALL_kernel___Object___sys(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[3] = CALL_string___Sys___program_name(fra.me.REG[3])(fra.me.REG[3]); + fra.me.REG[3] = CALL_file___String___dirname(fra.me.REG[3])(fra.me.REG[3]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + if (!once_value_8) { + fra.me.REG[3] = BOX_NativeString("/../clib"); + REGB0 = TAG_Int(8); + fra.me.REG[3] = NEW_String_string___String___with_native(fra.me.REG[3], REGB0); + once_value_8 = fra.me.REG[3]; + register_static_object(&once_value_8); + } else fra.me.REG[3] = once_value_8; + fra.me.REG[3] = fra.me.REG[3]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[0] = CALL_string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[2] = fra.me.REG[0]; + /* ./nitc.nit:91 */ + REGB0 = CALL_file___String___file_exists(fra.me.REG[2])(fra.me.REG[2]); + if (UNTAG_Bool(REGB0)) { + CALL_compiling_base___ToolContext___clibdir__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); } - } else { /*if*/ - variable[3] = NEW_Array_array___Array___with_capacity(TAG_Int(3)); /*new Array[String]*/ - variable[4] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/ - variable[5] = variable[4]; - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[5]) /*AbstractArray::add*/; - variable[6] = variable[2] /*dir*/; - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[6]) /*AbstractArray::add*/; - variable[7] = NEW_String_string___String___with_native(BOX_NativeString("/lib"), TAG_Int(4)); /*new String*/ - variable[8] = variable[7]; - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[8]) /*AbstractArray::add*/; - variable[3] = CALL_string___Object___to_s(variable[3])(variable[3]) /*Object::to_s*/; - variable[2] = variable[3] /*dir=*/; - variable[3] = CALL_file___String___file_exists( variable[2] /*dir*/)( variable[2] /*dir*/) /*String::file_exists*/; - if (UNTAG_Bool(variable[3])) { /*if*/ - variable[3] = variable[0]; - CALL_compiling_base___ToolContext___clibdir__eq(variable[3])(variable[3], variable[2] /*dir*/) /*ToolContext::clibdir=*/; + } else { + /* ./nitc.nit:93 */ + REGB0 = TAG_Int(3); + fra.me.REG[0] = NEW_Array_array___Array___with_capacity(REGB0); + if (!once_value_9) { + fra.me.REG[3] = BOX_NativeString(""); + REGB0 = TAG_Int(0); + fra.me.REG[3] = NEW_String_string___String___with_native(fra.me.REG[3], REGB0); + once_value_9 = fra.me.REG[3]; + register_static_object(&once_value_9); + } else fra.me.REG[3] = once_value_9; + fra.me.REG[3] = fra.me.REG[3]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]); + if (!once_value_10) { + fra.me.REG[3] = BOX_NativeString("/clib"); + REGB0 = TAG_Int(5); + fra.me.REG[3] = NEW_String_string___String___with_native(fra.me.REG[3], REGB0); + once_value_10 = fra.me.REG[3]; + register_static_object(&once_value_10); + } else fra.me.REG[3] = once_value_10; + fra.me.REG[3] = fra.me.REG[3]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[0] = CALL_string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[2] = fra.me.REG[0]; + /* ./nitc.nit:94 */ + REGB0 = CALL_file___String___file_exists(fra.me.REG[2])(fra.me.REG[2]); + if (UNTAG_Bool(REGB0)) { + CALL_compiling_base___ToolContext___clibdir__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); } } - variable[3] = variable[0]; - variable[3] = CALL_compiling_base___ToolContext___clibdir(variable[3])(variable[3]) /*ToolContext::clibdir*/; - variable[3] = TAG_Bool((variable[3] == NIT_NULL /*null*/) || ((variable[3] != NIT_NULL) && UNTAG_Bool(CALL_kernel___Object_____eqeq(variable[3])(variable[3], NIT_NULL /*null*/) /*String::==*/))); - if (UNTAG_Bool(variable[3])) { /*if*/ - variable[3] = variable[0]; - variable[4] = NEW_String_string___String___with_native(BOX_NativeString("Error: Cannot locate NIT C library directory. Uses --clibdir or envvar NIT_DIR."), TAG_Int(79)); /*new String*/ - CALL_mmloader___ToolContext___error(variable[3])(variable[3], variable[4]) /*ToolContext::error*/; - variable[3] = variable[0]; - exit(UNTAG_Int( TAG_Int(1))); + /* ./nitc.nit:96 */ + fra.me.REG[2] = CALL_compiling_base___ToolContext___clibdir(fra.me.REG[1])(fra.me.REG[1]); + REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL); + if (UNTAG_Bool(REGB1)) { + REGB1 = TAG_Bool(false); + REGB0 = REGB1; + } else { + REGB1 = CALL_kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL); + REGB0 = REGB1; + } + } + if (UNTAG_Bool(REGB0)) { + /* ./nitc.nit:97 */ + if (!once_value_11) { + fra.me.REG[2] = BOX_NativeString("Error: Cannot locate NIT C library directory. Uses --clibdir or envvar NIT_DIR."); + REGB0 = TAG_Int(79); + fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0); + once_value_11 = fra.me.REG[2]; + register_static_object(&once_value_11); + } else fra.me.REG[2] = once_value_11; + fra.me.REG[2] = fra.me.REG[2]; + CALL_mmloader___ToolContext___fatal_error(fra.me.REG[1])(fra.me.REG[1], NIT_NULL, fra.me.REG[2]); } } - variable[2] = variable[0]; - variable[3] = variable[0]; - variable[3] = CALL_nitc___NitCompiler___opt_bindir(variable[3])(variable[3]) /*NitCompiler::opt_bindir*/; - variable[3] = CALL_opts___Option___value(variable[3])(variable[3]) /*Option::value*/; - CALL_compiling_base___ToolContext___bindir__eq(variable[2])(variable[2], variable[3]) /*ToolContext::bindir=*/; - variable[2] = variable[0]; - variable[2] = CALL_compiling_base___ToolContext___bindir(variable[2])(variable[2]) /*ToolContext::bindir*/; - variable[2] = TAG_Bool((variable[2] == NIT_NULL /*null*/) || ((variable[2] != NIT_NULL) && UNTAG_Bool(CALL_kernel___Object_____eqeq(variable[2])(variable[2], NIT_NULL /*null*/) /*String::==*/))); - if (UNTAG_Bool(variable[2])) { /*if*/ - if (once_bool_3) variable[3] = once_value_3; - else { - variable[3] = NEW_String_string___String___with_native(BOX_NativeString("NIT_DIR"), TAG_Int(7)); /*new String*/ - variable[3] = CALL_symbol___String___to_symbol(variable[3])(variable[3]) /*String::to_symbol*/; - variable[3] = CALL_environ___Symbol___environ(variable[3])(variable[3]) /*Symbol::environ*/; - once_value_3 = variable[3]; - once_bool_3 = true; + /* ./nitc.nit:100 */ + fra.me.REG[2] = CALL_nitc___NitCompiler___opt_bindir(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[2] = CALL_opts___Option___value(fra.me.REG[2])(fra.me.REG[2]); + CALL_compiling_base___ToolContext___bindir__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); + /* ./nitc.nit:102 */ + fra.me.REG[2] = CALL_compiling_base___ToolContext___bindir(fra.me.REG[1])(fra.me.REG[1]); + REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL); + if (UNTAG_Bool(REGB1)) { + REGB1 = TAG_Bool(false); + REGB0 = REGB1; + } else { + REGB1 = CALL_kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL); + REGB0 = REGB1; } - variable[2] = variable[3]; - variable[3] = CALL_abstract_collection___Collection___is_empty( variable[2] /*dir*/)( variable[2] /*dir*/) /*AbstractArray::is_empty*/; - if (UNTAG_Bool(variable[3])) { /*if*/ - variable[4] = NEW_Array_array___Array___with_capacity(TAG_Int(3)); /*new Array[String]*/ - variable[5] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/ - variable[6] = variable[5]; - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[6]) /*AbstractArray::add*/; - variable[7] = variable[0]; - variable[7] = (G_sys); - variable[7] = CALL_string___Sys___program_name(variable[7])(variable[7]) /*Sys::program_name*/; - variable[7] = CALL_file___String___dirname(variable[7])(variable[7]) /*String::dirname*/; - variable[8] = variable[7]; - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[8]) /*AbstractArray::add*/; - variable[9] = NEW_String_string___String___with_native(BOX_NativeString("/../bin"), TAG_Int(7)); /*new String*/ - variable[10] = variable[9]; - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[10]) /*AbstractArray::add*/; - variable[4] = CALL_string___Object___to_s(variable[4])(variable[4]) /*Object::to_s*/; - variable[3] = variable[4]; - variable[4] = CALL_file___String___file_exists( variable[3] /*dir*/)( variable[3] /*dir*/) /*String::file_exists*/; - if (UNTAG_Bool(variable[4])) { /*if*/ - variable[4] = variable[0]; - CALL_compiling_base___ToolContext___bindir__eq(variable[4])(variable[4], variable[3] /*dir*/) /*ToolContext::bindir=*/; + } + if (UNTAG_Bool(REGB0)) { + /* ./nitc.nit:103 */ + if (!once_value_12) { + if (!once_value_13) { + fra.me.REG[2] = BOX_NativeString("NIT_DIR"); + REGB0 = TAG_Int(7); + fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0); + once_value_13 = fra.me.REG[2]; + register_static_object(&once_value_13); + } else fra.me.REG[2] = once_value_13; + fra.me.REG[2] = fra.me.REG[2]; + fra.me.REG[2] = CALL_symbol___String___to_symbol(fra.me.REG[2])(fra.me.REG[2]); + fra.me.REG[2] = CALL_environ___Symbol___environ(fra.me.REG[2])(fra.me.REG[2]); + once_value_12 = fra.me.REG[2]; + register_static_object(&once_value_12); + } else fra.me.REG[2] = once_value_12; + fra.me.REG[2] = fra.me.REG[2]; + /* ./nitc.nit:104 */ + REGB0 = CALL_abstract_collection___Collection___is_empty(fra.me.REG[2])(fra.me.REG[2]); + if (UNTAG_Bool(REGB0)) { + /* ./nitc.nit:105 */ + REGB0 = TAG_Int(3); + fra.me.REG[0] = NEW_Array_array___Array___with_capacity(REGB0); + if (!once_value_14) { + fra.me.REG[3] = BOX_NativeString(""); + REGB0 = TAG_Int(0); + fra.me.REG[3] = NEW_String_string___String___with_native(fra.me.REG[3], REGB0); + once_value_14 = fra.me.REG[3]; + register_static_object(&once_value_14); + } else fra.me.REG[3] = once_value_14; + fra.me.REG[3] = fra.me.REG[3]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[3] = CALL_kernel___Object___sys(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[3] = CALL_string___Sys___program_name(fra.me.REG[3])(fra.me.REG[3]); + fra.me.REG[3] = CALL_file___String___dirname(fra.me.REG[3])(fra.me.REG[3]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + if (!once_value_15) { + fra.me.REG[3] = BOX_NativeString("/../bin"); + REGB0 = TAG_Int(7); + fra.me.REG[3] = NEW_String_string___String___with_native(fra.me.REG[3], REGB0); + once_value_15 = fra.me.REG[3]; + register_static_object(&once_value_15); + } else fra.me.REG[3] = once_value_15; + fra.me.REG[3] = fra.me.REG[3]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[0] = CALL_string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[2] = fra.me.REG[0]; + /* ./nitc.nit:106 */ + REGB0 = CALL_file___String___file_exists(fra.me.REG[2])(fra.me.REG[2]); + if (UNTAG_Bool(REGB0)) { + CALL_compiling_base___ToolContext___bindir__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); } - } else { /*if*/ - variable[3] = NEW_Array_array___Array___with_capacity(TAG_Int(3)); /*new Array[String]*/ - variable[4] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/ - variable[5] = variable[4]; - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[5]) /*AbstractArray::add*/; - variable[6] = variable[2] /*dir*/; - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[6]) /*AbstractArray::add*/; - variable[7] = NEW_String_string___String___with_native(BOX_NativeString("/bin"), TAG_Int(4)); /*new String*/ - variable[8] = variable[7]; - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[8]) /*AbstractArray::add*/; - variable[3] = CALL_string___Object___to_s(variable[3])(variable[3]) /*Object::to_s*/; - variable[2] = variable[3] /*dir=*/; - variable[3] = CALL_file___String___file_exists( variable[2] /*dir*/)( variable[2] /*dir*/) /*String::file_exists*/; - if (UNTAG_Bool(variable[3])) { /*if*/ - variable[3] = variable[0]; - CALL_compiling_base___ToolContext___bindir__eq(variable[3])(variable[3], variable[2] /*dir*/) /*ToolContext::bindir=*/; + } else { + /* ./nitc.nit:108 */ + REGB0 = TAG_Int(3); + fra.me.REG[0] = NEW_Array_array___Array___with_capacity(REGB0); + if (!once_value_16) { + fra.me.REG[3] = BOX_NativeString(""); + REGB0 = TAG_Int(0); + fra.me.REG[3] = NEW_String_string___String___with_native(fra.me.REG[3], REGB0); + once_value_16 = fra.me.REG[3]; + register_static_object(&once_value_16); + } else fra.me.REG[3] = once_value_16; + fra.me.REG[3] = fra.me.REG[3]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]); + if (!once_value_17) { + fra.me.REG[3] = BOX_NativeString("/bin"); + REGB0 = TAG_Int(4); + fra.me.REG[3] = NEW_String_string___String___with_native(fra.me.REG[3], REGB0); + once_value_17 = fra.me.REG[3]; + register_static_object(&once_value_17); + } else fra.me.REG[3] = once_value_17; + fra.me.REG[3] = fra.me.REG[3]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + fra.me.REG[0] = CALL_string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[2] = fra.me.REG[0]; + /* ./nitc.nit:109 */ + REGB0 = CALL_file___String___file_exists(fra.me.REG[2])(fra.me.REG[2]); + if (UNTAG_Bool(REGB0)) { + CALL_compiling_base___ToolContext___bindir__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); } } - variable[3] = variable[0]; - variable[3] = CALL_compiling_base___ToolContext___bindir(variable[3])(variable[3]) /*ToolContext::bindir*/; - variable[3] = TAG_Bool((variable[3] == NIT_NULL /*null*/) || ((variable[3] != NIT_NULL) && UNTAG_Bool(CALL_kernel___Object_____eqeq(variable[3])(variable[3], NIT_NULL /*null*/) /*String::==*/))); - if (UNTAG_Bool(variable[3])) { /*if*/ - variable[3] = variable[0]; - variable[4] = NEW_String_string___String___with_native(BOX_NativeString("Error: Cannot locate NIT tools directory. Uses --bindir or envvar NIT_DIR."), TAG_Int(74)); /*new String*/ - CALL_mmloader___ToolContext___error(variable[3])(variable[3], variable[4]) /*ToolContext::error*/; - variable[3] = variable[0]; - exit(UNTAG_Int( TAG_Int(1))); + /* ./nitc.nit:111 */ + fra.me.REG[2] = CALL_compiling_base___ToolContext___bindir(fra.me.REG[1])(fra.me.REG[1]); + REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL); + if (UNTAG_Bool(REGB1)) { + REGB1 = TAG_Bool(false); + REGB0 = REGB1; + } else { + REGB1 = CALL_kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL); + REGB0 = REGB1; + } + } + if (UNTAG_Bool(REGB0)) { + /* ./nitc.nit:112 */ + if (!once_value_18) { + fra.me.REG[2] = BOX_NativeString("Error: Cannot locate NIT tools directory. Uses --bindir or envvar NIT_DIR."); + REGB0 = TAG_Int(74); + fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0); + once_value_18 = fra.me.REG[2]; + register_static_object(&once_value_18); + } else fra.me.REG[2] = once_value_18; + fra.me.REG[2] = fra.me.REG[2]; + CALL_mmloader___ToolContext___fatal_error(fra.me.REG[1])(fra.me.REG[1], NIT_NULL, fra.me.REG[2]); } } - return_label0: while(false); - tracehead = trace.prev; + stack_frame_head = fra.me.prev; return; } -void nitc___NitCompiler___perform_work(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 95, LOCATE_nitc___NitCompiler___perform_work}; - val_t variable[7]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_nitc; - variable[0] = self; - variable[1] = param0; - variable[3] = CALL_abstract_collection___Collection___iterator( variable[1] /*mods*/)( variable[1] /*mods*/) /*AbstractArray::iterator*/; - while (true) { /*for*/ - variable[4] = CALL_abstract_collection___Iterator___is_ok(variable[3])(variable[3]) /*ArrayIterator::is_ok*/; - if (!UNTAG_Bool(variable[4])) break; /*for*/ - variable[4] = CALL_abstract_collection___Iterator___item(variable[3])(variable[3]) /*ArrayIterator::item*/; - variable[5] = variable[4]; - variable[6] = TAG_Bool(( variable[5] /*mod*/==NIT_NULL) || VAL_ISA( variable[5] /*mod*/, COLOR_MMSrcModule, ID_MMSrcModule)) /*cast MMSrcModule*/; - if (!UNTAG_Bool(variable[6])) { fprintf(stderr, "Assert%s failed", ""); fprintf(stderr, " in %s (%s:%d)\n", LOCATE_nitc___NitCompiler___perform_work, LOCATE_nitc, 98); nit_exit(1);} - variable[6] = variable[0]; - CALL_compiling___MMSrcModule___compile_prog_to_c( variable[5] /*mod*/)( variable[5] /*mod*/, variable[6]) /*MMSrcModule::compile_prog_to_c*/; - continue_5: while(0); - CALL_abstract_collection___Iterator___next(variable[3])(variable[3]) /*ArrayIterator::next*/; +void nitc___NitCompiler___perform_work(val_t p0, val_t p1){ + struct {struct stack_frame_t me; val_t MORE_REG[4];} fra; + val_t REGB0; + val_t REGB1; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 117; + fra.me.meth = LOCATE_nitc___NitCompiler___perform_work; + fra.me.has_broke = 0; + fra.me.REG_size = 5; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[2] = NIT_NULL; + fra.me.REG[3] = NIT_NULL; + fra.me.REG[4] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[1] = p1; + /* ./../lib/standard//collection//array.nit:234 */ + REGB0 = TAG_Int(0); + /* ./../lib/standard//collection//array.nit:235 */ + REGB1 = TAG_Bool(ATTR_array___AbstractArrayRead____length(fra.me.REG[1])!=NIT_NULL); + if (UNTAG_Bool(REGB1)) { + } else { + nit_abort("Uninitialized attribute %s", "_length", LOCATE_array, 235); } - break_5: while(0); - return_label4: while(false); - tracehead = trace.prev; - return; -} -val_t nitc___NitCompiler___opt_output(val_t self) { - struct trace_t trace = {NULL, NULL, 26, LOCATE_nitc___NitCompiler___opt_output}; - val_t *variable = NULL; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_nitc; - tracehead = trace.prev; - return ATTR_nitc___NitCompiler____opt_output( self) /*NitCompiler::_opt_output*/; -} -val_t nitc___NitCompiler___opt_boost(val_t self) { - struct trace_t trace = {NULL, NULL, 27, LOCATE_nitc___NitCompiler___opt_boost}; - val_t *variable = NULL; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_nitc; - tracehead = trace.prev; - return ATTR_nitc___NitCompiler____opt_boost( self) /*NitCompiler::_opt_boost*/; -} -val_t nitc___NitCompiler___opt_no_cc(val_t self) { - struct trace_t trace = {NULL, NULL, 28, LOCATE_nitc___NitCompiler___opt_no_cc}; - val_t *variable = NULL; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_nitc; - tracehead = trace.prev; - return ATTR_nitc___NitCompiler____opt_no_cc( self) /*NitCompiler::_opt_no_cc*/; -} -val_t nitc___NitCompiler___opt_global(val_t self) { - struct trace_t trace = {NULL, NULL, 29, LOCATE_nitc___NitCompiler___opt_global}; - val_t *variable = NULL; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_nitc; - tracehead = trace.prev; - return ATTR_nitc___NitCompiler____opt_global( self) /*NitCompiler::_opt_global*/; -} -val_t nitc___NitCompiler___opt_clibdir(val_t self) { - struct trace_t trace = {NULL, NULL, 30, LOCATE_nitc___NitCompiler___opt_clibdir}; - val_t *variable = NULL; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_nitc; - tracehead = trace.prev; - return ATTR_nitc___NitCompiler____opt_clibdir( self) /*NitCompiler::_opt_clibdir*/; -} -val_t nitc___NitCompiler___opt_bindir(val_t self) { - struct trace_t trace = {NULL, NULL, 31, LOCATE_nitc___NitCompiler___opt_bindir}; - val_t *variable = NULL; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_nitc; - tracehead = trace.prev; - return ATTR_nitc___NitCompiler____opt_bindir( self) /*NitCompiler::_opt_bindir*/; -} -val_t nitc___NitCompiler___opt_compdir(val_t self) { - struct trace_t trace = {NULL, NULL, 32, LOCATE_nitc___NitCompiler___opt_compdir}; - val_t *variable = NULL; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_nitc; - tracehead = trace.prev; - return ATTR_nitc___NitCompiler____opt_compdir( self) /*NitCompiler::_opt_compdir*/; -} -val_t nitc___NitCompiler___opt_extension_prefix(val_t self) { - struct trace_t trace = {NULL, NULL, 33, LOCATE_nitc___NitCompiler___opt_extension_prefix}; - val_t *variable = NULL; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_nitc; - tracehead = trace.prev; - return ATTR_nitc___NitCompiler____opt_extension_prefix( self) /*NitCompiler::_opt_extension_prefix*/; -} -void nitc___NitCompiler___init(val_t self, int* init_table) { - struct trace_t trace = {NULL, NULL, 35, LOCATE_nitc___NitCompiler___init}; - val_t variable[12]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_nitc; - variable[0] = self; - if (init_table[VAL2OBJ(variable[0])->vft[INIT_TABLE_POS_NitCompiler].i]) return; - CALL_abstracttool___AbstractCompiler___init(variable[0])(variable[0], init_table /*YYY*/) /*AbstractCompiler::init*/; - variable[2] = variable[0]; - variable[2] = CALL_mmloader___ToolContext___option_context(variable[2])(variable[2]) /*ToolContext::option_context*/; - variable[3] = NEW_Array_array___Array___with_capacity(TAG_Int(8)); /*new Array[Option]*/ - variable[4] = variable[0]; - variable[4] = CALL_nitc___NitCompiler___opt_output(variable[4])(variable[4]) /*NitCompiler::opt_output*/; - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[4]) /*AbstractArray::add*/; - variable[5] = variable[0]; - variable[5] = CALL_nitc___NitCompiler___opt_boost(variable[5])(variable[5]) /*NitCompiler::opt_boost*/; - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[5]) /*AbstractArray::add*/; - variable[6] = variable[0]; - variable[6] = CALL_nitc___NitCompiler___opt_no_cc(variable[6])(variable[6]) /*NitCompiler::opt_no_cc*/; - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[6]) /*AbstractArray::add*/; - variable[7] = variable[0]; - variable[7] = CALL_nitc___NitCompiler___opt_global(variable[7])(variable[7]) /*NitCompiler::opt_global*/; - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[7]) /*AbstractArray::add*/; - variable[8] = variable[0]; - variable[8] = CALL_nitc___NitCompiler___opt_clibdir(variable[8])(variable[8]) /*NitCompiler::opt_clibdir*/; - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[8]) /*AbstractArray::add*/; - variable[9] = variable[0]; - variable[9] = CALL_nitc___NitCompiler___opt_bindir(variable[9])(variable[9]) /*NitCompiler::opt_bindir*/; - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[9]) /*AbstractArray::add*/; - variable[10] = variable[0]; - variable[10] = CALL_nitc___NitCompiler___opt_compdir(variable[10])(variable[10]) /*NitCompiler::opt_compdir*/; - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[10]) /*AbstractArray::add*/; - variable[11] = variable[0]; - variable[11] = CALL_nitc___NitCompiler___opt_extension_prefix(variable[11])(variable[11]) /*NitCompiler::opt_extension_prefix*/; - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[11]) /*AbstractArray::add*/; - CALL_opts___OptionContext___add_option(variable[2])(variable[2], variable[3]) /*OptionContext::add_option*/; - return_label6: while(false); - init_table[VAL2OBJ(variable[0])->vft[INIT_TABLE_POS_NitCompiler].i] = 1; - tracehead = trace.prev; + REGB1 = ATTR_array___AbstractArrayRead____length(fra.me.REG[1]); + /* ./../lib/standard//collection//array.nit:236 */ + fra.me.REG[2] = ATTR_array___Array____items(fra.me.REG[1]); + /* ./../lib/standard//collection//array.nit:237 */ + while(1) { + /* ./../lib/standard//collection//array.nit:23 */ + REGB1 = TAG_Bool(ATTR_array___AbstractArrayRead____length(fra.me.REG[1])!=NIT_NULL); + if (UNTAG_Bool(REGB1)) { + } else { + nit_abort("Uninitialized attribute %s", "_length", LOCATE_array, 23); + } + REGB1 = ATTR_array___AbstractArrayRead____length(fra.me.REG[1]); + /* ./../lib/standard//kernel.nit:212 */ + REGB1 = TAG_Bool(UNTAG_Int(REGB0)val[UNTAG_Int(REGB0)]; + /* ./nitc.nit:120 */ + fra.me.REG[3] = NEW_Program_program___Program___init(fra.me.REG[3], fra.me.REG[0]); + /* ./nitc.nit:121 */ + fra.me.REG[4] = CALL_nitc___NitCompiler___opt_output_format(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[4] = CALL_opts___OptionEnum___value_name(fra.me.REG[4])(fra.me.REG[4]); + CALL_compiling___Program___output_format__eq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); + /* ./nitc.nit:122 */ + CALL_program___Program___compute_main_method(fra.me.REG[3])(fra.me.REG[3]); + /* ./nitc.nit:123 */ + CALL_program___Program___generate_allocation_iroutines(fra.me.REG[3])(fra.me.REG[3]); + /* ./nitc.nit:124 */ + REGB1 = CALL_program___ToolContext___global(fra.me.REG[0])(fra.me.REG[0]); + if (UNTAG_Bool(REGB1)) { + /* ./nitc.nit:125 */ + CALL_analysis___Program___do_global_pre_analysis_optimizations(fra.me.REG[3])(fra.me.REG[3]); + /* ./nitc.nit:126 */ + CALL_analysis___Program___do_global_analysis(fra.me.REG[3])(fra.me.REG[3]); + /* ./nitc.nit:127 */ + CALL_analysis___Program___do_global_post_analysis_optimizations(fra.me.REG[3])(fra.me.REG[3]); + /* ./nitc.nit:128 */ + fra.me.REG[4] = CALL_mmloader___ToolContext___opt_log(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[4] = CALL_opts___Option___value(fra.me.REG[4])(fra.me.REG[4]); + if (UNTAG_Bool(fra.me.REG[4])) { + /* ./nitc.nit:129 */ + fra.me.REG[4] = CALL_mmloader___ToolContext___log_directory(fra.me.REG[0])(fra.me.REG[0]); + CALL_analysis___Program___dump_global_optimizations_information(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); + /* ./nitc.nit:130 */ + fra.me.REG[4] = CALL_mmloader___ToolContext___log_directory(fra.me.REG[0])(fra.me.REG[0]); + CALL_analysis___Program___dump_global_analysis_information(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); + } + } + /* ./nitc.nit:133 */ + CALL_table_computation___Program___do_table_computation(fra.me.REG[3])(fra.me.REG[3]); + /* ./nitc.nit:134 */ + CALL_compiling___Program___compile_prog(fra.me.REG[3])(fra.me.REG[3]); + /* ./../lib/standard//collection//array.nit:239 */ + REGB1 = TAG_Int(1); + /* ./../lib/standard//kernel.nit:215 */ + REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1)); + /* ./../lib/standard//collection//array.nit:239 */ + REGB0 = REGB1; + } else { + /* ./../lib/standard//collection//array.nit:237 */ + goto label1; + } + } + label1: while(0); + stack_frame_head = fra.me.prev; return; } -void nitc___Sys___main(val_t self) { - struct trace_t trace = {NULL, NULL, 105, LOCATE_nitc___Sys___main}; - val_t variable[4]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_nitc; - variable[0] = self; - variable[3] = NEW_NitCompiler_nitc___NitCompiler___init(); /*new NitCompiler*/ - variable[2] = variable[3]; - CALL_abstracttool___AbstractCompiler___exec_cmd_line( variable[2] /*c*/)( variable[2] /*c*/) /*AbstractCompiler::exec_cmd_line*/; - return_label7: while(false); - tracehead = trace.prev; +void nitc___Sys___main(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_nitc; + fra.me.line = 139; + fra.me.meth = LOCATE_nitc___Sys___main; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./nitc.nit:139 */ + fra.me.REG[0] = NEW_NitCompiler_nitc___NitCompiler___init(); + /* ./nitc.nit:140 */ + CALL_abstracttool___AbstractCompiler___exec_cmd_line(fra.me.REG[0])(fra.me.REG[0]); + stack_frame_head = fra.me.prev; return; }