X-Git-Url: http://nitlanguage.org diff --git a/c_src/compiling_base._sep.c b/c_src/compiling_base._sep.c index fff544a..ee4398d 100644 --- a/c_src/compiling_base._sep.c +++ b/c_src/compiling_base._sep.c @@ -1,1183 +1,1339 @@ /* This C file is generated by NIT to compile module compiling_base. */ #include "compiling_base._sep.h" -val_t compiling_base___ToolContext___global(val_t self) { - struct trace_t trace = {NULL, NULL, 24, LOCATE_compiling_base___ToolContext___global}; - val_t *variable = NULL; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - tracehead = trace.prev; - return ATTR_compiling_base___ToolContext____global( self) /*ToolContext::_global*/; -} -void compiling_base___ToolContext___global__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 24, LOCATE_compiling_base___ToolContext___global__eq}; - val_t *variable = NULL; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - ATTR_compiling_base___ToolContext____global( self) /*ToolContext::_global*/ = param0; - tracehead = trace.prev; - return; -} -val_t compiling_base___ToolContext___attr_sim(val_t self) { - struct trace_t trace = {NULL, NULL, 25, LOCATE_compiling_base___ToolContext___attr_sim}; - val_t *variable = NULL; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - tracehead = trace.prev; - return ATTR_compiling_base___ToolContext____attr_sim( self) /*ToolContext::_attr_sim*/; +val_t compiling_base___ToolContext___global(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 25; + fra.me.meth = LOCATE_compiling_base___ToolContext___global; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + REGB0 = TAG_Bool(ATTR_compiling_base___ToolContext____global(fra.me.REG[0])!=NIT_NULL); + /* ./compiling//compiling_base.nit:25 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_global"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 25); + nit_exit(1); + } + REGB0 = ATTR_compiling_base___ToolContext____global(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return REGB0; } -void compiling_base___ToolContext___attr_sim__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 25, LOCATE_compiling_base___ToolContext___attr_sim__eq}; - val_t *variable = NULL; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - ATTR_compiling_base___ToolContext____attr_sim( self) /*ToolContext::_attr_sim*/ = param0; - tracehead = trace.prev; +void compiling_base___ToolContext___global__eq(val_t p0, val_t p1){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 25; + fra.me.meth = LOCATE_compiling_base___ToolContext___global__eq; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + REGB0 = p1; + /* ./compiling//compiling_base.nit:25 */ + ATTR_compiling_base___ToolContext____global(fra.me.REG[0]) = REGB0; + stack_frame_head = fra.me.prev; return; } -val_t compiling_base___ToolContext___compdir(val_t self) { - struct trace_t trace = {NULL, NULL, 26, LOCATE_compiling_base___ToolContext___compdir}; - val_t *variable = NULL; - void **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___compdir(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 26; + fra.me.meth = LOCATE_compiling_base___ToolContext___compdir; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[0] = ATTR_compiling_base___ToolContext____compdir(fra.me.REG[0]); + /* ./compiling//compiling_base.nit:26 */ + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; } -void compiling_base___ToolContext___compdir__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 26, LOCATE_compiling_base___ToolContext___compdir__eq}; - val_t *variable = NULL; - void **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___compdir__eq(val_t p0, val_t p1){ + struct {struct stack_frame_t me; val_t MORE_REG[1];} fra; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 26; + fra.me.meth = LOCATE_compiling_base___ToolContext___compdir__eq; + fra.me.has_broke = 0; + fra.me.REG_size = 2; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[1] = p1; + /* ./compiling//compiling_base.nit:26 */ + ATTR_compiling_base___ToolContext____compdir(fra.me.REG[0]) = fra.me.REG[1]; + stack_frame_head = fra.me.prev; return; } -val_t compiling_base___ToolContext___clibdir(val_t self) { - struct trace_t trace = {NULL, NULL, 27, LOCATE_compiling_base___ToolContext___clibdir}; - val_t *variable = NULL; - void **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___clibdir(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 27; + fra.me.meth = LOCATE_compiling_base___ToolContext___clibdir; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[0] = ATTR_compiling_base___ToolContext____clibdir(fra.me.REG[0]); + /* ./compiling//compiling_base.nit:27 */ + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; } -void compiling_base___ToolContext___clibdir__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 27, LOCATE_compiling_base___ToolContext___clibdir__eq}; - val_t *variable = NULL; - void **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___clibdir__eq(val_t p0, val_t p1){ + struct {struct stack_frame_t me; val_t MORE_REG[1];} fra; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 27; + fra.me.meth = LOCATE_compiling_base___ToolContext___clibdir__eq; + fra.me.has_broke = 0; + fra.me.REG_size = 2; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[1] = p1; + /* ./compiling//compiling_base.nit:27 */ + ATTR_compiling_base___ToolContext____clibdir(fra.me.REG[0]) = fra.me.REG[1]; + stack_frame_head = fra.me.prev; return; } -val_t compiling_base___ToolContext___bindir(val_t self) { - struct trace_t trace = {NULL, NULL, 28, LOCATE_compiling_base___ToolContext___bindir}; - val_t *variable = NULL; - void **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___bindir(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 28; + fra.me.meth = LOCATE_compiling_base___ToolContext___bindir; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[0] = ATTR_compiling_base___ToolContext____bindir(fra.me.REG[0]); + /* ./compiling//compiling_base.nit:28 */ + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; } -void compiling_base___ToolContext___bindir__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 28, LOCATE_compiling_base___ToolContext___bindir__eq}; - val_t *variable = NULL; - void **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___bindir__eq(val_t p0, val_t p1){ + struct {struct stack_frame_t me; val_t MORE_REG[1];} fra; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 28; + fra.me.meth = LOCATE_compiling_base___ToolContext___bindir__eq; + fra.me.has_broke = 0; + fra.me.REG_size = 2; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[1] = p1; + /* ./compiling//compiling_base.nit:28 */ + ATTR_compiling_base___ToolContext____bindir(fra.me.REG[0]) = fra.me.REG[1]; + stack_frame_head = fra.me.prev; return; } -val_t compiling_base___ToolContext___output_file(val_t self) { - struct trace_t trace = {NULL, NULL, 29, LOCATE_compiling_base___ToolContext___output_file}; - val_t *variable = NULL; - void **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*/; +val_t compiling_base___ToolContext___output_file(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 29; + fra.me.meth = LOCATE_compiling_base___ToolContext___output_file; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[0] = ATTR_compiling_base___ToolContext____output_file(fra.me.REG[0]); + /* ./compiling//compiling_base.nit:29 */ + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; } -void compiling_base___ToolContext___output_file__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 29, LOCATE_compiling_base___ToolContext___output_file__eq}; - val_t *variable = NULL; - void **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; +void compiling_base___ToolContext___output_file__eq(val_t p0, val_t p1){ + struct {struct stack_frame_t me; val_t MORE_REG[1];} fra; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 29; + fra.me.meth = LOCATE_compiling_base___ToolContext___output_file__eq; + fra.me.has_broke = 0; + fra.me.REG_size = 2; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[1] = p1; + /* ./compiling//compiling_base.nit:29 */ + ATTR_compiling_base___ToolContext____output_file(fra.me.REG[0]) = fra.me.REG[1]; + stack_frame_head = fra.me.prev; return; } -val_t compiling_base___ToolContext___boost(val_t self) { - struct trace_t trace = {NULL, NULL, 30, LOCATE_compiling_base___ToolContext___boost}; - val_t *variable = NULL; - void **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 = 30; + fra.me.meth = LOCATE_compiling_base___ToolContext___boost; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + REGB0 = TAG_Bool(ATTR_compiling_base___ToolContext____boost(fra.me.REG[0])!=NIT_NULL); + /* ./compiling//compiling_base.nit:30 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_boost"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 30); + nit_exit(1); + } + 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, 30, LOCATE_compiling_base___ToolContext___boost__eq}; - val_t *variable = NULL; - void **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 = 30; + fra.me.meth = LOCATE_compiling_base___ToolContext___boost__eq; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + REGB0 = p1; + /* ./compiling//compiling_base.nit:30 */ + ATTR_compiling_base___ToolContext____boost(fra.me.REG[0]) = REGB0; + stack_frame_head = fra.me.prev; return; } -val_t compiling_base___ToolContext___no_cc(val_t self) { - struct trace_t trace = {NULL, NULL, 31, LOCATE_compiling_base___ToolContext___no_cc}; - val_t *variable = NULL; - void **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 = 31; + fra.me.meth = LOCATE_compiling_base___ToolContext___no_cc; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + REGB0 = TAG_Bool(ATTR_compiling_base___ToolContext____no_cc(fra.me.REG[0])!=NIT_NULL); + /* ./compiling//compiling_base.nit:31 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_no_cc"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 31); + nit_exit(1); + } + 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, 31, LOCATE_compiling_base___ToolContext___no_cc__eq}; - val_t *variable = NULL; - void **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 = 31; + fra.me.meth = LOCATE_compiling_base___ToolContext___no_cc__eq; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + REGB0 = p1; + /* ./compiling//compiling_base.nit:31 */ + ATTR_compiling_base___ToolContext____no_cc(fra.me.REG[0]) = REGB0; + stack_frame_head = fra.me.prev; return; } -val_t compiling_base___ToolContext___ext_prefix(val_t self) { - struct trace_t trace = {NULL, NULL, 32, LOCATE_compiling_base___ToolContext___ext_prefix}; - val_t *variable = NULL; - void **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___ext_prefix(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 32; + fra.me.meth = LOCATE_compiling_base___ToolContext___ext_prefix; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + REGB0 = TAG_Bool(ATTR_compiling_base___ToolContext____ext_prefix(fra.me.REG[0])!=NIT_NULL); + /* ./compiling//compiling_base.nit:32 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_ext_prefix"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 32); + nit_exit(1); + } + fra.me.REG[0] = ATTR_compiling_base___ToolContext____ext_prefix(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; } -void compiling_base___ToolContext___ext_prefix__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 32, LOCATE_compiling_base___ToolContext___ext_prefix__eq}; - val_t *variable = NULL; - void **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___ext_prefix__eq(val_t p0, val_t p1){ + struct {struct stack_frame_t me; val_t MORE_REG[1];} fra; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 32; + fra.me.meth = LOCATE_compiling_base___ToolContext___ext_prefix__eq; + fra.me.has_broke = 0; + fra.me.REG_size = 2; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[1] = p1; + /* ./compiling//compiling_base.nit:32 */ + ATTR_compiling_base___ToolContext____ext_prefix(fra.me.REG[0]) = fra.me.REG[1]; + stack_frame_head = fra.me.prev; return; } -val_t compiling_base___CompilerVisitor___to_s(val_t self) { - struct trace_t trace = {NULL, NULL, 80, LOCATE_compiling_base___CompilerVisitor___to_s}; - val_t variable[4]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - variable[3] = NEW_Array_array___Array___init(); /*new Array[String]*/ - variable[2] = variable[3]; - variable[3] = variable[0]; - variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[3]) /*CompilerVisitor::_ctx*/; - variable[3] = ((compiling_base___CContext___decls_t)CALL(variable[3],COLOR_compiling_base___CContext___decls))(variable[3]) /*CContext::decls*/; - ((abstract_collection___IndexedCollection___append_t)CALL( variable[2] /*out*/,COLOR_abstract_collection___IndexedCollection___append))( variable[2] /*out*/, variable[3]) /*IndexedCollection::append*/; - variable[3] = variable[0]; - variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[3]) /*CompilerVisitor::_ctx*/; - variable[3] = ((compiling_base___CContext___instrs_t)CALL(variable[3],COLOR_compiling_base___CContext___instrs))(variable[3]) /*CContext::instrs*/; - ((abstract_collection___IndexedCollection___append_t)CALL( variable[2] /*out*/,COLOR_abstract_collection___IndexedCollection___append))( variable[2] /*out*/, variable[3]) /*IndexedCollection::append*/; - variable[3] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/ - ((array___AbstractArray___add_t)CALL( variable[2] /*out*/,COLOR_abstract_collection___SimpleCollection___add))( variable[2] /*out*/, variable[3]) /*AbstractArray::add*/; - variable[3] = NEW_String_string___String___with_native(BOX_NativeString("\n"), TAG_Int(1)); /*new String*/ - variable[3] = ((string___Collection___join_t)CALL( variable[2] /*out*/,COLOR_string___Collection___join))( variable[2] /*out*/, variable[3]) /*Collection::join*/; - variable[1] = variable[3]; - goto return_label0; - return_label0: while(false); - tracehead = trace.prev; - return variable[1]; +val_t compiling_base___CompilerVisitor___to_s(val_t p0){ + 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 = 98; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___to_s; + 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] = NEW_Array_array___Array___init(); + REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____ctx(fra.me.REG[0])!=NIT_NULL); + /* ./compiling//compiling_base.nit:102 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_ctx"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 102); + nit_exit(1); + } + fra.me.REG[2] = ATTR_compiling_base___CompilerVisitor____ctx(fra.me.REG[0]); + fra.me.REG[2] = CALL_compiling_base___CContext___decls(fra.me.REG[2])(fra.me.REG[2]); + CALL_abstract_collection___Sequence___append(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); + REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____ctx(fra.me.REG[0])!=NIT_NULL); + /* ./compiling//compiling_base.nit:103 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_ctx"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 103); + nit_exit(1); + } + fra.me.REG[0] = ATTR_compiling_base___CompilerVisitor____ctx(fra.me.REG[0]); + fra.me.REG[0] = CALL_compiling_base___CContext___instrs(fra.me.REG[0])(fra.me.REG[0]); + CALL_abstract_collection___Sequence___append(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); + fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); + /* ./compiling//compiling_base.nit:104 */ + goto label1; + label1: while(0); + stack_frame_head = fra.me.prev; + return fra.me.REG[1]; } -void compiling_base___CompilerVisitor___add_decl(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 39, LOCATE_compiling_base___CompilerVisitor___add_decl}; - val_t variable[6]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - variable[1] = param0; - variable[3] = variable[0]; - variable[3] = ATTR_compiling_base___CompilerVisitor____indent_level(variable[3]) /*CompilerVisitor::_indent_level*/; - variable[3] = TAG_Bool(UNTAG_Int(variable[3])>=UNTAG_Int( TAG_Int(8))); - if (UNTAG_Bool(variable[3])) { /*if*/ - variable[3] = variable[0]; - variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[3]) /*CompilerVisitor::_ctx*/; - variable[3] = ((compiling_base___CContext___decls_t)CALL(variable[3],COLOR_compiling_base___CContext___decls))(variable[3]) /*CContext::decls*/; - variable[4] = NEW_String_string___String___with_native(BOX_NativeString("\t\t"), TAG_Int(2)); /*new String*/ - variable[4] = ((string___String_____plus_t)CALL(variable[4],COLOR_string___String_____plus))(variable[4], variable[1] /*s*/) /*String::+*/; - ((array___AbstractArray___add_t)CALL(variable[3],COLOR_abstract_collection___SimpleCollection___add))(variable[3], variable[4]) /*AbstractArray::add*/; - } else { /*if*/ - variable[3] = variable[0]; - variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[3]) /*CompilerVisitor::_ctx*/; - variable[3] = ((compiling_base___CContext___decls_t)CALL(variable[3],COLOR_compiling_base___CContext___decls))(variable[3]) /*CContext::decls*/; - variable[4] = NEW_String_string___String___with_native(BOX_NativeString(" "), TAG_Int(2)); /*new String*/ - variable[5] = variable[0]; - variable[5] = ATTR_compiling_base___CompilerVisitor____indent_level(variable[5]) /*CompilerVisitor::_indent_level*/; - variable[4] = ((string___String_____star_t)CALL(variable[4],COLOR_string___String_____star))(variable[4], variable[5]) /*String::**/; - variable[4] = ((string___String_____plus_t)CALL(variable[4],COLOR_string___String_____plus))(variable[4], variable[1] /*s*/) /*String::+*/; - ((array___AbstractArray___add_t)CALL(variable[3],COLOR_abstract_collection___SimpleCollection___add))(variable[3], variable[4]) /*AbstractArray::add*/; +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 = 39; + 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; + REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[1], COLOR_Array, ID_Array)) /*cast Array[String]*/; + /* ./compiling//compiling_base.nit:39 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Cast failed"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 39); + nit_exit(1); + } + REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____ctx(fra.me.REG[0])!=NIT_NULL); + /* ./compiling//compiling_base.nit:42 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_ctx"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 42); + nit_exit(1); } - return_label1: while(false); - tracehead = trace.prev; + fra.me.REG[2] = ATTR_compiling_base___CompilerVisitor____ctx(fra.me.REG[0]); + fra.me.REG[2] = CALL_compiling_base___CContext___decls(fra.me.REG[2])(fra.me.REG[2]); + CALL_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 self, val_t param0) { - struct trace_t trace = {NULL, NULL, 49, LOCATE_compiling_base___CompilerVisitor___add_instr}; - val_t variable[6]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - variable[1] = param0; - variable[3] = variable[0]; - variable[3] = ATTR_compiling_base___CompilerVisitor____indent_level(variable[3]) /*CompilerVisitor::_indent_level*/; - variable[3] = TAG_Bool(UNTAG_Int(variable[3])>=UNTAG_Int( TAG_Int(8))); - if (UNTAG_Bool(variable[3])) { /*if*/ - variable[3] = variable[0]; - variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[3]) /*CompilerVisitor::_ctx*/; - variable[3] = ((compiling_base___CContext___instrs_t)CALL(variable[3],COLOR_compiling_base___CContext___instrs))(variable[3]) /*CContext::instrs*/; - variable[4] = NEW_String_string___String___with_native(BOX_NativeString("\t\t"), TAG_Int(2)); /*new String*/ - variable[4] = ((string___String_____plus_t)CALL(variable[4],COLOR_string___String_____plus))(variable[4], variable[1] /*s*/) /*String::+*/; - ((array___AbstractArray___add_t)CALL(variable[3],COLOR_abstract_collection___SimpleCollection___add))(variable[3], variable[4]) /*AbstractArray::add*/; - } else { /*if*/ - variable[3] = variable[0]; - variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[3]) /*CompilerVisitor::_ctx*/; - variable[3] = ((compiling_base___CContext___instrs_t)CALL(variable[3],COLOR_compiling_base___CContext___instrs))(variable[3]) /*CContext::instrs*/; - variable[4] = NEW_String_string___String___with_native(BOX_NativeString(" "), TAG_Int(2)); /*new String*/ - variable[5] = variable[0]; - variable[5] = ATTR_compiling_base___CompilerVisitor____indent_level(variable[5]) /*CompilerVisitor::_indent_level*/; - variable[4] = ((string___String_____star_t)CALL(variable[4],COLOR_string___String_____star))(variable[4], variable[5]) /*String::**/; - variable[4] = ((string___String_____plus_t)CALL(variable[4],COLOR_string___String_____plus))(variable[4], variable[1] /*s*/) /*String::+*/; - ((array___AbstractArray___add_t)CALL(variable[3],COLOR_abstract_collection___SimpleCollection___add))(variable[3], variable[4]) /*AbstractArray::add*/; +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 = 45; + 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; + REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[1], COLOR_Array, ID_Array)) /*cast Array[String]*/; + /* ./compiling//compiling_base.nit:45 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Cast failed"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 45); + nit_exit(1); } - return_label2: while(false); - tracehead = trace.prev; + REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____ctx(fra.me.REG[0])!=NIT_NULL); + /* ./compiling//compiling_base.nit:48 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_ctx"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 48); + nit_exit(1); + } + fra.me.REG[2] = ATTR_compiling_base___CompilerVisitor____ctx(fra.me.REG[0]); + fra.me.REG[2] = CALL_compiling_base___CContext___instrs(fra.me.REG[2])(fra.me.REG[2]); + 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; } -val_t compiling_base___CompilerVisitor___new_number(val_t self) { - struct trace_t trace = {NULL, NULL, 59, LOCATE_compiling_base___CompilerVisitor___new_number}; - val_t variable[5]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - variable[3] = variable[0]; - variable[3] = ATTR_compiling_base___CompilerVisitor____number_cpt(variable[3]) /*CompilerVisitor::_number_cpt*/; - variable[2] = variable[3]; - variable[3] = variable[0]; - variable[4] = TAG_Int(UNTAG_Int( variable[2] /*res*/)+UNTAG_Int( TAG_Int(1))); - ATTR_compiling_base___CompilerVisitor____number_cpt(variable[3]) /*CompilerVisitor::_number_cpt*/ = variable[4]; - variable[1] = variable[2] /*res*/; - goto return_label3; - return_label3: while(false); - tracehead = trace.prev; - return variable[1]; -} -void compiling_base___CompilerVisitor___indent(val_t self) { - struct trace_t trace = {NULL, NULL, 69, LOCATE_compiling_base___CompilerVisitor___indent}; - val_t variable[3]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - variable[2] = variable[0]; - ATTR_compiling_base___CompilerVisitor____indent_level(variable[2]) /*CompilerVisitor::_indent_level*/ = TAG_Int(UNTAG_Int(ATTR_compiling_base___CompilerVisitor____indent_level(variable[2]) /*CompilerVisitor::_indent_level*/)+UNTAG_Int( TAG_Int(1))); - return_label4: while(false); - tracehead = trace.prev; +void compiling_base___CompilerVisitor___add_line_to(val_t p0, val_t p1, val_t p2){ + struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; + val_t REGB0; + val_t REGB1; + val_t tmp; + static val_t once_value_1; /* Once value */ + static val_t once_value_2; /* Once value */ + static val_t once_value_5; /* Once value */ + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 51; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___add_line_to; + fra.me.has_broke = 0; + fra.me.REG_size = 4; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[2] = NIT_NULL; + fra.me.REG[3] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[1] = p1; + fra.me.REG[2] = p2; + REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0])!=NIT_NULL); + /* ./compiling//compiling_base.nit:53 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_indent_level"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 53); + nit_exit(1); + } + REGB0 = ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0]); + REGB1 = TAG_Int(8); + REGB1 = TAG_Bool(UNTAG_Int(REGB0)>=UNTAG_Int(REGB1)); + /* ./compiling//compiling_base.nit:53 */ + if (UNTAG_Bool(REGB1)) { + /* ./compiling//compiling_base.nit:54 */ + if (!once_value_1) { + fra.me.REG[3] = BOX_NativeString("\t\t"); + REGB1 = TAG_Int(2); + fra.me.REG[3] = NEW_String_string___String___with_native(fra.me.REG[3], REGB1); + once_value_1 = fra.me.REG[3]; + register_static_object(&once_value_1); + } else fra.me.REG[3] = once_value_1; + array___Array___add(fra.me.REG[1], fra.me.REG[3]); + } else { + REGB1 = TAG_Int(0); + REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0])!=NIT_NULL); + /* ./compiling//compiling_base.nit:56 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_indent_level"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 56); + nit_exit(1); + } + REGB0 = ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0]); + fra.me.REG[0] = NEW_Range_range___Range___without_last(REGB1, REGB0); + fra.me.REG[0] = CALL_abstract_collection___Collection___iterator(fra.me.REG[0])(fra.me.REG[0]); + while(1) { + REGB0 = CALL_abstract_collection___Iterator___is_ok(fra.me.REG[0])(fra.me.REG[0]); + if (UNTAG_Bool(REGB0)) { + REGB0 = CALL_abstract_collection___Iterator___item(fra.me.REG[0])(fra.me.REG[0]); + /* ./compiling//compiling_base.nit:57 */ + if (!once_value_2) { + fra.me.REG[3] = BOX_NativeString(" "); + REGB0 = TAG_Int(2); + fra.me.REG[3] = NEW_String_string___String___with_native(fra.me.REG[3], REGB0); + once_value_2 = fra.me.REG[3]; + register_static_object(&once_value_2); + } else fra.me.REG[3] = once_value_2; + array___Array___add(fra.me.REG[1], fra.me.REG[3]); + } else { + /* ./compiling//compiling_base.nit:56 */ + goto label3; + } + CALL_abstract_collection___Iterator___next(fra.me.REG[0])(fra.me.REG[0]); + } + label3: while(0); + } + fra.me.REG[2] = CALL_abstract_collection___Collection___iterator(fra.me.REG[2])(fra.me.REG[2]); + /* ./compiling//compiling_base.nit:60 */ + while(1) { + REGB0 = CALL_abstract_collection___Iterator___is_ok(fra.me.REG[2])(fra.me.REG[2]); + if (UNTAG_Bool(REGB0)) { + fra.me.REG[0] = CALL_abstract_collection___Iterator___item(fra.me.REG[2])(fra.me.REG[2]); + /* ./compiling//compiling_base.nit:61 */ + array___Array___add(fra.me.REG[1], fra.me.REG[0]); + } else { + /* ./compiling//compiling_base.nit:60 */ + goto label4; + } + CALL_abstract_collection___Iterator___next(fra.me.REG[2])(fra.me.REG[2]); + } + label4: while(0); + /* ./compiling//compiling_base.nit:63 */ + if (!once_value_5) { + fra.me.REG[2] = BOX_NativeString("\n"); + REGB0 = TAG_Int(1); + fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0); + once_value_5 = fra.me.REG[2]; + register_static_object(&once_value_5); + } else fra.me.REG[2] = once_value_5; + array___Array___add(fra.me.REG[1], fra.me.REG[2]); + stack_frame_head = fra.me.prev; return; } -void compiling_base___CompilerVisitor___unindent(val_t self) { - struct trace_t trace = {NULL, NULL, 73, LOCATE_compiling_base___CompilerVisitor___unindent}; - val_t variable[3]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - variable[2] = variable[0]; - ATTR_compiling_base___CompilerVisitor____indent_level(variable[2]) /*CompilerVisitor::_indent_level*/ = TAG_Int(UNTAG_Int(ATTR_compiling_base___CompilerVisitor____indent_level(variable[2]) /*CompilerVisitor::_indent_level*/)-UNTAG_Int( TAG_Int(1))); - variable[2] = variable[0]; - variable[2] = ATTR_compiling_base___CompilerVisitor____indent_level(variable[2]) /*CompilerVisitor::_indent_level*/; - variable[2] = TAG_Bool(UNTAG_Int(variable[2])vft[INIT_TABLE_POS_CompilerVisitor].i]) return; - variable[3] = variable[0]; - ATTR_compiling_base___CompilerVisitor____module(variable[3]) /*CompilerVisitor::_module*/ = variable[1] /*module*/; - return_label6: while(false); - init_table[VAL2OBJ(variable[0])->vft[INIT_TABLE_POS_CompilerVisitor].i] = 1; - tracehead = trace.prev; +void compiling_base___CompilerVisitor___ctx__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 = 110; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___ctx__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:110 */ + ATTR_compiling_base___CompilerVisitor____ctx(fra.me.REG[0]) = fra.me.REG[1]; + stack_frame_head = fra.me.prev; return; } -val_t compiling_base___CContext___decls(val_t self) { - struct trace_t trace = {NULL, NULL, 109, LOCATE_compiling_base___CContext___decls}; - val_t *variable = NULL; - void **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___CContext___instrs(val_t self) { - struct trace_t trace = {NULL, NULL, 110, LOCATE_compiling_base___CContext___instrs}; - val_t *variable = NULL; - void **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___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 = 113; + 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; + REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0])!=NIT_NULL); + /* ./compiling//compiling_base.nit:113 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_indent_level"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 113); + nit_exit(1); + } + REGB0 = ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return REGB0; } -void compiling_base___CContext___append(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 112, LOCATE_compiling_base___CContext___append}; - val_t variable[5]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - variable[1] = param0; - variable[3] = variable[0]; - variable[3] = ATTR_compiling_base___CContext____instrs(variable[3]) /*CContext::_instrs*/; - variable[4] = ((compiling_base___CContext___decls_t)CALL( variable[1] /*c*/,COLOR_compiling_base___CContext___decls))( variable[1] /*c*/) /*CContext::decls*/; - ((abstract_collection___IndexedCollection___append_t)CALL(variable[3],COLOR_abstract_collection___IndexedCollection___append))(variable[3], variable[4]) /*IndexedCollection::append*/; - variable[3] = variable[0]; - variable[3] = ATTR_compiling_base___CContext____instrs(variable[3]) /*CContext::_instrs*/; - variable[4] = ((compiling_base___CContext___instrs_t)CALL( variable[1] /*c*/,COLOR_compiling_base___CContext___instrs))( variable[1] /*c*/) /*CContext::instrs*/; - ((abstract_collection___IndexedCollection___append_t)CALL(variable[3],COLOR_abstract_collection___IndexedCollection___append))(variable[3], variable[4]) /*IndexedCollection::append*/; - return_label7: while(false); - tracehead = trace.prev; +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 = 113; + 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:113 */ + ATTR_compiling_base___CompilerVisitor____indent_level(fra.me.REG[0]) = REGB0; + stack_frame_head = fra.me.prev; return; } -void compiling_base___CContext___merge(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 118, LOCATE_compiling_base___CContext___merge}; - val_t variable[5]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - variable[1] = param0; - variable[3] = variable[0]; - variable[3] = ATTR_compiling_base___CContext____decls(variable[3]) /*CContext::_decls*/; - variable[4] = ((compiling_base___CContext___decls_t)CALL( variable[1] /*c*/,COLOR_compiling_base___CContext___decls))( variable[1] /*c*/) /*CContext::decls*/; - ((abstract_collection___IndexedCollection___append_t)CALL(variable[3],COLOR_abstract_collection___IndexedCollection___append))(variable[3], variable[4]) /*IndexedCollection::append*/; - variable[3] = variable[0]; - variable[3] = ATTR_compiling_base___CContext____instrs(variable[3]) /*CContext::_instrs*/; - variable[4] = ((compiling_base___CContext___instrs_t)CALL( variable[1] /*c*/,COLOR_compiling_base___CContext___instrs))( variable[1] /*c*/) /*CContext::instrs*/; - ((abstract_collection___IndexedCollection___append_t)CALL(variable[3],COLOR_abstract_collection___IndexedCollection___append))(variable[3], variable[4]) /*IndexedCollection::append*/; - return_label8: while(false); - tracehead = trace.prev; - return; +val_t compiling_base___CompilerVisitor___tc(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 116; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___tc; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + REGB0 = TAG_Bool(ATTR_compiling_base___CompilerVisitor____tc(fra.me.REG[0])!=NIT_NULL); + /* ./compiling//compiling_base.nit:116 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_tc"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 116); + nit_exit(1); + } + fra.me.REG[0] = ATTR_compiling_base___CompilerVisitor____tc(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; } -void compiling_base___CContext___init(val_t self, int* init_table) { - struct trace_t trace = {NULL, NULL, 124, LOCATE_compiling_base___CContext___init}; - val_t variable[2]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - if (init_table[VAL2OBJ(variable[0])->vft[INIT_TABLE_POS_CContext].i]) return; - return_label9: while(false); - init_table[VAL2OBJ(variable[0])->vft[INIT_TABLE_POS_CContext].i] = 1; - tracehead = trace.prev; +void compiling_base___CompilerVisitor___init(val_t p0, val_t p1, val_t p2, int* init_table){ + int itpos0 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_CompilerVisitor].i; + struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; + val_t tmp; + if (init_table[itpos0]) return; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 119; + fra.me.meth = LOCATE_compiling_base___CompilerVisitor___init; + fra.me.has_broke = 0; + fra.me.REG_size = 3; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[2] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[1] = p1; + fra.me.REG[2] = p2; + /* ./compiling//compiling_base.nit:122 */ + ATTR_compiling_base___CompilerVisitor____module(fra.me.REG[0]) = fra.me.REG[1]; + /* ./compiling//compiling_base.nit:123 */ + ATTR_compiling_base___CompilerVisitor____tc(fra.me.REG[0]) = fra.me.REG[2]; + stack_frame_head = fra.me.prev; + init_table[itpos0] = 1; return; } -val_t compiling_base___MMGlobalProperty___meth_call(val_t self) { - struct trace_t trace = {NULL, NULL, 128, LOCATE_compiling_base___MMGlobalProperty___meth_call}; - val_t variable[9]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - variable[2] = NEW_String_string___String___init(); /*new String*/ - variable[3] = NEW_String_string___String___with_native(BOX_NativeString("CALL_"), TAG_Int(5)); /*new String*/ - variable[4] = variable[3]; - ((string___String___append_t)CALL(variable[2],COLOR_abstract_collection___IndexedCollection___append))(variable[2], variable[4]) /*String::append*/; - variable[5] = variable[0]; - variable[5] = ((abstractmetamodel___MMGlobalProperty___intro_t)CALL(variable[5],COLOR_abstractmetamodel___MMGlobalProperty___intro))(variable[5]) /*MMGlobalProperty::intro*/; - variable[5] = ((compiling_base___MMLocalProperty___cname_t)CALL(variable[5],COLOR_compiling_base___MMLocalProperty___cname))(variable[5]) /*MMLocalProperty::cname*/; - variable[6] = variable[5]; - ((string___String___append_t)CALL(variable[2],COLOR_abstract_collection___IndexedCollection___append))(variable[2], variable[6]) /*String::append*/; - variable[7] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/ - variable[8] = variable[7]; - ((string___String___append_t)CALL(variable[2],COLOR_abstract_collection___IndexedCollection___append))(variable[2], variable[8]) /*String::append*/; - variable[1] = variable[2]; - goto return_label10; - return_label10: while(false); - tracehead = trace.prev; - return variable[1]; -} -val_t compiling_base___MMGlobalProperty___attr_access(val_t self) { - struct trace_t trace = {NULL, NULL, 134, LOCATE_compiling_base___MMGlobalProperty___attr_access}; - val_t variable[9]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - variable[2] = NEW_String_string___String___init(); /*new String*/ - variable[3] = NEW_String_string___String___with_native(BOX_NativeString("ATTR_"), TAG_Int(5)); /*new String*/ - variable[4] = variable[3]; - ((string___String___append_t)CALL(variable[2],COLOR_abstract_collection___IndexedCollection___append))(variable[2], variable[4]) /*String::append*/; - variable[5] = variable[0]; - variable[5] = ((abstractmetamodel___MMGlobalProperty___intro_t)CALL(variable[5],COLOR_abstractmetamodel___MMGlobalProperty___intro))(variable[5]) /*MMGlobalProperty::intro*/; - variable[5] = ((compiling_base___MMLocalProperty___cname_t)CALL(variable[5],COLOR_compiling_base___MMLocalProperty___cname))(variable[5]) /*MMLocalProperty::cname*/; - variable[6] = variable[5]; - ((string___String___append_t)CALL(variable[2],COLOR_abstract_collection___IndexedCollection___append))(variable[2], variable[6]) /*String::append*/; - variable[7] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/ - variable[8] = variable[7]; - ((string___String___append_t)CALL(variable[2],COLOR_abstract_collection___IndexedCollection___append))(variable[2], variable[8]) /*String::append*/; - variable[1] = variable[2]; - goto return_label11; - return_label11: while(false); - tracehead = trace.prev; - return variable[1]; -} -val_t compiling_base___MMGlobalProperty___color_id(val_t self) { - struct trace_t trace = {NULL, NULL, 140, LOCATE_compiling_base___MMGlobalProperty___color_id}; - val_t variable[9]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - variable[2] = NEW_String_string___String___init(); /*new String*/ - variable[3] = NEW_String_string___String___with_native(BOX_NativeString("COLOR_"), TAG_Int(6)); /*new String*/ - variable[4] = variable[3]; - ((string___String___append_t)CALL(variable[2],COLOR_abstract_collection___IndexedCollection___append))(variable[2], variable[4]) /*String::append*/; - variable[5] = variable[0]; - variable[5] = ((abstractmetamodel___MMGlobalProperty___intro_t)CALL(variable[5],COLOR_abstractmetamodel___MMGlobalProperty___intro))(variable[5]) /*MMGlobalProperty::intro*/; - variable[5] = ((compiling_base___MMLocalProperty___cname_t)CALL(variable[5],COLOR_compiling_base___MMLocalProperty___cname))(variable[5]) /*MMLocalProperty::cname*/; - variable[6] = variable[5]; - ((string___String___append_t)CALL(variable[2],COLOR_abstract_collection___IndexedCollection___append))(variable[2], variable[6]) /*String::append*/; - variable[7] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/ - variable[8] = variable[7]; - ((string___String___append_t)CALL(variable[2],COLOR_abstract_collection___IndexedCollection___append))(variable[2], variable[8]) /*String::append*/; - variable[1] = variable[2]; - goto return_label12; - return_label12: while(false); - tracehead = trace.prev; - return variable[1]; -} -val_t compiling_base___MMGlobalClass___id_id(val_t self) { - struct trace_t trace = {NULL, NULL, 149, LOCATE_compiling_base___MMGlobalClass___id_id}; - val_t variable[9]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - variable[2] = NEW_String_string___String___init(); /*new String*/ - variable[3] = NEW_String_string___String___with_native(BOX_NativeString("ID_"), TAG_Int(3)); /*new String*/ - variable[4] = variable[3]; - ((string___String___append_t)CALL(variable[2],COLOR_abstract_collection___IndexedCollection___append))(variable[2], variable[4]) /*String::append*/; - variable[5] = variable[0]; - variable[5] = ((abstractmetamodel___MMGlobalClass___intro_t)CALL(variable[5],COLOR_abstractmetamodel___MMGlobalClass___intro))(variable[5]) /*MMGlobalClass::intro*/; - variable[5] = ((abstractmetamodel___MMLocalClass___name_t)CALL(variable[5],COLOR_abstractmetamodel___MMLocalClass___name))(variable[5]) /*MMLocalClass::name*/; - variable[6] = variable[5]; - variable[6] = ((string___String___to_s_t)CALL(variable[6],COLOR_string___Object___to_s))(variable[6]) /*String::to_s*/; - ((string___String___append_t)CALL(variable[2],COLOR_abstract_collection___IndexedCollection___append))(variable[2], variable[6]) /*String::append*/; - variable[7] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/ - variable[8] = variable[7]; - ((string___String___append_t)CALL(variable[2],COLOR_abstract_collection___IndexedCollection___append))(variable[2], variable[8]) /*String::append*/; - variable[1] = variable[2]; - goto return_label13; - return_label13: while(false); - tracehead = trace.prev; - return variable[1]; -} -val_t compiling_base___MMGlobalClass___color_id(val_t self) { - struct trace_t trace = {NULL, NULL, 155, LOCATE_compiling_base___MMGlobalClass___color_id}; - val_t variable[9]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - variable[2] = NEW_String_string___String___init(); /*new String*/ - variable[3] = NEW_String_string___String___with_native(BOX_NativeString("COLOR_"), TAG_Int(6)); /*new String*/ - variable[4] = variable[3]; - ((string___String___append_t)CALL(variable[2],COLOR_abstract_collection___IndexedCollection___append))(variable[2], variable[4]) /*String::append*/; - variable[5] = variable[0]; - variable[5] = ((abstractmetamodel___MMGlobalClass___intro_t)CALL(variable[5],COLOR_abstractmetamodel___MMGlobalClass___intro))(variable[5]) /*MMGlobalClass::intro*/; - variable[5] = ((abstractmetamodel___MMLocalClass___name_t)CALL(variable[5],COLOR_abstractmetamodel___MMLocalClass___name))(variable[5]) /*MMLocalClass::name*/; - variable[6] = variable[5]; - variable[6] = ((string___String___to_s_t)CALL(variable[6],COLOR_string___Object___to_s))(variable[6]) /*String::to_s*/; - ((string___String___append_t)CALL(variable[2],COLOR_abstract_collection___IndexedCollection___append))(variable[2], variable[6]) /*String::append*/; - variable[7] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/ - variable[8] = variable[7]; - ((string___String___append_t)CALL(variable[2],COLOR_abstract_collection___IndexedCollection___append))(variable[2], variable[8]) /*String::append*/; - variable[1] = variable[2]; - goto return_label14; - return_label14: 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, 161, LOCATE_compiling_base___MMGlobalClass___init_table_pos_id}; - val_t variable[9]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - variable[2] = NEW_String_string___String___init(); /*new String*/ - variable[3] = NEW_String_string___String___with_native(BOX_NativeString("INIT_TABLE_POS_"), TAG_Int(15)); /*new String*/ - variable[4] = variable[3]; - ((string___String___append_t)CALL(variable[2],COLOR_abstract_collection___IndexedCollection___append))(variable[2], variable[4]) /*String::append*/; - variable[5] = variable[0]; - variable[5] = ((abstractmetamodel___MMGlobalClass___intro_t)CALL(variable[5],COLOR_abstractmetamodel___MMGlobalClass___intro))(variable[5]) /*MMGlobalClass::intro*/; - variable[5] = ((abstractmetamodel___MMLocalClass___name_t)CALL(variable[5],COLOR_abstractmetamodel___MMLocalClass___name))(variable[5]) /*MMLocalClass::name*/; - variable[6] = variable[5]; - variable[6] = ((string___String___to_s_t)CALL(variable[6],COLOR_string___Object___to_s))(variable[6]) /*String::to_s*/; - ((string___String___append_t)CALL(variable[2],COLOR_abstract_collection___IndexedCollection___append))(variable[2], variable[6]) /*String::append*/; - variable[7] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/ - variable[8] = variable[7]; - ((string___String___append_t)CALL(variable[2],COLOR_abstract_collection___IndexedCollection___append))(variable[2], variable[8]) /*String::append*/; - variable[1] = variable[2]; - goto return_label15; - return_label15: while(false); - tracehead = trace.prev; - return variable[1]; -} -val_t compiling_base___MMLocalClass___primitive_info(val_t self) { - struct trace_t trace = {NULL, NULL, 175, LOCATE_compiling_base___MMLocalClass___primitive_info}; - static val_t once_value_17; static int once_bool_17; /* Once value for variable[3]*/ - val_t variable[8]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - variable[2] = variable[0]; - variable[2] = ATTR_compiling_base___MMLocalClass____primitive_info_b(variable[2]) /*MMLocalClass::_primitive_info_b*/; - variable[2] = TAG_Bool((variable[2])==( TAG_Bool(true))); - if (UNTAG_Bool(variable[2])) { /*if*/ - variable[2] = variable[0]; - variable[2] = ATTR_compiling_base___MMLocalClass____primitive_info_cache(variable[2]) /*MMLocalClass::_primitive_info_cache*/; - variable[1] = variable[2]; - goto return_label16; +val_t compiling_base___CContext___decls(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 130; + fra.me.meth = LOCATE_compiling_base___CContext___decls; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + REGB0 = TAG_Bool(ATTR_compiling_base___CContext____decls(fra.me.REG[0])!=NIT_NULL); + /* ./compiling//compiling_base.nit:130 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_decls"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 130); + nit_exit(1); } - if (once_bool_17) variable[3] = once_value_17; - else { - variable[3] = variable[0]; - variable[3] = ((compiling_base___MMLocalClass___primitive_ctypes_t)CALL(variable[3],COLOR_compiling_base___MMLocalClass___primitive_ctypes))(variable[3]) /*MMLocalClass::primitive_ctypes*/; - once_value_17 = variable[3]; - once_bool_17 = true; + fra.me.REG[0] = ATTR_compiling_base___CContext____decls(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +val_t compiling_base___CContext___instrs(val_t p0){ + struct {struct stack_frame_t me;} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 131; + fra.me.meth = LOCATE_compiling_base___CContext___instrs; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + REGB0 = TAG_Bool(ATTR_compiling_base___CContext____instrs(fra.me.REG[0])!=NIT_NULL); + /* ./compiling//compiling_base.nit:131 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_instrs"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 131); + nit_exit(1); } - variable[2] = variable[3]; - variable[3] = variable[0]; - variable[3] = ((abstractmetamodel___MMLocalClass___name_t)CALL(variable[3],COLOR_abstractmetamodel___MMLocalClass___name))(variable[3]) /*MMLocalClass::name*/; - variable[3] = ((abstract_collection___CoupleMap___has_key_t)CALL( variable[2] /*ctypes*/,COLOR_abstract_collection___Map___has_key))( variable[2] /*ctypes*/, variable[3]) /*CoupleMap::has_key*/; - if (UNTAG_Bool(variable[3])) { /*if*/ - variable[3] = variable[0]; - variable[4] = variable[0]; - variable[4] = ((abstractmetamodel___MMLocalClass___name_t)CALL(variable[4],COLOR_abstractmetamodel___MMLocalClass___name))(variable[4]) /*MMLocalClass::name*/; - variable[4] = ((abstract_collection___CoupleMap_____bra_t)CALL( variable[2] /*ctypes*/,COLOR_abstract_collection___Map_____bra))( variable[2] /*ctypes*/, variable[4]) /*CoupleMap::[]*/; - ATTR_compiling_base___MMLocalClass____primitive_info_cache(variable[3]) /*MMLocalClass::_primitive_info_cache*/ = variable[4]; - variable[3] = variable[0]; - ATTR_compiling_base___MMLocalClass____primitive_info_b(variable[3]) /*MMLocalClass::_primitive_info_b*/ = TAG_Bool(true); - variable[3] = variable[0]; - variable[3] = ATTR_compiling_base___MMLocalClass____primitive_info_cache(variable[3]) /*MMLocalClass::_primitive_info_cache*/; - variable[1] = variable[3]; - goto return_label16; + fra.me.REG[0] = ATTR_compiling_base___CContext____instrs(fra.me.REG[0]); + stack_frame_head = fra.me.prev; + return fra.me.REG[0]; +} +void compiling_base___CContext___append(val_t p0, val_t p1){ + struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; + val_t REGB0; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 133; + fra.me.meth = LOCATE_compiling_base___CContext___append; + fra.me.has_broke = 0; + fra.me.REG_size = 4; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[2] = NIT_NULL; + fra.me.REG[3] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[1] = p1; + REGB0 = TAG_Bool(ATTR_compiling_base___CContext____instrs(fra.me.REG[0])!=NIT_NULL); + /* ./compiling//compiling_base.nit:135 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_instrs"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 135); + nit_exit(1); } - variable[4] = ((hash___HashMap___iterator_t)CALL( variable[2] /*ctypes*/,COLOR_abstract_collection___Collection___iterator))( variable[2] /*ctypes*/) /*HashMap::iterator*/; - variable[3] = variable[4]; - while (true) { /*while*/ - variable[4] = ((hash___HashMapIterator___is_ok_t)CALL( variable[3] /*i*/,COLOR_abstract_collection___Iterator___is_ok))( variable[3] /*i*/) /*HashMapIterator::is_ok*/; - if (!UNTAG_Bool(variable[4])) break; /* while*/ - variable[5] = ((hash___HashMapIterator___key_t)CALL( variable[3] /*i*/,COLOR_abstract_collection___MapIterator___key))( variable[3] /*i*/) /*HashMapIterator::key*/; - variable[4] = variable[5]; - variable[5] = variable[0]; - variable[5] = ((abstractmetamodel___MMLocalClass___module_t)CALL(variable[5],COLOR_abstractmetamodel___MMLocalClass___module))(variable[5]) /*MMLocalClass::module*/; - variable[5] = ((abstractmetamodel___MMModule___has_global_class_named_t)CALL(variable[5],COLOR_abstractmetamodel___MMModule___has_global_class_named))(variable[5], variable[4] /*n*/) /*MMModule::has_global_class_named*/; - if (UNTAG_Bool(variable[5])) { /*if*/ - variable[6] = variable[0]; - variable[6] = ((abstractmetamodel___MMLocalClass___module_t)CALL(variable[6],COLOR_abstractmetamodel___MMLocalClass___module))(variable[6]) /*MMLocalClass::module*/; - variable[6] = ((abstractmetamodel___MMModule___class_by_name_t)CALL(variable[6],COLOR_abstractmetamodel___MMModule___class_by_name))(variable[6], variable[4] /*n*/) /*MMModule::class_by_name*/; - variable[5] = variable[6]; - variable[6] = variable[0]; - variable[6] = ((abstractmetamodel___MMLocalClass___cshe_t)CALL(variable[6],COLOR_abstractmetamodel___MMLocalClass___cshe))(variable[6]) /*MMLocalClass::cshe*/; - variable[6] = ((partial_order___PartialOrderElement_____l_t)CALL(variable[6],COLOR_partial_order___PartialOrderElement_____l))(variable[6], variable[5] /*c*/) /*PartialOrderElement::<*/; - if (UNTAG_Bool(variable[6])) { /*if*/ - variable[6] = variable[0]; - variable[7] = ((hash___HashMapIterator___item_t)CALL( variable[3] /*i*/,COLOR_abstract_collection___Iterator___item))( variable[3] /*i*/) /*HashMapIterator::item*/; - ATTR_compiling_base___MMLocalClass____primitive_info_cache(variable[6]) /*MMLocalClass::_primitive_info_cache*/ = variable[7]; - variable[6] = variable[0]; - ATTR_compiling_base___MMLocalClass____primitive_info_b(variable[6]) /*MMLocalClass::_primitive_info_b*/ = TAG_Bool(true); - variable[6] = variable[0]; - variable[6] = ATTR_compiling_base___MMLocalClass____primitive_info_cache(variable[6]) /*MMLocalClass::_primitive_info_cache*/; - variable[1] = variable[6]; - goto return_label16; - } - } - ((hash___HashMapIterator___next_t)CALL( variable[3] /*i*/,COLOR_abstract_collection___Iterator___next))( variable[3] /*i*/) /*HashMapIterator::next*/; - continue_18: while(0); + fra.me.REG[2] = ATTR_compiling_base___CContext____instrs(fra.me.REG[0]); + fra.me.REG[3] = CALL_compiling_base___CContext___decls(fra.me.REG[1])(fra.me.REG[1]); + CALL_abstract_collection___Sequence___append(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); + REGB0 = TAG_Bool(ATTR_compiling_base___CContext____instrs(fra.me.REG[0])!=NIT_NULL); + /* ./compiling//compiling_base.nit:136 */ + if (UNTAG_Bool(REGB0)) { + } else { + fprintf(stderr, "Uninitialized attribute %s", "_instrs"); + fprintf(stderr, " (%s:%d)\n", LOCATE_compiling_base, 136); + nit_exit(1); } - break_18: while(0); - variable[4] = variable[0]; - ATTR_compiling_base___MMLocalClass____primitive_info_b(variable[4]) /*MMLocalClass::_primitive_info_b*/ = TAG_Bool(true); - variable[1] = NIT_NULL /*null*/; - goto return_label16; - return_label16: while(false); - tracehead = trace.prev; - return variable[1]; + fra.me.REG[0] = ATTR_compiling_base___CContext____instrs(fra.me.REG[0]); + fra.me.REG[1] = CALL_compiling_base___CContext___instrs(fra.me.REG[1])(fra.me.REG[1]); + CALL_abstract_collection___Sequence___append(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); + stack_frame_head = fra.me.prev; + return; } -val_t compiling_base___MMLocalClass___primitive_ctypes(val_t self) { - struct trace_t trace = {NULL, NULL, 205, LOCATE_compiling_base___MMLocalClass___primitive_ctypes}; - val_t variable[16]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - variable[3] = NEW_HashMap_hash___HashMap___init(); /*new HashMap[Symbol, PrimitiveInfo]*/ - variable[2] = variable[3]; - variable[4] = NEW_Array_array___Array___with_capacity(TAG_Int(7)); /*new Array[String]*/ - variable[5] = NEW_String_string___String___with_native(BOX_NativeString("Int"), TAG_Int(3)); /*new String*/ - ((array___AbstractArray___add_t)CALL(variable[4],COLOR_abstract_collection___SimpleCollection___add))(variable[4], variable[5]) /*AbstractArray::add*/; - variable[6] = NEW_String_string___String___with_native(BOX_NativeString("Char"), TAG_Int(4)); /*new String*/ - ((array___AbstractArray___add_t)CALL(variable[4],COLOR_abstract_collection___SimpleCollection___add))(variable[4], variable[6]) /*AbstractArray::add*/; - variable[7] = NEW_String_string___String___with_native(BOX_NativeString("Bool"), TAG_Int(4)); /*new String*/ - ((array___AbstractArray___add_t)CALL(variable[4],COLOR_abstract_collection___SimpleCollection___add))(variable[4], variable[7]) /*AbstractArray::add*/; - variable[8] = NEW_String_string___String___with_native(BOX_NativeString("Float"), TAG_Int(5)); /*new String*/ - ((array___AbstractArray___add_t)CALL(variable[4],COLOR_abstract_collection___SimpleCollection___add))(variable[4], variable[8]) /*AbstractArray::add*/; - variable[9] = NEW_String_string___String___with_native(BOX_NativeString("NativeString"), TAG_Int(12)); /*new String*/ - ((array___AbstractArray___add_t)CALL(variable[4],COLOR_abstract_collection___SimpleCollection___add))(variable[4], variable[9]) /*AbstractArray::add*/; - variable[10] = NEW_String_string___String___with_native(BOX_NativeString("NativeArray"), TAG_Int(11)); /*new String*/ - ((array___AbstractArray___add_t)CALL(variable[4],COLOR_abstract_collection___SimpleCollection___add))(variable[4], variable[10]) /*AbstractArray::add*/; - variable[11] = NEW_String_string___String___with_native(BOX_NativeString("Pointer"), TAG_Int(7)); /*new String*/ - ((array___AbstractArray___add_t)CALL(variable[4],COLOR_abstract_collection___SimpleCollection___add))(variable[4], variable[11]) /*AbstractArray::add*/; - variable[3] = variable[4]; - variable[5] = NEW_Array_array___Array___with_capacity(TAG_Int(7)); /*new Array[Bool]*/ - ((array___AbstractArray___add_t)CALL(variable[5],COLOR_abstract_collection___SimpleCollection___add))(variable[5], TAG_Bool(true)) /*AbstractArray::add*/; - ((array___AbstractArray___add_t)CALL(variable[5],COLOR_abstract_collection___SimpleCollection___add))(variable[5], TAG_Bool(true)) /*AbstractArray::add*/; - ((array___AbstractArray___add_t)CALL(variable[5],COLOR_abstract_collection___SimpleCollection___add))(variable[5], TAG_Bool(true)) /*AbstractArray::add*/; - ((array___AbstractArray___add_t)CALL(variable[5],COLOR_abstract_collection___SimpleCollection___add))(variable[5], TAG_Bool(false)) /*AbstractArray::add*/; - ((array___AbstractArray___add_t)CALL(variable[5],COLOR_abstract_collection___SimpleCollection___add))(variable[5], TAG_Bool(false)) /*AbstractArray::add*/; - ((array___AbstractArray___add_t)CALL(variable[5],COLOR_abstract_collection___SimpleCollection___add))(variable[5], TAG_Bool(false)) /*AbstractArray::add*/; - ((array___AbstractArray___add_t)CALL(variable[5],COLOR_abstract_collection___SimpleCollection___add))(variable[5], TAG_Bool(false)) /*AbstractArray::add*/; - variable[4] = variable[5]; - variable[6] = NEW_Array_array___Array___with_capacity(TAG_Int(7)); /*new Array[String]*/ - variable[7] = NEW_String_string___String___with_native(BOX_NativeString("bigint"), TAG_Int(6)); /*new String*/ - ((array___AbstractArray___add_t)CALL(variable[6],COLOR_abstract_collection___SimpleCollection___add))(variable[6], variable[7]) /*AbstractArray::add*/; - variable[8] = NEW_String_string___String___with_native(BOX_NativeString("char"), TAG_Int(4)); /*new String*/ - ((array___AbstractArray___add_t)CALL(variable[6],COLOR_abstract_collection___SimpleCollection___add))(variable[6], variable[8]) /*AbstractArray::add*/; - variable[9] = NEW_String_string___String___with_native(BOX_NativeString("int"), TAG_Int(3)); /*new String*/ - ((array___AbstractArray___add_t)CALL(variable[6],COLOR_abstract_collection___SimpleCollection___add))(variable[6], variable[9]) /*AbstractArray::add*/; - variable[10] = NEW_String_string___String___with_native(BOX_NativeString("float"), TAG_Int(5)); /*new String*/ - ((array___AbstractArray___add_t)CALL(variable[6],COLOR_abstract_collection___SimpleCollection___add))(variable[6], variable[10]) /*AbstractArray::add*/; - variable[11] = NEW_String_string___String___with_native(BOX_NativeString("char *"), TAG_Int(6)); /*new String*/ - ((array___AbstractArray___add_t)CALL(variable[6],COLOR_abstract_collection___SimpleCollection___add))(variable[6], variable[11]) /*AbstractArray::add*/; - variable[12] = NEW_String_string___String___with_native(BOX_NativeString("val_t *"), TAG_Int(7)); /*new String*/ - ((array___AbstractArray___add_t)CALL(variable[6],COLOR_abstract_collection___SimpleCollection___add))(variable[6], variable[12]) /*AbstractArray::add*/; - variable[13] = NEW_String_string___String___with_native(BOX_NativeString("void *"), TAG_Int(6)); /*new String*/ - ((array___AbstractArray___add_t)CALL(variable[6],COLOR_abstract_collection___SimpleCollection___add))(variable[6], variable[13]) /*AbstractArray::add*/; - variable[5] = variable[6]; - variable[6] = ((array___AbstractArray___length_t)CALL( variable[3] /*pnames*/,COLOR_abstract_collection___Collection___length))( variable[3] /*pnames*/) /*AbstractArray::length*/; - variable[7] = NEW_Range_range___Range___without_last( TAG_Int(0), variable[6]); /*new Range[Int]*/ - variable[6] = variable[7]; - variable[6] = ((range___Range___iterator_t)CALL(variable[6],COLOR_abstract_collection___Collection___iterator))(variable[6]) /*Range::iterator*/; - while (true) { /*for*/ - variable[7] = ((abstract_collection___Iterator___is_ok_t)CALL(variable[6],COLOR_abstract_collection___Iterator___is_ok))(variable[6]) /*Iterator::is_ok*/; - if (!UNTAG_Bool(variable[7])) break; /*for*/ - variable[7] = ((abstract_collection___Iterator___item_t)CALL(variable[6],COLOR_abstract_collection___Iterator___item))(variable[6]) /*Iterator::item*/; - variable[8] = variable[7]; - variable[10] = variable[3] /*pnames*/; - variable[11] = variable[8] /*i*/; - variable[13] = TAG_Bool(UNTAG_Int( variable[11] /*index*/)>=UNTAG_Int( TAG_Int(0))); - variable[14] = variable[13]; - if (UNTAG_Bool(variable[14])) { /* and */ - variable[14] = variable[10]; - variable[14] = ATTR_array___AbstractArray____length(variable[14]) /*AbstractArray::_length*/; - variable[14] = TAG_Bool(UNTAG_Int( variable[11] /*index*/)=UNTAG_Int( TAG_Int(0))); - variable[15] = variable[14]; - if (UNTAG_Bool(variable[15])) { /* and */ - variable[15] = variable[11]; - variable[15] = ATTR_array___AbstractArray____length(variable[15]) /*AbstractArray::_length*/; - variable[15] = TAG_Bool(UNTAG_Int( variable[12] /*index*/)=UNTAG_Int( TAG_Int(0))); - variable[15] = variable[14]; - if (UNTAG_Bool(variable[15])) { /* and */ - variable[15] = variable[11]; - variable[15] = ATTR_array___AbstractArray____length(variable[15]) /*AbstractArray::_length*/; - variable[15] = TAG_Bool(UNTAG_Int( variable[12] /*index*/)vft[INIT_TABLE_POS_CContext].i; + struct {struct stack_frame_t me;} fra; + val_t tmp; + if (init_table[itpos1]) return; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 145; + fra.me.meth = LOCATE_compiling_base___CContext___init; + fra.me.has_broke = 0; + fra.me.REG_size = 1; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[0] = p0; + /* ./compiling//compiling_base.nit:145 */ + stack_frame_head = fra.me.prev; + init_table[itpos1] = 1; return; } -val_t compiling_base___PrimitiveInfo___cname(val_t self) { - struct trace_t trace = {NULL, NULL, 232, LOCATE_compiling_base___PrimitiveInfo___cname}; - val_t *variable = NULL; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - tracehead = trace.prev; - return ATTR_compiling_base___PrimitiveInfo____cname( self) /*PrimitiveInfo::_cname*/; -} -void compiling_base___PrimitiveInfo___cname__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 232, LOCATE_compiling_base___PrimitiveInfo___cname__eq}; - val_t *variable = NULL; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - ATTR_compiling_base___PrimitiveInfo____cname( self) /*PrimitiveInfo::_cname*/ = param0; - tracehead = trace.prev; - return; +val_t compiling_base___MMGlobalProperty___meth_call(val_t p0){ + struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; + val_t REGB0; + val_t tmp; + static val_t once_value_1; /* Once value */ + static val_t once_value_2; /* Once value */ + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 149; + fra.me.meth = LOCATE_compiling_base___MMGlobalProperty___meth_call; + fra.me.has_broke = 0; + fra.me.REG_size = 3; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[2] = NIT_NULL; + fra.me.REG[0] = p0; + REGB0 = TAG_Int(3); + fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); + /* ./compiling//compiling_base.nit:152 */ + if (!once_value_1) { + fra.me.REG[2] = BOX_NativeString("CALL_"); + REGB0 = TAG_Int(5); + fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0); + once_value_1 = fra.me.REG[2]; + register_static_object(&once_value_1); + } else fra.me.REG[2] = once_value_1; + array___Array___add(fra.me.REG[1], fra.me.REG[2]); + fra.me.REG[0] = CALL_abstractmetamodel___MMGlobalProperty___intro(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[0] = CALL_compiling_base___MMLocalProperty___cname(fra.me.REG[0])(fra.me.REG[0]); + array___Array___add(fra.me.REG[1], fra.me.REG[0]); + if (!once_value_2) { + fra.me.REG[0] = BOX_NativeString(""); + REGB0 = TAG_Int(0); + fra.me.REG[0] = NEW_String_string___String___with_native(fra.me.REG[0], REGB0); + once_value_2 = fra.me.REG[0]; + register_static_object(&once_value_2); + } else fra.me.REG[0] = once_value_2; + array___Array___add(fra.me.REG[1], fra.me.REG[0]); + fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); + goto label3; + label3: while(0); + stack_frame_head = fra.me.prev; + return fra.me.REG[1]; } -void compiling_base___PrimitiveInfo___init(val_t self, int* init_table) { - struct trace_t trace = {NULL, NULL, 235, LOCATE_compiling_base___PrimitiveInfo___init}; - val_t variable[2]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - if (init_table[VAL2OBJ(variable[0])->vft[INIT_TABLE_POS_PrimitiveInfo].i]) return; - return_label24: while(false); - init_table[VAL2OBJ(variable[0])->vft[INIT_TABLE_POS_PrimitiveInfo].i] = 1; - tracehead = trace.prev; - return; +val_t compiling_base___MMGlobalProperty___attr_access(val_t p0){ + struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; + val_t REGB0; + val_t tmp; + static val_t once_value_1; /* Once value */ + static val_t once_value_2; /* Once value */ + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 155; + fra.me.meth = LOCATE_compiling_base___MMGlobalProperty___attr_access; + fra.me.has_broke = 0; + fra.me.REG_size = 3; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[2] = NIT_NULL; + fra.me.REG[0] = p0; + REGB0 = TAG_Int(3); + fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); + /* ./compiling//compiling_base.nit:158 */ + if (!once_value_1) { + fra.me.REG[2] = BOX_NativeString("ATTR_"); + REGB0 = TAG_Int(5); + fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0); + once_value_1 = fra.me.REG[2]; + register_static_object(&once_value_1); + } else fra.me.REG[2] = once_value_1; + array___Array___add(fra.me.REG[1], fra.me.REG[2]); + fra.me.REG[0] = CALL_abstractmetamodel___MMGlobalProperty___intro(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[0] = CALL_compiling_base___MMLocalProperty___cname(fra.me.REG[0])(fra.me.REG[0]); + array___Array___add(fra.me.REG[1], fra.me.REG[0]); + if (!once_value_2) { + fra.me.REG[0] = BOX_NativeString(""); + REGB0 = TAG_Int(0); + fra.me.REG[0] = NEW_String_string___String___with_native(fra.me.REG[0], REGB0); + once_value_2 = fra.me.REG[0]; + register_static_object(&once_value_2); + } else fra.me.REG[0] = once_value_2; + array___Array___add(fra.me.REG[1], fra.me.REG[0]); + fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); + goto label3; + label3: while(0); + stack_frame_head = fra.me.prev; + return fra.me.REG[1]; } -val_t compiling_base___MMType___cname(val_t self) { - struct trace_t trace = {NULL, NULL, 239, LOCATE_compiling_base___MMType___cname}; - val_t variable[4]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - variable[3] = variable[0]; - variable[3] = ((static_type___MMType___local_class_t)CALL(variable[3],COLOR_static_type___MMType___local_class))(variable[3]) /*MMType::local_class*/; - variable[3] = ((compiling_base___MMLocalClass___primitive_info_t)CALL(variable[3],COLOR_compiling_base___MMLocalClass___primitive_info))(variable[3]) /*MMLocalClass::primitive_info*/; - variable[2] = variable[3]; - variable[3] = TAG_Bool(( variable[2] /*pi*/ == NIT_NULL /*null*/) || (( variable[2] /*pi*/ != NIT_NULL) && ((((kernel___Object_____eqeq_t)CALL( variable[2] /*pi*/,COLOR_kernel___Object_____eqeq))==kernel___Object_____eqeq)?(IS_EQUAL_NN( variable[2] /*pi*/, NIT_NULL /*null*/)):(UNTAG_Bool(((kernel___Object_____eqeq_t)CALL( variable[2] /*pi*/,COLOR_kernel___Object_____eqeq))( variable[2] /*pi*/, NIT_NULL /*null*/) /*Object::==*/))))); - if (UNTAG_Bool(variable[3])) { /*if*/ - variable[3] = NEW_String_string___String___with_native(BOX_NativeString("val_t"), TAG_Int(5)); /*new String*/ - variable[1] = variable[3]; - goto return_label25; - } else { /*if*/ - variable[3] = ((compiling_base___PrimitiveInfo___cname_t)CALL( variable[2] /*pi*/,COLOR_compiling_base___PrimitiveInfo___cname))( variable[2] /*pi*/) /*PrimitiveInfo::cname*/; - variable[1] = variable[3]; - goto return_label25; - } - return_label25: while(false); - tracehead = trace.prev; - return variable[1]; +val_t compiling_base___MMGlobalClass___id_id(val_t p0){ + struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; + val_t REGB0; + val_t tmp; + static val_t once_value_1; /* Once value */ + static val_t once_value_2; /* Once value */ + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 163; + fra.me.meth = LOCATE_compiling_base___MMGlobalClass___id_id; + fra.me.has_broke = 0; + fra.me.REG_size = 3; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[2] = NIT_NULL; + fra.me.REG[0] = p0; + REGB0 = TAG_Int(3); + fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); + /* ./compiling//compiling_base.nit:166 */ + if (!once_value_1) { + fra.me.REG[2] = BOX_NativeString("ID_"); + REGB0 = TAG_Int(3); + fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0); + once_value_1 = fra.me.REG[2]; + register_static_object(&once_value_1); + } else fra.me.REG[2] = once_value_1; + array___Array___add(fra.me.REG[1], fra.me.REG[2]); + fra.me.REG[0] = CALL_abstractmetamodel___MMGlobalClass___intro(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[0] = CALL_abstractmetamodel___MMLocalClass___name(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[0] = CALL_string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); + array___Array___add(fra.me.REG[1], fra.me.REG[0]); + if (!once_value_2) { + fra.me.REG[0] = BOX_NativeString(""); + REGB0 = TAG_Int(0); + fra.me.REG[0] = NEW_String_string___String___with_native(fra.me.REG[0], REGB0); + once_value_2 = fra.me.REG[0]; + register_static_object(&once_value_2); + } else fra.me.REG[0] = once_value_2; + array___Array___add(fra.me.REG[1], fra.me.REG[0]); + fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); + goto label3; + label3: while(0); + stack_frame_head = fra.me.prev; + return fra.me.REG[1]; } -val_t compiling_base___MMType___default_cvalue(val_t self) { - struct trace_t trace = {NULL, NULL, 250, LOCATE_compiling_base___MMType___default_cvalue}; - val_t variable[14]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - variable[3] = variable[0]; - variable[3] = ((static_type___MMType___local_class_t)CALL(variable[3],COLOR_static_type___MMType___local_class))(variable[3]) /*MMType::local_class*/; - variable[3] = ((compiling_base___MMLocalClass___primitive_info_t)CALL(variable[3],COLOR_compiling_base___MMLocalClass___primitive_info))(variable[3]) /*MMLocalClass::primitive_info*/; - variable[2] = variable[3]; - variable[3] = TAG_Bool(!UNTAG_Bool(TAG_Bool(( variable[2] /*pi*/ == NIT_NULL /*null*/) || (( variable[2] /*pi*/ != NIT_NULL) && ((((kernel___Object_____eqeq_t)CALL( variable[2] /*pi*/,COLOR_kernel___Object_____eqeq))==kernel___Object_____eqeq)?(IS_EQUAL_NN( variable[2] /*pi*/, NIT_NULL /*null*/)):(UNTAG_Bool(((kernel___Object_____eqeq_t)CALL( variable[2] /*pi*/,COLOR_kernel___Object_____eqeq))( variable[2] /*pi*/, NIT_NULL /*null*/) /*Object::==*/))))))); - variable[4] = variable[3]; - if (UNTAG_Bool(variable[4])) { /* and */ - variable[4] = ((compiling_base___PrimitiveInfo___tagged_t)CALL( variable[2] /*pi*/,COLOR_compiling_base___PrimitiveInfo___tagged))( variable[2] /*pi*/) /*PrimitiveInfo::tagged*/; - } - variable[3] = variable[4]; - if (UNTAG_Bool(variable[3])) { /*if*/ - variable[3] = NEW_String_string___String___init(); /*new String*/ - variable[4] = NEW_String_string___String___with_native(BOX_NativeString("TAG_"), TAG_Int(4)); /*new String*/ - variable[5] = variable[4]; - ((string___String___append_t)CALL(variable[3],COLOR_abstract_collection___IndexedCollection___append))(variable[3], variable[5]) /*String::append*/; - variable[6] = variable[0]; - variable[6] = ((static_type___MMType___local_class_t)CALL(variable[6],COLOR_static_type___MMType___local_class))(variable[6]) /*MMType::local_class*/; - variable[6] = ((abstractmetamodel___MMLocalClass___name_t)CALL(variable[6],COLOR_abstractmetamodel___MMLocalClass___name))(variable[6]) /*MMLocalClass::name*/; - variable[7] = variable[6]; - variable[7] = ((string___String___to_s_t)CALL(variable[7],COLOR_string___Object___to_s))(variable[7]) /*String::to_s*/; - ((string___String___append_t)CALL(variable[3],COLOR_abstract_collection___IndexedCollection___append))(variable[3], variable[7]) /*String::append*/; - variable[8] = NEW_String_string___String___with_native(BOX_NativeString("(("), TAG_Int(2)); /*new String*/ - variable[9] = variable[8]; - ((string___String___append_t)CALL(variable[3],COLOR_abstract_collection___IndexedCollection___append))(variable[3], variable[9]) /*String::append*/; - variable[10] = ((compiling_base___PrimitiveInfo___cname_t)CALL( variable[2] /*pi*/,COLOR_compiling_base___PrimitiveInfo___cname))( variable[2] /*pi*/) /*PrimitiveInfo::cname*/; - variable[11] = variable[10]; - ((string___String___append_t)CALL(variable[3],COLOR_abstract_collection___IndexedCollection___append))(variable[3], variable[11]) /*String::append*/; - variable[12] = NEW_String_string___String___with_native(BOX_NativeString(")0)"), TAG_Int(3)); /*new String*/ - variable[13] = variable[12]; - ((string___String___append_t)CALL(variable[3],COLOR_abstract_collection___IndexedCollection___append))(variable[3], variable[13]) /*String::append*/; - variable[1] = variable[3]; - goto return_label26; - } else { /*if*/ - variable[3] = NEW_String_string___String___with_native(BOX_NativeString("NIT_NULL"), TAG_Int(8)); /*new String*/ - variable[1] = variable[3]; - goto return_label26; - } - return_label26: while(false); - tracehead = trace.prev; - return variable[1]; +val_t compiling_base___MMGlobalClass___color_id(val_t p0){ + struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; + val_t REGB0; + val_t tmp; + static val_t once_value_1; /* Once value */ + static val_t once_value_2; /* Once value */ + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 169; + fra.me.meth = LOCATE_compiling_base___MMGlobalClass___color_id; + fra.me.has_broke = 0; + fra.me.REG_size = 3; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[2] = NIT_NULL; + fra.me.REG[0] = p0; + REGB0 = TAG_Int(3); + fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); + /* ./compiling//compiling_base.nit:172 */ + if (!once_value_1) { + fra.me.REG[2] = BOX_NativeString("COLOR_"); + REGB0 = TAG_Int(6); + fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0); + once_value_1 = fra.me.REG[2]; + register_static_object(&once_value_1); + } else fra.me.REG[2] = once_value_1; + array___Array___add(fra.me.REG[1], fra.me.REG[2]); + fra.me.REG[0] = CALL_abstractmetamodel___MMGlobalClass___intro(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[0] = CALL_abstractmetamodel___MMLocalClass___name(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[0] = CALL_string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); + array___Array___add(fra.me.REG[1], fra.me.REG[0]); + if (!once_value_2) { + fra.me.REG[0] = BOX_NativeString(""); + REGB0 = TAG_Int(0); + fra.me.REG[0] = NEW_String_string___String___with_native(fra.me.REG[0], REGB0); + once_value_2 = fra.me.REG[0]; + register_static_object(&once_value_2); + } else fra.me.REG[0] = once_value_2; + array___Array___add(fra.me.REG[1], fra.me.REG[0]); + fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); + goto label3; + label3: while(0); + stack_frame_head = fra.me.prev; + return fra.me.REG[1]; } -val_t compiling_base___MMType___boxtype(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 262, LOCATE_compiling_base___MMType___boxtype}; - val_t variable[14]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - variable[1] = param0; - variable[4] = variable[0]; - variable[4] = ((static_type___MMType___local_class_t)CALL(variable[4],COLOR_static_type___MMType___local_class))(variable[4]) /*MMType::local_class*/; - variable[4] = ((compiling_base___MMLocalClass___primitive_info_t)CALL(variable[4],COLOR_compiling_base___MMLocalClass___primitive_info))(variable[4]) /*MMLocalClass::primitive_info*/; - variable[3] = variable[4]; - variable[4] = TAG_Bool(( variable[3] /*pi*/ == NIT_NULL /*null*/) || (( variable[3] /*pi*/ != NIT_NULL) && ((((kernel___Object_____eqeq_t)CALL( variable[3] /*pi*/,COLOR_kernel___Object_____eqeq))==kernel___Object_____eqeq)?(IS_EQUAL_NN( variable[3] /*pi*/, NIT_NULL /*null*/)):(UNTAG_Bool(((kernel___Object_____eqeq_t)CALL( variable[3] /*pi*/,COLOR_kernel___Object_____eqeq))( variable[3] /*pi*/, NIT_NULL /*null*/) /*Object::==*/))))); - if (UNTAG_Bool(variable[4])) { /*if*/ - variable[2] = variable[1] /*s*/; - goto return_label27; - } else { /*if*/ - variable[4] = ((compiling_base___PrimitiveInfo___tagged_t)CALL( variable[3] /*pi*/,COLOR_compiling_base___PrimitiveInfo___tagged))( variable[3] /*pi*/) /*PrimitiveInfo::tagged*/; - if (UNTAG_Bool(variable[4])) { /*if*/ - variable[4] = NEW_String_string___String___init(); /*new String*/ - variable[5] = NEW_String_string___String___with_native(BOX_NativeString("TAG_"), TAG_Int(4)); /*new String*/ - variable[6] = variable[5]; - ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[6]) /*String::append*/; - variable[7] = variable[0]; - variable[7] = ((static_type___MMType___local_class_t)CALL(variable[7],COLOR_static_type___MMType___local_class))(variable[7]) /*MMType::local_class*/; - variable[7] = ((abstractmetamodel___MMLocalClass___name_t)CALL(variable[7],COLOR_abstractmetamodel___MMLocalClass___name))(variable[7]) /*MMLocalClass::name*/; - variable[8] = variable[7]; - variable[8] = ((string___String___to_s_t)CALL(variable[8],COLOR_string___Object___to_s))(variable[8]) /*String::to_s*/; - ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[8]) /*String::append*/; - variable[9] = NEW_String_string___String___with_native(BOX_NativeString("("), TAG_Int(1)); /*new String*/ - variable[10] = variable[9]; - ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[10]) /*String::append*/; - variable[11] = variable[1] /*s*/; - ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[11]) /*String::append*/; - variable[12] = NEW_String_string___String___with_native(BOX_NativeString(")"), TAG_Int(1)); /*new String*/ - variable[13] = variable[12]; - ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[13]) /*String::append*/; - variable[2] = variable[4]; - goto return_label27; - } else { /*if*/ - variable[4] = NEW_String_string___String___init(); /*new String*/ - variable[5] = NEW_String_string___String___with_native(BOX_NativeString("BOX_"), TAG_Int(4)); /*new String*/ - variable[6] = variable[5]; - ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[6]) /*String::append*/; - variable[7] = variable[0]; - variable[7] = ((static_type___MMType___local_class_t)CALL(variable[7],COLOR_static_type___MMType___local_class))(variable[7]) /*MMType::local_class*/; - variable[7] = ((abstractmetamodel___MMLocalClass___name_t)CALL(variable[7],COLOR_abstractmetamodel___MMLocalClass___name))(variable[7]) /*MMLocalClass::name*/; - variable[8] = variable[7]; - variable[8] = ((string___String___to_s_t)CALL(variable[8],COLOR_string___Object___to_s))(variable[8]) /*String::to_s*/; - ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[8]) /*String::append*/; - variable[9] = NEW_String_string___String___with_native(BOX_NativeString("("), TAG_Int(1)); /*new String*/ - variable[10] = variable[9]; - ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[10]) /*String::append*/; - variable[11] = variable[1] /*s*/; - ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[11]) /*String::append*/; - variable[12] = NEW_String_string___String___with_native(BOX_NativeString(")"), TAG_Int(1)); /*new String*/ - variable[13] = variable[12]; - ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[13]) /*String::append*/; - variable[2] = variable[4]; - goto return_label27; - } - } - return_label27: while(false); - tracehead = trace.prev; - return variable[2]; +val_t compiling_base___MMGlobalClass___init_table_pos_id(val_t p0){ + struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; + val_t REGB0; + val_t tmp; + static val_t once_value_1; /* Once value */ + static val_t once_value_2; /* Once value */ + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 175; + fra.me.meth = LOCATE_compiling_base___MMGlobalClass___init_table_pos_id; + fra.me.has_broke = 0; + fra.me.REG_size = 3; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[2] = NIT_NULL; + fra.me.REG[0] = p0; + REGB0 = TAG_Int(3); + fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); + /* ./compiling//compiling_base.nit:178 */ + if (!once_value_1) { + fra.me.REG[2] = BOX_NativeString("INIT_TABLE_POS_"); + REGB0 = TAG_Int(15); + fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0); + once_value_1 = fra.me.REG[2]; + register_static_object(&once_value_1); + } else fra.me.REG[2] = once_value_1; + array___Array___add(fra.me.REG[1], fra.me.REG[2]); + fra.me.REG[0] = CALL_abstractmetamodel___MMGlobalClass___intro(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[0] = CALL_abstractmetamodel___MMLocalClass___name(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[0] = CALL_string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); + array___Array___add(fra.me.REG[1], fra.me.REG[0]); + if (!once_value_2) { + fra.me.REG[0] = BOX_NativeString(""); + REGB0 = TAG_Int(0); + fra.me.REG[0] = NEW_String_string___String___with_native(fra.me.REG[0], REGB0); + once_value_2 = fra.me.REG[0]; + register_static_object(&once_value_2); + } else fra.me.REG[0] = once_value_2; + array___Array___add(fra.me.REG[1], fra.me.REG[0]); + fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); + goto label3; + label3: while(0); + stack_frame_head = fra.me.prev; + return fra.me.REG[1]; } -val_t compiling_base___MMType___unboxtype(val_t self, val_t param0) { - struct trace_t trace = {NULL, NULL, 276, LOCATE_compiling_base___MMType___unboxtype}; - val_t variable[14]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - variable[1] = param0; - variable[4] = variable[0]; - variable[4] = ((static_type___MMType___local_class_t)CALL(variable[4],COLOR_static_type___MMType___local_class))(variable[4]) /*MMType::local_class*/; - variable[4] = ((compiling_base___MMLocalClass___primitive_info_t)CALL(variable[4],COLOR_compiling_base___MMLocalClass___primitive_info))(variable[4]) /*MMLocalClass::primitive_info*/; - variable[3] = variable[4]; - variable[4] = TAG_Bool(( variable[3] /*pi*/ == NIT_NULL /*null*/) || (( variable[3] /*pi*/ != NIT_NULL) && ((((kernel___Object_____eqeq_t)CALL( variable[3] /*pi*/,COLOR_kernel___Object_____eqeq))==kernel___Object_____eqeq)?(IS_EQUAL_NN( variable[3] /*pi*/, NIT_NULL /*null*/)):(UNTAG_Bool(((kernel___Object_____eqeq_t)CALL( variable[3] /*pi*/,COLOR_kernel___Object_____eqeq))( variable[3] /*pi*/, NIT_NULL /*null*/) /*Object::==*/))))); - if (UNTAG_Bool(variable[4])) { /*if*/ - variable[2] = variable[1] /*s*/; - goto return_label28; - } else { /*if*/ - variable[4] = ((compiling_base___PrimitiveInfo___tagged_t)CALL( variable[3] /*pi*/,COLOR_compiling_base___PrimitiveInfo___tagged))( variable[3] /*pi*/) /*PrimitiveInfo::tagged*/; - if (UNTAG_Bool(variable[4])) { /*if*/ - variable[4] = NEW_String_string___String___init(); /*new String*/ - variable[5] = NEW_String_string___String___with_native(BOX_NativeString("UNTAG_"), TAG_Int(6)); /*new String*/ - variable[6] = variable[5]; - ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[6]) /*String::append*/; - variable[7] = variable[0]; - variable[7] = ((static_type___MMType___local_class_t)CALL(variable[7],COLOR_static_type___MMType___local_class))(variable[7]) /*MMType::local_class*/; - variable[7] = ((abstractmetamodel___MMLocalClass___name_t)CALL(variable[7],COLOR_abstractmetamodel___MMLocalClass___name))(variable[7]) /*MMLocalClass::name*/; - variable[8] = variable[7]; - variable[8] = ((string___String___to_s_t)CALL(variable[8],COLOR_string___Object___to_s))(variable[8]) /*String::to_s*/; - ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[8]) /*String::append*/; - variable[9] = NEW_String_string___String___with_native(BOX_NativeString("("), TAG_Int(1)); /*new String*/ - variable[10] = variable[9]; - ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[10]) /*String::append*/; - variable[11] = variable[1] /*s*/; - ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[11]) /*String::append*/; - variable[12] = NEW_String_string___String___with_native(BOX_NativeString(")"), TAG_Int(1)); /*new String*/ - variable[13] = variable[12]; - ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[13]) /*String::append*/; - variable[2] = variable[4]; - goto return_label28; - } else { /*if*/ - variable[4] = NEW_String_string___String___init(); /*new String*/ - variable[5] = NEW_String_string___String___with_native(BOX_NativeString("UNBOX_"), TAG_Int(6)); /*new String*/ - variable[6] = variable[5]; - ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[6]) /*String::append*/; - variable[7] = variable[0]; - variable[7] = ((static_type___MMType___local_class_t)CALL(variable[7],COLOR_static_type___MMType___local_class))(variable[7]) /*MMType::local_class*/; - variable[7] = ((abstractmetamodel___MMLocalClass___name_t)CALL(variable[7],COLOR_abstractmetamodel___MMLocalClass___name))(variable[7]) /*MMLocalClass::name*/; - variable[8] = variable[7]; - variable[8] = ((string___String___to_s_t)CALL(variable[8],COLOR_string___Object___to_s))(variable[8]) /*String::to_s*/; - ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[8]) /*String::append*/; - variable[9] = NEW_String_string___String___with_native(BOX_NativeString("("), TAG_Int(1)); /*new String*/ - variable[10] = variable[9]; - ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[10]) /*String::append*/; - variable[11] = variable[1] /*s*/; - ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[11]) /*String::append*/; - variable[12] = NEW_String_string___String___with_native(BOX_NativeString(")"), TAG_Int(1)); /*new String*/ - variable[13] = variable[12]; - ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[13]) /*String::append*/; - variable[2] = variable[4]; - goto return_label28; +val_t compiling_base___MMLocalProperty___cname(val_t p0){ + struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; + val_t REGB0; + val_t REGB1; + val_t tmp; + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 186; + fra.me.meth = LOCATE_compiling_base___MMLocalProperty___cname; + fra.me.has_broke = 0; + fra.me.REG_size = 4; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[2] = NIT_NULL; + fra.me.REG[3] = NIT_NULL; + fra.me.REG[0] = p0; + fra.me.REG[1] = ATTR_compiling_base___MMLocalProperty____cname_cache(fra.me.REG[0]); + REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL); + /* ./compiling//compiling_base.nit:190 */ + if (UNTAG_Bool(REGB0)) { + } else { + REGB1 = TAG_Bool(fra.me.REG[1]==NIT_NULL); + if (UNTAG_Bool(REGB1)) { + REGB1 = TAG_Bool(false); + REGB0 = REGB1; + } else { + REGB1 = CALL_kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], NIT_NULL); + REGB0 = REGB1; } } - return_label28: while(false); - tracehead = trace.prev; - return variable[2]; -} -val_t compiling_base___MMLocalProperty___cname(val_t self) { - struct trace_t trace = {NULL, NULL, 295, LOCATE_compiling_base___MMLocalProperty___cname}; - val_t variable[8]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - variable[2] = variable[0]; - variable[2] = ATTR_compiling_base___MMLocalProperty____cname_cache(variable[2]) /*MMLocalProperty::_cname_cache*/; - variable[2] = TAG_Bool((variable[2] == NIT_NULL /*null*/) || ((variable[2] != NIT_NULL) && UNTAG_Bool(((string___String_____eqeq_t)CALL(variable[2],COLOR_kernel___Object_____eqeq))(variable[2], NIT_NULL /*null*/) /*String::==*/))); - if (UNTAG_Bool(variable[2])) { /*if*/ - variable[2] = variable[0]; - variable[3] = variable[0]; - variable[4] = NEW_Array_array___Array___with_capacity(TAG_Int(3)); /*new Array[Symbol]*/ - variable[5] = variable[0]; - variable[5] = ((abstractmetamodel___MMLocalProperty___module_t)CALL(variable[5],COLOR_abstractmetamodel___MMLocalProperty___module))(variable[5]) /*MMLocalProperty::module*/; - variable[5] = ((abstractmetamodel___MMModule___name_t)CALL(variable[5],COLOR_abstractmetamodel___MMModule___name))(variable[5]) /*MMModule::name*/; - ((array___AbstractArray___add_t)CALL(variable[4],COLOR_abstract_collection___SimpleCollection___add))(variable[4], variable[5]) /*AbstractArray::add*/; - variable[6] = variable[0]; - variable[6] = ((abstractmetamodel___MMLocalProperty___local_class_t)CALL(variable[6],COLOR_abstractmetamodel___MMLocalProperty___local_class))(variable[6]) /*MMLocalProperty::local_class*/; - variable[6] = ((abstractmetamodel___MMLocalClass___name_t)CALL(variable[6],COLOR_abstractmetamodel___MMLocalClass___name))(variable[6]) /*MMLocalClass::name*/; - ((array___AbstractArray___add_t)CALL(variable[4],COLOR_abstract_collection___SimpleCollection___add))(variable[4], variable[6]) /*AbstractArray::add*/; - variable[7] = variable[0]; - variable[7] = ((abstractmetamodel___MMLocalProperty___name_t)CALL(variable[7],COLOR_abstractmetamodel___MMLocalProperty___name))(variable[7]) /*MMLocalProperty::name*/; - ((array___AbstractArray___add_t)CALL(variable[4],COLOR_abstract_collection___SimpleCollection___add))(variable[4], variable[7]) /*AbstractArray::add*/; - variable[3] = ((utils___Object___cmangle_t)CALL(variable[3],COLOR_utils___Object___cmangle))(variable[3], variable[4]) /*Object::cmangle*/; - ATTR_compiling_base___MMLocalProperty____cname_cache(variable[2]) /*MMLocalProperty::_cname_cache*/ = variable[3]; + if (UNTAG_Bool(REGB0)) { + REGB0 = TAG_Int(2); + fra.me.REG[2] = NEW_Array_array___Array___with_capacity(REGB0); + fra.me.REG[3] = CALL_abstractmetamodel___MMLocalProperty___module(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[3] = CALL_abstractmetamodel___MMModule___name(fra.me.REG[3])(fra.me.REG[3]); + /* ./compiling//compiling_base.nit:191 */ + array___Array___add(fra.me.REG[2], fra.me.REG[3]); + fra.me.REG[3] = CALL_abstractmetamodel___MMLocalProperty___local_class(fra.me.REG[0])(fra.me.REG[0]); + fra.me.REG[3] = CALL_abstractmetamodel___MMLocalClass___name(fra.me.REG[3])(fra.me.REG[3]); + array___Array___add(fra.me.REG[2], fra.me.REG[3]); + fra.me.REG[3] = CALL_abstractmetamodel___MMLocalProperty___name(fra.me.REG[0])(fra.me.REG[0]); + array___Array___add(fra.me.REG[2], fra.me.REG[3]); + fra.me.REG[2] = CALL_utils___Object___cmangle(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]); + fra.me.REG[1] = fra.me.REG[2]; + /* ./compiling//compiling_base.nit:192 */ + ATTR_compiling_base___MMLocalProperty____cname_cache(fra.me.REG[0]) = fra.me.REG[1]; } - variable[2] = variable[0]; - variable[2] = ATTR_compiling_base___MMLocalProperty____cname_cache(variable[2]) /*MMLocalProperty::_cname_cache*/; - variable[1] = variable[2]; - goto return_label29; - return_label29: while(false); - tracehead = trace.prev; - return variable[1]; + /* ./compiling//compiling_base.nit:194 */ + goto label1; + label1: while(0); + stack_frame_head = fra.me.prev; + return fra.me.REG[1]; } -val_t compiling_base___MMLocalProperty___color_id_for_super(val_t self) { - struct trace_t trace = {NULL, NULL, 304, LOCATE_compiling_base___MMLocalProperty___color_id_for_super}; - val_t variable[9]; - void **closurevariable = NULL; - trace.prev = tracehead; tracehead = &trace; - trace.file = LOCATE_compiling_base; - variable[0] = self; - variable[2] = NEW_String_string___String___init(); /*new String*/ - variable[3] = NEW_String_string___String___with_native(BOX_NativeString("COLOR_SUPER_"), TAG_Int(12)); /*new String*/ - variable[4] = variable[3]; - ((string___String___append_t)CALL(variable[2],COLOR_abstract_collection___IndexedCollection___append))(variable[2], variable[4]) /*String::append*/; - variable[5] = variable[0]; - variable[5] = ((compiling_base___MMLocalProperty___cname_t)CALL(variable[5],COLOR_compiling_base___MMLocalProperty___cname))(variable[5]) /*MMLocalProperty::cname*/; - variable[6] = variable[5]; - ((string___String___append_t)CALL(variable[2],COLOR_abstract_collection___IndexedCollection___append))(variable[2], variable[6]) /*String::append*/; - variable[7] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/ - variable[8] = variable[7]; - ((string___String___append_t)CALL(variable[2],COLOR_abstract_collection___IndexedCollection___append))(variable[2], variable[8]) /*String::append*/; - variable[1] = variable[2]; - goto return_label30; - return_label30: while(false); - tracehead = trace.prev; - return variable[1]; +val_t compiling_base___MMLocalProperty___super_meth_call(val_t p0){ + struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; + val_t REGB0; + val_t tmp; + static val_t once_value_1; /* Once value */ + static val_t once_value_2; /* Once value */ + fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; + fra.me.file = LOCATE_compiling_base; + fra.me.line = 197; + fra.me.meth = LOCATE_compiling_base___MMLocalProperty___super_meth_call; + fra.me.has_broke = 0; + fra.me.REG_size = 3; + fra.me.REG[0] = NIT_NULL; + fra.me.REG[1] = NIT_NULL; + fra.me.REG[2] = NIT_NULL; + fra.me.REG[0] = p0; + REGB0 = TAG_Int(3); + fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); + /* ./compiling//compiling_base.nit:200 */ + if (!once_value_1) { + fra.me.REG[2] = BOX_NativeString("CALL_SUPER_"); + REGB0 = TAG_Int(11); + fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0); + once_value_1 = fra.me.REG[2]; + register_static_object(&once_value_1); + } else fra.me.REG[2] = once_value_1; + array___Array___add(fra.me.REG[1], fra.me.REG[2]); + fra.me.REG[0] = CALL_compiling_base___MMLocalProperty___cname(fra.me.REG[0])(fra.me.REG[0]); + array___Array___add(fra.me.REG[1], fra.me.REG[0]); + if (!once_value_2) { + fra.me.REG[0] = BOX_NativeString(""); + REGB0 = TAG_Int(0); + fra.me.REG[0] = NEW_String_string___String___with_native(fra.me.REG[0], REGB0); + once_value_2 = fra.me.REG[0]; + register_static_object(&once_value_2); + } else fra.me.REG[0] = once_value_2; + array___Array___add(fra.me.REG[1], fra.me.REG[0]); + fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); + goto label3; + label3: while(0); + stack_frame_head = fra.me.prev; + return fra.me.REG[1]; }