X-Git-Url: http://nitlanguage.org diff --git a/c_src/compiling_base._sep.c b/c_src/compiling_base._sep.c index ee4398d..e46e95e 100644 --- a/c_src/compiling_base._sep.c +++ b/c_src/compiling_base._sep.c @@ -1,60 +1,18 @@ /* This C file is generated by NIT to compile module compiling_base. */ #include "compiling_base._sep.h" -val_t compiling_base___ToolContext___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_compiling_base; - fra.me.line = 25; - fra.me.meth = LOCATE_compiling_base___ToolContext___global; - 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_compiling_base___ToolContext____global(fra.me.REG[0])!=NIT_NULL); - /* ./compiling//compiling_base.nit:25 */ - if (UNTAG_Bool(REGB0)) { - } else { - fprintf(stderr, "Uninitialized attribute %s", "_global"); - fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 25); - nit_exit(1); - } - REGB0 = ATTR_compiling_base___ToolContext____global(fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return REGB0; -} -void compiling_base___ToolContext___global__eq(val_t p0, val_t p1){ - 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_compiling_base; - fra.me.line = 25; - fra.me.meth = LOCATE_compiling_base___ToolContext___global__eq; - fra.me.has_broke = 0; - fra.me.REG_size = 1; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[0] = p0; - REGB0 = p1; - /* ./compiling//compiling_base.nit:25 */ - ATTR_compiling_base___ToolContext____global(fra.me.REG[0]) = REGB0; - stack_frame_head = fra.me.prev; - return; -} val_t compiling_base___ToolContext___compdir(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_compiling_base; - fra.me.line = 26; + fra.me.line = 27; fra.me.meth = LOCATE_compiling_base___ToolContext___compdir; fra.me.has_broke = 0; fra.me.REG_size = 1; fra.me.REG[0] = NIT_NULL; fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:27 */ fra.me.REG[0] = ATTR_compiling_base___ToolContext____compdir(fra.me.REG[0]); - /* ./compiling//compiling_base.nit:26 */ stack_frame_head = fra.me.prev; return fra.me.REG[0]; } @@ -63,7 +21,7 @@ void compiling_base___ToolContext___compdir__eq(val_t p0, val_t p1){ val_t tmp; fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 26; + fra.me.line = 27; fra.me.meth = LOCATE_compiling_base___ToolContext___compdir__eq; fra.me.has_broke = 0; fra.me.REG_size = 2; @@ -71,7 +29,7 @@ void compiling_base___ToolContext___compdir__eq(val_t p0, val_t p1){ fra.me.REG[1] = NIT_NULL; fra.me.REG[0] = p0; fra.me.REG[1] = p1; - /* ./compiling//compiling_base.nit:26 */ + /* ./compiling//compiling_base.nit:27 */ ATTR_compiling_base___ToolContext____compdir(fra.me.REG[0]) = fra.me.REG[1]; stack_frame_head = fra.me.prev; return; @@ -81,14 +39,14 @@ val_t compiling_base___ToolContext___clibdir(val_t p0){ val_t tmp; fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 27; + fra.me.line = 28; fra.me.meth = LOCATE_compiling_base___ToolContext___clibdir; fra.me.has_broke = 0; fra.me.REG_size = 1; fra.me.REG[0] = NIT_NULL; fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:28 */ fra.me.REG[0] = ATTR_compiling_base___ToolContext____clibdir(fra.me.REG[0]); - /* ./compiling//compiling_base.nit:27 */ stack_frame_head = fra.me.prev; return fra.me.REG[0]; } @@ -97,7 +55,7 @@ void compiling_base___ToolContext___clibdir__eq(val_t p0, val_t p1){ val_t tmp; fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 27; + fra.me.line = 28; fra.me.meth = LOCATE_compiling_base___ToolContext___clibdir__eq; fra.me.has_broke = 0; fra.me.REG_size = 2; @@ -105,7 +63,7 @@ void compiling_base___ToolContext___clibdir__eq(val_t p0, val_t p1){ fra.me.REG[1] = NIT_NULL; fra.me.REG[0] = p0; fra.me.REG[1] = p1; - /* ./compiling//compiling_base.nit:27 */ + /* ./compiling//compiling_base.nit:28 */ ATTR_compiling_base___ToolContext____clibdir(fra.me.REG[0]) = fra.me.REG[1]; stack_frame_head = fra.me.prev; return; @@ -115,14 +73,14 @@ val_t compiling_base___ToolContext___bindir(val_t p0){ val_t tmp; fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 28; + fra.me.line = 29; fra.me.meth = LOCATE_compiling_base___ToolContext___bindir; fra.me.has_broke = 0; fra.me.REG_size = 1; fra.me.REG[0] = NIT_NULL; fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:29 */ fra.me.REG[0] = ATTR_compiling_base___ToolContext____bindir(fra.me.REG[0]); - /* ./compiling//compiling_base.nit:28 */ stack_frame_head = fra.me.prev; return fra.me.REG[0]; } @@ -131,7 +89,7 @@ void compiling_base___ToolContext___bindir__eq(val_t p0, val_t p1){ val_t tmp; fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 28; + fra.me.line = 29; fra.me.meth = LOCATE_compiling_base___ToolContext___bindir__eq; fra.me.has_broke = 0; fra.me.REG_size = 2; @@ -139,7 +97,7 @@ void compiling_base___ToolContext___bindir__eq(val_t p0, val_t p1){ fra.me.REG[1] = NIT_NULL; fra.me.REG[0] = p0; fra.me.REG[1] = p1; - /* ./compiling//compiling_base.nit:28 */ + /* ./compiling//compiling_base.nit:29 */ ATTR_compiling_base___ToolContext____bindir(fra.me.REG[0]) = fra.me.REG[1]; stack_frame_head = fra.me.prev; return; @@ -149,14 +107,14 @@ val_t compiling_base___ToolContext___output_file(val_t p0){ val_t tmp; fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 29; + fra.me.line = 30; fra.me.meth = LOCATE_compiling_base___ToolContext___output_file; fra.me.has_broke = 0; fra.me.REG_size = 1; fra.me.REG[0] = NIT_NULL; fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:30 */ fra.me.REG[0] = ATTR_compiling_base___ToolContext____output_file(fra.me.REG[0]); - /* ./compiling//compiling_base.nit:29 */ stack_frame_head = fra.me.prev; return fra.me.REG[0]; } @@ -165,7 +123,7 @@ void compiling_base___ToolContext___output_file__eq(val_t p0, val_t p1){ val_t tmp; fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 29; + fra.me.line = 30; fra.me.meth = LOCATE_compiling_base___ToolContext___output_file__eq; fra.me.has_broke = 0; fra.me.REG_size = 2; @@ -173,7 +131,7 @@ void compiling_base___ToolContext___output_file__eq(val_t p0, val_t p1){ fra.me.REG[1] = NIT_NULL; fra.me.REG[0] = p0; fra.me.REG[1] = p1; - /* ./compiling//compiling_base.nit:29 */ + /* ./compiling//compiling_base.nit:30 */ ATTR_compiling_base___ToolContext____output_file(fra.me.REG[0]) = fra.me.REG[1]; stack_frame_head = fra.me.prev; return; @@ -184,19 +142,17 @@ val_t compiling_base___ToolContext___boost(val_t p0){ val_t tmp; fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 30; + fra.me.line = 31; fra.me.meth = LOCATE_compiling_base___ToolContext___boost; fra.me.has_broke = 0; fra.me.REG_size = 1; fra.me.REG[0] = NIT_NULL; fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:31 */ REGB0 = TAG_Bool(ATTR_compiling_base___ToolContext____boost(fra.me.REG[0])!=NIT_NULL); - /* ./compiling//compiling_base.nit:30 */ if (UNTAG_Bool(REGB0)) { } else { - fprintf(stderr, "Uninitialized attribute %s", "_boost"); - fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 30); - nit_exit(1); + nit_abort("Uninitialized attribute %s", "_boost", LOCATE_compiling_base, 31); } REGB0 = ATTR_compiling_base___ToolContext____boost(fra.me.REG[0]); stack_frame_head = fra.me.prev; @@ -208,14 +164,14 @@ void compiling_base___ToolContext___boost__eq(val_t p0, val_t p1){ val_t tmp; fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 30; + fra.me.line = 31; fra.me.meth = LOCATE_compiling_base___ToolContext___boost__eq; fra.me.has_broke = 0; fra.me.REG_size = 1; fra.me.REG[0] = NIT_NULL; fra.me.REG[0] = p0; REGB0 = p1; - /* ./compiling//compiling_base.nit:30 */ + /* ./compiling//compiling_base.nit:31 */ ATTR_compiling_base___ToolContext____boost(fra.me.REG[0]) = REGB0; stack_frame_head = fra.me.prev; return; @@ -226,19 +182,17 @@ val_t compiling_base___ToolContext___no_cc(val_t p0){ val_t tmp; fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 31; + fra.me.line = 32; fra.me.meth = LOCATE_compiling_base___ToolContext___no_cc; fra.me.has_broke = 0; fra.me.REG_size = 1; fra.me.REG[0] = NIT_NULL; fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:32 */ REGB0 = TAG_Bool(ATTR_compiling_base___ToolContext____no_cc(fra.me.REG[0])!=NIT_NULL); - /* ./compiling//compiling_base.nit:31 */ if (UNTAG_Bool(REGB0)) { } else { - fprintf(stderr, "Uninitialized attribute %s", "_no_cc"); - fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 31); - nit_exit(1); + nit_abort("Uninitialized attribute %s", "_no_cc", LOCATE_compiling_base, 32); } REGB0 = ATTR_compiling_base___ToolContext____no_cc(fra.me.REG[0]); stack_frame_head = fra.me.prev; @@ -250,103 +204,1248 @@ void compiling_base___ToolContext___no_cc__eq(val_t p0, val_t p1){ val_t tmp; fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 31; + fra.me.line = 32; fra.me.meth = LOCATE_compiling_base___ToolContext___no_cc__eq; fra.me.has_broke = 0; fra.me.REG_size = 1; fra.me.REG[0] = NIT_NULL; fra.me.REG[0] = p0; REGB0 = p1; - /* ./compiling//compiling_base.nit:31 */ + /* ./compiling//compiling_base.nit:32 */ ATTR_compiling_base___ToolContext____no_cc(fra.me.REG[0]) = REGB0; stack_frame_head = fra.me.prev; return; } +val_t compiling_base___ToolContext___cc_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_compiling_base; + fra.me.line = 33; + fra.me.meth = LOCATE_compiling_base___ToolContext___cc_link; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:33 */ + REGB0 = TAG_Bool(ATTR_compiling_base___ToolContext____cc_link(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_cc_link", LOCATE_compiling_base, 33); + } + REGB0 = ATTR_compiling_base___ToolContext____cc_link(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return REGB0; +} +void compiling_base___ToolContext___cc_link__eq(val_t p0, val_t p1){ + 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_compiling_base; + fra.me.line = 33; + fra.me.meth = LOCATE_compiling_base___ToolContext___cc_link__eq; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + REGB0 = p1; + /* ./compiling//compiling_base.nit:33 */ + ATTR_compiling_base___ToolContext____cc_link(fra.me.REG[0]) = REGB0; + stack_frame_head = fra.me.prev; + return; +} +val_t compiling_base___ToolContext___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_compiling_base; + fra.me.line = 34; + fra.me.meth = LOCATE_compiling_base___ToolContext___cc_libs; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:34 */ + REGB0 = TAG_Bool(ATTR_compiling_base___ToolContext____cc_libs(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_cc_libs", LOCATE_compiling_base, 34); + } + fra.me.REG[0] = ATTR_compiling_base___ToolContext____cc_libs(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +void compiling_base___ToolContext___cc_libs__eq(val_t p0, val_t p1){ + struct {struct stack_frame_t me; val_t MORE_REG[1];} fra; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 34; + fra.me.meth = LOCATE_compiling_base___ToolContext___cc_libs__eq; + fra.me.has_broke = 0; + fra.me.REG_size = 2; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[1] = p1; + /* ./compiling//compiling_base.nit:34 */ + ATTR_compiling_base___ToolContext____cc_libs(fra.me.REG[0]) = fra.me.REG[1]; + stack_frame_head = fra.me.prev; + return; +} +val_t compiling_base___ToolContext___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_compiling_base; + fra.me.line = 35; + fra.me.meth = LOCATE_compiling_base___ToolContext___cc_lib_paths; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:35 */ + REGB0 = TAG_Bool(ATTR_compiling_base___ToolContext____cc_lib_paths(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_cc_lib_paths", LOCATE_compiling_base, 35); + } + fra.me.REG[0] = ATTR_compiling_base___ToolContext____cc_lib_paths(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +void compiling_base___ToolContext___cc_lib_paths__eq(val_t p0, val_t p1){ + struct {struct stack_frame_t me; val_t MORE_REG[1];} fra; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 35; + fra.me.meth = LOCATE_compiling_base___ToolContext___cc_lib_paths__eq; + fra.me.has_broke = 0; + fra.me.REG_size = 2; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[1] = p1; + /* ./compiling//compiling_base.nit:35 */ + ATTR_compiling_base___ToolContext____cc_lib_paths(fra.me.REG[0]) = fra.me.REG[1]; + stack_frame_head = fra.me.prev; + return; +} +val_t compiling_base___ToolContext___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_compiling_base; + fra.me.line = 36; + fra.me.meth = LOCATE_compiling_base___ToolContext___cc_include_paths; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:36 */ + REGB0 = TAG_Bool(ATTR_compiling_base___ToolContext____cc_include_paths(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_cc_include_paths", LOCATE_compiling_base, 36); + } + fra.me.REG[0] = ATTR_compiling_base___ToolContext____cc_include_paths(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +void compiling_base___ToolContext___cc_include_paths__eq(val_t p0, val_t p1){ + struct {struct stack_frame_t me; val_t MORE_REG[1];} fra; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 36; + fra.me.meth = LOCATE_compiling_base___ToolContext___cc_include_paths__eq; + fra.me.has_broke = 0; + fra.me.REG_size = 2; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[1] = p1; + /* ./compiling//compiling_base.nit:36 */ + ATTR_compiling_base___ToolContext____cc_include_paths(fra.me.REG[0]) = fra.me.REG[1]; + stack_frame_head = fra.me.prev; + return; +} val_t compiling_base___ToolContext___ext_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_compiling_base; - fra.me.line = 32; + fra.me.line = 37; fra.me.meth = LOCATE_compiling_base___ToolContext___ext_prefix; fra.me.has_broke = 0; fra.me.REG_size = 1; fra.me.REG[0] = NIT_NULL; fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:37 */ REGB0 = TAG_Bool(ATTR_compiling_base___ToolContext____ext_prefix(fra.me.REG[0])!=NIT_NULL); - /* ./compiling//compiling_base.nit:32 */ if (UNTAG_Bool(REGB0)) { } else { - fprintf(stderr, "Uninitialized attribute %s", "_ext_prefix"); - fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 32); - nit_exit(1); + nit_abort("Uninitialized attribute %s", "_ext_prefix", LOCATE_compiling_base, 37); + } + fra.me.REG[0] = ATTR_compiling_base___ToolContext____ext_prefix(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +void compiling_base___ToolContext___ext_prefix__eq(val_t p0, val_t p1){ + struct {struct stack_frame_t me; val_t MORE_REG[1];} fra; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 37; + fra.me.meth = LOCATE_compiling_base___ToolContext___ext_prefix__eq; + fra.me.has_broke = 0; + fra.me.REG_size = 2; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[1] = p1; + /* ./compiling//compiling_base.nit:37 */ + ATTR_compiling_base___ToolContext____ext_prefix(fra.me.REG[0]) = fra.me.REG[1]; + stack_frame_head = fra.me.prev; + return; +} +void compiling_base___CProgram___init(val_t p0, val_t p1, int* init_table){ + int itpos0 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_CProgram].i; + struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; + val_t REGB0; + 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 */ + if (init_table[itpos0]) return; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 42; + fra.me.meth = LOCATE_compiling_base___CProgram___init; + fra.me.has_broke = 0; + fra.me.REG_size = 3; + 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; + /* ./compiling//compiling_base.nit:44 */ + ATTR_compiling_base___CProgram____program(fra.me.REG[0]) = fra.me.REG[1]; + /* ./compiling//compiling_base.nit:45 */ + fra.me.REG[1] = CALL_program___Program___tc(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[1] = CALL_compiling_base___ToolContext___compdir(fra.me.REG[1])(fra.me.REG[1]); + REGB0 = TAG_Bool(fra.me.REG[1]!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Cast failed", NULL, LOCATE_compiling_base, 45); + } + ATTR_compiling_base___CProgram____compdir(fra.me.REG[0]) = fra.me.REG[1]; + /* ./compiling//compiling_base.nit:46 */ + REGB0 = TAG_Int(5); + fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); + if (!once_value_1) { + fra.me.REG[2] = BOX_NativeString(""); + REGB0 = TAG_Int(0); + 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_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); + fra.me.REG[2] = CALL_compiling_base___CProgram___compdir(fra.me.REG[0])(fra.me.REG[0]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); + if (!once_value_2) { + fra.me.REG[2] = BOX_NativeString("/"); + REGB0 = TAG_Int(1); + fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0); + once_value_2 = fra.me.REG[2]; + register_static_object(&once_value_2); + } else fra.me.REG[2] = once_value_2; + fra.me.REG[2] = fra.me.REG[2]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); + fra.me.REG[2] = CALL_compiling_base___CProgram___program(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[2] = CALL_program___Program___main_module(fra.me.REG[2])(fra.me.REG[2]); + fra.me.REG[2] = CALL_abstractmetamodel___MMModule___name(fra.me.REG[2])(fra.me.REG[2]); + fra.me.REG[2] = CALL_string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); + if (!once_value_3) { + fra.me.REG[2] = BOX_NativeString("._build.sh"); + REGB0 = TAG_Int(10); + fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0); + once_value_3 = fra.me.REG[2]; + register_static_object(&once_value_3); + } else fra.me.REG[2] = once_value_3; + fra.me.REG[2] = fra.me.REG[2]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); + fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); + ATTR_compiling_base___CProgram____build_file(fra.me.REG[0]) = fra.me.REG[1]; + stack_frame_head = fra.me.prev; + init_table[itpos0] = 1; + return; +} +val_t compiling_base___CProgram___program(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_compiling_base; + fra.me.line = 49; + fra.me.meth = LOCATE_compiling_base___CProgram___program; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:49 */ + REGB0 = TAG_Bool(ATTR_compiling_base___CProgram____program(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_program", LOCATE_compiling_base, 49); + } + fra.me.REG[0] = ATTR_compiling_base___CProgram____program(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t compiling_base___CProgram___files(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_compiling_base; + fra.me.line = 52; + fra.me.meth = LOCATE_compiling_base___CProgram___files; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:52 */ + REGB0 = TAG_Bool(ATTR_compiling_base___CProgram____files(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_files", LOCATE_compiling_base, 52); + } + fra.me.REG[0] = ATTR_compiling_base___CProgram____files(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t compiling_base___CProgram___include_dirs(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_compiling_base; + fra.me.line = 55; + fra.me.meth = LOCATE_compiling_base___CProgram___include_dirs; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:55 */ + REGB0 = TAG_Bool(ATTR_compiling_base___CProgram____include_dirs(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_include_dirs", LOCATE_compiling_base, 55); + } + fra.me.REG[0] = ATTR_compiling_base___CProgram____include_dirs(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t compiling_base___CProgram___build_file(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_compiling_base; + fra.me.line = 58; + fra.me.meth = LOCATE_compiling_base___CProgram___build_file; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:58 */ + REGB0 = TAG_Bool(ATTR_compiling_base___CProgram____build_file(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_build_file", LOCATE_compiling_base, 58); + } + fra.me.REG[0] = ATTR_compiling_base___CProgram____build_file(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t compiling_base___CProgram___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_compiling_base; + fra.me.line = 61; + fra.me.meth = LOCATE_compiling_base___CProgram___compdir; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:61 */ + REGB0 = TAG_Bool(ATTR_compiling_base___CProgram____compdir(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_compdir", LOCATE_compiling_base, 61); + } + fra.me.REG[0] = ATTR_compiling_base___CProgram____compdir(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t compiling_base___CProgram___module_header_name(val_t p0, val_t p1){ + struct {struct stack_frame_t me; val_t MORE_REG[4];} fra; + val_t REGB0; + val_t tmp; + static val_t once_value_2; /* Once value */ + static val_t once_value_3; /* Once value */ + static val_t once_value_4; /* Once value */ + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 64; + fra.me.meth = LOCATE_compiling_base___CProgram___module_header_name; + 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; + /* ./compiling//compiling_base.nit:67 */ + REGB0 = TAG_Bool(ATTR_compiling_base___CProgram____module_include(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_module_include", LOCATE_compiling_base, 67); + } + fra.me.REG[2] = ATTR_compiling_base___CProgram____module_include(fra.me.REG[0]); + REGB0 = CALL_abstract_collection___MapRead___has_key(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); + if (UNTAG_Bool(REGB0)) { + /* ./compiling//compiling_base.nit:68 */ + REGB0 = TAG_Bool(ATTR_compiling_base___CProgram____module_include(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_module_include", LOCATE_compiling_base, 68); + } + fra.me.REG[2] = ATTR_compiling_base___CProgram____module_include(fra.me.REG[0]); + fra.me.REG[2] = CALL_abstract_collection___MapRead_____bra(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); + goto label1; + } + /* ./compiling//compiling_base.nit:70 */ + REGB0 = TAG_Int(5); + fra.me.REG[3] = NEW_Array_array___Array___with_capacity(REGB0); + if (!once_value_2) { + fra.me.REG[4] = BOX_NativeString(""); + REGB0 = TAG_Int(0); + fra.me.REG[4] = NEW_String_string___String___with_native(fra.me.REG[4], REGB0); + once_value_2 = fra.me.REG[4]; + register_static_object(&once_value_2); + } else fra.me.REG[4] = once_value_2; + fra.me.REG[4] = fra.me.REG[4]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); + fra.me.REG[4] = CALL_abstractmetamodel___MMModule___name(fra.me.REG[1])(fra.me.REG[1]); + fra.me.REG[4] = CALL_string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); + if (!once_value_3) { + fra.me.REG[4] = BOX_NativeString("."); + REGB0 = TAG_Int(1); + fra.me.REG[4] = NEW_String_string___String___with_native(fra.me.REG[4], REGB0); + once_value_3 = fra.me.REG[4]; + register_static_object(&once_value_3); + } else fra.me.REG[4] = once_value_3; + fra.me.REG[4] = fra.me.REG[4]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); + fra.me.REG[4] = CALL_compiling_base___CProgram___get_file_ending(fra.me.REG[0])(fra.me.REG[0]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); + if (!once_value_4) { + fra.me.REG[4] = BOX_NativeString(".h"); + REGB0 = TAG_Int(2); + fra.me.REG[4] = NEW_String_string___String___with_native(fra.me.REG[4], REGB0); + once_value_4 = fra.me.REG[4]; + register_static_object(&once_value_4); + } else fra.me.REG[4] = once_value_4; + fra.me.REG[4] = fra.me.REG[4]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); + fra.me.REG[3] = CALL_string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]); + /* ./compiling//compiling_base.nit:71 */ + REGB0 = TAG_Bool(ATTR_compiling_base___CProgram____module_include(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_module_include", LOCATE_compiling_base, 71); + } + fra.me.REG[0] = ATTR_compiling_base___CProgram____module_include(fra.me.REG[0]); + CALL_abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[3]); + /* ./compiling//compiling_base.nit:72 */ + fra.me.REG[2] = fra.me.REG[3]; + goto label1; + label1: while(0); + stack_frame_head = fra.me.prev; + return fra.me.REG[2]; +} +val_t compiling_base___CProgram___get_file_ending(val_t p0){ + struct {struct stack_frame_t me; val_t MORE_REG[1];} fra; + val_t REGB0; + val_t tmp; + static val_t once_value_1; /* Once value */ + static val_t once_value_2; /* Once value */ + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 78; + fra.me.meth = LOCATE_compiling_base___CProgram___get_file_ending; + fra.me.has_broke = 0; + fra.me.REG_size = 2; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:80 */ + fra.me.REG[0] = CALL_compiling_base___CProgram___program(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[0] = CALL_program___Program___tc(fra.me.REG[0])(fra.me.REG[0]); + REGB0 = CALL_program___ToolContext___global(fra.me.REG[0])(fra.me.REG[0]); + if (UNTAG_Bool(REGB0)) { + if (!once_value_1) { + fra.me.REG[0] = BOX_NativeString("_glob"); + REGB0 = TAG_Int(5); + 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]; + } else { + if (!once_value_2) { + fra.me.REG[1] = BOX_NativeString("_sep"); + REGB0 = TAG_Int(4); + fra.me.REG[1] = NEW_String_string___String___with_native(fra.me.REG[1], REGB0); + once_value_2 = fra.me.REG[1]; + register_static_object(&once_value_2); + } else fra.me.REG[1] = once_value_2; + fra.me.REG[1] = fra.me.REG[1]; + fra.me.REG[0] = fra.me.REG[1]; + } + goto label3; + label3: while(0); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +void compiling_base___CProgram___generate_build_file(val_t p0){ + struct {struct stack_frame_t me; val_t MORE_REG[7];} fra; + val_t REGB0; + val_t REGB1; + val_t REGB2; + 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 */ + static val_t once_value_19; /* Once value */ + static val_t once_value_20; /* Once value */ + static val_t once_value_21; /* Once value */ + static val_t once_value_22; /* Once value */ + static val_t once_value_23; /* Once value */ + static val_t once_value_24; /* Once value */ + static val_t once_value_25; /* Once value */ + static val_t once_value_27; /* Once value */ + static val_t once_value_28; /* Once value */ + static val_t once_value_30; /* Once value */ + static val_t once_value_31; /* Once value */ + static val_t once_value_33; /* Once value */ + static val_t once_value_34; /* Once value */ + static val_t once_value_35; /* Once value */ + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 82; + fra.me.meth = LOCATE_compiling_base___CProgram___generate_build_file; + fra.me.has_broke = 0; + fra.me.REG_size = 8; + 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[0] = p0; + /* ./compiling//compiling_base.nit:85 */ + REGB0 = TAG_Bool(ATTR_compiling_base___CProgram____build_file(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_build_file", LOCATE_compiling_base, 85); + } + fra.me.REG[1] = ATTR_compiling_base___CProgram____build_file(fra.me.REG[0]); + fra.me.REG[1] = NEW_OFStream_file___OFStream___open(fra.me.REG[1]); + /* ./compiling//compiling_base.nit:86 */ + if (!once_value_1) { + fra.me.REG[2] = BOX_NativeString(""); + REGB0 = TAG_Int(0); + 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]; + /* ./compiling//compiling_base.nit:87 */ + fra.me.REG[3] = CALL_compiling_base___CProgram___program(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[3] = CALL_program___Program___tc(fra.me.REG[3])(fra.me.REG[3]); + /* ./compiling//compiling_base.nit:89 */ + REGB0 = CALL_mmloader___ToolContext___verbose_level(fra.me.REG[3])(fra.me.REG[3]); + REGB1 = TAG_Int(1); + REGB2 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB1)); + if (UNTAG_Bool(REGB2)) { + } else { + /* ./../lib/standard//kernel.nit:207 */ + REGB1 = TAG_Bool((REGB0)==(REGB1)); + /* ./compiling//compiling_base.nit:89 */ + REGB2 = REGB1; + } + if (UNTAG_Bool(REGB2)) { + /* ./compiling//compiling_base.nit:90 */ + if (!once_value_2) { + fra.me.REG[4] = BOX_NativeString("-v"); + REGB2 = TAG_Int(2); + fra.me.REG[4] = NEW_String_string___String___with_native(fra.me.REG[4], REGB2); + once_value_2 = fra.me.REG[4]; + register_static_object(&once_value_2); + } else fra.me.REG[4] = once_value_2; + fra.me.REG[4] = fra.me.REG[4]; + fra.me.REG[2] = fra.me.REG[4]; + } else { + /* ./compiling//compiling_base.nit:91 */ + REGB2 = CALL_mmloader___ToolContext___verbose_level(fra.me.REG[3])(fra.me.REG[3]); + REGB1 = TAG_Int(2); + /* ./../lib/standard//kernel.nit:213 */ + REGB1 = TAG_Bool(UNTAG_Int(REGB2)>=UNTAG_Int(REGB1)); + /* ./compiling//compiling_base.nit:91 */ + if (UNTAG_Bool(REGB1)) { + /* ./compiling//compiling_base.nit:93 */ + if (!once_value_3) { + fra.me.REG[4] = BOX_NativeString("-vv"); + REGB1 = TAG_Int(3); + fra.me.REG[4] = NEW_String_string___String___with_native(fra.me.REG[4], REGB1); + once_value_3 = fra.me.REG[4]; + register_static_object(&once_value_3); + } else fra.me.REG[4] = once_value_3; + fra.me.REG[4] = fra.me.REG[4]; + fra.me.REG[2] = fra.me.REG[4]; + } + } + /* ./compiling//compiling_base.nit:96 */ + if (!once_value_4) { + fra.me.REG[4] = BOX_NativeString("#!/bin/sh\n"); + REGB1 = TAG_Int(10); + fra.me.REG[4] = NEW_String_string___String___with_native(fra.me.REG[4], REGB1); + once_value_4 = fra.me.REG[4]; + register_static_object(&once_value_4); + } else fra.me.REG[4] = once_value_4; + fra.me.REG[4] = fra.me.REG[4]; + CALL_stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); + /* ./compiling//compiling_base.nit:97 */ + REGB1 = TAG_Int(3); + fra.me.REG[4] = NEW_Array_array___Array___with_capacity(REGB1); + if (!once_value_5) { + fra.me.REG[5] = BOX_NativeString("# This shell script is generated by NIT to compile the program "); + REGB1 = TAG_Int(63); + fra.me.REG[5] = NEW_String_string___String___with_native(fra.me.REG[5], REGB1); + once_value_5 = fra.me.REG[5]; + register_static_object(&once_value_5); + } else fra.me.REG[5] = once_value_5; + fra.me.REG[5] = fra.me.REG[5]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); + fra.me.REG[5] = CALL_compiling_base___CProgram___program(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[5] = CALL_program___Program___main_module(fra.me.REG[5])(fra.me.REG[5]); + fra.me.REG[5] = CALL_abstractmetamodel___MMModule___name(fra.me.REG[5])(fra.me.REG[5]); + fra.me.REG[5] = CALL_string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); + if (!once_value_6) { + fra.me.REG[5] = BOX_NativeString(".\n"); + REGB1 = TAG_Int(2); + fra.me.REG[5] = NEW_String_string___String___with_native(fra.me.REG[5], REGB1); + once_value_6 = fra.me.REG[5]; + register_static_object(&once_value_6); + } else fra.me.REG[5] = once_value_6; + fra.me.REG[5] = fra.me.REG[5]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); + fra.me.REG[4] = CALL_string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]); + CALL_stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); + /* ./compiling//compiling_base.nit:98 */ + REGB1 = TAG_Int(3); + fra.me.REG[4] = NEW_Array_array___Array___with_capacity(REGB1); + if (!once_value_7) { + fra.me.REG[5] = BOX_NativeString("CLIBDIR=\""); + REGB1 = TAG_Int(9); + fra.me.REG[5] = NEW_String_string___String___with_native(fra.me.REG[5], REGB1); + once_value_7 = fra.me.REG[5]; + register_static_object(&once_value_7); + } else fra.me.REG[5] = once_value_7; + fra.me.REG[5] = fra.me.REG[5]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); + fra.me.REG[5] = CALL_compiling_base___ToolContext___clibdir(fra.me.REG[3])(fra.me.REG[3]); + REGB1 = TAG_Bool(fra.me.REG[5]!=NIT_NULL); + if (UNTAG_Bool(REGB1)) { + } else { + nit_abort("Cast failed", NULL, LOCATE_compiling_base, 98); + } + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); + if (!once_value_8) { + fra.me.REG[5] = BOX_NativeString("\"\n"); + REGB1 = TAG_Int(2); + fra.me.REG[5] = NEW_String_string___String___with_native(fra.me.REG[5], REGB1); + once_value_8 = fra.me.REG[5]; + register_static_object(&once_value_8); + } else fra.me.REG[5] = once_value_8; + fra.me.REG[5] = fra.me.REG[5]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); + fra.me.REG[4] = CALL_string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]); + CALL_stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); + /* ./compiling//compiling_base.nit:99 */ + REGB1 = TAG_Int(9); + fra.me.REG[4] = NEW_Array_array___Array___with_capacity(REGB1); + if (!once_value_9) { + fra.me.REG[5] = BOX_NativeString(""); + REGB1 = TAG_Int(0); + fra.me.REG[5] = NEW_String_string___String___with_native(fra.me.REG[5], REGB1); + once_value_9 = fra.me.REG[5]; + register_static_object(&once_value_9); + } else fra.me.REG[5] = once_value_9; + fra.me.REG[5] = fra.me.REG[5]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); + fra.me.REG[5] = CALL_compiling_base___ToolContext___bindir(fra.me.REG[3])(fra.me.REG[3]); + REGB1 = TAG_Bool(fra.me.REG[5]!=NIT_NULL); + if (UNTAG_Bool(REGB1)) { + } else { + nit_abort("Cast failed", NULL, LOCATE_compiling_base, 99); + } + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); + if (!once_value_10) { + fra.me.REG[5] = BOX_NativeString("/gccx "); + REGB1 = TAG_Int(6); + fra.me.REG[5] = NEW_String_string___String___with_native(fra.me.REG[5], REGB1); + once_value_10 = fra.me.REG[5]; + register_static_object(&once_value_10); + } else fra.me.REG[5] = once_value_10; + fra.me.REG[5] = fra.me.REG[5]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]); + if (!once_value_11) { + fra.me.REG[2] = BOX_NativeString(" -d "); + REGB1 = TAG_Int(4); + fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB1); + 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_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]); + fra.me.REG[2] = CALL_compiling_base___CProgram___compdir(fra.me.REG[0])(fra.me.REG[0]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]); + if (!once_value_12) { + fra.me.REG[2] = BOX_NativeString(" -I $CLIBDIR "); + REGB1 = TAG_Int(13); + fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB1); + 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]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]); + fra.me.REG[2] = CALL_compiling_base___CProgram___include_dirs(fra.me.REG[0])(fra.me.REG[0]); + if (!once_value_13) { + fra.me.REG[5] = BOX_NativeString(" "); + REGB1 = TAG_Int(1); + fra.me.REG[5] = NEW_String_string___String___with_native(fra.me.REG[5], REGB1); + once_value_13 = fra.me.REG[5]; + register_static_object(&once_value_13); + } else fra.me.REG[5] = once_value_13; + fra.me.REG[5] = fra.me.REG[5]; + fra.me.REG[5] = CALL_string___Collection___join(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[5]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); + if (!once_value_14) { + fra.me.REG[5] = BOX_NativeString(""); + REGB1 = TAG_Int(0); + fra.me.REG[5] = NEW_String_string___String___with_native(fra.me.REG[5], REGB1); + once_value_14 = fra.me.REG[5]; + register_static_object(&once_value_14); + } else fra.me.REG[5] = once_value_14; + fra.me.REG[5] = fra.me.REG[5]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); + fra.me.REG[4] = CALL_string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]); + CALL_stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); + /* ./compiling//compiling_base.nit:100 */ + fra.me.REG[4] = CALL_compiling_base___ToolContext___output_file(fra.me.REG[3])(fra.me.REG[3]); + REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL); + if (UNTAG_Bool(REGB1)) { + } else { + REGB2 = TAG_Bool(fra.me.REG[4]==NIT_NULL); + if (UNTAG_Bool(REGB2)) { + REGB2 = TAG_Bool(false); + REGB1 = REGB2; + } else { + REGB2 = CALL_kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], NIT_NULL); + REGB1 = REGB2; + } + } + REGB1 = TAG_Bool(!UNTAG_Bool(REGB1)); + if (UNTAG_Bool(REGB1)) { + /* ./compiling//compiling_base.nit:101 */ + REGB1 = TAG_Int(3); + fra.me.REG[4] = NEW_Array_array___Array___with_capacity(REGB1); + if (!once_value_15) { + fra.me.REG[5] = BOX_NativeString(" -o "); + REGB1 = TAG_Int(4); + fra.me.REG[5] = NEW_String_string___String___with_native(fra.me.REG[5], REGB1); + once_value_15 = fra.me.REG[5]; + register_static_object(&once_value_15); + } else fra.me.REG[5] = once_value_15; + fra.me.REG[5] = fra.me.REG[5]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); + fra.me.REG[5] = CALL_compiling_base___ToolContext___output_file(fra.me.REG[3])(fra.me.REG[3]); + REGB1 = TAG_Bool(fra.me.REG[5]!=NIT_NULL); + if (UNTAG_Bool(REGB1)) { + } else { + nit_abort("Cast failed", NULL, LOCATE_compiling_base, 101); + } + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); + if (!once_value_16) { + fra.me.REG[5] = BOX_NativeString(""); + REGB1 = TAG_Int(0); + fra.me.REG[5] = NEW_String_string___String___with_native(fra.me.REG[5], REGB1); + once_value_16 = fra.me.REG[5]; + register_static_object(&once_value_16); + } else fra.me.REG[5] = once_value_16; + fra.me.REG[5] = fra.me.REG[5]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); + fra.me.REG[4] = CALL_string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]); + CALL_stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); + } else { + /* ./compiling//compiling_base.nit:102 */ + fra.me.REG[4] = CALL_compiling_base___ToolContext___ext_prefix(fra.me.REG[3])(fra.me.REG[3]); + REGB1 = CALL_abstract_collection___Collection___is_empty(fra.me.REG[4])(fra.me.REG[4]); + if (UNTAG_Bool(REGB1)) { + /* ./compiling//compiling_base.nit:103 */ + REGB1 = TAG_Int(3); + fra.me.REG[4] = NEW_Array_array___Array___with_capacity(REGB1); + if (!once_value_17) { + fra.me.REG[5] = BOX_NativeString(" -o "); + REGB1 = TAG_Int(4); + fra.me.REG[5] = NEW_String_string___String___with_native(fra.me.REG[5], REGB1); + once_value_17 = fra.me.REG[5]; + register_static_object(&once_value_17); + } else fra.me.REG[5] = once_value_17; + fra.me.REG[5] = fra.me.REG[5]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); + fra.me.REG[5] = CALL_compiling_base___CProgram___program(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[5] = CALL_program___Program___main_module(fra.me.REG[5])(fra.me.REG[5]); + fra.me.REG[5] = CALL_abstractmetamodel___MMModule___name(fra.me.REG[5])(fra.me.REG[5]); + fra.me.REG[5] = CALL_string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); + if (!once_value_18) { + fra.me.REG[5] = BOX_NativeString(""); + REGB1 = TAG_Int(0); + fra.me.REG[5] = NEW_String_string___String___with_native(fra.me.REG[5], REGB1); + once_value_18 = fra.me.REG[5]; + register_static_object(&once_value_18); + } else fra.me.REG[5] = once_value_18; + fra.me.REG[5] = fra.me.REG[5]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); + fra.me.REG[4] = CALL_string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]); + CALL_stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); + } else { + /* ./compiling//compiling_base.nit:105 */ + REGB1 = TAG_Int(5); + fra.me.REG[4] = NEW_Array_array___Array___with_capacity(REGB1); + if (!once_value_19) { + fra.me.REG[5] = BOX_NativeString(" -o "); + REGB1 = TAG_Int(4); + fra.me.REG[5] = NEW_String_string___String___with_native(fra.me.REG[5], REGB1); + once_value_19 = fra.me.REG[5]; + register_static_object(&once_value_19); + } else fra.me.REG[5] = once_value_19; + fra.me.REG[5] = fra.me.REG[5]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); + fra.me.REG[5] = CALL_compiling_base___CProgram___program(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[5] = CALL_program___Program___main_module(fra.me.REG[5])(fra.me.REG[5]); + fra.me.REG[5] = CALL_abstractmetamodel___MMModule___name(fra.me.REG[5])(fra.me.REG[5]); + fra.me.REG[5] = CALL_string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); + if (!once_value_20) { + fra.me.REG[5] = BOX_NativeString("_"); + REGB1 = TAG_Int(1); + fra.me.REG[5] = NEW_String_string___String___with_native(fra.me.REG[5], REGB1); + once_value_20 = fra.me.REG[5]; + register_static_object(&once_value_20); + } else fra.me.REG[5] = once_value_20; + fra.me.REG[5] = fra.me.REG[5]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); + fra.me.REG[5] = CALL_compiling_base___ToolContext___ext_prefix(fra.me.REG[3])(fra.me.REG[3]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); + if (!once_value_21) { + fra.me.REG[5] = BOX_NativeString(""); + REGB1 = TAG_Int(0); + fra.me.REG[5] = NEW_String_string___String___with_native(fra.me.REG[5], REGB1); + once_value_21 = fra.me.REG[5]; + register_static_object(&once_value_21); + } else fra.me.REG[5] = once_value_21; + fra.me.REG[5] = fra.me.REG[5]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); + fra.me.REG[4] = CALL_string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]); + CALL_stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); + } + } + /* ./compiling//compiling_base.nit:107 */ + REGB1 = CALL_compiling_base___ToolContext___boost(fra.me.REG[3])(fra.me.REG[3]); + if (UNTAG_Bool(REGB1)) { + if (!once_value_22) { + fra.me.REG[4] = BOX_NativeString(" -O"); + REGB1 = TAG_Int(3); + fra.me.REG[4] = NEW_String_string___String___with_native(fra.me.REG[4], REGB1); + once_value_22 = fra.me.REG[4]; + register_static_object(&once_value_22); + } else fra.me.REG[4] = once_value_22; + fra.me.REG[4] = fra.me.REG[4]; + CALL_stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); + } + /* ./compiling//compiling_base.nit:108 */ + REGB1 = CALL_compiling_base___ToolContext___cc_link(fra.me.REG[3])(fra.me.REG[3]); + REGB1 = TAG_Bool(!UNTAG_Bool(REGB1)); + if (UNTAG_Bool(REGB1)) { + if (!once_value_23) { + fra.me.REG[4] = BOX_NativeString(" -x \"-c\""); + REGB1 = TAG_Int(8); + fra.me.REG[4] = NEW_String_string___String___with_native(fra.me.REG[4], REGB1); + once_value_23 = fra.me.REG[4]; + register_static_object(&once_value_23); + } else fra.me.REG[4] = once_value_23; + fra.me.REG[4] = fra.me.REG[4]; + CALL_stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); + } + /* ./compiling//compiling_base.nit:109 */ + fra.me.REG[4] = CALL_compiling_base___ToolContext___cc_libs(fra.me.REG[3])(fra.me.REG[3]); + /* ./../lib/standard//collection//array.nit:234 */ + REGB1 = TAG_Int(0); + /* ./../lib/standard//collection//array.nit:235 */ + REGB2 = TAG_Bool(ATTR_array___AbstractArrayRead____length(fra.me.REG[4])!=NIT_NULL); + if (UNTAG_Bool(REGB2)) { + } else { + nit_abort("Uninitialized attribute %s", "_length", LOCATE_array, 235); + } + REGB2 = ATTR_array___AbstractArrayRead____length(fra.me.REG[4]); + /* ./../lib/standard//collection//array.nit:236 */ + fra.me.REG[5] = ATTR_array___Array____items(fra.me.REG[4]); + /* ./../lib/standard//collection//array.nit:237 */ + while(1) { + /* ./../lib/standard//collection//array.nit:23 */ + REGB2 = TAG_Bool(ATTR_array___AbstractArrayRead____length(fra.me.REG[4])!=NIT_NULL); + if (UNTAG_Bool(REGB2)) { + } else { + nit_abort("Uninitialized attribute %s", "_length", LOCATE_array, 23); + } + REGB2 = ATTR_array___AbstractArrayRead____length(fra.me.REG[4]); + /* ./../lib/standard//kernel.nit:212 */ + REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; + /* ./compiling//compiling_base.nit:109 */ + REGB2 = TAG_Int(3); + fra.me.REG[6] = NEW_Array_array___Array___with_capacity(REGB2); + if (!once_value_24) { + fra.me.REG[7] = BOX_NativeString(" -x \"-l "); + REGB2 = TAG_Int(8); + fra.me.REG[7] = NEW_String_string___String___with_native(fra.me.REG[7], REGB2); + once_value_24 = fra.me.REG[7]; + register_static_object(&once_value_24); + } else fra.me.REG[7] = once_value_24; + fra.me.REG[7] = fra.me.REG[7]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); + if (!once_value_25) { + fra.me.REG[2] = BOX_NativeString("\""); + REGB2 = TAG_Int(1); + fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB2); + once_value_25 = fra.me.REG[2]; + register_static_object(&once_value_25); + } else fra.me.REG[2] = once_value_25; + fra.me.REG[2] = fra.me.REG[2]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); + fra.me.REG[6] = CALL_string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); + CALL_stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[6]); + /* ./../lib/standard//collection//array.nit:239 */ + REGB2 = TAG_Int(1); + /* ./../lib/standard//kernel.nit:215 */ + REGB2 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB2)); + /* ./../lib/standard//collection//array.nit:239 */ + REGB1 = REGB2; + } else { + /* ./../lib/standard//collection//array.nit:237 */ + goto label26; + } + } + label26: while(0); + /* ./compiling//compiling_base.nit:110 */ + fra.me.REG[5] = CALL_compiling_base___ToolContext___cc_lib_paths(fra.me.REG[3])(fra.me.REG[3]); + /* ./../lib/standard//collection//array.nit:234 */ + REGB1 = TAG_Int(0); + /* ./../lib/standard//collection//array.nit:235 */ + REGB2 = TAG_Bool(ATTR_array___AbstractArrayRead____length(fra.me.REG[5])!=NIT_NULL); + if (UNTAG_Bool(REGB2)) { + } else { + nit_abort("Uninitialized attribute %s", "_length", LOCATE_array, 235); + } + REGB2 = ATTR_array___AbstractArrayRead____length(fra.me.REG[5]); + /* ./../lib/standard//collection//array.nit:236 */ + fra.me.REG[4] = ATTR_array___Array____items(fra.me.REG[5]); + /* ./../lib/standard//collection//array.nit:237 */ + while(1) { + /* ./../lib/standard//collection//array.nit:23 */ + REGB2 = TAG_Bool(ATTR_array___AbstractArrayRead____length(fra.me.REG[5])!=NIT_NULL); + if (UNTAG_Bool(REGB2)) { + } else { + nit_abort("Uninitialized attribute %s", "_length", LOCATE_array, 23); + } + REGB2 = ATTR_array___AbstractArrayRead____length(fra.me.REG[5]); + /* ./../lib/standard//kernel.nit:212 */ + REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; + /* ./compiling//compiling_base.nit:110 */ + REGB2 = TAG_Int(3); + fra.me.REG[2] = NEW_Array_array___Array___with_capacity(REGB2); + if (!once_value_27) { + fra.me.REG[7] = BOX_NativeString(" -x \"-L "); + REGB2 = TAG_Int(8); + fra.me.REG[7] = NEW_String_string___String___with_native(fra.me.REG[7], REGB2); + once_value_27 = fra.me.REG[7]; + register_static_object(&once_value_27); + } else fra.me.REG[7] = once_value_27; + fra.me.REG[7] = fra.me.REG[7]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[7]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]); + if (!once_value_28) { + fra.me.REG[6] = BOX_NativeString("\""); + REGB2 = TAG_Int(1); + fra.me.REG[6] = NEW_String_string___String___with_native(fra.me.REG[6], REGB2); + once_value_28 = fra.me.REG[6]; + register_static_object(&once_value_28); + } else fra.me.REG[6] = once_value_28; + fra.me.REG[6] = fra.me.REG[6]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]); + fra.me.REG[2] = CALL_string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]); + CALL_stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); + /* ./../lib/standard//collection//array.nit:239 */ + REGB2 = TAG_Int(1); + /* ./../lib/standard//kernel.nit:215 */ + REGB2 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB2)); + /* ./../lib/standard//collection//array.nit:239 */ + REGB1 = REGB2; + } else { + /* ./../lib/standard//collection//array.nit:237 */ + goto label29; + } + } + label29: while(0); + /* ./compiling//compiling_base.nit:111 */ + fra.me.REG[3] = CALL_compiling_base___ToolContext___cc_include_paths(fra.me.REG[3])(fra.me.REG[3]); + /* ./../lib/standard//collection//array.nit:234 */ + REGB1 = TAG_Int(0); + /* ./../lib/standard//collection//array.nit:235 */ + REGB2 = TAG_Bool(ATTR_array___AbstractArrayRead____length(fra.me.REG[3])!=NIT_NULL); + if (UNTAG_Bool(REGB2)) { + } else { + nit_abort("Uninitialized attribute %s", "_length", LOCATE_array, 235); + } + REGB2 = ATTR_array___AbstractArrayRead____length(fra.me.REG[3]); + /* ./../lib/standard//collection//array.nit:236 */ + fra.me.REG[4] = ATTR_array___Array____items(fra.me.REG[3]); + /* ./../lib/standard//collection//array.nit:237 */ + while(1) { + /* ./../lib/standard//collection//array.nit:23 */ + REGB2 = TAG_Bool(ATTR_array___AbstractArrayRead____length(fra.me.REG[3])!=NIT_NULL); + if (UNTAG_Bool(REGB2)) { + } else { + nit_abort("Uninitialized attribute %s", "_length", LOCATE_array, 23); + } + REGB2 = ATTR_array___AbstractArrayRead____length(fra.me.REG[3]); + /* ./../lib/standard//kernel.nit:212 */ + REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; + /* ./compiling//compiling_base.nit:111 */ + REGB2 = TAG_Int(3); + fra.me.REG[2] = NEW_Array_array___Array___with_capacity(REGB2); + if (!once_value_30) { + fra.me.REG[6] = BOX_NativeString(" -x \"-I "); + REGB2 = TAG_Int(8); + fra.me.REG[6] = NEW_String_string___String___with_native(fra.me.REG[6], REGB2); + once_value_30 = fra.me.REG[6]; + register_static_object(&once_value_30); + } else fra.me.REG[6] = once_value_30; + fra.me.REG[6] = fra.me.REG[6]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[5]); + if (!once_value_31) { + fra.me.REG[5] = BOX_NativeString("\""); + REGB2 = TAG_Int(1); + fra.me.REG[5] = NEW_String_string___String___with_native(fra.me.REG[5], REGB2); + once_value_31 = fra.me.REG[5]; + register_static_object(&once_value_31); + } else fra.me.REG[5] = once_value_31; + fra.me.REG[5] = fra.me.REG[5]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[5]); + fra.me.REG[2] = CALL_string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]); + CALL_stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); + /* ./../lib/standard//collection//array.nit:239 */ + REGB2 = TAG_Int(1); + /* ./../lib/standard//kernel.nit:215 */ + REGB2 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB2)); + /* ./../lib/standard//collection//array.nit:239 */ + REGB1 = REGB2; + } else { + /* ./../lib/standard//collection//array.nit:237 */ + goto label32; + } } - fra.me.REG[0] = ATTR_compiling_base___ToolContext____ext_prefix(fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return fra.me.REG[0]; -} -void compiling_base___ToolContext___ext_prefix__eq(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[1];} fra; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling_base; - fra.me.line = 32; - fra.me.meth = LOCATE_compiling_base___ToolContext___ext_prefix__eq; - fra.me.has_broke = 0; - fra.me.REG_size = 2; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* ./compiling//compiling_base.nit:32 */ - ATTR_compiling_base___ToolContext____ext_prefix(fra.me.REG[0]) = fra.me.REG[1]; + label32: while(0); + /* ./compiling//compiling_base.nit:112 */ + REGB1 = TAG_Int(3); + fra.me.REG[4] = NEW_Array_array___Array___with_capacity(REGB1); + if (!once_value_33) { + fra.me.REG[3] = BOX_NativeString(" \"$@\" \\\n "); + REGB1 = TAG_Int(10); + fra.me.REG[3] = NEW_String_string___String___with_native(fra.me.REG[3], REGB1); + once_value_33 = fra.me.REG[3]; + register_static_object(&once_value_33); + } else fra.me.REG[3] = once_value_33; + fra.me.REG[3] = fra.me.REG[3]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]); + fra.me.REG[0] = CALL_compiling_base___CProgram___files(fra.me.REG[0])(fra.me.REG[0]); + if (!once_value_34) { + fra.me.REG[3] = BOX_NativeString("\\\n "); + REGB1 = TAG_Int(4); + fra.me.REG[3] = NEW_String_string___String___with_native(fra.me.REG[3], REGB1); + once_value_34 = fra.me.REG[3]; + register_static_object(&once_value_34); + } else fra.me.REG[3] = once_value_34; + fra.me.REG[3] = fra.me.REG[3]; + fra.me.REG[3] = CALL_string___Collection___join(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]); + if (!once_value_35) { + fra.me.REG[3] = BOX_NativeString("\n"); + REGB1 = TAG_Int(1); + fra.me.REG[3] = NEW_String_string___String___with_native(fra.me.REG[3], REGB1); + once_value_35 = fra.me.REG[3]; + register_static_object(&once_value_35); + } else fra.me.REG[3] = once_value_35; + fra.me.REG[3] = fra.me.REG[3]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]); + fra.me.REG[4] = CALL_string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]); + CALL_stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); + /* ./compiling//compiling_base.nit:113 */ + CALL_stream___IOS___close(fra.me.REG[1])(fra.me.REG[1]); stack_frame_head = fra.me.prev; return; } -val_t compiling_base___CompilerVisitor___to_s(val_t p0){ - struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; +void compiling_base___CProgram___run_c_compiler(val_t p0){ + 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 */ + static val_t once_value_2; /* Once value */ + static val_t once_value_3; /* Once value */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 98; - fra.me.meth = LOCATE_compiling_base___CompilerVisitor___to_s; + fra.me.line = 116; + fra.me.meth = LOCATE_compiling_base___CProgram___run_c_compiler; fra.me.has_broke = 0; - fra.me.REG_size = 3; + 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] = NEW_Array_array___Array___init(); - REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____ctx(fra.me.REG[0])!=NIT_NULL); - /* ./compiling//compiling_base.nit:102 */ - if (UNTAG_Bool(REGB0)) { - } else { - fprintf(stderr, "Uninitialized attribute %s", "_ctx"); - fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 102); - nit_exit(1); - } - fra.me.REG[2] = ATTR_compiling_base___CompilerVisitor____ctx(fra.me.REG[0]); - fra.me.REG[2] = CALL_compiling_base___CContext___decls(fra.me.REG[2])(fra.me.REG[2]); - CALL_abstract_collection___Sequence___append(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____ctx(fra.me.REG[0])!=NIT_NULL); - /* ./compiling//compiling_base.nit:103 */ + /* ./compiling//compiling_base.nit:119 */ + fra.me.REG[1] = CALL_compiling_base___CProgram___program(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[1] = CALL_program___Program___tc(fra.me.REG[1])(fra.me.REG[1]); + if (!once_value_1) { + fra.me.REG[2] = BOX_NativeString("Building"); + REGB0 = TAG_Int(8); + 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]; + REGB0 = TAG_Int(1); + CALL_mmloader___ToolContext___info(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], REGB0); + /* ./compiling//compiling_base.nit:120 */ + fra.me.REG[2] = CALL_kernel___Object___sys(fra.me.REG[0])(fra.me.REG[0]); + REGB0 = TAG_Int(3); + fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); + if (!once_value_2) { + fra.me.REG[3] = BOX_NativeString("sh "); + REGB0 = TAG_Int(3); + fra.me.REG[3] = NEW_String_string___String___with_native(fra.me.REG[3], REGB0); + once_value_2 = fra.me.REG[3]; + register_static_object(&once_value_2); + } else fra.me.REG[3] = once_value_2; + fra.me.REG[3] = fra.me.REG[3]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); + REGB0 = TAG_Bool(ATTR_compiling_base___CProgram____build_file(fra.me.REG[0])!=NIT_NULL); if (UNTAG_Bool(REGB0)) { } else { - fprintf(stderr, "Uninitialized attribute %s", "_ctx"); - fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 103); - nit_exit(1); + nit_abort("Uninitialized attribute %s", "_build_file", LOCATE_compiling_base, 120); } - fra.me.REG[0] = ATTR_compiling_base___CompilerVisitor____ctx(fra.me.REG[0]); - fra.me.REG[0] = CALL_compiling_base___CContext___instrs(fra.me.REG[0])(fra.me.REG[0]); - CALL_abstract_collection___Sequence___append(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); + fra.me.REG[0] = ATTR_compiling_base___CProgram____build_file(fra.me.REG[0]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); + if (!once_value_3) { + 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_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]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); - /* ./compiling//compiling_base.nit:104 */ - goto label1; - label1: while(0); + CALL_exec___Sys___system(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); stack_frame_head = fra.me.prev; - return fra.me.REG[1]; + return; } void compiling_base___CompilerVisitor___add_decl(val_t p0, val_t p1){ struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; @@ -354,7 +1453,7 @@ void compiling_base___CompilerVisitor___add_decl(val_t p0, val_t p1){ val_t tmp; fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 39; + fra.me.line = 128; fra.me.meth = LOCATE_compiling_base___CompilerVisitor___add_decl; fra.me.has_broke = 0; fra.me.REG_size = 3; @@ -363,24 +1462,13 @@ void compiling_base___CompilerVisitor___add_decl(val_t p0, val_t p1){ fra.me.REG[2] = NIT_NULL; fra.me.REG[0] = p0; fra.me.REG[1] = p1; - REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[1], COLOR_Array, ID_Array)) /*cast Array[String]*/; - /* ./compiling//compiling_base.nit:39 */ - if (UNTAG_Bool(REGB0)) { - } else { - fprintf(stderr, "Cast failed"); - fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 39); - nit_exit(1); - } - REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____ctx(fra.me.REG[0])!=NIT_NULL); - /* ./compiling//compiling_base.nit:42 */ + /* ./compiling//compiling_base.nit:131 */ + REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____decl_writer(fra.me.REG[0])!=NIT_NULL); if (UNTAG_Bool(REGB0)) { } else { - fprintf(stderr, "Uninitialized attribute %s", "_ctx"); - fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 42); - nit_exit(1); + nit_abort("Uninitialized attribute %s", "_decl_writer", LOCATE_compiling_base, 131); } - fra.me.REG[2] = ATTR_compiling_base___CompilerVisitor____ctx(fra.me.REG[0]); - fra.me.REG[2] = CALL_compiling_base___CContext___decls(fra.me.REG[2])(fra.me.REG[2]); + fra.me.REG[2] = ATTR_compiling_base___CompilerVisitor____decl_writer(fra.me.REG[0]); CALL_compiling_base___CompilerVisitor___add_line_to(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2], fra.me.REG[1]); stack_frame_head = fra.me.prev; return; @@ -391,7 +1479,7 @@ void compiling_base___CompilerVisitor___add_instr(val_t p0, val_t p1){ val_t tmp; fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 45; + fra.me.line = 134; fra.me.meth = LOCATE_compiling_base___CompilerVisitor___add_instr; fra.me.has_broke = 0; fra.me.REG_size = 3; @@ -400,129 +1488,130 @@ void compiling_base___CompilerVisitor___add_instr(val_t p0, val_t p1){ fra.me.REG[2] = NIT_NULL; fra.me.REG[0] = p0; fra.me.REG[1] = p1; - REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[1], COLOR_Array, ID_Array)) /*cast Array[String]*/; - /* ./compiling//compiling_base.nit:45 */ - if (UNTAG_Bool(REGB0)) { - } else { - fprintf(stderr, "Cast failed"); - fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 45); - nit_exit(1); - } - REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____ctx(fra.me.REG[0])!=NIT_NULL); - /* ./compiling//compiling_base.nit:48 */ + /* ./compiling//compiling_base.nit:137 */ + REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____writer(fra.me.REG[0])!=NIT_NULL); if (UNTAG_Bool(REGB0)) { } else { - fprintf(stderr, "Uninitialized attribute %s", "_ctx"); - fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 48); - nit_exit(1); + nit_abort("Uninitialized attribute %s", "_writer", LOCATE_compiling_base, 137); } - fra.me.REG[2] = ATTR_compiling_base___CompilerVisitor____ctx(fra.me.REG[0]); - fra.me.REG[2] = CALL_compiling_base___CContext___instrs(fra.me.REG[2])(fra.me.REG[2]); + fra.me.REG[2] = ATTR_compiling_base___CompilerVisitor____writer(fra.me.REG[0]); CALL_compiling_base___CompilerVisitor___add_line_to(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2], fra.me.REG[1]); stack_frame_head = fra.me.prev; return; } -void compiling_base___CompilerVisitor___add_line_to(val_t p0, val_t p1, val_t p2){ - struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; +void compiling_base___CompilerVisitor___add_indent(val_t p0, val_t p1){ + struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; val_t REGB0; val_t REGB1; + val_t REGB2; val_t tmp; static val_t once_value_1; /* Once value */ static val_t once_value_2; /* Once value */ - static val_t once_value_5; /* Once value */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 51; - fra.me.meth = LOCATE_compiling_base___CompilerVisitor___add_line_to; + fra.me.line = 141; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___add_indent; fra.me.has_broke = 0; - fra.me.REG_size = 4; + fra.me.REG_size = 3; 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] = p1; - fra.me.REG[2] = p2; + /* ./compiling//compiling_base.nit:143 */ REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0])!=NIT_NULL); - /* ./compiling//compiling_base.nit:53 */ if (UNTAG_Bool(REGB0)) { } else { - fprintf(stderr, "Uninitialized attribute %s", "_indent_level"); - fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 53); - nit_exit(1); + nit_abort("Uninitialized attribute %s", "_indent_level", LOCATE_compiling_base, 143); } REGB0 = ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0]); REGB1 = TAG_Int(8); + /* ./../lib/standard//kernel.nit:213 */ REGB1 = TAG_Bool(UNTAG_Int(REGB0)>=UNTAG_Int(REGB1)); - /* ./compiling//compiling_base.nit:53 */ + /* ./compiling//compiling_base.nit:143 */ if (UNTAG_Bool(REGB1)) { - /* ./compiling//compiling_base.nit:54 */ + /* ./compiling//compiling_base.nit:144 */ if (!once_value_1) { - fra.me.REG[3] = BOX_NativeString("\t\t"); + fra.me.REG[2] = BOX_NativeString("\t\t"); REGB1 = TAG_Int(2); - fra.me.REG[3] = NEW_String_string___String___with_native(fra.me.REG[3], REGB1); - once_value_1 = fra.me.REG[3]; + fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB1); + once_value_1 = fra.me.REG[2]; register_static_object(&once_value_1); - } else fra.me.REG[3] = once_value_1; - array___Array___add(fra.me.REG[1], fra.me.REG[3]); + } else fra.me.REG[2] = once_value_1; + fra.me.REG[2] = fra.me.REG[2]; + CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); } else { + /* ./compiling//compiling_base.nit:146 */ REGB1 = TAG_Int(0); REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0])!=NIT_NULL); - /* ./compiling//compiling_base.nit:56 */ if (UNTAG_Bool(REGB0)) { } else { - fprintf(stderr, "Uninitialized attribute %s", "_indent_level"); - fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 56); - nit_exit(1); + nit_abort("Uninitialized attribute %s", "_indent_level", LOCATE_compiling_base, 146); } REGB0 = ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0]); - fra.me.REG[0] = NEW_Range_range___Range___without_last(REGB1, REGB0); - fra.me.REG[0] = CALL_abstract_collection___Collection___iterator(fra.me.REG[0])(fra.me.REG[0]); + /* ./../lib/standard//kernel.nit:332 */ while(1) { - REGB0 = CALL_abstract_collection___Iterator___is_ok(fra.me.REG[0])(fra.me.REG[0]); - if (UNTAG_Bool(REGB0)) { - REGB0 = CALL_abstract_collection___Iterator___item(fra.me.REG[0])(fra.me.REG[0]); - /* ./compiling//compiling_base.nit:57 */ + /* ./../lib/standard//kernel.nit:212 */ + REGB2 = TAG_Bool(UNTAG_Int(REGB1)vft[INIT_TABLE_POS_CompilerVisitor].i; - struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; +void compiling_base___CompilerVisitor___decl_writer__eq(val_t p0, val_t p1){ + struct {struct stack_frame_t me; val_t MORE_REG[1];} fra; val_t tmp; - if (init_table[itpos0]) return; fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 119; - fra.me.meth = LOCATE_compiling_base___CompilerVisitor___init; + fra.me.line = 202; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___decl_writer__eq; fra.me.has_broke = 0; - fra.me.REG_size = 3; + fra.me.REG_size = 2; 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] = p2; - /* ./compiling//compiling_base.nit:122 */ - ATTR_compiling_base___CompilerVisitor____module(fra.me.REG[0]) = fra.me.REG[1]; - /* ./compiling//compiling_base.nit:123 */ - ATTR_compiling_base___CompilerVisitor____tc(fra.me.REG[0]) = fra.me.REG[2]; + /* ./compiling//compiling_base.nit:202 */ + ATTR_compiling_base___CompilerVisitor____decl_writer(fra.me.REG[0]) = fra.me.REG[1]; stack_frame_head = fra.me.prev; - init_table[itpos0] = 1; return; } -val_t compiling_base___CContext___decls(val_t p0){ +val_t compiling_base___CompilerVisitor___top_writer(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_compiling_base; - fra.me.line = 130; - fra.me.meth = LOCATE_compiling_base___CContext___decls; + fra.me.line = 205; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___top_writer; 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_compiling_base___CContext____decls(fra.me.REG[0])!=NIT_NULL); - /* ./compiling//compiling_base.nit:130 */ + /* ./compiling//compiling_base.nit:205 */ + REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____top_writer(fra.me.REG[0])!=NIT_NULL); if (UNTAG_Bool(REGB0)) { } else { - fprintf(stderr, "Uninitialized attribute %s", "_decls"); - fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 130); - nit_exit(1); + nit_abort("Uninitialized attribute %s", "_top_writer", LOCATE_compiling_base, 205); } - fra.me.REG[0] = ATTR_compiling_base___CContext____decls(fra.me.REG[0]); + fra.me.REG[0] = ATTR_compiling_base___CompilerVisitor____top_writer(fra.me.REG[0]); stack_frame_head = fra.me.prev; return fra.me.REG[0]; } -val_t compiling_base___CContext___instrs(val_t p0){ +void compiling_base___CompilerVisitor___top_writer__eq(val_t p0, val_t p1){ + struct {struct stack_frame_t me; val_t MORE_REG[1];} fra; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 205; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___top_writer__eq; + fra.me.has_broke = 0; + fra.me.REG_size = 2; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[1] = p1; + /* ./compiling//compiling_base.nit:205 */ + ATTR_compiling_base___CompilerVisitor____top_writer(fra.me.REG[0]) = fra.me.REG[1]; + stack_frame_head = fra.me.prev; + return; +} +val_t compiling_base___CompilerVisitor___top_decl_writer(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_compiling_base; - fra.me.line = 131; - fra.me.meth = LOCATE_compiling_base___CContext___instrs; + fra.me.line = 208; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___top_decl_writer; 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_compiling_base___CContext____instrs(fra.me.REG[0])!=NIT_NULL); - /* ./compiling//compiling_base.nit:131 */ + /* ./compiling//compiling_base.nit:208 */ + REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____top_decl_writer(fra.me.REG[0])!=NIT_NULL); if (UNTAG_Bool(REGB0)) { } else { - fprintf(stderr, "Uninitialized attribute %s", "_instrs"); - fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 131); - nit_exit(1); + nit_abort("Uninitialized attribute %s", "_top_decl_writer", LOCATE_compiling_base, 208); } - fra.me.REG[0] = ATTR_compiling_base___CContext____instrs(fra.me.REG[0]); + fra.me.REG[0] = ATTR_compiling_base___CompilerVisitor____top_decl_writer(fra.me.REG[0]); stack_frame_head = fra.me.prev; return fra.me.REG[0]; } -void compiling_base___CContext___append(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; - val_t REGB0; +void compiling_base___CompilerVisitor___top_decl_writer__eq(val_t p0, val_t p1){ + struct {struct stack_frame_t me; val_t MORE_REG[1];} fra; val_t tmp; fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 133; - fra.me.meth = LOCATE_compiling_base___CContext___append; + fra.me.line = 208; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___top_decl_writer__eq; fra.me.has_broke = 0; - fra.me.REG_size = 4; + fra.me.REG_size = 2; 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] = p1; - REGB0 = TAG_Bool(ATTR_compiling_base___CContext____instrs(fra.me.REG[0])!=NIT_NULL); - /* ./compiling//compiling_base.nit:135 */ - if (UNTAG_Bool(REGB0)) { - } else { - fprintf(stderr, "Uninitialized attribute %s", "_instrs"); - fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 135); - nit_exit(1); - } - fra.me.REG[2] = ATTR_compiling_base___CContext____instrs(fra.me.REG[0]); - fra.me.REG[3] = CALL_compiling_base___CContext___decls(fra.me.REG[1])(fra.me.REG[1]); - CALL_abstract_collection___Sequence___append(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - REGB0 = TAG_Bool(ATTR_compiling_base___CContext____instrs(fra.me.REG[0])!=NIT_NULL); - /* ./compiling//compiling_base.nit:136 */ + /* ./compiling//compiling_base.nit:208 */ + ATTR_compiling_base___CompilerVisitor____top_decl_writer(fra.me.REG[0]) = fra.me.REG[1]; + stack_frame_head = fra.me.prev; + return; +} +val_t compiling_base___CompilerVisitor___indent_level(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_compiling_base; + fra.me.line = 211; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___indent_level; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:211 */ + REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0])!=NIT_NULL); if (UNTAG_Bool(REGB0)) { } else { - fprintf(stderr, "Uninitialized attribute %s", "_instrs"); - fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 136); - nit_exit(1); + nit_abort("Uninitialized attribute %s", "_indent_level", LOCATE_compiling_base, 211); } - fra.me.REG[0] = ATTR_compiling_base___CContext____instrs(fra.me.REG[0]); - fra.me.REG[1] = CALL_compiling_base___CContext___instrs(fra.me.REG[1])(fra.me.REG[1]); - CALL_abstract_collection___Sequence___append(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); + REGB0 = ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return REGB0; +} +void compiling_base___CompilerVisitor___indent_level__eq(val_t p0, val_t p1){ + 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_compiling_base; + fra.me.line = 211; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___indent_level__eq; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + REGB0 = p1; + /* ./compiling//compiling_base.nit:211 */ + ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0]) = REGB0; stack_frame_head = fra.me.prev; return; } -void compiling_base___CContext___merge(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; +val_t compiling_base___CompilerVisitor___program(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_compiling_base; - fra.me.line = 139; - fra.me.meth = LOCATE_compiling_base___CContext___merge; + fra.me.line = 214; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___program; 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] = p1; - REGB0 = TAG_Bool(ATTR_compiling_base___CContext____decls(fra.me.REG[0])!=NIT_NULL); - /* ./compiling//compiling_base.nit:141 */ + /* ./compiling//compiling_base.nit:214 */ + REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____program(fra.me.REG[0])!=NIT_NULL); if (UNTAG_Bool(REGB0)) { } else { - fprintf(stderr, "Uninitialized attribute %s", "_decls"); - fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 141); - nit_exit(1); + nit_abort("Uninitialized attribute %s", "_program", LOCATE_compiling_base, 214); } - fra.me.REG[2] = ATTR_compiling_base___CContext____decls(fra.me.REG[0]); - fra.me.REG[3] = CALL_compiling_base___CContext___decls(fra.me.REG[1])(fra.me.REG[1]); - CALL_abstract_collection___Sequence___append(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - REGB0 = TAG_Bool(ATTR_compiling_base___CContext____instrs(fra.me.REG[0])!=NIT_NULL); - /* ./compiling//compiling_base.nit:142 */ + fra.me.REG[0] = ATTR_compiling_base___CompilerVisitor____program(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t compiling_base___CompilerVisitor___cprogram(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_compiling_base; + fra.me.line = 217; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___cprogram; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:217 */ + REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____cprogram(fra.me.REG[0])!=NIT_NULL); if (UNTAG_Bool(REGB0)) { } else { - fprintf(stderr, "Uninitialized attribute %s", "_instrs"); - fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 142); - nit_exit(1); + nit_abort("Uninitialized attribute %s", "_cprogram", LOCATE_compiling_base, 217); } - fra.me.REG[0] = ATTR_compiling_base___CContext____instrs(fra.me.REG[0]); - fra.me.REG[1] = CALL_compiling_base___CContext___instrs(fra.me.REG[1])(fra.me.REG[1]); - CALL_abstract_collection___Sequence___append(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); + fra.me.REG[0] = ATTR_compiling_base___CompilerVisitor____cprogram(fra.me.REG[0]); stack_frame_head = fra.me.prev; - return; + return fra.me.REG[0]; } -void compiling_base___CContext___init(val_t p0, int* init_table){ - int itpos1 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_CContext].i; - struct {struct stack_frame_t me;} fra; +void compiling_base___CompilerVisitor___init(val_t p0, val_t p1, val_t p2, int* init_table){ + int itpos1 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_CompilerVisitor].i; + struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; val_t tmp; if (init_table[itpos1]) return; fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 145; - fra.me.meth = LOCATE_compiling_base___CContext___init; + fra.me.line = 220; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___init; fra.me.has_broke = 0; - fra.me.REG_size = 1; + fra.me.REG_size = 3; fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[2] = NIT_NULL; fra.me.REG[0] = p0; - /* ./compiling//compiling_base.nit:145 */ + fra.me.REG[1] = p1; + fra.me.REG[2] = p2; + /* ./compiling//compiling_base.nit:223 */ + ATTR_compiling_base___CompilerVisitor____mmmodule(fra.me.REG[0]) = fra.me.REG[1]; + /* ./compiling//compiling_base.nit:224 */ + ATTR_compiling_base___CompilerVisitor____cprogram(fra.me.REG[0]) = fra.me.REG[2]; + /* ./compiling//compiling_base.nit:225 */ + fra.me.REG[2] = CALL_compiling_base___CProgram___program(fra.me.REG[2])(fra.me.REG[2]); + ATTR_compiling_base___CompilerVisitor____program(fra.me.REG[0]) = fra.me.REG[2]; + /* ./compiling//compiling_base.nit:227 */ + fra.me.REG[2] = NEW_Writer_compiling_writer___Writer___init(); + /* ./compiling//compiling_base.nit:228 */ + ATTR_compiling_base___CompilerVisitor____header_writer(fra.me.REG[0]) = fra.me.REG[2]; + /* ./compiling//compiling_base.nit:229 */ + ATTR_compiling_base___CompilerVisitor____decl_writer(fra.me.REG[0]) = fra.me.REG[2]; + /* ./compiling//compiling_base.nit:230 */ + fra.me.REG[1] = NEW_Writer_compiling_writer___Writer___init(); + fra.me.REG[2] = fra.me.REG[1]; + /* ./compiling//compiling_base.nit:231 */ + ATTR_compiling_base___CompilerVisitor____writer(fra.me.REG[0]) = fra.me.REG[2]; + /* ./compiling//compiling_base.nit:232 */ + ATTR_compiling_base___CompilerVisitor____top_writer(fra.me.REG[0]) = fra.me.REG[2]; + /* ./compiling//compiling_base.nit:233 */ + fra.me.REG[2] = CALL_compiling_writer___Writer___sub(fra.me.REG[2])(fra.me.REG[2]); + ATTR_compiling_base___CompilerVisitor____top_decl_writer(fra.me.REG[0]) = fra.me.REG[2]; stack_frame_head = fra.me.prev; init_table[itpos1] = 1; return; @@ -1026,7 +2132,7 @@ val_t compiling_base___MMGlobalProperty___meth_call(val_t p0){ static val_t once_value_2; /* Once value */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 149; + fra.me.line = 238; fra.me.meth = LOCATE_compiling_base___MMGlobalProperty___meth_call; fra.me.has_broke = 0; fra.me.REG_size = 3; @@ -1034,9 +2140,9 @@ val_t compiling_base___MMGlobalProperty___meth_call(val_t p0){ fra.me.REG[1] = NIT_NULL; fra.me.REG[2] = NIT_NULL; fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:241 */ REGB0 = TAG_Int(3); fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); - /* ./compiling//compiling_base.nit:152 */ if (!once_value_1) { fra.me.REG[2] = BOX_NativeString("CALL_"); REGB0 = TAG_Int(5); @@ -1044,10 +2150,11 @@ val_t compiling_base___MMGlobalProperty___meth_call(val_t p0){ once_value_1 = fra.me.REG[2]; register_static_object(&once_value_1); } else fra.me.REG[2] = once_value_1; - array___Array___add(fra.me.REG[1], fra.me.REG[2]); + fra.me.REG[2] = fra.me.REG[2]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); fra.me.REG[0] = CALL_abstractmetamodel___MMGlobalProperty___intro(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[0] = CALL_compiling_base___MMLocalProperty___cname(fra.me.REG[0])(fra.me.REG[0]); - array___Array___add(fra.me.REG[1], fra.me.REG[0]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); if (!once_value_2) { fra.me.REG[0] = BOX_NativeString(""); REGB0 = TAG_Int(0); @@ -1055,7 +2162,8 @@ val_t compiling_base___MMGlobalProperty___meth_call(val_t p0){ once_value_2 = fra.me.REG[0]; register_static_object(&once_value_2); } else fra.me.REG[0] = once_value_2; - array___Array___add(fra.me.REG[1], fra.me.REG[0]); + fra.me.REG[0] = fra.me.REG[0]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); goto label3; label3: while(0); @@ -1070,7 +2178,7 @@ val_t compiling_base___MMGlobalProperty___attr_access(val_t p0){ static val_t once_value_2; /* Once value */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 155; + fra.me.line = 244; fra.me.meth = LOCATE_compiling_base___MMGlobalProperty___attr_access; fra.me.has_broke = 0; fra.me.REG_size = 3; @@ -1078,9 +2186,9 @@ val_t compiling_base___MMGlobalProperty___attr_access(val_t p0){ fra.me.REG[1] = NIT_NULL; fra.me.REG[2] = NIT_NULL; fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:247 */ REGB0 = TAG_Int(3); fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); - /* ./compiling//compiling_base.nit:158 */ if (!once_value_1) { fra.me.REG[2] = BOX_NativeString("ATTR_"); REGB0 = TAG_Int(5); @@ -1088,10 +2196,11 @@ val_t compiling_base___MMGlobalProperty___attr_access(val_t p0){ once_value_1 = fra.me.REG[2]; register_static_object(&once_value_1); } else fra.me.REG[2] = once_value_1; - array___Array___add(fra.me.REG[1], fra.me.REG[2]); + fra.me.REG[2] = fra.me.REG[2]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); fra.me.REG[0] = CALL_abstractmetamodel___MMGlobalProperty___intro(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[0] = CALL_compiling_base___MMLocalProperty___cname(fra.me.REG[0])(fra.me.REG[0]); - array___Array___add(fra.me.REG[1], fra.me.REG[0]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); if (!once_value_2) { fra.me.REG[0] = BOX_NativeString(""); REGB0 = TAG_Int(0); @@ -1099,7 +2208,8 @@ val_t compiling_base___MMGlobalProperty___attr_access(val_t p0){ once_value_2 = fra.me.REG[0]; register_static_object(&once_value_2); } else fra.me.REG[0] = once_value_2; - array___Array___add(fra.me.REG[1], fra.me.REG[0]); + fra.me.REG[0] = fra.me.REG[0]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); goto label3; label3: while(0); @@ -1114,7 +2224,7 @@ val_t compiling_base___MMGlobalClass___id_id(val_t p0){ static val_t once_value_2; /* Once value */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 163; + fra.me.line = 252; fra.me.meth = LOCATE_compiling_base___MMGlobalClass___id_id; fra.me.has_broke = 0; fra.me.REG_size = 3; @@ -1122,9 +2232,9 @@ val_t compiling_base___MMGlobalClass___id_id(val_t p0){ fra.me.REG[1] = NIT_NULL; fra.me.REG[2] = NIT_NULL; fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:255 */ REGB0 = TAG_Int(3); fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); - /* ./compiling//compiling_base.nit:166 */ if (!once_value_1) { fra.me.REG[2] = BOX_NativeString("ID_"); REGB0 = TAG_Int(3); @@ -1132,11 +2242,12 @@ val_t compiling_base___MMGlobalClass___id_id(val_t p0){ once_value_1 = fra.me.REG[2]; register_static_object(&once_value_1); } else fra.me.REG[2] = once_value_1; - array___Array___add(fra.me.REG[1], fra.me.REG[2]); + fra.me.REG[2] = fra.me.REG[2]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); fra.me.REG[0] = CALL_abstractmetamodel___MMGlobalClass___intro(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[0] = CALL_abstractmetamodel___MMLocalClass___name(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[0] = CALL_string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); - array___Array___add(fra.me.REG[1], fra.me.REG[0]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); if (!once_value_2) { fra.me.REG[0] = BOX_NativeString(""); REGB0 = TAG_Int(0); @@ -1144,7 +2255,8 @@ val_t compiling_base___MMGlobalClass___id_id(val_t p0){ once_value_2 = fra.me.REG[0]; register_static_object(&once_value_2); } else fra.me.REG[0] = once_value_2; - array___Array___add(fra.me.REG[1], fra.me.REG[0]); + fra.me.REG[0] = fra.me.REG[0]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); goto label3; label3: while(0); @@ -1159,7 +2271,7 @@ val_t compiling_base___MMGlobalClass___color_id(val_t p0){ static val_t once_value_2; /* Once value */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 169; + fra.me.line = 258; fra.me.meth = LOCATE_compiling_base___MMGlobalClass___color_id; fra.me.has_broke = 0; fra.me.REG_size = 3; @@ -1167,9 +2279,9 @@ val_t compiling_base___MMGlobalClass___color_id(val_t p0){ fra.me.REG[1] = NIT_NULL; fra.me.REG[2] = NIT_NULL; fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:261 */ REGB0 = TAG_Int(3); fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); - /* ./compiling//compiling_base.nit:172 */ if (!once_value_1) { fra.me.REG[2] = BOX_NativeString("COLOR_"); REGB0 = TAG_Int(6); @@ -1177,11 +2289,12 @@ val_t compiling_base___MMGlobalClass___color_id(val_t p0){ once_value_1 = fra.me.REG[2]; register_static_object(&once_value_1); } else fra.me.REG[2] = once_value_1; - array___Array___add(fra.me.REG[1], fra.me.REG[2]); + fra.me.REG[2] = fra.me.REG[2]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); fra.me.REG[0] = CALL_abstractmetamodel___MMGlobalClass___intro(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[0] = CALL_abstractmetamodel___MMLocalClass___name(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[0] = CALL_string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); - array___Array___add(fra.me.REG[1], fra.me.REG[0]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); if (!once_value_2) { fra.me.REG[0] = BOX_NativeString(""); REGB0 = TAG_Int(0); @@ -1189,7 +2302,8 @@ val_t compiling_base___MMGlobalClass___color_id(val_t p0){ once_value_2 = fra.me.REG[0]; register_static_object(&once_value_2); } else fra.me.REG[0] = once_value_2; - array___Array___add(fra.me.REG[1], fra.me.REG[0]); + fra.me.REG[0] = fra.me.REG[0]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); goto label3; label3: while(0); @@ -1204,7 +2318,7 @@ val_t compiling_base___MMGlobalClass___init_table_pos_id(val_t p0){ static val_t once_value_2; /* Once value */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 175; + fra.me.line = 264; fra.me.meth = LOCATE_compiling_base___MMGlobalClass___init_table_pos_id; fra.me.has_broke = 0; fra.me.REG_size = 3; @@ -1212,9 +2326,9 @@ val_t compiling_base___MMGlobalClass___init_table_pos_id(val_t p0){ fra.me.REG[1] = NIT_NULL; fra.me.REG[2] = NIT_NULL; fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:267 */ REGB0 = TAG_Int(3); fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); - /* ./compiling//compiling_base.nit:178 */ if (!once_value_1) { fra.me.REG[2] = BOX_NativeString("INIT_TABLE_POS_"); REGB0 = TAG_Int(15); @@ -1222,11 +2336,12 @@ val_t compiling_base___MMGlobalClass___init_table_pos_id(val_t p0){ once_value_1 = fra.me.REG[2]; register_static_object(&once_value_1); } else fra.me.REG[2] = once_value_1; - array___Array___add(fra.me.REG[1], fra.me.REG[2]); + fra.me.REG[2] = fra.me.REG[2]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); fra.me.REG[0] = CALL_abstractmetamodel___MMGlobalClass___intro(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[0] = CALL_abstractmetamodel___MMLocalClass___name(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[0] = CALL_string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); - array___Array___add(fra.me.REG[1], fra.me.REG[0]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); if (!once_value_2) { fra.me.REG[0] = BOX_NativeString(""); REGB0 = TAG_Int(0); @@ -1234,7 +2349,8 @@ val_t compiling_base___MMGlobalClass___init_table_pos_id(val_t p0){ once_value_2 = fra.me.REG[0]; register_static_object(&once_value_2); } else fra.me.REG[0] = once_value_2; - array___Array___add(fra.me.REG[1], fra.me.REG[0]); + fra.me.REG[0] = fra.me.REG[0]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); goto label3; label3: while(0); @@ -1248,7 +2364,7 @@ val_t compiling_base___MMLocalProperty___cname(val_t p0){ val_t tmp; fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 186; + fra.me.line = 275; fra.me.meth = LOCATE_compiling_base___MMLocalProperty___cname; fra.me.has_broke = 0; fra.me.REG_size = 4; @@ -1257,9 +2373,10 @@ val_t compiling_base___MMLocalProperty___cname(val_t p0){ fra.me.REG[2] = NIT_NULL; fra.me.REG[3] = NIT_NULL; fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:278 */ fra.me.REG[1] = ATTR_compiling_base___MMLocalProperty____cname_cache(fra.me.REG[0]); + /* ./compiling//compiling_base.nit:279 */ REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL); - /* ./compiling//compiling_base.nit:190 */ if (UNTAG_Bool(REGB0)) { } else { REGB1 = TAG_Bool(fra.me.REG[1]==NIT_NULL); @@ -1272,23 +2389,23 @@ val_t compiling_base___MMLocalProperty___cname(val_t p0){ } } if (UNTAG_Bool(REGB0)) { + /* ./compiling//compiling_base.nit:280 */ REGB0 = TAG_Int(2); fra.me.REG[2] = NEW_Array_array___Array___with_capacity(REGB0); - fra.me.REG[3] = CALL_abstractmetamodel___MMLocalProperty___module(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[3] = CALL_abstractmetamodel___MMLocalProperty___mmmodule(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[3] = CALL_abstractmetamodel___MMModule___name(fra.me.REG[3])(fra.me.REG[3]); - /* ./compiling//compiling_base.nit:191 */ - array___Array___add(fra.me.REG[2], fra.me.REG[3]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); fra.me.REG[3] = CALL_abstractmetamodel___MMLocalProperty___local_class(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[3] = CALL_abstractmetamodel___MMLocalClass___name(fra.me.REG[3])(fra.me.REG[3]); - array___Array___add(fra.me.REG[2], fra.me.REG[3]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); fra.me.REG[3] = CALL_abstractmetamodel___MMLocalProperty___name(fra.me.REG[0])(fra.me.REG[0]); - array___Array___add(fra.me.REG[2], fra.me.REG[3]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); fra.me.REG[2] = CALL_utils___Object___cmangle(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]); fra.me.REG[1] = fra.me.REG[2]; - /* ./compiling//compiling_base.nit:192 */ + /* ./compiling//compiling_base.nit:281 */ ATTR_compiling_base___MMLocalProperty____cname_cache(fra.me.REG[0]) = fra.me.REG[1]; } - /* ./compiling//compiling_base.nit:194 */ + /* ./compiling//compiling_base.nit:283 */ goto label1; label1: while(0); stack_frame_head = fra.me.prev; @@ -1302,7 +2419,7 @@ val_t compiling_base___MMLocalProperty___super_meth_call(val_t p0){ static val_t once_value_2; /* Once value */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_compiling_base; - fra.me.line = 197; + fra.me.line = 286; fra.me.meth = LOCATE_compiling_base___MMLocalProperty___super_meth_call; fra.me.has_broke = 0; fra.me.REG_size = 3; @@ -1310,9 +2427,9 @@ val_t compiling_base___MMLocalProperty___super_meth_call(val_t p0){ fra.me.REG[1] = NIT_NULL; fra.me.REG[2] = NIT_NULL; fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:289 */ REGB0 = TAG_Int(3); fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); - /* ./compiling//compiling_base.nit:200 */ if (!once_value_1) { fra.me.REG[2] = BOX_NativeString("CALL_SUPER_"); REGB0 = TAG_Int(11); @@ -1320,9 +2437,10 @@ val_t compiling_base___MMLocalProperty___super_meth_call(val_t p0){ once_value_1 = fra.me.REG[2]; register_static_object(&once_value_1); } else fra.me.REG[2] = once_value_1; - array___Array___add(fra.me.REG[1], fra.me.REG[2]); + fra.me.REG[2] = fra.me.REG[2]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); fra.me.REG[0] = CALL_compiling_base___MMLocalProperty___cname(fra.me.REG[0])(fra.me.REG[0]); - array___Array___add(fra.me.REG[1], fra.me.REG[0]); + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); if (!once_value_2) { fra.me.REG[0] = BOX_NativeString(""); REGB0 = TAG_Int(0); @@ -1330,7 +2448,8 @@ val_t compiling_base___MMLocalProperty___super_meth_call(val_t p0){ once_value_2 = fra.me.REG[0]; register_static_object(&once_value_2); } else fra.me.REG[0] = once_value_2; - array___Array___add(fra.me.REG[1], fra.me.REG[0]); + fra.me.REG[0] = fra.me.REG[0]; + CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); goto label3; label3: while(0);