X-Git-Url: http://nitlanguage.org diff --git a/c_src/array._sep.c b/c_src/array._sep.c index 057347d..23410d5 100644 --- a/c_src/array._sep.c +++ b/c_src/array._sep.c @@ -1,21 +1,22 @@ /* This C file is generated by NIT to compile module array. */ #include "array._sep.h" void array___AbstractArray___enlarge(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_array___AbstractArray___enlarge, 23}; + struct trace_t trace = {NULL, LOCATE_array, 23, LOCATE_array___AbstractArray___enlarge}; trace.prev = tracehead; tracehead = &trace; - fprintf(stderr, "Deferred method %s called (%s: %d)\n", "enlarge", LOCATE_array, 23); + fprintf(stderr, "Deferred method %s called"); + fprintf(stderr, " (%s:%d)\n", LOCATE_array, 23); nit_exit(1); tracehead = trace.prev; return; } val_t array___AbstractArray___length(val_t self) { - struct trace_t trace = {NULL, LOCATE_array___AbstractArray___length, 25}; + struct trace_t trace = {NULL, LOCATE_array, 25, LOCATE_array___AbstractArray___length}; trace.prev = tracehead; tracehead = &trace; tracehead = trace.prev; return ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/; } val_t array___AbstractArray___is_empty(val_t self) { - struct trace_t trace = {NULL, LOCATE_array___AbstractArray___is_empty, 28}; + struct trace_t trace = {NULL, LOCATE_array, 28, LOCATE_array___AbstractArray___is_empty}; val_t variable0; trace.prev = tracehead; tracehead = &trace; variable0 = ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/; @@ -26,7 +27,7 @@ val_t array___AbstractArray___is_empty(val_t self) { return variable0; } void array___AbstractArray___push(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_array___AbstractArray___push, 30}; + struct trace_t trace = {NULL, LOCATE_array, 30, LOCATE_array___AbstractArray___push}; val_t variable0; trace.prev = tracehead; tracehead = &trace; variable0 = param0; @@ -35,13 +36,13 @@ void array___AbstractArray___push(val_t self, val_t param0) { return; } val_t array___AbstractArray___pop(val_t self) { - struct trace_t trace = {NULL, LOCATE_array___AbstractArray___pop, 32}; + struct trace_t trace = {NULL, LOCATE_array, 32, LOCATE_array___AbstractArray___pop}; val_t variable0; val_t variable1; trace.prev = tracehead; tracehead = &trace; variable0 = ((array___AbstractArray___is_empty_t)CALL( self,COLOR_abstract_collection___Collection___is_empty))( self) /*AbstractArray::is_empty*/; - if (!UNTAG_Bool( TAG_Bool(!UNTAG_Bool(variable0)))) { fprintf(stderr, "Assert%s failed (%s: %d)\n", " 'not_empty' ", LOCATE_array___AbstractArray___pop, 34); nit_exit(1);} - variable1 = ((abstract_collection___IndexedCollection___last_t)CALL( self,COLOR_abstract_collection___IndexedCollection___last))( self) /*AbstractArray::last*/; + if (!UNTAG_Bool( TAG_Bool(!UNTAG_Bool(variable0)))) { fprintf(stderr, "Assert%s failed", " 'not_empty' "); fprintf(stderr, " in %s (%s:%d)\n", LOCATE_array___AbstractArray___pop, LOCATE_array, 34); nit_exit(1);} + variable1 = ((abstract_collection___IndexedCollection___last_t)CALL( self,COLOR_abstract_collection___IndexedCollection___last))( self) /*IndexedCollection::last*/; variable0 = variable1; ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/ = TAG_Int(UNTAG_Int(ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/)-UNTAG_Int( TAG_Int(1))); variable0 = variable0 /*r*/; @@ -51,7 +52,7 @@ val_t array___AbstractArray___pop(val_t self) { return variable0; } val_t array___AbstractArray___shift(val_t self) { - struct trace_t trace = {NULL, LOCATE_array___AbstractArray___shift, 40}; + struct trace_t trace = {NULL, LOCATE_array, 40, LOCATE_array___AbstractArray___shift}; val_t variable0; val_t variable1; val_t variable2; @@ -59,8 +60,8 @@ val_t array___AbstractArray___shift(val_t self) { val_t variable4; trace.prev = tracehead; tracehead = &trace; variable0 = ((array___AbstractArray___is_empty_t)CALL( self,COLOR_abstract_collection___Collection___is_empty))( self) /*AbstractArray::is_empty*/; - if (!UNTAG_Bool( TAG_Bool(!UNTAG_Bool(variable0)))) { fprintf(stderr, "Assert%s failed (%s: %d)\n", " 'not_empty' ", LOCATE_array___AbstractArray___shift, 42); nit_exit(1);} - variable1 = ((abstract_collection___IndexedCollection___first_t)CALL( self,COLOR_abstract_collection___Collection___first))( self) /*AbstractArray::first*/; + if (!UNTAG_Bool( TAG_Bool(!UNTAG_Bool(variable0)))) { fprintf(stderr, "Assert%s failed", " 'not_empty' "); fprintf(stderr, " in %s (%s:%d)\n", LOCATE_array___AbstractArray___shift, LOCATE_array, 42); nit_exit(1);} + variable1 = ((abstract_collection___IndexedCollection___first_t)CALL( self,COLOR_abstract_collection___Collection___first))( self) /*IndexedCollection::first*/; variable0 = variable1; variable1 = TAG_Int(1); variable3 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/; @@ -69,8 +70,8 @@ val_t array___AbstractArray___shift(val_t self) { variable3 = TAG_Bool(UNTAG_Int( variable1 /*i*/)UNTAG_Int( TAG_Int(0))); if (!UNTAG_Bool(variable2)) break; /* while*/ variable2 = TAG_Int(UNTAG_Int( variable1 /*i*/)+UNTAG_Int( TAG_Int(1))); - variable3 = ((abstract_collection___Map_____bra_t)CALL( self,COLOR_abstract_collection___Map_____bra))( self, variable1 /*i*/) /*AbstractArray::[]*/; - ((abstract_collection___Map_____braeq_t)CALL( self,COLOR_abstract_collection___Map_____braeq))( self, variable2, variable3) /*AbstractArray::[]=*/; + variable3 = ((abstract_collection___Map_____bra_t)CALL( self,COLOR_abstract_collection___Map_____bra))( self, variable1 /*i*/) /*Map::[]*/; + ((abstract_collection___Map_____braeq_t)CALL( self,COLOR_abstract_collection___Map_____braeq))( self, variable2, variable3) /*Map::[]=*/; variable1 = TAG_Int(UNTAG_Int(variable1)-UNTAG_Int( TAG_Int(1))) /*i*/; continue_6: while(0); } break_6: while(0); - ((abstract_collection___Map_____braeq_t)CALL( self,COLOR_abstract_collection___Map_____braeq))( self, TAG_Int(0), variable0 /*item*/) /*AbstractArray::[]=*/; + ((abstract_collection___Map_____braeq_t)CALL( self,COLOR_abstract_collection___Map_____braeq))( self, TAG_Int(0), variable0 /*item*/) /*Map::[]=*/; tracehead = trace.prev; return; } void array___AbstractArray___insert(val_t self, val_t param0, val_t param1) { - struct trace_t trace = {NULL, LOCATE_array___AbstractArray___insert, 64}; + struct trace_t trace = {NULL, LOCATE_array, 64, LOCATE_array___AbstractArray___insert}; val_t variable0; val_t variable1; val_t variable2; @@ -124,30 +125,30 @@ void array___AbstractArray___insert(val_t self, val_t param0, val_t param1) { variable2 = TAG_Int(UNTAG_Int(variable2)-UNTAG_Int( variable1 /*pos*/)); variable3 = TAG_Int(UNTAG_Int( variable1 /*pos*/)+UNTAG_Int( TAG_Int(1))); ((array___AbstractArray___copy_to_t)CALL( self,COLOR_array___AbstractArray___copy_to))( self, variable1 /*pos*/, variable2, self, variable3) /*AbstractArray::copy_to*/; - ((abstract_collection___Map_____braeq_t)CALL( self,COLOR_abstract_collection___Map_____braeq))( self, variable1 /*pos*/, variable0 /*item*/) /*AbstractArray::[]=*/; + ((abstract_collection___Map_____braeq_t)CALL( self,COLOR_abstract_collection___Map_____braeq))( self, variable1 /*pos*/, variable0 /*item*/) /*Map::[]=*/; tracehead = trace.prev; return; } void array___AbstractArray___add(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_array___AbstractArray___add, 71}; + struct trace_t trace = {NULL, LOCATE_array, 71, LOCATE_array___AbstractArray___add}; val_t variable0; val_t variable1; trace.prev = tracehead; tracehead = &trace; variable0 = param0; variable1 = ((array___AbstractArray___length_t)CALL( self,COLOR_abstract_collection___Collection___length))( self) /*AbstractArray::length*/; - ((abstract_collection___Map_____braeq_t)CALL( self,COLOR_abstract_collection___Map_____braeq))( self, variable1, variable0 /*item*/) /*AbstractArray::[]=*/; + ((abstract_collection___Map_____braeq_t)CALL( self,COLOR_abstract_collection___Map_____braeq))( self, variable1, variable0 /*item*/) /*Map::[]=*/; tracehead = trace.prev; return; } void array___AbstractArray___clear(val_t self) { - struct trace_t trace = {NULL, LOCATE_array___AbstractArray___clear, 73}; + struct trace_t trace = {NULL, LOCATE_array, 73, LOCATE_array___AbstractArray___clear}; trace.prev = tracehead; tracehead = &trace; ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/ = TAG_Int(0); tracehead = trace.prev; return; } val_t array___AbstractArray___has(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_array___AbstractArray___has, 75}; + struct trace_t trace = {NULL, LOCATE_array, 75, LOCATE_array___AbstractArray___has}; val_t variable0; val_t variable1; val_t variable2; @@ -160,7 +161,7 @@ val_t array___AbstractArray___has(val_t self, val_t param0) { while (true) { /*while*/ variable3 = TAG_Bool(UNTAG_Int( variable1 /*i*/)=UNTAG_Int( TAG_Int(0))); if (!UNTAG_Bool(variable3)) break; /* while*/ - variable3 = ((abstract_collection___Map_____bra_t)CALL( self,COLOR_abstract_collection___Map_____bra))( self, variable2 /*i*/) /*AbstractArray::[]*/; + variable3 = ((abstract_collection___Map_____bra_t)CALL( self,COLOR_abstract_collection___Map_____bra))( self, variable2 /*i*/) /*Map::[]*/; variable3 = TAG_Bool((variable3 == variable0 /*item*/) || ((variable3 != NIT_NULL) && ((((kernel___Object_____eqeq_t)CALL(variable3,COLOR_kernel___Object_____eqeq))==kernel___Object_____eqeq)?(IS_EQUAL_NN(variable3, variable0 /*item*/)):(UNTAG_Bool(((kernel___Object_____eqeq_t)CALL(variable3,COLOR_kernel___Object_____eqeq))(variable3, variable0 /*item*/) /*Object::==*/))))); if (UNTAG_Bool(variable3)) { /*if*/ variable2 = variable2 /*i*/; @@ -347,7 +348,7 @@ val_t array___AbstractArray___last_index_of_from(val_t self, val_t param0, val return variable2; } val_t array___AbstractArray___reversed(val_t self) { - struct trace_t trace = {NULL, LOCATE_array___AbstractArray___reversed, 141}; + struct trace_t trace = {NULL, LOCATE_array, 141, LOCATE_array___AbstractArray___reversed}; val_t variable0; val_t variable1; val_t variable2; @@ -360,8 +361,8 @@ val_t array___AbstractArray___reversed(val_t self) { variable2 = TAG_Bool(UNTAG_Int( variable0 /*cmp*/)>UNTAG_Int( TAG_Int(0))); if (!UNTAG_Bool(variable2)) break; /* while*/ variable0 = TAG_Int(UNTAG_Int(variable0)-UNTAG_Int( TAG_Int(1))) /*cmp*/; - variable2 = ((abstract_collection___Map_____bra_t)CALL( self,COLOR_abstract_collection___Map_____bra))( self, variable0 /*cmp*/) /*AbstractArray::[]*/; - ((array___AbstractArray___add_t)CALL( variable1 /*result*/,COLOR_abstract_collection___SimpleCollection___add))( variable1 /*result*/, variable2) /*Array::add*/; + variable2 = ((abstract_collection___Map_____bra_t)CALL( self,COLOR_abstract_collection___Map_____bra))( self, variable0 /*cmp*/) /*Map::[]*/; + ((array___AbstractArray___add_t)CALL( variable1 /*result*/,COLOR_abstract_collection___SimpleCollection___add))( variable1 /*result*/, variable2) /*AbstractArray::add*/; continue_24: while(0); } break_24: while(0); @@ -372,7 +373,7 @@ val_t array___AbstractArray___reversed(val_t self) { return variable0; } void array___AbstractArray___remove(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_array___AbstractArray___remove, 152}; + struct trace_t trace = {NULL, LOCATE_array, 152, LOCATE_array___AbstractArray___remove}; val_t variable0; val_t variable1; trace.prev = tracehead; tracehead = &trace; @@ -383,7 +384,7 @@ void array___AbstractArray___remove(val_t self, val_t param0) { return; } void array___AbstractArray___remove_all(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_array___AbstractArray___remove_all, 154}; + struct trace_t trace = {NULL, LOCATE_array, 154, LOCATE_array___AbstractArray___remove_all}; val_t variable0; val_t variable1; val_t variable2; @@ -404,7 +405,7 @@ void array___AbstractArray___remove_all(val_t self, val_t param0) { return; } void array___AbstractArray___remove_at(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_array___AbstractArray___remove_at, 163}; + struct trace_t trace = {NULL, LOCATE_array, 163, LOCATE_array___AbstractArray___remove_at}; val_t variable0; val_t variable1; val_t variable2; @@ -427,8 +428,8 @@ void array___AbstractArray___remove_at(val_t self, val_t param0) { variable3 = TAG_Bool(UNTAG_Int( variable2 /*j*/)=UNTAG_Int( TAG_Int(0))); variable2 = variable1; if (UNTAG_Bool(variable2)) { /* and */ - variable2 = ATTR_array___AbstractArray____length( self) /*Array::_length*/; + variable2 = ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/; variable2 = TAG_Bool(UNTAG_Int( variable0 /*index*/)=UNTAG_Int( TAG_Int(0))); variable3 = variable2; if (UNTAG_Bool(variable3)) { /* and */ - variable3 = ATTR_array___AbstractArray____length( self) /*Array::_length*/; + variable3 = ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/; variable3 = TAG_Int(UNTAG_Int(variable3)+UNTAG_Int( TAG_Int(1))); variable3 = TAG_Bool(UNTAG_Int( variable0 /*index*/)UNTAG_Int( TAG_Int(0))); if (UNTAG_Bool(variable3)) { /*if*/ variable3 = ATTR_array___Array____items( self) /*Array::_items*/; - variable4 = ATTR_array___AbstractArray____length( self) /*Array::_length*/; + variable4 = ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/; (void)memcpy(UNBOX_NativeArray( variable2 /*a*/), UNBOX_NativeArray(variable3), UNTAG_Int(variable4)*sizeof(val_t)); } ATTR_array___Array____items( self) /*Array::_items*/ = variable2 /*a*/; @@ -650,53 +651,53 @@ void array___Array___enlarge(val_t self, val_t param0) { return; } void array___Array___init(val_t self, int* init_table) { - struct trace_t trace = {NULL, LOCATE_array___Array___init, 256}; + struct trace_t trace = {NULL, LOCATE_array, 256, LOCATE_array___Array___init}; trace.prev = tracehead; tracehead = &trace; if (init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_Array].i]) return; ATTR_array___Array____capacity( self) /*Array::_capacity*/ = TAG_Int(0); - ATTR_array___AbstractArray____length( self) /*Array::_length*/ = TAG_Int(0); + ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/ = TAG_Int(0); init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_Array].i] = 1; tracehead = trace.prev; return; } void array___Array___with(val_t self, val_t param0, int* init_table) { - struct trace_t trace = {NULL, LOCATE_array___Array___with, 263}; + struct trace_t trace = {NULL, LOCATE_array, 263, LOCATE_array___Array___with}; val_t variable0; val_t variable1; trace.prev = tracehead; tracehead = &trace; /* check if pvft[INIT_TABLE_POS_Array].i]) return; variable1 = ATTR_array___Array____items( variable0 /*objects*/) /*Array::_items*/; ATTR_array___Array____items( self) /*Array::_items*/ = variable1; variable1 = ATTR_array___Array____capacity( variable0 /*objects*/) /*Array::_capacity*/; ATTR_array___Array____capacity( self) /*Array::_capacity*/ = variable1; - variable1 = ((array___AbstractArray___length_t)CALL( variable0 /*objects*/,COLOR_abstract_collection___Collection___length))( variable0 /*objects*/) /*Array::length*/; - ATTR_array___AbstractArray____length( self) /*Array::_length*/ = variable1; + variable1 = ((array___AbstractArray___length_t)CALL( variable0 /*objects*/,COLOR_abstract_collection___Collection___length))( variable0 /*objects*/) /*AbstractArray::length*/; + ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/ = variable1; init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_Array].i] = 1; tracehead = trace.prev; return; } void array___Array___with_capacity(val_t self, val_t param0, int* init_table) { - struct trace_t trace = {NULL, LOCATE_array___Array___with_capacity, 271}; + struct trace_t trace = {NULL, LOCATE_array, 271, LOCATE_array___Array___with_capacity}; val_t variable0; val_t variable1; trace.prev = tracehead; tracehead = &trace; variable0 = param0; if (init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_Array].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", " 'positive' ", LOCATE_array___Array___with_capacity, 274); nit_exit(1);} + if (!UNTAG_Bool(variable1)) { fprintf(stderr, "Assert%s failed", " 'positive' "); fprintf(stderr, " in %s (%s:%d)\n", LOCATE_array___Array___with_capacity, LOCATE_array, 274); nit_exit(1);} variable1 = BOX_NativeArray((val_t*)malloc((UNTAG_Int( variable0 /*cap*/) * sizeof(val_t)))); ATTR_array___Array____items( self) /*Array::_items*/ = variable1; ATTR_array___Array____capacity( self) /*Array::_capacity*/ = variable0 /*cap*/; - ATTR_array___AbstractArray____length( self) /*Array::_length*/ = TAG_Int(0); + ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/ = TAG_Int(0); init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_Array].i] = 1; tracehead = trace.prev; return; } void array___Array___filled_with(val_t self, val_t param0, val_t param1, int* init_table) { - struct trace_t trace = {NULL, LOCATE_array___Array___filled_with, 280}; + struct trace_t trace = {NULL, LOCATE_array, 280, LOCATE_array___Array___filled_with}; val_t variable0; val_t variable1; val_t variable2; @@ -706,11 +707,11 @@ void array___Array___filled_with(val_t self, val_t param0, val_t param1, int* variable1 = param1; if (init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_Array].i]) return; variable2 = TAG_Bool(UNTAG_Int( variable1 /*count*/)>=UNTAG_Int( TAG_Int(0))); - if (!UNTAG_Bool(variable2)) { fprintf(stderr, "Assert%s failed (%s: %d)\n", " 'positive' ", LOCATE_array___Array___filled_with, 283); nit_exit(1);} + if (!UNTAG_Bool(variable2)) { fprintf(stderr, "Assert%s failed", " 'positive' "); fprintf(stderr, " in %s (%s:%d)\n", LOCATE_array___Array___filled_with, LOCATE_array, 283); nit_exit(1);} variable2 = BOX_NativeArray((val_t*)malloc((UNTAG_Int( variable1 /*count*/) * sizeof(val_t)))); ATTR_array___Array____items( self) /*Array::_items*/ = variable2; ATTR_array___Array____capacity( self) /*Array::_capacity*/ = variable1 /*count*/; - ATTR_array___AbstractArray____length( self) /*Array::_length*/ = variable1 /*count*/; + ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/ = variable1 /*count*/; variable2 = TAG_Int(0); while (true) { /*while*/ variable3 = TAG_Bool(UNTAG_Int( variable2 /*i*/)vft[INIT_TABLE_POS_Array].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", " 'positive' ", LOCATE_array___Array___with_native, 297); nit_exit(1);} + if (!UNTAG_Bool(variable2)) { fprintf(stderr, "Assert%s failed", " 'positive' "); fprintf(stderr, " in %s (%s:%d)\n", LOCATE_array___Array___with_native, LOCATE_array, 297); nit_exit(1);} ATTR_array___Array____items( self) /*Array::_items*/ = variable0 /*nat*/; ATTR_array___Array____capacity( self) /*Array::_capacity*/ = variable1 /*size*/; - ATTR_array___AbstractArray____length( self) /*Array::_length*/ = variable1 /*size*/; + ATTR_array___AbstractArray____length( self) /*AbstractArray::_length*/ = variable1 /*size*/; init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_Array].i] = 1; tracehead = trace.prev; return; } val_t array___ArrayIterator___item(val_t self) { - struct trace_t trace = {NULL, LOCATE_array___ArrayIterator___item, 313}; + struct trace_t trace = {NULL, LOCATE_array, 313, LOCATE_array___ArrayIterator___item}; val_t variable0; val_t variable1; trace.prev = tracehead; tracehead = &trace; variable0 = ATTR_array___ArrayIterator____array( self) /*ArrayIterator::_array*/; variable1 = ATTR_array___ArrayIterator____index( self) /*ArrayIterator::_index*/; - variable0 = ((abstract_collection___Map_____bra_t)CALL(variable0,COLOR_abstract_collection___Map_____bra))(variable0, variable1) /*AbstractArray::[]*/; + variable0 = ((abstract_collection___Map_____bra_t)CALL(variable0,COLOR_abstract_collection___Map_____bra))(variable0, variable1) /*Map::[]*/; goto return_label47; return_label47: while(false); tracehead = trace.prev; return variable0; } void array___ArrayIterator___item__eq(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_array___ArrayIterator___item__eq, 315}; + struct trace_t trace = {NULL, LOCATE_array, 315, LOCATE_array___ArrayIterator___item__eq}; val_t variable0; val_t variable1; val_t variable2; @@ -764,12 +765,12 @@ void array___ArrayIterator___item__eq(val_t self, val_t param0) { variable0 = param0; variable1 = ATTR_array___ArrayIterator____array( self) /*ArrayIterator::_array*/; variable2 = ATTR_array___ArrayIterator____index( self) /*ArrayIterator::_index*/; - ((abstract_collection___Map_____braeq_t)CALL(variable1,COLOR_abstract_collection___Map_____braeq))(variable1, variable2, variable0 /*e*/) /*AbstractArray::[]=*/; + ((abstract_collection___Map_____braeq_t)CALL(variable1,COLOR_abstract_collection___Map_____braeq))(variable1, variable2, variable0 /*e*/) /*Map::[]=*/; tracehead = trace.prev; return; } val_t array___ArrayIterator___is_ok(val_t self) { - struct trace_t trace = {NULL, LOCATE_array___ArrayIterator___is_ok, 317}; + struct trace_t trace = {NULL, LOCATE_array, 317, LOCATE_array___ArrayIterator___is_ok}; val_t variable0; val_t variable1; trace.prev = tracehead; tracehead = &trace; @@ -783,21 +784,21 @@ val_t array___ArrayIterator___is_ok(val_t self) { return variable0; } void array___ArrayIterator___next(val_t self) { - struct trace_t trace = {NULL, LOCATE_array___ArrayIterator___next, 319}; + struct trace_t trace = {NULL, LOCATE_array, 319, LOCATE_array___ArrayIterator___next}; trace.prev = tracehead; tracehead = &trace; ATTR_array___ArrayIterator____index( self) /*ArrayIterator::_index*/ = TAG_Int(UNTAG_Int(ATTR_array___ArrayIterator____index( self) /*ArrayIterator::_index*/)+UNTAG_Int( TAG_Int(1))); tracehead = trace.prev; return; } void array___ArrayIterator___init(val_t self, val_t param0, int* init_table) { - struct trace_t trace = {NULL, LOCATE_array___ArrayIterator___init, 321}; + struct trace_t trace = {NULL, LOCATE_array, 321, LOCATE_array___ArrayIterator___init}; val_t variable0; val_t variable1; trace.prev = tracehead; tracehead = &trace; variable0 = param0; if (init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_ArrayIterator].i]) return; - variable1 = TAG_Bool(!UNTAG_Bool(TAG_Bool(( variable0 /*a*/ == NIT_NULL /*null*/) || (( variable0 /*a*/ != NIT_NULL) && UNTAG_Bool(((array___AbstractArray_____eqeq_t)CALL( variable0 /*a*/,COLOR_kernel___Object_____eqeq))( variable0 /*a*/, NIT_NULL /*null*/) /*AbstractArray::==*/))))); - if (!UNTAG_Bool(variable1)) { fprintf(stderr, "Assert%s failed (%s: %d)\n", " 'not_nil' ", LOCATE_array___ArrayIterator___init, 323); nit_exit(1);} + variable1 = TAG_Bool(!UNTAG_Bool(TAG_Bool(( variable0 /*a*/ == NIT_NULL /*null*/) || (( variable0 /*a*/ != NIT_NULL) && ((((kernel___Object_____eqeq_t)CALL( variable0 /*a*/,COLOR_kernel___Object_____eqeq))==kernel___Object_____eqeq)?(IS_EQUAL_NN( variable0 /*a*/, NIT_NULL /*null*/)):(UNTAG_Bool(((kernel___Object_____eqeq_t)CALL( variable0 /*a*/,COLOR_kernel___Object_____eqeq))( variable0 /*a*/, NIT_NULL /*null*/) /*Object::==*/))))))); + if (!UNTAG_Bool(variable1)) { fprintf(stderr, "Assert%s failed", " 'not_nil' "); fprintf(stderr, " in %s (%s:%d)\n", LOCATE_array___ArrayIterator___init, LOCATE_array, 323); nit_exit(1);} ATTR_array___ArrayIterator____array( self) /*ArrayIterator::_array*/ = variable0 /*a*/; ATTR_array___ArrayIterator____index( self) /*ArrayIterator::_index*/ = TAG_Int(0); init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_ArrayIterator].i] = 1; @@ -805,85 +806,85 @@ void array___ArrayIterator___init(val_t self, val_t param0, int* init_table) { return; } val_t array___ArrayIterator___index(val_t self) { - struct trace_t trace = {NULL, LOCATE_array___ArrayIterator___index, 328}; + struct trace_t trace = {NULL, LOCATE_array, 328, LOCATE_array___ArrayIterator___index}; trace.prev = tracehead; tracehead = &trace; tracehead = trace.prev; return ATTR_array___ArrayIterator____index( self) /*ArrayIterator::_index*/; } val_t array___ArraySet___has(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_array___ArraySet___has, 340}; + struct trace_t trace = {NULL, LOCATE_array, 340, LOCATE_array___ArraySet___has}; val_t variable0; val_t variable1; trace.prev = tracehead; tracehead = &trace; variable0 = param0; variable1 = ATTR_array___ArraySet____array( self) /*ArraySet::_array*/; - variable1 = ((array___AbstractArray___has_t)CALL(variable1,COLOR_abstract_collection___Collection___has))(variable1, variable0 /*e*/) /*Array::has*/; + variable1 = ((array___AbstractArray___has_t)CALL(variable1,COLOR_abstract_collection___Collection___has))(variable1, variable0 /*e*/) /*AbstractArray::has*/; goto return_label52; return_label52: while(false); tracehead = trace.prev; return variable1; } void array___ArraySet___add(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_array___ArraySet___add, 342}; + struct trace_t trace = {NULL, LOCATE_array, 342, LOCATE_array___ArraySet___add}; val_t variable0; val_t variable1; trace.prev = tracehead; tracehead = &trace; variable0 = param0; variable1 = ATTR_array___ArraySet____array( self) /*ArraySet::_array*/; - variable1 = ((array___AbstractArray___has_t)CALL(variable1,COLOR_abstract_collection___Collection___has))(variable1, variable0 /*e*/) /*Array::has*/; + variable1 = ((array___AbstractArray___has_t)CALL(variable1,COLOR_abstract_collection___Collection___has))(variable1, variable0 /*e*/) /*AbstractArray::has*/; if (UNTAG_Bool( TAG_Bool(!UNTAG_Bool(variable1)))) { /*if*/ variable1 = ATTR_array___ArraySet____array( self) /*ArraySet::_array*/; - ((array___AbstractArray___add_t)CALL(variable1,COLOR_abstract_collection___SimpleCollection___add))(variable1, variable0 /*e*/) /*Array::add*/; + ((array___AbstractArray___add_t)CALL(variable1,COLOR_abstract_collection___SimpleCollection___add))(variable1, variable0 /*e*/) /*AbstractArray::add*/; } tracehead = trace.prev; return; } val_t array___ArraySet___is_empty(val_t self) { - struct trace_t trace = {NULL, LOCATE_array___ArraySet___is_empty, 344}; + struct trace_t trace = {NULL, LOCATE_array, 344, LOCATE_array___ArraySet___is_empty}; val_t variable0; trace.prev = tracehead; tracehead = &trace; variable0 = ATTR_array___ArraySet____array( self) /*ArraySet::_array*/; - variable0 = ((array___AbstractArray___is_empty_t)CALL(variable0,COLOR_abstract_collection___Collection___is_empty))(variable0) /*Array::is_empty*/; + variable0 = ((array___AbstractArray___is_empty_t)CALL(variable0,COLOR_abstract_collection___Collection___is_empty))(variable0) /*AbstractArray::is_empty*/; goto return_label54; return_label54: while(false); tracehead = trace.prev; return variable0; } val_t array___ArraySet___length(val_t self) { - struct trace_t trace = {NULL, LOCATE_array___ArraySet___length, 346}; + struct trace_t trace = {NULL, LOCATE_array, 346, LOCATE_array___ArraySet___length}; val_t variable0; trace.prev = tracehead; tracehead = &trace; variable0 = ATTR_array___ArraySet____array( self) /*ArraySet::_array*/; - variable0 = ((array___AbstractArray___length_t)CALL(variable0,COLOR_abstract_collection___Collection___length))(variable0) /*Array::length*/; + variable0 = ((array___AbstractArray___length_t)CALL(variable0,COLOR_abstract_collection___Collection___length))(variable0) /*AbstractArray::length*/; goto return_label55; return_label55: while(false); tracehead = trace.prev; return variable0; } val_t array___ArraySet___first(val_t self) { - struct trace_t trace = {NULL, LOCATE_array___ArraySet___first, 348}; + struct trace_t trace = {NULL, LOCATE_array, 348, LOCATE_array___ArraySet___first}; val_t variable0; trace.prev = tracehead; tracehead = &trace; variable0 = ATTR_array___ArraySet____array( self) /*ArraySet::_array*/; - variable0 = ((array___AbstractArray___length_t)CALL(variable0,COLOR_abstract_collection___Collection___length))(variable0) /*Array::length*/; + variable0 = ((array___AbstractArray___length_t)CALL(variable0,COLOR_abstract_collection___Collection___length))(variable0) /*AbstractArray::length*/; variable0 = TAG_Bool(UNTAG_Int(variable0)>UNTAG_Int( TAG_Int(0))); - if (!UNTAG_Bool(variable0)) { fprintf(stderr, "Assert%s failed (%s: %d)\n", "", LOCATE_array___ArraySet___first, 350); nit_exit(1);} + if (!UNTAG_Bool(variable0)) { fprintf(stderr, "Assert%s failed", ""); fprintf(stderr, " in %s (%s:%d)\n", LOCATE_array___ArraySet___first, LOCATE_array, 350); nit_exit(1);} variable0 = ATTR_array___ArraySet____array( self) /*ArraySet::_array*/; - variable0 = ((abstract_collection___IndexedCollection___first_t)CALL(variable0,COLOR_abstract_collection___Collection___first))(variable0) /*Array::first*/; + variable0 = ((abstract_collection___IndexedCollection___first_t)CALL(variable0,COLOR_abstract_collection___Collection___first))(variable0) /*IndexedCollection::first*/; goto return_label56; return_label56: while(false); tracehead = trace.prev; return variable0; } void array___ArraySet___remove(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_array___ArraySet___remove, 354}; + struct trace_t trace = {NULL, LOCATE_array, 354, LOCATE_array___ArraySet___remove}; val_t variable0; val_t variable1; val_t variable2; trace.prev = tracehead; tracehead = &trace; variable0 = param0; variable2 = ATTR_array___ArraySet____array( self) /*ArraySet::_array*/; - variable2 = ((array___AbstractArray___index_of_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___index_of))(variable2, variable0 /*item*/) /*Array::index_of*/; + variable2 = ((array___AbstractArray___index_of_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___index_of))(variable2, variable0 /*item*/) /*AbstractArray::index_of*/; variable1 = variable2; variable2 = TAG_Bool(UNTAG_Int( variable1 /*i*/)>=UNTAG_Int( TAG_Int(0))); if (UNTAG_Bool(variable2)) { /*if*/ @@ -893,7 +894,7 @@ void array___ArraySet___remove(val_t self, val_t param0) { return; } void array___ArraySet___remove_all(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_array___ArraySet___remove_all, 360}; + struct trace_t trace = {NULL, LOCATE_array, 360, LOCATE_array___ArraySet___remove_all}; val_t variable0; trace.prev = tracehead; tracehead = &trace; variable0 = param0; @@ -902,21 +903,21 @@ void array___ArraySet___remove_all(val_t self, val_t param0) { return; } void array___ArraySet___clear(val_t self) { - struct trace_t trace = {NULL, LOCATE_array___ArraySet___clear, 362}; + struct trace_t trace = {NULL, LOCATE_array, 362, LOCATE_array___ArraySet___clear}; val_t variable0; trace.prev = tracehead; tracehead = &trace; variable0 = ATTR_array___ArraySet____array( self) /*ArraySet::_array*/; - ((array___AbstractArray___clear_t)CALL(variable0,COLOR_abstract_collection___RemovableCollection___clear))(variable0) /*Array::clear*/; + ((array___AbstractArray___clear_t)CALL(variable0,COLOR_abstract_collection___RemovableCollection___clear))(variable0) /*AbstractArray::clear*/; tracehead = trace.prev; return; } val_t array___ArraySet___iterator(val_t self) { - struct trace_t trace = {NULL, LOCATE_array___ArraySet___iterator, 364}; + struct trace_t trace = {NULL, LOCATE_array, 364, LOCATE_array___ArraySet___iterator}; val_t variable0; val_t variable1; trace.prev = tracehead; tracehead = &trace; variable0 = ATTR_array___ArraySet____array( self) /*ArraySet::_array*/; - variable0 = ((array___AbstractArray___iterator_t)CALL(variable0,COLOR_abstract_collection___Collection___iterator))(variable0) /*Array::iterator*/; + variable0 = ((array___AbstractArray___iterator_t)CALL(variable0,COLOR_abstract_collection___Collection___iterator))(variable0) /*AbstractArray::iterator*/; variable1 = NEW_array___ArraySetIterator___init(variable0); /*new ArraySetIterator[E]*/ variable0 = variable1; goto return_label60; @@ -925,7 +926,7 @@ val_t array___ArraySet___iterator(val_t self) { return variable0; } void array___ArraySet___enlarge(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_array___ArraySet___enlarge, 366}; + struct trace_t trace = {NULL, LOCATE_array, 366, LOCATE_array___ArraySet___enlarge}; val_t variable0; val_t variable1; trace.prev = tracehead; tracehead = &trace; @@ -936,7 +937,7 @@ void array___ArraySet___enlarge(val_t self, val_t param0) { return; } void array___ArraySet___remove_at(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_array___ArraySet___remove_at, 369}; + struct trace_t trace = {NULL, LOCATE_array, 369, LOCATE_array___ArraySet___remove_at}; val_t variable0; val_t variable1; val_t variable2; @@ -944,15 +945,15 @@ void array___ArraySet___remove_at(val_t self, val_t param0) { variable0 = param0; variable1 = ATTR_array___ArraySet____array( self) /*ArraySet::_array*/; variable2 = ATTR_array___ArraySet____array( self) /*ArraySet::_array*/; - variable2 = ((abstract_collection___IndexedCollection___last_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___last))(variable2) /*Array::last*/; + variable2 = ((abstract_collection___IndexedCollection___last_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___last))(variable2) /*IndexedCollection::last*/; ((array___Array_____braeq_t)CALL(variable1,COLOR_abstract_collection___Map_____braeq))(variable1, variable0 /*i*/, variable2) /*Array::[]=*/; variable1 = ATTR_array___ArraySet____array( self) /*ArraySet::_array*/; - ((array___AbstractArray___pop_t)CALL(variable1,COLOR_abstract_collection___IndexedCollection___pop))(variable1) /*Array::pop*/; + ((array___AbstractArray___pop_t)CALL(variable1,COLOR_abstract_collection___IndexedCollection___pop))(variable1) /*AbstractArray::pop*/; tracehead = trace.prev; return; } void array___ArraySet___init(val_t self, int* init_table) { - struct trace_t trace = {NULL, LOCATE_array___ArraySet___init, 375}; + struct trace_t trace = {NULL, LOCATE_array, 375, LOCATE_array___ArraySet___init}; val_t variable0; trace.prev = tracehead; tracehead = &trace; if (init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_ArraySet].i]) return; @@ -963,7 +964,7 @@ void array___ArraySet___init(val_t self, int* init_table) { return; } void array___ArraySet___with_capacity(val_t self, val_t param0, int* init_table) { - struct trace_t trace = {NULL, LOCATE_array___ArraySet___with_capacity, 378}; + struct trace_t trace = {NULL, LOCATE_array, 378, LOCATE_array___ArraySet___with_capacity}; val_t variable0; val_t variable1; trace.prev = tracehead; tracehead = &trace; @@ -976,7 +977,7 @@ void array___ArraySet___with_capacity(val_t self, val_t param0, int* init_tabl return; } val_t array___ArraySetIterator___is_ok(val_t self) { - struct trace_t trace = {NULL, LOCATE_array___ArraySetIterator___is_ok, 386}; + struct trace_t trace = {NULL, LOCATE_array, 386, LOCATE_array___ArraySetIterator___is_ok}; val_t variable0; trace.prev = tracehead; tracehead = &trace; variable0 = ATTR_array___ArraySetIterator____iter( self) /*ArraySetIterator::_iter*/; @@ -987,7 +988,7 @@ val_t array___ArraySetIterator___is_ok(val_t self) { return variable0; } void array___ArraySetIterator___next(val_t self) { - struct trace_t trace = {NULL, LOCATE_array___ArraySetIterator___next, 388}; + struct trace_t trace = {NULL, LOCATE_array, 388, LOCATE_array___ArraySetIterator___next}; val_t variable0; trace.prev = tracehead; tracehead = &trace; variable0 = ATTR_array___ArraySetIterator____iter( self) /*ArraySetIterator::_iter*/; @@ -996,7 +997,7 @@ void array___ArraySetIterator___next(val_t self) { return; } val_t array___ArraySetIterator___item(val_t self) { - struct trace_t trace = {NULL, LOCATE_array___ArraySetIterator___item, 390}; + struct trace_t trace = {NULL, LOCATE_array, 390, LOCATE_array___ArraySetIterator___item}; val_t variable0; trace.prev = tracehead; tracehead = &trace; variable0 = ATTR_array___ArraySetIterator____iter( self) /*ArraySetIterator::_iter*/; @@ -1007,7 +1008,7 @@ val_t array___ArraySetIterator___item(val_t self) { return variable0; } void array___ArraySetIterator___init(val_t self, val_t param0, int* init_table) { - struct trace_t trace = {NULL, LOCATE_array___ArraySetIterator___init, 392}; + struct trace_t trace = {NULL, LOCATE_array, 392, LOCATE_array___ArraySetIterator___init}; val_t variable0; trace.prev = tracehead; tracehead = &trace; variable0 = param0; @@ -1018,7 +1019,7 @@ void array___ArraySetIterator___init(val_t self, val_t param0, int* init_table return; } val_t array___ArrayMap_____bra(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_array___ArrayMap_____bra, 402}; + struct trace_t trace = {NULL, LOCATE_array, 402, LOCATE_array___ArrayMap_____bra}; val_t variable0; val_t variable1; val_t variable2; @@ -1037,11 +1038,11 @@ val_t array___ArrayMap_____bra(val_t self, val_t param0) { variable5 = variable4; if (UNTAG_Bool(variable5)) { /* and */ variable5 = variable2; - variable5 = ATTR_array___AbstractArray____length(variable5) /*Array::_length*/; + variable5 = ATTR_array___AbstractArray____length(variable5) /*AbstractArray::_length*/; variable5 = TAG_Bool(UNTAG_Int( variable3 /*index*/)vft[INIT_TABLE_POS_ArrayMap].i]) return; - variable0 = NEW_array___Array___init(); /*new Array[Couple[K, E]]*/ + variable0 = NEW_array___Array___init(); /*new Array[E]*/ ATTR_array___ArrayMap____items( self) /*ArrayMap::_items*/ = variable0; init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_ArrayMap].i] = 1; tracehead = trace.prev; return; } val_t array___Iterator___to_a(val_t self) { - struct trace_t trace = {NULL, LOCATE_array___Iterator___to_a, 543}; + struct trace_t trace = {NULL, LOCATE_array, 543, LOCATE_array___Iterator___to_a}; val_t variable0; val_t variable1; trace.prev = tracehead; tracehead = &trace; @@ -1546,7 +1547,7 @@ val_t array___Iterator___to_a(val_t self) { variable1 = ((abstract_collection___Iterator___is_ok_t)CALL( self,COLOR_abstract_collection___Iterator___is_ok))( self) /*Iterator::is_ok*/; if (!UNTAG_Bool(variable1)) break; /* while*/ variable1 = ((abstract_collection___Iterator___item_t)CALL( self,COLOR_abstract_collection___Iterator___item))( self) /*Iterator::item*/; - ((array___AbstractArray___add_t)CALL( variable0 /*res*/,COLOR_abstract_collection___SimpleCollection___add))( variable0 /*res*/, variable1) /*Array::add*/; + ((array___AbstractArray___add_t)CALL( variable0 /*res*/,COLOR_abstract_collection___SimpleCollection___add))( variable0 /*res*/, variable1) /*AbstractArray::add*/; ((abstract_collection___Iterator___next_t)CALL( self,COLOR_abstract_collection___Iterator___next))( self) /*Iterator::next*/; continue_102: while(0); } @@ -1558,7 +1559,7 @@ val_t array___Iterator___to_a(val_t self) { return variable0; } val_t array___Collection___to_a(val_t self) { - struct trace_t trace = {NULL, LOCATE_array___Collection___to_a, 556}; + struct trace_t trace = {NULL, LOCATE_array, 556, LOCATE_array___Collection___to_a}; val_t variable0; trace.prev = tracehead; tracehead = &trace; variable0 = ((abstract_collection___Collection___iterator_t)CALL( self,COLOR_abstract_collection___Collection___iterator))( self) /*Collection::iterator*/; @@ -1569,26 +1570,26 @@ val_t array___Collection___to_a(val_t self) { return variable0; } val_t array___ArrayCapable___calloc_array(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_array___ArrayCapable___calloc_array, 567}; + struct trace_t trace = {NULL, LOCATE_array, 567, LOCATE_array___ArrayCapable___calloc_array}; trace.prev = tracehead; tracehead = &trace; tracehead = trace.prev; return BOX_NativeArray((val_t*)malloc((UNTAG_Int( param0) * sizeof(val_t)))); } val_t array___NativeArray_____bra(val_t self, val_t param0) { - struct trace_t trace = {NULL, LOCATE_array___NativeArray_____bra, 573}; + struct trace_t trace = {NULL, LOCATE_array, 573, LOCATE_array___NativeArray_____bra}; trace.prev = tracehead; tracehead = &trace; tracehead = trace.prev; return UNBOX_NativeArray( self)[UNTAG_Int( param0)]; } void array___NativeArray_____braeq(val_t self, val_t param0, val_t param1) { - struct trace_t trace = {NULL, LOCATE_array___NativeArray_____braeq, 574}; + struct trace_t trace = {NULL, LOCATE_array, 574, LOCATE_array___NativeArray_____braeq}; trace.prev = tracehead; tracehead = &trace; UNBOX_NativeArray( self)[UNTAG_Int( param0)]= param1; tracehead = trace.prev; return; } void array___NativeArray___copy_to(val_t self, val_t param0, val_t param1) { - struct trace_t trace = {NULL, LOCATE_array___NativeArray___copy_to, 575}; + struct trace_t trace = {NULL, LOCATE_array, 575, LOCATE_array___NativeArray___copy_to}; trace.prev = tracehead; tracehead = &trace; (void)memcpy(UNBOX_NativeArray( param0), UNBOX_NativeArray( self), UNTAG_Int( param1)*sizeof(val_t)); tracehead = trace.prev;