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;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
tracehead = trace.prev;
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;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
ATTR_compiling_base___ToolContext____global( self) /*ToolContext::_global*/ = param0;
val_t compiling_base___ToolContext___compdir(val_t self) {
struct trace_t trace = {NULL, NULL, 25, LOCATE_compiling_base___ToolContext___compdir};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
tracehead = trace.prev;
void compiling_base___ToolContext___compdir__eq(val_t self, val_t param0) {
struct trace_t trace = {NULL, NULL, 25, LOCATE_compiling_base___ToolContext___compdir__eq};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
ATTR_compiling_base___ToolContext____compdir( self) /*ToolContext::_compdir*/ = param0;
val_t compiling_base___ToolContext___clibdir(val_t self) {
struct trace_t trace = {NULL, NULL, 26, LOCATE_compiling_base___ToolContext___clibdir};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
tracehead = trace.prev;
void compiling_base___ToolContext___clibdir__eq(val_t self, val_t param0) {
struct trace_t trace = {NULL, NULL, 26, LOCATE_compiling_base___ToolContext___clibdir__eq};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
ATTR_compiling_base___ToolContext____clibdir( self) /*ToolContext::_clibdir*/ = param0;
val_t compiling_base___ToolContext___bindir(val_t self) {
struct trace_t trace = {NULL, NULL, 27, LOCATE_compiling_base___ToolContext___bindir};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
tracehead = trace.prev;
void compiling_base___ToolContext___bindir__eq(val_t self, val_t param0) {
struct trace_t trace = {NULL, NULL, 27, LOCATE_compiling_base___ToolContext___bindir__eq};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
ATTR_compiling_base___ToolContext____bindir( self) /*ToolContext::_bindir*/ = param0;
val_t compiling_base___ToolContext___output_file(val_t self) {
struct trace_t trace = {NULL, NULL, 28, LOCATE_compiling_base___ToolContext___output_file};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
tracehead = trace.prev;
void compiling_base___ToolContext___output_file__eq(val_t self, val_t param0) {
struct trace_t trace = {NULL, NULL, 28, LOCATE_compiling_base___ToolContext___output_file__eq};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
ATTR_compiling_base___ToolContext____output_file( self) /*ToolContext::_output_file*/ = param0;
val_t compiling_base___ToolContext___boost(val_t self) {
struct trace_t trace = {NULL, NULL, 29, LOCATE_compiling_base___ToolContext___boost};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
tracehead = trace.prev;
void compiling_base___ToolContext___boost__eq(val_t self, val_t param0) {
struct trace_t trace = {NULL, NULL, 29, LOCATE_compiling_base___ToolContext___boost__eq};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
ATTR_compiling_base___ToolContext____boost( self) /*ToolContext::_boost*/ = param0;
val_t compiling_base___ToolContext___no_cc(val_t self) {
struct trace_t trace = {NULL, NULL, 30, LOCATE_compiling_base___ToolContext___no_cc};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
tracehead = trace.prev;
void compiling_base___ToolContext___no_cc__eq(val_t self, val_t param0) {
struct trace_t trace = {NULL, NULL, 30, LOCATE_compiling_base___ToolContext___no_cc__eq};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
ATTR_compiling_base___ToolContext____no_cc( self) /*ToolContext::_no_cc*/ = param0;
val_t compiling_base___ToolContext___ext_prefix(val_t self) {
struct trace_t trace = {NULL, NULL, 31, LOCATE_compiling_base___ToolContext___ext_prefix};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
tracehead = trace.prev;
void compiling_base___ToolContext___ext_prefix__eq(val_t self, val_t param0) {
struct trace_t trace = {NULL, NULL, 31, LOCATE_compiling_base___ToolContext___ext_prefix__eq};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
ATTR_compiling_base___ToolContext____ext_prefix( self) /*ToolContext::_ext_prefix*/ = param0;
}
val_t compiling_base___CompilerVisitor___to_s(val_t self) {
struct trace_t trace = {NULL, NULL, 79, LOCATE_compiling_base___CompilerVisitor___to_s};
+ static val_t once_value_1 = NIT_NULL; /* Once value for string variable[3]*/
+ static val_t once_value_2 = NIT_NULL; /* Once value for string variable[3]*/
val_t variable[4];
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
- variable[3] = NEW_Array_array___Array___init(); /*new Array[String]*/
+ /* Register variable[1]: Method return value and escape marker */
+ /* Register variable[2]: Local variable */
+ /* Register variable[3]: Result */
+ variable[3] = NEW_Array_array___Array___init() /*new Array[String]*/;
variable[2] = variable[3];
- variable[3] = variable[0];
- variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[3]) /*CompilerVisitor::_ctx*/;
+ /* Register variable[3]: Result */
+ variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[0]) /*CompilerVisitor::_ctx*/;
+ /* Register variable[3]: Result */
variable[3] = CALL_compiling_base___CContext___decls(variable[3])(variable[3]) /*CContext::decls*/;
CALL_abstract_collection___IndexedCollection___append( variable[2] /*out*/)( variable[2] /*out*/, variable[3]) /*IndexedCollection::append*/;
- variable[3] = variable[0];
- variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[3]) /*CompilerVisitor::_ctx*/;
+ /* Register variable[3]: Result */
+ variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[0]) /*CompilerVisitor::_ctx*/;
+ /* Register variable[3]: Result */
variable[3] = CALL_compiling_base___CContext___instrs(variable[3])(variable[3]) /*CContext::instrs*/;
CALL_abstract_collection___IndexedCollection___append( variable[2] /*out*/)( variable[2] /*out*/, variable[3]) /*IndexedCollection::append*/;
- variable[3] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
+ /* Register variable[3]: Once String constant */
+ if (once_value_1 != NIT_NULL) variable[3] = once_value_1;
+ else {
+ variable[3] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)) /*new String*/;
+ once_value_1 = variable[3];
+ }
+ /* Register variable[3]: Result */
CALL_abstract_collection___SimpleCollection___add( variable[2] /*out*/)( variable[2] /*out*/, variable[3]) /*AbstractArray::add*/;
- variable[3] = NEW_String_string___String___with_native(BOX_NativeString("\n"), TAG_Int(1)); /*new String*/
+ /* Register variable[3]: Once String constant */
+ if (once_value_2 != NIT_NULL) variable[3] = once_value_2;
+ else {
+ variable[3] = NEW_String_string___String___with_native(BOX_NativeString("\n"), TAG_Int(1)) /*new String*/;
+ once_value_2 = variable[3];
+ }
+ /* Register variable[3]: Result */
+ /* Register variable[3]: Result */
variable[3] = CALL_string___Collection___join( variable[2] /*out*/)( variable[2] /*out*/, variable[3]) /*Collection::join*/;
variable[1] = variable[3];
goto return_label0;
}
void compiling_base___CompilerVisitor___add_decl(val_t self, val_t param0) {
struct trace_t trace = {NULL, NULL, 38, LOCATE_compiling_base___CompilerVisitor___add_decl};
+ static val_t once_value_4 = NIT_NULL; /* Once value for string variable[4]*/
+ static val_t once_value_5 = NIT_NULL; /* Once value for string variable[4]*/
val_t variable[6];
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
+ /* Register variable[1]: Local variable */
variable[1] = param0;
- variable[3] = variable[0];
- variable[3] = ATTR_compiling_base___CompilerVisitor____indent_level(variable[3]) /*CompilerVisitor::_indent_level*/;
+ /* Register variable[2]: Method return value and escape marker */
+ /* Register variable[3]: Result */
+ variable[3] = ATTR_compiling_base___CompilerVisitor____indent_level(variable[0]) /*CompilerVisitor::_indent_level*/;
+ /* Register variable[3]: Result */
variable[3] = TAG_Bool(UNTAG_Int(variable[3])>=UNTAG_Int( TAG_Int(8)));
if (UNTAG_Bool(variable[3])) { /*if*/
- variable[3] = variable[0];
- variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[3]) /*CompilerVisitor::_ctx*/;
+ /* Register variable[3]: Result */
+ variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[0]) /*CompilerVisitor::_ctx*/;
+ /* Register variable[3]: Result */
variable[3] = CALL_compiling_base___CContext___decls(variable[3])(variable[3]) /*CContext::decls*/;
- variable[4] = NEW_String_string___String___with_native(BOX_NativeString("\t\t"), TAG_Int(2)); /*new String*/
+ /* Register variable[4]: Once String constant */
+ if (once_value_4 != NIT_NULL) variable[4] = once_value_4;
+ else {
+ variable[4] = NEW_String_string___String___with_native(BOX_NativeString("\t\t"), TAG_Int(2)) /*new String*/;
+ once_value_4 = variable[4];
+ }
+ /* Register variable[4]: Result */
+ /* Register variable[4]: Result */
variable[4] = CALL_string___String_____plus(variable[4])(variable[4], variable[1] /*s*/) /*String::+*/;
CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[4]) /*AbstractArray::add*/;
} else { /*if*/
- variable[3] = variable[0];
- variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[3]) /*CompilerVisitor::_ctx*/;
+ /* Register variable[3]: Result */
+ variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[0]) /*CompilerVisitor::_ctx*/;
+ /* Register variable[3]: Result */
variable[3] = CALL_compiling_base___CContext___decls(variable[3])(variable[3]) /*CContext::decls*/;
- 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*/;
+ /* Register variable[4]: Once String constant */
+ if (once_value_5 != NIT_NULL) variable[4] = once_value_5;
+ else {
+ variable[4] = NEW_String_string___String___with_native(BOX_NativeString(" "), TAG_Int(2)) /*new String*/;
+ once_value_5 = variable[4];
+ }
+ /* Register variable[4]: Result */
+ /* Register variable[5]: Result */
+ variable[5] = ATTR_compiling_base___CompilerVisitor____indent_level(variable[0]) /*CompilerVisitor::_indent_level*/;
+ /* Register variable[4]: Result */
variable[4] = CALL_string___String_____star(variable[4])(variable[4], variable[5]) /*String::**/;
+ /* Register variable[4]: Result */
variable[4] = CALL_string___String_____plus(variable[4])(variable[4], variable[1] /*s*/) /*String::+*/;
CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[4]) /*AbstractArray::add*/;
}
- return_label1: while(false);
+ return_label3: while(false);
tracehead = trace.prev;
return;
}
void compiling_base___CompilerVisitor___add_instr(val_t self, val_t param0) {
struct trace_t trace = {NULL, NULL, 48, LOCATE_compiling_base___CompilerVisitor___add_instr};
+ static val_t once_value_7 = NIT_NULL; /* Once value for string variable[4]*/
+ static val_t once_value_8 = NIT_NULL; /* Once value for string variable[4]*/
val_t variable[6];
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
+ /* Register variable[1]: Local variable */
variable[1] = param0;
- variable[3] = variable[0];
- variable[3] = ATTR_compiling_base___CompilerVisitor____indent_level(variable[3]) /*CompilerVisitor::_indent_level*/;
+ /* Register variable[2]: Method return value and escape marker */
+ /* Register variable[3]: Result */
+ variable[3] = ATTR_compiling_base___CompilerVisitor____indent_level(variable[0]) /*CompilerVisitor::_indent_level*/;
+ /* Register variable[3]: Result */
variable[3] = TAG_Bool(UNTAG_Int(variable[3])>=UNTAG_Int( TAG_Int(8)));
if (UNTAG_Bool(variable[3])) { /*if*/
- variable[3] = variable[0];
- variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[3]) /*CompilerVisitor::_ctx*/;
+ /* Register variable[3]: Result */
+ variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[0]) /*CompilerVisitor::_ctx*/;
+ /* Register variable[3]: Result */
variable[3] = CALL_compiling_base___CContext___instrs(variable[3])(variable[3]) /*CContext::instrs*/;
- variable[4] = NEW_String_string___String___with_native(BOX_NativeString("\t\t"), TAG_Int(2)); /*new String*/
+ /* Register variable[4]: Once String constant */
+ if (once_value_7 != NIT_NULL) variable[4] = once_value_7;
+ else {
+ variable[4] = NEW_String_string___String___with_native(BOX_NativeString("\t\t"), TAG_Int(2)) /*new String*/;
+ once_value_7 = variable[4];
+ }
+ /* Register variable[4]: Result */
+ /* Register variable[4]: Result */
variable[4] = CALL_string___String_____plus(variable[4])(variable[4], variable[1] /*s*/) /*String::+*/;
CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[4]) /*AbstractArray::add*/;
} else { /*if*/
- variable[3] = variable[0];
- variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[3]) /*CompilerVisitor::_ctx*/;
+ /* Register variable[3]: Result */
+ variable[3] = ATTR_compiling_base___CompilerVisitor____ctx(variable[0]) /*CompilerVisitor::_ctx*/;
+ /* Register variable[3]: Result */
variable[3] = CALL_compiling_base___CContext___instrs(variable[3])(variable[3]) /*CContext::instrs*/;
- 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*/;
+ /* Register variable[4]: Once String constant */
+ if (once_value_8 != NIT_NULL) variable[4] = once_value_8;
+ else {
+ variable[4] = NEW_String_string___String___with_native(BOX_NativeString(" "), TAG_Int(2)) /*new String*/;
+ once_value_8 = variable[4];
+ }
+ /* Register variable[4]: Result */
+ /* Register variable[5]: Result */
+ variable[5] = ATTR_compiling_base___CompilerVisitor____indent_level(variable[0]) /*CompilerVisitor::_indent_level*/;
+ /* Register variable[4]: Result */
variable[4] = CALL_string___String_____star(variable[4])(variable[4], variable[5]) /*String::**/;
+ /* Register variable[4]: Result */
variable[4] = CALL_string___String_____plus(variable[4])(variable[4], variable[1] /*s*/) /*String::+*/;
CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[4]) /*AbstractArray::add*/;
}
- return_label2: while(false);
+ return_label6: while(false);
tracehead = trace.prev;
return;
}
val_t compiling_base___CompilerVisitor___new_number(val_t self) {
struct trace_t trace = {NULL, NULL, 58, LOCATE_compiling_base___CompilerVisitor___new_number};
- val_t variable[5];
- void **closurevariable = NULL;
+ val_t variable[4];
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
- variable[3] = variable[0];
- variable[3] = ATTR_compiling_base___CompilerVisitor____number_cpt(variable[3]) /*CompilerVisitor::_number_cpt*/;
+ /* Register variable[1]: Method return value and escape marker */
+ /* Register variable[2]: Local variable */
+ /* Register variable[3]: Result */
+ variable[3] = ATTR_compiling_base___CompilerVisitor____number_cpt(variable[0]) /*CompilerVisitor::_number_cpt*/;
variable[2] = variable[3];
- 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];
+ /* Register variable[3]: Result */
+ variable[3] = TAG_Int(UNTAG_Int( variable[2] /*res*/)+UNTAG_Int( TAG_Int(1)));
+ ATTR_compiling_base___CompilerVisitor____number_cpt(variable[0]) /*CompilerVisitor::_number_cpt*/ = variable[3];
variable[1] = variable[2] /*res*/;
- goto return_label3;
- return_label3: while(false);
+ goto return_label9;
+ return_label9: while(false);
tracehead = trace.prev;
return variable[1];
}
void compiling_base___CompilerVisitor___indent(val_t self) {
struct trace_t trace = {NULL, NULL, 68, LOCATE_compiling_base___CompilerVisitor___indent};
- val_t variable[3];
- void **closurevariable = NULL;
+ val_t variable[2];
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
- 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);
+ /* Register variable[1]: Method return value and escape marker */
+ ATTR_compiling_base___CompilerVisitor____indent_level(variable[0]) /*CompilerVisitor::_indent_level*/ = TAG_Int(UNTAG_Int(ATTR_compiling_base___CompilerVisitor____indent_level(variable[0]) /*CompilerVisitor::_indent_level*/)+UNTAG_Int( TAG_Int(1)));
+ return_label10: while(false);
tracehead = trace.prev;
return;
}
void compiling_base___CompilerVisitor___unindent(val_t self) {
struct trace_t trace = {NULL, NULL, 72, LOCATE_compiling_base___CompilerVisitor___unindent};
val_t variable[3];
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
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*/;
+ /* Register variable[1]: Method return value and escape marker */
+ ATTR_compiling_base___CompilerVisitor____indent_level(variable[0]) /*CompilerVisitor::_indent_level*/ = TAG_Int(UNTAG_Int(ATTR_compiling_base___CompilerVisitor____indent_level(variable[0]) /*CompilerVisitor::_indent_level*/)-UNTAG_Int( TAG_Int(1)));
+ /* Register variable[2]: Result */
+ variable[2] = ATTR_compiling_base___CompilerVisitor____indent_level(variable[0]) /*CompilerVisitor::_indent_level*/;
+ /* Register variable[2]: Result */
variable[2] = TAG_Bool(UNTAG_Int(variable[2])<UNTAG_Int( TAG_Int(0)));
if (UNTAG_Bool(variable[2])) { /*if*/
- variable[2] = variable[0];
- ATTR_compiling_base___CompilerVisitor____indent_level(variable[2]) /*CompilerVisitor::_indent_level*/ = TAG_Int(0);
+ ATTR_compiling_base___CompilerVisitor____indent_level(variable[0]) /*CompilerVisitor::_indent_level*/ = TAG_Int(0);
}
- return_label5: while(false);
+ return_label11: while(false);
tracehead = trace.prev;
return;
}
val_t compiling_base___CompilerVisitor___module(val_t self) {
struct trace_t trace = {NULL, NULL, 89, LOCATE_compiling_base___CompilerVisitor___module};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
tracehead = trace.prev;
return ATTR_compiling_base___CompilerVisitor____module( self) /*CompilerVisitor::_module*/;
}
-void compiling_base___CompilerVisitor___module__eq(val_t self, val_t param0) {
- struct trace_t trace = {NULL, NULL, 89, LOCATE_compiling_base___CompilerVisitor___module__eq};
- val_t *variable = NULL;
- void **closurevariable = NULL;
- trace.prev = tracehead; tracehead = &trace;
- trace.file = LOCATE_compiling_base;
- ATTR_compiling_base___CompilerVisitor____module( self) /*CompilerVisitor::_module*/ = param0;
- tracehead = trace.prev;
- return;
-}
val_t compiling_base___CompilerVisitor___ctx(val_t self) {
struct trace_t trace = {NULL, NULL, 92, LOCATE_compiling_base___CompilerVisitor___ctx};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
tracehead = trace.prev;
void compiling_base___CompilerVisitor___ctx__eq(val_t self, val_t param0) {
struct trace_t trace = {NULL, NULL, 92, LOCATE_compiling_base___CompilerVisitor___ctx__eq};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
ATTR_compiling_base___CompilerVisitor____ctx( self) /*CompilerVisitor::_ctx*/ = param0;
val_t compiling_base___CompilerVisitor___indent_level(val_t self) {
struct trace_t trace = {NULL, NULL, 95, LOCATE_compiling_base___CompilerVisitor___indent_level};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
tracehead = trace.prev;
void compiling_base___CompilerVisitor___indent_level__eq(val_t self, val_t param0) {
struct trace_t trace = {NULL, NULL, 95, LOCATE_compiling_base___CompilerVisitor___indent_level__eq};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
ATTR_compiling_base___CompilerVisitor____indent_level( self) /*CompilerVisitor::_indent_level*/ = param0;
val_t compiling_base___CompilerVisitor___tc(val_t self) {
struct trace_t trace = {NULL, NULL, 98, LOCATE_compiling_base___CompilerVisitor___tc};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
tracehead = trace.prev;
return ATTR_compiling_base___CompilerVisitor____tc( self) /*CompilerVisitor::_tc*/;
}
-void compiling_base___CompilerVisitor___tc__eq(val_t self, val_t param0) {
- struct trace_t trace = {NULL, NULL, 98, LOCATE_compiling_base___CompilerVisitor___tc__eq};
- val_t *variable = NULL;
- void **closurevariable = NULL;
- trace.prev = tracehead; tracehead = &trace;
- trace.file = LOCATE_compiling_base;
- ATTR_compiling_base___CompilerVisitor____tc( self) /*CompilerVisitor::_tc*/ = param0;
- tracehead = trace.prev;
- return;
-}
-void compiling_base___CompilerVisitor___init(val_t self, val_t param0, int* init_table) {
+void compiling_base___CompilerVisitor___init(val_t self, val_t param0, val_t param1, int* init_table) {
struct trace_t trace = {NULL, NULL, 101, LOCATE_compiling_base___CompilerVisitor___init};
val_t variable[4];
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
+ /* Register variable[1]: Local variable */
variable[1] = param0;
+ /* Register variable[2]: Local variable */
+ variable[2] = param1;
if (init_table[VAL2OBJ(variable[0])->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);
+ /* Register variable[3]: Method return value and escape marker */
+ ATTR_compiling_base___CompilerVisitor____module(variable[0]) /*CompilerVisitor::_module*/ = variable[1] /*module*/;
+ ATTR_compiling_base___CompilerVisitor____tc(variable[0]) /*CompilerVisitor::_tc*/ = variable[2] /*tc*/;
+ return_label12: while(false);
init_table[VAL2OBJ(variable[0])->vft[INIT_TABLE_POS_CompilerVisitor].i] = 1;
tracehead = trace.prev;
return;
}
val_t compiling_base___CContext___decls(val_t self) {
- struct trace_t trace = {NULL, NULL, 108, LOCATE_compiling_base___CContext___decls};
+ struct trace_t trace = {NULL, NULL, 112, LOCATE_compiling_base___CContext___decls};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
tracehead = trace.prev;
return ATTR_compiling_base___CContext____decls( self) /*CContext::_decls*/;
}
val_t compiling_base___CContext___instrs(val_t self) {
- struct trace_t trace = {NULL, NULL, 109, LOCATE_compiling_base___CContext___instrs};
+ struct trace_t trace = {NULL, NULL, 113, LOCATE_compiling_base___CContext___instrs};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
tracehead = trace.prev;
return ATTR_compiling_base___CContext____instrs( self) /*CContext::_instrs*/;
}
void compiling_base___CContext___append(val_t self, val_t param0) {
- struct trace_t trace = {NULL, NULL, 111, LOCATE_compiling_base___CContext___append};
+ struct trace_t trace = {NULL, NULL, 115, LOCATE_compiling_base___CContext___append};
val_t variable[5];
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
+ /* Register variable[1]: Local variable */
variable[1] = param0;
- variable[3] = variable[0];
- variable[3] = ATTR_compiling_base___CContext____instrs(variable[3]) /*CContext::_instrs*/;
+ /* Register variable[2]: Method return value and escape marker */
+ /* Register variable[3]: Result */
+ variable[3] = ATTR_compiling_base___CContext____instrs(variable[0]) /*CContext::_instrs*/;
+ /* Register variable[4]: Result */
variable[4] = CALL_compiling_base___CContext___decls( variable[1] /*c*/)( variable[1] /*c*/) /*CContext::decls*/;
CALL_abstract_collection___IndexedCollection___append(variable[3])(variable[3], variable[4]) /*IndexedCollection::append*/;
- variable[3] = variable[0];
- variable[3] = ATTR_compiling_base___CContext____instrs(variable[3]) /*CContext::_instrs*/;
+ /* Register variable[3]: Result */
+ variable[3] = ATTR_compiling_base___CContext____instrs(variable[0]) /*CContext::_instrs*/;
+ /* Register variable[4]: Result */
variable[4] = CALL_compiling_base___CContext___instrs( variable[1] /*c*/)( variable[1] /*c*/) /*CContext::instrs*/;
CALL_abstract_collection___IndexedCollection___append(variable[3])(variable[3], variable[4]) /*IndexedCollection::append*/;
- return_label7: while(false);
+ return_label13: while(false);
tracehead = trace.prev;
return;
}
void compiling_base___CContext___merge(val_t self, val_t param0) {
- struct trace_t trace = {NULL, NULL, 117, LOCATE_compiling_base___CContext___merge};
+ struct trace_t trace = {NULL, NULL, 121, LOCATE_compiling_base___CContext___merge};
val_t variable[5];
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
+ /* Register variable[1]: Local variable */
variable[1] = param0;
- variable[3] = variable[0];
- variable[3] = ATTR_compiling_base___CContext____decls(variable[3]) /*CContext::_decls*/;
+ /* Register variable[2]: Method return value and escape marker */
+ /* Register variable[3]: Result */
+ variable[3] = ATTR_compiling_base___CContext____decls(variable[0]) /*CContext::_decls*/;
+ /* Register variable[4]: Result */
variable[4] = CALL_compiling_base___CContext___decls( variable[1] /*c*/)( variable[1] /*c*/) /*CContext::decls*/;
CALL_abstract_collection___IndexedCollection___append(variable[3])(variable[3], variable[4]) /*IndexedCollection::append*/;
- variable[3] = variable[0];
- variable[3] = ATTR_compiling_base___CContext____instrs(variable[3]) /*CContext::_instrs*/;
+ /* Register variable[3]: Result */
+ variable[3] = ATTR_compiling_base___CContext____instrs(variable[0]) /*CContext::_instrs*/;
+ /* Register variable[4]: Result */
variable[4] = CALL_compiling_base___CContext___instrs( variable[1] /*c*/)( variable[1] /*c*/) /*CContext::instrs*/;
CALL_abstract_collection___IndexedCollection___append(variable[3])(variable[3], variable[4]) /*IndexedCollection::append*/;
- return_label8: while(false);
+ return_label14: while(false);
tracehead = trace.prev;
return;
}
void compiling_base___CContext___init(val_t self, int* init_table) {
- struct trace_t trace = {NULL, NULL, 123, LOCATE_compiling_base___CContext___init};
+ struct trace_t trace = {NULL, NULL, 127, LOCATE_compiling_base___CContext___init};
val_t variable[2];
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
if (init_table[VAL2OBJ(variable[0])->vft[INIT_TABLE_POS_CContext].i]) return;
- return_label9: while(false);
+ /* Register variable[1]: Method return value and escape marker */
+ return_label15: while(false);
init_table[VAL2OBJ(variable[0])->vft[INIT_TABLE_POS_CContext].i] = 1;
tracehead = trace.prev;
return;
}
val_t compiling_base___MMGlobalProperty___meth_call(val_t self) {
- struct trace_t trace = {NULL, NULL, 127, LOCATE_compiling_base___MMGlobalProperty___meth_call};
- val_t variable[9];
- void **closurevariable = NULL;
+ struct trace_t trace = {NULL, NULL, 131, LOCATE_compiling_base___MMGlobalProperty___meth_call};
+ static val_t once_value_17 = NIT_NULL; /* Once value for string variable[3]*/
+ static val_t once_value_18 = NIT_NULL; /* Once value for string variable[3]*/
+ val_t variable[4];
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
- variable[2] = NEW_Array_array___Array___with_capacity(TAG_Int(3)); /*new Array[String]*/
- variable[3] = NEW_String_string___String___with_native(BOX_NativeString("CALL_"), TAG_Int(5)); /*new String*/
- variable[4] = variable[3];
- CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[4]) /*AbstractArray::add*/;
- variable[5] = variable[0];
- variable[5] = CALL_abstractmetamodel___MMGlobalProperty___intro(variable[5])(variable[5]) /*MMGlobalProperty::intro*/;
- variable[5] = CALL_compiling_base___MMLocalProperty___cname(variable[5])(variable[5]) /*MMLocalProperty::cname*/;
- variable[6] = variable[5];
- CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[6]) /*AbstractArray::add*/;
- variable[7] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
- variable[8] = variable[7];
- CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[8]) /*AbstractArray::add*/;
+ /* Register variable[1]: Method return value and escape marker */
+ variable[2] = NEW_Array_array___Array___with_capacity(TAG_Int(3)) /*new Array[String]*/ /* Ensure var: Array (for super-string)*/;
+ /* Register variable[3]: Once String constant */
+ if (once_value_17 != NIT_NULL) variable[3] = once_value_17;
+ else {
+ variable[3] = NEW_String_string___String___with_native(BOX_NativeString("CALL_"), TAG_Int(5)) /*new String*/;
+ once_value_17 = variable[3];
+ }
+ /* Register variable[3]: Result */
+ /* Ensure var variable[3]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/;
+ /* Register variable[3]: Result */
+ variable[3] = CALL_abstractmetamodel___MMGlobalProperty___intro(variable[0])(variable[0]) /*MMGlobalProperty::intro*/;
+ /* Register variable[3]: Result */
+ variable[3] = CALL_compiling_base___MMLocalProperty___cname(variable[3])(variable[3]) /*MMLocalProperty::cname*/;
+ /* Ensure var variable[3]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/;
+ /* Register variable[3]: Once String constant */
+ if (once_value_18 != NIT_NULL) variable[3] = once_value_18;
+ else {
+ variable[3] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)) /*new String*/;
+ once_value_18 = variable[3];
+ }
+ /* Register variable[3]: Result */
+ /* Ensure var variable[3]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/;
+ /* Register variable[2]: Result */
variable[2] = CALL_string___Object___to_s(variable[2])(variable[2]) /*Object::to_s*/;
variable[1] = variable[2];
- goto return_label10;
- return_label10: while(false);
+ goto return_label16;
+ return_label16: while(false);
tracehead = trace.prev;
return variable[1];
}
val_t compiling_base___MMGlobalProperty___attr_access(val_t self) {
- struct trace_t trace = {NULL, NULL, 133, LOCATE_compiling_base___MMGlobalProperty___attr_access};
- val_t variable[9];
- void **closurevariable = NULL;
+ struct trace_t trace = {NULL, NULL, 137, LOCATE_compiling_base___MMGlobalProperty___attr_access};
+ static val_t once_value_20 = NIT_NULL; /* Once value for string variable[3]*/
+ static val_t once_value_21 = NIT_NULL; /* Once value for string variable[3]*/
+ val_t variable[4];
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
- variable[2] = NEW_Array_array___Array___with_capacity(TAG_Int(3)); /*new Array[String]*/
- variable[3] = NEW_String_string___String___with_native(BOX_NativeString("ATTR_"), TAG_Int(5)); /*new String*/
- variable[4] = variable[3];
- CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[4]) /*AbstractArray::add*/;
- variable[5] = variable[0];
- variable[5] = CALL_abstractmetamodel___MMGlobalProperty___intro(variable[5])(variable[5]) /*MMGlobalProperty::intro*/;
- variable[5] = CALL_compiling_base___MMLocalProperty___cname(variable[5])(variable[5]) /*MMLocalProperty::cname*/;
- variable[6] = variable[5];
- CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[6]) /*AbstractArray::add*/;
- variable[7] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
- variable[8] = variable[7];
- CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[8]) /*AbstractArray::add*/;
+ /* Register variable[1]: Method return value and escape marker */
+ variable[2] = NEW_Array_array___Array___with_capacity(TAG_Int(3)) /*new Array[String]*/ /* Ensure var: Array (for super-string)*/;
+ /* Register variable[3]: Once String constant */
+ if (once_value_20 != NIT_NULL) variable[3] = once_value_20;
+ else {
+ variable[3] = NEW_String_string___String___with_native(BOX_NativeString("ATTR_"), TAG_Int(5)) /*new String*/;
+ once_value_20 = variable[3];
+ }
+ /* Register variable[3]: Result */
+ /* Ensure var variable[3]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/;
+ /* Register variable[3]: Result */
+ variable[3] = CALL_abstractmetamodel___MMGlobalProperty___intro(variable[0])(variable[0]) /*MMGlobalProperty::intro*/;
+ /* Register variable[3]: Result */
+ variable[3] = CALL_compiling_base___MMLocalProperty___cname(variable[3])(variable[3]) /*MMLocalProperty::cname*/;
+ /* Ensure var variable[3]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/;
+ /* Register variable[3]: Once String constant */
+ if (once_value_21 != NIT_NULL) variable[3] = once_value_21;
+ else {
+ variable[3] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)) /*new String*/;
+ once_value_21 = variable[3];
+ }
+ /* Register variable[3]: Result */
+ /* Ensure var variable[3]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/;
+ /* Register variable[2]: Result */
variable[2] = CALL_string___Object___to_s(variable[2])(variable[2]) /*Object::to_s*/;
variable[1] = variable[2];
- goto return_label11;
- return_label11: while(false);
+ goto return_label19;
+ return_label19: while(false);
tracehead = trace.prev;
return variable[1];
}
val_t compiling_base___MMGlobalClass___id_id(val_t self) {
- struct trace_t trace = {NULL, NULL, 141, LOCATE_compiling_base___MMGlobalClass___id_id};
- val_t variable[9];
- void **closurevariable = NULL;
+ struct trace_t trace = {NULL, NULL, 145, LOCATE_compiling_base___MMGlobalClass___id_id};
+ static val_t once_value_23 = NIT_NULL; /* Once value for string variable[3]*/
+ static val_t once_value_24 = NIT_NULL; /* Once value for string variable[3]*/
+ val_t variable[4];
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
- variable[2] = NEW_Array_array___Array___with_capacity(TAG_Int(3)); /*new Array[String]*/
- variable[3] = NEW_String_string___String___with_native(BOX_NativeString("ID_"), TAG_Int(3)); /*new String*/
- variable[4] = variable[3];
- CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[4]) /*AbstractArray::add*/;
- variable[5] = variable[0];
- variable[5] = CALL_abstractmetamodel___MMGlobalClass___intro(variable[5])(variable[5]) /*MMGlobalClass::intro*/;
- variable[5] = CALL_abstractmetamodel___MMLocalClass___name(variable[5])(variable[5]) /*MMLocalClass::name*/;
- variable[6] = variable[5];
- variable[6] = CALL_string___Object___to_s(variable[6])(variable[6]) /*Object::to_s*/;
- CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[6]) /*AbstractArray::add*/;
- variable[7] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
- variable[8] = variable[7];
- CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[8]) /*AbstractArray::add*/;
+ /* Register variable[1]: Method return value and escape marker */
+ variable[2] = NEW_Array_array___Array___with_capacity(TAG_Int(3)) /*new Array[String]*/ /* Ensure var: Array (for super-string)*/;
+ /* Register variable[3]: Once String constant */
+ if (once_value_23 != NIT_NULL) variable[3] = once_value_23;
+ else {
+ variable[3] = NEW_String_string___String___with_native(BOX_NativeString("ID_"), TAG_Int(3)) /*new String*/;
+ once_value_23 = variable[3];
+ }
+ /* Register variable[3]: Result */
+ /* Ensure var variable[3]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/;
+ /* Register variable[3]: Result */
+ variable[3] = CALL_abstractmetamodel___MMGlobalClass___intro(variable[0])(variable[0]) /*MMGlobalClass::intro*/;
+ /* Register variable[3]: Result */
+ variable[3] = CALL_abstractmetamodel___MMLocalClass___name(variable[3])(variable[3]) /*MMLocalClass::name*/;
+ /* Ensure var variable[3]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], CALL_string___Object___to_s(variable[3])(variable[3]) /*Object::to_s*/) /*AbstractArray::add*/;
+ /* Register variable[3]: Once String constant */
+ if (once_value_24 != NIT_NULL) variable[3] = once_value_24;
+ else {
+ variable[3] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)) /*new String*/;
+ once_value_24 = variable[3];
+ }
+ /* Register variable[3]: Result */
+ /* Ensure var variable[3]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/;
+ /* Register variable[2]: Result */
variable[2] = CALL_string___Object___to_s(variable[2])(variable[2]) /*Object::to_s*/;
variable[1] = variable[2];
- goto return_label12;
- return_label12: while(false);
+ goto return_label22;
+ return_label22: while(false);
tracehead = trace.prev;
return variable[1];
}
val_t compiling_base___MMGlobalClass___color_id(val_t self) {
- struct trace_t trace = {NULL, NULL, 147, LOCATE_compiling_base___MMGlobalClass___color_id};
- val_t variable[9];
- void **closurevariable = NULL;
+ struct trace_t trace = {NULL, NULL, 151, LOCATE_compiling_base___MMGlobalClass___color_id};
+ static val_t once_value_26 = NIT_NULL; /* Once value for string variable[3]*/
+ static val_t once_value_27 = NIT_NULL; /* Once value for string variable[3]*/
+ val_t variable[4];
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
- variable[2] = NEW_Array_array___Array___with_capacity(TAG_Int(3)); /*new Array[String]*/
- variable[3] = NEW_String_string___String___with_native(BOX_NativeString("COLOR_"), TAG_Int(6)); /*new String*/
- variable[4] = variable[3];
- CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[4]) /*AbstractArray::add*/;
- variable[5] = variable[0];
- variable[5] = CALL_abstractmetamodel___MMGlobalClass___intro(variable[5])(variable[5]) /*MMGlobalClass::intro*/;
- variable[5] = CALL_abstractmetamodel___MMLocalClass___name(variable[5])(variable[5]) /*MMLocalClass::name*/;
- variable[6] = variable[5];
- variable[6] = CALL_string___Object___to_s(variable[6])(variable[6]) /*Object::to_s*/;
- CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[6]) /*AbstractArray::add*/;
- variable[7] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
- variable[8] = variable[7];
- CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[8]) /*AbstractArray::add*/;
+ /* Register variable[1]: Method return value and escape marker */
+ variable[2] = NEW_Array_array___Array___with_capacity(TAG_Int(3)) /*new Array[String]*/ /* Ensure var: Array (for super-string)*/;
+ /* Register variable[3]: Once String constant */
+ if (once_value_26 != NIT_NULL) variable[3] = once_value_26;
+ else {
+ variable[3] = NEW_String_string___String___with_native(BOX_NativeString("COLOR_"), TAG_Int(6)) /*new String*/;
+ once_value_26 = variable[3];
+ }
+ /* Register variable[3]: Result */
+ /* Ensure var variable[3]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/;
+ /* Register variable[3]: Result */
+ variable[3] = CALL_abstractmetamodel___MMGlobalClass___intro(variable[0])(variable[0]) /*MMGlobalClass::intro*/;
+ /* Register variable[3]: Result */
+ variable[3] = CALL_abstractmetamodel___MMLocalClass___name(variable[3])(variable[3]) /*MMLocalClass::name*/;
+ /* Ensure var variable[3]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], CALL_string___Object___to_s(variable[3])(variable[3]) /*Object::to_s*/) /*AbstractArray::add*/;
+ /* Register variable[3]: Once String constant */
+ if (once_value_27 != NIT_NULL) variable[3] = once_value_27;
+ else {
+ variable[3] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)) /*new String*/;
+ once_value_27 = variable[3];
+ }
+ /* Register variable[3]: Result */
+ /* Ensure var variable[3]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/;
+ /* Register variable[2]: Result */
variable[2] = CALL_string___Object___to_s(variable[2])(variable[2]) /*Object::to_s*/;
variable[1] = variable[2];
- goto return_label13;
- return_label13: while(false);
+ goto return_label25;
+ return_label25: while(false);
tracehead = trace.prev;
return variable[1];
}
val_t compiling_base___MMGlobalClass___init_table_pos_id(val_t self) {
- struct trace_t trace = {NULL, NULL, 153, LOCATE_compiling_base___MMGlobalClass___init_table_pos_id};
- val_t variable[9];
- void **closurevariable = NULL;
+ struct trace_t trace = {NULL, NULL, 157, LOCATE_compiling_base___MMGlobalClass___init_table_pos_id};
+ static val_t once_value_29 = NIT_NULL; /* Once value for string variable[3]*/
+ static val_t once_value_30 = NIT_NULL; /* Once value for string variable[3]*/
+ val_t variable[4];
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
- variable[2] = NEW_Array_array___Array___with_capacity(TAG_Int(3)); /*new Array[String]*/
- variable[3] = NEW_String_string___String___with_native(BOX_NativeString("INIT_TABLE_POS_"), TAG_Int(15)); /*new String*/
- variable[4] = variable[3];
- CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[4]) /*AbstractArray::add*/;
- variable[5] = variable[0];
- variable[5] = CALL_abstractmetamodel___MMGlobalClass___intro(variable[5])(variable[5]) /*MMGlobalClass::intro*/;
- variable[5] = CALL_abstractmetamodel___MMLocalClass___name(variable[5])(variable[5]) /*MMLocalClass::name*/;
- variable[6] = variable[5];
- variable[6] = CALL_string___Object___to_s(variable[6])(variable[6]) /*Object::to_s*/;
- CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[6]) /*AbstractArray::add*/;
- variable[7] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
- variable[8] = variable[7];
- CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[8]) /*AbstractArray::add*/;
+ /* Register variable[1]: Method return value and escape marker */
+ variable[2] = NEW_Array_array___Array___with_capacity(TAG_Int(3)) /*new Array[String]*/ /* Ensure var: Array (for super-string)*/;
+ /* Register variable[3]: Once String constant */
+ if (once_value_29 != NIT_NULL) variable[3] = once_value_29;
+ else {
+ variable[3] = NEW_String_string___String___with_native(BOX_NativeString("INIT_TABLE_POS_"), TAG_Int(15)) /*new String*/;
+ once_value_29 = variable[3];
+ }
+ /* Register variable[3]: Result */
+ /* Ensure var variable[3]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/;
+ /* Register variable[3]: Result */
+ variable[3] = CALL_abstractmetamodel___MMGlobalClass___intro(variable[0])(variable[0]) /*MMGlobalClass::intro*/;
+ /* Register variable[3]: Result */
+ variable[3] = CALL_abstractmetamodel___MMLocalClass___name(variable[3])(variable[3]) /*MMLocalClass::name*/;
+ /* Ensure var variable[3]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], CALL_string___Object___to_s(variable[3])(variable[3]) /*Object::to_s*/) /*AbstractArray::add*/;
+ /* Register variable[3]: Once String constant */
+ if (once_value_30 != NIT_NULL) variable[3] = once_value_30;
+ else {
+ variable[3] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)) /*new String*/;
+ once_value_30 = variable[3];
+ }
+ /* Register variable[3]: Result */
+ /* Ensure var variable[3]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/;
+ /* Register variable[2]: Result */
variable[2] = CALL_string___Object___to_s(variable[2])(variable[2]) /*Object::to_s*/;
variable[1] = variable[2];
- goto return_label14;
- return_label14: while(false);
+ goto return_label28;
+ return_label28: while(false);
tracehead = trace.prev;
return variable[1];
}
val_t compiling_base___MMLocalClass___primitive_info(val_t self) {
- struct trace_t trace = {NULL, NULL, 167, LOCATE_compiling_base___MMLocalClass___primitive_info};
- static val_t once_value_16; static int once_bool_16; /* Once value for variable[3]*/
- val_t variable[8];
- void **closurevariable = NULL;
+ struct trace_t trace = {NULL, NULL, 171, LOCATE_compiling_base___MMLocalClass___primitive_info};
+ static val_t once_value_32; static int once_bool_32; /* Once value for variable[3]*/
+ val_t variable[7];
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
- variable[2] = variable[0];
- variable[2] = ATTR_compiling_base___MMLocalClass____primitive_info_b(variable[2]) /*MMLocalClass::_primitive_info_b*/;
+ /* Register variable[1]: Method return value and escape marker */
+ /* Register variable[2]: Result */
+ variable[2] = ATTR_compiling_base___MMLocalClass____primitive_info_b(variable[0]) /*MMLocalClass::_primitive_info_b*/;
+ /* Register variable[2]: Result */
variable[2] = TAG_Bool((variable[2])==( TAG_Bool(true)));
if (UNTAG_Bool(variable[2])) { /*if*/
- variable[2] = variable[0];
- variable[2] = ATTR_compiling_base___MMLocalClass____primitive_info_cache(variable[2]) /*MMLocalClass::_primitive_info_cache*/;
+ /* Register variable[2]: Result */
+ variable[2] = ATTR_compiling_base___MMLocalClass____primitive_info_cache(variable[0]) /*MMLocalClass::_primitive_info_cache*/;
variable[1] = variable[2];
- goto return_label15;
+ goto return_label31;
}
- if (once_bool_16) variable[3] = once_value_16;
+ /* Register variable[2]: Local variable */
+ /* Register variable[3]: Once expression result */
+ if (once_bool_32) variable[3] = once_value_32;
else {
- variable[3] = variable[0];
- variable[3] = CALL_compiling_base___MMLocalClass___primitive_ctypes(variable[3])(variable[3]) /*MMLocalClass::primitive_ctypes*/;
- once_value_16 = variable[3];
- once_bool_16 = true;
+ /* Register variable[3]: Result */
+ variable[3] = CALL_compiling_base___MMLocalClass___primitive_ctypes(variable[0])(variable[0]) /*MMLocalClass::primitive_ctypes*/;
+ once_value_32 = variable[3];
+ once_bool_32 = true;
}
+ /* Register variable[3]: Result */
variable[2] = variable[3];
- variable[3] = variable[0];
- variable[3] = CALL_abstractmetamodel___MMLocalClass___name(variable[3])(variable[3]) /*MMLocalClass::name*/;
- variable[3] = CALL_abstract_collection___Map___has_key( variable[2] /*ctypes*/)( variable[2] /*ctypes*/, variable[3]) /*CoupleMap::has_key*/;
+ /* Register variable[3]: Result */
+ variable[3] = CALL_abstractmetamodel___MMLocalClass___name(variable[0])(variable[0]) /*MMLocalClass::name*/;
+ /* Register variable[3]: Result */
+ variable[3] = CALL_abstract_collection___MapRead___has_key( variable[2] /*ctypes*/)( variable[2] /*ctypes*/, variable[3]) /*CoupleMap::has_key*/;
if (UNTAG_Bool(variable[3])) { /*if*/
- variable[3] = variable[0];
- variable[4] = variable[0];
- variable[4] = CALL_abstractmetamodel___MMLocalClass___name(variable[4])(variable[4]) /*MMLocalClass::name*/;
- variable[4] = CALL_abstract_collection___Map_____bra( variable[2] /*ctypes*/)( 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*/;
+ /* Register variable[3]: Result */
+ variable[3] = CALL_abstractmetamodel___MMLocalClass___name(variable[0])(variable[0]) /*MMLocalClass::name*/;
+ /* Register variable[3]: Result */
+ variable[3] = CALL_abstract_collection___MapRead_____bra( variable[2] /*ctypes*/)( variable[2] /*ctypes*/, variable[3]) /*CoupleMap::[]*/;
+ ATTR_compiling_base___MMLocalClass____primitive_info_cache(variable[0]) /*MMLocalClass::_primitive_info_cache*/ = variable[3];
+ ATTR_compiling_base___MMLocalClass____primitive_info_b(variable[0]) /*MMLocalClass::_primitive_info_b*/ = TAG_Bool(true);
+ /* Register variable[3]: Result */
+ variable[3] = ATTR_compiling_base___MMLocalClass____primitive_info_cache(variable[0]) /*MMLocalClass::_primitive_info_cache*/;
variable[1] = variable[3];
- goto return_label15;
+ goto return_label31;
}
+ /* Register variable[3]: Local variable */
+ /* Register variable[4]: Result */
variable[4] = CALL_abstract_collection___Collection___iterator( variable[2] /*ctypes*/)( variable[2] /*ctypes*/) /*HashMap::iterator*/;
variable[3] = variable[4];
while (true) { /*while*/
+ /* Register variable[4]: Result */
variable[4] = CALL_abstract_collection___Iterator___is_ok( variable[3] /*i*/)( variable[3] /*i*/) /*HashMapIterator::is_ok*/;
if (!UNTAG_Bool(variable[4])) break; /* while*/
+ /* Register variable[4]: Local variable */
+ /* Register variable[5]: Result */
variable[5] = CALL_abstract_collection___MapIterator___key( variable[3] /*i*/)( variable[3] /*i*/) /*HashMapIterator::key*/;
variable[4] = variable[5];
- variable[5] = variable[0];
- variable[5] = CALL_abstractmetamodel___MMLocalClass___module(variable[5])(variable[5]) /*MMLocalClass::module*/;
+ /* Register variable[5]: Result */
+ variable[5] = CALL_abstractmetamodel___MMLocalClass___module(variable[0])(variable[0]) /*MMLocalClass::module*/;
+ /* Register variable[5]: Result */
variable[5] = CALL_abstractmetamodel___MMModule___has_global_class_named(variable[5])(variable[5], variable[4] /*n*/) /*MMModule::has_global_class_named*/;
if (UNTAG_Bool(variable[5])) { /*if*/
- variable[6] = variable[0];
- variable[6] = CALL_abstractmetamodel___MMLocalClass___module(variable[6])(variable[6]) /*MMLocalClass::module*/;
+ /* Register variable[5]: Local variable */
+ /* Register variable[6]: Result */
+ variable[6] = CALL_abstractmetamodel___MMLocalClass___module(variable[0])(variable[0]) /*MMLocalClass::module*/;
+ /* Register variable[6]: Result */
variable[6] = CALL_abstractmetamodel___MMModule___class_by_name(variable[6])(variable[6], variable[4] /*n*/) /*MMModule::class_by_name*/;
variable[5] = variable[6];
- variable[6] = variable[0];
- variable[6] = CALL_abstractmetamodel___MMLocalClass___cshe(variable[6])(variable[6]) /*MMLocalClass::cshe*/;
+ /* Register variable[6]: Result */
+ variable[6] = CALL_abstractmetamodel___MMLocalClass___cshe(variable[0])(variable[0]) /*MMLocalClass::cshe*/;
+ /* Register variable[6]: Result */
variable[6] = CALL_partial_order___PartialOrderElement_____l(variable[6])(variable[6], variable[5] /*c*/) /*PartialOrderElement::<*/;
if (UNTAG_Bool(variable[6])) { /*if*/
- variable[6] = variable[0];
- variable[7] = CALL_abstract_collection___Iterator___item( variable[3] /*i*/)( 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*/;
+ /* Register variable[6]: Result */
+ variable[6] = CALL_abstract_collection___Iterator___item( variable[3] /*i*/)( variable[3] /*i*/) /*HashMapIterator::item*/;
+ ATTR_compiling_base___MMLocalClass____primitive_info_cache(variable[0]) /*MMLocalClass::_primitive_info_cache*/ = variable[6];
+ ATTR_compiling_base___MMLocalClass____primitive_info_b(variable[0]) /*MMLocalClass::_primitive_info_b*/ = TAG_Bool(true);
+ /* Register variable[6]: Result */
+ variable[6] = ATTR_compiling_base___MMLocalClass____primitive_info_cache(variable[0]) /*MMLocalClass::_primitive_info_cache*/;
variable[1] = variable[6];
- goto return_label15;
+ goto return_label31;
}
}
CALL_abstract_collection___Iterator___next( variable[3] /*i*/)( variable[3] /*i*/) /*HashMapIterator::next*/;
- continue_17: while(0);
+ continue_33: while(0);
}
- break_17: while(0);
- variable[4] = variable[0];
- ATTR_compiling_base___MMLocalClass____primitive_info_b(variable[4]) /*MMLocalClass::_primitive_info_b*/ = TAG_Bool(true);
+ break_33: while(0);
+ ATTR_compiling_base___MMLocalClass____primitive_info_b(variable[0]) /*MMLocalClass::_primitive_info_b*/ = TAG_Bool(true);
variable[1] = NIT_NULL /*null*/;
- goto return_label15;
- return_label15: while(false);
+ goto return_label31;
+ return_label31: while(false);
tracehead = trace.prev;
return variable[1];
}
val_t compiling_base___MMLocalClass___primitive_ctypes(val_t self) {
- struct trace_t trace = {NULL, NULL, 197, LOCATE_compiling_base___MMLocalClass___primitive_ctypes};
+ struct trace_t trace = {NULL, NULL, 201, LOCATE_compiling_base___MMLocalClass___primitive_ctypes};
+ static val_t once_value_35 = NIT_NULL; /* Once value for string variable[5]*/
+ static val_t once_value_36 = NIT_NULL; /* Once value for string variable[6]*/
+ static val_t once_value_37 = NIT_NULL; /* Once value for string variable[7]*/
+ static val_t once_value_38 = NIT_NULL; /* Once value for string variable[8]*/
+ static val_t once_value_39 = NIT_NULL; /* Once value for string variable[9]*/
+ static val_t once_value_40 = NIT_NULL; /* Once value for string variable[10]*/
+ static val_t once_value_41 = NIT_NULL; /* Once value for string variable[11]*/
+ static val_t once_value_42 = NIT_NULL; /* Once value for string variable[7]*/
+ static val_t once_value_43 = NIT_NULL; /* Once value for string variable[8]*/
+ static val_t once_value_44 = NIT_NULL; /* Once value for string variable[9]*/
+ static val_t once_value_45 = NIT_NULL; /* Once value for string variable[10]*/
+ static val_t once_value_46 = NIT_NULL; /* Once value for string variable[11]*/
+ static val_t once_value_47 = NIT_NULL; /* Once value for string variable[12]*/
+ static val_t once_value_48 = NIT_NULL; /* Once value for string variable[13]*/
val_t variable[16];
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
- variable[3] = NEW_HashMap_hash___HashMap___init(); /*new HashMap[Symbol, PrimitiveInfo]*/
+ /* Register variable[1]: Method return value and escape marker */
+ /* Register variable[2]: Local variable */
+ /* Register variable[3]: Result */
+ variable[3] = NEW_HashMap_hash___HashMap___init() /*new HashMap[Symbol, PrimitiveInfo]*/;
variable[2] = variable[3];
- 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*/
+ /* Register variable[3]: Local variable */
+ variable[4] = NEW_Array_array___Array___with_capacity(TAG_Int(7)) /*new Array[String]*/ /* Ensure var: Literal array*/;
+ /* Register variable[5]: Once String constant */
+ if (once_value_35 != NIT_NULL) variable[5] = once_value_35;
+ else {
+ variable[5] = NEW_String_string___String___with_native(BOX_NativeString("Int"), TAG_Int(3)) /*new String*/;
+ once_value_35 = variable[5];
+ }
+ /* Register variable[5]: Result */
CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/;
- variable[6] = NEW_String_string___String___with_native(BOX_NativeString("Char"), TAG_Int(4)); /*new String*/
+ /* Register variable[6]: Once String constant */
+ if (once_value_36 != NIT_NULL) variable[6] = once_value_36;
+ else {
+ variable[6] = NEW_String_string___String___with_native(BOX_NativeString("Char"), TAG_Int(4)) /*new String*/;
+ once_value_36 = variable[6];
+ }
+ /* Register variable[6]: Result */
CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[6]) /*AbstractArray::add*/;
- variable[7] = NEW_String_string___String___with_native(BOX_NativeString("Bool"), TAG_Int(4)); /*new String*/
+ /* Register variable[7]: Once String constant */
+ if (once_value_37 != NIT_NULL) variable[7] = once_value_37;
+ else {
+ variable[7] = NEW_String_string___String___with_native(BOX_NativeString("Bool"), TAG_Int(4)) /*new String*/;
+ once_value_37 = variable[7];
+ }
+ /* Register variable[7]: Result */
CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[7]) /*AbstractArray::add*/;
- variable[8] = NEW_String_string___String___with_native(BOX_NativeString("Float"), TAG_Int(5)); /*new String*/
+ /* Register variable[8]: Once String constant */
+ if (once_value_38 != NIT_NULL) variable[8] = once_value_38;
+ else {
+ variable[8] = NEW_String_string___String___with_native(BOX_NativeString("Float"), TAG_Int(5)) /*new String*/;
+ once_value_38 = variable[8];
+ }
+ /* Register variable[8]: Result */
CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[8]) /*AbstractArray::add*/;
- variable[9] = NEW_String_string___String___with_native(BOX_NativeString("NativeString"), TAG_Int(12)); /*new String*/
+ /* Register variable[9]: Once String constant */
+ if (once_value_39 != NIT_NULL) variable[9] = once_value_39;
+ else {
+ variable[9] = NEW_String_string___String___with_native(BOX_NativeString("NativeString"), TAG_Int(12)) /*new String*/;
+ once_value_39 = variable[9];
+ }
+ /* Register variable[9]: Result */
CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[9]) /*AbstractArray::add*/;
- variable[10] = NEW_String_string___String___with_native(BOX_NativeString("NativeArray"), TAG_Int(11)); /*new String*/
+ /* Register variable[10]: Once String constant */
+ if (once_value_40 != NIT_NULL) variable[10] = once_value_40;
+ else {
+ variable[10] = NEW_String_string___String___with_native(BOX_NativeString("NativeArray"), TAG_Int(11)) /*new String*/;
+ once_value_40 = variable[10];
+ }
+ /* Register variable[10]: Result */
CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[10]) /*AbstractArray::add*/;
- variable[11] = NEW_String_string___String___with_native(BOX_NativeString("Pointer"), TAG_Int(7)); /*new String*/
+ /* Register variable[11]: Once String constant */
+ if (once_value_41 != NIT_NULL) variable[11] = once_value_41;
+ else {
+ variable[11] = NEW_String_string___String___with_native(BOX_NativeString("Pointer"), TAG_Int(7)) /*new String*/;
+ once_value_41 = variable[11];
+ }
+ /* Register variable[11]: Result */
CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[11]) /*AbstractArray::add*/;
+ /* Register variable[4]: Result */
variable[3] = variable[4];
- variable[5] = NEW_Array_array___Array___with_capacity(TAG_Int(7)); /*new Array[Bool]*/
+ /* Register variable[4]: Local variable */
+ variable[5] = NEW_Array_array___Array___with_capacity(TAG_Int(7)) /*new Array[Bool]*/ /* Ensure var: Literal array*/;
CALL_abstract_collection___SimpleCollection___add(variable[5])(variable[5], TAG_Bool(true)) /*AbstractArray::add*/;
CALL_abstract_collection___SimpleCollection___add(variable[5])(variable[5], TAG_Bool(true)) /*AbstractArray::add*/;
CALL_abstract_collection___SimpleCollection___add(variable[5])(variable[5], TAG_Bool(true)) /*AbstractArray::add*/;
CALL_abstract_collection___SimpleCollection___add(variable[5])(variable[5], TAG_Bool(false)) /*AbstractArray::add*/;
CALL_abstract_collection___SimpleCollection___add(variable[5])(variable[5], TAG_Bool(false)) /*AbstractArray::add*/;
CALL_abstract_collection___SimpleCollection___add(variable[5])(variable[5], TAG_Bool(false)) /*AbstractArray::add*/;
+ /* Register variable[5]: Result */
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*/
+ /* Register variable[5]: Local variable */
+ variable[6] = NEW_Array_array___Array___with_capacity(TAG_Int(7)) /*new Array[String]*/ /* Ensure var: Literal array*/;
+ /* Register variable[7]: Once String constant */
+ if (once_value_42 != NIT_NULL) variable[7] = once_value_42;
+ else {
+ variable[7] = NEW_String_string___String___with_native(BOX_NativeString("bigint"), TAG_Int(6)) /*new String*/;
+ once_value_42 = variable[7];
+ }
+ /* Register variable[7]: Result */
CALL_abstract_collection___SimpleCollection___add(variable[6])(variable[6], variable[7]) /*AbstractArray::add*/;
- variable[8] = NEW_String_string___String___with_native(BOX_NativeString("char"), TAG_Int(4)); /*new String*/
+ /* Register variable[8]: Once String constant */
+ if (once_value_43 != NIT_NULL) variable[8] = once_value_43;
+ else {
+ variable[8] = NEW_String_string___String___with_native(BOX_NativeString("char"), TAG_Int(4)) /*new String*/;
+ once_value_43 = variable[8];
+ }
+ /* Register variable[8]: Result */
CALL_abstract_collection___SimpleCollection___add(variable[6])(variable[6], variable[8]) /*AbstractArray::add*/;
- variable[9] = NEW_String_string___String___with_native(BOX_NativeString("int"), TAG_Int(3)); /*new String*/
+ /* Register variable[9]: Once String constant */
+ if (once_value_44 != NIT_NULL) variable[9] = once_value_44;
+ else {
+ variable[9] = NEW_String_string___String___with_native(BOX_NativeString("int"), TAG_Int(3)) /*new String*/;
+ once_value_44 = variable[9];
+ }
+ /* Register variable[9]: Result */
CALL_abstract_collection___SimpleCollection___add(variable[6])(variable[6], variable[9]) /*AbstractArray::add*/;
- variable[10] = NEW_String_string___String___with_native(BOX_NativeString("float"), TAG_Int(5)); /*new String*/
+ /* Register variable[10]: Once String constant */
+ if (once_value_45 != NIT_NULL) variable[10] = once_value_45;
+ else {
+ variable[10] = NEW_String_string___String___with_native(BOX_NativeString("float"), TAG_Int(5)) /*new String*/;
+ once_value_45 = variable[10];
+ }
+ /* Register variable[10]: Result */
CALL_abstract_collection___SimpleCollection___add(variable[6])(variable[6], variable[10]) /*AbstractArray::add*/;
- variable[11] = NEW_String_string___String___with_native(BOX_NativeString("char *"), TAG_Int(6)); /*new String*/
+ /* Register variable[11]: Once String constant */
+ if (once_value_46 != NIT_NULL) variable[11] = once_value_46;
+ else {
+ variable[11] = NEW_String_string___String___with_native(BOX_NativeString("char *"), TAG_Int(6)) /*new String*/;
+ once_value_46 = variable[11];
+ }
+ /* Register variable[11]: Result */
CALL_abstract_collection___SimpleCollection___add(variable[6])(variable[6], variable[11]) /*AbstractArray::add*/;
- variable[12] = NEW_String_string___String___with_native(BOX_NativeString("val_t *"), TAG_Int(7)); /*new String*/
+ /* Register variable[12]: Once String constant */
+ if (once_value_47 != NIT_NULL) variable[12] = once_value_47;
+ else {
+ variable[12] = NEW_String_string___String___with_native(BOX_NativeString("val_t *"), TAG_Int(7)) /*new String*/;
+ once_value_47 = variable[12];
+ }
+ /* Register variable[12]: Result */
CALL_abstract_collection___SimpleCollection___add(variable[6])(variable[6], variable[12]) /*AbstractArray::add*/;
- variable[13] = NEW_String_string___String___with_native(BOX_NativeString("void *"), TAG_Int(6)); /*new String*/
+ /* Register variable[13]: Once String constant */
+ if (once_value_48 != NIT_NULL) variable[13] = once_value_48;
+ else {
+ variable[13] = NEW_String_string___String___with_native(BOX_NativeString("void *"), TAG_Int(6)) /*new String*/;
+ once_value_48 = variable[13];
+ }
+ /* Register variable[13]: Result */
CALL_abstract_collection___SimpleCollection___add(variable[6])(variable[6], variable[13]) /*AbstractArray::add*/;
+ /* Register variable[6]: Result */
variable[5] = variable[6];
- variable[6] = CALL_abstract_collection___Collection___length( variable[3] /*pnames*/)( 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];
+ /* Register variable[6]: Result */
+ variable[6] = CALL_abstract_collection___Collection___length( variable[3] /*pnames*/)( variable[3] /*pnames*/) /*AbstractArrayRead::length*/;
+ /* Register variable[6]: Result */
+ variable[6] = NEW_Range_range___Range___without_last( TAG_Int(0), variable[6]) /*new Range[Int]*/;
+ /* Register variable[6]: For iterator */
variable[6] = CALL_abstract_collection___Collection___iterator(variable[6])(variable[6]) /*Range::iterator*/;
while (true) { /*for*/
+ /* Register variable[7]: For 'is_ok' result */
variable[7] = CALL_abstract_collection___Iterator___is_ok(variable[6])(variable[6]) /*Iterator::is_ok*/;
if (!UNTAG_Bool(variable[7])) break; /*for*/
- variable[7] = CALL_abstract_collection___Iterator___item(variable[6])(variable[6]) /*Iterator::item*/;
+ variable[7] = CALL_abstract_collection___Iterator___item(variable[6])(variable[6]) /*Iterator::item*/ /* Ensure var: For item*/;
+ /* Register variable[8]: Local variable */
variable[8] = variable[7];
+ /* Register variable[9]: Local variable */
+ /* Register variable[10]: Local variable */
variable[10] = variable[3] /*pnames*/;
+ /* Register variable[11]: Local variable */
variable[11] = variable[8] /*i*/;
+ /* Register variable[12]: Method return value and escape marker */
+ /* Register variable[13]: Result */
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(variable[14]));
+ /* Ensure var variable[13]: Left 'and' operand*/
+ if (UNTAG_Bool(variable[13])) { /* and */
+ /* Register variable[13]: Result */
+ variable[13] = ATTR_array___AbstractArrayRead____length(variable[10]) /*AbstractArrayRead::_length*/;
+ /* Register variable[13]: Result */
+ variable[13] = TAG_Bool(UNTAG_Int( variable[11] /*index*/)<UNTAG_Int(variable[13]));
}
- variable[13] = variable[14];
- if (!UNTAG_Bool(variable[13])) { fprintf(stderr, "Assert%s failed", " 'index' "); fprintf(stderr, " in %s (%s:%d)\n", LOCATE_array___Array_____bra, LOCATE_compiling_base, 229); nit_exit(1);}
- variable[13] = variable[10];
- variable[13] = ATTR_array___Array____items(variable[13]) /*Array::_items*/;
+ /* Register variable[13]: Result */
+ if (!UNTAG_Bool(variable[13])) { fprintf(stderr, "Assert%s failed", " 'index' "); fprintf(stderr, " in %s (%s:%d)\n", LOCATE_array___Array_____bra, LOCATE_compiling_base, 234); nit_exit(1);}
+ /* Register variable[13]: Result */
+ variable[13] = ATTR_array___Array____items(variable[10]) /*Array::_items*/;
+ /* Register variable[13]: Result */
variable[13] = UNBOX_NativeArray(variable[13])[UNTAG_Int( variable[11] /*index*/)];
variable[12] = variable[13];
- goto return_label20;
- return_label20: while(false);
+ goto return_label50;
+ return_label50: while(false);
+ /* Register variable[10]: Result */
variable[10] = variable[12];
+ /* Register variable[10]: Result */
variable[10] = CALL_symbol___String___to_symbol(variable[10])(variable[10]) /*String::to_symbol*/;
variable[9] = variable[10];
- variable[11] = NEW_PrimitiveInfo_compiling_base___PrimitiveInfo___init(); /*new PrimitiveInfo*/
- variable[10] = variable[11];
- CALL_compiling_base___PrimitiveInfo___name__eq( variable[10] /*pi*/)( variable[10] /*pi*/, variable[9] /*n*/) /*PrimitiveInfo::name=*/;
+ /* Register variable[10]: Local variable */
+ /* Register variable[11]: Local variable */
variable[11] = variable[4] /*tagged*/;
+ /* Register variable[12]: Local variable */
variable[12] = variable[8] /*i*/;
+ /* Register variable[13]: Method return value and escape marker */
+ /* Register variable[14]: Result */
variable[14] = 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*/)<UNTAG_Int(variable[15]));
+ /* Ensure var variable[14]: Left 'and' operand*/
+ if (UNTAG_Bool(variable[14])) { /* and */
+ /* Register variable[14]: Result */
+ variable[14] = ATTR_array___AbstractArrayRead____length(variable[11]) /*AbstractArrayRead::_length*/;
+ /* Register variable[14]: Result */
+ variable[14] = TAG_Bool(UNTAG_Int( variable[12] /*index*/)<UNTAG_Int(variable[14]));
}
- variable[14] = variable[15];
- if (!UNTAG_Bool(variable[14])) { fprintf(stderr, "Assert%s failed", " 'index' "); fprintf(stderr, " in %s (%s:%d)\n", LOCATE_array___Array_____bra, LOCATE_compiling_base, 229); nit_exit(1);}
- variable[14] = variable[11];
- variable[14] = ATTR_array___Array____items(variable[14]) /*Array::_items*/;
+ /* Register variable[14]: Result */
+ if (!UNTAG_Bool(variable[14])) { fprintf(stderr, "Assert%s failed", " 'index' "); fprintf(stderr, " in %s (%s:%d)\n", LOCATE_array___Array_____bra, LOCATE_compiling_base, 234); nit_exit(1);}
+ /* Register variable[14]: Result */
+ variable[14] = ATTR_array___Array____items(variable[11]) /*Array::_items*/;
+ /* Register variable[14]: Result */
variable[14] = UNBOX_NativeArray(variable[14])[UNTAG_Int( variable[12] /*index*/)];
variable[13] = variable[14];
- goto return_label21;
- return_label21: while(false);
+ goto return_label51;
+ return_label51: while(false);
+ /* Register variable[11]: Result */
variable[11] = variable[13];
- CALL_compiling_base___PrimitiveInfo___tagged__eq( variable[10] /*pi*/)( variable[10] /*pi*/, variable[11]) /*PrimitiveInfo::tagged=*/;
- variable[11] = variable[5] /*cnames*/;
- variable[12] = variable[8] /*i*/;
- variable[14] = TAG_Bool(UNTAG_Int( variable[12] /*index*/)>=UNTAG_Int( TAG_Int(0)));
- variable[15] = variable[14];
+ /* Register variable[12]: Local variable */
+ variable[12] = variable[5] /*cnames*/;
+ /* Register variable[13]: Local variable */
+ variable[13] = variable[8] /*i*/;
+ /* Register variable[14]: Method return value and escape marker */
+ /* Register variable[15]: Result */
+ variable[15] = TAG_Bool(UNTAG_Int( variable[13] /*index*/)>=UNTAG_Int( TAG_Int(0)));
+ /* Ensure var variable[15]: Left 'and' operand*/
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(variable[15]));
+ /* Register variable[15]: Result */
+ variable[15] = ATTR_array___AbstractArrayRead____length(variable[12]) /*AbstractArrayRead::_length*/;
+ /* Register variable[15]: Result */
+ variable[15] = TAG_Bool(UNTAG_Int( variable[13] /*index*/)<UNTAG_Int(variable[15]));
}
+ /* Register variable[15]: Result */
+ if (!UNTAG_Bool(variable[15])) { fprintf(stderr, "Assert%s failed", " 'index' "); fprintf(stderr, " in %s (%s:%d)\n", LOCATE_array___Array_____bra, LOCATE_compiling_base, 234); nit_exit(1);}
+ /* Register variable[15]: Result */
+ variable[15] = ATTR_array___Array____items(variable[12]) /*Array::_items*/;
+ /* Register variable[15]: Result */
+ variable[15] = UNBOX_NativeArray(variable[15])[UNTAG_Int( variable[13] /*index*/)];
variable[14] = variable[15];
- if (!UNTAG_Bool(variable[14])) { fprintf(stderr, "Assert%s failed", " 'index' "); fprintf(stderr, " in %s (%s:%d)\n", LOCATE_array___Array_____bra, LOCATE_compiling_base, 229); nit_exit(1);}
- variable[14] = variable[11];
- variable[14] = ATTR_array___Array____items(variable[14]) /*Array::_items*/;
- variable[14] = UNBOX_NativeArray(variable[14])[UNTAG_Int( variable[12] /*index*/)];
- variable[13] = variable[14];
- goto return_label22;
- return_label22: while(false);
- variable[11] = variable[13];
- CALL_compiling_base___PrimitiveInfo___cname__eq( variable[10] /*pi*/)( variable[10] /*pi*/, variable[11]) /*PrimitiveInfo::cname=*/;
+ goto return_label52;
+ return_label52: while(false);
+ /* Register variable[12]: Result */
+ variable[12] = variable[14];
+ /* Register variable[11]: Result */
+ variable[11] = NEW_PrimitiveInfo_compiling_base___PrimitiveInfo___init( variable[9] /*n*/, variable[11], variable[12]) /*new PrimitiveInfo*/;
+ variable[10] = variable[11];
CALL_abstract_collection___Map_____braeq( variable[2] /*res*/)( variable[2] /*res*/, variable[9] /*n*/, variable[10] /*pi*/) /*HashMap::[]=*/;
- continue_19: while(0);
+ continue_49: while(0);
CALL_abstract_collection___Iterator___next(variable[6])(variable[6]) /*Iterator::next*/;
}
- break_19: while(0);
+ break_49: while(0);
variable[1] = variable[2] /*res*/;
- goto return_label18;
- return_label18: while(false);
+ goto return_label34;
+ return_label34: while(false);
tracehead = trace.prev;
return variable[1];
}
val_t compiling_base___PrimitiveInfo___name(val_t self) {
- struct trace_t trace = {NULL, NULL, 218, LOCATE_compiling_base___PrimitiveInfo___name};
+ struct trace_t trace = {NULL, NULL, 219, LOCATE_compiling_base___PrimitiveInfo___name};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
tracehead = trace.prev;
return ATTR_compiling_base___PrimitiveInfo____name( self) /*PrimitiveInfo::_name*/;
}
-void compiling_base___PrimitiveInfo___name__eq(val_t self, val_t param0) {
- struct trace_t trace = {NULL, NULL, 218, LOCATE_compiling_base___PrimitiveInfo___name__eq};
- val_t *variable = NULL;
- void **closurevariable = NULL;
- trace.prev = tracehead; tracehead = &trace;
- trace.file = LOCATE_compiling_base;
- ATTR_compiling_base___PrimitiveInfo____name( self) /*PrimitiveInfo::_name*/ = param0;
- tracehead = trace.prev;
- return;
-}
val_t compiling_base___PrimitiveInfo___tagged(val_t self) {
- struct trace_t trace = {NULL, NULL, 221, LOCATE_compiling_base___PrimitiveInfo___tagged};
+ struct trace_t trace = {NULL, NULL, 222, LOCATE_compiling_base___PrimitiveInfo___tagged};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
tracehead = trace.prev;
return ATTR_compiling_base___PrimitiveInfo____tagged( self) /*PrimitiveInfo::_tagged*/;
}
-void compiling_base___PrimitiveInfo___tagged__eq(val_t self, val_t param0) {
- struct trace_t trace = {NULL, NULL, 221, LOCATE_compiling_base___PrimitiveInfo___tagged__eq};
- val_t *variable = NULL;
- void **closurevariable = NULL;
- trace.prev = tracehead; tracehead = &trace;
- trace.file = LOCATE_compiling_base;
- ATTR_compiling_base___PrimitiveInfo____tagged( self) /*PrimitiveInfo::_tagged*/ = param0;
- tracehead = trace.prev;
- return;
-}
val_t compiling_base___PrimitiveInfo___cname(val_t self) {
- struct trace_t trace = {NULL, NULL, 224, LOCATE_compiling_base___PrimitiveInfo___cname};
+ struct trace_t trace = {NULL, NULL, 225, LOCATE_compiling_base___PrimitiveInfo___cname};
val_t *variable = NULL;
- void **closurevariable = NULL;
+ struct WBT_ **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, 224, 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;
-}
-void compiling_base___PrimitiveInfo___init(val_t self, int* init_table) {
- struct trace_t trace = {NULL, NULL, 227, LOCATE_compiling_base___PrimitiveInfo___init};
- val_t variable[2];
- void **closurevariable = NULL;
+void compiling_base___PrimitiveInfo___init(val_t self, val_t param0, val_t param1, val_t param2, int* init_table) {
+ struct trace_t trace = {NULL, NULL, 228, LOCATE_compiling_base___PrimitiveInfo___init};
+ val_t variable[5];
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
+ /* Register variable[1]: Local variable */
+ variable[1] = param0;
+ /* Register variable[2]: Local variable */
+ variable[2] = param1;
+ /* Register variable[3]: Local variable */
+ variable[3] = param2;
if (init_table[VAL2OBJ(variable[0])->vft[INIT_TABLE_POS_PrimitiveInfo].i]) return;
- return_label23: while(false);
+ /* Register variable[4]: Method return value and escape marker */
+ ATTR_compiling_base___PrimitiveInfo____name(variable[0]) /*PrimitiveInfo::_name*/ = variable[1] /*n*/;
+ ATTR_compiling_base___PrimitiveInfo____tagged(variable[0]) /*PrimitiveInfo::_tagged*/ = variable[2] /*t*/;
+ ATTR_compiling_base___PrimitiveInfo____cname(variable[0]) /*PrimitiveInfo::_cname*/ = variable[3] /*c*/;
+ return_label53: while(false);
init_table[VAL2OBJ(variable[0])->vft[INIT_TABLE_POS_PrimitiveInfo].i] = 1;
tracehead = trace.prev;
return;
}
val_t compiling_base___MMType___cname(val_t self) {
- struct trace_t trace = {NULL, NULL, 231, LOCATE_compiling_base___MMType___cname};
+ struct trace_t trace = {NULL, NULL, 237, LOCATE_compiling_base___MMType___cname};
+ static val_t once_value_55 = NIT_NULL; /* Once value for string variable[3]*/
val_t variable[4];
- void **closurevariable = NULL;
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
- variable[3] = variable[0];
- variable[3] = CALL_static_type___MMType___local_class(variable[3])(variable[3]) /*MMType::local_class*/;
+ /* Register variable[1]: Method return value and escape marker */
+ /* Register variable[2]: Local variable */
+ /* Register variable[3]: Result */
+ variable[3] = CALL_static_type___MMType___local_class(variable[0])(variable[0]) /*MMType::local_class*/;
+ /* Register variable[3]: Result */
variable[3] = CALL_compiling_base___MMLocalClass___primitive_info(variable[3])(variable[3]) /*MMLocalClass::primitive_info*/;
variable[2] = variable[3];
+ /* Register variable[3]: Result */
variable[3] = TAG_Bool(( variable[2] /*pi*/ == NIT_NULL /*null*/) || (( variable[2] /*pi*/ != NIT_NULL) && ((CALL_kernel___Object_____eqeq( variable[2] /*pi*/)==kernel___Object_____eqeq)?(IS_EQUAL_NN( variable[2] /*pi*/, NIT_NULL /*null*/)):(UNTAG_Bool(CALL_kernel___Object_____eqeq( variable[2] /*pi*/)( variable[2] /*pi*/, NIT_NULL /*null*/) /*Object::==*/)))));
if (UNTAG_Bool(variable[3])) { /*if*/
- variable[3] = NEW_String_string___String___with_native(BOX_NativeString("val_t"), TAG_Int(5)); /*new String*/
+ /* Register variable[3]: Once String constant */
+ if (once_value_55 != NIT_NULL) variable[3] = once_value_55;
+ else {
+ variable[3] = NEW_String_string___String___with_native(BOX_NativeString("val_t"), TAG_Int(5)) /*new String*/;
+ once_value_55 = variable[3];
+ }
+ /* Register variable[3]: Result */
variable[1] = variable[3];
- goto return_label24;
+ goto return_label54;
} else { /*if*/
+ /* Register variable[3]: Result */
variable[3] = CALL_compiling_base___PrimitiveInfo___cname( variable[2] /*pi*/)( variable[2] /*pi*/) /*PrimitiveInfo::cname*/;
variable[1] = variable[3];
- goto return_label24;
+ goto return_label54;
}
- return_label24: while(false);
+ return_label54: while(false);
tracehead = trace.prev;
return variable[1];
}
val_t compiling_base___MMType___default_cvalue(val_t self) {
- struct trace_t trace = {NULL, NULL, 242, LOCATE_compiling_base___MMType___default_cvalue};
- val_t variable[14];
- void **closurevariable = NULL;
+ struct trace_t trace = {NULL, NULL, 248, LOCATE_compiling_base___MMType___default_cvalue};
+ static val_t once_value_57 = NIT_NULL; /* Once value for string variable[4]*/
+ static val_t once_value_58 = NIT_NULL; /* Once value for string variable[4]*/
+ static val_t once_value_59 = NIT_NULL; /* Once value for string variable[4]*/
+ static val_t once_value_60 = NIT_NULL; /* Once value for string variable[3]*/
+ val_t variable[5];
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
- variable[3] = variable[0];
- variable[3] = CALL_static_type___MMType___local_class(variable[3])(variable[3]) /*MMType::local_class*/;
+ /* Register variable[1]: Method return value and escape marker */
+ /* Register variable[2]: Local variable */
+ /* Register variable[3]: Result */
+ variable[3] = CALL_static_type___MMType___local_class(variable[0])(variable[0]) /*MMType::local_class*/;
+ /* Register variable[3]: Result */
variable[3] = CALL_compiling_base___MMLocalClass___primitive_info(variable[3])(variable[3]) /*MMLocalClass::primitive_info*/;
variable[2] = variable[3];
+ /* Register variable[3]: Result */
variable[3] = TAG_Bool(!UNTAG_Bool(TAG_Bool(( variable[2] /*pi*/ == NIT_NULL /*null*/) || (( variable[2] /*pi*/ != NIT_NULL) && ((CALL_kernel___Object_____eqeq( variable[2] /*pi*/)==kernel___Object_____eqeq)?(IS_EQUAL_NN( variable[2] /*pi*/, NIT_NULL /*null*/)):(UNTAG_Bool(CALL_kernel___Object_____eqeq( variable[2] /*pi*/)( variable[2] /*pi*/, NIT_NULL /*null*/) /*Object::==*/)))))));
- variable[4] = variable[3];
- if (UNTAG_Bool(variable[4])) { /* and */
- variable[4] = CALL_compiling_base___PrimitiveInfo___tagged( variable[2] /*pi*/)( variable[2] /*pi*/) /*PrimitiveInfo::tagged*/;
+ /* Ensure var variable[3]: Left 'and' operand*/
+ if (UNTAG_Bool(variable[3])) { /* and */
+ /* Register variable[3]: Result */
+ variable[3] = CALL_compiling_base___PrimitiveInfo___tagged( variable[2] /*pi*/)( variable[2] /*pi*/) /*PrimitiveInfo::tagged*/;
}
- variable[3] = variable[4];
+ /* Register variable[3]: Result */
if (UNTAG_Bool(variable[3])) { /*if*/
- variable[3] = NEW_Array_array___Array___with_capacity(TAG_Int(5)); /*new Array[String]*/
- variable[4] = NEW_String_string___String___with_native(BOX_NativeString("TAG_"), TAG_Int(4)); /*new String*/
- variable[5] = variable[4];
- CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[5]) /*AbstractArray::add*/;
- variable[6] = variable[0];
- variable[6] = CALL_static_type___MMType___local_class(variable[6])(variable[6]) /*MMType::local_class*/;
- variable[6] = CALL_abstractmetamodel___MMLocalClass___name(variable[6])(variable[6]) /*MMLocalClass::name*/;
- variable[7] = variable[6];
- variable[7] = CALL_string___Object___to_s(variable[7])(variable[7]) /*Object::to_s*/;
- CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[7]) /*AbstractArray::add*/;
- variable[8] = NEW_String_string___String___with_native(BOX_NativeString("(("), TAG_Int(2)); /*new String*/
- variable[9] = variable[8];
- CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[9]) /*AbstractArray::add*/;
- variable[10] = CALL_compiling_base___PrimitiveInfo___cname( variable[2] /*pi*/)( variable[2] /*pi*/) /*PrimitiveInfo::cname*/;
- variable[11] = variable[10];
- CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[11]) /*AbstractArray::add*/;
- variable[12] = NEW_String_string___String___with_native(BOX_NativeString(")0)"), TAG_Int(3)); /*new String*/
- variable[13] = variable[12];
- CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[13]) /*AbstractArray::add*/;
+ variable[3] = NEW_Array_array___Array___with_capacity(TAG_Int(5)) /*new Array[String]*/ /* Ensure var: Array (for super-string)*/;
+ /* Register variable[4]: Once String constant */
+ if (once_value_57 != NIT_NULL) variable[4] = once_value_57;
+ else {
+ variable[4] = NEW_String_string___String___with_native(BOX_NativeString("TAG_"), TAG_Int(4)) /*new String*/;
+ once_value_57 = variable[4];
+ }
+ /* Register variable[4]: Result */
+ /* Ensure var variable[4]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[4]) /*AbstractArray::add*/;
+ /* Register variable[4]: Result */
+ variable[4] = CALL_static_type___MMType___local_class(variable[0])(variable[0]) /*MMType::local_class*/;
+ /* Register variable[4]: Result */
+ variable[4] = CALL_abstractmetamodel___MMLocalClass___name(variable[4])(variable[4]) /*MMLocalClass::name*/;
+ /* Ensure var variable[4]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], CALL_string___Object___to_s(variable[4])(variable[4]) /*Object::to_s*/) /*AbstractArray::add*/;
+ /* Register variable[4]: Once String constant */
+ if (once_value_58 != NIT_NULL) variable[4] = once_value_58;
+ else {
+ variable[4] = NEW_String_string___String___with_native(BOX_NativeString("(("), TAG_Int(2)) /*new String*/;
+ once_value_58 = variable[4];
+ }
+ /* Register variable[4]: Result */
+ /* Ensure var variable[4]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[4]) /*AbstractArray::add*/;
+ /* Register variable[4]: Result */
+ variable[4] = CALL_compiling_base___PrimitiveInfo___cname( variable[2] /*pi*/)( variable[2] /*pi*/) /*PrimitiveInfo::cname*/;
+ /* Ensure var variable[4]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[4]) /*AbstractArray::add*/;
+ /* Register variable[4]: Once String constant */
+ if (once_value_59 != NIT_NULL) variable[4] = once_value_59;
+ else {
+ variable[4] = NEW_String_string___String___with_native(BOX_NativeString(")0)"), TAG_Int(3)) /*new String*/;
+ once_value_59 = variable[4];
+ }
+ /* Register variable[4]: Result */
+ /* Ensure var variable[4]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[3])(variable[3], variable[4]) /*AbstractArray::add*/;
+ /* Register variable[3]: Result */
variable[3] = CALL_string___Object___to_s(variable[3])(variable[3]) /*Object::to_s*/;
variable[1] = variable[3];
- goto return_label25;
+ goto return_label56;
} else { /*if*/
- variable[3] = NEW_String_string___String___with_native(BOX_NativeString("NIT_NULL"), TAG_Int(8)); /*new String*/
+ /* Register variable[3]: Once String constant */
+ if (once_value_60 != NIT_NULL) variable[3] = once_value_60;
+ else {
+ variable[3] = NEW_String_string___String___with_native(BOX_NativeString("NIT_NULL"), TAG_Int(8)) /*new String*/;
+ once_value_60 = variable[3];
+ }
+ /* Register variable[3]: Result */
variable[1] = variable[3];
- goto return_label25;
+ goto return_label56;
}
- return_label25: while(false);
+ return_label56: while(false);
tracehead = trace.prev;
return variable[1];
}
val_t compiling_base___MMType___boxtype(val_t self, val_t param0) {
- struct trace_t trace = {NULL, NULL, 254, LOCATE_compiling_base___MMType___boxtype};
- val_t variable[14];
- void **closurevariable = NULL;
+ struct trace_t trace = {NULL, NULL, 260, LOCATE_compiling_base___MMType___boxtype};
+ static val_t once_value_62 = NIT_NULL; /* Once value for string variable[5]*/
+ static val_t once_value_63 = NIT_NULL; /* Once value for string variable[5]*/
+ static val_t once_value_64 = NIT_NULL; /* Once value for string variable[5]*/
+ static val_t once_value_65 = NIT_NULL; /* Once value for string variable[5]*/
+ static val_t once_value_66 = NIT_NULL; /* Once value for string variable[5]*/
+ static val_t once_value_67 = NIT_NULL; /* Once value for string variable[5]*/
+ val_t variable[6];
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
+ /* Register variable[1]: Local variable */
variable[1] = param0;
- variable[4] = variable[0];
- variable[4] = CALL_static_type___MMType___local_class(variable[4])(variable[4]) /*MMType::local_class*/;
+ /* Register variable[2]: Method return value and escape marker */
+ /* Register variable[3]: Local variable */
+ /* Register variable[4]: Result */
+ variable[4] = CALL_static_type___MMType___local_class(variable[0])(variable[0]) /*MMType::local_class*/;
+ /* Register variable[4]: Result */
variable[4] = CALL_compiling_base___MMLocalClass___primitive_info(variable[4])(variable[4]) /*MMLocalClass::primitive_info*/;
variable[3] = variable[4];
+ /* Register variable[4]: Result */
variable[4] = TAG_Bool(( variable[3] /*pi*/ == NIT_NULL /*null*/) || (( variable[3] /*pi*/ != NIT_NULL) && ((CALL_kernel___Object_____eqeq( variable[3] /*pi*/)==kernel___Object_____eqeq)?(IS_EQUAL_NN( variable[3] /*pi*/, NIT_NULL /*null*/)):(UNTAG_Bool(CALL_kernel___Object_____eqeq( variable[3] /*pi*/)( variable[3] /*pi*/, NIT_NULL /*null*/) /*Object::==*/)))));
if (UNTAG_Bool(variable[4])) { /*if*/
variable[2] = variable[1] /*s*/;
- goto return_label26;
+ goto return_label61;
} else { /*if*/
+ /* Register variable[4]: Result */
variable[4] = CALL_compiling_base___PrimitiveInfo___tagged( variable[3] /*pi*/)( variable[3] /*pi*/) /*PrimitiveInfo::tagged*/;
if (UNTAG_Bool(variable[4])) { /*if*/
- variable[4] = NEW_Array_array___Array___with_capacity(TAG_Int(5)); /*new Array[String]*/
- variable[5] = NEW_String_string___String___with_native(BOX_NativeString("TAG_"), TAG_Int(4)); /*new String*/
- variable[6] = variable[5];
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[6]) /*AbstractArray::add*/;
- variable[7] = variable[0];
- variable[7] = CALL_static_type___MMType___local_class(variable[7])(variable[7]) /*MMType::local_class*/;
- variable[7] = CALL_abstractmetamodel___MMLocalClass___name(variable[7])(variable[7]) /*MMLocalClass::name*/;
- variable[8] = variable[7];
- variable[8] = CALL_string___Object___to_s(variable[8])(variable[8]) /*Object::to_s*/;
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[8]) /*AbstractArray::add*/;
- variable[9] = NEW_String_string___String___with_native(BOX_NativeString("("), TAG_Int(1)); /*new String*/
- variable[10] = variable[9];
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[10]) /*AbstractArray::add*/;
- variable[11] = variable[1] /*s*/;
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[11]) /*AbstractArray::add*/;
- variable[12] = NEW_String_string___String___with_native(BOX_NativeString(")"), TAG_Int(1)); /*new String*/
- variable[13] = variable[12];
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[13]) /*AbstractArray::add*/;
+ variable[4] = NEW_Array_array___Array___with_capacity(TAG_Int(5)) /*new Array[String]*/ /* Ensure var: Array (for super-string)*/;
+ /* Register variable[5]: Once String constant */
+ if (once_value_62 != NIT_NULL) variable[5] = once_value_62;
+ else {
+ variable[5] = NEW_String_string___String___with_native(BOX_NativeString("TAG_"), TAG_Int(4)) /*new String*/;
+ once_value_62 = variable[5];
+ }
+ /* Register variable[5]: Result */
+ /* Ensure var variable[5]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/;
+ /* Register variable[5]: Result */
+ variable[5] = CALL_static_type___MMType___local_class(variable[0])(variable[0]) /*MMType::local_class*/;
+ /* Register variable[5]: Result */
+ variable[5] = CALL_abstractmetamodel___MMLocalClass___name(variable[5])(variable[5]) /*MMLocalClass::name*/;
+ /* Ensure var variable[5]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], CALL_string___Object___to_s(variable[5])(variable[5]) /*Object::to_s*/) /*AbstractArray::add*/;
+ /* Register variable[5]: Once String constant */
+ if (once_value_63 != NIT_NULL) variable[5] = once_value_63;
+ else {
+ variable[5] = NEW_String_string___String___with_native(BOX_NativeString("("), TAG_Int(1)) /*new String*/;
+ once_value_63 = variable[5];
+ }
+ /* Register variable[5]: Result */
+ /* Ensure var variable[5]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/;
+ variable[5] = variable[1] /*s*/ /* Ensure var: super-string element*/;
+ CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/;
+ /* Register variable[5]: Once String constant */
+ if (once_value_64 != NIT_NULL) variable[5] = once_value_64;
+ else {
+ variable[5] = NEW_String_string___String___with_native(BOX_NativeString(")"), TAG_Int(1)) /*new String*/;
+ once_value_64 = variable[5];
+ }
+ /* Register variable[5]: Result */
+ /* Ensure var variable[5]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/;
+ /* Register variable[4]: Result */
variable[4] = CALL_string___Object___to_s(variable[4])(variable[4]) /*Object::to_s*/;
variable[2] = variable[4];
- goto return_label26;
+ goto return_label61;
} else { /*if*/
- variable[4] = NEW_Array_array___Array___with_capacity(TAG_Int(5)); /*new Array[String]*/
- variable[5] = NEW_String_string___String___with_native(BOX_NativeString("BOX_"), TAG_Int(4)); /*new String*/
- variable[6] = variable[5];
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[6]) /*AbstractArray::add*/;
- variable[7] = variable[0];
- variable[7] = CALL_static_type___MMType___local_class(variable[7])(variable[7]) /*MMType::local_class*/;
- variable[7] = CALL_abstractmetamodel___MMLocalClass___name(variable[7])(variable[7]) /*MMLocalClass::name*/;
- variable[8] = variable[7];
- variable[8] = CALL_string___Object___to_s(variable[8])(variable[8]) /*Object::to_s*/;
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[8]) /*AbstractArray::add*/;
- variable[9] = NEW_String_string___String___with_native(BOX_NativeString("("), TAG_Int(1)); /*new String*/
- variable[10] = variable[9];
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[10]) /*AbstractArray::add*/;
- variable[11] = variable[1] /*s*/;
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[11]) /*AbstractArray::add*/;
- variable[12] = NEW_String_string___String___with_native(BOX_NativeString(")"), TAG_Int(1)); /*new String*/
- variable[13] = variable[12];
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[13]) /*AbstractArray::add*/;
+ variable[4] = NEW_Array_array___Array___with_capacity(TAG_Int(5)) /*new Array[String]*/ /* Ensure var: Array (for super-string)*/;
+ /* Register variable[5]: Once String constant */
+ if (once_value_65 != NIT_NULL) variable[5] = once_value_65;
+ else {
+ variable[5] = NEW_String_string___String___with_native(BOX_NativeString("BOX_"), TAG_Int(4)) /*new String*/;
+ once_value_65 = variable[5];
+ }
+ /* Register variable[5]: Result */
+ /* Ensure var variable[5]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/;
+ /* Register variable[5]: Result */
+ variable[5] = CALL_static_type___MMType___local_class(variable[0])(variable[0]) /*MMType::local_class*/;
+ /* Register variable[5]: Result */
+ variable[5] = CALL_abstractmetamodel___MMLocalClass___name(variable[5])(variable[5]) /*MMLocalClass::name*/;
+ /* Ensure var variable[5]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], CALL_string___Object___to_s(variable[5])(variable[5]) /*Object::to_s*/) /*AbstractArray::add*/;
+ /* Register variable[5]: Once String constant */
+ if (once_value_66 != NIT_NULL) variable[5] = once_value_66;
+ else {
+ variable[5] = NEW_String_string___String___with_native(BOX_NativeString("("), TAG_Int(1)) /*new String*/;
+ once_value_66 = variable[5];
+ }
+ /* Register variable[5]: Result */
+ /* Ensure var variable[5]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/;
+ variable[5] = variable[1] /*s*/ /* Ensure var: super-string element*/;
+ CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/;
+ /* Register variable[5]: Once String constant */
+ if (once_value_67 != NIT_NULL) variable[5] = once_value_67;
+ else {
+ variable[5] = NEW_String_string___String___with_native(BOX_NativeString(")"), TAG_Int(1)) /*new String*/;
+ once_value_67 = variable[5];
+ }
+ /* Register variable[5]: Result */
+ /* Ensure var variable[5]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/;
+ /* Register variable[4]: Result */
variable[4] = CALL_string___Object___to_s(variable[4])(variable[4]) /*Object::to_s*/;
variable[2] = variable[4];
- goto return_label26;
+ goto return_label61;
}
}
- return_label26: while(false);
+ return_label61: while(false);
tracehead = trace.prev;
return variable[2];
}
val_t compiling_base___MMType___unboxtype(val_t self, val_t param0) {
- struct trace_t trace = {NULL, NULL, 268, LOCATE_compiling_base___MMType___unboxtype};
- val_t variable[14];
- void **closurevariable = NULL;
+ struct trace_t trace = {NULL, NULL, 274, LOCATE_compiling_base___MMType___unboxtype};
+ static val_t once_value_69 = NIT_NULL; /* Once value for string variable[5]*/
+ static val_t once_value_70 = NIT_NULL; /* Once value for string variable[5]*/
+ static val_t once_value_71 = NIT_NULL; /* Once value for string variable[5]*/
+ static val_t once_value_72 = NIT_NULL; /* Once value for string variable[5]*/
+ static val_t once_value_73 = NIT_NULL; /* Once value for string variable[5]*/
+ static val_t once_value_74 = NIT_NULL; /* Once value for string variable[5]*/
+ val_t variable[6];
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
+ /* Register variable[1]: Local variable */
variable[1] = param0;
- variable[4] = variable[0];
- variable[4] = CALL_static_type___MMType___local_class(variable[4])(variable[4]) /*MMType::local_class*/;
+ /* Register variable[2]: Method return value and escape marker */
+ /* Register variable[3]: Local variable */
+ /* Register variable[4]: Result */
+ variable[4] = CALL_static_type___MMType___local_class(variable[0])(variable[0]) /*MMType::local_class*/;
+ /* Register variable[4]: Result */
variable[4] = CALL_compiling_base___MMLocalClass___primitive_info(variable[4])(variable[4]) /*MMLocalClass::primitive_info*/;
variable[3] = variable[4];
+ /* Register variable[4]: Result */
variable[4] = TAG_Bool(( variable[3] /*pi*/ == NIT_NULL /*null*/) || (( variable[3] /*pi*/ != NIT_NULL) && ((CALL_kernel___Object_____eqeq( variable[3] /*pi*/)==kernel___Object_____eqeq)?(IS_EQUAL_NN( variable[3] /*pi*/, NIT_NULL /*null*/)):(UNTAG_Bool(CALL_kernel___Object_____eqeq( variable[3] /*pi*/)( variable[3] /*pi*/, NIT_NULL /*null*/) /*Object::==*/)))));
if (UNTAG_Bool(variable[4])) { /*if*/
variable[2] = variable[1] /*s*/;
- goto return_label27;
+ goto return_label68;
} else { /*if*/
+ /* Register variable[4]: Result */
variable[4] = CALL_compiling_base___PrimitiveInfo___tagged( variable[3] /*pi*/)( variable[3] /*pi*/) /*PrimitiveInfo::tagged*/;
if (UNTAG_Bool(variable[4])) { /*if*/
- variable[4] = NEW_Array_array___Array___with_capacity(TAG_Int(5)); /*new Array[String]*/
- variable[5] = NEW_String_string___String___with_native(BOX_NativeString("UNTAG_"), TAG_Int(6)); /*new String*/
- variable[6] = variable[5];
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[6]) /*AbstractArray::add*/;
- variable[7] = variable[0];
- variable[7] = CALL_static_type___MMType___local_class(variable[7])(variable[7]) /*MMType::local_class*/;
- variable[7] = CALL_abstractmetamodel___MMLocalClass___name(variable[7])(variable[7]) /*MMLocalClass::name*/;
- variable[8] = variable[7];
- variable[8] = CALL_string___Object___to_s(variable[8])(variable[8]) /*Object::to_s*/;
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[8]) /*AbstractArray::add*/;
- variable[9] = NEW_String_string___String___with_native(BOX_NativeString("("), TAG_Int(1)); /*new String*/
- variable[10] = variable[9];
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[10]) /*AbstractArray::add*/;
- variable[11] = variable[1] /*s*/;
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[11]) /*AbstractArray::add*/;
- variable[12] = NEW_String_string___String___with_native(BOX_NativeString(")"), TAG_Int(1)); /*new String*/
- variable[13] = variable[12];
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[13]) /*AbstractArray::add*/;
+ variable[4] = NEW_Array_array___Array___with_capacity(TAG_Int(5)) /*new Array[String]*/ /* Ensure var: Array (for super-string)*/;
+ /* Register variable[5]: Once String constant */
+ if (once_value_69 != NIT_NULL) variable[5] = once_value_69;
+ else {
+ variable[5] = NEW_String_string___String___with_native(BOX_NativeString("UNTAG_"), TAG_Int(6)) /*new String*/;
+ once_value_69 = variable[5];
+ }
+ /* Register variable[5]: Result */
+ /* Ensure var variable[5]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/;
+ /* Register variable[5]: Result */
+ variable[5] = CALL_static_type___MMType___local_class(variable[0])(variable[0]) /*MMType::local_class*/;
+ /* Register variable[5]: Result */
+ variable[5] = CALL_abstractmetamodel___MMLocalClass___name(variable[5])(variable[5]) /*MMLocalClass::name*/;
+ /* Ensure var variable[5]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], CALL_string___Object___to_s(variable[5])(variable[5]) /*Object::to_s*/) /*AbstractArray::add*/;
+ /* Register variable[5]: Once String constant */
+ if (once_value_70 != NIT_NULL) variable[5] = once_value_70;
+ else {
+ variable[5] = NEW_String_string___String___with_native(BOX_NativeString("("), TAG_Int(1)) /*new String*/;
+ once_value_70 = variable[5];
+ }
+ /* Register variable[5]: Result */
+ /* Ensure var variable[5]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/;
+ variable[5] = variable[1] /*s*/ /* Ensure var: super-string element*/;
+ CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/;
+ /* Register variable[5]: Once String constant */
+ if (once_value_71 != NIT_NULL) variable[5] = once_value_71;
+ else {
+ variable[5] = NEW_String_string___String___with_native(BOX_NativeString(")"), TAG_Int(1)) /*new String*/;
+ once_value_71 = variable[5];
+ }
+ /* Register variable[5]: Result */
+ /* Ensure var variable[5]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/;
+ /* Register variable[4]: Result */
variable[4] = CALL_string___Object___to_s(variable[4])(variable[4]) /*Object::to_s*/;
variable[2] = variable[4];
- goto return_label27;
+ goto return_label68;
} else { /*if*/
- variable[4] = NEW_Array_array___Array___with_capacity(TAG_Int(5)); /*new Array[String]*/
- variable[5] = NEW_String_string___String___with_native(BOX_NativeString("UNBOX_"), TAG_Int(6)); /*new String*/
- variable[6] = variable[5];
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[6]) /*AbstractArray::add*/;
- variable[7] = variable[0];
- variable[7] = CALL_static_type___MMType___local_class(variable[7])(variable[7]) /*MMType::local_class*/;
- variable[7] = CALL_abstractmetamodel___MMLocalClass___name(variable[7])(variable[7]) /*MMLocalClass::name*/;
- variable[8] = variable[7];
- variable[8] = CALL_string___Object___to_s(variable[8])(variable[8]) /*Object::to_s*/;
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[8]) /*AbstractArray::add*/;
- variable[9] = NEW_String_string___String___with_native(BOX_NativeString("("), TAG_Int(1)); /*new String*/
- variable[10] = variable[9];
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[10]) /*AbstractArray::add*/;
- variable[11] = variable[1] /*s*/;
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[11]) /*AbstractArray::add*/;
- variable[12] = NEW_String_string___String___with_native(BOX_NativeString(")"), TAG_Int(1)); /*new String*/
- variable[13] = variable[12];
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[13]) /*AbstractArray::add*/;
+ variable[4] = NEW_Array_array___Array___with_capacity(TAG_Int(5)) /*new Array[String]*/ /* Ensure var: Array (for super-string)*/;
+ /* Register variable[5]: Once String constant */
+ if (once_value_72 != NIT_NULL) variable[5] = once_value_72;
+ else {
+ variable[5] = NEW_String_string___String___with_native(BOX_NativeString("UNBOX_"), TAG_Int(6)) /*new String*/;
+ once_value_72 = variable[5];
+ }
+ /* Register variable[5]: Result */
+ /* Ensure var variable[5]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/;
+ /* Register variable[5]: Result */
+ variable[5] = CALL_static_type___MMType___local_class(variable[0])(variable[0]) /*MMType::local_class*/;
+ /* Register variable[5]: Result */
+ variable[5] = CALL_abstractmetamodel___MMLocalClass___name(variable[5])(variable[5]) /*MMLocalClass::name*/;
+ /* Ensure var variable[5]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], CALL_string___Object___to_s(variable[5])(variable[5]) /*Object::to_s*/) /*AbstractArray::add*/;
+ /* Register variable[5]: Once String constant */
+ if (once_value_73 != NIT_NULL) variable[5] = once_value_73;
+ else {
+ variable[5] = NEW_String_string___String___with_native(BOX_NativeString("("), TAG_Int(1)) /*new String*/;
+ once_value_73 = variable[5];
+ }
+ /* Register variable[5]: Result */
+ /* Ensure var variable[5]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/;
+ variable[5] = variable[1] /*s*/ /* Ensure var: super-string element*/;
+ CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/;
+ /* Register variable[5]: Once String constant */
+ if (once_value_74 != NIT_NULL) variable[5] = once_value_74;
+ else {
+ variable[5] = NEW_String_string___String___with_native(BOX_NativeString(")"), TAG_Int(1)) /*new String*/;
+ once_value_74 = variable[5];
+ }
+ /* Register variable[5]: Result */
+ /* Ensure var variable[5]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/;
+ /* Register variable[4]: Result */
variable[4] = CALL_string___Object___to_s(variable[4])(variable[4]) /*Object::to_s*/;
variable[2] = variable[4];
- goto return_label27;
+ goto return_label68;
}
}
- return_label27: while(false);
+ return_label68: while(false);
tracehead = trace.prev;
return variable[2];
}
val_t compiling_base___MMLocalProperty___cname(val_t self) {
- struct trace_t trace = {NULL, NULL, 287, LOCATE_compiling_base___MMLocalProperty___cname};
- val_t variable[8];
- void **closurevariable = NULL;
+ struct trace_t trace = {NULL, NULL, 293, LOCATE_compiling_base___MMLocalProperty___cname};
+ val_t variable[6];
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
- variable[2] = variable[0];
- variable[2] = ATTR_compiling_base___MMLocalProperty____cname_cache(variable[2]) /*MMLocalProperty::_cname_cache*/;
+ /* Register variable[1]: Method return value and escape marker */
+ /* Register variable[2]: Result */
+ variable[2] = ATTR_compiling_base___MMLocalProperty____cname_cache(variable[0]) /*MMLocalProperty::_cname_cache*/;
+ /* Register variable[2]: Result */
variable[2] = TAG_Bool((variable[2] == NIT_NULL /*null*/) || ((variable[2] != NIT_NULL) && UNTAG_Bool(CALL_kernel___Object_____eqeq(variable[2])(variable[2], NIT_NULL /*null*/) /*String::==*/)));
if (UNTAG_Bool(variable[2])) { /*if*/
- variable[2] = 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] = CALL_abstractmetamodel___MMLocalProperty___module(variable[5])(variable[5]) /*MMLocalProperty::module*/;
- variable[5] = CALL_abstractmetamodel___MMModule___name(variable[5])(variable[5]) /*MMModule::name*/;
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[5]) /*AbstractArray::add*/;
- variable[6] = variable[0];
- variable[6] = CALL_abstractmetamodel___MMLocalProperty___local_class(variable[6])(variable[6]) /*MMLocalProperty::local_class*/;
- variable[6] = CALL_abstractmetamodel___MMLocalClass___name(variable[6])(variable[6]) /*MMLocalClass::name*/;
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[6]) /*AbstractArray::add*/;
- variable[7] = variable[0];
- variable[7] = CALL_abstractmetamodel___MMLocalProperty___name(variable[7])(variable[7]) /*MMLocalProperty::name*/;
- CALL_abstract_collection___SimpleCollection___add(variable[4])(variable[4], variable[7]) /*AbstractArray::add*/;
- variable[3] = CALL_utils___Object___cmangle(variable[3])(variable[3], variable[4]) /*Object::cmangle*/;
- ATTR_compiling_base___MMLocalProperty____cname_cache(variable[2]) /*MMLocalProperty::_cname_cache*/ = variable[3];
+ variable[2] = NEW_Array_array___Array___with_capacity(TAG_Int(3)) /*new Array[Symbol]*/ /* Ensure var: Literal array*/;
+ /* Register variable[3]: Result */
+ variable[3] = CALL_abstractmetamodel___MMLocalProperty___module(variable[0])(variable[0]) /*MMLocalProperty::module*/;
+ /* Register variable[3]: Result */
+ variable[3] = CALL_abstractmetamodel___MMModule___name(variable[3])(variable[3]) /*MMModule::name*/;
+ CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/;
+ /* Register variable[4]: Result */
+ variable[4] = CALL_abstractmetamodel___MMLocalProperty___local_class(variable[0])(variable[0]) /*MMLocalProperty::local_class*/;
+ /* Register variable[4]: Result */
+ variable[4] = CALL_abstractmetamodel___MMLocalClass___name(variable[4])(variable[4]) /*MMLocalClass::name*/;
+ CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[4]) /*AbstractArray::add*/;
+ /* Register variable[5]: Result */
+ variable[5] = CALL_abstractmetamodel___MMLocalProperty___name(variable[0])(variable[0]) /*MMLocalProperty::name*/;
+ CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[5]) /*AbstractArray::add*/;
+ /* Register variable[2]: Result */
+ /* Register variable[2]: Result */
+ variable[2] = CALL_utils___Object___cmangle(variable[0])(variable[0], variable[2]) /*Object::cmangle*/;
+ ATTR_compiling_base___MMLocalProperty____cname_cache(variable[0]) /*MMLocalProperty::_cname_cache*/ = variable[2];
}
- variable[2] = variable[0];
- variable[2] = ATTR_compiling_base___MMLocalProperty____cname_cache(variable[2]) /*MMLocalProperty::_cname_cache*/;
+ /* Register variable[2]: Result */
+ variable[2] = ATTR_compiling_base___MMLocalProperty____cname_cache(variable[0]) /*MMLocalProperty::_cname_cache*/;
variable[1] = variable[2];
- goto return_label28;
- return_label28: while(false);
+ goto return_label75;
+ return_label75: while(false);
tracehead = trace.prev;
return variable[1];
}
val_t compiling_base___MMLocalProperty___super_meth_call(val_t self) {
- struct trace_t trace = {NULL, NULL, 296, LOCATE_compiling_base___MMLocalProperty___super_meth_call};
- val_t variable[9];
- void **closurevariable = NULL;
+ struct trace_t trace = {NULL, NULL, 302, LOCATE_compiling_base___MMLocalProperty___super_meth_call};
+ static val_t once_value_77 = NIT_NULL; /* Once value for string variable[3]*/
+ static val_t once_value_78 = NIT_NULL; /* Once value for string variable[3]*/
+ val_t variable[4];
+ struct WBT_ **closurevariable = NULL;
trace.prev = tracehead; tracehead = &trace;
trace.file = LOCATE_compiling_base;
+ /* Register variable[0]: Local variable */
variable[0] = self;
- variable[2] = NEW_Array_array___Array___with_capacity(TAG_Int(3)); /*new Array[String]*/
- variable[3] = NEW_String_string___String___with_native(BOX_NativeString("CALL_SUPER_"), TAG_Int(11)); /*new String*/
- variable[4] = variable[3];
- CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[4]) /*AbstractArray::add*/;
- variable[5] = variable[0];
- variable[5] = CALL_compiling_base___MMLocalProperty___cname(variable[5])(variable[5]) /*MMLocalProperty::cname*/;
- variable[6] = variable[5];
- CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[6]) /*AbstractArray::add*/;
- variable[7] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
- variable[8] = variable[7];
- CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[8]) /*AbstractArray::add*/;
+ /* Register variable[1]: Method return value and escape marker */
+ variable[2] = NEW_Array_array___Array___with_capacity(TAG_Int(3)) /*new Array[String]*/ /* Ensure var: Array (for super-string)*/;
+ /* Register variable[3]: Once String constant */
+ if (once_value_77 != NIT_NULL) variable[3] = once_value_77;
+ else {
+ variable[3] = NEW_String_string___String___with_native(BOX_NativeString("CALL_SUPER_"), TAG_Int(11)) /*new String*/;
+ once_value_77 = variable[3];
+ }
+ /* Register variable[3]: Result */
+ /* Ensure var variable[3]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/;
+ /* Register variable[3]: Result */
+ variable[3] = CALL_compiling_base___MMLocalProperty___cname(variable[0])(variable[0]) /*MMLocalProperty::cname*/;
+ /* Ensure var variable[3]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/;
+ /* Register variable[3]: Once String constant */
+ if (once_value_78 != NIT_NULL) variable[3] = once_value_78;
+ else {
+ variable[3] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)) /*new String*/;
+ once_value_78 = variable[3];
+ }
+ /* Register variable[3]: Result */
+ /* Ensure var variable[3]: super-string element*/
+ CALL_abstract_collection___SimpleCollection___add(variable[2])(variable[2], variable[3]) /*AbstractArray::add*/;
+ /* Register variable[2]: Result */
variable[2] = CALL_string___Object___to_s(variable[2])(variable[2]) /*Object::to_s*/;
variable[1] = variable[2];
- goto return_label29;
- return_label29: while(false);
+ goto return_label76;
+ return_label76: while(false);
tracehead = trace.prev;
return variable[1];
}