X-Git-Url: http://nitlanguage.org diff --git a/c_src/compiling_base._sep.c b/c_src/compiling_base._sep.c index 71b52a4..ee4398d 100644 --- a/c_src/compiling_base._sep.c +++ b/c_src/compiling_base._sep.c @@ -1,1005 +1,1339 @@ /* 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 self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___ToolContext___global, 24}; - trace.prev = tracehead; tracehead = &trace; - tracehead = trace.prev; - return ATTR_compiling_base___ToolContext____global( self) /*ToolContext::_global*/; -} -void compiling_base___ToolContext___global__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_compiling_base___ToolContext___global__eq, 24}; - trace.prev = tracehead; tracehead = &trace; - ATTR_compiling_base___ToolContext____global( self) /*ToolContext::_global*/ = param0; - tracehead = trace.prev; - return; +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; } -val_t compiling_base___ToolContext___attr_sim(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___ToolContext___attr_sim, 25}; - trace.prev = tracehead; tracehead = &trace; - tracehead = trace.prev; - return ATTR_compiling_base___ToolContext____attr_sim( self) /*ToolContext::_attr_sim*/; -} -void compiling_base___ToolContext___attr_sim__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_compiling_base___ToolContext___attr_sim__eq, 25}; - trace.prev = tracehead; tracehead = &trace; - ATTR_compiling_base___ToolContext____attr_sim( self) /*ToolContext::_attr_sim*/ = param0; - tracehead = trace.prev; +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___base_dir(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___ToolContext___base_dir, 26}; - trace.prev = tracehead; tracehead = &trace; - tracehead = trace.prev; - return ATTR_compiling_base___ToolContext____base_dir( self) /*ToolContext::_base_dir*/; -} -void compiling_base___ToolContext___base_dir__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_compiling_base___ToolContext___base_dir__eq, 26}; - trace.prev = tracehead; tracehead = &trace; - ATTR_compiling_base___ToolContext____base_dir( self) /*ToolContext::_base_dir*/ = param0; - tracehead = trace.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.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; + 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]; } -val_t compiling_base___ToolContext___clibdir(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___ToolContext___clibdir, 27}; - trace.prev = tracehead; tracehead = &trace; - tracehead = trace.prev; - return ATTR_compiling_base___ToolContext____clibdir( self) /*ToolContext::_clibdir*/; -} -void compiling_base___ToolContext___clibdir__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_compiling_base___ToolContext___clibdir__eq, 27}; - trace.prev = tracehead; tracehead = &trace; - ATTR_compiling_base___ToolContext____clibdir( self) /*ToolContext::_clibdir*/ = param0; - tracehead = trace.prev; +void compiling_base___ToolContext___compdir__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 = 26; + fra.me.meth = LOCATE_compiling_base___ToolContext___compdir__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:26 */ + ATTR_compiling_base___ToolContext____compdir(fra.me.REG[0]) = fra.me.REG[1]; + stack_frame_head = fra.me.prev; return; } -val_t compiling_base___ToolContext___bindir(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___ToolContext___bindir, 28}; - trace.prev = tracehead; tracehead = &trace; - tracehead = trace.prev; - return ATTR_compiling_base___ToolContext____bindir( self) /*ToolContext::_bindir*/; -} -void compiling_base___ToolContext___bindir__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_compiling_base___ToolContext___bindir__eq, 28}; - trace.prev = tracehead; tracehead = &trace; - ATTR_compiling_base___ToolContext____bindir( self) /*ToolContext::_bindir*/ = param0; - tracehead = trace.prev; - return; +val_t compiling_base___ToolContext___clibdir(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 = 27; + 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; + 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]; } -val_t compiling_base___ToolContext___output_file(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___ToolContext___output_file, 29}; - trace.prev = tracehead; tracehead = &trace; - tracehead = trace.prev; - return ATTR_compiling_base___ToolContext____output_file( self) /*ToolContext::_output_file*/; -} -void compiling_base___ToolContext___output_file__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_compiling_base___ToolContext___output_file__eq, 29}; - trace.prev = tracehead; tracehead = &trace; - ATTR_compiling_base___ToolContext____output_file( self) /*ToolContext::_output_file*/ = param0; - tracehead = trace.prev; +void compiling_base___ToolContext___clibdir__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 = 27; + fra.me.meth = LOCATE_compiling_base___ToolContext___clibdir__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:27 */ + ATTR_compiling_base___ToolContext____clibdir(fra.me.REG[0]) = fra.me.REG[1]; + stack_frame_head = fra.me.prev; return; } -val_t compiling_base___ToolContext___boost(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___ToolContext___boost, 30}; - trace.prev = tracehead; tracehead = &trace; - tracehead = trace.prev; - return ATTR_compiling_base___ToolContext____boost( self) /*ToolContext::_boost*/; -} -void compiling_base___ToolContext___boost__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_compiling_base___ToolContext___boost__eq, 30}; - trace.prev = tracehead; tracehead = &trace; - ATTR_compiling_base___ToolContext____boost( self) /*ToolContext::_boost*/ = param0; - tracehead = trace.prev; - return; +val_t compiling_base___ToolContext___bindir(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 = 28; + 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; + 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]; } -val_t compiling_base___ToolContext___no_cc(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___ToolContext___no_cc, 31}; - trace.prev = tracehead; tracehead = &trace; - tracehead = trace.prev; - return ATTR_compiling_base___ToolContext____no_cc( self) /*ToolContext::_no_cc*/; -} -void compiling_base___ToolContext___no_cc__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_compiling_base___ToolContext___no_cc__eq, 31}; - trace.prev = tracehead; tracehead = &trace; - ATTR_compiling_base___ToolContext____no_cc( self) /*ToolContext::_no_cc*/ = param0; - tracehead = trace.prev; +void compiling_base___ToolContext___bindir__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 = 28; + fra.me.meth = LOCATE_compiling_base___ToolContext___bindir__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:28 */ + ATTR_compiling_base___ToolContext____bindir(fra.me.REG[0]) = fra.me.REG[1]; + stack_frame_head = fra.me.prev; return; } -val_t compiling_base___ToolContext___ext_prefix(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___ToolContext___ext_prefix, 32}; - trace.prev = tracehead; tracehead = &trace; - tracehead = trace.prev; - return ATTR_compiling_base___ToolContext____ext_prefix( self) /*ToolContext::_ext_prefix*/; -} -void compiling_base___ToolContext___ext_prefix__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_compiling_base___ToolContext___ext_prefix__eq, 32}; - trace.prev = tracehead; tracehead = &trace; - ATTR_compiling_base___ToolContext____ext_prefix( self) /*ToolContext::_ext_prefix*/ = param0; - tracehead = trace.prev; +val_t compiling_base___ToolContext___output_file(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 = 29; + 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; + 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]; +} +void compiling_base___ToolContext___output_file__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 = 29; + fra.me.meth = LOCATE_compiling_base___ToolContext___output_file__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:29 */ + ATTR_compiling_base___ToolContext____output_file(fra.me.REG[0]) = fra.me.REG[1]; + stack_frame_head = fra.me.prev; return; } -void compiling_base___CompilerVisitor___add_decl(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_compiling_base___CompilerVisitor___add_decl, 39}; - val_t variable0; - val_t variable1; - val_t variable2; - val_t variable3; - trace.prev = tracehead; tracehead = &trace; - variable0 = param0; - variable1 = ATTR_compiling_base___CompilerVisitor____indent_level( self) /*CompilerVisitor::_indent_level*/; - variable1 = TAG_Bool(UNTAG_Int(variable1)>=UNTAG_Int( TAG_Int(8))); - if (UNTAG_Bool(variable1)) { /*if*/ - variable1 = ATTR_compiling_base___CompilerVisitor____ctx( self) /*CompilerVisitor::_ctx*/; - variable1 = ((compiling_base___CContext___decls_t)CALL(variable1,COLOR_compiling_base___CContext___decls))(variable1) /*CContext::decls*/; - variable2 = NEW_string___String___with_native(BOX_NativeString("\t\t"), TAG_Int(2)); /*new String*/ - variable2 = ((string___String_____plus_t)CALL(variable2,COLOR_string___String_____plus))(variable2, variable0 /*s*/) /*String::+*/; - ((array___AbstractArray___add_t)CALL(variable1,COLOR_abstract_collection___SimpleCollection___add))(variable1, variable2) /*Array::add*/; - } else { /*if*/ - variable1 = ATTR_compiling_base___CompilerVisitor____ctx( self) /*CompilerVisitor::_ctx*/; - variable1 = ((compiling_base___CContext___decls_t)CALL(variable1,COLOR_compiling_base___CContext___decls))(variable1) /*CContext::decls*/; - variable2 = NEW_string___String___with_native(BOX_NativeString(" "), TAG_Int(2)); /*new String*/ - variable3 = ATTR_compiling_base___CompilerVisitor____indent_level( self) /*CompilerVisitor::_indent_level*/; - variable2 = ((string___String_____star_t)CALL(variable2,COLOR_string___String_____star))(variable2, variable3) /*String::**/; - variable2 = ((string___String_____plus_t)CALL(variable2,COLOR_string___String_____plus))(variable2, variable0 /*s*/) /*String::+*/; - ((array___AbstractArray___add_t)CALL(variable1,COLOR_abstract_collection___SimpleCollection___add))(variable1, variable2) /*Array::add*/; +val_t compiling_base___ToolContext___boost(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 30; + 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; + 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); } - tracehead = trace.prev; + REGB0 = ATTR_compiling_base___ToolContext____boost(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return REGB0; +} +void compiling_base___ToolContext___boost__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 = 30; + 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 */ + ATTR_compiling_base___ToolContext____boost(fra.me.REG[0]) = REGB0; + stack_frame_head = fra.me.prev; return; } -void compiling_base___CompilerVisitor___add_instr(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_compiling_base___CompilerVisitor___add_instr, 49}; - val_t variable0; - val_t variable1; - val_t variable2; - val_t variable3; - trace.prev = tracehead; tracehead = &trace; - variable0 = param0; - variable1 = ATTR_compiling_base___CompilerVisitor____indent_level( self) /*CompilerVisitor::_indent_level*/; - variable1 = TAG_Bool(UNTAG_Int(variable1)>=UNTAG_Int( TAG_Int(8))); - if (UNTAG_Bool(variable1)) { /*if*/ - variable1 = ATTR_compiling_base___CompilerVisitor____ctx( self) /*CompilerVisitor::_ctx*/; - variable1 = ((compiling_base___CContext___instrs_t)CALL(variable1,COLOR_compiling_base___CContext___instrs))(variable1) /*CContext::instrs*/; - variable2 = NEW_string___String___with_native(BOX_NativeString("\t\t"), TAG_Int(2)); /*new String*/ - variable2 = ((string___String_____plus_t)CALL(variable2,COLOR_string___String_____plus))(variable2, variable0 /*s*/) /*String::+*/; - ((array___AbstractArray___add_t)CALL(variable1,COLOR_abstract_collection___SimpleCollection___add))(variable1, variable2) /*Array::add*/; - } else { /*if*/ - variable1 = ATTR_compiling_base___CompilerVisitor____ctx( self) /*CompilerVisitor::_ctx*/; - variable1 = ((compiling_base___CContext___instrs_t)CALL(variable1,COLOR_compiling_base___CContext___instrs))(variable1) /*CContext::instrs*/; - variable2 = NEW_string___String___with_native(BOX_NativeString(" "), TAG_Int(2)); /*new String*/ - variable3 = ATTR_compiling_base___CompilerVisitor____indent_level( self) /*CompilerVisitor::_indent_level*/; - variable2 = ((string___String_____star_t)CALL(variable2,COLOR_string___String_____star))(variable2, variable3) /*String::**/; - variable2 = ((string___String_____plus_t)CALL(variable2,COLOR_string___String_____plus))(variable2, variable0 /*s*/) /*String::+*/; - ((array___AbstractArray___add_t)CALL(variable1,COLOR_abstract_collection___SimpleCollection___add))(variable1, variable2) /*Array::add*/; +val_t compiling_base___ToolContext___no_cc(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 31; + 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; + 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); } - tracehead = trace.prev; - return; + REGB0 = ATTR_compiling_base___ToolContext____no_cc(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return REGB0; } -val_t compiling_base___CompilerVisitor___new_number(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___CompilerVisitor___new_number, 59}; - val_t variable0; - val_t variable1; - trace.prev = tracehead; tracehead = &trace; - variable1 = ATTR_compiling_base___CompilerVisitor____number_cpt( self) /*CompilerVisitor::_number_cpt*/; - variable0 = variable1; - variable1 = TAG_Int(UNTAG_Int( variable0 /*res*/)+UNTAG_Int( TAG_Int(1))); - ATTR_compiling_base___CompilerVisitor____number_cpt( self) /*CompilerVisitor::_number_cpt*/ = variable1; - variable0 = variable0 /*res*/; - goto return_label2; - return_label2: while(false); - tracehead = trace.prev; - return variable0; -} -void compiling_base___CompilerVisitor___indent(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___CompilerVisitor___indent, 69}; - trace.prev = tracehead; tracehead = &trace; - ATTR_compiling_base___CompilerVisitor____indent_level( self) /*CompilerVisitor::_indent_level*/ = TAG_Int(UNTAG_Int(ATTR_compiling_base___CompilerVisitor____indent_level( self) /*CompilerVisitor::_indent_level*/)+UNTAG_Int( TAG_Int(1))); - tracehead = trace.prev; +void compiling_base___ToolContext___no_cc__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 = 31; + 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 */ + ATTR_compiling_base___ToolContext____no_cc(fra.me.REG[0]) = REGB0; + stack_frame_head = fra.me.prev; return; } -void compiling_base___CompilerVisitor___unindent(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___CompilerVisitor___unindent, 73}; - val_t variable0; - trace.prev = tracehead; tracehead = &trace; - ATTR_compiling_base___CompilerVisitor____indent_level( self) /*CompilerVisitor::_indent_level*/ = TAG_Int(UNTAG_Int(ATTR_compiling_base___CompilerVisitor____indent_level( self) /*CompilerVisitor::_indent_level*/)-UNTAG_Int( TAG_Int(1))); - variable0 = ATTR_compiling_base___CompilerVisitor____indent_level( self) /*CompilerVisitor::_indent_level*/; - variable0 = TAG_Bool(UNTAG_Int(variable0)vft[INIT_TABLE_POS_CompilerVisitor].i]) return; - ATTR_compiling_base___CompilerVisitor____module( self) /*CompilerVisitor::_module*/ = variable0 /*module*/; - init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_CompilerVisitor].i] = 1; - tracehead = trace.prev; +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; + val_t REGB0; + val_t REGB1; + val_t tmp; + static val_t once_value_1; /* Once value */ + static val_t once_value_2; /* Once value */ + static val_t once_value_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.has_broke = 0; + fra.me.REG_size = 4; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[2] = NIT_NULL; + fra.me.REG[3] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[1] = p1; + fra.me.REG[2] = p2; + 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); + } + REGB0 = ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0]); + REGB1 = TAG_Int(8); + REGB1 = TAG_Bool(UNTAG_Int(REGB0)>=UNTAG_Int(REGB1)); + /* ./compiling//compiling_base.nit:53 */ + if (UNTAG_Bool(REGB1)) { + /* ./compiling//compiling_base.nit:54 */ + if (!once_value_1) { + fra.me.REG[3] = 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]; + 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 { + 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); + } + 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]); + 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 */ + if (!once_value_2) { + fra.me.REG[3] = BOX_NativeString(" "); + REGB0 = TAG_Int(2); + 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; + array___Array___add(fra.me.REG[1], fra.me.REG[3]); + } else { + /* ./compiling//compiling_base.nit:56 */ + goto label3; + } + CALL_abstract_collection___Iterator___next(fra.me.REG[0])(fra.me.REG[0]); + } + label3: while(0); + } + fra.me.REG[2] = CALL_abstract_collection___Collection___iterator(fra.me.REG[2])(fra.me.REG[2]); + /* ./compiling//compiling_base.nit:60 */ + while(1) { + REGB0 = CALL_abstract_collection___Iterator___is_ok(fra.me.REG[2])(fra.me.REG[2]); + if (UNTAG_Bool(REGB0)) { + fra.me.REG[0] = CALL_abstract_collection___Iterator___item(fra.me.REG[2])(fra.me.REG[2]); + /* ./compiling//compiling_base.nit:61 */ + array___Array___add(fra.me.REG[1], fra.me.REG[0]); + } else { + /* ./compiling//compiling_base.nit:60 */ + goto label4; + } + CALL_abstract_collection___Iterator___next(fra.me.REG[2])(fra.me.REG[2]); + } + label4: while(0); + /* ./compiling//compiling_base.nit:63 */ + if (!once_value_5) { + fra.me.REG[2] = BOX_NativeString("\n"); + REGB0 = TAG_Int(1); + fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0); + once_value_5 = fra.me.REG[2]; + register_static_object(&once_value_5); + } else fra.me.REG[2] = once_value_5; + array___Array___add(fra.me.REG[1], fra.me.REG[2]); + stack_frame_head = fra.me.prev; return; } -val_t compiling_base___CContext___decls(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___CContext___decls, 109}; - trace.prev = tracehead; tracehead = &trace; - tracehead = trace.prev; - return ATTR_compiling_base___CContext____decls( self) /*CContext::_decls*/; -} -val_t compiling_base___CContext___instrs(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___CContext___instrs, 110}; - trace.prev = tracehead; tracehead = &trace; - tracehead = trace.prev; - return ATTR_compiling_base___CContext____instrs( self) /*CContext::_instrs*/; -} -void compiling_base___CContext___append(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_compiling_base___CContext___append, 112}; - val_t variable0; - val_t variable1; - val_t variable2; - trace.prev = tracehead; tracehead = &trace; - variable0 = param0; - variable1 = ATTR_compiling_base___CContext____instrs( self) /*CContext::_instrs*/; - variable2 = ((compiling_base___CContext___decls_t)CALL( variable0 /*c*/,COLOR_compiling_base___CContext___decls))( variable0 /*c*/) /*CContext::decls*/; - ((abstract_collection___IndexedCollection___append_t)CALL(variable1,COLOR_abstract_collection___IndexedCollection___append))(variable1, variable2) /*Array::append*/; - variable1 = ATTR_compiling_base___CContext____instrs( self) /*CContext::_instrs*/; - variable2 = ((compiling_base___CContext___instrs_t)CALL( variable0 /*c*/,COLOR_compiling_base___CContext___instrs))( variable0 /*c*/) /*CContext::instrs*/; - ((abstract_collection___IndexedCollection___append_t)CALL(variable1,COLOR_abstract_collection___IndexedCollection___append))(variable1, variable2) /*Array::append*/; - tracehead = trace.prev; +void compiling_base___CompilerVisitor___add_assignment(val_t p0, val_t p1, val_t p2){ + struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; + val_t REGB0; + val_t REGB1; + val_t tmp; + static val_t once_value_1; /* Once value */ + static val_t once_value_2; /* Once value */ + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 66; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___add_assignment; + fra.me.has_broke = 0; + fra.me.REG_size = 4; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[2] = NIT_NULL; + fra.me.REG[3] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[1] = p1; + fra.me.REG[2] = p2; + REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[1],fra.me.REG[2])); + /* ./compiling//compiling_base.nit:69 */ + if (UNTAG_Bool(REGB0)) { + } else { + REGB1 = CALL_kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); + REGB0 = REGB1; + } + REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); + if (UNTAG_Bool(REGB0)) { + REGB0 = TAG_Int(3); + fra.me.REG[3] = NEW_Array_array___Array___with_capacity(REGB0); + /* ./compiling//compiling_base.nit:70 */ + array___Array___add(fra.me.REG[3], fra.me.REG[1]); + if (!once_value_1) { + fra.me.REG[1] = BOX_NativeString(" = "); + REGB0 = TAG_Int(3); + fra.me.REG[1] = NEW_String_string___String___with_native(fra.me.REG[1], REGB0); + once_value_1 = fra.me.REG[1]; + register_static_object(&once_value_1); + } else fra.me.REG[1] = once_value_1; + array___Array___add(fra.me.REG[3], fra.me.REG[1]); + array___Array___add(fra.me.REG[3], 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; + array___Array___add(fra.me.REG[3], fra.me.REG[2]); + CALL_compiling_base___CompilerVisitor___add_instr(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); + } + stack_frame_head = fra.me.prev; return; } -void compiling_base___CContext___init(val_t self, int* init_table) { - struct trace_t trace = {NULL, LOCATE_compiling_base___CContext___init, 118}; - trace.prev = tracehead; tracehead = &trace; - if (init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_CContext].i]) return; - init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_CContext].i] = 1; - tracehead = trace.prev; +val_t compiling_base___CompilerVisitor___out_contexts(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 = 74; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___out_contexts; + 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___CompilerVisitor____out_contexts(fra.me.REG[0])!=NIT_NULL); + /* ./compiling//compiling_base.nit:74 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_out_contexts"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 74); + nit_exit(1); + } + fra.me.REG[0] = ATTR_compiling_base___CompilerVisitor____out_contexts(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +void compiling_base___CompilerVisitor___out_contexts__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 = 74; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___out_contexts__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:74 */ + ATTR_compiling_base___CompilerVisitor____out_contexts(fra.me.REG[0]) = fra.me.REG[1]; + stack_frame_head = fra.me.prev; return; } -val_t compiling_base___MMGlobalProperty___meth_call(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___MMGlobalProperty___meth_call, 122}; - val_t variable0; - val_t variable1; - val_t variable2; - val_t variable3; - val_t variable4; - val_t variable5; - val_t variable6; - trace.prev = tracehead; tracehead = &trace; - variable0 = NEW_string___String___init(); /*new String*/ - variable1 = NEW_string___String___with_native(BOX_NativeString("CALL_"), TAG_Int(5)); /*new String*/ - variable2 = variable1; - ((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable2) /*String::append*/; - variable3 = ((abstractmetamodel___MMGlobalProperty___intro_t)CALL( self,COLOR_abstractmetamodel___MMGlobalProperty___intro))( self) /*MMGlobalProperty::intro*/; - variable3 = ((compiling_base___MMLocalProperty___cname_t)CALL(variable3,COLOR_compiling_base___MMLocalProperty___cname))(variable3) /*MMConcreteProperty::cname*/; - variable4 = variable3; - ((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable4) /*String::append*/; - variable5 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/ - variable6 = variable5; - ((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable6) /*String::append*/; - goto return_label9; - return_label9: while(false); - tracehead = trace.prev; - return variable0; -} -val_t compiling_base___MMGlobalProperty___attr_access(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___MMGlobalProperty___attr_access, 128}; - val_t variable0; - val_t variable1; - val_t variable2; - val_t variable3; - val_t variable4; - val_t variable5; - val_t variable6; - trace.prev = tracehead; tracehead = &trace; - variable0 = NEW_string___String___init(); /*new String*/ - variable1 = NEW_string___String___with_native(BOX_NativeString("ATTR_"), TAG_Int(5)); /*new String*/ - variable2 = variable1; - ((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable2) /*String::append*/; - variable3 = ((abstractmetamodel___MMGlobalProperty___intro_t)CALL( self,COLOR_abstractmetamodel___MMGlobalProperty___intro))( self) /*MMGlobalProperty::intro*/; - variable3 = ((compiling_base___MMLocalProperty___cname_t)CALL(variable3,COLOR_compiling_base___MMLocalProperty___cname))(variable3) /*MMConcreteProperty::cname*/; - variable4 = variable3; - ((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable4) /*String::append*/; - variable5 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/ - variable6 = variable5; - ((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable6) /*String::append*/; - goto return_label10; - return_label10: while(false); - tracehead = trace.prev; - return variable0; -} -val_t compiling_base___MMGlobalProperty___color_id(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___MMGlobalProperty___color_id, 134}; - val_t variable0; - val_t variable1; - val_t variable2; - val_t variable3; - val_t variable4; - val_t variable5; - val_t variable6; - trace.prev = tracehead; tracehead = &trace; - variable0 = NEW_string___String___init(); /*new String*/ - variable1 = NEW_string___String___with_native(BOX_NativeString("COLOR_"), TAG_Int(6)); /*new String*/ - variable2 = variable1; - ((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable2) /*String::append*/; - variable3 = ((abstractmetamodel___MMGlobalProperty___intro_t)CALL( self,COLOR_abstractmetamodel___MMGlobalProperty___intro))( self) /*MMGlobalProperty::intro*/; - variable3 = ((compiling_base___MMLocalProperty___cname_t)CALL(variable3,COLOR_compiling_base___MMLocalProperty___cname))(variable3) /*MMConcreteProperty::cname*/; - variable4 = variable3; - ((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable4) /*String::append*/; - variable5 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/ - variable6 = variable5; - ((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable6) /*String::append*/; - goto return_label11; - return_label11: while(false); - tracehead = trace.prev; - return variable0; -} -val_t compiling_base___MMGlobalClass___id_id(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___MMGlobalClass___id_id, 143}; - val_t variable0; - val_t variable1; - val_t variable2; - val_t variable3; - val_t variable4; - val_t variable5; - val_t variable6; - trace.prev = tracehead; tracehead = &trace; - variable0 = NEW_string___String___init(); /*new String*/ - variable1 = NEW_string___String___with_native(BOX_NativeString("ID_"), TAG_Int(3)); /*new String*/ - variable2 = variable1; - ((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable2) /*String::append*/; - variable3 = ((abstractmetamodel___MMGlobalClass___intro_t)CALL( self,COLOR_abstractmetamodel___MMGlobalClass___intro))( self) /*MMGlobalClass::intro*/; - variable3 = ((abstractmetamodel___MMLocalClass___name_t)CALL(variable3,COLOR_abstractmetamodel___MMLocalClass___name))(variable3) /*MMLocalClass::name*/; - variable4 = variable3; - variable4 = ((string___String___to_s_t)CALL(variable4,COLOR_string___Object___to_s))(variable4) /*String::to_s*/; - ((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable4) /*String::append*/; - variable5 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/ - variable6 = variable5; - ((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable6) /*String::append*/; - goto return_label12; - return_label12: while(false); - tracehead = trace.prev; - return variable0; -} -val_t compiling_base___MMGlobalClass___color_id(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___MMGlobalClass___color_id, 149}; - val_t variable0; - val_t variable1; - val_t variable2; - val_t variable3; - val_t variable4; - val_t variable5; - val_t variable6; - trace.prev = tracehead; tracehead = &trace; - variable0 = NEW_string___String___init(); /*new String*/ - variable1 = NEW_string___String___with_native(BOX_NativeString("COLOR_"), TAG_Int(6)); /*new String*/ - variable2 = variable1; - ((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable2) /*String::append*/; - variable3 = ((abstractmetamodel___MMGlobalClass___intro_t)CALL( self,COLOR_abstractmetamodel___MMGlobalClass___intro))( self) /*MMGlobalClass::intro*/; - variable3 = ((abstractmetamodel___MMLocalClass___name_t)CALL(variable3,COLOR_abstractmetamodel___MMLocalClass___name))(variable3) /*MMLocalClass::name*/; - variable4 = variable3; - variable4 = ((string___String___to_s_t)CALL(variable4,COLOR_string___Object___to_s))(variable4) /*String::to_s*/; - ((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable4) /*String::append*/; - variable5 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/ - variable6 = variable5; - ((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable6) /*String::append*/; - goto return_label13; - return_label13: while(false); - tracehead = trace.prev; - return variable0; -} -val_t compiling_base___MMGlobalClass___init_table_pos_id(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___MMGlobalClass___init_table_pos_id, 155}; - val_t variable0; - val_t variable1; - val_t variable2; - val_t variable3; - val_t variable4; - val_t variable5; - val_t variable6; - trace.prev = tracehead; tracehead = &trace; - variable0 = NEW_string___String___init(); /*new String*/ - variable1 = NEW_string___String___with_native(BOX_NativeString("INIT_TABLE_POS_"), TAG_Int(15)); /*new String*/ - variable2 = variable1; - ((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable2) /*String::append*/; - variable3 = ((abstractmetamodel___MMGlobalClass___intro_t)CALL( self,COLOR_abstractmetamodel___MMGlobalClass___intro))( self) /*MMGlobalClass::intro*/; - variable3 = ((abstractmetamodel___MMLocalClass___name_t)CALL(variable3,COLOR_abstractmetamodel___MMLocalClass___name))(variable3) /*MMLocalClass::name*/; - variable4 = variable3; - variable4 = ((string___String___to_s_t)CALL(variable4,COLOR_string___Object___to_s))(variable4) /*String::to_s*/; - ((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable4) /*String::append*/; - variable5 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/ - variable6 = variable5; - ((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable6) /*String::append*/; - goto return_label14; - return_label14: while(false); - tracehead = trace.prev; - return variable0; -} -val_t compiling_base___MMLocalClass___primitive_info(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___MMLocalClass___primitive_info, 169}; - val_t variable0; - val_t variable1; - static val_t once_value_variable1_16; static int once_bool_variable1_16; - val_t variable2; - val_t variable3; - val_t variable4; - trace.prev = tracehead; tracehead = &trace; - variable0 = ATTR_compiling_base___MMLocalClass____primitive_info_b( self) /*MMLocalClass::_primitive_info_b*/; - variable0 = TAG_Bool((variable0)==( TAG_Bool(true))); - if (UNTAG_Bool(variable0)) { /*if*/ - variable0 = ATTR_compiling_base___MMLocalClass____primitive_info_cache( self) /*MMLocalClass::_primitive_info_cache*/; - goto return_label15; +val_t compiling_base___CompilerVisitor___new_number(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t REGB1; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 77; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___new_number; + 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___CompilerVisitor____number_cpt(fra.me.REG[0])!=NIT_NULL); + /* ./compiling//compiling_base.nit:80 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_number_cpt"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 80); + nit_exit(1); } - if (once_bool_variable1_16) variable1 = once_value_variable1_16; - else { - variable1 = ((compiling_base___MMLocalClass___primitive_ctypes_t)CALL( self,COLOR_compiling_base___MMLocalClass___primitive_ctypes))( self) /*MMLocalClass::primitive_ctypes*/; - once_value_variable1_16 = variable1; - once_bool_variable1_16 = true; + REGB0 = ATTR_compiling_base___CompilerVisitor____number_cpt(fra.me.REG[0]); + REGB1 = TAG_Int(1); + REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1)); + /* ./compiling//compiling_base.nit:81 */ + ATTR_compiling_base___CompilerVisitor____number_cpt(fra.me.REG[0]) = REGB1; + /* ./compiling//compiling_base.nit:82 */ + goto label1; + label1: while(0); + stack_frame_head = fra.me.prev; + return REGB0; +} +void compiling_base___CompilerVisitor___indent(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t REGB1; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 87; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___indent; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + REGB0 = ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0]); + REGB1 = TAG_Int(1); + REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1)); + /* ./compiling//compiling_base.nit:89 */ + ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0]) = REGB1; + stack_frame_head = fra.me.prev; + return; +} +void compiling_base___CompilerVisitor___unindent(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t REGB1; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 91; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___unindent; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + REGB0 = ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0]); + REGB1 = TAG_Int(1); + REGB1 = TAG_Int(UNTAG_Int(REGB0)-UNTAG_Int(REGB1)); + /* ./compiling//compiling_base.nit:94 */ + ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0]) = REGB1; + REGB1 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0])!=NIT_NULL); + /* ./compiling//compiling_base.nit:95 */ + if (UNTAG_Bool(REGB1)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_indent_level"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 95); + nit_exit(1); } - variable0 = variable1; - variable1 = ((abstractmetamodel___MMLocalClass___name_t)CALL( self,COLOR_abstractmetamodel___MMLocalClass___name))( self) /*MMLocalClass::name*/; - variable1 = ((abstract_collection___CoupleMap___has_key_t)CALL( variable0 /*ctypes*/,COLOR_abstract_collection___Map___has_key))( variable0 /*ctypes*/, variable1) /*HashMap::has_key*/; - if (UNTAG_Bool(variable1)) { /*if*/ - variable1 = ((abstractmetamodel___MMLocalClass___name_t)CALL( self,COLOR_abstractmetamodel___MMLocalClass___name))( self) /*MMLocalClass::name*/; - variable1 = ((abstract_collection___CoupleMap_____bra_t)CALL( variable0 /*ctypes*/,COLOR_abstract_collection___Map_____bra))( variable0 /*ctypes*/, variable1) /*HashMap::[]*/; - ATTR_compiling_base___MMLocalClass____primitive_info_cache( self) /*MMLocalClass::_primitive_info_cache*/ = variable1; - ATTR_compiling_base___MMLocalClass____primitive_info_b( self) /*MMLocalClass::_primitive_info_b*/ = TAG_Bool(true); - variable1 = ATTR_compiling_base___MMLocalClass____primitive_info_cache( self) /*MMLocalClass::_primitive_info_cache*/; - variable0 = variable1; - goto return_label15; + REGB1 = ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0]); + REGB0 = TAG_Int(0); + REGB0 = TAG_Bool(UNTAG_Int(REGB1)=UNTAG_Int( TAG_Int(0))); - variable9 = variable8; - if (UNTAG_Bool(variable9)) { /* and */ - variable9 = ATTR_array___AbstractArray____length( variable1 /*pnames*/) /*Array::_length*/; - variable9 = TAG_Bool(UNTAG_Int( variable7 /*index*/)=UNTAG_Int( TAG_Int(0))); - variable10 = variable9; - if (UNTAG_Bool(variable10)) { /* and */ - variable10 = ATTR_array___AbstractArray____length( variable2 /*tagged*/) /*Array::_length*/; - variable10 = TAG_Bool(UNTAG_Int( variable8 /*index*/)=UNTAG_Int( TAG_Int(0))); - variable10 = variable9; - if (UNTAG_Bool(variable10)) { /* and */ - variable10 = ATTR_array___AbstractArray____length( variable3 /*cnames*/) /*Array::_length*/; - variable10 = TAG_Bool(UNTAG_Int( variable8 /*index*/)vft[INIT_TABLE_POS_PrimitiveInfo].i]) return; - init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_PrimitiveInfo].i] = 1; - tracehead = trace.prev; +val_t compiling_base___CompilerVisitor___tc(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 = 116; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___tc; + 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___CompilerVisitor____tc(fra.me.REG[0])!=NIT_NULL); + /* ./compiling//compiling_base.nit:116 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_tc"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 116); + nit_exit(1); + } + fra.me.REG[0] = ATTR_compiling_base___CompilerVisitor____tc(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +void compiling_base___CompilerVisitor___init(val_t p0, val_t p1, val_t p2, int* init_table){ + int itpos0 = 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[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.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; + 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]; + stack_frame_head = fra.me.prev; + init_table[itpos0] = 1; return; } -val_t compiling_base___MMType___cname(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___MMType___cname, 233}; - val_t variable0; - val_t variable1; - trace.prev = tracehead; tracehead = &trace; - variable1 = ((static_type___MMType___local_class_t)CALL( self,COLOR_static_type___MMType___local_class))( self) /*MMType::local_class*/; - variable1 = ((compiling_base___MMLocalClass___primitive_info_t)CALL(variable1,COLOR_compiling_base___MMLocalClass___primitive_info))(variable1) /*MMLocalClass::primitive_info*/; - variable0 = variable1; - variable1 = TAG_Bool(( variable0 /*pi*/ == NIT_NULL /*null*/) || (( variable0 /*pi*/ != NIT_NULL) && ((((kernel___Object_____eqeq_t)CALL( variable0 /*pi*/,COLOR_kernel___Object_____eqeq))==kernel___Object_____eqeq)?(IS_EQUAL_NN( variable0 /*pi*/, NIT_NULL /*null*/)):(UNTAG_Bool(((kernel___Object_____eqeq_t)CALL( variable0 /*pi*/,COLOR_kernel___Object_____eqeq))( variable0 /*pi*/, NIT_NULL /*null*/) /*PrimitiveInfo::==*/))))); - if (UNTAG_Bool(variable1)) { /*if*/ - variable1 = NEW_string___String___with_native(BOX_NativeString("val_t"), TAG_Int(5)); /*new String*/ - variable0 = variable1; - goto return_label24; - } else { /*if*/ - variable1 = ((compiling_base___PrimitiveInfo___cname_t)CALL( variable0 /*pi*/,COLOR_compiling_base___PrimitiveInfo___cname))( variable0 /*pi*/) /*PrimitiveInfo::cname*/; - variable0 = variable1; - goto return_label24; +val_t compiling_base___CContext___decls(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.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 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_decls"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 130); + nit_exit(1); + } + fra.me.REG[0] = ATTR_compiling_base___CContext____decls(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t compiling_base___CContext___instrs(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.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 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_instrs"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 131); + nit_exit(1); } - return_label24: while(false); - tracehead = trace.prev; - return variable0; -} -val_t compiling_base___MMType___default_cvalue(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___MMType___default_cvalue, 244}; - val_t variable0; - val_t variable1; - val_t variable2; - val_t variable3; - val_t variable4; - val_t variable5; - val_t variable6; - val_t variable7; - val_t variable8; - val_t variable9; - val_t variable10; - val_t variable11; - trace.prev = tracehead; tracehead = &trace; - variable1 = ((static_type___MMType___local_class_t)CALL( self,COLOR_static_type___MMType___local_class))( self) /*MMType::local_class*/; - variable1 = ((compiling_base___MMLocalClass___primitive_info_t)CALL(variable1,COLOR_compiling_base___MMLocalClass___primitive_info))(variable1) /*MMLocalClass::primitive_info*/; - variable0 = variable1; - variable1 = TAG_Bool(!UNTAG_Bool(TAG_Bool(( variable0 /*pi*/ == NIT_NULL /*null*/) || (( variable0 /*pi*/ != NIT_NULL) && ((((kernel___Object_____eqeq_t)CALL( variable0 /*pi*/,COLOR_kernel___Object_____eqeq))==kernel___Object_____eqeq)?(IS_EQUAL_NN( variable0 /*pi*/, NIT_NULL /*null*/)):(UNTAG_Bool(((kernel___Object_____eqeq_t)CALL( variable0 /*pi*/,COLOR_kernel___Object_____eqeq))( variable0 /*pi*/, NIT_NULL /*null*/) /*PrimitiveInfo::==*/))))))); - variable2 = variable1; - if (UNTAG_Bool(variable2)) { /* and */ - variable2 = ((compiling_base___PrimitiveInfo___tagged_t)CALL( variable0 /*pi*/,COLOR_compiling_base___PrimitiveInfo___tagged))( variable0 /*pi*/) /*PrimitiveInfo::tagged*/; + fra.me.REG[0] = ATTR_compiling_base___CContext____instrs(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; + 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.has_broke = 0; + fra.me.REG_size = 4; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[2] = NIT_NULL; + fra.me.REG[3] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[1] = 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); } - variable1 = variable2; - if (UNTAG_Bool(variable1)) { /*if*/ - variable1 = NEW_string___String___init(); /*new String*/ - variable2 = NEW_string___String___with_native(BOX_NativeString("TAG_"), TAG_Int(4)); /*new String*/ - variable3 = variable2; - ((string___String___append_t)CALL(variable1,COLOR_abstract_collection___IndexedCollection___append))(variable1, variable3) /*String::append*/; - variable4 = ((static_type___MMType___local_class_t)CALL( self,COLOR_static_type___MMType___local_class))( self) /*MMType::local_class*/; - variable4 = ((abstractmetamodel___MMLocalClass___name_t)CALL(variable4,COLOR_abstractmetamodel___MMLocalClass___name))(variable4) /*MMLocalClass::name*/; - variable5 = variable4; - variable5 = ((string___String___to_s_t)CALL(variable5,COLOR_string___Object___to_s))(variable5) /*String::to_s*/; - ((string___String___append_t)CALL(variable1,COLOR_abstract_collection___IndexedCollection___append))(variable1, variable5) /*String::append*/; - variable6 = NEW_string___String___with_native(BOX_NativeString("(("), TAG_Int(2)); /*new String*/ - variable7 = variable6; - ((string___String___append_t)CALL(variable1,COLOR_abstract_collection___IndexedCollection___append))(variable1, variable7) /*String::append*/; - variable8 = ((compiling_base___PrimitiveInfo___cname_t)CALL( variable0 /*pi*/,COLOR_compiling_base___PrimitiveInfo___cname))( variable0 /*pi*/) /*PrimitiveInfo::cname*/; - variable9 = variable8; - ((string___String___append_t)CALL(variable1,COLOR_abstract_collection___IndexedCollection___append))(variable1, variable9) /*String::append*/; - variable10 = NEW_string___String___with_native(BOX_NativeString(")0)"), TAG_Int(3)); /*new String*/ - variable11 = variable10; - ((string___String___append_t)CALL(variable1,COLOR_abstract_collection___IndexedCollection___append))(variable1, variable11) /*String::append*/; - variable0 = variable1; - goto return_label25; - } else { /*if*/ - variable1 = NEW_string___String___with_native(BOX_NativeString("NIT_NULL"), TAG_Int(8)); /*new String*/ - variable0 = variable1; - goto return_label25; + 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 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_instrs"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 136); + nit_exit(1); } - return_label25: while(false); - tracehead = trace.prev; - return variable0; -} -val_t compiling_base___MMType___boxtype(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_compiling_base___MMType___boxtype, 256}; - val_t variable0; - val_t variable1; - val_t variable2; - val_t variable3; - val_t variable4; - val_t variable5; - val_t variable6; - val_t variable7; - val_t variable8; - val_t variable9; - val_t variable10; - val_t variable11; - trace.prev = tracehead; tracehead = &trace; - variable0 = param0; - variable2 = ((static_type___MMType___local_class_t)CALL( self,COLOR_static_type___MMType___local_class))( self) /*MMType::local_class*/; - variable2 = ((compiling_base___MMLocalClass___primitive_info_t)CALL(variable2,COLOR_compiling_base___MMLocalClass___primitive_info))(variable2) /*MMLocalClass::primitive_info*/; - variable1 = variable2; - variable2 = TAG_Bool(( variable1 /*pi*/ == NIT_NULL /*null*/) || (( variable1 /*pi*/ != NIT_NULL) && ((((kernel___Object_____eqeq_t)CALL( variable1 /*pi*/,COLOR_kernel___Object_____eqeq))==kernel___Object_____eqeq)?(IS_EQUAL_NN( variable1 /*pi*/, NIT_NULL /*null*/)):(UNTAG_Bool(((kernel___Object_____eqeq_t)CALL( variable1 /*pi*/,COLOR_kernel___Object_____eqeq))( variable1 /*pi*/, NIT_NULL /*null*/) /*PrimitiveInfo::==*/))))); - if (UNTAG_Bool(variable2)) { /*if*/ - variable1 = variable0 /*s*/; - goto return_label26; - } else { /*if*/ - variable2 = ((compiling_base___PrimitiveInfo___tagged_t)CALL( variable1 /*pi*/,COLOR_compiling_base___PrimitiveInfo___tagged))( variable1 /*pi*/) /*PrimitiveInfo::tagged*/; - if (UNTAG_Bool(variable2)) { /*if*/ - variable2 = NEW_string___String___init(); /*new String*/ - variable3 = NEW_string___String___with_native(BOX_NativeString("TAG_"), TAG_Int(4)); /*new String*/ - variable4 = variable3; - ((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable4) /*String::append*/; - variable5 = ((static_type___MMType___local_class_t)CALL( self,COLOR_static_type___MMType___local_class))( self) /*MMType::local_class*/; - variable5 = ((abstractmetamodel___MMLocalClass___name_t)CALL(variable5,COLOR_abstractmetamodel___MMLocalClass___name))(variable5) /*MMLocalClass::name*/; - variable6 = variable5; - variable6 = ((string___String___to_s_t)CALL(variable6,COLOR_string___Object___to_s))(variable6) /*String::to_s*/; - ((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable6) /*String::append*/; - variable7 = NEW_string___String___with_native(BOX_NativeString("("), TAG_Int(1)); /*new String*/ - variable8 = variable7; - ((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable8) /*String::append*/; - variable9 = variable0 /*s*/; - ((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable9) /*String::append*/; - variable10 = NEW_string___String___with_native(BOX_NativeString(")"), TAG_Int(1)); /*new String*/ - variable11 = variable10; - ((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable11) /*String::append*/; - variable1 = variable2; - goto return_label26; - } else { /*if*/ - variable2 = NEW_string___String___init(); /*new String*/ - variable3 = NEW_string___String___with_native(BOX_NativeString("BOX_"), TAG_Int(4)); /*new String*/ - variable4 = variable3; - ((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable4) /*String::append*/; - variable5 = ((static_type___MMType___local_class_t)CALL( self,COLOR_static_type___MMType___local_class))( self) /*MMType::local_class*/; - variable5 = ((abstractmetamodel___MMLocalClass___name_t)CALL(variable5,COLOR_abstractmetamodel___MMLocalClass___name))(variable5) /*MMLocalClass::name*/; - variable6 = variable5; - variable6 = ((string___String___to_s_t)CALL(variable6,COLOR_string___Object___to_s))(variable6) /*String::to_s*/; - ((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable6) /*String::append*/; - variable7 = NEW_string___String___with_native(BOX_NativeString("("), TAG_Int(1)); /*new String*/ - variable8 = variable7; - ((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable8) /*String::append*/; - variable9 = variable0 /*s*/; - ((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable9) /*String::append*/; - variable10 = NEW_string___String___with_native(BOX_NativeString(")"), TAG_Int(1)); /*new String*/ - variable11 = variable10; - ((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable11) /*String::append*/; - variable1 = variable2; - goto return_label26; - } + 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]); + 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 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.has_broke = 0; + fra.me.REG_size = 4; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[2] = NIT_NULL; + fra.me.REG[3] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[1] = p1; + REGB0 = TAG_Bool(ATTR_compiling_base___CContext____decls(fra.me.REG[0])!=NIT_NULL); + /* ./compiling//compiling_base.nit:141 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_decls"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 141); + nit_exit(1); } - return_label26: while(false); - tracehead = trace.prev; - return variable1; -} -val_t compiling_base___MMType___unboxtype(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_compiling_base___MMType___unboxtype, 270}; - val_t variable0; - val_t variable1; - val_t variable2; - val_t variable3; - val_t variable4; - val_t variable5; - val_t variable6; - val_t variable7; - val_t variable8; - val_t variable9; - val_t variable10; - val_t variable11; - trace.prev = tracehead; tracehead = &trace; - variable0 = param0; - variable2 = ((static_type___MMType___local_class_t)CALL( self,COLOR_static_type___MMType___local_class))( self) /*MMType::local_class*/; - variable2 = ((compiling_base___MMLocalClass___primitive_info_t)CALL(variable2,COLOR_compiling_base___MMLocalClass___primitive_info))(variable2) /*MMLocalClass::primitive_info*/; - variable1 = variable2; - variable2 = TAG_Bool(( variable1 /*pi*/ == NIT_NULL /*null*/) || (( variable1 /*pi*/ != NIT_NULL) && ((((kernel___Object_____eqeq_t)CALL( variable1 /*pi*/,COLOR_kernel___Object_____eqeq))==kernel___Object_____eqeq)?(IS_EQUAL_NN( variable1 /*pi*/, NIT_NULL /*null*/)):(UNTAG_Bool(((kernel___Object_____eqeq_t)CALL( variable1 /*pi*/,COLOR_kernel___Object_____eqeq))( variable1 /*pi*/, NIT_NULL /*null*/) /*PrimitiveInfo::==*/))))); - if (UNTAG_Bool(variable2)) { /*if*/ - variable1 = variable0 /*s*/; - goto return_label27; - } else { /*if*/ - variable2 = ((compiling_base___PrimitiveInfo___tagged_t)CALL( variable1 /*pi*/,COLOR_compiling_base___PrimitiveInfo___tagged))( variable1 /*pi*/) /*PrimitiveInfo::tagged*/; - if (UNTAG_Bool(variable2)) { /*if*/ - variable2 = NEW_string___String___init(); /*new String*/ - variable3 = NEW_string___String___with_native(BOX_NativeString("UNTAG_"), TAG_Int(6)); /*new String*/ - variable4 = variable3; - ((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable4) /*String::append*/; - variable5 = ((static_type___MMType___local_class_t)CALL( self,COLOR_static_type___MMType___local_class))( self) /*MMType::local_class*/; - variable5 = ((abstractmetamodel___MMLocalClass___name_t)CALL(variable5,COLOR_abstractmetamodel___MMLocalClass___name))(variable5) /*MMLocalClass::name*/; - variable6 = variable5; - variable6 = ((string___String___to_s_t)CALL(variable6,COLOR_string___Object___to_s))(variable6) /*String::to_s*/; - ((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable6) /*String::append*/; - variable7 = NEW_string___String___with_native(BOX_NativeString("("), TAG_Int(1)); /*new String*/ - variable8 = variable7; - ((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable8) /*String::append*/; - variable9 = variable0 /*s*/; - ((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable9) /*String::append*/; - variable10 = NEW_string___String___with_native(BOX_NativeString(")"), TAG_Int(1)); /*new String*/ - variable11 = variable10; - ((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable11) /*String::append*/; - variable1 = variable2; - goto return_label27; - } else { /*if*/ - variable2 = NEW_string___String___init(); /*new String*/ - variable3 = NEW_string___String___with_native(BOX_NativeString("UNBOX_"), TAG_Int(6)); /*new String*/ - variable4 = variable3; - ((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable4) /*String::append*/; - variable5 = ((static_type___MMType___local_class_t)CALL( self,COLOR_static_type___MMType___local_class))( self) /*MMType::local_class*/; - variable5 = ((abstractmetamodel___MMLocalClass___name_t)CALL(variable5,COLOR_abstractmetamodel___MMLocalClass___name))(variable5) /*MMLocalClass::name*/; - variable6 = variable5; - variable6 = ((string___String___to_s_t)CALL(variable6,COLOR_string___Object___to_s))(variable6) /*String::to_s*/; - ((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable6) /*String::append*/; - variable7 = NEW_string___String___with_native(BOX_NativeString("("), TAG_Int(1)); /*new String*/ - variable8 = variable7; - ((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable8) /*String::append*/; - variable9 = variable0 /*s*/; - ((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable9) /*String::append*/; - variable10 = NEW_string___String___with_native(BOX_NativeString(")"), TAG_Int(1)); /*new String*/ - variable11 = variable10; - ((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable11) /*String::append*/; - variable1 = variable2; - goto return_label27; + 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 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_instrs"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 142); + nit_exit(1); + } + 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]); + stack_frame_head = fra.me.prev; + return; +} +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; + 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.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:145 */ + stack_frame_head = fra.me.prev; + init_table[itpos1] = 1; + return; +} +val_t compiling_base___MMGlobalProperty___meth_call(val_t p0){ + 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 */ + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 149; + fra.me.meth = LOCATE_compiling_base___MMGlobalProperty___meth_call; + 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; + 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); + 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; + array___Array___add(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]); + if (!once_value_2) { + 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_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[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); + goto label3; + label3: while(0); + stack_frame_head = fra.me.prev; + return fra.me.REG[1]; +} +val_t compiling_base___MMGlobalProperty___attr_access(val_t p0){ + 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 */ + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 155; + fra.me.meth = LOCATE_compiling_base___MMGlobalProperty___attr_access; + 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; + 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); + 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; + array___Array___add(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]); + if (!once_value_2) { + 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_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[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); + goto label3; + label3: while(0); + stack_frame_head = fra.me.prev; + return fra.me.REG[1]; +} +val_t compiling_base___MMGlobalClass___id_id(val_t p0){ + 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 */ + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 163; + fra.me.meth = LOCATE_compiling_base___MMGlobalClass___id_id; + 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; + 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); + 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; + array___Array___add(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]); + if (!once_value_2) { + 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_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[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); + goto label3; + label3: while(0); + stack_frame_head = fra.me.prev; + return fra.me.REG[1]; +} +val_t compiling_base___MMGlobalClass___color_id(val_t p0){ + 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 */ + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 169; + fra.me.meth = LOCATE_compiling_base___MMGlobalClass___color_id; + 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; + 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); + 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; + array___Array___add(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]); + if (!once_value_2) { + 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_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[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); + goto label3; + label3: while(0); + stack_frame_head = fra.me.prev; + return fra.me.REG[1]; +} +val_t compiling_base___MMGlobalClass___init_table_pos_id(val_t p0){ + 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 */ + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 175; + fra.me.meth = LOCATE_compiling_base___MMGlobalClass___init_table_pos_id; + 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; + 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); + 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; + array___Array___add(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]); + if (!once_value_2) { + 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_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[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); + goto label3; + label3: while(0); + stack_frame_head = fra.me.prev; + return fra.me.REG[1]; +} +val_t compiling_base___MMLocalProperty___cname(val_t p0){ + struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; + val_t REGB0; + val_t REGB1; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 186; + fra.me.meth = LOCATE_compiling_base___MMLocalProperty___cname; + fra.me.has_broke = 0; + fra.me.REG_size = 4; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[2] = NIT_NULL; + fra.me.REG[3] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[1] = ATTR_compiling_base___MMLocalProperty____cname_cache(fra.me.REG[0]); + 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); + if (UNTAG_Bool(REGB1)) { + REGB1 = TAG_Bool(false); + REGB0 = REGB1; + } else { + REGB1 = CALL_kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], NIT_NULL); + REGB0 = REGB1; } } - return_label27: while(false); - tracehead = trace.prev; - return variable1; -} -val_t compiling_base___MMLocalProperty___cname(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___MMLocalProperty___cname, 289}; - val_t variable0; - val_t variable1; - val_t variable2; - val_t variable3; - trace.prev = tracehead; tracehead = &trace; - variable0 = ATTR_compiling_base___MMLocalProperty____cname_cache( self) /*MMLocalProperty::_cname_cache*/; - variable0 = TAG_Bool((variable0 == NIT_NULL /*null*/) || ((variable0 != NIT_NULL) && UNTAG_Bool(((string___String_____eqeq_t)CALL(variable0,COLOR_kernel___Object_____eqeq))(variable0, NIT_NULL /*null*/) /*String::==*/))); - if (UNTAG_Bool(variable0)) { /*if*/ - variable0 = NEW_array___Array___with_capacity(TAG_Int(3)); /*new Array[Symbol]*/ - variable1 = ((abstractmetamodel___MMLocalProperty___concrete_property_t)CALL( self,COLOR_abstractmetamodel___MMLocalProperty___concrete_property))( self) /*MMLocalProperty::concrete_property*/; - variable1 = ((abstractmetamodel___MMLocalProperty___module_t)CALL(variable1,COLOR_abstractmetamodel___MMLocalProperty___module))(variable1) /*MMConcreteProperty::module*/; - variable1 = ((abstractmetamodel___MMModule___name_t)CALL(variable1,COLOR_abstractmetamodel___MMModule___name))(variable1) /*MMModule::name*/; - ((array___AbstractArray___add_t)CALL(variable0,COLOR_abstract_collection___SimpleCollection___add))(variable0, variable1) /*Array::add*/; - variable2 = ((abstractmetamodel___MMLocalProperty___concrete_property_t)CALL( self,COLOR_abstractmetamodel___MMLocalProperty___concrete_property))( self) /*MMLocalProperty::concrete_property*/; - variable2 = ((abstractmetamodel___MMLocalProperty___local_class_t)CALL(variable2,COLOR_abstractmetamodel___MMLocalProperty___local_class))(variable2) /*MMConcreteProperty::local_class*/; - variable2 = ((abstractmetamodel___MMLocalClass___name_t)CALL(variable2,COLOR_abstractmetamodel___MMLocalClass___name))(variable2) /*MMLocalClass::name*/; - ((array___AbstractArray___add_t)CALL(variable0,COLOR_abstract_collection___SimpleCollection___add))(variable0, variable2) /*Array::add*/; - variable3 = ((abstractmetamodel___MMLocalProperty___name_t)CALL( self,COLOR_abstractmetamodel___MMLocalProperty___name))( self) /*MMLocalProperty::name*/; - ((array___AbstractArray___add_t)CALL(variable0,COLOR_abstract_collection___SimpleCollection___add))(variable0, variable3) /*Array::add*/; - variable0 = ((utils___Object___cmangle_t)CALL( self,COLOR_utils___Object___cmangle))( self, variable0) /*MMLocalProperty::cmangle*/; - ATTR_compiling_base___MMLocalProperty____cname_cache( self) /*MMLocalProperty::_cname_cache*/ = variable0; + if (UNTAG_Bool(REGB0)) { + 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___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]); + 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]); + 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]); + 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 */ + ATTR_compiling_base___MMLocalProperty____cname_cache(fra.me.REG[0]) = fra.me.REG[1]; } - variable0 = ATTR_compiling_base___MMLocalProperty____cname_cache( self) /*MMLocalProperty::_cname_cache*/; - goto return_label28; - return_label28: while(false); - tracehead = trace.prev; - return variable0; -} -val_t compiling_base___MMLocalProperty___color_id_for_super(val_t self) { - struct trace_t trace = {NULL, LOCATE_compiling_base___MMLocalProperty___color_id_for_super, 298}; - val_t variable0; - val_t variable1; - val_t variable2; - val_t variable3; - val_t variable4; - val_t variable5; - val_t variable6; - trace.prev = tracehead; tracehead = &trace; - variable0 = NEW_string___String___init(); /*new String*/ - variable1 = NEW_string___String___with_native(BOX_NativeString("COLOR_SUPER_"), TAG_Int(12)); /*new String*/ - variable2 = variable1; - ((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable2) /*String::append*/; - variable3 = ((compiling_base___MMLocalProperty___cname_t)CALL( self,COLOR_compiling_base___MMLocalProperty___cname))( self) /*MMLocalProperty::cname*/; - variable4 = variable3; - ((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable4) /*String::append*/; - variable5 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/ - variable6 = variable5; - ((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable6) /*String::append*/; - goto return_label29; - return_label29: while(false); - tracehead = trace.prev; - return variable0; + /* ./compiling//compiling_base.nit:194 */ + goto label1; + label1: while(0); + stack_frame_head = fra.me.prev; + return fra.me.REG[1]; +} +val_t compiling_base___MMLocalProperty___super_meth_call(val_t p0){ + 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 */ + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 197; + fra.me.meth = LOCATE_compiling_base___MMLocalProperty___super_meth_call; + 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; + 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); + 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; + array___Array___add(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]); + if (!once_value_2) { + 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_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[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); + goto label3; + label3: while(0); + stack_frame_head = fra.me.prev; + return fra.me.REG[1]; }