X-Git-Url: http://nitlanguage.org diff --git a/c_src/compiling_base._sep.c b/c_src/compiling_base._sep.c index 196a172..e46e95e 100644 --- a/c_src/compiling_base._sep.c +++ b/c_src/compiling_base._sep.c @@ -1,1607 +1,2458 @@ /* 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, NULL, 24, LOCATE_compiling_base___ToolContext___global}; - val_t *variable = NULL; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - tracehead = trace.prev; - return ATTR_compiling_base___ToolContext____global( self) /*ToolContext::_global*/; +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 = 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]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; } -void compiling_base___ToolContext___global__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 24, LOCATE_compiling_base___ToolContext___global__eq}; - val_t *variable = NULL; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - ATTR_compiling_base___ToolContext____global( self) /*ToolContext::_global*/ = 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 = 27; + 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:27 */ + 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___compdir(val_t self) { - struct trace_t trace = {NULL, NULL, 25, LOCATE_compiling_base___ToolContext___compdir}; - val_t *variable = NULL; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - tracehead = trace.prev; - return ATTR_compiling_base___ToolContext____compdir( self) /*ToolContext::_compdir*/; +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 = 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]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; } -void compiling_base___ToolContext___compdir__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 25, LOCATE_compiling_base___ToolContext___compdir__eq}; - val_t *variable = NULL; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - ATTR_compiling_base___ToolContext____compdir( self) /*ToolContext::_compdir*/ = 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 = 28; + 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:28 */ + 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___clibdir(val_t self) { - struct trace_t trace = {NULL, NULL, 26, LOCATE_compiling_base___ToolContext___clibdir}; - val_t *variable = NULL; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - tracehead = trace.prev; - return ATTR_compiling_base___ToolContext____clibdir( self) /*ToolContext::_clibdir*/; +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 = 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]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; } -void compiling_base___ToolContext___clibdir__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 26, LOCATE_compiling_base___ToolContext___clibdir__eq}; - val_t *variable = NULL; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - ATTR_compiling_base___ToolContext____clibdir( self) /*ToolContext::_clibdir*/ = 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 = 29; + 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:29 */ + 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___bindir(val_t self) { - struct trace_t trace = {NULL, NULL, 27, LOCATE_compiling_base___ToolContext___bindir}; - val_t *variable = NULL; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - tracehead = trace.prev; - return ATTR_compiling_base___ToolContext____bindir( self) /*ToolContext::_bindir*/; +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 = 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]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; } -void compiling_base___ToolContext___bindir__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 27, LOCATE_compiling_base___ToolContext___bindir__eq}; - val_t *variable = NULL; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - ATTR_compiling_base___ToolContext____bindir( self) /*ToolContext::_bindir*/ = param0; - tracehead = trace.prev; +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 = 30; + 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:30 */ + ATTR_compiling_base___ToolContext____output_file(fra.me.REG[0]) = fra.me.REG[1]; + stack_frame_head = fra.me.prev; return; } -val_t compiling_base___ToolContext___output_file(val_t self) { - struct trace_t trace = {NULL, NULL, 28, LOCATE_compiling_base___ToolContext___output_file}; - val_t *variable = NULL; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - 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, NULL, 28, LOCATE_compiling_base___ToolContext___output_file__eq}; - val_t *variable = NULL; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - ATTR_compiling_base___ToolContext____output_file( self) /*ToolContext::_output_file*/ = param0; - tracehead = trace.prev; - return; -} -val_t compiling_base___ToolContext___boost(val_t self) { - struct trace_t trace = {NULL, NULL, 29, LOCATE_compiling_base___ToolContext___boost}; - val_t *variable = NULL; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - tracehead = trace.prev; - return ATTR_compiling_base___ToolContext____boost( self) /*ToolContext::_boost*/; +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 = 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); + if (UNTAG_Bool(REGB0)) { + } else { + 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; + return REGB0; } -void compiling_base___ToolContext___boost__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 29, LOCATE_compiling_base___ToolContext___boost__eq}; - val_t *variable = NULL; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - ATTR_compiling_base___ToolContext____boost( self) /*ToolContext::_boost*/ = param0; - tracehead = trace.prev; +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 = 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:31 */ + ATTR_compiling_base___ToolContext____boost(fra.me.REG[0]) = REGB0; + stack_frame_head = fra.me.prev; return; } -val_t compiling_base___ToolContext___no_cc(val_t self) { - struct trace_t trace = {NULL, NULL, 30, LOCATE_compiling_base___ToolContext___no_cc}; - val_t *variable = NULL; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - tracehead = trace.prev; - return ATTR_compiling_base___ToolContext____no_cc( self) /*ToolContext::_no_cc*/; +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 = 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); + if (UNTAG_Bool(REGB0)) { + } else { + 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; + return REGB0; } -void compiling_base___ToolContext___no_cc__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 30, LOCATE_compiling_base___ToolContext___no_cc__eq}; - val_t *variable = NULL; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - ATTR_compiling_base___ToolContext____no_cc( self) /*ToolContext::_no_cc*/ = param0; - 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 = 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:32 */ + ATTR_compiling_base___ToolContext____no_cc(fra.me.REG[0]) = REGB0; + stack_frame_head = fra.me.prev; return; } -val_t compiling_base___ToolContext___ext_prefix(val_t self) { - struct trace_t trace = {NULL, NULL, 31, LOCATE_compiling_base___ToolContext___ext_prefix}; - val_t *variable = NULL; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - tracehead = trace.prev; - return ATTR_compiling_base___ToolContext____ext_prefix( self) /*ToolContext::_ext_prefix*/; +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___ext_prefix__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 31, LOCATE_compiling_base___ToolContext___ext_prefix__eq}; - val_t *variable = NULL; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - ATTR_compiling_base___ToolContext____ext_prefix( self) /*ToolContext::_ext_prefix*/ = param0; - tracehead = trace.prev; +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___CompilerVisitor___to_s(val_t self) { - struct trace_t trace = {NULL, NULL, 79, LOCATE_compiling_base___CompilerVisitor___to_s}; - static val_t once_value_1 = NIT_NULL; /* Once value for string variable[3]*/ - static val_t once_value_2 = NIT_NULL; /* Once value for string variable[3]*/ - val_t variable[4]; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - /* Register variable[0]: Local variable */ - variable[0] = self; - /* Register variable[1]: Method return value and escape marker */ - /* Register variable[2]: Local variable */ - /* Register variable[3]: Result */ - variable[3] = NEW_Array_array___Array___init() /*new Array[String]*/; - variable[2] = variable[3]; - /* Register variable[3]: Result */ - variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[0]) /*CompilerVisitor::_ctx*/; - /* Register variable[3]: Result */ - variable[3] = CALL_compiling_base___CContext___decls(variable[3])(variable[3]) /*CContext::decls*/; - CALL_abstract_collection___IndexedCollection___append( variable[2] /*out*/)( variable[2] /*out*/, variable[3]) /*IndexedCollection::append*/; - /* Register variable[3]: Result */ - variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[0]) /*CompilerVisitor::_ctx*/; - /* Register variable[3]: Result */ - variable[3] = CALL_compiling_base___CContext___instrs(variable[3])(variable[3]) /*CContext::instrs*/; - CALL_abstract_collection___IndexedCollection___append( variable[2] /*out*/)( variable[2] /*out*/, variable[3]) /*IndexedCollection::append*/; - /* Register variable[3]: Once String constant */ - if (once_value_1 != NIT_NULL) variable[3] = once_value_1; - else { - variable[3] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)) /*new String*/; - once_value_1 = variable[3]; +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); } - /* Register variable[3]: Result */ - CALL_abstract_collection___SimpleCollection___add( variable[2] /*out*/)( variable[2] /*out*/, variable[3]) /*AbstractArray::add*/; - /* Register variable[3]: Once String constant */ - if (once_value_2 != NIT_NULL) variable[3] = once_value_2; - else { - variable[3] = NEW_String_string___String___with_native(BOX_NativeString("\n"), TAG_Int(1)) /*new String*/; - once_value_2 = variable[3]; - } - /* Register variable[3]: Result */ - /* Register variable[3]: Result */ - variable[3] = CALL_string___Collection___join( variable[2] /*out*/)( variable[2] /*out*/, variable[3]) /*Collection::join*/; - variable[1] = variable[3]; - goto return_label0; - return_label0: while(false); - tracehead = trace.prev; - return variable[1]; + 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___CompilerVisitor___add_decl(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 38, LOCATE_compiling_base___CompilerVisitor___add_decl}; - static val_t once_value_4 = NIT_NULL; /* Once value for string variable[4]*/ - static val_t once_value_5 = NIT_NULL; /* Once value for string variable[4]*/ - val_t variable[6]; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - /* Register variable[0]: Local variable */ - variable[0] = self; - /* Register variable[1]: Local variable */ - variable[1] = param0; - /* Register variable[2]: Method return value and escape marker */ - /* Register variable[3]: Result */ - variable[3] = ATTR_compiling_base___CompilerVisitor____indent_level(variable[0]) /*CompilerVisitor::_indent_level*/; - /* Register variable[3]: Result */ - variable[3] = TAG_Bool(UNTAG_Int(variable[3])>=UNTAG_Int( TAG_Int(8))); - if (UNTAG_Bool(variable[3])) { /*if*/ - /* Register variable[3]: Result */ - variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[0]) /*CompilerVisitor::_ctx*/; - /* Register variable[3]: Result */ - variable[3] = CALL_compiling_base___CContext___decls(variable[3])(variable[3]) /*CContext::decls*/; - /* Register variable[4]: Once String constant */ - if (once_value_4 != NIT_NULL) variable[4] = once_value_4; - else { - variable[4] = NEW_String_string___String___with_native(BOX_NativeString("\t\t"), TAG_Int(2)) /*new String*/; - once_value_4 = variable[4]; - } - /* Register variable[4]: Result */ - /* Register variable[4]: Result */ - variable[4] = CALL_string___String_____plus(variable[4])(variable[4], variable[1] /*s*/) /*String::+*/; - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[4]) /*AbstractArray::add*/; - } else { /*if*/ - /* Register variable[3]: Result */ - variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[0]) /*CompilerVisitor::_ctx*/; - /* Register variable[3]: Result */ - variable[3] = CALL_compiling_base___CContext___decls(variable[3])(variable[3]) /*CContext::decls*/; - /* Register variable[4]: Once String constant */ - if (once_value_5 != NIT_NULL) variable[4] = once_value_5; - else { - variable[4] = NEW_String_string___String___with_native(BOX_NativeString(" "), TAG_Int(2)) /*new String*/; - once_value_5 = variable[4]; - } - /* Register variable[4]: Result */ - /* Register variable[5]: Result */ - variable[5] = ATTR_compiling_base___CompilerVisitor____indent_level(variable[0]) /*CompilerVisitor::_indent_level*/; - /* Register variable[4]: Result */ - variable[4] = CALL_string___String_____star(variable[4])(variable[4], variable[5]) /*String::**/; - /* Register variable[4]: Result */ - variable[4] = CALL_string___String_____plus(variable[4])(variable[4], variable[1] /*s*/) /*String::+*/; - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[4]) /*AbstractArray::add*/; - } - return_label3: while(false); - tracehead = trace.prev; +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; } -void compiling_base___CompilerVisitor___add_instr(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 48, LOCATE_compiling_base___CompilerVisitor___add_instr}; - static val_t once_value_7 = NIT_NULL; /* Once value for string variable[4]*/ - static val_t once_value_8 = NIT_NULL; /* Once value for string variable[4]*/ - val_t variable[6]; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - /* Register variable[0]: Local variable */ - variable[0] = self; - /* Register variable[1]: Local variable */ - variable[1] = param0; - /* Register variable[2]: Method return value and escape marker */ - /* Register variable[3]: Result */ - variable[3] = ATTR_compiling_base___CompilerVisitor____indent_level(variable[0]) /*CompilerVisitor::_indent_level*/; - /* Register variable[3]: Result */ - variable[3] = TAG_Bool(UNTAG_Int(variable[3])>=UNTAG_Int( TAG_Int(8))); - if (UNTAG_Bool(variable[3])) { /*if*/ - /* Register variable[3]: Result */ - variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[0]) /*CompilerVisitor::_ctx*/; - /* Register variable[3]: Result */ - variable[3] = CALL_compiling_base___CContext___instrs(variable[3])(variable[3]) /*CContext::instrs*/; - /* Register variable[4]: Once String constant */ - if (once_value_7 != NIT_NULL) variable[4] = once_value_7; - else { - variable[4] = NEW_String_string___String___with_native(BOX_NativeString("\t\t"), TAG_Int(2)) /*new String*/; - once_value_7 = variable[4]; - } - /* Register variable[4]: Result */ - /* Register variable[4]: Result */ - variable[4] = CALL_string___String_____plus(variable[4])(variable[4], variable[1] /*s*/) /*String::+*/; - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[4]) /*AbstractArray::add*/; - } else { /*if*/ - /* Register variable[3]: Result */ - variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[0]) /*CompilerVisitor::_ctx*/; - /* Register variable[3]: Result */ - variable[3] = CALL_compiling_base___CContext___instrs(variable[3])(variable[3]) /*CContext::instrs*/; - /* Register variable[4]: Once String constant */ - if (once_value_8 != NIT_NULL) variable[4] = once_value_8; - else { - variable[4] = NEW_String_string___String___with_native(BOX_NativeString(" "), TAG_Int(2)) /*new String*/; - once_value_8 = variable[4]; - } - /* Register variable[4]: Result */ - /* Register variable[5]: Result */ - variable[5] = ATTR_compiling_base___CompilerVisitor____indent_level(variable[0]) /*CompilerVisitor::_indent_level*/; - /* Register variable[4]: Result */ - variable[4] = CALL_string___String_____star(variable[4])(variable[4], variable[5]) /*String::**/; - /* Register variable[4]: Result */ - variable[4] = CALL_string___String_____plus(variable[4])(variable[4], variable[1] /*s*/) /*String::+*/; - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[4]) /*AbstractArray::add*/; +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); } - return_label6: while(false); - tracehead = trace.prev; - return; -} -val_t compiling_base___CompilerVisitor___new_number(val_t self) { - struct trace_t trace = {NULL, NULL, 58, LOCATE_compiling_base___CompilerVisitor___new_number}; - val_t variable[4]; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - /* Register variable[0]: Local variable */ - variable[0] = self; - /* Register variable[1]: Method return value and escape marker */ - /* Register variable[2]: Local variable */ - /* Register variable[3]: Result */ - variable[3] = ATTR_compiling_base___CompilerVisitor____number_cpt(variable[0]) /*CompilerVisitor::_number_cpt*/; - variable[2] = variable[3]; - /* Register variable[3]: Result */ - variable[3] = TAG_Int(UNTAG_Int( variable[2] /*res*/)+UNTAG_Int( TAG_Int(1))); - ATTR_compiling_base___CompilerVisitor____number_cpt(variable[0]) /*CompilerVisitor::_number_cpt*/ = variable[3]; - variable[1] = variable[2] /*res*/; - goto return_label9; - return_label9: while(false); - tracehead = trace.prev; - return variable[1]; + 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___CompilerVisitor___indent(val_t self) { - struct trace_t trace = {NULL, NULL, 68, LOCATE_compiling_base___CompilerVisitor___indent}; - val_t variable[2]; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - /* Register variable[0]: Local variable */ - variable[0] = self; - /* Register variable[1]: Method return value and escape marker */ - ATTR_compiling_base___CompilerVisitor____indent_level(variable[0]) /*CompilerVisitor::_indent_level*/ = TAG_Int(UNTAG_Int(ATTR_compiling_base___CompilerVisitor____indent_level(variable[0]) /*CompilerVisitor::_indent_level*/)+UNTAG_Int( TAG_Int(1))); - return_label10: while(false); - tracehead = trace.prev; +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; } -void compiling_base___CompilerVisitor___unindent(val_t self) { - struct trace_t trace = {NULL, NULL, 72, LOCATE_compiling_base___CompilerVisitor___unindent}; - val_t variable[3]; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - /* Register variable[0]: Local variable */ - variable[0] = self; - /* Register variable[1]: Method return value and escape marker */ - ATTR_compiling_base___CompilerVisitor____indent_level(variable[0]) /*CompilerVisitor::_indent_level*/ = TAG_Int(UNTAG_Int(ATTR_compiling_base___CompilerVisitor____indent_level(variable[0]) /*CompilerVisitor::_indent_level*/)-UNTAG_Int( TAG_Int(1))); - /* Register variable[2]: Result */ - variable[2] = ATTR_compiling_base___CompilerVisitor____indent_level(variable[0]) /*CompilerVisitor::_indent_level*/; - /* Register variable[2]: Result */ - variable[2] = TAG_Bool(UNTAG_Int(variable[2])vft[INIT_TABLE_POS_CompilerVisitor].i]) return; - /* Register variable[3]: Method return value and escape marker */ - ATTR_compiling_base___CompilerVisitor____module(variable[0]) /*CompilerVisitor::_module*/ = variable[1] /*module*/; - ATTR_compiling_base___CompilerVisitor____tc(variable[0]) /*CompilerVisitor::_tc*/ = variable[2] /*tc*/; - return_label12: while(false); - init_table[VAL2OBJ(variable[0])->vft[INIT_TABLE_POS_CompilerVisitor].i] = 1; - tracehead = trace.prev; +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___CContext___decls(val_t self) { - struct trace_t trace = {NULL, NULL, 112, LOCATE_compiling_base___CContext___decls}; - val_t *variable = NULL; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - tracehead = trace.prev; - return ATTR_compiling_base___CContext____decls( self) /*CContext::_decls*/; +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___CContext___instrs(val_t self) { - struct trace_t trace = {NULL, NULL, 113, LOCATE_compiling_base___CContext___instrs}; - val_t *variable = NULL; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - tracehead = trace.prev; - return ATTR_compiling_base___CContext____instrs( self) /*CContext::_instrs*/; +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]; } -void compiling_base___CContext___append(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 115, LOCATE_compiling_base___CContext___append}; - val_t variable[5]; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - /* Register variable[0]: Local variable */ - variable[0] = self; - /* Register variable[1]: Local variable */ - variable[1] = param0; - /* Register variable[2]: Method return value and escape marker */ - /* Register variable[3]: Result */ - variable[3] = ATTR_compiling_base___CContext____instrs(variable[0]) /*CContext::_instrs*/; - /* Register variable[4]: Result */ - variable[4] = CALL_compiling_base___CContext___decls( variable[1] /*c*/)( variable[1] /*c*/) /*CContext::decls*/; - CALL_abstract_collection___IndexedCollection___append(variable[3])(variable[3], variable[4]) /*IndexedCollection::append*/; - /* Register variable[3]: Result */ - variable[3] = ATTR_compiling_base___CContext____instrs(variable[0]) /*CContext::_instrs*/; - /* Register variable[4]: Result */ - variable[4] = CALL_compiling_base___CContext___instrs( variable[1] /*c*/)( variable[1] /*c*/) /*CContext::instrs*/; - CALL_abstract_collection___IndexedCollection___append(variable[3])(variable[3], variable[4]) /*IndexedCollection::append*/; - return_label13: while(false); - tracehead = trace.prev; - return; +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]; } -void compiling_base___CContext___merge(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 121, LOCATE_compiling_base___CContext___merge}; - val_t variable[5]; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - /* Register variable[0]: Local variable */ - variable[0] = self; - /* Register variable[1]: Local variable */ - variable[1] = param0; - /* Register variable[2]: Method return value and escape marker */ - /* Register variable[3]: Result */ - variable[3] = ATTR_compiling_base___CContext____decls(variable[0]) /*CContext::_decls*/; - /* Register variable[4]: Result */ - variable[4] = CALL_compiling_base___CContext___decls( variable[1] /*c*/)( variable[1] /*c*/) /*CContext::decls*/; - CALL_abstract_collection___IndexedCollection___append(variable[3])(variable[3], variable[4]) /*IndexedCollection::append*/; - /* Register variable[3]: Result */ - variable[3] = ATTR_compiling_base___CContext____instrs(variable[0]) /*CContext::_instrs*/; - /* Register variable[4]: Result */ - variable[4] = CALL_compiling_base___CContext___instrs( variable[1] /*c*/)( variable[1] /*c*/) /*CContext::instrs*/; - CALL_abstract_collection___IndexedCollection___append(variable[3])(variable[3], variable[4]) /*IndexedCollection::append*/; - return_label14: while(false); - tracehead = trace.prev; - return; +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]; } -void compiling_base___CContext___init(val_t self, int* init_table) { - struct trace_t trace = {NULL, NULL, 127, LOCATE_compiling_base___CContext___init}; - val_t variable[2]; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - /* Register variable[0]: Local variable */ - variable[0] = self; - if (init_table[VAL2OBJ(variable[0])->vft[INIT_TABLE_POS_CContext].i]) return; - /* Register variable[1]: Method return value and escape marker */ - return_label15: while(false); - init_table[VAL2OBJ(variable[0])->vft[INIT_TABLE_POS_CContext].i] = 1; - tracehead = trace.prev; - return; +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___MMGlobalProperty___meth_call(val_t self) { - struct trace_t trace = {NULL, NULL, 131, LOCATE_compiling_base___MMGlobalProperty___meth_call}; - static val_t once_value_17 = NIT_NULL; /* Once value for string variable[3]*/ - static val_t once_value_18 = NIT_NULL; /* Once value for string variable[3]*/ - val_t variable[4]; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - /* Register variable[0]: Local variable */ - variable[0] = self; - /* Register variable[1]: Method return value and escape marker */ - variable[2] = NEW_Array_array___Array___with_capacity(TAG_Int(3)) /*new Array[String]*/ /* Ensure var: Array (for super-string)*/; - /* Register variable[3]: Once String constant */ - if (once_value_17 != NIT_NULL) variable[3] = once_value_17; - else { - variable[3] = NEW_String_string___String___with_native(BOX_NativeString("CALL_"), TAG_Int(5)) /*new String*/; - once_value_17 = variable[3]; +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); } - /* Register variable[3]: Result */ - /* Ensure var variable[3]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/; - /* Register variable[3]: Result */ - variable[3] = CALL_abstractmetamodel___MMGlobalProperty___intro(variable[0])(variable[0]) /*MMGlobalProperty::intro*/; - /* Register variable[3]: Result */ - variable[3] = CALL_compiling_base___MMLocalProperty___cname(variable[3])(variable[3]) /*MMLocalProperty::cname*/; - /* Ensure var variable[3]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/; - /* Register variable[3]: Once String constant */ - if (once_value_18 != NIT_NULL) variable[3] = once_value_18; - else { - variable[3] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)) /*new String*/; - once_value_18 = variable[3]; + 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; } - /* Register variable[3]: Result */ - /* Ensure var variable[3]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/; - /* Register variable[2]: Result */ - variable[2] = CALL_string___Object___to_s(variable[2])(variable[2]) /*Object::to_s*/; - variable[1] = variable[2]; - goto return_label16; - return_label16: while(false); - tracehead = trace.prev; - return variable[1]; -} -val_t compiling_base___MMGlobalProperty___attr_access(val_t self) { - struct trace_t trace = {NULL, NULL, 137, LOCATE_compiling_base___MMGlobalProperty___attr_access}; - static val_t once_value_20 = NIT_NULL; /* Once value for string variable[3]*/ - static val_t once_value_21 = NIT_NULL; /* Once value for string variable[3]*/ - val_t variable[4]; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - /* Register variable[0]: Local variable */ - variable[0] = self; - /* Register variable[1]: Method return value and escape marker */ - variable[2] = NEW_Array_array___Array___with_capacity(TAG_Int(3)) /*new Array[String]*/ /* Ensure var: Array (for super-string)*/; - /* Register variable[3]: Once String constant */ - if (once_value_20 != NIT_NULL) variable[3] = once_value_20; - else { - variable[3] = NEW_String_string___String___with_native(BOX_NativeString("ATTR_"), TAG_Int(5)) /*new String*/; - once_value_20 = variable[3]; + /* ./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); } - /* Register variable[3]: Result */ - /* Ensure var variable[3]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/; - /* Register variable[3]: Result */ - variable[3] = CALL_abstractmetamodel___MMGlobalProperty___intro(variable[0])(variable[0]) /*MMGlobalProperty::intro*/; - /* Register variable[3]: Result */ - variable[3] = CALL_compiling_base___MMLocalProperty___cname(variable[3])(variable[3]) /*MMLocalProperty::cname*/; - /* Ensure var variable[3]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/; - /* Register variable[3]: Once String constant */ - if (once_value_21 != NIT_NULL) variable[3] = once_value_21; - else { - variable[3] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)) /*new String*/; - once_value_21 = variable[3]; + 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]; } - /* Register variable[3]: Result */ - /* Ensure var variable[3]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/; - /* Register variable[2]: Result */ - variable[2] = CALL_string___Object___to_s(variable[2])(variable[2]) /*Object::to_s*/; - variable[1] = variable[2]; - goto return_label19; - return_label19: while(false); - tracehead = trace.prev; - return variable[1]; + goto label3; + label3: while(0); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; } -val_t compiling_base___MMGlobalClass___id_id(val_t self) { - struct trace_t trace = {NULL, NULL, 145, LOCATE_compiling_base___MMGlobalClass___id_id}; - static val_t once_value_23 = NIT_NULL; /* Once value for string variable[3]*/ - static val_t once_value_24 = NIT_NULL; /* Once value for string variable[3]*/ - val_t variable[4]; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - /* Register variable[0]: Local variable */ - variable[0] = self; - /* Register variable[1]: Method return value and escape marker */ - variable[2] = NEW_Array_array___Array___with_capacity(TAG_Int(3)) /*new Array[String]*/ /* Ensure var: Array (for super-string)*/; - /* Register variable[3]: Once String constant */ - if (once_value_23 != NIT_NULL) variable[3] = once_value_23; - else { - variable[3] = NEW_String_string___String___with_native(BOX_NativeString("ID_"), TAG_Int(3)) /*new String*/; - once_value_23 = variable[3]; +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); } - /* Register variable[3]: Result */ - /* Ensure var variable[3]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/; - /* Register variable[3]: Result */ - variable[3] = CALL_abstractmetamodel___MMGlobalClass___intro(variable[0])(variable[0]) /*MMGlobalClass::intro*/; - /* Register variable[3]: Result */ - variable[3] = CALL_abstractmetamodel___MMLocalClass___name(variable[3])(variable[3]) /*MMLocalClass::name*/; - /* Ensure var variable[3]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], CALL_string___Object___to_s(variable[3])(variable[3]) /*Object::to_s*/) /*AbstractArray::add*/; - /* Register variable[3]: Once String constant */ - if (once_value_24 != NIT_NULL) variable[3] = once_value_24; - else { - variable[3] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)) /*new String*/; - once_value_24 = variable[3]; + 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; } - /* Register variable[3]: Result */ - /* Ensure var variable[3]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/; - /* Register variable[2]: Result */ - variable[2] = CALL_string___Object___to_s(variable[2])(variable[2]) /*Object::to_s*/; - variable[1] = variable[2]; - goto return_label22; - return_label22: while(false); - tracehead = trace.prev; - return variable[1]; -} -val_t compiling_base___MMGlobalClass___color_id(val_t self) { - struct trace_t trace = {NULL, NULL, 151, LOCATE_compiling_base___MMGlobalClass___color_id}; - static val_t once_value_26 = NIT_NULL; /* Once value for string variable[3]*/ - static val_t once_value_27 = NIT_NULL; /* Once value for string variable[3]*/ - val_t variable[4]; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - /* Register variable[0]: Local variable */ - variable[0] = self; - /* Register variable[1]: Method return value and escape marker */ - variable[2] = NEW_Array_array___Array___with_capacity(TAG_Int(3)) /*new Array[String]*/ /* Ensure var: Array (for super-string)*/; - /* Register variable[3]: Once String constant */ - if (once_value_26 != NIT_NULL) variable[3] = once_value_26; - else { - variable[3] = NEW_String_string___String___with_native(BOX_NativeString("COLOR_"), TAG_Int(6)) /*new String*/; - once_value_26 = variable[3]; + 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]; + } } - /* Register variable[3]: Result */ - /* Ensure var variable[3]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/; - /* Register variable[3]: Result */ - variable[3] = CALL_abstractmetamodel___MMGlobalClass___intro(variable[0])(variable[0]) /*MMGlobalClass::intro*/; - /* Register variable[3]: Result */ - variable[3] = CALL_abstractmetamodel___MMLocalClass___name(variable[3])(variable[3]) /*MMLocalClass::name*/; - /* Ensure var variable[3]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], CALL_string___Object___to_s(variable[3])(variable[3]) /*Object::to_s*/) /*AbstractArray::add*/; - /* Register variable[3]: Once String constant */ - if (once_value_27 != NIT_NULL) variable[3] = once_value_27; - else { - variable[3] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)) /*new String*/; - once_value_27 = variable[3]; + /* ./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); } - /* Register variable[3]: Result */ - /* Ensure var variable[3]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/; - /* Register variable[2]: Result */ - variable[2] = CALL_string___Object___to_s(variable[2])(variable[2]) /*Object::to_s*/; - variable[1] = variable[2]; - goto return_label25; - return_label25: while(false); - tracehead = trace.prev; - return variable[1]; -} -val_t compiling_base___MMGlobalClass___init_table_pos_id(val_t self) { - struct trace_t trace = {NULL, NULL, 157, LOCATE_compiling_base___MMGlobalClass___init_table_pos_id}; - static val_t once_value_29 = NIT_NULL; /* Once value for string variable[3]*/ - static val_t once_value_30 = NIT_NULL; /* Once value for string variable[3]*/ - val_t variable[4]; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - /* Register variable[0]: Local variable */ - variable[0] = self; - /* Register variable[1]: Method return value and escape marker */ - variable[2] = NEW_Array_array___Array___with_capacity(TAG_Int(3)) /*new Array[String]*/ /* Ensure var: Array (for super-string)*/; - /* Register variable[3]: Once String constant */ - if (once_value_29 != NIT_NULL) variable[3] = once_value_29; - else { - variable[3] = NEW_String_string___String___with_native(BOX_NativeString("INIT_TABLE_POS_"), TAG_Int(15)) /*new String*/; - once_value_29 = variable[3]; + 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); } - /* Register variable[3]: Result */ - /* Ensure var variable[3]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/; - /* Register variable[3]: Result */ - variable[3] = CALL_abstractmetamodel___MMGlobalClass___intro(variable[0])(variable[0]) /*MMGlobalClass::intro*/; - /* Register variable[3]: Result */ - variable[3] = CALL_abstractmetamodel___MMLocalClass___name(variable[3])(variable[3]) /*MMLocalClass::name*/; - /* Ensure var variable[3]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], CALL_string___Object___to_s(variable[3])(variable[3]) /*Object::to_s*/) /*AbstractArray::add*/; - /* Register variable[3]: Once String constant */ - if (once_value_30 != NIT_NULL) variable[3] = once_value_30; - else { - variable[3] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)) /*new String*/; - once_value_30 = variable[3]; + 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; + } } - /* Register variable[3]: Result */ - /* Ensure var variable[3]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/; - /* Register variable[2]: Result */ - variable[2] = CALL_string___Object___to_s(variable[2])(variable[2]) /*Object::to_s*/; - variable[1] = variable[2]; - goto return_label28; - return_label28: while(false); - tracehead = trace.prev; - return variable[1]; -} -val_t compiling_base___MMLocalClass___primitive_info(val_t self) { - struct trace_t trace = {NULL, NULL, 171, LOCATE_compiling_base___MMLocalClass___primitive_info}; - static val_t once_value_32; static int once_bool_32; /* Once value for variable[3]*/ - val_t variable[7]; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - /* Register variable[0]: Local variable */ - variable[0] = self; - /* Register variable[1]: Method return value and escape marker */ - /* Register variable[2]: Result */ - variable[2] = ATTR_compiling_base___MMLocalClass____primitive_info_b(variable[0]) /*MMLocalClass::_primitive_info_b*/; - /* Register variable[2]: Result */ - variable[2] = TAG_Bool((variable[2])==( TAG_Bool(true))); - if (UNTAG_Bool(variable[2])) { /*if*/ - /* Register variable[2]: Result */ - variable[2] = ATTR_compiling_base___MMLocalClass____primitive_info_cache(variable[0]) /*MMLocalClass::_primitive_info_cache*/; - variable[1] = variable[2]; - goto return_label31; + 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]); + } } - /* Register variable[2]: Local variable */ - /* Register variable[3]: Once expression result */ - if (once_bool_32) variable[3] = once_value_32; - else { - /* Register variable[3]: Result */ - variable[3] = CALL_compiling_base___MMLocalClass___primitive_ctypes(variable[0])(variable[0]) /*MMLocalClass::primitive_ctypes*/; - once_value_32 = variable[3]; - once_bool_32 = true; + /* ./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]); } - /* Register variable[3]: Result */ - variable[2] = variable[3]; - /* Register variable[3]: Result */ - variable[3] = CALL_abstractmetamodel___MMLocalClass___name(variable[0])(variable[0]) /*MMLocalClass::name*/; - /* Register variable[3]: Result */ - variable[3] = CALL_abstract_collection___MapRead___has_key( variable[2] /*ctypes*/)( variable[2] /*ctypes*/, variable[3]) /*CoupleMap::has_key*/; - if (UNTAG_Bool(variable[3])) { /*if*/ - /* Register variable[3]: Result */ - variable[3] = CALL_abstractmetamodel___MMLocalClass___name(variable[0])(variable[0]) /*MMLocalClass::name*/; - /* Register variable[3]: Result */ - variable[3] = CALL_abstract_collection___MapRead_____bra( variable[2] /*ctypes*/)( variable[2] /*ctypes*/, variable[3]) /*CoupleMap::[]*/; - ATTR_compiling_base___MMLocalClass____primitive_info_cache(variable[0]) /*MMLocalClass::_primitive_info_cache*/ = variable[3]; - ATTR_compiling_base___MMLocalClass____primitive_info_b(variable[0]) /*MMLocalClass::_primitive_info_b*/ = TAG_Bool(true); - /* Register variable[3]: Result */ - variable[3] = ATTR_compiling_base___MMLocalClass____primitive_info_cache(variable[0]) /*MMLocalClass::_primitive_info_cache*/; - variable[1] = variable[3]; - goto return_label31; + /* ./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]); } - /* Register variable[3]: Local variable */ - /* Register variable[4]: Result */ - variable[4] = CALL_abstract_collection___Collection___iterator( variable[2] /*ctypes*/)( variable[2] /*ctypes*/) /*HashMap::iterator*/; - variable[3] = variable[4]; - while (true) { /*while*/ - /* Register variable[4]: Result */ - variable[4] = CALL_abstract_collection___Iterator___is_ok( variable[3] /*i*/)( variable[3] /*i*/) /*HashMapIterator::is_ok*/; - if (!UNTAG_Bool(variable[4])) break; /* while*/ - /* Register variable[4]: Local variable */ - /* Register variable[5]: Result */ - variable[5] = CALL_abstract_collection___MapIterator___key( variable[3] /*i*/)( variable[3] /*i*/) /*HashMapIterator::key*/; - variable[4] = variable[5]; - /* Register variable[5]: Result */ - variable[5] = CALL_abstractmetamodel___MMLocalClass___module(variable[0])(variable[0]) /*MMLocalClass::module*/; - /* Register variable[5]: Result */ - variable[5] = CALL_abstractmetamodel___MMModule___has_global_class_named(variable[5])(variable[5], variable[4] /*n*/) /*MMModule::has_global_class_named*/; - if (UNTAG_Bool(variable[5])) { /*if*/ - /* Register variable[5]: Local variable */ - /* Register variable[6]: Result */ - variable[6] = CALL_abstractmetamodel___MMLocalClass___module(variable[0])(variable[0]) /*MMLocalClass::module*/; - /* Register variable[6]: Result */ - variable[6] = CALL_abstractmetamodel___MMModule___class_by_name(variable[6])(variable[6], variable[4] /*n*/) /*MMModule::class_by_name*/; - variable[5] = variable[6]; - /* Register variable[6]: Result */ - variable[6] = CALL_abstractmetamodel___MMLocalClass___cshe(variable[0])(variable[0]) /*MMLocalClass::cshe*/; - /* Register variable[6]: Result */ - variable[6] = CALL_partial_order___PartialOrderElement_____l(variable[6])(variable[6], variable[5] /*c*/) /*PartialOrderElement::<*/; - if (UNTAG_Bool(variable[6])) { /*if*/ - /* Register variable[6]: Result */ - variable[6] = CALL_abstract_collection___Iterator___item( variable[3] /*i*/)( variable[3] /*i*/) /*HashMapIterator::item*/; - ATTR_compiling_base___MMLocalClass____primitive_info_cache(variable[0]) /*MMLocalClass::_primitive_info_cache*/ = variable[6]; - ATTR_compiling_base___MMLocalClass____primitive_info_b(variable[0]) /*MMLocalClass::_primitive_info_b*/ = TAG_Bool(true); - /* Register variable[6]: Result */ - variable[6] = ATTR_compiling_base___MMLocalClass____primitive_info_cache(variable[0]) /*MMLocalClass::_primitive_info_cache*/; - variable[1] = variable[6]; - goto return_label31; + /* ./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; } - CALL_abstract_collection___Iterator___next( variable[3] /*i*/)( variable[3] /*i*/) /*HashMapIterator::next*/; - continue_33: while(0); } - break_33: while(0); - ATTR_compiling_base___MMLocalClass____primitive_info_b(variable[0]) /*MMLocalClass::_primitive_info_b*/ = TAG_Bool(true); - variable[1] = NIT_NULL /*null*/; - goto return_label31; - return_label31: while(false); - tracehead = trace.prev; - return variable[1]; -} -val_t compiling_base___MMLocalClass___primitive_ctypes(val_t self) { - struct trace_t trace = {NULL, NULL, 201, LOCATE_compiling_base___MMLocalClass___primitive_ctypes}; - static val_t once_value_35 = NIT_NULL; /* Once value for string variable[5]*/ - static val_t once_value_36 = NIT_NULL; /* Once value for string variable[6]*/ - static val_t once_value_37 = NIT_NULL; /* Once value for string variable[7]*/ - static val_t once_value_38 = NIT_NULL; /* Once value for string variable[8]*/ - static val_t once_value_39 = NIT_NULL; /* Once value for string variable[9]*/ - static val_t once_value_40 = NIT_NULL; /* Once value for string variable[10]*/ - static val_t once_value_41 = NIT_NULL; /* Once value for string variable[11]*/ - static val_t once_value_42 = NIT_NULL; /* Once value for string variable[7]*/ - static val_t once_value_43 = NIT_NULL; /* Once value for string variable[8]*/ - static val_t once_value_44 = NIT_NULL; /* Once value for string variable[9]*/ - static val_t once_value_45 = NIT_NULL; /* Once value for string variable[10]*/ - static val_t once_value_46 = NIT_NULL; /* Once value for string variable[11]*/ - static val_t once_value_47 = NIT_NULL; /* Once value for string variable[12]*/ - static val_t once_value_48 = NIT_NULL; /* Once value for string variable[13]*/ - val_t variable[16]; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - /* Register variable[0]: Local variable */ - variable[0] = self; - /* Register variable[1]: Method return value and escape marker */ - /* Register variable[2]: Local variable */ - /* Register variable[3]: Result */ - variable[3] = NEW_HashMap_hash___HashMap___init() /*new HashMap[Symbol, PrimitiveInfo]*/; - variable[2] = variable[3]; - /* Register variable[3]: Local variable */ - variable[4] = NEW_Array_array___Array___with_capacity(TAG_Int(7)) /*new Array[String]*/ /* Ensure var: Literal array*/; - /* Register variable[5]: Once String constant */ - if (once_value_35 != NIT_NULL) variable[5] = once_value_35; - else { - variable[5] = NEW_String_string___String___with_native(BOX_NativeString("Int"), TAG_Int(3)) /*new String*/; - once_value_35 = variable[5]; + 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); } - /* Register variable[5]: Result */ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/; - /* Register variable[6]: Once String constant */ - if (once_value_36 != NIT_NULL) variable[6] = once_value_36; - else { - variable[6] = NEW_String_string___String___with_native(BOX_NativeString("Char"), TAG_Int(4)) /*new String*/; - once_value_36 = variable[6]; + 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; + } } - /* Register variable[6]: Result */ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[6]) /*AbstractArray::add*/; - /* Register variable[7]: Once String constant */ - if (once_value_37 != NIT_NULL) variable[7] = once_value_37; - else { - variable[7] = NEW_String_string___String___with_native(BOX_NativeString("Bool"), TAG_Int(4)) /*new String*/; - once_value_37 = variable[7]; + 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); } - /* Register variable[7]: Result */ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[7]) /*AbstractArray::add*/; - /* Register variable[8]: Once String constant */ - if (once_value_38 != NIT_NULL) variable[8] = once_value_38; - else { - variable[8] = NEW_String_string___String___with_native(BOX_NativeString("Float"), TAG_Int(5)) /*new String*/; - once_value_38 = variable[8]; + 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; + } } - /* Register variable[8]: Result */ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[8]) /*AbstractArray::add*/; - /* Register variable[9]: Once String constant */ - if (once_value_39 != NIT_NULL) variable[9] = once_value_39; - else { - variable[9] = NEW_String_string___String___with_native(BOX_NativeString("NativeString"), TAG_Int(12)) /*new String*/; - once_value_39 = variable[9]; + 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; +} +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 = 116; + fra.me.meth = LOCATE_compiling_base___CProgram___run_c_compiler; + 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; + /* ./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 { + nit_abort("Uninitialized attribute %s", "_build_file", LOCATE_compiling_base, 120); } - /* Register variable[9]: Result */ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[9]) /*AbstractArray::add*/; - /* Register variable[10]: Once String constant */ - if (once_value_40 != NIT_NULL) variable[10] = once_value_40; - else { - variable[10] = NEW_String_string___String___with_native(BOX_NativeString("NativeArray"), TAG_Int(11)) /*new String*/; - once_value_40 = variable[10]; + 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]); + CALL_exec___Sys___system(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); + stack_frame_head = fra.me.prev; + 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; + 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 = 128; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___add_decl; + 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:131 */ + REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____decl_writer(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_decl_writer", LOCATE_compiling_base, 131); } - /* Register variable[10]: Result */ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[10]) /*AbstractArray::add*/; - /* Register variable[11]: Once String constant */ - if (once_value_41 != NIT_NULL) variable[11] = once_value_41; - else { - variable[11] = NEW_String_string___String___with_native(BOX_NativeString("Pointer"), TAG_Int(7)) /*new String*/; - once_value_41 = variable[11]; + 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; +} +void compiling_base___CompilerVisitor___add_instr(val_t p0, val_t p1){ + struct {struct stack_frame_t me; val_t MORE_REG[2];} 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 = 134; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___add_instr; + 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:137 */ + REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____writer(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_writer", LOCATE_compiling_base, 137); } - /* Register variable[11]: Result */ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[11]) /*AbstractArray::add*/; - /* Register variable[4]: Result */ - variable[3] = variable[4]; - /* Register variable[4]: Local variable */ - variable[5] = NEW_Array_array___Array___with_capacity(TAG_Int(7)) /*new Array[Bool]*/ /* Ensure var: Literal array*/; - CALL_abstract_collection___SimpleCollection___add(variable[5])(variable[5], TAG_Bool(true)) /*AbstractArray::add*/; - CALL_abstract_collection___SimpleCollection___add(variable[5])(variable[5], TAG_Bool(true)) /*AbstractArray::add*/; - CALL_abstract_collection___SimpleCollection___add(variable[5])(variable[5], TAG_Bool(true)) /*AbstractArray::add*/; - CALL_abstract_collection___SimpleCollection___add(variable[5])(variable[5], TAG_Bool(false)) /*AbstractArray::add*/; - CALL_abstract_collection___SimpleCollection___add(variable[5])(variable[5], TAG_Bool(false)) /*AbstractArray::add*/; - CALL_abstract_collection___SimpleCollection___add(variable[5])(variable[5], TAG_Bool(false)) /*AbstractArray::add*/; - CALL_abstract_collection___SimpleCollection___add(variable[5])(variable[5], TAG_Bool(false)) /*AbstractArray::add*/; - /* Register variable[5]: Result */ - variable[4] = variable[5]; - /* Register variable[5]: Local variable */ - variable[6] = NEW_Array_array___Array___with_capacity(TAG_Int(7)) /*new Array[String]*/ /* Ensure var: Literal array*/; - /* Register variable[7]: Once String constant */ - if (once_value_42 != NIT_NULL) variable[7] = once_value_42; - else { - variable[7] = NEW_String_string___String___with_native(BOX_NativeString("bigint"), TAG_Int(6)) /*new String*/; - once_value_42 = variable[7]; + 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_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 */ + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 141; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___add_indent; + 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:143 */ + REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_indent_level", LOCATE_compiling_base, 143); } - /* Register variable[7]: Result */ - CALL_abstract_collection___SimpleCollection___add(variable[6])(variable[6], variable[7]) /*AbstractArray::add*/; - /* Register variable[8]: Once String constant */ - if (once_value_43 != NIT_NULL) variable[8] = once_value_43; - else { - variable[8] = NEW_String_string___String___with_native(BOX_NativeString("char"), TAG_Int(4)) /*new String*/; - once_value_43 = variable[8]; + 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:143 */ + if (UNTAG_Bool(REGB1)) { + /* ./compiling//compiling_base.nit:144 */ + if (!once_value_1) { + fra.me.REG[2] = BOX_NativeString("\t\t"); + REGB1 = TAG_Int(2); + 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[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); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_indent_level", LOCATE_compiling_base, 146); + } + REGB0 = ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0]); + /* ./../lib/standard//kernel.nit:332 */ + while(1) { + /* ./../lib/standard//kernel.nit:212 */ + REGB2 = TAG_Bool(UNTAG_Int(REGB1)=UNTAG_Int( TAG_Int(0))); - /* Ensure var variable[13]: Left 'and' operand*/ - if (UNTAG_Bool(variable[13])) { /* and */ - /* Register variable[13]: Result */ - variable[13] = ATTR_array___AbstractArrayRead____length(variable[10]) /*AbstractArrayRead::_length*/; - /* Register variable[13]: Result */ - variable[13] = TAG_Bool(UNTAG_Int( variable[11] /*index*/)=UNTAG_Int( TAG_Int(0))); - /* Ensure var variable[14]: Left 'and' operand*/ - if (UNTAG_Bool(variable[14])) { /* and */ - /* Register variable[14]: Result */ - variable[14] = ATTR_array___AbstractArrayRead____length(variable[11]) /*AbstractArrayRead::_length*/; - /* Register variable[14]: Result */ - variable[14] = TAG_Bool(UNTAG_Int( variable[12] /*index*/)=UNTAG_Int( TAG_Int(0))); - /* Ensure var variable[15]: Left 'and' operand*/ - if (UNTAG_Bool(variable[15])) { /* and */ - /* Register variable[15]: Result */ - variable[15] = ATTR_array___AbstractArrayRead____length(variable[12]) /*AbstractArrayRead::_length*/; - /* Register variable[15]: Result */ - variable[15] = TAG_Bool(UNTAG_Int( variable[13] /*index*/)vft[INIT_TABLE_POS_PrimitiveInfo].i]) return; - /* Register variable[4]: Method return value and escape marker */ - ATTR_compiling_base___PrimitiveInfo____name(variable[0]) /*PrimitiveInfo::_name*/ = variable[1] /*n*/; - ATTR_compiling_base___PrimitiveInfo____tagged(variable[0]) /*PrimitiveInfo::_tagged*/ = variable[2] /*t*/; - ATTR_compiling_base___PrimitiveInfo____cname(variable[0]) /*PrimitiveInfo::_cname*/ = variable[3] /*c*/; - return_label53: while(false); - init_table[VAL2OBJ(variable[0])->vft[INIT_TABLE_POS_PrimitiveInfo].i] = 1; - tracehead = trace.prev; +void compiling_base___CompilerVisitor___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 = 199; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___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:199 */ + ATTR_compiling_base___CompilerVisitor____writer(fra.me.REG[0]) = fra.me.REG[1]; + stack_frame_head = fra.me.prev; return; } -val_t compiling_base___MMType___cname(val_t self) { - struct trace_t trace = {NULL, NULL, 237, LOCATE_compiling_base___MMType___cname}; - static val_t once_value_55 = NIT_NULL; /* Once value for string variable[3]*/ - val_t variable[4]; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - /* Register variable[0]: Local variable */ - variable[0] = self; - /* Register variable[1]: Method return value and escape marker */ - /* Register variable[2]: Local variable */ - /* Register variable[3]: Result */ - variable[3] = CALL_static_type___MMType___local_class(variable[0])(variable[0]) /*MMType::local_class*/; - /* Register variable[3]: Result */ - variable[3] = CALL_compiling_base___MMLocalClass___primitive_info(variable[3])(variable[3]) /*MMLocalClass::primitive_info*/; - variable[2] = variable[3]; - /* Register variable[3]: Result */ - variable[3] = TAG_Bool(( variable[2] /*pi*/ == NIT_NULL /*null*/) || (( variable[2] /*pi*/ != NIT_NULL) && ((CALL_kernel___Object_____eqeq( variable[2] /*pi*/)==kernel___Object_____eqeq)?(IS_EQUAL_NN( variable[2] /*pi*/, NIT_NULL /*null*/)):(UNTAG_Bool(CALL_kernel___Object_____eqeq( variable[2] /*pi*/)( variable[2] /*pi*/, NIT_NULL /*null*/) /*Object::==*/))))); - if (UNTAG_Bool(variable[3])) { /*if*/ - /* Register variable[3]: Once String constant */ - if (once_value_55 != NIT_NULL) variable[3] = once_value_55; - else { - variable[3] = NEW_String_string___String___with_native(BOX_NativeString("val_t"), TAG_Int(5)) /*new String*/; - once_value_55 = variable[3]; - } - /* Register variable[3]: Result */ - variable[1] = variable[3]; - goto return_label54; - } else { /*if*/ - /* Register variable[3]: Result */ - variable[3] = CALL_compiling_base___PrimitiveInfo___cname( variable[2] /*pi*/)( variable[2] /*pi*/) /*PrimitiveInfo::cname*/; - variable[1] = variable[3]; - goto return_label54; +val_t compiling_base___CompilerVisitor___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 = 202; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___decl_writer; + 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:202 */ + REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____decl_writer(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_decl_writer", LOCATE_compiling_base, 202); } - return_label54: while(false); - tracehead = trace.prev; - return variable[1]; + fra.me.REG[0] = ATTR_compiling_base___CompilerVisitor____decl_writer(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +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; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 202; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___decl_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:202 */ + ATTR_compiling_base___CompilerVisitor____decl_writer(fra.me.REG[0]) = fra.me.REG[1]; + stack_frame_head = fra.me.prev; + return; } -val_t compiling_base___MMType___default_cvalue(val_t self) { - struct trace_t trace = {NULL, NULL, 248, LOCATE_compiling_base___MMType___default_cvalue}; - static val_t once_value_57 = NIT_NULL; /* Once value for string variable[4]*/ - static val_t once_value_58 = NIT_NULL; /* Once value for string variable[4]*/ - static val_t once_value_59 = NIT_NULL; /* Once value for string variable[4]*/ - static val_t once_value_60 = NIT_NULL; /* Once value for string variable[3]*/ - val_t variable[5]; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - /* Register variable[0]: Local variable */ - variable[0] = self; - /* Register variable[1]: Method return value and escape marker */ - /* Register variable[2]: Local variable */ - /* Register variable[3]: Result */ - variable[3] = CALL_static_type___MMType___local_class(variable[0])(variable[0]) /*MMType::local_class*/; - /* Register variable[3]: Result */ - variable[3] = CALL_compiling_base___MMLocalClass___primitive_info(variable[3])(variable[3]) /*MMLocalClass::primitive_info*/; - variable[2] = variable[3]; - /* Register variable[3]: Result */ - variable[3] = TAG_Bool(!UNTAG_Bool(TAG_Bool(( variable[2] /*pi*/ == NIT_NULL /*null*/) || (( variable[2] /*pi*/ != NIT_NULL) && ((CALL_kernel___Object_____eqeq( variable[2] /*pi*/)==kernel___Object_____eqeq)?(IS_EQUAL_NN( variable[2] /*pi*/, NIT_NULL /*null*/)):(UNTAG_Bool(CALL_kernel___Object_____eqeq( variable[2] /*pi*/)( variable[2] /*pi*/, NIT_NULL /*null*/) /*Object::==*/))))))); - /* Ensure var variable[3]: Left 'and' operand*/ - if (UNTAG_Bool(variable[3])) { /* and */ - /* Register variable[3]: Result */ - variable[3] = CALL_compiling_base___PrimitiveInfo___tagged( variable[2] /*pi*/)( variable[2] /*pi*/) /*PrimitiveInfo::tagged*/; +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 = 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; + /* ./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 { + nit_abort("Uninitialized attribute %s", "_top_writer", LOCATE_compiling_base, 205); } - /* Register variable[3]: Result */ - if (UNTAG_Bool(variable[3])) { /*if*/ - variable[3] = NEW_Array_array___Array___with_capacity(TAG_Int(5)) /*new Array[String]*/ /* Ensure var: Array (for super-string)*/; - /* Register variable[4]: Once String constant */ - if (once_value_57 != NIT_NULL) variable[4] = once_value_57; - else { - variable[4] = NEW_String_string___String___with_native(BOX_NativeString("TAG_"), TAG_Int(4)) /*new String*/; - once_value_57 = variable[4]; - } - /* Register variable[4]: Result */ - /* Ensure var variable[4]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[4]) /*AbstractArray::add*/; - /* Register variable[4]: Result */ - variable[4] = CALL_static_type___MMType___local_class(variable[0])(variable[0]) /*MMType::local_class*/; - /* Register variable[4]: Result */ - variable[4] = CALL_abstractmetamodel___MMLocalClass___name(variable[4])(variable[4]) /*MMLocalClass::name*/; - /* Ensure var variable[4]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], CALL_string___Object___to_s(variable[4])(variable[4]) /*Object::to_s*/) /*AbstractArray::add*/; - /* Register variable[4]: Once String constant */ - if (once_value_58 != NIT_NULL) variable[4] = once_value_58; - else { - variable[4] = NEW_String_string___String___with_native(BOX_NativeString("(("), TAG_Int(2)) /*new String*/; - once_value_58 = variable[4]; - } - /* Register variable[4]: Result */ - /* Ensure var variable[4]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[4]) /*AbstractArray::add*/; - /* Register variable[4]: Result */ - variable[4] = CALL_compiling_base___PrimitiveInfo___cname( variable[2] /*pi*/)( variable[2] /*pi*/) /*PrimitiveInfo::cname*/; - /* Ensure var variable[4]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[4]) /*AbstractArray::add*/; - /* Register variable[4]: Once String constant */ - if (once_value_59 != NIT_NULL) variable[4] = once_value_59; - else { - variable[4] = NEW_String_string___String___with_native(BOX_NativeString(")0)"), TAG_Int(3)) /*new String*/; - once_value_59 = variable[4]; - } - /* Register variable[4]: Result */ - /* Ensure var variable[4]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[4]) /*AbstractArray::add*/; - /* Register variable[3]: Result */ - variable[3] = CALL_string___Object___to_s(variable[3])(variable[3]) /*Object::to_s*/; - variable[1] = variable[3]; - goto return_label56; - } else { /*if*/ - /* Register variable[3]: Once String constant */ - if (once_value_60 != NIT_NULL) variable[3] = once_value_60; - else { - variable[3] = NEW_String_string___String___with_native(BOX_NativeString("NIT_NULL"), TAG_Int(8)) /*new String*/; - once_value_60 = variable[3]; - } - /* Register variable[3]: Result */ - variable[1] = variable[3]; - goto return_label56; + 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]; +} +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 = 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; + /* ./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 { + nit_abort("Uninitialized attribute %s", "_top_decl_writer", LOCATE_compiling_base, 208); } - return_label56: while(false); - tracehead = trace.prev; - return variable[1]; + 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]; } -val_t compiling_base___MMType___boxtype(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 260, LOCATE_compiling_base___MMType___boxtype}; - static val_t once_value_62 = NIT_NULL; /* Once value for string variable[5]*/ - static val_t once_value_63 = NIT_NULL; /* Once value for string variable[5]*/ - static val_t once_value_64 = NIT_NULL; /* Once value for string variable[5]*/ - static val_t once_value_65 = NIT_NULL; /* Once value for string variable[5]*/ - static val_t once_value_66 = NIT_NULL; /* Once value for string variable[5]*/ - static val_t once_value_67 = NIT_NULL; /* Once value for string variable[5]*/ - val_t variable[6]; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - /* Register variable[0]: Local variable */ - variable[0] = self; - /* Register variable[1]: Local variable */ - variable[1] = param0; - /* Register variable[2]: Method return value and escape marker */ - /* Register variable[3]: Local variable */ - /* Register variable[4]: Result */ - variable[4] = CALL_static_type___MMType___local_class(variable[0])(variable[0]) /*MMType::local_class*/; - /* Register variable[4]: Result */ - variable[4] = CALL_compiling_base___MMLocalClass___primitive_info(variable[4])(variable[4]) /*MMLocalClass::primitive_info*/; - variable[3] = variable[4]; - /* Register variable[4]: Result */ - variable[4] = TAG_Bool(( variable[3] /*pi*/ == NIT_NULL /*null*/) || (( variable[3] /*pi*/ != NIT_NULL) && ((CALL_kernel___Object_____eqeq( variable[3] /*pi*/)==kernel___Object_____eqeq)?(IS_EQUAL_NN( variable[3] /*pi*/, NIT_NULL /*null*/)):(UNTAG_Bool(CALL_kernel___Object_____eqeq( variable[3] /*pi*/)( variable[3] /*pi*/, NIT_NULL /*null*/) /*Object::==*/))))); - if (UNTAG_Bool(variable[4])) { /*if*/ - variable[2] = variable[1] /*s*/; - goto return_label61; - } else { /*if*/ - /* Register variable[4]: Result */ - variable[4] = CALL_compiling_base___PrimitiveInfo___tagged( variable[3] /*pi*/)( variable[3] /*pi*/) /*PrimitiveInfo::tagged*/; - if (UNTAG_Bool(variable[4])) { /*if*/ - variable[4] = NEW_Array_array___Array___with_capacity(TAG_Int(5)) /*new Array[String]*/ /* Ensure var: Array (for super-string)*/; - /* Register variable[5]: Once String constant */ - if (once_value_62 != NIT_NULL) variable[5] = once_value_62; - else { - variable[5] = NEW_String_string___String___with_native(BOX_NativeString("TAG_"), TAG_Int(4)) /*new String*/; - once_value_62 = variable[5]; - } - /* Register variable[5]: Result */ - /* Ensure var variable[5]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/; - /* Register variable[5]: Result */ - variable[5] = CALL_static_type___MMType___local_class(variable[0])(variable[0]) /*MMType::local_class*/; - /* Register variable[5]: Result */ - variable[5] = CALL_abstractmetamodel___MMLocalClass___name(variable[5])(variable[5]) /*MMLocalClass::name*/; - /* Ensure var variable[5]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], CALL_string___Object___to_s(variable[5])(variable[5]) /*Object::to_s*/) /*AbstractArray::add*/; - /* Register variable[5]: Once String constant */ - if (once_value_63 != NIT_NULL) variable[5] = once_value_63; - else { - variable[5] = NEW_String_string___String___with_native(BOX_NativeString("("), TAG_Int(1)) /*new String*/; - once_value_63 = variable[5]; - } - /* Register variable[5]: Result */ - /* Ensure var variable[5]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/; - variable[5] = variable[1] /*s*/ /* Ensure var: super-string element*/; - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/; - /* Register variable[5]: Once String constant */ - if (once_value_64 != NIT_NULL) variable[5] = once_value_64; - else { - variable[5] = NEW_String_string___String___with_native(BOX_NativeString(")"), TAG_Int(1)) /*new String*/; - once_value_64 = variable[5]; - } - /* Register variable[5]: Result */ - /* Ensure var variable[5]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/; - /* Register variable[4]: Result */ - variable[4] = CALL_string___Object___to_s(variable[4])(variable[4]) /*Object::to_s*/; - variable[2] = variable[4]; - goto return_label61; - } else { /*if*/ - variable[4] = NEW_Array_array___Array___with_capacity(TAG_Int(5)) /*new Array[String]*/ /* Ensure var: Array (for super-string)*/; - /* Register variable[5]: Once String constant */ - if (once_value_65 != NIT_NULL) variable[5] = once_value_65; - else { - variable[5] = NEW_String_string___String___with_native(BOX_NativeString("BOX_"), TAG_Int(4)) /*new String*/; - once_value_65 = variable[5]; - } - /* Register variable[5]: Result */ - /* Ensure var variable[5]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/; - /* Register variable[5]: Result */ - variable[5] = CALL_static_type___MMType___local_class(variable[0])(variable[0]) /*MMType::local_class*/; - /* Register variable[5]: Result */ - variable[5] = CALL_abstractmetamodel___MMLocalClass___name(variable[5])(variable[5]) /*MMLocalClass::name*/; - /* Ensure var variable[5]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], CALL_string___Object___to_s(variable[5])(variable[5]) /*Object::to_s*/) /*AbstractArray::add*/; - /* Register variable[5]: Once String constant */ - if (once_value_66 != NIT_NULL) variable[5] = once_value_66; - else { - variable[5] = NEW_String_string___String___with_native(BOX_NativeString("("), TAG_Int(1)) /*new String*/; - once_value_66 = variable[5]; - } - /* Register variable[5]: Result */ - /* Ensure var variable[5]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/; - variable[5] = variable[1] /*s*/ /* Ensure var: super-string element*/; - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/; - /* Register variable[5]: Once String constant */ - if (once_value_67 != NIT_NULL) variable[5] = once_value_67; - else { - variable[5] = NEW_String_string___String___with_native(BOX_NativeString(")"), TAG_Int(1)) /*new String*/; - once_value_67 = variable[5]; - } - /* Register variable[5]: Result */ - /* Ensure var variable[5]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/; - /* Register variable[4]: Result */ - variable[4] = CALL_string___Object___to_s(variable[4])(variable[4]) /*Object::to_s*/; - variable[2] = variable[4]; - goto return_label61; - } +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 = 208; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___top_decl_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: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 { + nit_abort("Uninitialized attribute %s", "_indent_level", LOCATE_compiling_base, 211); } - return_label61: while(false); - tracehead = trace.prev; - return variable[2]; + REGB0 = ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return REGB0; } -val_t compiling_base___MMType___unboxtype(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 274, LOCATE_compiling_base___MMType___unboxtype}; - static val_t once_value_69 = NIT_NULL; /* Once value for string variable[5]*/ - static val_t once_value_70 = NIT_NULL; /* Once value for string variable[5]*/ - static val_t once_value_71 = NIT_NULL; /* Once value for string variable[5]*/ - static val_t once_value_72 = NIT_NULL; /* Once value for string variable[5]*/ - static val_t once_value_73 = NIT_NULL; /* Once value for string variable[5]*/ - static val_t once_value_74 = NIT_NULL; /* Once value for string variable[5]*/ - val_t variable[6]; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - /* Register variable[0]: Local variable */ - variable[0] = self; - /* Register variable[1]: Local variable */ - variable[1] = param0; - /* Register variable[2]: Method return value and escape marker */ - /* Register variable[3]: Local variable */ - /* Register variable[4]: Result */ - variable[4] = CALL_static_type___MMType___local_class(variable[0])(variable[0]) /*MMType::local_class*/; - /* Register variable[4]: Result */ - variable[4] = CALL_compiling_base___MMLocalClass___primitive_info(variable[4])(variable[4]) /*MMLocalClass::primitive_info*/; - variable[3] = variable[4]; - /* Register variable[4]: Result */ - variable[4] = TAG_Bool(( variable[3] /*pi*/ == NIT_NULL /*null*/) || (( variable[3] /*pi*/ != NIT_NULL) && ((CALL_kernel___Object_____eqeq( variable[3] /*pi*/)==kernel___Object_____eqeq)?(IS_EQUAL_NN( variable[3] /*pi*/, NIT_NULL /*null*/)):(UNTAG_Bool(CALL_kernel___Object_____eqeq( variable[3] /*pi*/)( variable[3] /*pi*/, NIT_NULL /*null*/) /*Object::==*/))))); - if (UNTAG_Bool(variable[4])) { /*if*/ - variable[2] = variable[1] /*s*/; - goto return_label68; - } else { /*if*/ - /* Register variable[4]: Result */ - variable[4] = CALL_compiling_base___PrimitiveInfo___tagged( variable[3] /*pi*/)( variable[3] /*pi*/) /*PrimitiveInfo::tagged*/; - if (UNTAG_Bool(variable[4])) { /*if*/ - variable[4] = NEW_Array_array___Array___with_capacity(TAG_Int(5)) /*new Array[String]*/ /* Ensure var: Array (for super-string)*/; - /* Register variable[5]: Once String constant */ - if (once_value_69 != NIT_NULL) variable[5] = once_value_69; - else { - variable[5] = NEW_String_string___String___with_native(BOX_NativeString("UNTAG_"), TAG_Int(6)) /*new String*/; - once_value_69 = variable[5]; - } - /* Register variable[5]: Result */ - /* Ensure var variable[5]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/; - /* Register variable[5]: Result */ - variable[5] = CALL_static_type___MMType___local_class(variable[0])(variable[0]) /*MMType::local_class*/; - /* Register variable[5]: Result */ - variable[5] = CALL_abstractmetamodel___MMLocalClass___name(variable[5])(variable[5]) /*MMLocalClass::name*/; - /* Ensure var variable[5]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], CALL_string___Object___to_s(variable[5])(variable[5]) /*Object::to_s*/) /*AbstractArray::add*/; - /* Register variable[5]: Once String constant */ - if (once_value_70 != NIT_NULL) variable[5] = once_value_70; - else { - variable[5] = NEW_String_string___String___with_native(BOX_NativeString("("), TAG_Int(1)) /*new String*/; - once_value_70 = variable[5]; - } - /* Register variable[5]: Result */ - /* Ensure var variable[5]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/; - variable[5] = variable[1] /*s*/ /* Ensure var: super-string element*/; - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/; - /* Register variable[5]: Once String constant */ - if (once_value_71 != NIT_NULL) variable[5] = once_value_71; - else { - variable[5] = NEW_String_string___String___with_native(BOX_NativeString(")"), TAG_Int(1)) /*new String*/; - once_value_71 = variable[5]; - } - /* Register variable[5]: Result */ - /* Ensure var variable[5]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/; - /* Register variable[4]: Result */ - variable[4] = CALL_string___Object___to_s(variable[4])(variable[4]) /*Object::to_s*/; - variable[2] = variable[4]; - goto return_label68; - } else { /*if*/ - variable[4] = NEW_Array_array___Array___with_capacity(TAG_Int(5)) /*new Array[String]*/ /* Ensure var: Array (for super-string)*/; - /* Register variable[5]: Once String constant */ - if (once_value_72 != NIT_NULL) variable[5] = once_value_72; - else { - variable[5] = NEW_String_string___String___with_native(BOX_NativeString("UNBOX_"), TAG_Int(6)) /*new String*/; - once_value_72 = variable[5]; - } - /* Register variable[5]: Result */ - /* Ensure var variable[5]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/; - /* Register variable[5]: Result */ - variable[5] = CALL_static_type___MMType___local_class(variable[0])(variable[0]) /*MMType::local_class*/; - /* Register variable[5]: Result */ - variable[5] = CALL_abstractmetamodel___MMLocalClass___name(variable[5])(variable[5]) /*MMLocalClass::name*/; - /* Ensure var variable[5]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], CALL_string___Object___to_s(variable[5])(variable[5]) /*Object::to_s*/) /*AbstractArray::add*/; - /* Register variable[5]: Once String constant */ - if (once_value_73 != NIT_NULL) variable[5] = once_value_73; - else { - variable[5] = NEW_String_string___String___with_native(BOX_NativeString("("), TAG_Int(1)) /*new String*/; - once_value_73 = variable[5]; - } - /* Register variable[5]: Result */ - /* Ensure var variable[5]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/; - variable[5] = variable[1] /*s*/ /* Ensure var: super-string element*/; - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/; - /* Register variable[5]: Once String constant */ - if (once_value_74 != NIT_NULL) variable[5] = once_value_74; - else { - variable[5] = NEW_String_string___String___with_native(BOX_NativeString(")"), TAG_Int(1)) /*new String*/; - once_value_74 = variable[5]; - } - /* Register variable[5]: Result */ - /* Ensure var variable[5]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/; - /* Register variable[4]: Result */ - variable[4] = CALL_string___Object___to_s(variable[4])(variable[4]) /*Object::to_s*/; - variable[2] = variable[4]; - goto return_label68; - } +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; +} +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 = 214; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___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:214 */ + REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____program(fra.me.REG[0])!=NIT_NULL); + if (UNTAG_Bool(REGB0)) { + } else { + nit_abort("Uninitialized attribute %s", "_program", LOCATE_compiling_base, 214); } - return_label68: while(false); - tracehead = trace.prev; - return variable[2]; + 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___MMLocalProperty___cname(val_t self) { - struct trace_t trace = {NULL, NULL, 293, LOCATE_compiling_base___MMLocalProperty___cname}; - val_t variable[6]; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - /* Register variable[0]: Local variable */ - variable[0] = self; - /* Register variable[1]: Method return value and escape marker */ - /* Register variable[2]: Result */ - variable[2] = ATTR_compiling_base___MMLocalProperty____cname_cache(variable[0]) /*MMLocalProperty::_cname_cache*/; - /* Register variable[2]: Result */ - variable[2] = TAG_Bool((variable[2] == NIT_NULL /*null*/) || ((variable[2] != NIT_NULL) && UNTAG_Bool(CALL_kernel___Object_____eqeq(variable[2])(variable[2], NIT_NULL /*null*/) /*String::==*/))); - if (UNTAG_Bool(variable[2])) { /*if*/ - variable[2] = NEW_Array_array___Array___with_capacity(TAG_Int(3)) /*new Array[Symbol]*/ /* Ensure var: Literal array*/; - /* Register variable[3]: Result */ - variable[3] = CALL_abstractmetamodel___MMLocalProperty___module(variable[0])(variable[0]) /*MMLocalProperty::module*/; - /* Register variable[3]: Result */ - variable[3] = CALL_abstractmetamodel___MMModule___name(variable[3])(variable[3]) /*MMModule::name*/; - CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/; - /* Register variable[4]: Result */ - variable[4] = CALL_abstractmetamodel___MMLocalProperty___local_class(variable[0])(variable[0]) /*MMLocalProperty::local_class*/; - /* Register variable[4]: Result */ - variable[4] = CALL_abstractmetamodel___MMLocalClass___name(variable[4])(variable[4]) /*MMLocalClass::name*/; - CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[4]) /*AbstractArray::add*/; - /* Register variable[5]: Result */ - variable[5] = CALL_abstractmetamodel___MMLocalProperty___name(variable[0])(variable[0]) /*MMLocalProperty::name*/; - CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[5]) /*AbstractArray::add*/; - /* Register variable[2]: Result */ - /* Register variable[2]: Result */ - variable[2] = CALL_utils___Object___cmangle(variable[0])(variable[0], variable[2]) /*Object::cmangle*/; - ATTR_compiling_base___MMLocalProperty____cname_cache(variable[0]) /*MMLocalProperty::_cname_cache*/ = variable[2]; +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 { + nit_abort("Uninitialized attribute %s", "_cprogram", LOCATE_compiling_base, 217); } - /* Register variable[2]: Result */ - variable[2] = ATTR_compiling_base___MMLocalProperty____cname_cache(variable[0]) /*MMLocalProperty::_cname_cache*/; - variable[1] = variable[2]; - goto return_label75; - return_label75: while(false); - tracehead = trace.prev; - return variable[1]; + fra.me.REG[0] = ATTR_compiling_base___CompilerVisitor____cprogram(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 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 = 220; + 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: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; } -val_t compiling_base___MMLocalProperty___super_meth_call(val_t self) { - struct trace_t trace = {NULL, NULL, 302, LOCATE_compiling_base___MMLocalProperty___super_meth_call}; - static val_t once_value_77 = NIT_NULL; /* Once value for string variable[3]*/ - static val_t once_value_78 = NIT_NULL; /* Once value for string variable[3]*/ - val_t variable[4]; - struct WBT_ **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - /* Register variable[0]: Local variable */ - variable[0] = self; - /* Register variable[1]: Method return value and escape marker */ - variable[2] = NEW_Array_array___Array___with_capacity(TAG_Int(3)) /*new Array[String]*/ /* Ensure var: Array (for super-string)*/; - /* Register variable[3]: Once String constant */ - if (once_value_77 != NIT_NULL) variable[3] = once_value_77; - else { - variable[3] = NEW_String_string___String___with_native(BOX_NativeString("CALL_SUPER_"), TAG_Int(11)) /*new String*/; - once_value_77 = variable[3]; +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 = 238; + 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; + /* ./compiling//compiling_base.nit:241 */ + REGB0 = TAG_Int(3); + fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); + 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; + 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]); + 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); + 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; + 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); + 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 = 244; + 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; + /* ./compiling//compiling_base.nit:247 */ + REGB0 = TAG_Int(3); + fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); + 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; + 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]); + 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); + 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; + 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); + 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 = 252; + 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; + /* ./compiling//compiling_base.nit:255 */ + REGB0 = TAG_Int(3); + fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); + 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; + 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]); + 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); + 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; + 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); + 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 = 258; + 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; + /* ./compiling//compiling_base.nit:261 */ + REGB0 = TAG_Int(3); + fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); + 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; + 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]); + 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); + 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; + 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); + 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 = 264; + 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; + /* ./compiling//compiling_base.nit:267 */ + REGB0 = TAG_Int(3); + fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); + 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; + 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]); + 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); + 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; + 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); + 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 = 275; + 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; + /* ./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); + 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; + } } - /* Register variable[3]: Result */ - /* Ensure var variable[3]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/; - /* Register variable[3]: Result */ - variable[3] = CALL_compiling_base___MMLocalProperty___cname(variable[0])(variable[0]) /*MMLocalProperty::cname*/; - /* Ensure var variable[3]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/; - /* Register variable[3]: Once String constant */ - if (once_value_78 != NIT_NULL) variable[3] = once_value_78; - else { - variable[3] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)) /*new String*/; - once_value_78 = variable[3]; + 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___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]); + 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]); + 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]); + 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:281 */ + ATTR_compiling_base___MMLocalProperty____cname_cache(fra.me.REG[0]) = fra.me.REG[1]; } - /* Register variable[3]: Result */ - /* Ensure var variable[3]: super-string element*/ - CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/; - /* Register variable[2]: Result */ - variable[2] = CALL_string___Object___to_s(variable[2])(variable[2]) /*Object::to_s*/; - variable[1] = variable[2]; - goto return_label76; - return_label76: while(false); - tracehead = trace.prev; - return variable[1]; + /* ./compiling//compiling_base.nit:283 */ + 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 = 286; + 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; + /* ./compiling//compiling_base.nit:289 */ + REGB0 = TAG_Int(3); + fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); + 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; + 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]); + 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); + 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; + 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); + stack_frame_head = fra.me.prev; + return fra.me.REG[1]; }