/* This C file is generated by NIT to compile module string. */
#include "string._sep.h"
val_t string___String_____bra(val_t self, val_t param0) {
- struct trace_t trace = {NULL, LOCATE_string___String_____bra, 31};
+ struct trace_t trace = {NULL, NULL, 31, LOCATE_string___String_____bra};
val_t variable0;
val_t variable1;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
variable1 = ATTR_string___String____items( self) /*String::_items*/;
variable1 = TAG_Char(UNBOX_NativeString(variable1)[UNTAG_Int( variable0 /*index*/)]);
return variable1;
}
void string___String_____braeq(val_t self, val_t param0, val_t param1) {
- struct trace_t trace = {NULL, LOCATE_string___String_____braeq, 33};
+ struct trace_t trace = {NULL, NULL, 33, LOCATE_string___String_____braeq};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable3;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
variable1 = param1;
- variable2 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
+ variable2 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
variable2 = TAG_Bool(( variable0 /*index*/)==(variable2));
if (UNTAG_Bool(variable2)) { /*if*/
((string___String___add_t)CALL( self,COLOR_abstract_collection___SimpleCollection___add))( self, variable1 /*item*/) /*String::add*/;
variable2 = TAG_Bool(UNTAG_Int( variable0 /*index*/)>=UNTAG_Int( TAG_Int(0)));
variable3 = variable2;
if (UNTAG_Bool(variable3)) { /* and */
- variable3 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
+ variable3 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
variable3 = TAG_Bool(UNTAG_Int( variable0 /*index*/)<UNTAG_Int(variable3));
}
variable2 = variable3;
- if (!UNTAG_Bool(variable2)) { fprintf(stderr, "Assert%s failed (%s: %d)\n", "", LOCATE_string___String_____braeq, 39); nit_exit(1);}
+ if (!UNTAG_Bool(variable2)) { fprintf(stderr, "Assert%s failed", ""); fprintf(stderr, " in %s (%s:%d)\n", LOCATE_string___String_____braeq, LOCATE_string, 39); nit_exit(1);}
variable2 = ATTR_string___String____items( self) /*String::_items*/;
UNBOX_NativeString(variable2)[UNTAG_Int( variable0 /*index*/)]=UNTAG_Char( variable1 /*item*/);
return_label1: while(false);
return;
}
void string___String___add(val_t self, val_t param0) {
- struct trace_t trace = {NULL, LOCATE_string___String___add, 43};
+ struct trace_t trace = {NULL, NULL, 43, LOCATE_string___String___add};
val_t variable0;
val_t variable1;
val_t variable2;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
variable1 = ATTR_string___String____capacity( self) /*String::_capacity*/;
- variable2 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
+ variable2 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
variable1 = TAG_Bool(UNTAG_Int(variable1)<=UNTAG_Int(variable2));
if (UNTAG_Bool(variable1)) { /*if*/
- variable1 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
+ variable1 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
variable1 = TAG_Int(UNTAG_Int(variable1)+UNTAG_Int( TAG_Int(5)));
((string___String___enlarge_t)CALL( self,COLOR_array___AbstractArray___enlarge))( self, variable1) /*String::enlarge*/;
}
variable1 = ATTR_string___String____items( self) /*String::_items*/;
- variable2 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
+ variable2 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
UNBOX_NativeString(variable1)[UNTAG_Int(variable2)]=UNTAG_Char( variable0 /*c*/);
- ATTR_array___AbstractArray____length( self) /*String::_length*/ = TAG_Int(UNTAG_Int(ATTR_array___AbstractArray____length( self) /*String::_length*/)+UNTAG_Int( TAG_Int(1)));
+ ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/ = TAG_Int(UNTAG_Int(ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/)+UNTAG_Int( TAG_Int(1)));
tracehead = trace.prev;
return;
}
void string___String___enlarge(val_t self, val_t param0) {
- struct trace_t trace = {NULL, LOCATE_string___String___enlarge, 50};
+ struct trace_t trace = {NULL, NULL, 50, LOCATE_string___String___enlarge};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable3;
val_t variable4;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
variable2 = ATTR_string___String____capacity( self) /*String::_capacity*/;
variable1 = variable2;
variable3 = BOX_NativeString((char*)malloc((UNTAG_Int( variable1 /*c*/) * sizeof(char))));
variable2 = variable3;
variable3 = ATTR_string___String____items( self) /*String::_items*/;
- variable4 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
+ variable4 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
(void)memcpy(UNBOX_NativeString( variable2 /*a*/)+UNTAG_Int( TAG_Int(0)), UNBOX_NativeString(variable3)+UNTAG_Int( TAG_Int(0)), UNTAG_Int(variable4));
ATTR_string___String____items( self) /*String::_items*/ = variable2 /*a*/;
ATTR_string___String____capacity( self) /*String::_capacity*/ = variable1 /*c*/;
return;
}
void string___String___append(val_t self, val_t param0) {
- struct trace_t trace = {NULL, LOCATE_string___String___append, 61};
+ struct trace_t trace = {NULL, NULL, 61, LOCATE_string___String___append};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable3;
val_t variable4;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
variable1 = TAG_Bool(( variable0 /*s*/==NIT_NULL) || VAL_ISA( variable0 /*s*/, COLOR_String, ID_String)) /*cast String*/;
if (UNTAG_Bool(variable1)) { /*if*/
- variable2 = ((array___AbstractArray___length_t)CALL( variable0 /*s*/,COLOR_abstract_collection___Collection___length))( variable0 /*s*/) /*String::length*/;
+ variable2 = ((array___AbstractArray___length_t)CALL( variable0 /*s*/,COLOR_abstract_collection___Collection___length))( variable0 /*s*/) /*AbstractArray::length*/;
variable1 = variable2;
variable2 = ATTR_string___String____capacity( self) /*String::_capacity*/;
- variable3 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
+ variable3 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
variable3 = TAG_Int(UNTAG_Int(variable3)+UNTAG_Int( variable1 /*sl*/));
variable2 = TAG_Bool(UNTAG_Int(variable2)<UNTAG_Int(variable3));
if (UNTAG_Bool(variable2)) { /*if*/
- variable2 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
+ variable2 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
variable2 = TAG_Int(UNTAG_Int(variable2)+UNTAG_Int( variable1 /*sl*/));
((string___String___enlarge_t)CALL( self,COLOR_array___AbstractArray___enlarge))( self, variable2) /*String::enlarge*/;
}
variable2 = ((string___String___items_t)CALL( variable0 /*s*/,COLOR_string___String___items))( variable0 /*s*/) /*String::items*/;
variable3 = ATTR_string___String____items( self) /*String::_items*/;
- variable4 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
+ variable4 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
(void)memcpy(UNBOX_NativeString(variable3)+UNTAG_Int(variable4), UNBOX_NativeString(variable2)+UNTAG_Int( TAG_Int(0)), UNTAG_Int( variable1 /*sl*/));
- ATTR_array___AbstractArray____length( self) /*String::_length*/ = TAG_Int(UNTAG_Int(ATTR_array___AbstractArray____length( self) /*String::_length*/)+UNTAG_Int( variable1 /*sl*/));
+ ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/ = TAG_Int(UNTAG_Int(ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/)+UNTAG_Int( variable1 /*sl*/));
} else { /*if*/
((string___String___append_t)CALL( self,COLOR_SUPER_string___String___append))( self, param0) /*super String::append*/;
}
return;
}
val_t string___String_____plus(val_t self, val_t param0) {
- struct trace_t trace = {NULL, LOCATE_string___String_____plus, 73};
+ struct trace_t trace = {NULL, NULL, 73, LOCATE_string___String_____plus};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable3;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
- variable2 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
- variable3 = ((array___AbstractArray___length_t)CALL( variable0 /*s*/,COLOR_abstract_collection___Collection___length))( variable0 /*s*/) /*String::length*/;
+ variable2 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
+ variable3 = ((array___AbstractArray___length_t)CALL( variable0 /*s*/,COLOR_abstract_collection___Collection___length))( variable0 /*s*/) /*AbstractArray::length*/;
variable2 = TAG_Int(UNTAG_Int(variable2)+UNTAG_Int(variable3));
- variable3 = NEW_string___String___with_capacity(variable2); /*new String*/
+ variable3 = NEW_String_string___String___with_capacity(variable2); /*new String*/
variable2 = variable3;
variable1 = variable2;
((string___String___append_t)CALL( variable1 /*r*/,COLOR_abstract_collection___IndexedCollection___append))( variable1 /*r*/, self) /*String::append*/;
return variable1;
}
val_t string___String_____star(val_t self, val_t param0) {
- struct trace_t trace = {NULL, LOCATE_string___String_____star, 82};
+ struct trace_t trace = {NULL, NULL, 82, LOCATE_string___String_____star};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable3;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
variable1 = TAG_Bool(UNTAG_Int( variable0 /*i*/)>=UNTAG_Int( TAG_Int(0)));
- if (!UNTAG_Bool(variable1)) { fprintf(stderr, "Assert%s failed (%s: %d)\n", "", LOCATE_string___String_____star, 85); nit_exit(1);}
- variable2 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
+ if (!UNTAG_Bool(variable1)) { fprintf(stderr, "Assert%s failed", ""); fprintf(stderr, " in %s (%s:%d)\n", LOCATE_string___String_____star, LOCATE_string, 85); nit_exit(1);}
+ variable2 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
variable2 = TAG_Int(UNTAG_Int(variable2)*UNTAG_Int( variable0 /*i*/));
- variable3 = NEW_string___String___with_capacity(variable2); /*new String*/
+ variable3 = NEW_String_string___String___with_capacity(variable2); /*new String*/
variable2 = variable3;
variable1 = variable2;
while (true) { /*while*/
return variable1;
}
val_t string___String___to_s(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___String___to_s, 94};
+ struct trace_t trace = {NULL, NULL, 94, LOCATE_string___String___to_s};
val_t variable0;
trace.prev = tracehead; tracehead = &trace;
- variable0 = NEW_string___String___from( self); /*new String*/
+ trace.file = LOCATE_string;
+ variable0 = NEW_String_string___String___from( self); /*new String*/
goto return_label9;
return_label9: while(false);
tracehead = trace.prev;
return variable0;
}
val_t string___String___to_i(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___String___to_i, 97};
+ struct trace_t trace = {NULL, NULL, 97, LOCATE_string___String___to_i};
val_t variable0;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = ((string___String___to_cstring_t)CALL( self,COLOR_string___String___to_cstring))( self) /*String::to_cstring*/;
variable0 = TAG_Int(atoi(UNBOX_NativeString(variable0)));
goto return_label10;
return variable0;
}
val_t string___String___to_hex(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___String___to_hex, 104};
+ struct trace_t trace = {NULL, NULL, 104, LOCATE_string___String___to_hex};
val_t variable0;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = ((string___String___a_to_t)CALL( self,COLOR_string___String___a_to))( self, TAG_Int(16)) /*String::a_to*/;
goto return_label11;
return_label11: while(false);
return variable0;
}
val_t string___String___a_to(val_t self, val_t param0) {
- struct trace_t trace = {NULL, LOCATE_string___String___a_to, 107};
+ struct trace_t trace = {NULL, NULL, 107, LOCATE_string___String___a_to};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable5;
val_t variable6;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
variable1 = TAG_Int(0);
variable2 = TAG_Bool(false);
- variable3 = ((array___AbstractArray___iterator_t)CALL( self,COLOR_abstract_collection___Collection___iterator))( self) /*String::iterator*/;
+ variable3 = ((array___AbstractArray___iterator_t)CALL( self,COLOR_abstract_collection___Collection___iterator))( self) /*AbstractArray::iterator*/;
while (true) { /*for*/
variable4 = ((array___ArrayIterator___is_ok_t)CALL(variable3,COLOR_abstract_collection___Iterator___is_ok))(variable3) /*ArrayIterator::is_ok*/;
if (!UNTAG_Bool(variable4)) break; /*for*/
return variable1;
}
val_t string___String___to_cstring(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___String___to_cstring, 135};
+ struct trace_t trace = {NULL, NULL, 135, LOCATE_string___String___to_cstring};
val_t variable0;
trace.prev = tracehead; tracehead = &trace;
- variable0 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
+ trace.file = LOCATE_string;
+ variable0 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
((string___String_____braeq_t)CALL( self,COLOR_abstract_collection___Map_____braeq))( self, variable0, TAG_Char('\0')) /*String::[]=*/;
- ATTR_array___AbstractArray____length( self) /*String::_length*/ = TAG_Int(UNTAG_Int(ATTR_array___AbstractArray____length( self) /*String::_length*/)-UNTAG_Int( TAG_Int(1)));
+ ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/ = TAG_Int(UNTAG_Int(ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/)-UNTAG_Int( TAG_Int(1)));
variable0 = ATTR_string___String____items( self) /*String::_items*/;
goto return_label14;
return_label14: while(false);
return variable0;
}
val_t string___String___substring(val_t self, val_t param0, val_t param1) {
- struct trace_t trace = {NULL, LOCATE_string___String___substring, 143};
+ struct trace_t trace = {NULL, NULL, 143, LOCATE_string___String___substring};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable3;
val_t variable4;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
variable1 = param1;
variable2 = TAG_Bool(UNTAG_Int( variable1 /*count*/)>=UNTAG_Int( TAG_Int(0)));
- if (!UNTAG_Bool(variable2)) { fprintf(stderr, "Assert%s failed (%s: %d)\n", "", LOCATE_string___String___substring, 151); nit_exit(1);}
+ if (!UNTAG_Bool(variable2)) { fprintf(stderr, "Assert%s failed", ""); fprintf(stderr, " in %s (%s:%d)\n", LOCATE_string___String___substring, LOCATE_string, 151); nit_exit(1);}
variable1 = TAG_Int(UNTAG_Int(variable1)+UNTAG_Int( variable0 /*from*/)) /*count*/;
variable2 = TAG_Bool(UNTAG_Int( variable0 /*from*/)<UNTAG_Int( TAG_Int(0)));
if (UNTAG_Bool(variable2)) { /*if*/
variable0 = TAG_Int(0) /*from=*/;
}
- variable2 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
+ variable2 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
variable2 = TAG_Bool(UNTAG_Int( variable1 /*count*/)>UNTAG_Int(variable2));
if (UNTAG_Bool(variable2)) { /*if*/
- variable2 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
+ variable2 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
variable1 = variable2 /*count=*/;
}
variable2 = TAG_Bool(UNTAG_Int( variable0 /*from*/)<UNTAG_Int( variable1 /*count*/));
if (UNTAG_Bool(variable2)) { /*if*/
variable3 = TAG_Int(UNTAG_Int( variable1 /*count*/)-UNTAG_Int( variable0 /*from*/));
- variable4 = NEW_string___String___with_capacity(variable3); /*new String*/
+ variable4 = NEW_String_string___String___with_capacity(variable3); /*new String*/
variable3 = variable4;
variable2 = variable3;
while (true) { /*while*/
if (!UNTAG_Bool(variable3)) break; /* while*/
variable3 = ATTR_string___String____items( self) /*String::_items*/;
variable3 = TAG_Char(UNBOX_NativeString(variable3)[UNTAG_Int( variable0 /*from*/)]);
- ((array___AbstractArray___push_t)CALL( variable2 /*r*/,COLOR_abstract_collection___IndexedCollection___push))( variable2 /*r*/, variable3) /*String::push*/;
+ ((array___AbstractArray___push_t)CALL( variable2 /*r*/,COLOR_abstract_collection___IndexedCollection___push))( variable2 /*r*/, variable3) /*AbstractArray::push*/;
variable0 = TAG_Int(UNTAG_Int(variable0)+UNTAG_Int( TAG_Int(1))) /*from*/;
continue_16: while(0);
}
variable2 = variable2 /*r*/;
goto return_label15;
} else { /*if*/
- variable2 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
+ variable2 = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
goto return_label15;
}
return_label15: while(false);
return variable2;
}
val_t string___String___substring_from(val_t self, val_t param0) {
- struct trace_t trace = {NULL, LOCATE_string___String___substring_from, 167};
+ struct trace_t trace = {NULL, NULL, 167, LOCATE_string___String___substring_from};
val_t variable0;
val_t variable1;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
- variable1 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
+ variable1 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
variable1 = TAG_Bool(UNTAG_Int( variable0 /*from*/)<UNTAG_Int(variable1));
- if (!UNTAG_Bool(variable1)) { fprintf(stderr, "Assert%s failed (%s: %d)\n", "", LOCATE_string___String___substring_from, 174); nit_exit(1);}
- variable1 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
+ if (!UNTAG_Bool(variable1)) { fprintf(stderr, "Assert%s failed", ""); fprintf(stderr, " in %s (%s:%d)\n", LOCATE_string___String___substring_from, LOCATE_string, 174); nit_exit(1);}
+ variable1 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
variable1 = TAG_Int(UNTAG_Int(variable1)-UNTAG_Int( variable0 /*from*/));
variable1 = ((string___String___substring_t)CALL( self,COLOR_string___String___substring))( self, variable0 /*from*/, variable1) /*String::substring*/;
goto return_label17;
return variable1;
}
val_t string___String___has_substring(val_t self, val_t param0, val_t param1) {
- struct trace_t trace = {NULL, LOCATE_string___String___has_substring, 178};
+ struct trace_t trace = {NULL, NULL, 178, LOCATE_string___String___has_substring};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable6;
val_t variable7;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
variable1 = param1;
- variable3 = ((array___AbstractArray___length_t)CALL( variable0 /*str*/,COLOR_abstract_collection___Collection___length))( variable0 /*str*/) /*String::length*/;
+ variable3 = ((array___AbstractArray___length_t)CALL( variable0 /*str*/,COLOR_abstract_collection___Collection___length))( variable0 /*str*/) /*AbstractArray::length*/;
variable3 = TAG_Int(UNTAG_Int(variable3)-UNTAG_Int( TAG_Int(1)));
variable2 = variable3;
variable4 = TAG_Int(UNTAG_Int( variable1 /*pos*/)+UNTAG_Int( variable2 /*itsindex*/));
variable4 = variable5;
variable6 = ATTR_string___String____items( variable0 /*str*/) /*String::_items*/;
variable5 = variable6;
- variable6 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
+ variable6 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
variable6 = TAG_Bool(UNTAG_Int( variable3 /*myindex*/)>UNTAG_Int(variable6));
variable7 = variable6;
if (!UNTAG_Bool(variable7)) { /* or */
return variable2;
}
val_t string___String___has_prefix(val_t self, val_t param0) {
- struct trace_t trace = {NULL, LOCATE_string___String___has_prefix, 197};
+ struct trace_t trace = {NULL, NULL, 197, LOCATE_string___String___has_prefix};
val_t variable0;
val_t variable1;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
variable1 = ((string___String___has_substring_t)CALL( self,COLOR_string___String___has_substring))( self, variable0 /*prefix*/, TAG_Int(0)) /*String::has_substring*/;
goto return_label20;
return variable1;
}
val_t string___String___has_suffix(val_t self, val_t param0) {
- struct trace_t trace = {NULL, LOCATE_string___String___has_suffix, 203};
+ struct trace_t trace = {NULL, NULL, 203, LOCATE_string___String___has_suffix};
val_t variable0;
val_t variable1;
val_t variable2;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
- variable1 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
- variable2 = ((array___AbstractArray___length_t)CALL( variable0 /*suffix*/,COLOR_abstract_collection___Collection___length))( variable0 /*suffix*/) /*String::length*/;
+ variable1 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
+ variable2 = ((array___AbstractArray___length_t)CALL( variable0 /*suffix*/,COLOR_abstract_collection___Collection___length))( variable0 /*suffix*/) /*AbstractArray::length*/;
variable1 = TAG_Int(UNTAG_Int(variable1)-UNTAG_Int(variable2));
variable1 = ((string___String___has_substring_t)CALL( self,COLOR_string___String___has_substring))( self, variable0 /*suffix*/, variable1) /*String::has_substring*/;
goto return_label21;
return variable1;
}
val_t string___String_____l(val_t self, val_t param0) {
- struct trace_t trace = {NULL, LOCATE_string___String_____l, 209};
+ struct trace_t trace = {NULL, NULL, 209, LOCATE_string___String_____l};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable5;
val_t variable6;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
variable1 = TAG_Int(0);
- variable3 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
+ variable3 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
variable2 = variable3;
- variable4 = ((array___AbstractArray___length_t)CALL( variable0 /*s*/,COLOR_abstract_collection___Collection___length))( variable0 /*s*/) /*String::length*/;
+ variable4 = ((array___AbstractArray___length_t)CALL( variable0 /*s*/,COLOR_abstract_collection___Collection___length))( variable0 /*s*/) /*AbstractArray::length*/;
variable3 = variable4;
while (true) { /*while*/
variable4 = TAG_Bool(UNTAG_Int( variable1 /*i*/)<UNTAG_Int( variable2 /*l1*/));
return variable1;
}
void string___String___init(val_t self, int* init_table) {
- struct trace_t trace = {NULL, LOCATE_string___String___init, 231};
+ struct trace_t trace = {NULL, NULL, 231, LOCATE_string___String___init};
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
if (init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_String].i]) return;
((string___String___with_capacity_t)CALL( self,COLOR_string___String___with_capacity))( self, TAG_Int(5), init_table /*YYY*/) /*String::with_capacity*/;
init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_String].i] = 1;
return;
}
void string___String___from(val_t self, val_t param0, int* init_table) {
- struct trace_t trace = {NULL, LOCATE_string___String___from, 237};
+ struct trace_t trace = {NULL, NULL, 237, LOCATE_string___String___from};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable3;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
if (init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_String].i]) return;
- variable1 = ((array___AbstractArray___length_t)CALL( variable0 /*s*/,COLOR_abstract_collection___Collection___length))( variable0 /*s*/) /*String::length*/;
+ variable1 = ((array___AbstractArray___length_t)CALL( variable0 /*s*/,COLOR_abstract_collection___Collection___length))( variable0 /*s*/) /*AbstractArray::length*/;
variable1 = TAG_Int(UNTAG_Int(variable1)+UNTAG_Int( TAG_Int(1)));
ATTR_string___String____capacity( self) /*String::_capacity*/ = variable1;
- variable1 = ((array___AbstractArray___length_t)CALL( variable0 /*s*/,COLOR_abstract_collection___Collection___length))( variable0 /*s*/) /*String::length*/;
- ATTR_array___AbstractArray____length( self) /*String::_length*/ = variable1;
+ variable1 = ((array___AbstractArray___length_t)CALL( variable0 /*s*/,COLOR_abstract_collection___Collection___length))( variable0 /*s*/) /*AbstractArray::length*/;
+ ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/ = variable1;
variable1 = ATTR_string___String____capacity( self) /*String::_capacity*/;
variable1 = BOX_NativeString((char*)malloc((UNTAG_Int(variable1) * sizeof(char))));
ATTR_string___String____items( self) /*String::_items*/ = variable1;
variable1 = ((string___String___items_t)CALL( variable0 /*s*/,COLOR_string___String___items))( variable0 /*s*/) /*String::items*/;
variable2 = ATTR_string___String____items( self) /*String::_items*/;
- variable3 = ATTR_array___AbstractArray____length( self) /*String::_length*/;
+ variable3 = ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/;
(void)memcpy(UNBOX_NativeString(variable2)+UNTAG_Int( TAG_Int(0)), UNBOX_NativeString(variable1)+UNTAG_Int( TAG_Int(0)), UNTAG_Int(variable3));
init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_String].i] = 1;
tracehead = trace.prev;
return;
}
void string___String___with_capacity(val_t self, val_t param0, int* init_table) {
- struct trace_t trace = {NULL, LOCATE_string___String___with_capacity, 245};
+ struct trace_t trace = {NULL, NULL, 245, LOCATE_string___String___with_capacity};
val_t variable0;
val_t variable1;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
if (init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_String].i]) return;
variable1 = TAG_Bool(UNTAG_Int( variable0 /*cap*/)>=UNTAG_Int( TAG_Int(0)));
- if (!UNTAG_Bool(variable1)) { fprintf(stderr, "Assert%s failed (%s: %d)\n", "", LOCATE_string___String___with_capacity, 248); nit_exit(1);}
+ if (!UNTAG_Bool(variable1)) { fprintf(stderr, "Assert%s failed", ""); fprintf(stderr, " in %s (%s:%d)\n", LOCATE_string___String___with_capacity, LOCATE_string, 248); nit_exit(1);}
variable1 = BOX_NativeString((char*)malloc((UNTAG_Int( variable0 /*cap*/) * sizeof(char))));
ATTR_string___String____items( self) /*String::_items*/ = variable1;
ATTR_string___String____capacity( self) /*String::_capacity*/ = variable0 /*cap*/;
- ATTR_array___AbstractArray____length( self) /*String::_length*/ = TAG_Int(0);
+ ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/ = TAG_Int(0);
init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_String].i] = 1;
tracehead = trace.prev;
return;
}
void string___String___with_native(val_t self, val_t param0, val_t param1, int* init_table) {
- struct trace_t trace = {NULL, LOCATE_string___String___with_native, 255};
+ struct trace_t trace = {NULL, NULL, 255, LOCATE_string___String___with_native};
val_t variable0;
val_t variable1;
val_t variable2;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
variable1 = param1;
if (init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_String].i]) return;
variable2 = TAG_Bool(UNTAG_Int( variable1 /*size*/)>=UNTAG_Int( TAG_Int(0)));
- if (!UNTAG_Bool(variable2)) { fprintf(stderr, "Assert%s failed (%s: %d)\n", "", LOCATE_string___String___with_native, 258); nit_exit(1);}
+ if (!UNTAG_Bool(variable2)) { fprintf(stderr, "Assert%s failed", ""); fprintf(stderr, " in %s (%s:%d)\n", LOCATE_string___String___with_native, LOCATE_string, 258); nit_exit(1);}
ATTR_string___String____items( self) /*String::_items*/ = variable0 /*nat*/;
ATTR_string___String____capacity( self) /*String::_capacity*/ = variable1 /*size*/;
- ATTR_array___AbstractArray____length( self) /*String::_length*/ = variable1 /*size*/;
+ ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/ = variable1 /*size*/;
init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_String].i] = 1;
tracehead = trace.prev;
return;
}
void string___String___from_cstring(val_t self, val_t param0, int* init_table) {
- struct trace_t trace = {NULL, LOCATE_string___String___from_cstring, 264};
+ struct trace_t trace = {NULL, NULL, 264, LOCATE_string___String___from_cstring};
val_t variable0;
val_t variable1;
val_t variable2;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
if (init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_String].i]) return;
variable2 = ((string___NativeString___cstring_length_t)CALL( variable0 /*str*/,COLOR_string___NativeString___cstring_length))( variable0 /*str*/) /*NativeString::cstring_length*/;
ATTR_string___String____items( self) /*String::_items*/ = variable0 /*str*/;
variable2 = TAG_Int(UNTAG_Int( variable1 /*size*/)+UNTAG_Int( TAG_Int(1)));
ATTR_string___String____capacity( self) /*String::_capacity*/ = variable2;
- ATTR_array___AbstractArray____length( self) /*String::_length*/ = variable1 /*size*/;
+ ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/ = variable1 /*size*/;
init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_String].i] = 1;
tracehead = trace.prev;
return;
}
void string___String___filled_with(val_t self, val_t param0, val_t param1, int* init_table) {
- struct trace_t trace = {NULL, LOCATE_string___String___filled_with, 273};
+ struct trace_t trace = {NULL, NULL, 273, LOCATE_string___String___filled_with};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable3;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
variable1 = param1;
if (init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_String].i]) return;
continue_30: while(0);
}
break_30: while(0);
- ATTR_array___AbstractArray____length( self) /*String::_length*/ = variable1 /*count*/;
+ ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/ = variable1 /*count*/;
init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_String].i] = 1;
tracehead = trace.prev;
return;
}
void string___String___output(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___String___output, 285};
+ struct trace_t trace = {NULL, NULL, 285, LOCATE_string___String___output};
val_t variable0;
val_t variable1;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = TAG_Int(0);
while (true) { /*while*/
- variable1 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
+ variable1 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
variable1 = TAG_Bool(UNTAG_Int( variable0 /*i*/)<UNTAG_Int(variable1));
if (!UNTAG_Bool(variable1)) break; /* while*/
variable1 = ATTR_string___String____items( self) /*String::_items*/;
return;
}
val_t string___String_____eqeq(val_t self, val_t param0) {
- struct trace_t trace = {NULL, LOCATE_string___String_____eqeq, 294};
+ struct trace_t trace = {NULL, NULL, 294, LOCATE_string___String_____eqeq};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable5;
val_t variable6;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
variable1 = TAG_Bool(( variable0 /*o*/==NIT_NULL) || VAL_ISA( variable0 /*o*/, COLOR_String, ID_String)) /*cast String*/;
variable1 = TAG_Bool(!UNTAG_Bool(variable1));
goto return_label33;
}
variable1 = TAG_Bool(( variable0 /*o*/==NIT_NULL) || VAL_ISA( variable0 /*o*/, COLOR_String, ID_String)) /*cast String*/;
- if (!UNTAG_Bool(variable1)) { fprintf(stderr, "Assert%s failed (%s: %d)\n", "", LOCATE_string___String_____eqeq, 297); nit_exit(1);}
- variable2 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
+ if (!UNTAG_Bool(variable1)) { fprintf(stderr, "Assert%s failed", ""); fprintf(stderr, " in %s (%s:%d)\n", LOCATE_string___String_____eqeq, LOCATE_string, 297); nit_exit(1);}
+ variable2 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
variable1 = variable2;
- variable2 = ((array___AbstractArray___length_t)CALL( variable0 /*o*/,COLOR_abstract_collection___Collection___length))( variable0 /*o*/) /*String::length*/;
+ variable2 = ((array___AbstractArray___length_t)CALL( variable0 /*o*/,COLOR_abstract_collection___Collection___length))( variable0 /*o*/) /*AbstractArray::length*/;
variable2 = TAG_Bool((variable2)!=( variable1 /*l*/));
if (UNTAG_Bool(variable2)) { /*if*/
variable1 = TAG_Bool(false);
return variable1;
}
val_t string___String___to_upper(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___String___to_upper, 310};
+ struct trace_t trace = {NULL, NULL, 310, LOCATE_string___String___to_upper};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable3;
trace.prev = tracehead; tracehead = &trace;
- variable1 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
- variable2 = NEW_string___String___with_capacity(variable1); /*new String*/
+ trace.file = LOCATE_string;
+ variable1 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
+ variable2 = NEW_String_string___String___with_capacity(variable1); /*new String*/
variable1 = variable2;
variable0 = variable1;
- variable1 = ((array___AbstractArray___iterator_t)CALL( self,COLOR_abstract_collection___Collection___iterator))( self) /*String::iterator*/;
+ variable1 = ((array___AbstractArray___iterator_t)CALL( self,COLOR_abstract_collection___Collection___iterator))( self) /*AbstractArray::iterator*/;
while (true) { /*for*/
variable2 = ((array___ArrayIterator___is_ok_t)CALL(variable1,COLOR_abstract_collection___Iterator___is_ok))(variable1) /*ArrayIterator::is_ok*/;
if (!UNTAG_Bool(variable2)) break; /*for*/
return variable0;
}
val_t string___String___to_lower(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___String___to_lower, 318};
+ struct trace_t trace = {NULL, NULL, 318, LOCATE_string___String___to_lower};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable3;
trace.prev = tracehead; tracehead = &trace;
- variable1 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*String::length*/;
- variable2 = NEW_string___String___with_capacity(variable1); /*new String*/
+ trace.file = LOCATE_string;
+ variable1 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/;
+ variable2 = NEW_String_string___String___with_capacity(variable1); /*new String*/
variable1 = variable2;
variable0 = variable1;
- variable1 = ((array___AbstractArray___iterator_t)CALL( self,COLOR_abstract_collection___Collection___iterator))( self) /*String::iterator*/;
+ variable1 = ((array___AbstractArray___iterator_t)CALL( self,COLOR_abstract_collection___Collection___iterator))( self) /*AbstractArray::iterator*/;
while (true) { /*for*/
variable2 = ((array___ArrayIterator___is_ok_t)CALL(variable1,COLOR_abstract_collection___Iterator___is_ok))(variable1) /*ArrayIterator::is_ok*/;
if (!UNTAG_Bool(variable2)) break; /*for*/
return variable0;
}
val_t string___String___items(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___String___items, 326};
+ struct trace_t trace = {NULL, NULL, 326, LOCATE_string___String___items};
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
tracehead = trace.prev;
return ATTR_string___String____items( self) /*String::_items*/;
}
val_t string___String___capacity(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___String___capacity, 327};
+ struct trace_t trace = {NULL, NULL, 327, LOCATE_string___String___capacity};
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
tracehead = trace.prev;
return ATTR_string___String____capacity( self) /*String::_capacity*/;
}
val_t string___Object___to_s(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___Object___to_s, 337};
+ struct trace_t trace = {NULL, NULL, 337, LOCATE_string___Object___to_s};
val_t variable0;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = ((string___Object___inspect_t)CALL( self,COLOR_string___Object___inspect))( self) /*Object::inspect*/;
goto return_label39;
return_label39: while(false);
return variable0;
}
val_t string___Object___inspect(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___Object___inspect, 340};
+ struct trace_t trace = {NULL, NULL, 340, LOCATE_string___Object___inspect};
val_t variable0;
val_t variable1;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable1 = ((string___Object___inspect_head_t)CALL( self,COLOR_string___Object___inspect_head))( self) /*Object::inspect_head*/;
variable0 = variable1;
((string___String___add_t)CALL( variable0 /*r*/,COLOR_abstract_collection___SimpleCollection___add))( variable0 /*r*/, TAG_Char('>')) /*String::add*/;
return variable0;
}
val_t string___Object___inspect_head(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___Object___inspect_head, 349};
+ struct trace_t trace = {NULL, NULL, 349, LOCATE_string___Object___inspect_head};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable5;
val_t variable6;
trace.prev = tracehead; tracehead = &trace;
- variable0 = NEW_string___String___init(); /*new String*/
- variable1 = NEW_string___String___with_native(BOX_NativeString("<"), TAG_Int(1)); /*new String*/
+ trace.file = LOCATE_string;
+ variable0 = NEW_String_string___String___init(); /*new String*/
+ variable1 = NEW_String_string___String___with_native(BOX_NativeString("<"), TAG_Int(1)); /*new String*/
variable2 = variable1;
((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable2) /*String::append*/;
- variable3 = TAG_Int((int) self);
+ variable3 = TAG_Int((bigint) self);
variable3 = ((string___Int___to_hex_t)CALL(variable3,COLOR_string___Int___to_hex))(variable3) /*Int::to_hex*/;
variable4 = variable3;
((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable4) /*String::append*/;
- variable5 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
+ variable5 = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
variable6 = variable5;
((string___String___append_t)CALL(variable0,COLOR_abstract_collection___IndexedCollection___append))(variable0, variable6) /*String::append*/;
goto return_label41;
return variable0;
}
val_t string___Object___args(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___Object___args, 356};
+ struct trace_t trace = {NULL, NULL, 356, LOCATE_string___Object___args};
val_t variable0;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = (G_sys);
variable0 = ((string___Sys___args_t)CALL(variable0,COLOR_string___Object___args))(variable0) /*Sys::args*/;
goto return_label42;
return variable0;
}
val_t string___Bool___to_s(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___Bool___to_s, 363};
+ struct trace_t trace = {NULL, NULL, 363, LOCATE_string___Bool___to_s};
val_t variable0;
static val_t once_value_variable0_44; static int once_bool_variable0_44;
static val_t once_value_variable0_45; static int once_bool_variable0_45;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
if (UNTAG_Bool( self)) { /*if*/
if (once_bool_variable0_44) variable0 = once_value_variable0_44;
else {
- variable0 = NEW_string___String___with_native(BOX_NativeString("true"), TAG_Int(4)); /*new String*/
+ variable0 = NEW_String_string___String___with_native(BOX_NativeString("true"), TAG_Int(4)); /*new String*/
once_value_variable0_44 = variable0;
once_bool_variable0_44 = true;
}
} else { /*if*/
if (once_bool_variable0_45) variable0 = once_value_variable0_45;
else {
- variable0 = NEW_string___String___with_native(BOX_NativeString("false"), TAG_Int(5)); /*new String*/
+ variable0 = NEW_String_string___String___with_native(BOX_NativeString("false"), TAG_Int(5)); /*new String*/
once_value_variable0_45 = variable0;
once_bool_variable0_45 = true;
}
return variable0;
}
void string___Int___fill_string(val_t self, val_t param0, val_t param1, val_t param2) {
- struct trace_t trace = {NULL, LOCATE_string___Int___fill_string, 374};
+ struct trace_t trace = {NULL, NULL, 374, LOCATE_string___Int___fill_string};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable5;
val_t variable6;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
variable1 = param1;
variable2 = param2;
- variable3 = TAG_Int((int)0) /*decl variable n*/;
+ variable3 = TAG_Int((bigint)0) /*decl variable n*/;
variable4 = TAG_Bool(UNTAG_Int( self)<UNTAG_Int( TAG_Int(0)));
if (UNTAG_Bool(variable4)) { /*if*/
variable4 = TAG_Int(-UNTAG_Int( self));
return;
}
val_t string___Int___to_s(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___Int___to_s, 398};
+ struct trace_t trace = {NULL, NULL, 398, LOCATE_string___Int___to_s};
val_t variable0;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = ((string___Int___to_base_t)CALL( self,COLOR_string___Int___to_base))( self, TAG_Int(10), TAG_Bool(true)) /*Int::to_base*/;
goto return_label48;
return_label48: while(false);
return variable0;
}
val_t string___Int___to_hex(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___Int___to_hex, 401};
+ struct trace_t trace = {NULL, NULL, 401, LOCATE_string___Int___to_hex};
val_t variable0;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = ((string___Int___to_base_t)CALL( self,COLOR_string___Int___to_base))( self, TAG_Int(16), TAG_Bool(false)) /*Int::to_base*/;
goto return_label49;
return_label49: while(false);
return variable0;
}
val_t string___Int___to_base(val_t self, val_t param0, val_t param1) {
- struct trace_t trace = {NULL, LOCATE_string___Int___to_base, 404};
+ struct trace_t trace = {NULL, NULL, 404, LOCATE_string___Int___to_base};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable3;
val_t variable4;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
variable1 = param1;
variable3 = ((kernel___Int___digit_count_t)CALL( self,COLOR_kernel___Int___digit_count))( self, variable0 /*base*/) /*Int::digit_count*/;
variable2 = variable3;
- variable4 = NEW_string___String___filled_with( TAG_Char(' '), variable2 /*l*/); /*new String*/
+ variable4 = NEW_String_string___String___filled_with( TAG_Char(' '), variable2 /*l*/); /*new String*/
variable3 = variable4;
((string___Int___fill_string_t)CALL( self,COLOR_string___Int___fill_string))( self, variable3 /*s*/, variable0 /*base*/, variable1 /*signed*/) /*Int::fill_string*/;
variable2 = variable3 /*s*/;
return variable2;
}
val_t string___Float___to_s(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___Float___to_s, 415};
+ struct trace_t trace = {NULL, NULL, 415, LOCATE_string___Float___to_s};
val_t variable0;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = ((string___Float___to_precision_t)CALL( self,COLOR_string___Float___to_precision))( self, TAG_Int(6)) /*Float::to_precision*/;
goto return_label51;
return_label51: while(false);
return variable0;
}
val_t string___Float___to_precision(val_t self, val_t param0) {
- struct trace_t trace = {NULL, LOCATE_string___Float___to_precision, 417};
+ struct trace_t trace = {NULL, NULL, 417, LOCATE_string___Float___to_precision};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable11;
val_t variable12;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
variable1 = TAG_Bool(( variable0 /*nb*/)==( TAG_Int(0)));
if (UNTAG_Bool(variable1)) { /*if*/
- variable1 = TAG_Int((int)UNBOX_Float( self));
+ variable1 = TAG_Int((bigint)UNBOX_Float( self));
variable1 = ((string___Int___to_s_t)CALL(variable1,COLOR_string___Object___to_s))(variable1) /*Int::to_s*/;
goto return_label52;
}
- variable2 = TAG_Int((int)UNBOX_Float( self));
+ variable2 = TAG_Int((bigint)UNBOX_Float( self));
variable1 = variable2;
variable3 = BOX_Float(1.0);
variable2 = variable3;
variable4 = BOX_Float((float)UNTAG_Int( variable1 /*i*/));
variable4 = BOX_Float(UNBOX_Float( self)-UNBOX_Float(variable4));
variable4 = BOX_Float(UNBOX_Float(variable4)*UNBOX_Float( variable2 /*dec*/));
- variable4 = TAG_Int((int)UNBOX_Float(variable4));
+ variable4 = TAG_Int((bigint)UNBOX_Float(variable4));
variable3 = variable4;
- variable4 = NEW_string___String___init(); /*new String*/
- variable5 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
+ variable4 = NEW_String_string___String___init(); /*new String*/
+ variable5 = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
variable6 = variable5;
((string___String___append_t)CALL(variable4,COLOR_abstract_collection___IndexedCollection___append))(variable4, variable6) /*String::append*/;
variable7 = variable1 /*i*/;
variable7 = ((string___String___to_s_t)CALL(variable7,COLOR_string___Object___to_s))(variable7) /*String::to_s*/;
((string___String___append_t)CALL(variable4,COLOR_abstract_collection___IndexedCollection___append))(variable4, variable7) /*String::append*/;
- variable8 = NEW_string___String___with_native(BOX_NativeString("."), TAG_Int(1)); /*new String*/
+ variable8 = NEW_String_string___String___with_native(BOX_NativeString("."), TAG_Int(1)); /*new String*/
variable9 = variable8;
((string___String___append_t)CALL(variable4,COLOR_abstract_collection___IndexedCollection___append))(variable4, variable9) /*String::append*/;
variable10 = variable3 /*d*/;
variable10 = ((string___String___to_s_t)CALL(variable10,COLOR_string___Object___to_s))(variable10) /*String::to_s*/;
((string___String___append_t)CALL(variable4,COLOR_abstract_collection___IndexedCollection___append))(variable4, variable10) /*String::append*/;
- variable11 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
+ variable11 = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
variable12 = variable11;
((string___String___append_t)CALL(variable4,COLOR_abstract_collection___IndexedCollection___append))(variable4, variable12) /*String::append*/;
variable1 = variable4;
return variable1;
}
val_t string___Char___to_s(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___Char___to_s, 434};
+ struct trace_t trace = {NULL, NULL, 434, LOCATE_string___Char___to_s};
val_t variable0;
val_t variable1;
trace.prev = tracehead; tracehead = &trace;
- variable1 = NEW_string___String___with_capacity( TAG_Int(1)); /*new String*/
+ trace.file = LOCATE_string;
+ variable1 = NEW_String_string___String___with_capacity( TAG_Int(1)); /*new String*/
variable0 = variable1;
((string___String_____braeq_t)CALL( variable0 /*s*/,COLOR_abstract_collection___Map_____braeq))( variable0 /*s*/, TAG_Int(0), self) /*String::[]=*/;
variable0 = variable0 /*s*/;
return variable0;
}
val_t string___Collection___to_s(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___Collection___to_s, 443};
+ struct trace_t trace = {NULL, NULL, 443, LOCATE_string___Collection___to_s};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable3;
trace.prev = tracehead; tracehead = &trace;
- variable1 = NEW_string___String___init(); /*new String*/
+ trace.file = LOCATE_string;
+ variable1 = NEW_String_string___String___init(); /*new String*/
variable0 = variable1;
variable1 = ((abstract_collection___Collection___iterator_t)CALL( self,COLOR_abstract_collection___Collection___iterator))( self) /*Collection::iterator*/;
while (true) { /*for*/
return variable0;
}
val_t string___Collection___join(val_t self, val_t param0) {
- struct trace_t trace = {NULL, LOCATE_string___Collection___join, 451};
+ struct trace_t trace = {NULL, NULL, 451, LOCATE_string___Collection___join};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable3;
val_t variable4;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
variable1 = ((abstract_collection___Collection___is_empty_t)CALL( self,COLOR_abstract_collection___Collection___is_empty))( self) /*Collection::is_empty*/;
if (UNTAG_Bool(variable1)) { /*if*/
- variable1 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
+ variable1 = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
goto return_label57;
}
- variable2 = NEW_string___String___init(); /*new String*/
+ variable2 = NEW_String_string___String___init(); /*new String*/
variable1 = variable2;
variable3 = ((abstract_collection___Collection___iterator_t)CALL( self,COLOR_abstract_collection___Collection___iterator))( self) /*Collection::iterator*/;
variable2 = variable3;
return variable1;
}
val_t string___Map___map_join(val_t self, val_t param0, val_t param1) {
- struct trace_t trace = {NULL, LOCATE_string___Map___map_join, 476};
+ struct trace_t trace = {NULL, NULL, 476, LOCATE_string___Map___map_join};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable16;
val_t variable17;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = param0;
variable1 = param1;
- variable2 = ((abstract_collection___Collection___is_empty_t)CALL( self,COLOR_abstract_collection___Collection___is_empty))( self) /*Map::is_empty*/;
+ variable2 = ((abstract_collection___Collection___is_empty_t)CALL( self,COLOR_abstract_collection___Collection___is_empty))( self) /*Collection::is_empty*/;
if (UNTAG_Bool(variable2)) { /*if*/
- variable2 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
+ variable2 = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
goto return_label59;
}
- variable3 = NEW_string___String___init(); /*new String*/
+ variable3 = NEW_String_string___String___init(); /*new String*/
variable2 = variable3;
variable4 = ((abstract_collection___Map___iterator_t)CALL( self,COLOR_abstract_collection___Collection___iterator))( self) /*Map::iterator*/;
variable3 = variable4;
variable5 = ((abstract_collection___MapIterator___key_t)CALL( variable3 /*i*/,COLOR_abstract_collection___MapIterator___key))( variable3 /*i*/) /*MapIterator::key*/;
variable4 = variable5;
- variable6 = ((abstract_collection___Iterator___item_t)CALL( variable3 /*i*/,COLOR_abstract_collection___Iterator___item))( variable3 /*i*/) /*MapIterator::item*/;
+ variable6 = ((abstract_collection___Iterator___item_t)CALL( variable3 /*i*/,COLOR_abstract_collection___Iterator___item))( variable3 /*i*/) /*Iterator::item*/;
variable5 = variable6;
variable6 = TAG_Bool(!UNTAG_Bool(TAG_Bool(( variable5 /*e*/ == NIT_NULL /*null*/) || (( variable5 /*e*/ != NIT_NULL) && ((((kernel___Object_____eqeq_t)CALL( variable5 /*e*/,COLOR_kernel___Object_____eqeq))==kernel___Object_____eqeq)?(IS_EQUAL_NN( variable5 /*e*/, NIT_NULL /*null*/)):(UNTAG_Bool(((kernel___Object_____eqeq_t)CALL( variable5 /*e*/,COLOR_kernel___Object_____eqeq))( variable5 /*e*/, NIT_NULL /*null*/) /*Object::==*/)))))));
if (UNTAG_Bool(variable6)) { /*if*/
- variable6 = NEW_string___String___init(); /*new String*/
- variable7 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
+ variable6 = NEW_String_string___String___init(); /*new String*/
+ variable7 = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
variable8 = variable7;
((string___String___append_t)CALL(variable6,COLOR_abstract_collection___IndexedCollection___append))(variable6, variable8) /*String::append*/;
variable9 = variable4 /*k*/;
variable9 = ((string___String___to_s_t)CALL(variable9,COLOR_string___Object___to_s))(variable9) /*String::to_s*/;
((string___String___append_t)CALL(variable6,COLOR_abstract_collection___IndexedCollection___append))(variable6, variable9) /*String::append*/;
- variable10 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
+ variable10 = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
variable11 = variable10;
((string___String___append_t)CALL(variable6,COLOR_abstract_collection___IndexedCollection___append))(variable6, variable11) /*String::append*/;
variable12 = variable1 /*couple_sep*/;
((string___String___append_t)CALL(variable6,COLOR_abstract_collection___IndexedCollection___append))(variable6, variable12) /*String::append*/;
- variable13 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
+ variable13 = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
variable14 = variable13;
((string___String___append_t)CALL(variable6,COLOR_abstract_collection___IndexedCollection___append))(variable6, variable14) /*String::append*/;
variable15 = variable5 /*e*/;
variable15 = ((string___String___to_s_t)CALL(variable15,COLOR_string___Object___to_s))(variable15) /*String::to_s*/;
((string___String___append_t)CALL(variable6,COLOR_abstract_collection___IndexedCollection___append))(variable6, variable15) /*String::append*/;
- variable16 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
+ variable16 = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
variable17 = variable16;
((string___String___append_t)CALL(variable6,COLOR_abstract_collection___IndexedCollection___append))(variable6, variable17) /*String::append*/;
((string___String___append_t)CALL( variable2 /*s*/,COLOR_abstract_collection___IndexedCollection___append))( variable2 /*s*/, variable6) /*String::append*/;
}
- ((abstract_collection___Iterator___next_t)CALL( variable3 /*i*/,COLOR_abstract_collection___Iterator___next))( variable3 /*i*/) /*MapIterator::next*/;
+ ((abstract_collection___Iterator___next_t)CALL( variable3 /*i*/,COLOR_abstract_collection___Iterator___next))( variable3 /*i*/) /*Iterator::next*/;
while (true) { /*while*/
- variable6 = ((abstract_collection___Iterator___is_ok_t)CALL( variable3 /*i*/,COLOR_abstract_collection___Iterator___is_ok))( variable3 /*i*/) /*MapIterator::is_ok*/;
+ variable6 = ((abstract_collection___Iterator___is_ok_t)CALL( variable3 /*i*/,COLOR_abstract_collection___Iterator___is_ok))( variable3 /*i*/) /*Iterator::is_ok*/;
if (!UNTAG_Bool(variable6)) break; /* while*/
((string___String___append_t)CALL( variable2 /*s*/,COLOR_abstract_collection___IndexedCollection___append))( variable2 /*s*/, variable0 /*sep*/) /*String::append*/;
variable6 = ((abstract_collection___MapIterator___key_t)CALL( variable3 /*i*/,COLOR_abstract_collection___MapIterator___key))( variable3 /*i*/) /*MapIterator::key*/;
variable4 = variable6 /*k=*/;
- variable6 = ((abstract_collection___Iterator___item_t)CALL( variable3 /*i*/,COLOR_abstract_collection___Iterator___item))( variable3 /*i*/) /*MapIterator::item*/;
+ variable6 = ((abstract_collection___Iterator___item_t)CALL( variable3 /*i*/,COLOR_abstract_collection___Iterator___item))( variable3 /*i*/) /*Iterator::item*/;
variable5 = variable6 /*e=*/;
variable6 = TAG_Bool(!UNTAG_Bool(TAG_Bool(( variable5 /*e*/ == NIT_NULL /*null*/) || (( variable5 /*e*/ != NIT_NULL) && ((((kernel___Object_____eqeq_t)CALL( variable5 /*e*/,COLOR_kernel___Object_____eqeq))==kernel___Object_____eqeq)?(IS_EQUAL_NN( variable5 /*e*/, NIT_NULL /*null*/)):(UNTAG_Bool(((kernel___Object_____eqeq_t)CALL( variable5 /*e*/,COLOR_kernel___Object_____eqeq))( variable5 /*e*/, NIT_NULL /*null*/) /*Object::==*/)))))));
if (UNTAG_Bool(variable6)) { /*if*/
- variable6 = NEW_string___String___init(); /*new String*/
- variable7 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
+ variable6 = NEW_String_string___String___init(); /*new String*/
+ variable7 = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
variable8 = variable7;
((string___String___append_t)CALL(variable6,COLOR_abstract_collection___IndexedCollection___append))(variable6, variable8) /*String::append*/;
variable9 = variable4 /*k*/;
variable9 = ((string___String___to_s_t)CALL(variable9,COLOR_string___Object___to_s))(variable9) /*String::to_s*/;
((string___String___append_t)CALL(variable6,COLOR_abstract_collection___IndexedCollection___append))(variable6, variable9) /*String::append*/;
- variable10 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
+ variable10 = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
variable11 = variable10;
((string___String___append_t)CALL(variable6,COLOR_abstract_collection___IndexedCollection___append))(variable6, variable11) /*String::append*/;
variable12 = variable1 /*couple_sep*/;
((string___String___append_t)CALL(variable6,COLOR_abstract_collection___IndexedCollection___append))(variable6, variable12) /*String::append*/;
- variable13 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
+ variable13 = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
variable14 = variable13;
((string___String___append_t)CALL(variable6,COLOR_abstract_collection___IndexedCollection___append))(variable6, variable14) /*String::append*/;
variable15 = variable5 /*e*/;
variable15 = ((string___String___to_s_t)CALL(variable15,COLOR_string___Object___to_s))(variable15) /*String::to_s*/;
((string___String___append_t)CALL(variable6,COLOR_abstract_collection___IndexedCollection___append))(variable6, variable15) /*String::append*/;
- variable16 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
+ variable16 = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
variable17 = variable16;
((string___String___append_t)CALL(variable6,COLOR_abstract_collection___IndexedCollection___append))(variable6, variable17) /*String::append*/;
((string___String___append_t)CALL( variable2 /*s*/,COLOR_abstract_collection___IndexedCollection___append))( variable2 /*s*/, variable6) /*String::append*/;
}
- ((abstract_collection___Iterator___next_t)CALL( variable3 /*i*/,COLOR_abstract_collection___Iterator___next))( variable3 /*i*/) /*MapIterator::next*/;
+ ((abstract_collection___Iterator___next_t)CALL( variable3 /*i*/,COLOR_abstract_collection___Iterator___next))( variable3 /*i*/) /*Iterator::next*/;
continue_60: while(0);
}
break_60: while(0);
return variable2;
}
val_t string___NativeString_____bra(val_t self, val_t param0) {
- struct trace_t trace = {NULL, LOCATE_string___NativeString_____bra, 508};
+ struct trace_t trace = {NULL, NULL, 508, LOCATE_string___NativeString_____bra};
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
tracehead = trace.prev;
return TAG_Char(UNBOX_NativeString( self)[UNTAG_Int( param0)]);
}
void string___NativeString_____braeq(val_t self, val_t param0, val_t param1) {
- struct trace_t trace = {NULL, LOCATE_string___NativeString_____braeq, 509};
+ struct trace_t trace = {NULL, NULL, 509, LOCATE_string___NativeString_____braeq};
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
UNBOX_NativeString( self)[UNTAG_Int( param0)]=UNTAG_Char( param1);
tracehead = trace.prev;
return;
}
void string___NativeString___copy_to(val_t self, val_t param0, val_t param1, val_t param2, val_t param3) {
- struct trace_t trace = {NULL, LOCATE_string___NativeString___copy_to, 510};
+ struct trace_t trace = {NULL, NULL, 510, LOCATE_string___NativeString___copy_to};
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
(void)memcpy(UNBOX_NativeString( param0)+UNTAG_Int( param3), UNBOX_NativeString( self)+UNTAG_Int( param2), UNTAG_Int( param1));
tracehead = trace.prev;
return;
}
val_t string___NativeString___cstring_length(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___NativeString___cstring_length, 512};
+ struct trace_t trace = {NULL, NULL, 512, LOCATE_string___NativeString___cstring_length};
val_t variable0;
val_t variable1;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = TAG_Int(0);
while (true) { /*while*/
variable1 = TAG_Char(UNBOX_NativeString( self)[UNTAG_Int( variable0 /*l*/)]);
return variable0;
}
val_t string___NativeString___atoi(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___NativeString___atoi, 519};
+ struct trace_t trace = {NULL, NULL, 519, LOCATE_string___NativeString___atoi};
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
tracehead = trace.prev;
return TAG_Int(atoi(UNBOX_NativeString( self)));
}
+void string___NativeString___init(val_t self, int* init_table) {
+ struct trace_t trace = {NULL, NULL, 0, LOCATE_string___NativeString___init};
+ trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
+ tracehead = trace.prev;
+ return;
+}
val_t string___StringCapable___calloc_string(val_t self, val_t param0) {
- struct trace_t trace = {NULL, LOCATE_string___StringCapable___calloc_string, 524};
+ struct trace_t trace = {NULL, NULL, 524, LOCATE_string___StringCapable___calloc_string};
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
tracehead = trace.prev;
return BOX_NativeString((char*)malloc((UNTAG_Int( param0) * sizeof(char))));
}
+void string___StringCapable___init(val_t self, int* init_table) {
+ struct trace_t trace = {NULL, NULL, 0, LOCATE_string___StringCapable___init};
+ trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
+ tracehead = trace.prev;
+ return;
+}
val_t string___Sys___args(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___Sys___args, 530};
+ struct trace_t trace = {NULL, NULL, 530, LOCATE_string___Sys___args};
val_t variable0;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = ATTR_string___Sys____args_cache( self) /*Sys::_args_cache*/;
- variable0 = TAG_Bool((variable0 == NIT_NULL /*null*/) || ((variable0 != NIT_NULL) && ((((kernel___Object_____eqeq_t)CALL(variable0,COLOR_kernel___Object_____eqeq))==kernel___Object_____eqeq)?(IS_EQUAL_NN(variable0, NIT_NULL /*null*/)):(UNTAG_Bool(((kernel___Object_____eqeq_t)CALL(variable0,COLOR_kernel___Object_____eqeq))(variable0, NIT_NULL /*null*/) /*IndexedCollection::==*/)))));
+ variable0 = TAG_Bool((variable0 == NIT_NULL /*null*/) || ((variable0 != NIT_NULL) && ((((kernel___Object_____eqeq_t)CALL(variable0,COLOR_kernel___Object_____eqeq))==kernel___Object_____eqeq)?(IS_EQUAL_NN(variable0, NIT_NULL /*null*/)):(UNTAG_Bool(((kernel___Object_____eqeq_t)CALL(variable0,COLOR_kernel___Object_____eqeq))(variable0, NIT_NULL /*null*/) /*Object::==*/)))));
if (UNTAG_Bool(variable0)) { /*if*/
((string___Sys___init_args_t)CALL( self,COLOR_string___Sys___init_args))( self) /*Sys::init_args*/;
}
return variable0;
}
val_t string___Sys___program_name(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___Sys___program_name, 536};
+ struct trace_t trace = {NULL, NULL, 536, LOCATE_string___Sys___program_name};
val_t variable0;
val_t variable1;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable0 = ((string___Sys___native_argv_t)CALL( self,COLOR_string___Sys___native_argv))( self, TAG_Int(0)) /*Sys::native_argv*/;
- variable1 = NEW_string___String___from_cstring(variable0); /*new String*/
+ variable1 = NEW_String_string___String___from_cstring(variable0); /*new String*/
variable0 = variable1;
goto return_label64;
return_label64: while(false);
return variable0;
}
void string___Sys___init_args(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___Sys___init_args, 542};
+ struct trace_t trace = {NULL, NULL, 542, LOCATE_string___Sys___init_args};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable4;
val_t variable5;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
variable1 = ((string___Sys___native_argc_t)CALL( self,COLOR_string___Sys___native_argc))( self) /*Sys::native_argc*/;
variable0 = variable1;
- variable2 = NEW_array___Array___with_capacity( TAG_Int(0)); /*new Array[String]*/
+ variable2 = NEW_Array_array___Array___with_capacity( TAG_Int(0)); /*new Array[String]*/
variable1 = variable2;
variable2 = TAG_Int(1);
while (true) { /*while*/
if (!UNTAG_Bool(variable3)) break; /* while*/
variable3 = TAG_Int(UNTAG_Int( variable2 /*i*/)-UNTAG_Int( TAG_Int(1)));
variable4 = ((string___Sys___native_argv_t)CALL( self,COLOR_string___Sys___native_argv))( self, variable2 /*i*/) /*Sys::native_argv*/;
- variable5 = NEW_string___String___from_cstring(variable4); /*new String*/
+ variable5 = NEW_String_string___String___from_cstring(variable4); /*new String*/
variable4 = variable5;
((array___Array_____braeq_t)CALL( variable1 /*args*/,COLOR_abstract_collection___Map_____braeq))( variable1 /*args*/, variable3, variable4) /*Array::[]=*/;
variable2 = TAG_Int(UNTAG_Int(variable2)+UNTAG_Int( TAG_Int(1))) /*i*/;
return;
}
val_t string___Sys___native_argc(val_t self) {
- struct trace_t trace = {NULL, LOCATE_string___Sys___native_argc, 555};
+ struct trace_t trace = {NULL, NULL, 555, LOCATE_string___Sys___native_argc};
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
tracehead = trace.prev;
return TAG_Int(kernel_Sys_Sys_native_argc_0( self));
}
val_t string___Sys___native_argv(val_t self, val_t param0) {
- struct trace_t trace = {NULL, LOCATE_string___Sys___native_argv, 557};
+ struct trace_t trace = {NULL, NULL, 557, LOCATE_string___Sys___native_argv};
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_string;
tracehead = trace.prev;
return BOX_NativeString(kernel_Sys_Sys_native_argv_1( self, UNTAG_Int( param0)));
}