X-Git-Url: http://nitlanguage.org diff --git a/c_src/nitc._sep.c b/c_src/nitc._sep.c index cf69958..e26959c 100644 --- a/c_src/nitc._sep.c +++ b/c_src/nitc._sep.c @@ -1,901 +1,1055 @@ /* This C file is generated by NIT to compile module nitc. */ #include "nitc._sep.h" -void nitc___NitCompiler___process_options(val_t p0){ - struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; +val_t nitc___NitCompiler___opt_output(val_t p0){ + struct {struct stack_frame_t me;} 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 = 45; - fra.me.meth = LOCATE_nitc___NitCompiler___process_options; + fra.me.line = 29; + fra.me.meth = LOCATE_nitc___NitCompiler___opt_output; fra.me.has_broke = 0; - fra.me.REG_size = 4; + fra.me.REG_size = 1; 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; - fra.me.REG[1] = fra.me.REG[0]; - /* ./nitc.nit:47 */ - CALL_SUPER_nitc___NitCompiler___process_options(fra.me.REG[0])(fra.me.REG[0]); - 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]); - /* ./nitc.nit:48 */ - CALL_compiling_base___ToolContext___output_file__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - 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]); - /* ./nitc.nit:49 */ - CALL_compiling_base___ToolContext___boost__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - 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]); - /* ./nitc.nit:50 */ - CALL_compiling_base___ToolContext___no_cc__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - 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]); - REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL); - /* ./nitc.nit:52 */ + /* ./nitc.nit:29 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_output(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; - } + nit_abort("Uninitialized attribute %s", "_opt_output", LOCATE_nitc, 29); } - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); + 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)) { - 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; - CALL_compiling_base___ToolContext___ext_prefix__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); + nit_abort("Uninitialized attribute %s", "_opt_boost", LOCATE_nitc, 30); } - 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]); - /* ./nitc.nit:53 */ - CALL_compiling_base___ToolContext___global__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - 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]); - /* ./nitc.nit:54 */ - CALL_compiling_base___ToolContext___compdir__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - 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); - /* ./nitc.nit:55 */ + 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 { - 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; - } + 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)) { - /* ./nitc.nit:56 */ - 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] = 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; - REGB0 = CALL_abstract_collection___Collection___is_empty(fra.me.REG[0])(fra.me.REG[0]); - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - /* ./nitc.nit:57 */ - if (UNTAG_Bool(REGB0)) { - /* ./nitc.nit:58 */ - CALL_compiling_base___ToolContext___compdir__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - } - 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); - /* ./nitc.nit:60 */ - 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:61 */ - 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; - CALL_compiling_base___ToolContext___compdir__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - } + } else { + nit_abort("Uninitialized attribute %s", "_opt_cc_no_link", LOCATE_nitc, 32); } - 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]); - /* ./nitc.nit:64 */ - CALL_compiling_base___ToolContext___compdir__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - 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]); - /* ./nitc.nit:66 */ - CALL_compiling_base___ToolContext___clibdir__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - 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); - /* ./nitc.nit:67 */ + 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 { - 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; - } + 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)) { - /* ./nitc.nit:68 */ - 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] = 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; - REGB0 = CALL_abstract_collection___Collection___is_empty(fra.me.REG[2])(fra.me.REG[2]); - /* ./nitc.nit:69 */ - if (UNTAG_Bool(REGB0)) { - REGB0 = TAG_Int(3); - fra.me.REG[0] = NEW_Array_array___Array___with_capacity(REGB0); - /* ./nitc.nit:70 */ - 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; - array___Array___add(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]); - array___Array___add(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; - array___Array___add(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]; - REGB0 = CALL_file___String___file_exists(fra.me.REG[2])(fra.me.REG[2]); - /* ./nitc.nit:71 */ - if (UNTAG_Bool(REGB0)) { - CALL_compiling_base___ToolContext___clibdir__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - } - } else { - REGB0 = TAG_Int(3); - fra.me.REG[0] = NEW_Array_array___Array___with_capacity(REGB0); - /* ./nitc.nit:73 */ - 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; - array___Array___add(fra.me.REG[0], fra.me.REG[3]); - array___Array___add(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; - array___Array___add(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]; - REGB0 = CALL_file___String___file_exists(fra.me.REG[2])(fra.me.REG[2]); - /* ./nitc.nit:74 */ - if (UNTAG_Bool(REGB0)) { - CALL_compiling_base___ToolContext___clibdir__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - } - } - 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); - /* ./nitc.nit:76 */ - 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:77 */ - 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; - CALL_mmloader___ToolContext___fatal_error(fra.me.REG[1])(fra.me.REG[1], NIT_NULL, fra.me.REG[2]); - } + } 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[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]); - /* ./nitc.nit:80 */ - CALL_compiling_base___ToolContext___bindir__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - 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); - /* ./nitc.nit:82 */ + 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 { - 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; - } + 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)) { - /* ./nitc.nit:83 */ - 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] = 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; - REGB0 = CALL_abstract_collection___Collection___is_empty(fra.me.REG[2])(fra.me.REG[2]); - /* ./nitc.nit:84 */ - if (UNTAG_Bool(REGB0)) { - REGB0 = TAG_Int(3); - fra.me.REG[0] = NEW_Array_array___Array___with_capacity(REGB0); - /* ./nitc.nit:85 */ - 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; - array___Array___add(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]); - array___Array___add(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; - array___Array___add(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]; - REGB0 = CALL_file___String___file_exists(fra.me.REG[2])(fra.me.REG[2]); - /* ./nitc.nit:86 */ - if (UNTAG_Bool(REGB0)) { - CALL_compiling_base___ToolContext___bindir__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - } - } else { - REGB0 = TAG_Int(3); - fra.me.REG[0] = NEW_Array_array___Array___with_capacity(REGB0); - /* ./nitc.nit:88 */ - 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; - array___Array___add(fra.me.REG[0], fra.me.REG[3]); - array___Array___add(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; - array___Array___add(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]; - REGB0 = CALL_file___String___file_exists(fra.me.REG[2])(fra.me.REG[2]); - /* ./nitc.nit:89 */ - if (UNTAG_Bool(REGB0)) { - CALL_compiling_base___ToolContext___bindir__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - } - } - 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); - /* ./nitc.nit:91 */ - 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:92 */ - 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; - CALL_mmloader___ToolContext___fatal_error(fra.me.REG[1])(fra.me.REG[1], NIT_NULL, fra.me.REG[2]); - } + } 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; + return fra.me.REG[0]; } -void nitc___NitCompiler___perform_work(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; +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 = 122; - fra.me.meth = LOCATE_nitc___NitCompiler___perform_work; + fra.me.line = 38; + fra.me.meth = LOCATE_nitc___NitCompiler___opt_global_no_DMR_opt; fra.me.has_broke = 0; - fra.me.REG_size = 3; + fra.me.REG_size = 1; fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - fra.me.REG[2] = CALL_nitc___NitCompiler___opt_dump(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[2] = CALL_opts___Option___value(fra.me.REG[2])(fra.me.REG[2]); - /* ./nitc.nit:124 */ - if (UNTAG_Bool(fra.me.REG[2])) { - /* ./nitc.nit:125 */ - CALL_nitc___NitCompiler___dump_intermediate_code(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); + /* ./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[1] = CALL_abstract_collection___Collection___iterator(fra.me.REG[1])(fra.me.REG[1]); - /* ./nitc.nit:127 */ - while(1) { - REGB0 = CALL_abstract_collection___Iterator___is_ok(fra.me.REG[1])(fra.me.REG[1]); - if (UNTAG_Bool(REGB0)) { - fra.me.REG[2] = CALL_abstract_collection___Iterator___item(fra.me.REG[1])(fra.me.REG[1]); - fra.me.REG[2] = NEW_Program_program___Program___init(fra.me.REG[2]); - /* ./nitc.nit:129 */ - CALL_program___Program___compute_main_method(fra.me.REG[2])(fra.me.REG[2]); - /* ./nitc.nit:130 */ - CALL_table_computation___Program___do_table_computation(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - /* ./nitc.nit:131 */ - CALL_compiling___Program___generate_classes_init_to_icode(fra.me.REG[2])(fra.me.REG[2]); - /* ./nitc.nit:132 */ - CALL_compiling___Program___compile_prog_to_c(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - } else { - /* ./nitc.nit:127 */ - goto label1; - } - CALL_abstract_collection___Iterator___next(fra.me.REG[1])(fra.me.REG[1]); + 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); } - label1: while(0); + fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_global_no_inline_get_set(fra.me.REG[0]); stack_frame_head = fra.me.prev; - return; + return fra.me.REG[0]; } -val_t nitc___NitCompiler___opt_output(val_t p0){ +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 = 29; - fra.me.meth = LOCATE_nitc___NitCompiler___opt_output; + 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; - REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_output(fra.me.REG[0])!=NIT_NULL); - /* ./nitc.nit:29 */ + /* ./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 { - fprintf(stderr, "Uninitialized attribute %s", "_opt_output"); - fprintf(stderr, " (%s:%d)\n", LOCATE_nitc, 29); - nit_exit(1); + 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_output(fra.me.REG[0]); + 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_boost(val_t p0){ +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 = 30; - fra.me.meth = LOCATE_nitc___NitCompiler___opt_boost; + 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; - REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_boost(fra.me.REG[0])!=NIT_NULL); - /* ./nitc.nit:30 */ + /* ./nitc.nit:41 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_global_no_RFIMA(fra.me.REG[0])!=NIT_NULL); if (UNTAG_Bool(REGB0)) { } else { - fprintf(stderr, "Uninitialized attribute %s", "_opt_boost"); - fprintf(stderr, " (%s:%d)\n", LOCATE_nitc, 30); - nit_exit(1); + nit_abort("Uninitialized attribute %s", "_opt_global_no_RFIMA", LOCATE_nitc, 41); } - fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_boost(fra.me.REG[0]); + 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_no_cc(val_t p0){ +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 = 31; - fra.me.meth = LOCATE_nitc___NitCompiler___opt_no_cc; + 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; - REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_no_cc(fra.me.REG[0])!=NIT_NULL); - /* ./nitc.nit:31 */ + /* ./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 { - fprintf(stderr, "Uninitialized attribute %s", "_opt_no_cc"); - fprintf(stderr, " (%s:%d)\n", LOCATE_nitc, 31); - nit_exit(1); + nit_abort("Uninitialized attribute %s", "_opt_compdir", LOCATE_nitc, 45); } - fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_no_cc(fra.me.REG[0]); + 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_global(val_t p0){ +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 = 32; - fra.me.meth = LOCATE_nitc___NitCompiler___opt_global; + 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; - REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_global(fra.me.REG[0])!=NIT_NULL); - /* ./nitc.nit:32 */ + /* ./nitc.nit:46 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_extension_prefix(fra.me.REG[0])!=NIT_NULL); if (UNTAG_Bool(REGB0)) { } else { - fprintf(stderr, "Uninitialized attribute %s", "_opt_global"); - fprintf(stderr, " (%s:%d)\n", LOCATE_nitc, 32); - nit_exit(1); + nit_abort("Uninitialized attribute %s", "_opt_extension_prefix", LOCATE_nitc, 46); } - fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_global(fra.me.REG[0]); + 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_clibdir(val_t p0){ +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 = 33; - fra.me.meth = LOCATE_nitc___NitCompiler___opt_clibdir; + 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; - REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_clibdir(fra.me.REG[0])!=NIT_NULL); - /* ./nitc.nit:33 */ + /* ./nitc.nit:47 */ + REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_output_format(fra.me.REG[0])!=NIT_NULL); if (UNTAG_Bool(REGB0)) { } else { - fprintf(stderr, "Uninitialized attribute %s", "_opt_clibdir"); - fprintf(stderr, " (%s:%d)\n", LOCATE_nitc, 33); - nit_exit(1); + nit_abort("Uninitialized attribute %s", "_opt_output_format", LOCATE_nitc, 47); } - fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_clibdir(fra.me.REG[0]); + 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]; } -val_t nitc___NitCompiler___opt_bindir(val_t p0){ - struct {struct stack_frame_t me;} fra; +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 = 34; - fra.me.meth = LOCATE_nitc___NitCompiler___opt_bindir; + fra.me.line = 49; + fra.me.meth = LOCATE_nitc___NitCompiler___init; fra.me.has_broke = 0; - fra.me.REG_size = 1; + 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; - REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_bindir(fra.me.REG[0])!=NIT_NULL); - /* ./nitc.nit:34 */ - if (UNTAG_Bool(REGB0)) { - } else { - fprintf(stderr, "Uninitialized attribute %s", "_opt_bindir"); - fprintf(stderr, " (%s:%d)\n", LOCATE_nitc, 34); - nit_exit(1); - } - fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_bindir(fra.me.REG[0]); + /* ./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; - return fra.me.REG[0]; + init_table[itpos0] = 1; + return; } -val_t nitc___NitCompiler___opt_compdir(val_t p0){ - struct {struct stack_frame_t me;} fra; +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 = 35; - fra.me.meth = LOCATE_nitc___NitCompiler___opt_compdir; + fra.me.line = 55; + fra.me.meth = LOCATE_nitc___NitCompiler___process_options; fra.me.has_broke = 0; - fra.me.REG_size = 1; + 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; - REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_compdir(fra.me.REG[0])!=NIT_NULL); - /* ./nitc.nit:35 */ + /* ./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; + } + } + 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; + } + } + 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]); + } + } + /* ./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 { - fprintf(stderr, "Uninitialized attribute %s", "_opt_compdir"); - fprintf(stderr, " (%s:%d)\n", LOCATE_nitc, 35); - nit_exit(1); + 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: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 { + /* ./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]); + } + } + /* ./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]); + } } - 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 = 36; - 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; - REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_extension_prefix(fra.me.REG[0])!=NIT_NULL); - /* ./nitc.nit:36 */ + /* ./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 { - fprintf(stderr, "Uninitialized attribute %s", "_opt_extension_prefix"); - fprintf(stderr, " (%s:%d)\n", LOCATE_nitc, 36); - nit_exit(1); + 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; + } } - 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_dump(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_dump; - fra.me.has_broke = 0; - fra.me.REG_size = 1; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[0] = p0; - REGB0 = TAG_Bool(ATTR_nitc___NitCompiler____opt_dump(fra.me.REG[0])!=NIT_NULL); - /* ./nitc.nit:37 */ if (UNTAG_Bool(REGB0)) { - } else { - fprintf(stderr, "Uninitialized attribute %s", "_opt_dump"); - fprintf(stderr, " (%s:%d)\n", LOCATE_nitc, 37); - nit_exit(1); + /* ./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 { + /* ./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]); + } + } + /* ./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]); + } } - fra.me.REG[0] = ATTR_nitc___NitCompiler____opt_dump(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 = 39; - 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; - fra.me.REG[1] = fra.me.REG[0]; - /* ./nitc.nit:41 */ - 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; - CALL_abstracttool___AbstractCompiler___init(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2], init_table); - fra.me.REG[2] = CALL_mmloader___ToolContext___option_context(fra.me.REG[1])(fra.me.REG[1]); - REGB0 = TAG_Int(8); - 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]); - /* ./nitc.nit:42 */ - array___Array___add(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]); - array___Array___add(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]); - array___Array___add(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]); - array___Array___add(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]); - array___Array___add(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]); - array___Array___add(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]); - array___Array___add(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]); - array___Array___add(fra.me.REG[0], fra.me.REG[3]); - fra.me.REG[1] = CALL_nitc___NitCompiler___opt_dump(fra.me.REG[1])(fra.me.REG[1]); - array___Array___add(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___dump_intermediate_code(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[9];} fra; +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; - 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 */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_nitc; - fra.me.line = 97; - fra.me.meth = LOCATE_nitc___NitCompiler___dump_intermediate_code; + fra.me.line = 117; + fra.me.meth = LOCATE_nitc___NitCompiler___perform_work; fra.me.has_broke = 0; - fra.me.REG_size = 10; + 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[5] = NIT_NULL; - fra.me.REG[6] = NIT_NULL; - fra.me.REG[7] = NIT_NULL; - fra.me.REG[8] = NIT_NULL; - fra.me.REG[9] = NIT_NULL; fra.me.REG[0] = p0; fra.me.REG[1] = p1; - fra.me.REG[1] = CALL_abstract_collection___Collection___iterator(fra.me.REG[1])(fra.me.REG[1]); - /* ./nitc.nit:99 */ + /* ./../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); + } + 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) { - REGB0 = CALL_abstract_collection___Iterator___is_ok(fra.me.REG[1])(fra.me.REG[1]); - if (UNTAG_Bool(REGB0)) { - fra.me.REG[2] = CALL_abstract_collection___Iterator___item(fra.me.REG[1])(fra.me.REG[1]); - fra.me.REG[3] = CALL_abstractmetamodel___MMModule___local_classes(fra.me.REG[2])(fra.me.REG[2]); - fra.me.REG[3] = CALL_abstract_collection___Collection___iterator(fra.me.REG[3])(fra.me.REG[3]); - /* ./nitc.nit:100 */ - while(1) { - REGB0 = CALL_abstract_collection___Iterator___is_ok(fra.me.REG[3])(fra.me.REG[3]); - if (UNTAG_Bool(REGB0)) { - fra.me.REG[4] = CALL_abstract_collection___Iterator___item(fra.me.REG[3])(fra.me.REG[3]); - REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[4], COLOR_MMConcreteClass, ID_MMConcreteClass)) /*cast MMConcreteClass*/; - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - /* ./nitc.nit:101 */ - if (UNTAG_Bool(REGB0)) { - goto label1; - } - fra.me.REG[4] = CALL_abstractmetamodel___MMLocalClass___local_local_properties(fra.me.REG[4])(fra.me.REG[4]); - fra.me.REG[4] = CALL_abstract_collection___Collection___iterator(fra.me.REG[4])(fra.me.REG[4]); - /* ./nitc.nit:102 */ - while(1) { - REGB0 = CALL_abstract_collection___Iterator___is_ok(fra.me.REG[4])(fra.me.REG[4]); - if (UNTAG_Bool(REGB0)) { - fra.me.REG[5] = CALL_abstract_collection___Iterator___item(fra.me.REG[4])(fra.me.REG[4]); - fra.me.REG[6] = NIT_NULL; - REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[5], COLOR_MMAttribute, ID_MMAttribute)) /*cast MMAttribute*/; - /* ./nitc.nit:104 */ - if (UNTAG_Bool(REGB0)) { - fra.me.REG[7] = CALL_icode_base___MMAttribute___iroutine(fra.me.REG[5])(fra.me.REG[5]); - fra.me.REG[6] = fra.me.REG[7]; - /* ./nitc.nit:105 */ - } else { - REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[5], COLOR_MMMethod, ID_MMMethod)) /*cast MMMethod*/; - /* ./nitc.nit:106 */ - if (UNTAG_Bool(REGB0)) { - fra.me.REG[7] = CALL_icode_base___MMMethod___iroutine(fra.me.REG[5])(fra.me.REG[5]); - fra.me.REG[6] = fra.me.REG[7]; - /* ./nitc.nit:107 */ - } - } - REGB0 = TAG_Bool(fra.me.REG[6]==NIT_NULL); - /* ./nitc.nit:109 */ - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = TAG_Bool(fra.me.REG[6]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(false); - REGB0 = REGB1; - } else { - REGB1 = CALL_kernel___Object_____eqeq(fra.me.REG[6])(fra.me.REG[6], NIT_NULL); - REGB0 = REGB1; - } - } - if (UNTAG_Bool(REGB0)) { - goto label2; - } - REGB0 = TAG_Int(3); - fra.me.REG[7] = NEW_Array_array___Array___with_capacity(REGB0); - /* ./nitc.nit:110 */ - if (!once_value_3) { - fra.me.REG[8] = BOX_NativeString("**** Property "); - REGB0 = TAG_Int(14); - fra.me.REG[8] = NEW_String_string___String___with_native(fra.me.REG[8], REGB0); - once_value_3 = fra.me.REG[8]; - register_static_object(&once_value_3); - } else fra.me.REG[8] = once_value_3; - array___Array___add(fra.me.REG[7], fra.me.REG[8]); - fra.me.REG[8] = CALL_abstractmetamodel___MMLocalProperty___full_name(fra.me.REG[5])(fra.me.REG[5]); - array___Array___add(fra.me.REG[7], fra.me.REG[8]); - if (!once_value_4) { - fra.me.REG[8] = BOX_NativeString(" ****"); - REGB0 = TAG_Int(5); - fra.me.REG[8] = NEW_String_string___String___with_native(fra.me.REG[8], REGB0); - once_value_4 = fra.me.REG[8]; - register_static_object(&once_value_4); - } else fra.me.REG[8] = once_value_4; - array___Array___add(fra.me.REG[7], fra.me.REG[8]); - fra.me.REG[7] = CALL_string___Object___to_s(fra.me.REG[7])(fra.me.REG[7]); - CALL_file___Object___print(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[7]); - fra.me.REG[7] = NEW_ICodeDumper_icode_dump___ICodeDumper___init(); - REGB0 = TAG_Bool(fra.me.REG[6]==NIT_NULL); - /* ./nitc.nit:112 */ - if (UNTAG_Bool(REGB0)) { - fprintf(stderr, "Reciever is null"); - fprintf(stderr, " (%s:%d)\n", LOCATE_nitc, 112); - nit_exit(1); - } - CALL_icode_dump___IRoutine___dump(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB0 = TAG_Int(3); - fra.me.REG[8] = NEW_Array_array___Array___with_capacity(REGB0); - /* ./nitc.nit:113 */ - if (!once_value_5) { - fra.me.REG[9] = BOX_NativeString("**** OPTIMIZE "); - REGB0 = TAG_Int(14); - fra.me.REG[9] = NEW_String_string___String___with_native(fra.me.REG[9], REGB0); - once_value_5 = fra.me.REG[9]; - register_static_object(&once_value_5); - } else fra.me.REG[9] = once_value_5; - array___Array___add(fra.me.REG[8], fra.me.REG[9]); - fra.me.REG[5] = CALL_abstractmetamodel___MMLocalProperty___full_name(fra.me.REG[5])(fra.me.REG[5]); - array___Array___add(fra.me.REG[8], fra.me.REG[5]); - if (!once_value_6) { - fra.me.REG[5] = BOX_NativeString(" ****"); - REGB0 = TAG_Int(5); - fra.me.REG[5] = NEW_String_string___String___with_native(fra.me.REG[5], REGB0); - once_value_6 = fra.me.REG[5]; - register_static_object(&once_value_6); - } else fra.me.REG[5] = once_value_6; - array___Array___add(fra.me.REG[8], fra.me.REG[5]); - fra.me.REG[8] = CALL_string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]); - CALL_file___Object___print(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[8]); - REGB0 = TAG_Bool(fra.me.REG[6]==NIT_NULL); - /* ./nitc.nit:114 */ - if (UNTAG_Bool(REGB0)) { - fprintf(stderr, "Reciever is null"); - fprintf(stderr, " (%s:%d)\n", LOCATE_nitc, 114); - nit_exit(1); - } - CALL_analysis___IRoutine___optimize(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - fra.me.REG[8] = NEW_ICodeDumper_icode_dump___ICodeDumper___init(); - fra.me.REG[7] = fra.me.REG[8]; - REGB0 = TAG_Bool(fra.me.REG[6]==NIT_NULL); - /* ./nitc.nit:116 */ - if (UNTAG_Bool(REGB0)) { - fprintf(stderr, "Reciever is null"); - fprintf(stderr, " (%s:%d)\n", LOCATE_nitc, 116); - nit_exit(1); - } - CALL_icode_dump___IRoutine___dump(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - label2: while(0); - } else { - /* ./nitc.nit:102 */ - goto label7; - } - CALL_abstract_collection___Iterator___next(fra.me.REG[4])(fra.me.REG[4]); - } - label7: while(0); - label1: while(0); - } else { - /* ./nitc.nit:100 */ - goto label8; + /* ./../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]); } - CALL_abstract_collection___Iterator___next(fra.me.REG[3])(fra.me.REG[3]); } - label8: while(0); + /* ./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 { - /* ./nitc.nit:99 */ - goto label9; + /* ./../lib/standard//collection//array.nit:237 */ + goto label1; } - CALL_abstract_collection___Iterator___next(fra.me.REG[1])(fra.me.REG[1]); } - label9: while(0); + label1: while(0); stack_frame_head = fra.me.prev; return; } @@ -904,14 +1058,15 @@ void nitc___Sys___main(val_t p0){ val_t tmp; fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_nitc; - fra.me.line = 137; + 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:138 */ + /* ./nitc.nit:140 */ CALL_abstracttool___AbstractCompiler___exec_cmd_line(fra.me.REG[0])(fra.me.REG[0]); stack_frame_head = fra.me.prev; return;