+/* This C file is generated by NIT to compile module range. */
#include "range._sep.h"
-val_t range___Range___first(val_t self) {
- struct trace_t trace = {NULL, "range::Range::first (bin/../lib/standard//range.nit:22,2--30)"};
- trace.prev = tracehead; tracehead = &trace;
- tracehead = trace.prev;
- return ATTR_range___Range____first( self) /*Range::_first*/;
-}
-val_t range___Range___last(val_t self) {
- struct trace_t trace = {NULL, "range::Range::last (bin/../lib/standard//range.nit:24,2--25:23)"};
- trace.prev = tracehead; tracehead = &trace;
- tracehead = trace.prev;
- return ATTR_range___Range____last( self) /*Range::_last*/;
-}
-val_t range___Range___after(val_t self) {
- struct trace_t trace = {NULL, "range::Range::after (bin/../lib/standard//range.nit:27,2--28:24)"};
- trace.prev = tracehead; tracehead = &trace;
- tracehead = trace.prev;
- return ATTR_range___Range____after( self) /*Range::_after*/;
-}
-val_t range___Range___has(val_t self, val_t param0) {
- struct trace_t trace = {NULL, "range::Range::has (bin/../lib/standard//range.nit:30,2--64)"};
- val_t variable0;
- val_t variable1;
- val_t variable2;
- trace.prev = tracehead; tracehead = &trace;
- variable0 = param0;
- variable1 = ATTR_range___Range____first( self) /*Range::_first*/;
- variable1 = ((kernel___Comparable_____geq_t)CALL( variable0 /*item*/,COLOR_kernel___Comparable_____geq))( variable0 /*item*/, variable1) /*Discrete::>=*/;
- variable2 = variable1;
- if (UNTAG_Bool(variable2)) { /* and */
- variable2 = ATTR_range___Range____last( self) /*Range::_last*/;
- variable2 = ((kernel___Comparable_____leq_t)CALL( variable0 /*item*/,COLOR_kernel___Comparable_____leq))( variable0 /*item*/, variable2) /*Discrete::<=*/;
- }
- variable1 = variable2;
- goto return_label0;
- return_label0: while(false);
- tracehead = trace.prev;
- return variable1;
-}
-val_t range___Range___has_only(val_t self, val_t param0) {
- struct trace_t trace = {NULL, "range::Range::has_only (bin/../lib/standard//range.nit:32,2--69)"};
- val_t variable0;
- val_t variable1;
- val_t variable2;
- trace.prev = tracehead; tracehead = &trace;
- variable0 = param0;
- variable1 = ATTR_range___Range____first( self) /*Range::_first*/;
- variable1 = TAG_Bool((variable1 == variable0 /*item*/) || ((variable1 != NIT_NULL) && ((((kernel___Object_____eqeq_t)CALL(variable1,COLOR_kernel___Object_____eqeq))==kernel___Object_____eqeq)?(IS_EQUAL_NN(variable1, variable0 /*item*/)):(UNTAG_Bool(((kernel___Object_____eqeq_t)CALL(variable1,COLOR_kernel___Object_____eqeq))(variable1, variable0 /*item*/) /*Discrete::==*/)))));
- variable2 = variable1;
- if (UNTAG_Bool(variable2)) { /* and */
- variable2 = ATTR_range___Range____last( self) /*Range::_last*/;
- variable2 = TAG_Bool(( variable0 /*item*/ == variable2) || (( variable0 /*item*/ != NIT_NULL) && ((((kernel___Object_____eqeq_t)CALL( variable0 /*item*/,COLOR_kernel___Object_____eqeq))==kernel___Object_____eqeq)?(IS_EQUAL_NN( variable0 /*item*/,variable2)):(UNTAG_Bool(((kernel___Object_____eqeq_t)CALL( variable0 /*item*/,COLOR_kernel___Object_____eqeq))( variable0 /*item*/, variable2) /*Discrete::==*/)))));
- }
- variable1 = variable2;
- goto return_label1;
- return_label1: while(false);
- tracehead = trace.prev;
- return variable1;
-}
-val_t range___Range___count(val_t self, val_t param0) {
- struct trace_t trace = {NULL, "range::Range::count (bin/../lib/standard//range.nit:34,2--39:11)"};
- val_t variable0;
- val_t variable1;
- trace.prev = tracehead; tracehead = &trace;
- variable0 = param0;
- variable1 = ((range___Range___has_t)CALL( self,COLOR_abstract_collection___Collection___has))( self, variable0 /*item*/) /*Range::has*/;
- if (UNTAG_Bool(variable1)) { /*if*/
- variable1 = TAG_Int(1);
- goto return_label2;
- } else { /*if*/
- variable1 = TAG_Int(0);
- goto return_label2;
- }
- return_label2: while(false);
- tracehead = trace.prev;
- return variable1;
-}
-val_t range___Range___iterator(val_t self) {
- struct trace_t trace = {NULL, "range::Range::iterator (bin/../lib/standard//range.nit:43,2--56)"};
- val_t variable0;
- trace.prev = tracehead; tracehead = &trace;
- variable0 = NEW_range___IteratorRange___init( self); /*new IteratorRange[E]*/
- goto return_label3;
- return_label3: while(false);
- tracehead = trace.prev;
- return variable0;
-}
-val_t range___Range___length(val_t self) {
- struct trace_t trace = {NULL, "range::Range::length (bin/../lib/standard//range.nit:45,2--51:11)"};
- val_t variable0;
- val_t variable1;
- val_t variable2;
- trace.prev = tracehead; tracehead = &trace;
- variable1 = ATTR_range___Range____first( self) /*Range::_first*/;
- variable2 = ATTR_range___Range____after( self) /*Range::_after*/;
- variable1 = ((kernel___Discrete___distance_t)CALL(variable1,COLOR_kernel___Discrete___distance))(variable1, variable2) /*Discrete::distance*/;
- variable0 = variable1;
- variable1 = TAG_Bool(UNTAG_Int( variable0 /*nb*/)>UNTAG_Int( TAG_Int(0)));
- if (UNTAG_Bool(variable1)) { /*if*/
- variable0 = variable0 /*nb*/;
- goto return_label4;
- } else { /*if*/
- variable0 = TAG_Int(0);
- goto return_label4;
- }
- return_label4: while(false);
- tracehead = trace.prev;
- return variable0;
-}
-val_t range___Range___is_empty(val_t self) {
- struct trace_t trace = {NULL, "range::Range::is_empty (bin/../lib/standard//range.nit:55,2--47)"};
- val_t variable0;
- val_t variable1;
- trace.prev = tracehead; tracehead = &trace;
- variable0 = ATTR_range___Range____first( self) /*Range::_first*/;
- variable1 = ATTR_range___Range____after( self) /*Range::_after*/;
- variable0 = ((kernel___Comparable_____geq_t)CALL(variable0,COLOR_kernel___Comparable_____geq))(variable0, variable1) /*Discrete::>=*/;
- goto return_label5;
- return_label5: while(false);
- tracehead = trace.prev;
- return variable0;
-}
-void range___Range___init(val_t self, val_t param0, val_t param1, int* init_table) {
- struct trace_t trace = {NULL, "range::Range::init (bin/../lib/standard//range.nit:57,2--63:18)"};
- val_t variable0;
- val_t variable1;
- val_t variable2;
- trace.prev = tracehead; tracehead = &trace;
- variable0 = param0;
- variable1 = param1;
- if (init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_Range].i]) return;
- ATTR_range___Range____first( self) /*Range::_first*/ = variable0 /*from*/;
- ATTR_range___Range____last( self) /*Range::_last*/ = variable1 /*to*/;
- variable2 = ((kernel___Discrete___succ_t)CALL( variable1 /*to*/,COLOR_kernel___Discrete___succ))( variable1 /*to*/) /*Discrete::succ*/;
- ATTR_range___Range____after( self) /*Range::_after*/ = variable2;
- init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_Range].i] = 1;
- tracehead = trace.prev;
+val_t range___Range___first(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t REGB0;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_range;
+ fra.me.line = 22;
+ fra.me.meth = LOCATE_range___Range___first;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* ./../lib/standard//collection//range.nit:22 */
+ REGB0 = TAG_Bool(ATTR_range___Range____first(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_first", LOCATE_range, 22);
+ }
+ fra.me.REG[0] = ATTR_range___Range____first(fra.me.REG[0]);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[0];
+}
+val_t range___Range___last(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t REGB0;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_range;
+ fra.me.line = 24;
+ fra.me.meth = LOCATE_range___Range___last;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* ./../lib/standard//collection//range.nit:24 */
+ REGB0 = TAG_Bool(ATTR_range___Range____last(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_last", LOCATE_range, 24);
+ }
+ fra.me.REG[0] = ATTR_range___Range____last(fra.me.REG[0]);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[0];
+}
+val_t range___Range___after(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t REGB0;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_range;
+ fra.me.line = 27;
+ fra.me.meth = LOCATE_range___Range___after;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* ./../lib/standard//collection//range.nit:27 */
+ REGB0 = TAG_Bool(ATTR_range___Range____after(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_after", LOCATE_range, 27);
+ }
+ fra.me.REG[0] = ATTR_range___Range____after(fra.me.REG[0]);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[0];
+}
+val_t range___Range___has(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
+ val_t REGB0;
+ val_t REGB1;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_range;
+ fra.me.line = 30;
+ fra.me.meth = LOCATE_range___Range___has;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 3;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* ./../lib/standard//collection//range.nit:30 */
+ REGB0 = TAG_Bool(ATTR_range___Range____first(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_first", LOCATE_range, 30);
+ }
+ fra.me.REG[2] = ATTR_range___Range____first(fra.me.REG[0]);
+ REGB0 = CALL_kernel___Comparable_____geq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
+ if (UNTAG_Bool(REGB0)) {
+ REGB0 = TAG_Bool(ATTR_range___Range____last(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_last", LOCATE_range, 30);
+ }
+ fra.me.REG[0] = ATTR_range___Range____last(fra.me.REG[0]);
+ REGB0 = CALL_kernel___Comparable_____leq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
+ } else {
+ REGB1 = TAG_Bool(false);
+ REGB0 = REGB1;
+ }
+ goto label1;
+ label1: while(0);
+ stack_frame_head = fra.me.prev;
+ return REGB0;
+}
+val_t range___Range___has_only(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
+ val_t REGB0;
+ val_t REGB1;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_range;
+ fra.me.line = 32;
+ fra.me.meth = LOCATE_range___Range___has_only;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 3;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* ./../lib/standard//collection//range.nit:32 */
+ REGB0 = TAG_Bool(ATTR_range___Range____first(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_first", LOCATE_range, 32);
+ }
+ fra.me.REG[2] = ATTR_range___Range____first(fra.me.REG[0]);
+ REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[2],fra.me.REG[1]));
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ REGB1 = CALL_kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
+ REGB0 = REGB1;
+ }
+ if (UNTAG_Bool(REGB0)) {
+ REGB0 = TAG_Bool(ATTR_range___Range____last(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_last", LOCATE_range, 32);
+ }
+ fra.me.REG[0] = ATTR_range___Range____last(fra.me.REG[0]);
+ REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[1],fra.me.REG[0]));
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ REGB1 = CALL_kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
+ REGB0 = REGB1;
+ }
+ } else {
+ REGB1 = TAG_Bool(false);
+ REGB0 = REGB1;
+ }
+ goto label1;
+ label1: while(0);
+ stack_frame_head = fra.me.prev;
+ return REGB0;
+}
+val_t range___Range___count(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
+ val_t REGB0;
+ val_t REGB1;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_range;
+ fra.me.line = 34;
+ fra.me.meth = LOCATE_range___Range___count;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 2;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* ./../lib/standard//collection//range.nit:36 */
+ REGB0 = CALL_abstract_collection___Collection___has(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
+ if (UNTAG_Bool(REGB0)) {
+ /* ./../lib/standard//collection//range.nit:37 */
+ REGB0 = TAG_Int(1);
+ goto label1;
+ } else {
+ /* ./../lib/standard//collection//range.nit:39 */
+ REGB1 = TAG_Int(0);
+ REGB0 = REGB1;
+ goto label1;
+ }
+ label1: while(0);
+ stack_frame_head = fra.me.prev;
+ return REGB0;
+}
+val_t range___Range___iterator(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_range;
+ fra.me.line = 43;
+ fra.me.meth = LOCATE_range___Range___iterator;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* ./../lib/standard//collection//range.nit:43 */
+ fra.me.REG[0] = NEW_IteratorRange_range___IteratorRange___init(fra.me.REG[0]);
+ goto label1;
+ label1: while(0);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[0];
+}
+void range___Range___iterate(val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
+ struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
+ val_t REGB0;
+ fun_t CREG[1];
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_range;
+ fra.me.line = 45;
+ fra.me.meth = LOCATE_range___Range___iterate;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 3;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.closure_ctx = closctx_param;
+ fra.me.closure_funs = CREG;
+ fra.me.REG[0] = p0;
+ CREG[0] = clos_fun0;
+ /* ./../lib/standard//collection//range.nit:48 */
+ REGB0 = TAG_Bool(ATTR_range___Range____first(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_first", LOCATE_range, 48);
+ }
+ fra.me.REG[1] = ATTR_range___Range____first(fra.me.REG[0]);
+ /* ./../lib/standard//collection//range.nit:49 */
+ REGB0 = TAG_Bool(ATTR_range___Range____last(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_last", LOCATE_range, 49);
+ }
+ fra.me.REG[0] = ATTR_range___Range____last(fra.me.REG[0]);
+ /* ./../lib/standard//collection//range.nit:50 */
+ while(1) {
+ REGB0 = CALL_kernel___Comparable_____leq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
+ if (UNTAG_Bool(REGB0)) {
+ /* ./../lib/standard//collection//range.nit:51 */
+ ((void (*)(struct stack_frame_t *, val_t))(CREG[0]))(closctx_param, fra.me.REG[1]);
+ if (closctx_param->has_broke) {
+ goto label1;
+ }
+ /* ./../lib/standard//collection//range.nit:52 */
+ fra.me.REG[2] = CALL_kernel___Discrete___succ(fra.me.REG[1])(fra.me.REG[1]);
+ fra.me.REG[1] = fra.me.REG[2];
+ } else {
+ /* ./../lib/standard//collection//range.nit:50 */
+ goto label2;
+ }
+ }
+ label2: while(0);
+ label1: while(0);
+ stack_frame_head = fra.me.prev;
return;
}
-void range___Range___without_last(val_t self, val_t param0, val_t param1, int* init_table) {
- struct trace_t trace = {NULL, "range::Range::without_last (bin/../lib/standard//range.nit:66,2--72:13)"};
- val_t variable0;
- val_t variable1;
- val_t variable2;
- trace.prev = tracehead; tracehead = &trace;
- variable0 = param0;
- variable1 = param1;
- if (init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_Range].i]) return;
- ATTR_range___Range____first( self) /*Range::_first*/ = variable0 /*from*/;
- variable2 = ((kernel___Discrete___prec_t)CALL( variable1 /*to*/,COLOR_kernel___Discrete___prec))( variable1 /*to*/) /*Discrete::prec*/;
- ATTR_range___Range____last( self) /*Range::_last*/ = variable2;
- ATTR_range___Range____after( self) /*Range::_after*/ = variable1 /*to*/;
- init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_Range].i] = 1;
- tracehead = trace.prev;
+val_t range___Range___length(val_t p0){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
+ val_t REGB0;
+ val_t REGB1;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_range;
+ fra.me.line = 56;
+ fra.me.meth = LOCATE_range___Range___length;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 2;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* ./../lib/standard//collection//range.nit:58 */
+ REGB0 = TAG_Bool(ATTR_range___Range____first(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_first", LOCATE_range, 58);
+ }
+ fra.me.REG[1] = ATTR_range___Range____first(fra.me.REG[0]);
+ REGB0 = TAG_Bool(ATTR_range___Range____after(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_after", LOCATE_range, 58);
+ }
+ fra.me.REG[0] = ATTR_range___Range____after(fra.me.REG[0]);
+ REGB0 = CALL_kernel___Discrete___distance(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
+ /* ./../lib/standard//collection//range.nit:59 */
+ REGB1 = TAG_Int(0);
+ /* ./../lib/standard//kernel.nit:214 */
+ REGB1 = TAG_Bool(UNTAG_Int(REGB0)>UNTAG_Int(REGB1));
+ /* ./../lib/standard//collection//range.nit:59 */
+ if (UNTAG_Bool(REGB1)) {
+ /* ./../lib/standard//collection//range.nit:60 */
+ goto label1;
+ } else {
+ /* ./../lib/standard//collection//range.nit:62 */
+ REGB1 = TAG_Int(0);
+ REGB0 = REGB1;
+ goto label1;
+ }
+ label1: while(0);
+ stack_frame_head = fra.me.prev;
+ return REGB0;
+}
+val_t range___Range___is_empty(val_t p0){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
+ val_t REGB0;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_range;
+ fra.me.line = 66;
+ fra.me.meth = LOCATE_range___Range___is_empty;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 2;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* ./../lib/standard//collection//range.nit:66 */
+ REGB0 = TAG_Bool(ATTR_range___Range____first(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_first", LOCATE_range, 66);
+ }
+ fra.me.REG[1] = ATTR_range___Range____first(fra.me.REG[0]);
+ REGB0 = TAG_Bool(ATTR_range___Range____after(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_after", LOCATE_range, 66);
+ }
+ fra.me.REG[0] = ATTR_range___Range____after(fra.me.REG[0]);
+ REGB0 = CALL_kernel___Comparable_____geq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
+ goto label1;
+ label1: while(0);
+ stack_frame_head = fra.me.prev;
+ return REGB0;
+}
+void range___Range___init(val_t p0, val_t p1, val_t p2, int* init_table){
+ int itpos0 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_Range].i;
+ struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
+ val_t tmp;
+ if (init_table[itpos0]) return;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_range;
+ fra.me.line = 68;
+ fra.me.meth = LOCATE_range___Range___init;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 3;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ fra.me.REG[2] = p2;
+ /* ./../lib/standard//collection//range.nit:72 */
+ ATTR_range___Range____first(fra.me.REG[0]) = fra.me.REG[1];
+ /* ./../lib/standard//collection//range.nit:73 */
+ ATTR_range___Range____last(fra.me.REG[0]) = fra.me.REG[2];
+ /* ./../lib/standard//collection//range.nit:74 */
+ fra.me.REG[2] = CALL_kernel___Discrete___succ(fra.me.REG[2])(fra.me.REG[2]);
+ ATTR_range___Range____after(fra.me.REG[0]) = fra.me.REG[2];
+ stack_frame_head = fra.me.prev;
+ init_table[itpos0] = 1;
return;
}
-val_t range___IteratorRange___item(val_t self) {
- struct trace_t trace = {NULL, "range::IteratorRange::item (bin/../lib/standard//range.nit:80,2--29)"};
- trace.prev = tracehead; tracehead = &trace;
- tracehead = trace.prev;
- return ATTR_range___IteratorRange____item( self) /*IteratorRange::_item*/;
-}
-val_t range___IteratorRange___is_ok(val_t self) {
- struct trace_t trace = {NULL, "range::IteratorRange::is_ok (bin/../lib/standard//range.nit:82,2--48)"};
- val_t variable0;
- val_t variable1;
- trace.prev = tracehead; tracehead = &trace;
- variable0 = ATTR_range___IteratorRange____item( self) /*IteratorRange::_item*/;
- variable1 = ATTR_range___IteratorRange____range( self) /*IteratorRange::_range*/;
- variable1 = ((range___Range___after_t)CALL(variable1,COLOR_range___Range___after))(variable1) /*Range::after*/;
- variable0 = ((kernel___Comparable_____l_t)CALL(variable0,COLOR_kernel___Comparable_____l))(variable0, variable1) /*Discrete::<*/;
- goto return_label8;
- return_label8: while(false);
- tracehead = trace.prev;
- return variable0;
-}
-void range___IteratorRange___next(val_t self) {
- struct trace_t trace = {NULL, "range::IteratorRange::next (bin/../lib/standard//range.nit:84,2--38)"};
- val_t variable0;
- trace.prev = tracehead; tracehead = &trace;
- variable0 = ATTR_range___IteratorRange____item( self) /*IteratorRange::_item*/;
- variable0 = ((kernel___Discrete___succ_t)CALL(variable0,COLOR_kernel___Discrete___succ))(variable0) /*Discrete::succ*/;
- ATTR_range___IteratorRange____item( self) /*IteratorRange::_item*/ = variable0;
- tracehead = trace.prev;
+void range___Range___without_last(val_t p0, val_t p1, val_t p2, int* init_table){
+ int itpos1 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_Range].i;
+ struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
+ val_t tmp;
+ if (init_table[itpos1]) return;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_range;
+ fra.me.line = 77;
+ fra.me.meth = LOCATE_range___Range___without_last;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 3;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ fra.me.REG[2] = p2;
+ /* ./../lib/standard//collection//range.nit:81 */
+ ATTR_range___Range____first(fra.me.REG[0]) = fra.me.REG[1];
+ /* ./../lib/standard//collection//range.nit:82 */
+ fra.me.REG[1] = CALL_kernel___Discrete___prec(fra.me.REG[2])(fra.me.REG[2]);
+ ATTR_range___Range____last(fra.me.REG[0]) = fra.me.REG[1];
+ /* ./../lib/standard//collection//range.nit:83 */
+ ATTR_range___Range____after(fra.me.REG[0]) = fra.me.REG[2];
+ stack_frame_head = fra.me.prev;
+ init_table[itpos1] = 1;
+ return;
+}
+val_t range___IteratorRange___item(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t REGB0;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_range;
+ fra.me.line = 91;
+ fra.me.meth = LOCATE_range___IteratorRange___item;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* ./../lib/standard//collection//range.nit:91 */
+ REGB0 = TAG_Bool(ATTR_range___IteratorRange____item(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_item", LOCATE_range, 91);
+ }
+ fra.me.REG[0] = ATTR_range___IteratorRange____item(fra.me.REG[0]);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[0];
+}
+val_t range___IteratorRange___is_ok(val_t p0){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
+ val_t REGB0;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_range;
+ fra.me.line = 93;
+ fra.me.meth = LOCATE_range___IteratorRange___is_ok;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 2;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* ./../lib/standard//collection//range.nit:93 */
+ REGB0 = TAG_Bool(ATTR_range___IteratorRange____item(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_item", LOCATE_range, 93);
+ }
+ fra.me.REG[1] = ATTR_range___IteratorRange____item(fra.me.REG[0]);
+ REGB0 = TAG_Bool(ATTR_range___IteratorRange____range(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_range", LOCATE_range, 93);
+ }
+ fra.me.REG[0] = ATTR_range___IteratorRange____range(fra.me.REG[0]);
+ fra.me.REG[0] = CALL_range___Range___after(fra.me.REG[0])(fra.me.REG[0]);
+ REGB0 = CALL_kernel___Comparable_____l(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
+ goto label1;
+ label1: while(0);
+ stack_frame_head = fra.me.prev;
+ return REGB0;
+}
+void range___IteratorRange___next(val_t p0){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
+ val_t REGB0;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_range;
+ fra.me.line = 95;
+ fra.me.meth = LOCATE_range___IteratorRange___next;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 2;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* ./../lib/standard//collection//range.nit:95 */
+ REGB0 = TAG_Bool(ATTR_range___IteratorRange____item(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_item", LOCATE_range, 95);
+ }
+ fra.me.REG[1] = ATTR_range___IteratorRange____item(fra.me.REG[0]);
+ fra.me.REG[1] = CALL_kernel___Discrete___succ(fra.me.REG[1])(fra.me.REG[1]);
+ ATTR_range___IteratorRange____item(fra.me.REG[0]) = fra.me.REG[1];
+ stack_frame_head = fra.me.prev;
return;
}
-void range___IteratorRange___init(val_t self, val_t param0, int* init_table) {
- struct trace_t trace = {NULL, "range::IteratorRange::init (bin/../lib/standard//range.nit:86,2--89:17)"};
- val_t variable0;
- val_t variable1;
- trace.prev = tracehead; tracehead = &trace;
- variable0 = param0;
- if (init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_IteratorRange].i]) return;
- ATTR_range___IteratorRange____range( self) /*IteratorRange::_range*/ = variable0 /*r*/;
- variable1 = ((range___Range___first_t)CALL( variable0 /*r*/,COLOR_abstract_collection___Collection___first))( variable0 /*r*/) /*Range::first*/;
- ATTR_range___IteratorRange____item( self) /*IteratorRange::_item*/ = variable1;
- init_table[VAL2OBJ( self)->vft[INIT_TABLE_POS_IteratorRange].i] = 1;
- tracehead = trace.prev;
+void range___IteratorRange___init(val_t p0, val_t p1, int* init_table){
+ int itpos2 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_IteratorRange].i;
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
+ val_t tmp;
+ if (init_table[itpos2]) return;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_range;
+ fra.me.line = 97;
+ fra.me.meth = LOCATE_range___IteratorRange___init;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 2;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* ./../lib/standard//collection//range.nit:99 */
+ ATTR_range___IteratorRange____range(fra.me.REG[0]) = fra.me.REG[1];
+ /* ./../lib/standard//collection//range.nit:100 */
+ fra.me.REG[1] = CALL_abstract_collection___Collection___first(fra.me.REG[1])(fra.me.REG[1]);
+ ATTR_range___IteratorRange____item(fra.me.REG[0]) = fra.me.REG[1];
+ stack_frame_head = fra.me.prev;
+ init_table[itpos2] = 1;
return;
}
nitlanguage / nit.git / blobdiff