X-Git-Url: http://nitlanguage.org diff --git a/c_src/compiling___compiling_icode._sep.c b/c_src/compiling___compiling_icode._sep.c deleted file mode 100644 index 446b182..0000000 --- a/c_src/compiling___compiling_icode._sep.c +++ /dev/null @@ -1,18058 +0,0 @@ -/* This C file is generated by NIT to compile module compiling___compiling_icode. */ -#include "compiling___compiling_icode._sep.h" -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___register[] = "compiling_icode::I2CCompilerVisitor::register"; -val_t compiling___compiling_icode___I2CCompilerVisitor___register(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[7];} fra; - val_t REGB0; - val_t REGB1; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_3; /* Once value */ - static val_t once_value_4; /* Once value */ - static val_t once_value_5; /* Once value */ - static val_t once_value_6; /* Once value */ - static val_t once_value_7; /* Once value */ - static val_t once_value_8; /* Once value */ - static val_t once_value_9; /* Once value */ - static val_t once_value_10; /* Once value */ - static val_t once_value_11; /* Once value */ - static val_t once_value_12; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 32; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___register; - fra.me.has_broke = 0; - fra.me.REG_size = 8; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[4] = NIT_NULL; - fra.me.REG[5] = NIT_NULL; - fra.me.REG[6] = NIT_NULL; - fra.me.REG[7] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:35 */ - fra.me.REG[2] = CALL_icode___icode_base___IRegister___stype(fra.me.REG[1])(fra.me.REG[1]); - REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[2], COLOR_metamodel___static_type___MMTypeNone, ID_metamodel___static_type___MMTypeNone)) /*cast MMTypeNone*/; - if (UNTAG_Bool(REGB0)) { - if (!once_value_1) { - fra.me.REG[2] = BOX_NativeString("NIT_NULL"); - REGB0 = TAG_Int(8); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0); - once_value_1 = fra.me.REG[2]; - register_static_object(&once_value_1); - } else fra.me.REG[2] = once_value_1; - fra.me.REG[2] = fra.me.REG[2]; - goto label2; - } - /* compiling/compiling_icode.nit:36 */ - REGB0 = TAG_Bool(ATTR_compiling___compiling_icode___I2CCompilerVisitor____ids(fra.me.REG[0])!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Uninitialized attribute %s", "_ids", LOCATE_compiling___compiling_icode, 36); - } - fra.me.REG[3] = ATTR_compiling___compiling_icode___I2CCompilerVisitor____ids(fra.me.REG[0]); - /* compiling/compiling_icode.nit:37 */ - REGB0 = CALL_compiling___compiling_icode___I2CCompilerVisitor___closure(fra.me.REG[0])(fra.me.REG[0]); - if (UNTAG_Bool(REGB0)) { - REGB0 = CALL_analysis___allocate_iregister_slots___IRegister___is_local(fra.me.REG[1])(fra.me.REG[1]); - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - } else { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } - if (UNTAG_Bool(REGB0)) { - REGB0 = TAG_Bool(ATTR_compiling___compiling_icode___I2CCompilerVisitor____ids2(fra.me.REG[0])!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Uninitialized attribute %s", "_ids2", LOCATE_compiling___compiling_icode, 37); - } - fra.me.REG[4] = ATTR_compiling___compiling_icode___I2CCompilerVisitor____ids2(fra.me.REG[0]); - fra.me.REG[3] = fra.me.REG[4]; - } - /* compiling/compiling_icode.nit:38 */ - REGB0 = CALL_standard___collection___abstract_collection___MapRead___has_key(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:39 */ - fra.me.REG[4] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]); - fra.me.REG[2] = fra.me.REG[4]; - goto label2; - } else { - /* compiling/compiling_icode.nit:41 */ - fra.me.REG[4] = CALL_analysis___allocate_iregister_slots___IRegister___slot_index(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:42 */ - REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } else { - /* ../lib/standard/kernel.nit:237 */ - REGB1 = TAG_Bool((fra.me.REG[4])==(NIT_NULL)); - /* compiling/compiling_icode.nit:42 */ - REGB0 = REGB1; - } - } - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:44 */ - if (!once_value_3) { - fra.me.REG[5] = BOX_NativeString("NIT_NULL"); - REGB0 = TAG_Int(8); - fra.me.REG[5] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[5])(fra.me.REG[5], REGB0); - once_value_3 = fra.me.REG[5]; - register_static_object(&once_value_3); - } else fra.me.REG[5] = once_value_3; - fra.me.REG[5] = fra.me.REG[5]; - /* compiling/compiling_icode.nit:45 */ - CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1], fra.me.REG[5]); - /* compiling/compiling_icode.nit:46 */ - fra.me.REG[2] = fra.me.REG[5]; - goto label2; - } else { - /* compiling/compiling_icode.nit:50 */ - REGB0 = CALL_analysis___allocate_iregister_slots___IRegister___in_tag_slots(fra.me.REG[1])(fra.me.REG[1]); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:51 */ - if (!once_value_4) { - fra.me.REG[5] = NEW_HashMap_standard___collection___hash_collection___HashMap___init(); - once_value_4 = fra.me.REG[5]; - register_static_object(&once_value_4); - } else fra.me.REG[5] = once_value_4; - fra.me.REG[5] = fra.me.REG[5]; - /* compiling/compiling_icode.nit:52 */ - REGB0 = CALL_standard___collection___abstract_collection___MapRead___has_key(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]); - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - REGB0 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); - if (!once_value_5) { - fra.me.REG[7] = BOX_NativeString("REGB"); - REGB0 = TAG_Int(4); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB0); - once_value_5 = fra.me.REG[7]; - register_static_object(&once_value_5); - } else fra.me.REG[7] = once_value_5; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_6) { - fra.me.REG[7] = BOX_NativeString(""); - REGB0 = TAG_Int(0); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB0); - once_value_6 = fra.me.REG[7]; - register_static_object(&once_value_6); - } else fra.me.REG[7] = once_value_6; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4], fra.me.REG[6]); - } - } else { - /* compiling/compiling_icode.nit:53 */ - REGB0 = CALL_compiling___compiling_icode___I2CCompilerVisitor___closure(fra.me.REG[0])(fra.me.REG[0]); - if (UNTAG_Bool(REGB0)) { - REGB0 = CALL_analysis___allocate_iregister_slots___IRegister___is_local(fra.me.REG[1])(fra.me.REG[1]); - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - } else { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:54 */ - if (!once_value_7) { - fra.me.REG[0] = NEW_HashMap_standard___collection___hash_collection___HashMap___init(); - once_value_7 = fra.me.REG[0]; - register_static_object(&once_value_7); - } else fra.me.REG[0] = once_value_7; - fra.me.REG[0] = fra.me.REG[0]; - fra.me.REG[5] = fra.me.REG[0]; - /* compiling/compiling_icode.nit:55 */ - REGB0 = CALL_standard___collection___abstract_collection___MapRead___has_key(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]); - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - REGB0 = TAG_Int(3); - fra.me.REG[0] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); - if (!once_value_8) { - fra.me.REG[6] = BOX_NativeString("closctx->REG["); - REGB0 = TAG_Int(13); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB0); - once_value_8 = fra.me.REG[6]; - register_static_object(&once_value_8); - } else fra.me.REG[6] = once_value_8; - fra.me.REG[6] = fra.me.REG[6]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[6]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[6]); - if (!once_value_9) { - fra.me.REG[6] = BOX_NativeString("]"); - REGB0 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB0); - once_value_9 = fra.me.REG[6]; - register_static_object(&once_value_9); - } else fra.me.REG[6] = once_value_9; - fra.me.REG[6] = fra.me.REG[6]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[6]); - fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); - CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4], fra.me.REG[0]); - } - } else { - /* compiling/compiling_icode.nit:57 */ - if (!once_value_10) { - fra.me.REG[0] = NEW_HashMap_standard___collection___hash_collection___HashMap___init(); - once_value_10 = fra.me.REG[0]; - register_static_object(&once_value_10); - } else fra.me.REG[0] = once_value_10; - fra.me.REG[0] = fra.me.REG[0]; - fra.me.REG[5] = fra.me.REG[0]; - /* compiling/compiling_icode.nit:58 */ - REGB0 = CALL_standard___collection___abstract_collection___MapRead___has_key(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]); - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - REGB0 = TAG_Int(3); - fra.me.REG[0] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); - if (!once_value_11) { - fra.me.REG[6] = BOX_NativeString("fra.me.REG["); - REGB0 = TAG_Int(11); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB0); - once_value_11 = fra.me.REG[6]; - register_static_object(&once_value_11); - } else fra.me.REG[6] = once_value_11; - fra.me.REG[6] = fra.me.REG[6]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[6]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[6]); - if (!once_value_12) { - fra.me.REG[6] = BOX_NativeString("]"); - REGB0 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB0); - once_value_12 = fra.me.REG[6]; - register_static_object(&once_value_12); - } else fra.me.REG[6] = once_value_12; - fra.me.REG[6] = fra.me.REG[6]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[6]); - fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); - CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4], fra.me.REG[0]); - } - } - } - /* compiling/compiling_icode.nit:60 */ - fra.me.REG[4] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]); - /* compiling/compiling_icode.nit:61 */ - CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1], fra.me.REG[4]); - /* compiling/compiling_icode.nit:62 */ - fra.me.REG[2] = fra.me.REG[4]; - goto label2; - } - } - label2: while(0); - stack_frame_head = fra.me.prev; - return fra.me.REG[2]; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___registers[] = "compiling_icode::I2CCompilerVisitor::registers"; -val_t compiling___compiling_icode___I2CCompilerVisitor___registers(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; - val_t REGB0; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 67; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___registers; - fra.me.has_broke = 0; - fra.me.REG_size = 3; - fra.me.nitni_local_ref_head = NULL; - 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; - /* compiling/compiling_icode.nit:70 */ - REGB0 = CALL_standard___collection___abstract_collection___Collection___length(fra.me.REG[1])(fra.me.REG[1]); - fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); - CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[1])(fra.me.REG[1], (&(fra.me)), ((fun_t)OC_compiling___compiling_icode___I2CCompilerVisitor___registers_1)); - /* compiling/compiling_icode.nit:74 */ - goto label2; - label2: while(0); - stack_frame_head = fra.me.prev; - return fra.me.REG[2]; -} - void OC_compiling___compiling_icode___I2CCompilerVisitor___registers_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){ - struct {struct stack_frame_t me;} fra; - fun_t CREG[1]; - val_t tmp; - /* compiling/compiling_icode.nit:71 */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 0; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___registers; - fra.me.has_broke = 0; - fra.me.REG_size = 1; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.closure_ctx = closctx_param; - fra.me.closure_funs = CREG; - fra.me.REG[0] = p0; - CREG[0] = clos_fun0; - /* compiling/compiling_icode.nit:72 */ - fra.me.REG[0] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(closctx->REG[0])(closctx->REG[0], fra.me.REG[0]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx->REG[2])(closctx->REG[2], fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return; - } -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___new_number[] = "compiling_icode::I2CCompilerVisitor::new_number"; -val_t compiling___compiling_icode___I2CCompilerVisitor___new_number(val_t p0){ - struct {struct stack_frame_t me;} fra; - val_t REGB0; - val_t REGB1; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 78; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___new_number; - fra.me.has_broke = 0; - fra.me.REG_size = 1; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[0] = p0; - /* compiling/compiling_icode.nit:81 */ - REGB0 = ATTR_compiling___compiling_icode___I2CCompilerVisitor____last_number(fra.me.REG[0]); - REGB1 = TAG_Int(1); - /* ../lib/standard/kernel.nit:245 */ - REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1)); - /* compiling/compiling_icode.nit:81 */ - ATTR_compiling___compiling_icode___I2CCompilerVisitor____last_number(fra.me.REG[0]) = REGB1; - /* compiling/compiling_icode.nit:82 */ - REGB1 = TAG_Bool(ATTR_compiling___compiling_icode___I2CCompilerVisitor____last_number(fra.me.REG[0])!=NIT_NULL); - if (UNTAG_Bool(REGB1)) { - } else { - nit_abort("Uninitialized attribute %s", "_last_number", LOCATE_compiling___compiling_icode, 82); - } - REGB1 = ATTR_compiling___compiling_icode___I2CCompilerVisitor____last_number(fra.me.REG[0]); - goto label1; - label1: while(0); - stack_frame_head = fra.me.prev; - return REGB1; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___lab[] = "compiling_icode::I2CCompilerVisitor::lab"; -val_t compiling___compiling_icode___I2CCompilerVisitor___lab(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[4];} fra; - val_t REGB0; - val_t tmp; - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 85; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___lab; - fra.me.has_broke = 0; - fra.me.REG_size = 5; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[4] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:88 */ - REGB0 = TAG_Bool(ATTR_compiling___compiling_icode___I2CCompilerVisitor____ids(fra.me.REG[0])!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Uninitialized attribute %s", "_ids", LOCATE_compiling___compiling_icode, 88); - } - fra.me.REG[2] = ATTR_compiling___compiling_icode___I2CCompilerVisitor____ids(fra.me.REG[0]); - REGB0 = CALL_standard___collection___abstract_collection___MapRead___has_key(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:89 */ - REGB0 = TAG_Bool(ATTR_compiling___compiling_icode___I2CCompilerVisitor____ids(fra.me.REG[0])!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Uninitialized attribute %s", "_ids", LOCATE_compiling___compiling_icode, 89); - } - fra.me.REG[2] = ATTR_compiling___compiling_icode___I2CCompilerVisitor____ids(fra.me.REG[0]); - fra.me.REG[2] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); - goto label1; - } else { - /* compiling/compiling_icode.nit:91 */ - REGB0 = TAG_Int(3); - fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); - if (!once_value_2) { - fra.me.REG[4] = BOX_NativeString("label"); - REGB0 = TAG_Int(5); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_2 = fra.me.REG[4]; - register_static_object(&once_value_2); - } else fra.me.REG[4] = once_value_2; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - REGB0 = CALL_compiling___compiling_icode___I2CCompilerVisitor___new_number(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[4] = CALL_standard___string___Object___to_s(REGB0)(REGB0); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - if (!once_value_3) { - fra.me.REG[4] = BOX_NativeString(""); - REGB0 = TAG_Int(0); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_3 = fra.me.REG[4]; - register_static_object(&once_value_3); - } else fra.me.REG[4] = once_value_3; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]); - /* compiling/compiling_icode.nit:92 */ - REGB0 = TAG_Bool(ATTR_compiling___compiling_icode___I2CCompilerVisitor____ids(fra.me.REG[0])!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Uninitialized attribute %s", "_ids", LOCATE_compiling___compiling_icode, 92); - } - fra.me.REG[0] = ATTR_compiling___compiling_icode___I2CCompilerVisitor____ids(fra.me.REG[0]); - CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:93 */ - fra.me.REG[2] = fra.me.REG[3]; - goto label1; - } - label1: while(0); - stack_frame_head = fra.me.prev; - return fra.me.REG[2]; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___closures[] = "compiling_icode::I2CCompilerVisitor::closures"; -val_t compiling___compiling_icode___I2CCompilerVisitor___closures(val_t p0){ - struct {struct stack_frame_t me;} fra; - val_t REGB0; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 97; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___closures; - fra.me.has_broke = 0; - fra.me.REG_size = 1; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[0] = p0; - /* compiling/compiling_icode.nit:97 */ - REGB0 = TAG_Bool(ATTR_compiling___compiling_icode___I2CCompilerVisitor____closures(fra.me.REG[0])!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Uninitialized attribute %s", "_closures", LOCATE_compiling___compiling_icode, 97); - } - fra.me.REG[0] = ATTR_compiling___compiling_icode___I2CCompilerVisitor____closures(fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return fra.me.REG[0]; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___clostypes[] = "compiling_icode::I2CCompilerVisitor::clostypes"; -val_t compiling___compiling_icode___I2CCompilerVisitor___clostypes(val_t p0){ - struct {struct stack_frame_t me;} fra; - val_t REGB0; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 100; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___clostypes; - fra.me.has_broke = 0; - fra.me.REG_size = 1; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[0] = p0; - /* compiling/compiling_icode.nit:100 */ - REGB0 = TAG_Bool(ATTR_compiling___compiling_icode___I2CCompilerVisitor____clostypes(fra.me.REG[0])!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Uninitialized attribute %s", "_clostypes", LOCATE_compiling___compiling_icode, 100); - } - fra.me.REG[0] = ATTR_compiling___compiling_icode___I2CCompilerVisitor____clostypes(fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return fra.me.REG[0]; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___local_labels[] = "compiling_icode::I2CCompilerVisitor::local_labels"; -val_t compiling___compiling_icode___I2CCompilerVisitor___local_labels(val_t p0){ - struct {struct stack_frame_t me;} fra; - val_t REGB0; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 103; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___local_labels; - fra.me.has_broke = 0; - fra.me.REG_size = 1; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[0] = p0; - /* compiling/compiling_icode.nit:103 */ - REGB0 = TAG_Bool(ATTR_compiling___compiling_icode___I2CCompilerVisitor____local_labels(fra.me.REG[0])!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Uninitialized attribute %s", "_local_labels", LOCATE_compiling___compiling_icode, 103); - } - fra.me.REG[0] = ATTR_compiling___compiling_icode___I2CCompilerVisitor____local_labels(fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return fra.me.REG[0]; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___local_labels__eq[] = "compiling_icode::I2CCompilerVisitor::local_labels="; -void compiling___compiling_icode___I2CCompilerVisitor___local_labels__eq(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[1];} fra; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 103; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___local_labels__eq; - fra.me.has_broke = 0; - fra.me.REG_size = 2; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:103 */ - ATTR_compiling___compiling_icode___I2CCompilerVisitor____local_labels(fra.me.REG[0]) = fra.me.REG[1]; - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___escaped_labels[] = "compiling_icode::I2CCompilerVisitor::escaped_labels"; -val_t compiling___compiling_icode___I2CCompilerVisitor___escaped_labels(val_t p0){ - struct {struct stack_frame_t me;} fra; - val_t REGB0; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 106; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___escaped_labels; - fra.me.has_broke = 0; - fra.me.REG_size = 1; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[0] = p0; - /* compiling/compiling_icode.nit:106 */ - REGB0 = TAG_Bool(ATTR_compiling___compiling_icode___I2CCompilerVisitor____escaped_labels(fra.me.REG[0])!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Uninitialized attribute %s", "_escaped_labels", LOCATE_compiling___compiling_icode, 106); - } - fra.me.REG[0] = ATTR_compiling___compiling_icode___I2CCompilerVisitor____escaped_labels(fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return fra.me.REG[0]; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___escaped_labels__eq[] = "compiling_icode::I2CCompilerVisitor::escaped_labels="; -void compiling___compiling_icode___I2CCompilerVisitor___escaped_labels__eq(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[1];} fra; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 106; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___escaped_labels__eq; - fra.me.has_broke = 0; - fra.me.REG_size = 2; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:106 */ - ATTR_compiling___compiling_icode___I2CCompilerVisitor____escaped_labels(fra.me.REG[0]) = fra.me.REG[1]; - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___register_escape_label[] = "compiling_icode::I2CCompilerVisitor::register_escape_label"; -val_t compiling___compiling_icode___I2CCompilerVisitor___register_escape_label(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 REGB2; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 110; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___register_escape_label; - fra.me.has_broke = 0; - fra.me.REG_size = 3; - fra.me.nitni_local_ref_head = NULL; - 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; - /* compiling/compiling_icode.nit:113 */ - REGB0 = TAG_Bool(ATTR_compiling___compiling_icode___I2CCompilerVisitor____escaped_labels(fra.me.REG[0])!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Uninitialized attribute %s", "_escaped_labels", LOCATE_compiling___compiling_icode, 113); - } - fra.me.REG[2] = ATTR_compiling___compiling_icode___I2CCompilerVisitor____escaped_labels(fra.me.REG[0]); - REGB0 = CALL_standard___collection___abstract_collection___MapRead___has_key(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:114 */ - REGB0 = TAG_Bool(ATTR_compiling___compiling_icode___I2CCompilerVisitor____escaped_labels(fra.me.REG[0])!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Uninitialized attribute %s", "_escaped_labels", LOCATE_compiling___compiling_icode, 114); - } - fra.me.REG[2] = ATTR_compiling___compiling_icode___I2CCompilerVisitor____escaped_labels(fra.me.REG[0]); - fra.me.REG[2] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); - REGB0 = fra.me.REG[2]; - goto label1; - } else { - /* compiling/compiling_icode.nit:116 */ - REGB1 = TAG_Bool(ATTR_compiling___compiling_icode___I2CCompilerVisitor____escaped_labels(fra.me.REG[0])!=NIT_NULL); - if (UNTAG_Bool(REGB1)) { - } else { - nit_abort("Uninitialized attribute %s", "_escaped_labels", LOCATE_compiling___compiling_icode, 116); - } - fra.me.REG[2] = ATTR_compiling___compiling_icode___I2CCompilerVisitor____escaped_labels(fra.me.REG[0]); - REGB1 = CALL_standard___collection___abstract_collection___MapRead___length(fra.me.REG[2])(fra.me.REG[2]); - REGB2 = TAG_Int(1); - /* ../lib/standard/kernel.nit:245 */ - REGB2 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB2)); - /* compiling/compiling_icode.nit:117 */ - REGB1 = TAG_Bool(ATTR_compiling___compiling_icode___I2CCompilerVisitor____escaped_labels(fra.me.REG[0])!=NIT_NULL); - if (UNTAG_Bool(REGB1)) { - } else { - nit_abort("Uninitialized attribute %s", "_escaped_labels", LOCATE_compiling___compiling_icode, 117); - } - fra.me.REG[0] = ATTR_compiling___compiling_icode___I2CCompilerVisitor____escaped_labels(fra.me.REG[0]); - CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], REGB2); - /* compiling/compiling_icode.nit:118 */ - REGB0 = REGB2; - goto label1; - } - label1: while(0); - stack_frame_head = fra.me.prev; - return REGB0; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___add_label[] = "compiling_icode::I2CCompilerVisitor::add_label"; -void compiling___compiling_icode___I2CCompilerVisitor___add_label(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; - val_t REGB0; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 122; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___add_label; - fra.me.has_broke = 0; - fra.me.REG_size = 4; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:125 */ - REGB0 = TAG_Bool(ATTR_compiling___compiling_icode___I2CCompilerVisitor____ids(fra.me.REG[0])!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Uninitialized attribute %s", "_ids", LOCATE_compiling___compiling_icode, 125); - } - fra.me.REG[2] = ATTR_compiling___compiling_icode___I2CCompilerVisitor____ids(fra.me.REG[0]); - REGB0 = CALL_standard___collection___abstract_collection___MapRead___has_key(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:126 */ - REGB0 = TAG_Int(3); - fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); - if (!once_value_1) { - fra.me.REG[3] = BOX_NativeString(""); - REGB0 = TAG_Int(0); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_1 = fra.me.REG[3]; - register_static_object(&once_value_1); - } else fra.me.REG[3] = once_value_1; - fra.me.REG[3] = fra.me.REG[3]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - REGB0 = TAG_Bool(ATTR_compiling___compiling_icode___I2CCompilerVisitor____ids(fra.me.REG[0])!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Uninitialized attribute %s", "_ids", LOCATE_compiling___compiling_icode, 126); - } - fra.me.REG[3] = ATTR_compiling___compiling_icode___I2CCompilerVisitor____ids(fra.me.REG[0]); - fra.me.REG[1] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); - if (!once_value_2) { - fra.me.REG[1] = BOX_NativeString(": while(0);"); - REGB0 = TAG_Int(11); - fra.me.REG[1] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[1])(fra.me.REG[1], REGB0); - once_value_2 = fra.me.REG[1]; - register_static_object(&once_value_2); - } else fra.me.REG[1] = once_value_2; - fra.me.REG[1] = fra.me.REG[1]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); - fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]); - } - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___add_goto[] = "compiling_icode::I2CCompilerVisitor::add_goto"; -void compiling___compiling_icode___I2CCompilerVisitor___add_goto(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[4];} fra; - val_t REGB0; - val_t REGB1; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - static val_t once_value_4; /* Once value */ - static val_t once_value_5; /* Once value */ - static val_t once_value_6; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 130; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___add_goto; - fra.me.has_broke = 0; - fra.me.REG_size = 5; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[4] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:130 */ - fra.me.REG[2] = fra.me.REG[0]; - /* compiling/compiling_icode.nit:133 */ - fra.me.REG[3] = CALL_compiling___compiling_icode___I2CCompilerVisitor___local_labels(fra.me.REG[2])(fra.me.REG[2]); - REGB0 = CALL_standard___collection___abstract_collection___Collection___has(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:134 */ - REGB0 = TAG_Int(3); - fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); - if (!once_value_1) { - fra.me.REG[4] = BOX_NativeString("goto "); - REGB0 = TAG_Int(5); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_1 = fra.me.REG[4]; - register_static_object(&once_value_1); - } else fra.me.REG[4] = once_value_1; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - fra.me.REG[4] = CALL_compiling___compiling_icode___I2CCompilerVisitor___lab(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - if (!once_value_2) { - fra.me.REG[4] = BOX_NativeString(";"); - REGB0 = TAG_Int(1); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_2 = fra.me.REG[4]; - register_static_object(&once_value_2); - } else fra.me.REG[4] = once_value_2; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - } else { - /* compiling/compiling_icode.nit:136 */ - REGB0 = CALL_compiling___compiling_icode___I2CCompilerVisitor___closure(fra.me.REG[2])(fra.me.REG[2]); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Assert failed", NULL, LOCATE_compiling___compiling_icode, 136); - } - /* compiling/compiling_icode.nit:137 */ - REGB0 = CALL_compiling___compiling_icode___I2CCompilerVisitor___register_escape_label(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); - /* compiling/compiling_icode.nit:138 */ - REGB1 = TAG_Int(3); - fra.me.REG[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_3) { - fra.me.REG[3] = BOX_NativeString("closctx->has_broke = "); - REGB1 = TAG_Int(21); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB1); - once_value_3 = fra.me.REG[3]; - register_static_object(&once_value_3); - } else fra.me.REG[3] = once_value_3; - fra.me.REG[3] = fra.me.REG[3]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - fra.me.REG[3] = CALL_standard___string___Object___to_s(REGB0)(REGB0); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - if (!once_value_4) { - fra.me.REG[3] = BOX_NativeString(";"); - REGB0 = TAG_Int(1); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_4 = fra.me.REG[3]; - register_static_object(&once_value_4); - } else fra.me.REG[3] = once_value_4; - fra.me.REG[3] = fra.me.REG[3]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - fra.me.REG[1] = CALL_standard___string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); - /* compiling/compiling_icode.nit:139 */ - REGB0 = TAG_Int(3); - fra.me.REG[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); - if (!once_value_5) { - fra.me.REG[3] = BOX_NativeString("goto "); - REGB0 = TAG_Int(5); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_5 = fra.me.REG[3]; - register_static_object(&once_value_5); - } else fra.me.REG[3] = once_value_5; - fra.me.REG[3] = fra.me.REG[3]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - fra.me.REG[3] = CALL_compiling___compiling_icode___I2CCompilerVisitor___return_label(fra.me.REG[2])(fra.me.REG[2]); - REGB0 = TAG_Bool(fra.me.REG[3]!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_compiling___compiling_icode, 139); - } - fra.me.REG[3] = CALL_compiling___compiling_icode___I2CCompilerVisitor___lab(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - if (!once_value_6) { - fra.me.REG[3] = BOX_NativeString(";"); - REGB0 = TAG_Int(1); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_6 = fra.me.REG[3]; - register_static_object(&once_value_6); - } else fra.me.REG[3] = once_value_6; - fra.me.REG[3] = fra.me.REG[3]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - fra.me.REG[1] = CALL_standard___string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); - } - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___marks_to_seq[] = "compiling_icode::I2CCompilerVisitor::marks_to_seq"; -val_t compiling___compiling_icode___I2CCompilerVisitor___marks_to_seq(val_t p0){ - struct {struct stack_frame_t me;} fra; - val_t REGB0; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 143; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___marks_to_seq; - fra.me.has_broke = 0; - fra.me.REG_size = 1; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[0] = p0; - /* compiling/compiling_icode.nit:143 */ - REGB0 = TAG_Bool(ATTR_compiling___compiling_icode___I2CCompilerVisitor____marks_to_seq(fra.me.REG[0])!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Uninitialized attribute %s", "_marks_to_seq", LOCATE_compiling___compiling_icode, 143); - } - fra.me.REG[0] = ATTR_compiling___compiling_icode___I2CCompilerVisitor____marks_to_seq(fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return fra.me.REG[0]; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___closure[] = "compiling_icode::I2CCompilerVisitor::closure"; -val_t compiling___compiling_icode___I2CCompilerVisitor___closure(val_t p0){ - struct {struct stack_frame_t me;} fra; - val_t REGB0; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 146; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___closure; - fra.me.has_broke = 0; - fra.me.REG_size = 1; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[0] = p0; - /* compiling/compiling_icode.nit:146 */ - REGB0 = TAG_Bool(ATTR_compiling___compiling_icode___I2CCompilerVisitor____closure(fra.me.REG[0])!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Uninitialized attribute %s", "_closure", LOCATE_compiling___compiling_icode, 146); - } - REGB0 = ATTR_compiling___compiling_icode___I2CCompilerVisitor____closure(fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return REGB0; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___closure__eq[] = "compiling_icode::I2CCompilerVisitor::closure="; -void compiling___compiling_icode___I2CCompilerVisitor___closure__eq(val_t p0, val_t p1){ - struct {struct stack_frame_t me;} fra; - val_t REGB0; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 146; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___closure__eq; - fra.me.has_broke = 0; - fra.me.REG_size = 1; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[0] = p0; - REGB0 = p1; - /* compiling/compiling_icode.nit:146 */ - ATTR_compiling___compiling_icode___I2CCompilerVisitor____closure(fra.me.REG[0]) = REGB0; - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___visitor[] = "compiling_icode::I2CCompilerVisitor::visitor"; -val_t compiling___compiling_icode___I2CCompilerVisitor___visitor(val_t p0){ - struct {struct stack_frame_t me;} fra; - val_t REGB0; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 149; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___visitor; - fra.me.has_broke = 0; - fra.me.REG_size = 1; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[0] = p0; - /* compiling/compiling_icode.nit:149 */ - REGB0 = TAG_Bool(ATTR_compiling___compiling_icode___I2CCompilerVisitor____visitor(fra.me.REG[0])!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Uninitialized attribute %s", "_visitor", LOCATE_compiling___compiling_icode, 149); - } - fra.me.REG[0] = ATTR_compiling___compiling_icode___I2CCompilerVisitor____visitor(fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return fra.me.REG[0]; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___iroutine[] = "compiling_icode::I2CCompilerVisitor::iroutine"; -val_t compiling___compiling_icode___I2CCompilerVisitor___iroutine(val_t p0){ - struct {struct stack_frame_t me;} fra; - val_t REGB0; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 152; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___iroutine; - fra.me.has_broke = 0; - fra.me.REG_size = 1; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[0] = p0; - /* compiling/compiling_icode.nit:152 */ - REGB0 = TAG_Bool(ATTR_compiling___compiling_icode___I2CCompilerVisitor____iroutine(fra.me.REG[0])!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Uninitialized attribute %s", "_iroutine", LOCATE_compiling___compiling_icode, 152); - } - fra.me.REG[0] = ATTR_compiling___compiling_icode___I2CCompilerVisitor____iroutine(fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return fra.me.REG[0]; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___return_label[] = "compiling_icode::I2CCompilerVisitor::return_label"; -val_t compiling___compiling_icode___I2CCompilerVisitor___return_label(val_t p0){ - struct {struct stack_frame_t me;} fra; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 155; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___return_label; - fra.me.has_broke = 0; - fra.me.REG_size = 1; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[0] = p0; - /* compiling/compiling_icode.nit:155 */ - fra.me.REG[0] = ATTR_compiling___compiling_icode___I2CCompilerVisitor____return_label(fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return fra.me.REG[0]; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___return_label__eq[] = "compiling_icode::I2CCompilerVisitor::return_label="; -void compiling___compiling_icode___I2CCompilerVisitor___return_label__eq(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[1];} fra; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 155; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___return_label__eq; - fra.me.has_broke = 0; - fra.me.REG_size = 2; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:155 */ - ATTR_compiling___compiling_icode___I2CCompilerVisitor____return_label(fra.me.REG[0]) = fra.me.REG[1]; - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___add_decl[] = "compiling_icode::I2CCompilerVisitor::add_decl"; -void compiling___compiling_icode___I2CCompilerVisitor___add_decl(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[1];} fra; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 158; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___add_decl; - fra.me.has_broke = 0; - fra.me.REG_size = 2; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:160 */ - fra.me.REG[0] = CALL_compiling___compiling_icode___I2CCompilerVisitor___visitor(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_base___CompilerVisitor___add_decl(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___new_instr[] = "compiling_icode::I2CCompilerVisitor::new_instr"; -val_t compiling___compiling_icode___I2CCompilerVisitor___new_instr(val_t p0){ - struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; - val_t REGB0; - val_t REGB1; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 163; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___new_instr; - fra.me.has_broke = 0; - fra.me.REG_size = 4; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[0] = p0; - /* compiling/compiling_icode.nit:167 */ - fra.me.REG[1] = CALL_compiling___compiling_icode___I2CCompilerVisitor___visitor(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[1] = CALL_compiling___compiling_base___CompilerVisitor___writer(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:168 */ - fra.me.REG[2] = ATTR_compiling___compiling_icode___I2CCompilerVisitor____next_location(fra.me.REG[0]); - /* compiling/compiling_icode.nit:169 */ - REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } else { - REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL); - REGB0 = REGB1; - } - } - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:170 */ - fra.me.REG[3] = CALL_compiling___compiling_icode___I2CCompilerVisitor___visitor(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_base___CompilerVisitor___add_indent(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]); - /* compiling/compiling_icode.nit:171 */ - if (!once_value_1) { - fra.me.REG[3] = BOX_NativeString("/* "); - REGB0 = TAG_Int(3); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_1 = fra.me.REG[3]; - register_static_object(&once_value_1); - } else fra.me.REG[3] = once_value_1; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:172 */ - REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 172); - } - fra.me.REG[3] = CALL_location___Location___file(fra.me.REG[2])(fra.me.REG[2]); - REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 172); - } - fra.me.REG[3] = CALL_location___SourceFile___filename(fra.me.REG[3])(fra.me.REG[3]); - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:173 */ - if (!once_value_2) { - fra.me.REG[3] = BOX_NativeString(":"); - REGB0 = TAG_Int(1); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_2 = fra.me.REG[3]; - register_static_object(&once_value_2); - } else fra.me.REG[3] = once_value_2; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:174 */ - REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 174); - } - REGB0 = CALL_location___Location___line_start(fra.me.REG[2])(fra.me.REG[2]); - fra.me.REG[2] = CALL_standard___string___Object___to_s(REGB0)(REGB0); - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:175 */ - if (!once_value_3) { - fra.me.REG[2] = BOX_NativeString(" */\n"); - REGB0 = TAG_Int(4); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0); - once_value_3 = fra.me.REG[2]; - register_static_object(&once_value_3); - } else fra.me.REG[2] = once_value_3; - fra.me.REG[2] = fra.me.REG[2]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:176 */ - ATTR_compiling___compiling_icode___I2CCompilerVisitor____next_location(fra.me.REG[0]) = NIT_NULL; - } - /* compiling/compiling_icode.nit:178 */ - fra.me.REG[0] = CALL_compiling___compiling_icode___I2CCompilerVisitor___visitor(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_base___CompilerVisitor___add_indent(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - /* compiling/compiling_icode.nit:179 */ - goto label4; - label4: while(0); - stack_frame_head = fra.me.prev; - return fra.me.REG[1]; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___add_instr[] = "compiling_icode::I2CCompilerVisitor::add_instr"; -void compiling___compiling_icode___I2CCompilerVisitor___add_instr(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[1];} fra; - val_t REGB0; - val_t tmp; - static val_t once_value_1; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 182; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___add_instr; - fra.me.has_broke = 0; - fra.me.REG_size = 2; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:184 */ - fra.me.REG[0] = CALL_compiling___compiling_icode___I2CCompilerVisitor___new_instr(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[1] = CALL_compiling_writer___Writer___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - if (!once_value_1) { - fra.me.REG[0] = BOX_NativeString("\n"); - REGB0 = TAG_Int(1); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_1 = fra.me.REG[0]; - register_static_object(&once_value_1); - } else fra.me.REG[0] = once_value_1; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___indent[] = "compiling_icode::I2CCompilerVisitor::indent"; -void compiling___compiling_icode___I2CCompilerVisitor___indent(val_t p0){ - struct {struct stack_frame_t me;} fra; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 187; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___indent; - fra.me.has_broke = 0; - fra.me.REG_size = 1; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[0] = p0; - /* compiling/compiling_icode.nit:189 */ - fra.me.REG[0] = CALL_compiling___compiling_icode___I2CCompilerVisitor___visitor(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_base___CompilerVisitor___indent(fra.me.REG[0])(fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___unindent[] = "compiling_icode::I2CCompilerVisitor::unindent"; -void compiling___compiling_icode___I2CCompilerVisitor___unindent(val_t p0){ - struct {struct stack_frame_t me;} fra; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 192; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___unindent; - fra.me.has_broke = 0; - fra.me.REG_size = 1; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[0] = p0; - /* compiling/compiling_icode.nit:194 */ - fra.me.REG[0] = CALL_compiling___compiling_icode___I2CCompilerVisitor___visitor(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_base___CompilerVisitor___unindent(fra.me.REG[0])(fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___add_assignment[] = "compiling_icode::I2CCompilerVisitor::add_assignment"; -void compiling___compiling_icode___I2CCompilerVisitor___add_assignment(val_t p0, val_t p1, val_t p2){ - struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 197; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___add_assignment; - fra.me.has_broke = 0; - fra.me.REG_size = 3; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - fra.me.REG[2] = p2; - /* compiling/compiling_icode.nit:199 */ - fra.me.REG[0] = CALL_compiling___compiling_icode___I2CCompilerVisitor___visitor(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_base___CompilerVisitor___add_assignment(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2]); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___add_location[] = "compiling_icode::I2CCompilerVisitor::add_location"; -void compiling___compiling_icode___I2CCompilerVisitor___add_location(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[4];} fra; - val_t REGB0; - val_t REGB1; - val_t REGB2; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 205; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___add_location; - fra.me.has_broke = 0; - fra.me.REG_size = 5; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[4] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:209 */ - fra.me.REG[2] = ATTR_compiling___compiling_icode___I2CCompilerVisitor____last_location(fra.me.REG[0]); - /* compiling/compiling_icode.nit:210 */ - REGB0 = TAG_Bool(IS_EQUAL_NN(fra.me.REG[2],fra.me.REG[1])); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } else { - REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); - REGB0 = REGB1; - } - } - if (UNTAG_Bool(REGB0)) { - REGB0 = TAG_Bool(1); - } else { - REGB1 = TAG_Bool(fra.me.REG[1]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = TAG_Bool(fra.me.REG[1]==NIT_NULL); - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(0); - REGB1 = REGB2; - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], NIT_NULL); - REGB1 = REGB2; - } - } - REGB0 = REGB1; - } - if (UNTAG_Bool(REGB0)) { - goto label1; - } - /* compiling/compiling_icode.nit:211 */ - ATTR_compiling___compiling_icode___I2CCompilerVisitor____last_location(fra.me.REG[0]) = fra.me.REG[1]; - /* compiling/compiling_icode.nit:212 */ - REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } else { - REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL); - REGB0 = REGB1; - } - } - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 212); - } - fra.me.REG[3] = CALL_location___Location___file(fra.me.REG[2])(fra.me.REG[2]); - REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 212); - } - fra.me.REG[4] = CALL_location___Location___file(fra.me.REG[1])(fra.me.REG[1]); - REGB0 = TAG_Bool(IS_EQUAL_NN(fra.me.REG[3],fra.me.REG[4])); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } else { - REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - REGB0 = REGB1; - } - } - } else { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } - if (UNTAG_Bool(REGB0)) { - REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 212); - } - REGB0 = CALL_location___Location___line_start(fra.me.REG[2])(fra.me.REG[2]); - REGB1 = TAG_Bool(fra.me.REG[1]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 212); - } - REGB1 = CALL_location___Location___line_start(fra.me.REG[1])(fra.me.REG[1]); - REGB2 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB1)); - if (UNTAG_Bool(REGB2)) { - } else { - /* ../lib/standard/kernel.nit:237 */ - REGB1 = TAG_Bool((REGB0)==(REGB1)); - /* compiling/compiling_icode.nit:212 */ - REGB2 = REGB1; - } - } else { - REGB1 = TAG_Bool(0); - REGB2 = REGB1; - } - if (UNTAG_Bool(REGB2)) { - /* compiling/compiling_icode.nit:213 */ - goto label1; - } else { - /* compiling/compiling_icode.nit:215 */ - ATTR_compiling___compiling_icode___I2CCompilerVisitor____next_location(fra.me.REG[0]) = fra.me.REG[1]; - } - label1: while(0); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___basecname[] = "compiling_icode::I2CCompilerVisitor::basecname"; -val_t compiling___compiling_icode___I2CCompilerVisitor___basecname(val_t p0){ - struct {struct stack_frame_t me;} fra; - val_t REGB0; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 219; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___basecname; - fra.me.has_broke = 0; - fra.me.REG_size = 1; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[0] = p0; - /* compiling/compiling_icode.nit:219 */ - REGB0 = TAG_Bool(ATTR_compiling___compiling_icode___I2CCompilerVisitor____basecname(fra.me.REG[0])!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Uninitialized attribute %s", "_basecname", LOCATE_compiling___compiling_icode, 219); - } - fra.me.REG[0] = ATTR_compiling___compiling_icode___I2CCompilerVisitor____basecname(fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return fra.me.REG[0]; -} -static const char LOCATE_compiling___compiling_icode___I2CCompilerVisitor___init[] = "compiling_icode::I2CCompilerVisitor::init"; -void compiling___compiling_icode___I2CCompilerVisitor___init(val_t p0, val_t p1, val_t p2, val_t p3, int* init_table){ - int itpos0 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_compiling___compiling_icode___I2CCompilerVisitor].i; - struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; - val_t tmp; - if (init_table[itpos0]) return; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 222; - fra.me.meth = LOCATE_compiling___compiling_icode___I2CCompilerVisitor___init; - fra.me.has_broke = 0; - fra.me.REG_size = 4; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - fra.me.REG[2] = p2; - fra.me.REG[3] = p3; - /* compiling/compiling_icode.nit:224 */ - ATTR_compiling___compiling_icode___I2CCompilerVisitor____visitor(fra.me.REG[0]) = fra.me.REG[1]; - /* compiling/compiling_icode.nit:225 */ - ATTR_compiling___compiling_icode___I2CCompilerVisitor____iroutine(fra.me.REG[0]) = fra.me.REG[2]; - /* compiling/compiling_icode.nit:226 */ - ATTR_compiling___compiling_icode___I2CCompilerVisitor____basecname(fra.me.REG[0]) = fra.me.REG[3]; - stack_frame_head = fra.me.prev; - init_table[itpos0] = 1; - return; -} -static const char LOCATE_compiling___compiling_icode___IRoutine___compile_signature_to_c[] = "compiling_icode::IRoutine::compile_signature_to_c"; -val_t compiling___compiling_icode___IRoutine___compile_signature_to_c(val_t p0, val_t p1, val_t p2, val_t p3, val_t p4, val_t p5){ - struct {struct stack_frame_t me; val_t MORE_REG[11];} fra; - val_t REGB0; - val_t REGB1; - val_t REGB2; - val_t REGB3; - val_t REGB4; - val_t REGB5; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - static val_t once_value_4; /* Once value */ - static val_t once_value_6; /* Once value */ - static val_t once_value_7; /* Once value */ - static val_t once_value_8; /* Once value */ - static val_t once_value_9; /* Once value */ - static val_t once_value_10; /* Once value */ - static val_t once_value_11; /* Once value */ - static val_t once_value_13; /* Once value */ - static val_t once_value_14; /* Once value */ - static val_t once_value_15; /* Once value */ - static val_t once_value_16; /* Once value */ - static val_t once_value_17; /* Once value */ - static val_t once_value_18; /* Once value */ - static val_t once_value_19; /* Once value */ - static val_t once_value_20; /* Once value */ - static val_t once_value_21; /* Once value */ - static val_t once_value_22; /* Once value */ - static val_t once_value_23; /* Once value */ - static val_t once_value_25; /* Once value */ - static val_t once_value_26; /* Once value */ - static val_t once_value_27; /* Once value */ - static val_t once_value_28; /* Once value */ - static val_t once_value_29; /* Once value */ - static val_t once_value_30; /* Once value */ - static val_t once_value_31; /* Once value */ - static val_t once_value_32; /* Once value */ - static val_t once_value_33; /* Once value */ - static val_t once_value_34; /* Once value */ - static val_t once_value_35; /* Once value */ - static val_t once_value_36; /* Once value */ - static val_t once_value_37; /* Once value */ - static val_t once_value_38; /* Once value */ - static val_t once_value_39; /* Once value */ - static val_t once_value_40; /* Once value */ - static val_t once_value_41; /* Once value */ - static val_t once_value_42; /* Once value */ - static val_t once_value_43; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 231; - fra.me.meth = LOCATE_compiling___compiling_icode___IRoutine___compile_signature_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 12; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[4] = NIT_NULL; - fra.me.REG[5] = NIT_NULL; - fra.me.REG[6] = NIT_NULL; - fra.me.REG[7] = NIT_NULL; - fra.me.REG[8] = NIT_NULL; - fra.me.REG[9] = NIT_NULL; - fra.me.REG[10] = NIT_NULL; - fra.me.REG[11] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - fra.me.REG[2] = p2; - fra.me.REG[3] = p3; - fra.me.REG[4] = p4; - fra.me.REG[5] = p5; - /* compiling/compiling_icode.nit:237 */ - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___init(); - /* compiling/compiling_icode.nit:238 */ - fra.me.REG[7] = NEW_Array_standard___collection___array___Array___init(); - /* compiling/compiling_icode.nit:239 */ - REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } else { - REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], NIT_NULL); - REGB0 = REGB1; - } - } - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[4]); - } - /* compiling/compiling_icode.nit:240 */ - REGB0 = TAG_Int(0); - fra.me.REG[4] = CALL_icode___icode_base___IRoutine___params(fra.me.REG[0])(fra.me.REG[0]); - REGB1 = CALL_standard___collection___abstract_collection___Collection___length(fra.me.REG[4])(fra.me.REG[4]); - /* ../lib/standard/kernel.nit:404 */ - while(1) { - REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/; - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB0)UNTAG_Int(REGB2)); - /* compiling/compiling_icode.nit:289 */ - if (UNTAG_Bool(REGB2)) { - /* compiling/compiling_icode.nit:290 */ - REGB2 = TAG_Int(3); - fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB2); - if (!once_value_1) { - fra.me.REG[4] = BOX_NativeString("struct {struct stack_frame_t me; val_t MORE_REG["); - REGB2 = TAG_Int(48); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB2); - once_value_1 = fra.me.REG[4]; - register_static_object(&once_value_1); - } else fra.me.REG[4] = once_value_1; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - REGB2 = CALL_analysis___allocate_iregister_slots___IRoutine___std_slots_nb(fra.me.REG[0])(fra.me.REG[0]); - REGB1 = TAG_Int(1); - /* ../lib/standard/kernel.nit:247 */ - REGB1 = TAG_Int(UNTAG_Int(REGB2)-UNTAG_Int(REGB1)); - /* compiling/compiling_icode.nit:290 */ - fra.me.REG[4] = CALL_standard___string___Object___to_s(REGB1)(REGB1); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - if (!once_value_2) { - fra.me.REG[4] = BOX_NativeString("];} fra;"); - REGB1 = TAG_Int(8); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1); - once_value_2 = fra.me.REG[4]; - register_static_object(&once_value_2); - } else fra.me.REG[4] = once_value_2; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_decl(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - } else { - /* compiling/compiling_icode.nit:292 */ - if (!once_value_3) { - fra.me.REG[3] = BOX_NativeString("struct {struct stack_frame_t me;} fra;"); - REGB1 = TAG_Int(38); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB1); - once_value_3 = fra.me.REG[3]; - register_static_object(&once_value_3); - } else fra.me.REG[3] = once_value_3; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_decl(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - } - /* compiling/compiling_icode.nit:294 */ - if (!once_value_4) { - fra.me.REG[3] = BOX_NativeString("fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;"); - REGB1 = TAG_Int(59); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB1); - once_value_4 = fra.me.REG[3]; - register_static_object(&once_value_4); - } else fra.me.REG[3] = once_value_4; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:295 */ - REGB1 = TAG_Int(3); - fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_5) { - fra.me.REG[4] = BOX_NativeString("fra.me.file = LOCATE_"); - REGB1 = TAG_Int(21); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1); - once_value_5 = fra.me.REG[4]; - register_static_object(&once_value_5); - } else fra.me.REG[4] = once_value_5; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - fra.me.REG[4] = CALL_compiling___compiling_icode___I2CCompilerVisitor___visitor(fra.me.REG[1])(fra.me.REG[1]); - fra.me.REG[4] = CALL_compiling___compiling_base___CompilerVisitor___mmmodule(fra.me.REG[4])(fra.me.REG[4]); - fra.me.REG[4] = CALL_compiling___compiling_base___MMModule___cname(fra.me.REG[4])(fra.me.REG[4]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - if (!once_value_6) { - fra.me.REG[4] = BOX_NativeString(";"); - REGB1 = TAG_Int(1); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1); - once_value_6 = fra.me.REG[4]; - register_static_object(&once_value_6); - } else fra.me.REG[4] = once_value_6; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:296 */ - REGB1 = TAG_Int(3); - fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_7) { - fra.me.REG[4] = BOX_NativeString("fra.me.line = "); - REGB1 = TAG_Int(14); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1); - once_value_7 = fra.me.REG[4]; - register_static_object(&once_value_7); - } else fra.me.REG[4] = once_value_7; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - fra.me.REG[4] = CALL_standard___string___Object___to_s(REGB0)(REGB0); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - if (!once_value_8) { - fra.me.REG[4] = BOX_NativeString(";"); - REGB0 = TAG_Int(1); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_8 = fra.me.REG[4]; - register_static_object(&once_value_8); - } else fra.me.REG[4] = once_value_8; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:297 */ - REGB0 = TAG_Int(3); - fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); - if (!once_value_9) { - fra.me.REG[4] = BOX_NativeString("fra.me.meth = LOCATE_"); - REGB0 = TAG_Int(21); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_9 = fra.me.REG[4]; - register_static_object(&once_value_9); - } else fra.me.REG[4] = once_value_9; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - fra.me.REG[4] = CALL_compiling___compiling_icode___I2CCompilerVisitor___basecname(fra.me.REG[1])(fra.me.REG[1]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - if (!once_value_10) { - fra.me.REG[4] = BOX_NativeString(";"); - REGB0 = TAG_Int(1); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_10 = fra.me.REG[4]; - register_static_object(&once_value_10); - } else fra.me.REG[4] = once_value_10; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:298 */ - if (!once_value_11) { - fra.me.REG[3] = BOX_NativeString("fra.me.has_broke = 0;"); - REGB0 = TAG_Int(21); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_11 = fra.me.REG[3]; - register_static_object(&once_value_11); - } else fra.me.REG[3] = once_value_11; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:299 */ - REGB0 = TAG_Int(3); - fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); - if (!once_value_12) { - fra.me.REG[4] = BOX_NativeString("fra.me.REG_size = "); - REGB0 = TAG_Int(18); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_12 = fra.me.REG[4]; - register_static_object(&once_value_12); - } else fra.me.REG[4] = once_value_12; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - REGB0 = CALL_analysis___allocate_iregister_slots___IRoutine___std_slots_nb(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[4] = CALL_standard___string___Object___to_s(REGB0)(REGB0); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - if (!once_value_13) { - fra.me.REG[4] = BOX_NativeString(";"); - REGB0 = TAG_Int(1); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_13 = fra.me.REG[4]; - register_static_object(&once_value_13); - } else fra.me.REG[4] = once_value_13; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:300 */ - if (!once_value_14) { - fra.me.REG[3] = BOX_NativeString("fra.me.nitni_local_ref_head = NULL;"); - REGB0 = TAG_Int(35); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_14 = fra.me.REG[3]; - register_static_object(&once_value_14); - } else fra.me.REG[3] = once_value_14; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:303 */ - REGB0 = TAG_Int(0); - REGB1 = CALL_analysis___allocate_iregister_slots___IRoutine___std_slots_nb(fra.me.REG[0])(fra.me.REG[0]); - /* ../lib/standard/kernel.nit:404 */ - while(1) { - REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/; - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB0)=UNTAG_Int(REGB4)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB4)) { - REGB4 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6])!=NIT_NULL); - if (UNTAG_Bool(REGB4)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB4 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6]); - REGB5 = TAG_Bool(VAL_ISA(REGB4, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3), VTID_standard___kernel___Comparable___OTHER(REGB3))) /*cast OTHER*/; - if (UNTAG_Bool(REGB5)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB4 = TAG_Bool(UNTAG_Int(REGB3)val[UNTAG_Int(REGB3)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label29; - label29: while(0); - /* compiling/compiling_icode.nit:323 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]); - if (!once_value_30) { - fra.me.REG[6] = BOX_NativeString(";"); - REGB3 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB3); - once_value_30 = fra.me.REG[6]; - register_static_object(&once_value_30); - } else fra.me.REG[6] = once_value_30; - fra.me.REG[6] = fra.me.REG[6]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]); - fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[5]); - /* compiling/compiling_icode.nit:324 */ - fra.me.REG[5] = CALL_compiling___compiling_icode___I2CCompilerVisitor___closures(fra.me.REG[1])(fra.me.REG[1]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(REGB2)(REGB2); - CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4], fra.me.REG[6]); - /* compiling/compiling_icode.nit:325 */ - fra.me.REG[6] = CALL_icode___icode_base___IClosureDecl___closure(fra.me.REG[4])(fra.me.REG[4]); - fra.me.REG[6] = CALL_metamodel___static_type___MMClosure___signature(fra.me.REG[6])(fra.me.REG[6]); - /* compiling/compiling_icode.nit:326 */ - fra.me.REG[5] = NEW_Array_standard___collection___array___Array___init(); - /* compiling/compiling_icode.nit:327 */ - if (!once_value_31) { - fra.me.REG[7] = BOX_NativeString("struct stack_frame_t *"); - REGB2 = TAG_Int(22); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB2); - once_value_31 = fra.me.REG[7]; - register_static_object(&once_value_31); - } else fra.me.REG[7] = once_value_31; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[7]); - /* compiling/compiling_icode.nit:328 */ - REGB2 = TAG_Int(0); - REGB3 = CALL_metamodel___static_type___MMSignature___arity(fra.me.REG[6])(fra.me.REG[6]); - /* ../lib/standard/kernel.nit:404 */ - while(1) { - REGB4 = TAG_Bool(VAL_ISA(REGB3, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/; - if (UNTAG_Bool(REGB4)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB4 = TAG_Bool(UNTAG_Int(REGB2)REG[1])(closctx->REG[1], fra.me.REG[0]); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[1] = closctx->REG[2]; - REGB0 = closctx->REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB1 = TAG_Int(0); - REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/; - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB1 = TAG_Bool(UNTAG_Int(REGB0)>=UNTAG_Int(REGB1)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1])!=NIT_NULL); - if (UNTAG_Bool(REGB1)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1]); - REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/; - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB1 = TAG_Bool(UNTAG_Int(REGB0)val[UNTAG_Int(REGB0)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label26; - label26: while(0); - /* compiling/compiling_icode.nit:317 */ - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_assignment(closctx->REG[1])(closctx->REG[1], fra.me.REG[0], fra.me.REG[1]); - } - /* compiling/compiling_icode.nit:318 */ - REGB0 = TAG_Int(1); - /* ../lib/standard/kernel.nit:245 */ - REGB0 = TAG_Int(UNTAG_Int(closctx->REG[4])+UNTAG_Int(REGB0)); - /* compiling/compiling_icode.nit:318 */ - closctx->REG[4] = REGB0; - stack_frame_head = fra.me.prev; - return; - } -static const char LOCATE_compiling___compiling_icode___IRoutine___compile_to_c[] = "compiling_icode::IRoutine::compile_to_c"; -val_t compiling___compiling_icode___IRoutine___compile_to_c(val_t p0, val_t p1, val_t p2, val_t p3){ - struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 356; - fra.me.meth = LOCATE_compiling___compiling_icode___IRoutine___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 4; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - fra.me.REG[2] = p2; - fra.me.REG[3] = p3; - /* compiling/compiling_icode.nit:360 */ - fra.me.REG[2] = NEW_I2CCompilerVisitor_compiling___compiling_icode___I2CCompilerVisitor___init(fra.me.REG[1], fra.me.REG[0], fra.me.REG[2]); - /* compiling/compiling_icode.nit:361 */ - fra.me.REG[3] = CALL_compiling___compiling_icode___IRoutine___compile_inside_to_c(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2], fra.me.REG[3]); - goto label1; - label1: while(0); - stack_frame_head = fra.me.prev; - return fra.me.REG[3]; -} -static const char LOCATE_compiling___compiling_icode___ICode___compile_to_c[] = "compiling_icode::ICode::compile_to_c"; -void compiling___compiling_icode___ICode___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me;} fra; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 366; - fra.me.meth = LOCATE_compiling___compiling_icode___ICode___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 0; - fra.me.nitni_local_ref_head = NULL; - /* compiling/compiling_icode.nit:366 */ - nit_abort("Deferred method called", NULL, LOCATE_compiling___compiling_icode, 366); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___ICode___need_result[] = "compiling_icode::ICode::need_result"; -val_t compiling___compiling_icode___ICode___need_result(val_t p0){ - struct {struct stack_frame_t me;} fra; - val_t REGB0; - val_t REGB1; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 369; - fra.me.meth = LOCATE_compiling___compiling_icode___ICode___need_result; - fra.me.has_broke = 0; - fra.me.REG_size = 1; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[0] = p0; - /* compiling/compiling_icode.nit:372 */ - fra.me.REG[0] = CALL_icode___icode_base___ICode___result(fra.me.REG[0])(fra.me.REG[0]); - /* compiling/compiling_icode.nit:373 */ - REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = TAG_Bool(fra.me.REG[0]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } else { - REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], NIT_NULL); - REGB0 = REGB1; - } - } - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 373); - } - fra.me.REG[0] = CALL_analysis___allocate_iregister_slots___IRegister___slot_index(fra.me.REG[0])(fra.me.REG[0]); - REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = TAG_Bool(fra.me.REG[0]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } else { - /* ../lib/standard/kernel.nit:237 */ - REGB1 = TAG_Bool((fra.me.REG[0])==(NIT_NULL)); - /* compiling/compiling_icode.nit:373 */ - REGB0 = REGB1; - } - } - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - } else { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } - goto label1; - label1: while(0); - stack_frame_head = fra.me.prev; - return REGB0; -} -static const char LOCATE_compiling___compiling_icode___ICode___store_result[] = "compiling_icode::ICode::store_result"; -void compiling___compiling_icode___ICode___store_result(val_t p0, val_t p1, val_t p2){ - struct {struct stack_frame_t me; val_t MORE_REG[4];} fra; - val_t REGB0; - val_t REGB1; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 376; - fra.me.meth = LOCATE_compiling___compiling_icode___ICode___store_result; - fra.me.has_broke = 0; - fra.me.REG_size = 5; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[4] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - fra.me.REG[2] = p2; - /* compiling/compiling_icode.nit:379 */ - fra.me.REG[3] = CALL_icode___icode_base___ICode___result(fra.me.REG[0])(fra.me.REG[0]); - /* compiling/compiling_icode.nit:380 */ - REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } else { - REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL); - REGB0 = REGB1; - } - } - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 380); - } - fra.me.REG[4] = CALL_analysis___allocate_iregister_slots___IRegister___slot_index(fra.me.REG[3])(fra.me.REG[3]); - REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } else { - /* ../lib/standard/kernel.nit:237 */ - REGB1 = TAG_Bool((fra.me.REG[4])==(NIT_NULL)); - /* compiling/compiling_icode.nit:380 */ - REGB0 = REGB1; - } - } - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - } else { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:381 */ - REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } else { - REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL); - REGB0 = REGB1; - } - } - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Assert failed", NULL, LOCATE_compiling___compiling_icode, 381); - } - /* compiling/compiling_icode.nit:382 */ - fra.me.REG[4] = CALL_compiling___compiling_icode___I2CCompilerVisitor___new_instr(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:383 */ - fra.me.REG[3] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]); - /* compiling/compiling_icode.nit:384 */ - if (!once_value_1) { - fra.me.REG[3] = BOX_NativeString(" = "); - REGB0 = TAG_Int(3); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_1 = fra.me.REG[3]; - register_static_object(&once_value_1); - } else fra.me.REG[3] = once_value_1; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]); - /* compiling/compiling_icode.nit:385 */ - CALL_compiling_writer___Writer___append(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]); - /* compiling/compiling_icode.nit:386 */ - if (!once_value_2) { - fra.me.REG[3] = BOX_NativeString(";\n"); - REGB0 = TAG_Int(2); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_2 = fra.me.REG[3]; - register_static_object(&once_value_2); - } else fra.me.REG[3] = once_value_2; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]); - } else { - /* compiling/compiling_icode.nit:387 */ - REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } else { - REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL); - REGB0 = REGB1; - } - } - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - REGB0 = CALL_icode___icode_base___ICode___is_pure(fra.me.REG[0])(fra.me.REG[0]); - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - } else { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:390 */ - fra.me.REG[1] = CALL_compiling___compiling_icode___I2CCompilerVisitor___new_instr(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:391 */ - CALL_compiling_writer___Writer___append(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:392 */ - if (!once_value_3) { - fra.me.REG[2] = BOX_NativeString(";\n"); - REGB0 = TAG_Int(2); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0); - once_value_3 = fra.me.REG[2]; - register_static_object(&once_value_3); - } else fra.me.REG[2] = once_value_3; - fra.me.REG[2] = fra.me.REG[2]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - } - } - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___ICode___new_result[] = "compiling_icode::ICode::new_result"; -val_t compiling___compiling_icode___ICode___new_result(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; - val_t REGB0; - val_t REGB1; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 396; - fra.me.meth = LOCATE_compiling___compiling_icode___ICode___new_result; - fra.me.has_broke = 0; - fra.me.REG_size = 4; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:400 */ - REGB0 = CALL_compiling___compiling_icode___ICode___need_result(fra.me.REG[0])(fra.me.REG[0]); - if (UNTAG_Bool(REGB0)) { - REGB0 = TAG_Bool(1); - } else { - REGB1 = CALL_icode___icode_base___ICode___is_pure(fra.me.REG[0])(fra.me.REG[0]); - REGB1 = TAG_Bool(!UNTAG_Bool(REGB1)); - REGB0 = REGB1; - } - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Assert failed", NULL, LOCATE_compiling___compiling_icode, 400); - } - /* compiling/compiling_icode.nit:401 */ - fra.me.REG[2] = CALL_compiling___compiling_icode___I2CCompilerVisitor___new_instr(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:402 */ - fra.me.REG[0] = CALL_icode___icode_base___ICode___result(fra.me.REG[0])(fra.me.REG[0]); - /* compiling/compiling_icode.nit:403 */ - REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = TAG_Bool(fra.me.REG[0]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } else { - REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], NIT_NULL); - REGB0 = REGB1; - } - } - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 403); - } - fra.me.REG[3] = CALL_analysis___allocate_iregister_slots___IRegister___slot_index(fra.me.REG[0])(fra.me.REG[0]); - REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } else { - /* ../lib/standard/kernel.nit:237 */ - REGB1 = TAG_Bool((fra.me.REG[3])==(NIT_NULL)); - /* compiling/compiling_icode.nit:403 */ - REGB0 = REGB1; - } - } - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - } else { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:404 */ - fra.me.REG[0] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - /* compiling/compiling_icode.nit:405 */ - if (!once_value_1) { - fra.me.REG[0] = BOX_NativeString(" = "); - REGB0 = TAG_Int(3); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_1 = fra.me.REG[0]; - register_static_object(&once_value_1); - } else fra.me.REG[0] = once_value_1; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - } - /* compiling/compiling_icode.nit:407 */ - fra.me.REG[0] = CALL_compiling_writer___Writer___sub(fra.me.REG[2])(fra.me.REG[2]); - /* compiling/compiling_icode.nit:408 */ - if (!once_value_2) { - fra.me.REG[1] = BOX_NativeString(";\n"); - REGB0 = TAG_Int(2); - fra.me.REG[1] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[1])(fra.me.REG[1], REGB0); - once_value_2 = fra.me.REG[1]; - register_static_object(&once_value_2); - } else fra.me.REG[1] = once_value_2; - fra.me.REG[1] = fra.me.REG[1]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); - /* compiling/compiling_icode.nit:409 */ - goto label3; - label3: while(0); - stack_frame_head = fra.me.prev; - return fra.me.REG[0]; -} -static const char LOCATE_compiling___compiling_icode___ISeq___compile_to_c[] = "compiling_icode::ISeq::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___ISeq___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; - val_t REGB0; - val_t REGB1; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 414; - fra.me.meth = LOCATE_compiling___compiling_icode___ISeq___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 4; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:416 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:417 */ - fra.me.REG[2] = CALL_compiling___compiling_icode___I2CCompilerVisitor___local_labels(fra.me.REG[1])(fra.me.REG[1]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - /* compiling/compiling_icode.nit:418 */ - fra.me.REG[2] = CALL_icode___icode_base___ISeq___iescape_mark(fra.me.REG[0])(fra.me.REG[0]); - /* compiling/compiling_icode.nit:419 */ - REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } else { - REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL); - REGB0 = REGB1; - } - } - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - fra.me.REG[3] = CALL_compiling___compiling_icode___I2CCompilerVisitor___marks_to_seq(fra.me.REG[1])(fra.me.REG[1]); - CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2], fra.me.REG[0]); - } - /* compiling/compiling_icode.nit:420 */ - fra.me.REG[2] = CALL_icode___icode_base___ISeq___icodes(fra.me.REG[0])(fra.me.REG[0]); - CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[2])(fra.me.REG[2], (&(fra.me)), ((fun_t)OC_compiling___compiling_icode___ISeq___compile_to_c_1)); - /* compiling/compiling_icode.nit:423 */ - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_label(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return; -} - void OC_compiling___compiling_icode___ISeq___compile_to_c_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){ - struct {struct stack_frame_t me;} fra; - fun_t CREG[1]; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 0; - fra.me.meth = LOCATE_compiling___compiling_icode___ISeq___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 1; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.closure_ctx = closctx_param; - fra.me.closure_funs = CREG; - fra.me.REG[0] = p0; - CREG[0] = clos_fun0; - /* compiling/compiling_icode.nit:421 */ - CALL_compiling___compiling_icode___ICode___compile_to_c(fra.me.REG[0])(fra.me.REG[0], closctx->REG[1]); - stack_frame_head = fra.me.prev; - return; - } -static const char LOCATE_compiling___compiling_icode___IIf___compile_to_c[] = "compiling_icode::IIf::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___IIf___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; - val_t REGB0; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - static val_t once_value_4; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 428; - fra.me.meth = LOCATE_compiling___compiling_icode___IIf___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 4; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:430 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:431 */ - fra.me.REG[2] = CALL_compiling___compiling_icode___I2CCompilerVisitor___new_instr(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:432 */ - if (!once_value_1) { - fra.me.REG[3] = BOX_NativeString("if (UNTAG_Bool("); - REGB0 = TAG_Int(15); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_1 = fra.me.REG[3]; - register_static_object(&once_value_1); - } else fra.me.REG[3] = once_value_1; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:433 */ - fra.me.REG[3] = CALL_icode___icode_base___ICode1___expr(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[3] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:434 */ - if (!once_value_2) { - fra.me.REG[3] = BOX_NativeString(")) {\n"); - REGB0 = TAG_Int(5); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_2 = fra.me.REG[3]; - register_static_object(&once_value_2); - } else fra.me.REG[3] = once_value_2; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:435 */ - fra.me.REG[3] = CALL_icode___icode_base___IIf___then_seq(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[3] = CALL_icode___icode_base___ISeq___icodes(fra.me.REG[3])(fra.me.REG[3]); - REGB0 = CALL_standard___collection___abstract_collection___Collection___is_empty(fra.me.REG[3])(fra.me.REG[3]); - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:436 */ - CALL_compiling___compiling_icode___I2CCompilerVisitor___indent(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:437 */ - fra.me.REG[3] = CALL_icode___icode_base___IIf___then_seq(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___ICode___compile_to_c(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]); - /* compiling/compiling_icode.nit:438 */ - CALL_compiling___compiling_icode___I2CCompilerVisitor___unindent(fra.me.REG[1])(fra.me.REG[1]); - } - /* compiling/compiling_icode.nit:440 */ - fra.me.REG[3] = CALL_icode___icode_base___IIf___else_seq(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[3] = CALL_icode___icode_base___ISeq___icodes(fra.me.REG[3])(fra.me.REG[3]); - REGB0 = CALL_standard___collection___abstract_collection___Collection___is_empty(fra.me.REG[3])(fra.me.REG[3]); - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:441 */ - if (!once_value_3) { - fra.me.REG[3] = BOX_NativeString("} else {"); - REGB0 = TAG_Int(8); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_3 = fra.me.REG[3]; - register_static_object(&once_value_3); - } else fra.me.REG[3] = once_value_3; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:442 */ - CALL_compiling___compiling_icode___I2CCompilerVisitor___indent(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:443 */ - fra.me.REG[0] = CALL_icode___icode_base___IIf___else_seq(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___ICode___compile_to_c(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - /* compiling/compiling_icode.nit:444 */ - CALL_compiling___compiling_icode___I2CCompilerVisitor___unindent(fra.me.REG[1])(fra.me.REG[1]); - } - /* compiling/compiling_icode.nit:446 */ - if (!once_value_4) { - fra.me.REG[0] = BOX_NativeString("}"); - REGB0 = TAG_Int(1); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_4 = fra.me.REG[0]; - register_static_object(&once_value_4); - } else fra.me.REG[0] = once_value_4; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___ILoop___compile_to_c[] = "compiling_icode::ILoop::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___ILoop___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; - val_t REGB0; - val_t REGB1; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_3; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 451; - fra.me.meth = LOCATE_compiling___compiling_icode___ILoop___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 4; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:453 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:454 */ - fra.me.REG[2] = CALL_compiling___compiling_icode___I2CCompilerVisitor___local_labels(fra.me.REG[1])(fra.me.REG[1]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - /* compiling/compiling_icode.nit:455 */ - fra.me.REG[2] = CALL_icode___icode_base___ISeq___iescape_mark(fra.me.REG[0])(fra.me.REG[0]); - /* compiling/compiling_icode.nit:456 */ - REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } else { - REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL); - REGB0 = REGB1; - } - } - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - fra.me.REG[3] = CALL_compiling___compiling_icode___I2CCompilerVisitor___marks_to_seq(fra.me.REG[1])(fra.me.REG[1]); - CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2], fra.me.REG[0]); - } - /* compiling/compiling_icode.nit:457 */ - if (!once_value_1) { - fra.me.REG[2] = BOX_NativeString("while(1) {"); - REGB0 = TAG_Int(10); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0); - once_value_1 = fra.me.REG[2]; - register_static_object(&once_value_1); - } else fra.me.REG[2] = once_value_1; - fra.me.REG[2] = fra.me.REG[2]; - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:458 */ - CALL_compiling___compiling_icode___I2CCompilerVisitor___indent(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:459 */ - fra.me.REG[2] = CALL_icode___icode_base___ISeq___icodes(fra.me.REG[0])(fra.me.REG[0]); - CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[2])(fra.me.REG[2], (&(fra.me)), ((fun_t)OC_compiling___compiling_icode___ILoop___compile_to_c_2)); - /* compiling/compiling_icode.nit:462 */ - CALL_compiling___compiling_icode___I2CCompilerVisitor___unindent(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:463 */ - if (!once_value_3) { - fra.me.REG[2] = BOX_NativeString("}"); - REGB0 = TAG_Int(1); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0); - once_value_3 = fra.me.REG[2]; - register_static_object(&once_value_3); - } else fra.me.REG[2] = once_value_3; - fra.me.REG[2] = fra.me.REG[2]; - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:464 */ - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_label(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return; -} - void OC_compiling___compiling_icode___ILoop___compile_to_c_2(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){ - struct {struct stack_frame_t me;} fra; - fun_t CREG[1]; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 0; - fra.me.meth = LOCATE_compiling___compiling_icode___ILoop___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 1; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.closure_ctx = closctx_param; - fra.me.closure_funs = CREG; - fra.me.REG[0] = p0; - CREG[0] = clos_fun0; - /* compiling/compiling_icode.nit:460 */ - CALL_compiling___compiling_icode___ICode___compile_to_c(fra.me.REG[0])(fra.me.REG[0], closctx->REG[1]); - stack_frame_head = fra.me.prev; - return; - } -static const char LOCATE_compiling___compiling_icode___IEscape___compile_to_c[] = "compiling_icode::IEscape::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___IEscape___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 469; - fra.me.meth = LOCATE_compiling___compiling_icode___IEscape___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 3; - fra.me.nitni_local_ref_head = NULL; - 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; - /* compiling/compiling_icode.nit:471 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:472 */ - fra.me.REG[2] = CALL_compiling___compiling_icode___I2CCompilerVisitor___marks_to_seq(fra.me.REG[1])(fra.me.REG[1]); - fra.me.REG[0] = CALL_icode___icode_base___IEscape___iescape_mark(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_goto(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___IAbsCall___compile_to_c[] = "compiling_icode::IAbsCall::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___IAbsCall___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[9];} fra; - val_t REGB0; - val_t REGB1; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - static val_t once_value_5; /* Once value */ - static val_t once_value_6; /* Once value */ - static val_t once_value_7; /* Once value */ - static val_t once_value_8; /* Once value */ - static val_t once_value_9; /* Once value */ - static val_t once_value_10; /* Once value */ - static val_t once_value_11; /* Once value */ - static val_t once_value_12; /* Once value */ - static val_t once_value_13; /* Once value */ - static val_t once_value_14; /* Once value */ - static val_t once_value_15; /* Once value */ - static val_t once_value_16; /* Once value */ - static val_t once_value_18; /* Once value */ - static val_t once_value_19; /* Once value */ - static val_t once_value_20; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 477; - fra.me.meth = LOCATE_compiling___compiling_icode___IAbsCall___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 10; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[4] = NIT_NULL; - fra.me.REG[5] = NIT_NULL; - fra.me.REG[6] = NIT_NULL; - fra.me.REG[7] = NIT_NULL; - fra.me.REG[8] = NIT_NULL; - fra.me.REG[9] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:477 */ - fra.me.REG[2] = fra.me.REG[0]; - /* compiling/compiling_icode.nit:479 */ - fra.me.REG[3] = CALL_icode___icode_base___ICode___location(fra.me.REG[2])(fra.me.REG[2]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:480 */ - fra.me.REG[3] = CALL_icode___icode_base___ICodeN___exprs(fra.me.REG[2])(fra.me.REG[2]); - fra.me.REG[3] = CALL_compiling___compiling_icode___I2CCompilerVisitor___registers(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:483 */ - fra.me.REG[4] = CALL_compiling___compiling_icode___I2CCompilerVisitor___escaped_labels(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:484 */ - fra.me.REG[5] = CALL_icode___icode_base___ICodeN___closure_defs(fra.me.REG[2])(fra.me.REG[2]); - /* compiling/compiling_icode.nit:485 */ - fra.me.REG[6] = NIT_NULL; - /* compiling/compiling_icode.nit:486 */ - REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = TAG_Bool(fra.me.REG[5]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } else { - REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[5])(fra.me.REG[5], NIT_NULL); - REGB0 = REGB1; - } - } - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:488 */ - REGB0 = CALL_compiling___compiling_icode___I2CCompilerVisitor___closure(fra.me.REG[1])(fra.me.REG[1]); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:489 */ - if (!once_value_1) { - fra.me.REG[7] = BOX_NativeString("closctx"); - REGB0 = TAG_Int(7); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB0); - once_value_1 = fra.me.REG[7]; - register_static_object(&once_value_1); - } else fra.me.REG[7] = once_value_1; - fra.me.REG[7] = fra.me.REG[7]; - fra.me.REG[6] = fra.me.REG[7]; - } else { - /* compiling/compiling_icode.nit:491 */ - if (!once_value_2) { - fra.me.REG[7] = BOX_NativeString("(&(fra.me))"); - REGB0 = TAG_Int(11); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB0); - once_value_2 = fra.me.REG[7]; - register_static_object(&once_value_2); - } else fra.me.REG[7] = once_value_2; - fra.me.REG[7] = fra.me.REG[7]; - fra.me.REG[6] = fra.me.REG[7]; - } - /* compiling/compiling_icode.nit:495 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - /* compiling/compiling_icode.nit:498 */ - fra.me.REG[7] = NEW_HashMap_standard___collection___hash_collection___HashMap___init(); - CALL_compiling___compiling_icode___I2CCompilerVisitor___escaped_labels__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[7]); - /* compiling/compiling_icode.nit:501 */ - REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 501); - } - CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[5])(fra.me.REG[5], (&(fra.me)), ((fun_t)OC_compiling___compiling_icode___IAbsCall___compile_to_c_3)); - } - /* compiling/compiling_icode.nit:512 */ - fra.me.REG[3] = CALL_compiling___compiling_icode___IAbsCall___compile_call_to_c(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:513 */ - fra.me.REG[5] = fra.me.REG[3]; - /* compiling/compiling_icode.nit:516 */ - REGB0 = TAG_Bool(fra.me.REG[6]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = TAG_Bool(fra.me.REG[6]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } else { - REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[6])(fra.me.REG[6], NIT_NULL); - REGB0 = REGB1; - } - } - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:517 */ - fra.me.REG[7] = CALL_compiling___compiling_icode___I2CCompilerVisitor___escaped_labels(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:518 */ - CALL_compiling___compiling_icode___I2CCompilerVisitor___escaped_labels__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); - /* compiling/compiling_icode.nit:520 */ - REGB0 = CALL_standard___collection___abstract_collection___MapRead___is_empty(fra.me.REG[7])(fra.me.REG[7]); - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:522 */ - fra.me.REG[4] = CALL_compiling___compiling_icode___I2CCompilerVisitor___new_instr(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:523 */ - REGB0 = CALL_compiling___compiling_icode___ICode___need_result(fra.me.REG[2])(fra.me.REG[2]); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:524 */ - if (!once_value_5) { - fra.me.REG[8] = BOX_NativeString("tmp"); - REGB0 = TAG_Int(3); - fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB0); - once_value_5 = fra.me.REG[8]; - register_static_object(&once_value_5); - } else fra.me.REG[8] = once_value_5; - fra.me.REG[8] = fra.me.REG[8]; - CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[8]); - /* compiling/compiling_icode.nit:525 */ - if (!once_value_6) { - fra.me.REG[8] = BOX_NativeString(" = "); - REGB0 = TAG_Int(3); - fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB0); - once_value_6 = fra.me.REG[8]; - register_static_object(&once_value_6); - } else fra.me.REG[8] = once_value_6; - fra.me.REG[8] = fra.me.REG[8]; - CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[8]); - /* compiling/compiling_icode.nit:526 */ - CALL_compiling_writer___Writer___append(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]); - /* compiling/compiling_icode.nit:527 */ - if (!once_value_7) { - fra.me.REG[8] = BOX_NativeString(";\n"); - REGB0 = TAG_Int(2); - fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB0); - once_value_7 = fra.me.REG[8]; - register_static_object(&once_value_7); - } else fra.me.REG[8] = once_value_7; - fra.me.REG[8] = fra.me.REG[8]; - CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[8]); - /* compiling/compiling_icode.nit:528 */ - fra.me.REG[8] = NEW_Writer_compiling_writer___Writer___init(); - fra.me.REG[5] = fra.me.REG[8]; - /* compiling/compiling_icode.nit:529 */ - if (!once_value_8) { - fra.me.REG[8] = BOX_NativeString("tmp"); - REGB0 = TAG_Int(3); - fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB0); - once_value_8 = fra.me.REG[8]; - register_static_object(&once_value_8); - } else fra.me.REG[8] = once_value_8; - fra.me.REG[8] = fra.me.REG[8]; - REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 529); - } - CALL_compiling_writer___Writer___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[8]); - } else { - /* compiling/compiling_icode.nit:531 */ - fra.me.REG[5] = NIT_NULL; - /* compiling/compiling_icode.nit:532 */ - CALL_compiling_writer___Writer___append(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]); - /* compiling/compiling_icode.nit:533 */ - if (!once_value_9) { - fra.me.REG[3] = BOX_NativeString(";\n"); - REGB0 = TAG_Int(2); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_9 = fra.me.REG[3]; - register_static_object(&once_value_9); - } else fra.me.REG[3] = once_value_9; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]); - } - /* compiling/compiling_icode.nit:536 */ - fra.me.REG[3] = CALL_compiling___compiling_icode___I2CCompilerVisitor___new_instr(fra.me.REG[1])(fra.me.REG[1]); - if (!once_value_10) { - fra.me.REG[4] = BOX_NativeString("switch ("); - REGB0 = TAG_Int(8); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_10 = fra.me.REG[4]; - register_static_object(&once_value_10); - } else fra.me.REG[4] = once_value_10; - fra.me.REG[4] = fra.me.REG[4]; - fra.me.REG[4] = CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - fra.me.REG[4] = CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]); - if (!once_value_11) { - fra.me.REG[3] = BOX_NativeString("->has_broke) {\n"); - REGB0 = TAG_Int(15); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_11 = fra.me.REG[3]; - register_static_object(&once_value_11); - } else fra.me.REG[3] = once_value_11; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]); - /* compiling/compiling_icode.nit:537 */ - CALL_compiling___compiling_icode___I2CCompilerVisitor___indent(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:539 */ - if (!once_value_12) { - fra.me.REG[3] = BOX_NativeString("case 0: break;"); - REGB0 = TAG_Int(14); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_12 = fra.me.REG[3]; - register_static_object(&once_value_12); - } else fra.me.REG[3] = once_value_12; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:540 */ - fra.me.REG[3] = CALL_compiling___compiling_icode___I2CCompilerVisitor___local_labels(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:541 */ - fra.me.REG[7] = CALL_standard___collection___abstract_collection___MapRead___iterator(fra.me.REG[7])(fra.me.REG[7]); - /* compiling/compiling_icode.nit:542 */ - REGB0 = TAG_Bool(0); - /* compiling/compiling_icode.nit:543 */ - while(1) { - REGB1 = CALL_standard___collection___abstract_collection___MapIterator___is_ok(fra.me.REG[7])(fra.me.REG[7]); - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:544 */ - fra.me.REG[4] = CALL_standard___collection___abstract_collection___MapIterator___key(fra.me.REG[7])(fra.me.REG[7]); - /* compiling/compiling_icode.nit:545 */ - REGB1 = CALL_standard___collection___abstract_collection___Collection___has(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:548 */ - fra.me.REG[8] = CALL_compiling___compiling_icode___I2CCompilerVisitor___new_instr(fra.me.REG[1])(fra.me.REG[1]); - if (!once_value_13) { - fra.me.REG[9] = BOX_NativeString("case "); - REGB1 = TAG_Int(5); - fra.me.REG[9] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[9])(fra.me.REG[9], REGB1); - once_value_13 = fra.me.REG[9]; - register_static_object(&once_value_13); - } else fra.me.REG[9] = once_value_13; - fra.me.REG[9] = fra.me.REG[9]; - fra.me.REG[9] = CALL_compiling_writer___Writer___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[9]); - fra.me.REG[8] = CALL_standard___collection___abstract_collection___MapIterator___item(fra.me.REG[7])(fra.me.REG[7]); - REGB1 = TAG_Bool(fra.me.REG[8]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 548); - } - fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]); - fra.me.REG[8] = CALL_compiling_writer___Writer___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[8]); - if (!once_value_14) { - fra.me.REG[9] = BOX_NativeString(": "); - REGB1 = TAG_Int(2); - fra.me.REG[9] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[9])(fra.me.REG[9], REGB1); - once_value_14 = fra.me.REG[9]; - register_static_object(&once_value_14); - } else fra.me.REG[9] = once_value_14; - fra.me.REG[9] = fra.me.REG[9]; - fra.me.REG[9] = CALL_compiling_writer___Writer___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[9]); - fra.me.REG[9] = CALL_compiling_writer___Writer___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[6]); - if (!once_value_15) { - fra.me.REG[8] = BOX_NativeString("->has_broke = 0; goto "); - REGB1 = TAG_Int(22); - fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB1); - once_value_15 = fra.me.REG[8]; - register_static_object(&once_value_15); - } else fra.me.REG[8] = once_value_15; - fra.me.REG[8] = fra.me.REG[8]; - fra.me.REG[8] = CALL_compiling_writer___Writer___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[8]); - fra.me.REG[9] = CALL_compiling___compiling_icode___I2CCompilerVisitor___lab(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); - fra.me.REG[9] = CALL_compiling_writer___Writer___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[9]); - if (!once_value_16) { - fra.me.REG[8] = BOX_NativeString(";\n"); - REGB1 = TAG_Int(2); - fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB1); - once_value_16 = fra.me.REG[8]; - register_static_object(&once_value_16); - } else fra.me.REG[8] = once_value_16; - fra.me.REG[8] = fra.me.REG[8]; - CALL_compiling_writer___Writer___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[8]); - } else { - /* compiling/compiling_icode.nit:551 */ - REGB1 = CALL_compiling___compiling_icode___I2CCompilerVisitor___closure(fra.me.REG[1])(fra.me.REG[1]); - if (UNTAG_Bool(REGB1)) { - } else { - nit_abort("Assert failed", NULL, LOCATE_compiling___compiling_icode, 551); - } - /* compiling/compiling_icode.nit:552 */ - CALL_compiling___compiling_icode___I2CCompilerVisitor___register_escape_label(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); - /* compiling/compiling_icode.nit:553 */ - REGB1 = TAG_Bool(1); - REGB0 = REGB1; - } - /* compiling/compiling_icode.nit:555 */ - CALL_standard___collection___abstract_collection___MapIterator___next(fra.me.REG[7])(fra.me.REG[7]); - } else { - /* compiling/compiling_icode.nit:543 */ - goto label17; - } - } - label17: while(0); - /* compiling/compiling_icode.nit:558 */ - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:561 */ - fra.me.REG[7] = CALL_compiling___compiling_icode___I2CCompilerVisitor___new_instr(fra.me.REG[1])(fra.me.REG[1]); - if (!once_value_18) { - fra.me.REG[6] = BOX_NativeString("default: goto "); - REGB0 = TAG_Int(14); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB0); - once_value_18 = fra.me.REG[6]; - register_static_object(&once_value_18); - } else fra.me.REG[6] = once_value_18; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_compiling_writer___Writer___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[6]); - fra.me.REG[7] = CALL_compiling___compiling_icode___I2CCompilerVisitor___return_label(fra.me.REG[1])(fra.me.REG[1]); - REGB0 = TAG_Bool(fra.me.REG[7]!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_compiling___compiling_icode, 561); - } - fra.me.REG[7] = CALL_compiling___compiling_icode___I2CCompilerVisitor___lab(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[7]); - fra.me.REG[7] = CALL_compiling_writer___Writer___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_19) { - fra.me.REG[6] = BOX_NativeString(";\n"); - REGB0 = TAG_Int(2); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB0); - once_value_19 = fra.me.REG[6]; - register_static_object(&once_value_19); - } else fra.me.REG[6] = once_value_19; - fra.me.REG[6] = fra.me.REG[6]; - CALL_compiling_writer___Writer___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[6]); - } - /* compiling/compiling_icode.nit:563 */ - CALL_compiling___compiling_icode___I2CCompilerVisitor___unindent(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:564 */ - if (!once_value_20) { - fra.me.REG[6] = BOX_NativeString("}"); - REGB0 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB0); - once_value_20 = fra.me.REG[6]; - register_static_object(&once_value_20); - } else fra.me.REG[6] = once_value_20; - fra.me.REG[6] = fra.me.REG[6]; - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[6]); - } - } - /* compiling/compiling_icode.nit:568 */ - REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = TAG_Bool(fra.me.REG[5]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } else { - REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[5])(fra.me.REG[5], NIT_NULL); - REGB0 = REGB1; - } - } - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:569 */ - fra.me.REG[1] = CALL_compiling___compiling_icode___ICode___new_result(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); - /* compiling/compiling_icode.nit:570 */ - CALL_compiling_writer___Writer___append(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[5]); - } - stack_frame_head = fra.me.prev; - return; -} - void OC_compiling___compiling_icode___IAbsCall___compile_to_c_3(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){ - struct {struct stack_frame_t me;} fra; - val_t REGB0; - val_t REGB1; - fun_t CREG[1]; - val_t tmp; - static val_t once_value_4; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 0; - fra.me.meth = LOCATE_compiling___compiling_icode___IAbsCall___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 1; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.closure_ctx = closctx_param; - fra.me.closure_funs = CREG; - fra.me.REG[0] = p0; - CREG[0] = clos_fun0; - /* compiling/compiling_icode.nit:502 */ - REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = TAG_Bool(fra.me.REG[0]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } else { - REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], NIT_NULL); - REGB0 = REGB1; - } - } - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:503 */ - REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 503); - } - fra.me.REG[0] = CALL_compiling___compiling_icode___IClosureDef___compile_closure(fra.me.REG[0])(fra.me.REG[0], closctx->REG[1]); - /* compiling/compiling_icode.nit:504 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx->REG[3])(closctx->REG[3], fra.me.REG[0]); - } else { - /* compiling/compiling_icode.nit:506 */ - if (!once_value_4) { - fra.me.REG[0] = BOX_NativeString("NULL"); - REGB0 = TAG_Int(4); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_4 = fra.me.REG[0]; - register_static_object(&once_value_4); - } else fra.me.REG[0] = once_value_4; - fra.me.REG[0] = fra.me.REG[0]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx->REG[3])(closctx->REG[3], fra.me.REG[0]); - } - stack_frame_head = fra.me.prev; - return; - } -static const char LOCATE_compiling___compiling_icode___IAbsCall___compile_call_to_c[] = "compiling_icode::IAbsCall::compile_call_to_c"; -val_t compiling___compiling_icode___IAbsCall___compile_call_to_c(val_t p0, val_t p1, val_t p2){ - struct {struct stack_frame_t me;} fra; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 574; - fra.me.meth = LOCATE_compiling___compiling_icode___IAbsCall___compile_call_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 0; - fra.me.nitni_local_ref_head = NULL; - /* compiling/compiling_icode.nit:574 */ - nit_abort("Deferred method called", NULL, LOCATE_compiling___compiling_icode, 574); - stack_frame_head = fra.me.prev; - return NIT_NULL; -} -static const char LOCATE_compiling___compiling_icode___ICall___compile_call_to_c[] = "compiling_icode::ICall::(compiling_icode::IAbsCall::compile_call_to_c)"; -val_t compiling___compiling_icode___ICall___compile_call_to_c(val_t p0, val_t p1, val_t p2){ - struct {struct stack_frame_t me; val_t MORE_REG[4];} fra; - val_t REGB0; - val_t tmp; - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - static val_t once_value_4; /* Once value */ - static val_t once_value_5; /* Once value */ - static val_t once_value_6; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 579; - fra.me.meth = LOCATE_compiling___compiling_icode___ICall___compile_call_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 5; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[4] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - fra.me.REG[2] = p2; - /* compiling/compiling_icode.nit:581 */ - fra.me.REG[1] = NEW_Writer_compiling_writer___Writer___init(); - /* compiling/compiling_icode.nit:585 */ - REGB0 = CALL_icode___icode_base___IAbsCall___is_explicit_from_extern(fra.me.REG[0])(fra.me.REG[0]); - if (UNTAG_Bool(REGB0)) { - fra.me.REG[3] = fra.me.REG[1]; - goto label1; - } - /* compiling/compiling_icode.nit:587 */ - fra.me.REG[0] = CALL_icode___icode_base___IAbsCall___property(fra.me.REG[0])(fra.me.REG[0]); - /* compiling/compiling_icode.nit:588 */ - fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[0])(fra.me.REG[0]); - REGB0 = CALL_metamodel___abstractmetamodel___MMGlobalProperty___is_init(fra.me.REG[4])(fra.me.REG[4]); - if (UNTAG_Bool(REGB0)) { - if (!once_value_2) { - fra.me.REG[4] = BOX_NativeString("init_table"); - REGB0 = TAG_Int(10); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_2 = fra.me.REG[4]; - register_static_object(&once_value_2); - } else fra.me.REG[4] = once_value_2; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]); - } - /* compiling/compiling_icode.nit:589 */ - fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_compiling___compiling_base___MMGlobalProperty___meth_call(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - /* compiling/compiling_icode.nit:590 */ - if (!once_value_3) { - fra.me.REG[0] = BOX_NativeString("("); - REGB0 = TAG_Int(1); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_3 = fra.me.REG[0]; - register_static_object(&once_value_3); - } else fra.me.REG[0] = once_value_3; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - /* compiling/compiling_icode.nit:591 */ - fra.me.REG[0] = CALL_standard___collection___abstract_collection___Collection___first(fra.me.REG[2])(fra.me.REG[2]); - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - /* compiling/compiling_icode.nit:592 */ - if (!once_value_4) { - fra.me.REG[0] = BOX_NativeString(")("); - REGB0 = TAG_Int(2); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_4 = fra.me.REG[0]; - register_static_object(&once_value_4); - } else fra.me.REG[0] = once_value_4; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - /* compiling/compiling_icode.nit:593 */ - if (!once_value_5) { - fra.me.REG[0] = BOX_NativeString(", "); - REGB0 = TAG_Int(2); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_5 = fra.me.REG[0]; - register_static_object(&once_value_5); - } else fra.me.REG[0] = once_value_5; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add_all(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[0]); - /* compiling/compiling_icode.nit:594 */ - if (!once_value_6) { - fra.me.REG[0] = BOX_NativeString(")"); - REGB0 = TAG_Int(1); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_6 = fra.me.REG[0]; - register_static_object(&once_value_6); - } else fra.me.REG[0] = once_value_6; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - /* compiling/compiling_icode.nit:595 */ - fra.me.REG[3] = fra.me.REG[1]; - goto label1; - label1: while(0); - stack_frame_head = fra.me.prev; - return fra.me.REG[3]; -} -static const char LOCATE_compiling___compiling_icode___ISuper___compile_call_to_c[] = "compiling_icode::ISuper::(compiling_icode::IAbsCall::compile_call_to_c)"; -val_t compiling___compiling_icode___ISuper___compile_call_to_c(val_t p0, val_t p1, val_t p2){ - struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; - val_t REGB0; - val_t tmp; - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - static val_t once_value_4; /* Once value */ - static val_t once_value_5; /* Once value */ - static val_t once_value_6; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 600; - fra.me.meth = LOCATE_compiling___compiling_icode___ISuper___compile_call_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 4; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - fra.me.REG[2] = p2; - /* compiling/compiling_icode.nit:604 */ - REGB0 = CALL_icode___icode_base___IAbsCall___is_explicit_from_extern(fra.me.REG[0])(fra.me.REG[0]); - if (UNTAG_Bool(REGB0)) { - fra.me.REG[1] = NEW_Writer_compiling_writer___Writer___init(); - goto label1; - } - /* compiling/compiling_icode.nit:606 */ - fra.me.REG[0] = CALL_icode___icode_base___IAbsCall___property(fra.me.REG[0])(fra.me.REG[0]); - /* compiling/compiling_icode.nit:607 */ - fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[0])(fra.me.REG[0]); - REGB0 = CALL_metamodel___abstractmetamodel___MMGlobalProperty___is_init(fra.me.REG[3])(fra.me.REG[3]); - if (UNTAG_Bool(REGB0)) { - if (!once_value_2) { - fra.me.REG[3] = BOX_NativeString("init_table"); - REGB0 = TAG_Int(10); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_2 = fra.me.REG[3]; - register_static_object(&once_value_2); - } else fra.me.REG[3] = once_value_2; - fra.me.REG[3] = fra.me.REG[3]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - } - /* compiling/compiling_icode.nit:608 */ - fra.me.REG[3] = NEW_Writer_compiling_writer___Writer___init(); - /* compiling/compiling_icode.nit:609 */ - fra.me.REG[0] = CALL_compiling___compiling_base___MMLocalProperty___super_meth_call(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]); - /* compiling/compiling_icode.nit:610 */ - if (!once_value_3) { - fra.me.REG[0] = BOX_NativeString("("); - REGB0 = TAG_Int(1); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_3 = fra.me.REG[0]; - register_static_object(&once_value_3); - } else fra.me.REG[0] = once_value_3; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]); - /* compiling/compiling_icode.nit:611 */ - fra.me.REG[0] = CALL_standard___collection___abstract_collection___Collection___first(fra.me.REG[2])(fra.me.REG[2]); - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]); - /* compiling/compiling_icode.nit:612 */ - if (!once_value_4) { - fra.me.REG[0] = BOX_NativeString(")("); - REGB0 = TAG_Int(2); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_4 = fra.me.REG[0]; - register_static_object(&once_value_4); - } else fra.me.REG[0] = once_value_4; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]); - /* compiling/compiling_icode.nit:613 */ - if (!once_value_5) { - fra.me.REG[0] = BOX_NativeString(", "); - REGB0 = TAG_Int(2); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_5 = fra.me.REG[0]; - register_static_object(&once_value_5); - } else fra.me.REG[0] = once_value_5; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add_all(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2], fra.me.REG[0]); - /* compiling/compiling_icode.nit:614 */ - if (!once_value_6) { - fra.me.REG[0] = BOX_NativeString(")"); - REGB0 = TAG_Int(1); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_6 = fra.me.REG[0]; - register_static_object(&once_value_6); - } else fra.me.REG[0] = once_value_6; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]); - /* compiling/compiling_icode.nit:615 */ - fra.me.REG[1] = fra.me.REG[3]; - goto label1; - label1: while(0); - stack_frame_head = fra.me.prev; - return fra.me.REG[1]; -} -static const char LOCATE_compiling___compiling_icode___INew___compile_call_to_c[] = "compiling_icode::INew::(compiling_icode::IAbsCall::compile_call_to_c)"; -val_t compiling___compiling_icode___INew___compile_call_to_c(val_t p0, val_t p1, val_t p2){ - struct {struct stack_frame_t me; val_t MORE_REG[4];} fra; - val_t REGB0; - val_t tmp; - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - static val_t once_value_4; /* Once value */ - static val_t once_value_5; /* Once value */ - static val_t once_value_6; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 620; - fra.me.meth = LOCATE_compiling___compiling_icode___INew___compile_call_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 5; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[4] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - fra.me.REG[2] = p2; - /* compiling/compiling_icode.nit:622 */ - fra.me.REG[1] = NEW_Writer_compiling_writer___Writer___init(); - /* compiling/compiling_icode.nit:626 */ - REGB0 = CALL_icode___icode_base___IAbsCall___is_explicit_from_extern(fra.me.REG[0])(fra.me.REG[0]); - if (UNTAG_Bool(REGB0)) { - fra.me.REG[3] = fra.me.REG[1]; - goto label1; - } - /* compiling/compiling_icode.nit:628 */ - if (!once_value_2) { - fra.me.REG[4] = BOX_NativeString("NEW_"); - REGB0 = TAG_Int(4); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_2 = fra.me.REG[4]; - register_static_object(&once_value_2); - } else fra.me.REG[4] = once_value_2; - fra.me.REG[4] = fra.me.REG[4]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); - /* compiling/compiling_icode.nit:629 */ - fra.me.REG[4] = CALL_icode___icode_base___INew___stype(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[4] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[4])(fra.me.REG[4]); - fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]); - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); - /* compiling/compiling_icode.nit:630 */ - if (!once_value_3) { - fra.me.REG[4] = BOX_NativeString("_"); - REGB0 = TAG_Int(1); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_3 = fra.me.REG[4]; - register_static_object(&once_value_3); - } else fra.me.REG[4] = once_value_3; - fra.me.REG[4] = fra.me.REG[4]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); - /* compiling/compiling_icode.nit:631 */ - fra.me.REG[0] = CALL_icode___icode_base___IAbsCall___property(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___intro(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_compiling___compiling_base___MMLocalProperty___cname(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - /* compiling/compiling_icode.nit:632 */ - if (!once_value_4) { - fra.me.REG[0] = BOX_NativeString("("); - REGB0 = TAG_Int(1); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_4 = fra.me.REG[0]; - register_static_object(&once_value_4); - } else fra.me.REG[0] = once_value_4; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - /* compiling/compiling_icode.nit:633 */ - if (!once_value_5) { - fra.me.REG[0] = BOX_NativeString(", "); - REGB0 = TAG_Int(2); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_5 = fra.me.REG[0]; - register_static_object(&once_value_5); - } else fra.me.REG[0] = once_value_5; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add_all(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[0]); - /* compiling/compiling_icode.nit:634 */ - if (!once_value_6) { - fra.me.REG[0] = BOX_NativeString(")"); - REGB0 = TAG_Int(1); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_6 = fra.me.REG[0]; - register_static_object(&once_value_6); - } else fra.me.REG[0] = once_value_6; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - /* compiling/compiling_icode.nit:635 */ - fra.me.REG[3] = fra.me.REG[1]; - goto label1; - label1: while(0); - stack_frame_head = fra.me.prev; - return fra.me.REG[3]; -} -static const char LOCATE_compiling___compiling_icode___IAllocateInstance___compile_to_c[] = "compiling_icode::IAllocateInstance::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___IAllocateInstance___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; - val_t REGB0; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 640; - fra.me.meth = LOCATE_compiling___compiling_icode___IAllocateInstance___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 3; - fra.me.nitni_local_ref_head = NULL; - 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; - /* compiling/compiling_icode.nit:642 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:643 */ - fra.me.REG[1] = CALL_compiling___compiling_icode___ICode___new_result(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - /* compiling/compiling_icode.nit:644 */ - if (!once_value_1) { - fra.me.REG[2] = BOX_NativeString("NEW_"); - REGB0 = TAG_Int(4); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0); - once_value_1 = fra.me.REG[2]; - register_static_object(&once_value_1); - } else fra.me.REG[2] = once_value_1; - fra.me.REG[2] = fra.me.REG[2]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:645 */ - fra.me.REG[0] = CALL_icode___icode_base___IAllocateInstance___stype(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_compiling___compiling_base___MMLocalClass___cname(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - /* compiling/compiling_icode.nit:646 */ - if (!once_value_2) { - fra.me.REG[0] = BOX_NativeString("()"); - REGB0 = TAG_Int(2); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_2 = fra.me.REG[0]; - register_static_object(&once_value_2); - } else fra.me.REG[0] = once_value_2; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___ICheckInstance___compile_to_c[] = "compiling_icode::ICheckInstance::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___ICheckInstance___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; - val_t REGB0; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 651; - fra.me.meth = LOCATE_compiling___compiling_icode___ICheckInstance___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 4; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:653 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:654 */ - fra.me.REG[2] = CALL_compiling___compiling_icode___ICode___new_result(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - /* compiling/compiling_icode.nit:655 */ - if (!once_value_1) { - fra.me.REG[3] = BOX_NativeString("CHECKNEW_"); - REGB0 = TAG_Int(9); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_1 = fra.me.REG[3]; - register_static_object(&once_value_1); - } else fra.me.REG[3] = once_value_1; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:656 */ - fra.me.REG[3] = CALL_icode___icode_base___ICheckInstance___stype(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[3] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[3])(fra.me.REG[3]); - fra.me.REG[3] = CALL_compiling___compiling_base___MMLocalClass___cname(fra.me.REG[3])(fra.me.REG[3]); - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:657 */ - if (!once_value_2) { - fra.me.REG[3] = BOX_NativeString("("); - REGB0 = TAG_Int(1); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_2 = fra.me.REG[3]; - register_static_object(&once_value_2); - } else fra.me.REG[3] = once_value_2; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:658 */ - fra.me.REG[0] = CALL_icode___icode_base___ICode1___expr(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - /* compiling/compiling_icode.nit:659 */ - if (!once_value_3) { - fra.me.REG[0] = BOX_NativeString(")"); - REGB0 = TAG_Int(1); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_3 = fra.me.REG[0]; - register_static_object(&once_value_3); - } else fra.me.REG[0] = once_value_3; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___IInitAttributes___compile_to_c[] = "compiling_icode::IInitAttributes::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___IInitAttributes___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; - val_t REGB0; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 664; - fra.me.meth = LOCATE_compiling___compiling_icode___IInitAttributes___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 4; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:666 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:667 */ - fra.me.REG[2] = CALL_compiling___compiling_icode___I2CCompilerVisitor___new_instr(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:668 */ - if (!once_value_1) { - fra.me.REG[3] = BOX_NativeString("INIT_ATTRIBUTES__"); - REGB0 = TAG_Int(17); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_1 = fra.me.REG[3]; - register_static_object(&once_value_1); - } else fra.me.REG[3] = once_value_1; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:669 */ - fra.me.REG[3] = CALL_icode___icode_base___IInitAttributes___stype(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[3] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[3])(fra.me.REG[3]); - fra.me.REG[3] = CALL_compiling___compiling_base___MMLocalClass___cname(fra.me.REG[3])(fra.me.REG[3]); - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:670 */ - if (!once_value_2) { - fra.me.REG[3] = BOX_NativeString("("); - REGB0 = TAG_Int(1); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_2 = fra.me.REG[3]; - register_static_object(&once_value_2); - } else fra.me.REG[3] = once_value_2; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:671 */ - fra.me.REG[0] = CALL_icode___icode_base___ICode1___expr(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - /* compiling/compiling_icode.nit:672 */ - if (!once_value_3) { - fra.me.REG[0] = BOX_NativeString(");\n"); - REGB0 = TAG_Int(3); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_3 = fra.me.REG[0]; - register_static_object(&once_value_3); - } else fra.me.REG[0] = once_value_3; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___IStaticCall___compile_call_to_c[] = "compiling_icode::IStaticCall::(compiling_icode::IAbsCall::compile_call_to_c)"; -val_t compiling___compiling_icode___IStaticCall___compile_call_to_c(val_t p0, val_t p1, val_t p2){ - struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; - val_t REGB0; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - static val_t once_value_4; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 677; - fra.me.meth = LOCATE_compiling___compiling_icode___IStaticCall___compile_call_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 3; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - fra.me.REG[2] = p2; - /* compiling/compiling_icode.nit:679 */ - fra.me.REG[1] = CALL_icode___icode_base___IAbsCall___property(fra.me.REG[0])(fra.me.REG[0]); - /* compiling/compiling_icode.nit:680 */ - fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[1])(fra.me.REG[1]); - REGB0 = CALL_metamodel___abstractmetamodel___MMGlobalProperty___is_init(fra.me.REG[1])(fra.me.REG[1]); - if (UNTAG_Bool(REGB0)) { - if (!once_value_1) { - fra.me.REG[1] = BOX_NativeString("init_table"); - REGB0 = TAG_Int(10); - fra.me.REG[1] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[1])(fra.me.REG[1], REGB0); - once_value_1 = fra.me.REG[1]; - register_static_object(&once_value_1); - } else fra.me.REG[1] = once_value_1; - fra.me.REG[1] = fra.me.REG[1]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); - } - /* compiling/compiling_icode.nit:681 */ - fra.me.REG[1] = NEW_Writer_compiling_writer___Writer___init(); - /* compiling/compiling_icode.nit:682 */ - fra.me.REG[0] = CALL_icode___icode_base___IAbsCall___property(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_compiling___compiling_base___MMLocalProperty___cname(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - /* compiling/compiling_icode.nit:683 */ - if (!once_value_2) { - fra.me.REG[0] = BOX_NativeString("("); - REGB0 = TAG_Int(1); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_2 = fra.me.REG[0]; - register_static_object(&once_value_2); - } else fra.me.REG[0] = once_value_2; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - /* compiling/compiling_icode.nit:684 */ - if (!once_value_3) { - fra.me.REG[0] = BOX_NativeString(", "); - REGB0 = TAG_Int(2); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_3 = fra.me.REG[0]; - register_static_object(&once_value_3); - } else fra.me.REG[0] = once_value_3; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add_all(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[0]); - /* compiling/compiling_icode.nit:685 */ - if (!once_value_4) { - fra.me.REG[0] = BOX_NativeString(")"); - REGB0 = TAG_Int(1); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_4 = fra.me.REG[0]; - register_static_object(&once_value_4); - } else fra.me.REG[0] = once_value_4; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - /* compiling/compiling_icode.nit:686 */ - goto label5; - label5: while(0); - stack_frame_head = fra.me.prev; - return fra.me.REG[1]; -} -static const char LOCATE_compiling___compiling_icode___INative___compile_to_c[] = "compiling_icode::INative::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___INative___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; - val_t REGB0; - val_t tmp; - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 691; - fra.me.meth = LOCATE_compiling___compiling_icode___INative___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 3; - fra.me.nitni_local_ref_head = NULL; - 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; - /* compiling/compiling_icode.nit:693 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:694 */ - fra.me.REG[2] = CALL_icode___icode_base___INative___method(fra.me.REG[0])(fra.me.REG[0]); - REGB0 = CALL_metamodel___abstractmetamodel___MMMethod___is_intern(fra.me.REG[2])(fra.me.REG[2]); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:695 */ - CALL_compiling___compiling_icode___INative___compile_intern_method_to_c(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - } else { - /* compiling/compiling_icode.nit:696 */ - fra.me.REG[2] = CALL_icode___icode_base___INative___method(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[2])(fra.me.REG[2]); - REGB0 = CALL_metamodel___abstractmetamodel___MMGlobalProperty___is_init(fra.me.REG[2])(fra.me.REG[2]); - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:697 */ - CALL_compiling___compiling_icode___INative___compile_extern_method_to_c(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - } - } - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___INative___compile_extern_method_to_c[] = "compiling_icode::INative::compile_extern_method_to_c"; -void compiling___compiling_icode___INative___compile_extern_method_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[6];} fra; - val_t REGB0; - val_t REGB1; - val_t REGB2; - val_t REGB3; - val_t REGB4; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - static val_t once_value_6; /* Once value */ - static val_t once_value_7; /* Once value */ - static val_t once_value_8; /* Once value */ - static val_t once_value_9; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 701; - fra.me.meth = LOCATE_compiling___compiling_icode___INative___compile_extern_method_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 7; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[4] = NIT_NULL; - fra.me.REG[5] = NIT_NULL; - fra.me.REG[6] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:703 */ - REGB0 = TAG_Int(3); - fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); - if (!once_value_1) { - fra.me.REG[3] = BOX_NativeString(""); - REGB0 = TAG_Int(0); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_1 = fra.me.REG[3]; - register_static_object(&once_value_1); - } else fra.me.REG[3] = once_value_1; - fra.me.REG[3] = fra.me.REG[3]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - fra.me.REG[3] = CALL_icode___icode_base___INative___method(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[4] = CALL_icode___icode_base___INative___method(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___local_class(fra.me.REG[4])(fra.me.REG[4]); - fra.me.REG[4] = CALL_primitive_info___MMMethod___friendly_extern_name(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]); - if (!once_value_2) { - fra.me.REG[4] = BOX_NativeString("___out"); - REGB0 = TAG_Int(6); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_2 = fra.me.REG[4]; - register_static_object(&once_value_2); - } else fra.me.REG[4] = once_value_2; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]); - fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]); - /* compiling/compiling_icode.nit:705 */ - fra.me.REG[4] = CALL_icode___icode_base___INative___method(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[4] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[4])(fra.me.REG[4]); - /* compiling/compiling_icode.nit:706 */ - fra.me.REG[3] = CALL_icode___icode_base___ICodeN___exprs(fra.me.REG[0])(fra.me.REG[0]); - REGB0 = CALL_standard___collection___abstract_collection___Collection___length(fra.me.REG[3])(fra.me.REG[3]); - REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 706); - } - REGB1 = CALL_metamodel___static_type___MMSignature___arity(fra.me.REG[4])(fra.me.REG[4]); - REGB2 = TAG_Int(1); - /* ../lib/standard/kernel.nit:245 */ - REGB2 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB2)); - /* compiling/compiling_icode.nit:706 */ - REGB1 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB2)); - if (UNTAG_Bool(REGB1)) { - } else { - /* ../lib/standard/kernel.nit:237 */ - REGB2 = TAG_Bool((REGB0)==(REGB2)); - /* compiling/compiling_icode.nit:706 */ - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - } else { - nit_abort("Assert failed", NULL, LOCATE_compiling___compiling_icode, 706); - } - /* compiling/compiling_icode.nit:708 */ - fra.me.REG[3] = CALL_icode___icode_base___ICodeN___exprs(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[3] = CALL_compiling___compiling_icode___I2CCompilerVisitor___registers(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:710 */ - fra.me.REG[5] = NEW_Array_standard___collection___array___Array___init(); - /* compiling/compiling_icode.nit:711 */ - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[6] = fra.me.REG[3]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label3; - label3: while(0); - /* compiling/compiling_icode.nit:711 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]); - /* compiling/compiling_icode.nit:712 */ - REGB1 = TAG_Int(0); - REGB2 = TAG_Bool(fra.me.REG[4]==NIT_NULL); - if (UNTAG_Bool(REGB2)) { - nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 712); - } - REGB2 = CALL_metamodel___static_type___MMSignature___arity(fra.me.REG[4])(fra.me.REG[4]); - /* ../lib/standard/kernel.nit:404 */ - while(1) { - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB0 = TAG_Bool(UNTAG_Int(REGB1)=UNTAG_Int(REGB0)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB0)) { - REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4])!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4]); - REGB4 = TAG_Bool(VAL_ISA(REGB0, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3), VTID_standard___kernel___Comparable___OTHER(REGB3))) /*cast OTHER*/; - if (UNTAG_Bool(REGB4)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB0 = TAG_Bool(UNTAG_Int(REGB3)val[UNTAG_Int(REGB3)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label4; - label4: while(0); - /* compiling/compiling_icode.nit:713 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]); - /* ../lib/standard/kernel.nit:406 */ - REGB3 = TAG_Int(1); - /* ../lib/standard/kernel.nit:245 */ - REGB3 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB3)); - /* ../lib/standard/kernel.nit:406 */ - REGB1 = REGB3; - } else { - /* ../lib/standard/kernel.nit:404 */ - goto label5; - } - } - label5: while(0); - /* compiling/compiling_icode.nit:715 */ - REGB1 = TAG_Int(5); - fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_6) { - fra.me.REG[4] = BOX_NativeString(""); - REGB1 = TAG_Int(0); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1); - once_value_6 = fra.me.REG[4]; - register_static_object(&once_value_6); - } else fra.me.REG[4] = once_value_6; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]); - if (!once_value_7) { - fra.me.REG[2] = BOX_NativeString("("); - REGB1 = TAG_Int(1); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_7 = fra.me.REG[2]; - register_static_object(&once_value_7); - } else fra.me.REG[2] = once_value_7; - fra.me.REG[2] = fra.me.REG[2]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]); - if (!once_value_8) { - fra.me.REG[2] = BOX_NativeString(", "); - REGB1 = TAG_Int(2); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_8 = fra.me.REG[2]; - register_static_object(&once_value_8); - } else fra.me.REG[2] = once_value_8; - fra.me.REG[2] = fra.me.REG[2]; - fra.me.REG[2] = CALL_standard___string___Collection___join(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[2]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]); - if (!once_value_9) { - fra.me.REG[2] = BOX_NativeString(")"); - REGB1 = TAG_Int(1); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_9 = fra.me.REG[2]; - register_static_object(&once_value_9); - } else fra.me.REG[2] = once_value_9; - fra.me.REG[2] = fra.me.REG[2]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]); - fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]); - /* compiling/compiling_icode.nit:717 */ - REGB1 = CALL_compiling___compiling_icode___ICode___need_result(fra.me.REG[0])(fra.me.REG[0]); - if (UNTAG_Bool(REGB1)) { - } - /* compiling/compiling_icode.nit:718 */ - fra.me.REG[1] = CALL_compiling___compiling_icode___ICode___new_result(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - /* compiling/compiling_icode.nit:719 */ - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___INative___compile_intern_method_to_c[] = "compiling_icode::INative::compile_intern_method_to_c"; -void compiling___compiling_icode___INative___compile_intern_method_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[7];} fra; - val_t REGB0; - val_t REGB1; - val_t REGB2; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - static val_t once_value_4; /* Once value */ - static val_t once_value_6; /* Once value */ - static val_t once_value_7; /* Once value */ - static val_t once_value_8; /* Once value */ - static val_t once_value_10; /* Once value */ - static val_t once_value_11; /* Once value */ - static val_t once_value_12; /* Once value */ - static val_t once_value_13; /* Once value */ - static val_t once_value_15; /* Once value */ - static val_t once_value_16; /* Once value */ - static val_t once_value_17; /* Once value */ - static val_t once_value_18; /* Once value */ - static val_t once_value_20; /* Once value */ - static val_t once_value_21; /* Once value */ - static val_t once_value_22; /* Once value */ - static val_t once_value_23; /* Once value */ - static val_t once_value_25; /* Once value */ - static val_t once_value_26; /* Once value */ - static val_t once_value_27; /* Once value */ - static val_t once_value_28; /* Once value */ - static val_t once_value_30; /* Once value */ - static val_t once_value_31; /* Once value */ - static val_t once_value_32; /* Once value */ - static val_t once_value_33; /* Once value */ - static val_t once_value_35; /* Once value */ - static val_t once_value_36; /* Once value */ - static val_t once_value_37; /* Once value */ - static val_t once_value_38; /* Once value */ - static val_t once_value_40; /* Once value */ - static val_t once_value_42; /* Once value */ - static val_t once_value_43; /* Once value */ - static val_t once_value_44; /* Once value */ - static val_t once_value_45; /* Once value */ - static val_t once_value_47; /* Once value */ - static val_t once_value_49; /* Once value */ - static val_t once_value_50; /* Once value */ - static val_t once_value_51; /* Once value */ - static val_t once_value_52; /* Once value */ - static val_t once_value_54; /* Once value */ - static val_t once_value_56; /* Once value */ - static val_t once_value_57; /* Once value */ - static val_t once_value_58; /* Once value */ - static val_t once_value_59; /* Once value */ - static val_t once_value_61; /* Once value */ - static val_t once_value_63; /* Once value */ - static val_t once_value_64; /* Once value */ - static val_t once_value_65; /* Once value */ - static val_t once_value_66; /* Once value */ - static val_t once_value_68; /* Once value */ - static val_t once_value_70; /* Once value */ - static val_t once_value_71; /* Once value */ - static val_t once_value_72; /* Once value */ - static val_t once_value_73; /* Once value */ - static val_t once_value_75; /* Once value */ - static val_t once_value_77; /* Once value */ - static val_t once_value_78; /* Once value */ - static val_t once_value_79; /* Once value */ - static val_t once_value_80; /* Once value */ - static val_t once_value_82; /* Once value */ - static val_t once_value_84; /* Once value */ - static val_t once_value_85; /* Once value */ - static val_t once_value_86; /* Once value */ - static val_t once_value_87; /* Once value */ - static val_t once_value_89; /* Once value */ - static val_t once_value_91; /* Once value */ - static val_t once_value_92; /* Once value */ - static val_t once_value_93; /* Once value */ - static val_t once_value_94; /* Once value */ - static val_t once_value_96; /* Once value */ - static val_t once_value_98; /* Once value */ - static val_t once_value_99; /* Once value */ - static val_t once_value_100; /* Once value */ - static val_t once_value_101; /* Once value */ - static val_t once_value_103; /* Once value */ - static val_t once_value_105; /* Once value */ - static val_t once_value_106; /* Once value */ - static val_t once_value_107; /* Once value */ - static val_t once_value_108; /* Once value */ - static val_t once_value_110; /* Once value */ - static val_t once_value_112; /* Once value */ - static val_t once_value_113; /* Once value */ - static val_t once_value_114; /* Once value */ - static val_t once_value_115; /* Once value */ - static val_t once_value_117; /* Once value */ - static val_t once_value_119; /* Once value */ - static val_t once_value_120; /* Once value */ - static val_t once_value_121; /* Once value */ - static val_t once_value_122; /* Once value */ - static val_t once_value_124; /* Once value */ - static val_t once_value_126; /* Once value */ - static val_t once_value_127; /* Once value */ - static val_t once_value_128; /* Once value */ - static val_t once_value_129; /* Once value */ - static val_t once_value_130; /* Once value */ - static val_t once_value_131; /* Once value */ - static val_t once_value_133; /* Once value */ - static val_t once_value_134; /* Once value */ - static val_t once_value_135; /* Once value */ - static val_t once_value_136; /* Once value */ - static val_t once_value_138; /* Once value */ - static val_t once_value_139; /* Once value */ - static val_t once_value_140; /* Once value */ - static val_t once_value_141; /* Once value */ - static val_t once_value_143; /* Once value */ - static val_t once_value_144; /* Once value */ - static val_t once_value_145; /* Once value */ - static val_t once_value_146; /* Once value */ - static val_t once_value_148; /* Once value */ - static val_t once_value_149; /* Once value */ - static val_t once_value_150; /* Once value */ - static val_t once_value_151; /* Once value */ - static val_t once_value_153; /* Once value */ - static val_t once_value_155; /* Once value */ - static val_t once_value_156; /* Once value */ - static val_t once_value_157; /* Once value */ - static val_t once_value_158; /* Once value */ - static val_t once_value_160; /* Once value */ - static val_t once_value_162; /* Once value */ - static val_t once_value_163; /* Once value */ - static val_t once_value_164; /* Once value */ - static val_t once_value_165; /* Once value */ - static val_t once_value_167; /* Once value */ - static val_t once_value_169; /* Once value */ - static val_t once_value_170; /* Once value */ - static val_t once_value_171; /* Once value */ - static val_t once_value_172; /* Once value */ - static val_t once_value_174; /* Once value */ - static val_t once_value_176; /* Once value */ - static val_t once_value_177; /* Once value */ - static val_t once_value_178; /* Once value */ - static val_t once_value_179; /* Once value */ - static val_t once_value_181; /* Once value */ - static val_t once_value_183; /* Once value */ - static val_t once_value_184; /* Once value */ - static val_t once_value_185; /* Once value */ - static val_t once_value_186; /* Once value */ - static val_t once_value_188; /* Once value */ - static val_t once_value_190; /* Once value */ - static val_t once_value_191; /* Once value */ - static val_t once_value_192; /* Once value */ - static val_t once_value_193; /* Once value */ - static val_t once_value_195; /* Once value */ - static val_t once_value_197; /* Once value */ - static val_t once_value_198; /* Once value */ - static val_t once_value_199; /* Once value */ - static val_t once_value_200; /* Once value */ - static val_t once_value_202; /* Once value */ - static val_t once_value_204; /* Once value */ - static val_t once_value_205; /* Once value */ - static val_t once_value_206; /* Once value */ - static val_t once_value_207; /* Once value */ - static val_t once_value_208; /* Once value */ - static val_t once_value_209; /* Once value */ - static val_t once_value_211; /* Once value */ - static val_t once_value_212; /* Once value */ - static val_t once_value_213; /* Once value */ - static val_t once_value_214; /* Once value */ - static val_t once_value_216; /* Once value */ - static val_t once_value_217; /* Once value */ - static val_t once_value_218; /* Once value */ - static val_t once_value_219; /* Once value */ - static val_t once_value_221; /* Once value */ - static val_t once_value_222; /* Once value */ - static val_t once_value_223; /* Once value */ - static val_t once_value_224; /* Once value */ - static val_t once_value_226; /* Once value */ - static val_t once_value_227; /* Once value */ - static val_t once_value_228; /* Once value */ - static val_t once_value_229; /* Once value */ - static val_t once_value_231; /* Once value */ - static val_t once_value_232; /* Once value */ - static val_t once_value_233; /* Once value */ - static val_t once_value_234; /* Once value */ - static val_t once_value_236; /* Once value */ - static val_t once_value_237; /* Once value */ - static val_t once_value_238; /* Once value */ - static val_t once_value_239; /* Once value */ - static val_t once_value_241; /* Once value */ - static val_t once_value_242; /* Once value */ - static val_t once_value_243; /* Once value */ - static val_t once_value_244; /* Once value */ - static val_t once_value_246; /* Once value */ - static val_t once_value_248; /* Once value */ - static val_t once_value_249; /* Once value */ - static val_t once_value_250; /* Once value */ - static val_t once_value_251; /* Once value */ - static val_t once_value_253; /* Once value */ - static val_t once_value_255; /* Once value */ - static val_t once_value_256; /* Once value */ - static val_t once_value_257; /* Once value */ - static val_t once_value_258; /* Once value */ - static val_t once_value_260; /* Once value */ - static val_t once_value_262; /* Once value */ - static val_t once_value_263; /* Once value */ - static val_t once_value_264; /* Once value */ - static val_t once_value_265; /* Once value */ - static val_t once_value_267; /* Once value */ - static val_t once_value_269; /* Once value */ - static val_t once_value_270; /* Once value */ - static val_t once_value_271; /* Once value */ - static val_t once_value_272; /* Once value */ - static val_t once_value_274; /* Once value */ - static val_t once_value_276; /* Once value */ - static val_t once_value_277; /* Once value */ - static val_t once_value_278; /* Once value */ - static val_t once_value_279; /* Once value */ - static val_t once_value_281; /* Once value */ - static val_t once_value_283; /* Once value */ - static val_t once_value_284; /* Once value */ - static val_t once_value_285; /* Once value */ - static val_t once_value_286; /* Once value */ - static val_t once_value_288; /* Once value */ - static val_t once_value_290; /* Once value */ - static val_t once_value_291; /* Once value */ - static val_t once_value_292; /* Once value */ - static val_t once_value_293; /* Once value */ - static val_t once_value_295; /* Once value */ - static val_t once_value_297; /* Once value */ - static val_t once_value_298; /* Once value */ - static val_t once_value_299; /* Once value */ - static val_t once_value_300; /* Once value */ - static val_t once_value_302; /* Once value */ - static val_t once_value_304; /* Once value */ - static val_t once_value_305; /* Once value */ - static val_t once_value_306; /* Once value */ - static val_t once_value_307; /* Once value */ - static val_t once_value_309; /* Once value */ - static val_t once_value_311; /* Once value */ - static val_t once_value_312; /* Once value */ - static val_t once_value_313; /* Once value */ - static val_t once_value_314; /* Once value */ - static val_t once_value_316; /* Once value */ - static val_t once_value_318; /* Once value */ - static val_t once_value_319; /* Once value */ - static val_t once_value_320; /* Once value */ - static val_t once_value_321; /* Once value */ - static val_t once_value_322; /* Once value */ - static val_t once_value_323; /* Once value */ - static val_t once_value_325; /* Once value */ - static val_t once_value_326; /* Once value */ - static val_t once_value_327; /* Once value */ - static val_t once_value_328; /* Once value */ - static val_t once_value_330; /* Once value */ - static val_t once_value_331; /* Once value */ - static val_t once_value_332; /* Once value */ - static val_t once_value_333; /* Once value */ - static val_t once_value_335; /* Once value */ - static val_t once_value_336; /* Once value */ - static val_t once_value_337; /* Once value */ - static val_t once_value_338; /* Once value */ - static val_t once_value_340; /* Once value */ - static val_t once_value_341; /* Once value */ - static val_t once_value_342; /* Once value */ - static val_t once_value_343; /* Once value */ - static val_t once_value_345; /* Once value */ - static val_t once_value_346; /* Once value */ - static val_t once_value_347; /* Once value */ - static val_t once_value_348; /* Once value */ - static val_t once_value_350; /* Once value */ - static val_t once_value_352; /* Once value */ - static val_t once_value_353; /* Once value */ - static val_t once_value_354; /* Once value */ - static val_t once_value_355; /* Once value */ - static val_t once_value_357; /* Once value */ - static val_t once_value_359; /* Once value */ - static val_t once_value_360; /* Once value */ - static val_t once_value_361; /* Once value */ - static val_t once_value_362; /* Once value */ - static val_t once_value_363; /* Once value */ - static val_t once_value_364; /* Once value */ - static val_t once_value_366; /* Once value */ - static val_t once_value_367; /* Once value */ - static val_t once_value_368; /* Once value */ - static val_t once_value_369; /* Once value */ - static val_t once_value_371; /* Once value */ - static val_t once_value_373; /* Once value */ - static val_t once_value_374; /* Once value */ - static val_t once_value_375; /* Once value */ - static val_t once_value_376; /* Once value */ - static val_t once_value_378; /* Once value */ - static val_t once_value_380; /* Once value */ - static val_t once_value_382; /* Once value */ - static val_t once_value_383; /* Once value */ - static val_t once_value_384; /* Once value */ - static val_t once_value_385; /* Once value */ - static val_t once_value_387; /* Once value */ - static val_t once_value_389; /* Once value */ - static val_t once_value_391; /* Once value */ - static val_t once_value_392; /* Once value */ - static val_t once_value_393; /* Once value */ - static val_t once_value_394; /* Once value */ - static val_t once_value_395; /* Once value */ - static val_t once_value_396; /* Once value */ - static val_t once_value_398; /* Once value */ - static val_t once_value_399; /* Once value */ - static val_t once_value_400; /* Once value */ - static val_t once_value_401; /* Once value */ - static val_t once_value_403; /* Once value */ - static val_t once_value_404; /* Once value */ - static val_t once_value_405; /* Once value */ - static val_t once_value_406; /* Once value */ - static val_t once_value_408; /* Once value */ - static val_t once_value_410; /* Once value */ - static val_t once_value_411; /* Once value */ - static val_t once_value_412; /* Once value */ - static val_t once_value_413; /* Once value */ - static val_t once_value_415; /* Once value */ - static val_t once_value_417; /* Once value */ - static val_t once_value_419; /* Once value */ - static val_t once_value_420; /* Once value */ - static val_t once_value_421; /* Once value */ - static val_t once_value_422; /* Once value */ - static val_t once_value_424; /* Once value */ - static val_t once_value_426; /* Once value */ - static val_t once_value_428; /* Once value */ - static val_t once_value_430; /* Once value */ - static val_t once_value_432; /* Once value */ - static val_t once_value_433; /* Once value */ - static val_t once_value_434; /* Once value */ - static val_t once_value_435; /* Once value */ - static val_t once_value_436; /* Once value */ - static val_t once_value_437; /* Once value */ - static val_t once_value_438; /* Once value */ - static val_t once_value_439; /* Once value */ - static val_t once_value_440; /* Once value */ - static val_t once_value_441; /* Once value */ - static val_t once_value_442; /* Once value */ - static val_t once_value_443; /* Once value */ - static val_t once_value_445; /* Once value */ - static val_t once_value_446; /* Once value */ - static val_t once_value_447; /* Once value */ - static val_t once_value_448; /* Once value */ - static val_t once_value_450; /* Once value */ - static val_t once_value_451; /* Once value */ - static val_t once_value_452; /* Once value */ - static val_t once_value_453; /* Once value */ - static val_t once_value_454; /* Once value */ - static val_t once_value_455; /* Once value */ - static val_t once_value_456; /* Once value */ - static val_t once_value_458; /* Once value */ - static val_t once_value_460; /* Once value */ - static val_t once_value_461; /* Once value */ - static val_t once_value_462; /* Once value */ - static val_t once_value_463; /* Once value */ - static val_t once_value_465; /* Once value */ - static val_t once_value_466; /* Once value */ - static val_t once_value_467; /* Once value */ - static val_t once_value_468; /* Once value */ - static val_t once_value_470; /* Once value */ - static val_t once_value_471; /* Once value */ - static val_t once_value_472; /* Once value */ - static val_t once_value_473; /* Once value */ - static val_t once_value_475; /* Once value */ - static val_t once_value_476; /* Once value */ - static val_t once_value_477; /* Once value */ - static val_t once_value_478; /* Once value */ - static val_t once_value_480; /* Once value */ - static val_t once_value_481; /* Once value */ - static val_t once_value_482; /* Once value */ - static val_t once_value_483; /* Once value */ - static val_t once_value_485; /* Once value */ - static val_t once_value_486; /* Once value */ - static val_t once_value_487; /* Once value */ - static val_t once_value_488; /* Once value */ - static val_t once_value_489; /* Once value */ - static val_t once_value_490; /* Once value */ - static val_t once_value_491; /* Once value */ - static val_t once_value_492; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 722; - fra.me.meth = LOCATE_compiling___compiling_icode___INative___compile_intern_method_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 8; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[4] = NIT_NULL; - fra.me.REG[5] = NIT_NULL; - fra.me.REG[6] = NIT_NULL; - fra.me.REG[7] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:724 */ - fra.me.REG[2] = CALL_icode___icode_base___INative___method(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[2] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[2])(fra.me.REG[2]); - /* compiling/compiling_icode.nit:725 */ - fra.me.REG[3] = CALL_icode___icode_base___ICodeN___exprs(fra.me.REG[0])(fra.me.REG[0]); - REGB0 = CALL_standard___collection___abstract_collection___Collection___length(fra.me.REG[3])(fra.me.REG[3]); - REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 725); - } - REGB1 = CALL_metamodel___static_type___MMSignature___arity(fra.me.REG[2])(fra.me.REG[2]); - REGB2 = TAG_Int(1); - /* ../lib/standard/kernel.nit:245 */ - REGB2 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB2)); - /* compiling/compiling_icode.nit:725 */ - REGB1 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB2)); - if (UNTAG_Bool(REGB1)) { - } else { - /* ../lib/standard/kernel.nit:237 */ - REGB2 = TAG_Bool((REGB0)==(REGB2)); - /* compiling/compiling_icode.nit:725 */ - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - } else { - nit_abort("Assert failed", NULL, LOCATE_compiling___compiling_icode, 725); - } - /* compiling/compiling_icode.nit:726 */ - fra.me.REG[2] = CALL_icode___icode_base___INative___method(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalProperty___local_class(fra.me.REG[2])(fra.me.REG[2]); - fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___name(fra.me.REG[2])(fra.me.REG[2]); - /* compiling/compiling_icode.nit:727 */ - fra.me.REG[3] = CALL_icode___icode_base___INative___method(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___name(fra.me.REG[3])(fra.me.REG[3]); - /* compiling/compiling_icode.nit:728 */ - fra.me.REG[4] = CALL_icode___icode_base___ICodeN___exprs(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[4] = CALL_compiling___compiling_icode___I2CCompilerVisitor___registers(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); - /* compiling/compiling_icode.nit:729 */ - fra.me.REG[5] = NIT_NULL; - /* compiling/compiling_icode.nit:730 */ - if (!once_value_1) { - if (!once_value_2) { - fra.me.REG[6] = BOX_NativeString("Int"); - REGB1 = TAG_Int(3); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_2 = fra.me.REG[6]; - register_static_object(&once_value_2); - } else fra.me.REG[6] = once_value_2; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_1 = fra.me.REG[6]; - register_static_object(&once_value_1); - } else fra.me.REG[6] = once_value_1; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[2],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:731 */ - if (!once_value_3) { - if (!once_value_4) { - fra.me.REG[6] = BOX_NativeString("object_id"); - REGB1 = TAG_Int(9); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_4 = fra.me.REG[6]; - register_static_object(&once_value_4); - } else fra.me.REG[6] = once_value_4; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_3 = fra.me.REG[6]; - register_static_object(&once_value_3); - } else fra.me.REG[6] = once_value_3; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:732 */ - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[6] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label5; - label5: while(0); - /* compiling/compiling_icode.nit:732 */ - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:733 */ - if (!once_value_6) { - if (!once_value_7) { - fra.me.REG[6] = BOX_NativeString("unary -"); - REGB1 = TAG_Int(7); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_7 = fra.me.REG[6]; - register_static_object(&once_value_7); - } else fra.me.REG[6] = once_value_7; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_6 = fra.me.REG[6]; - register_static_object(&once_value_6); - } else fra.me.REG[6] = once_value_6; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:734 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_8) { - fra.me.REG[7] = BOX_NativeString("TAG_Int(-UNTAG_Int("); - REGB1 = TAG_Int(19); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_8 = fra.me.REG[7]; - register_static_object(&once_value_8); - } else fra.me.REG[7] = once_value_8; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label9; - label9: while(0); - /* compiling/compiling_icode.nit:734 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_10) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_10 = fra.me.REG[7]; - register_static_object(&once_value_10); - } else fra.me.REG[7] = once_value_10; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:735 */ - if (!once_value_11) { - if (!once_value_12) { - fra.me.REG[6] = BOX_NativeString("output"); - REGB1 = TAG_Int(6); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_12 = fra.me.REG[6]; - register_static_object(&once_value_12); - } else fra.me.REG[6] = once_value_12; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_11 = fra.me.REG[6]; - register_static_object(&once_value_11); - } else fra.me.REG[6] = once_value_11; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:736 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_13) { - fra.me.REG[7] = BOX_NativeString("printf(\"%ld\\n\", UNTAG_Int("); - REGB1 = TAG_Int(26); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_13 = fra.me.REG[7]; - register_static_object(&once_value_13); - } else fra.me.REG[7] = once_value_13; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label14; - label14: while(0); - /* compiling/compiling_icode.nit:736 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_15) { - fra.me.REG[7] = BOX_NativeString("));"); - REGB1 = TAG_Int(3); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_15 = fra.me.REG[7]; - register_static_object(&once_value_15); - } else fra.me.REG[7] = once_value_15; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:737 */ - if (!once_value_16) { - if (!once_value_17) { - fra.me.REG[6] = BOX_NativeString("ascii"); - REGB1 = TAG_Int(5); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_17 = fra.me.REG[6]; - register_static_object(&once_value_17); - } else fra.me.REG[6] = once_value_17; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_16 = fra.me.REG[6]; - register_static_object(&once_value_16); - } else fra.me.REG[6] = once_value_16; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:738 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_18) { - fra.me.REG[7] = BOX_NativeString("TAG_Char(UNTAG_Int("); - REGB1 = TAG_Int(19); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_18 = fra.me.REG[7]; - register_static_object(&once_value_18); - } else fra.me.REG[7] = once_value_18; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label19; - label19: while(0); - /* compiling/compiling_icode.nit:738 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_20) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_20 = fra.me.REG[7]; - register_static_object(&once_value_20); - } else fra.me.REG[7] = once_value_20; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:739 */ - if (!once_value_21) { - if (!once_value_22) { - fra.me.REG[6] = BOX_NativeString("succ"); - REGB1 = TAG_Int(4); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_22 = fra.me.REG[6]; - register_static_object(&once_value_22); - } else fra.me.REG[6] = once_value_22; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_21 = fra.me.REG[6]; - register_static_object(&once_value_21); - } else fra.me.REG[6] = once_value_21; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:740 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_23) { - fra.me.REG[7] = BOX_NativeString("TAG_Int(UNTAG_Int("); - REGB1 = TAG_Int(18); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_23 = fra.me.REG[7]; - register_static_object(&once_value_23); - } else fra.me.REG[7] = once_value_23; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label24; - label24: while(0); - /* compiling/compiling_icode.nit:740 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_25) { - fra.me.REG[7] = BOX_NativeString(")+1)"); - REGB1 = TAG_Int(4); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_25 = fra.me.REG[7]; - register_static_object(&once_value_25); - } else fra.me.REG[7] = once_value_25; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:741 */ - if (!once_value_26) { - if (!once_value_27) { - fra.me.REG[6] = BOX_NativeString("prec"); - REGB1 = TAG_Int(4); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_27 = fra.me.REG[6]; - register_static_object(&once_value_27); - } else fra.me.REG[6] = once_value_27; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_26 = fra.me.REG[6]; - register_static_object(&once_value_26); - } else fra.me.REG[6] = once_value_26; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:742 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_28) { - fra.me.REG[7] = BOX_NativeString("TAG_Int(UNTAG_Int("); - REGB1 = TAG_Int(18); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_28 = fra.me.REG[7]; - register_static_object(&once_value_28); - } else fra.me.REG[7] = once_value_28; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label29; - label29: while(0); - /* compiling/compiling_icode.nit:742 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_30) { - fra.me.REG[7] = BOX_NativeString(")-1)"); - REGB1 = TAG_Int(4); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_30 = fra.me.REG[7]; - register_static_object(&once_value_30); - } else fra.me.REG[7] = once_value_30; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:743 */ - if (!once_value_31) { - if (!once_value_32) { - fra.me.REG[6] = BOX_NativeString("to_f"); - REGB1 = TAG_Int(4); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_32 = fra.me.REG[6]; - register_static_object(&once_value_32); - } else fra.me.REG[6] = once_value_32; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_31 = fra.me.REG[6]; - register_static_object(&once_value_31); - } else fra.me.REG[6] = once_value_31; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:744 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_33) { - fra.me.REG[7] = BOX_NativeString("BOX_Float((float)UNTAG_Int("); - REGB1 = TAG_Int(27); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_33 = fra.me.REG[7]; - register_static_object(&once_value_33); - } else fra.me.REG[7] = once_value_33; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label34; - label34: while(0); - /* compiling/compiling_icode.nit:744 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_35) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_35 = fra.me.REG[7]; - register_static_object(&once_value_35); - } else fra.me.REG[7] = once_value_35; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:745 */ - if (!once_value_36) { - if (!once_value_37) { - fra.me.REG[6] = BOX_NativeString("+"); - REGB1 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_37 = fra.me.REG[6]; - register_static_object(&once_value_37); - } else fra.me.REG[6] = once_value_37; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_36 = fra.me.REG[6]; - register_static_object(&once_value_36); - } else fra.me.REG[6] = once_value_36; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:746 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_38) { - fra.me.REG[7] = BOX_NativeString("TAG_Int(UNTAG_Int("); - REGB1 = TAG_Int(18); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_38 = fra.me.REG[7]; - register_static_object(&once_value_38); - } else fra.me.REG[7] = once_value_38; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label39; - label39: while(0); - /* compiling/compiling_icode.nit:746 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_40) { - fra.me.REG[7] = BOX_NativeString(")+UNTAG_Int("); - REGB1 = TAG_Int(12); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_40 = fra.me.REG[7]; - register_static_object(&once_value_40); - } else fra.me.REG[7] = once_value_40; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label41; - label41: while(0); - /* compiling/compiling_icode.nit:746 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_42) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_42 = fra.me.REG[7]; - register_static_object(&once_value_42); - } else fra.me.REG[7] = once_value_42; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:747 */ - if (!once_value_43) { - if (!once_value_44) { - fra.me.REG[6] = BOX_NativeString("-"); - REGB1 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_44 = fra.me.REG[6]; - register_static_object(&once_value_44); - } else fra.me.REG[6] = once_value_44; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_43 = fra.me.REG[6]; - register_static_object(&once_value_43); - } else fra.me.REG[6] = once_value_43; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:748 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_45) { - fra.me.REG[7] = BOX_NativeString("TAG_Int(UNTAG_Int("); - REGB1 = TAG_Int(18); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_45 = fra.me.REG[7]; - register_static_object(&once_value_45); - } else fra.me.REG[7] = once_value_45; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label46; - label46: while(0); - /* compiling/compiling_icode.nit:748 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_47) { - fra.me.REG[7] = BOX_NativeString(")-UNTAG_Int("); - REGB1 = TAG_Int(12); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_47 = fra.me.REG[7]; - register_static_object(&once_value_47); - } else fra.me.REG[7] = once_value_47; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label48; - label48: while(0); - /* compiling/compiling_icode.nit:748 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_49) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_49 = fra.me.REG[7]; - register_static_object(&once_value_49); - } else fra.me.REG[7] = once_value_49; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:749 */ - if (!once_value_50) { - if (!once_value_51) { - fra.me.REG[6] = BOX_NativeString("*"); - REGB1 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_51 = fra.me.REG[6]; - register_static_object(&once_value_51); - } else fra.me.REG[6] = once_value_51; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_50 = fra.me.REG[6]; - register_static_object(&once_value_50); - } else fra.me.REG[6] = once_value_50; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:750 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_52) { - fra.me.REG[7] = BOX_NativeString("TAG_Int(UNTAG_Int("); - REGB1 = TAG_Int(18); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_52 = fra.me.REG[7]; - register_static_object(&once_value_52); - } else fra.me.REG[7] = once_value_52; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label53; - label53: while(0); - /* compiling/compiling_icode.nit:750 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_54) { - fra.me.REG[7] = BOX_NativeString(")*UNTAG_Int("); - REGB1 = TAG_Int(12); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_54 = fra.me.REG[7]; - register_static_object(&once_value_54); - } else fra.me.REG[7] = once_value_54; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label55; - label55: while(0); - /* compiling/compiling_icode.nit:750 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_56) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_56 = fra.me.REG[7]; - register_static_object(&once_value_56); - } else fra.me.REG[7] = once_value_56; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:751 */ - if (!once_value_57) { - if (!once_value_58) { - fra.me.REG[6] = BOX_NativeString("/"); - REGB1 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_58 = fra.me.REG[6]; - register_static_object(&once_value_58); - } else fra.me.REG[6] = once_value_58; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_57 = fra.me.REG[6]; - register_static_object(&once_value_57); - } else fra.me.REG[6] = once_value_57; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:752 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_59) { - fra.me.REG[7] = BOX_NativeString("TAG_Int(UNTAG_Int("); - REGB1 = TAG_Int(18); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_59 = fra.me.REG[7]; - register_static_object(&once_value_59); - } else fra.me.REG[7] = once_value_59; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label60; - label60: while(0); - /* compiling/compiling_icode.nit:752 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_61) { - fra.me.REG[7] = BOX_NativeString(")/UNTAG_Int("); - REGB1 = TAG_Int(12); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_61 = fra.me.REG[7]; - register_static_object(&once_value_61); - } else fra.me.REG[7] = once_value_61; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label62; - label62: while(0); - /* compiling/compiling_icode.nit:752 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_63) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_63 = fra.me.REG[7]; - register_static_object(&once_value_63); - } else fra.me.REG[7] = once_value_63; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:753 */ - if (!once_value_64) { - if (!once_value_65) { - fra.me.REG[6] = BOX_NativeString("%"); - REGB1 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_65 = fra.me.REG[6]; - register_static_object(&once_value_65); - } else fra.me.REG[6] = once_value_65; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_64 = fra.me.REG[6]; - register_static_object(&once_value_64); - } else fra.me.REG[6] = once_value_64; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:754 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_66) { - fra.me.REG[7] = BOX_NativeString("TAG_Int(UNTAG_Int("); - REGB1 = TAG_Int(18); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_66 = fra.me.REG[7]; - register_static_object(&once_value_66); - } else fra.me.REG[7] = once_value_66; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label67; - label67: while(0); - /* compiling/compiling_icode.nit:754 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_68) { - fra.me.REG[7] = BOX_NativeString(")%UNTAG_Int("); - REGB1 = TAG_Int(12); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_68 = fra.me.REG[7]; - register_static_object(&once_value_68); - } else fra.me.REG[7] = once_value_68; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label69; - label69: while(0); - /* compiling/compiling_icode.nit:754 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_70) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_70 = fra.me.REG[7]; - register_static_object(&once_value_70); - } else fra.me.REG[7] = once_value_70; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:755 */ - if (!once_value_71) { - if (!once_value_72) { - fra.me.REG[6] = BOX_NativeString("<"); - REGB1 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_72 = fra.me.REG[6]; - register_static_object(&once_value_72); - } else fra.me.REG[6] = once_value_72; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_71 = fra.me.REG[6]; - register_static_object(&once_value_71); - } else fra.me.REG[6] = once_value_71; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:756 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_73) { - fra.me.REG[7] = BOX_NativeString("TAG_Bool(UNTAG_Int("); - REGB1 = TAG_Int(19); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_73 = fra.me.REG[7]; - register_static_object(&once_value_73); - } else fra.me.REG[7] = once_value_73; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label74; - label74: while(0); - /* compiling/compiling_icode.nit:756 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_75) { - fra.me.REG[7] = BOX_NativeString(")=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label76; - label76: while(0); - /* compiling/compiling_icode.nit:756 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_77) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_77 = fra.me.REG[7]; - register_static_object(&once_value_77); - } else fra.me.REG[7] = once_value_77; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:757 */ - if (!once_value_78) { - if (!once_value_79) { - fra.me.REG[6] = BOX_NativeString(">"); - REGB1 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_79 = fra.me.REG[6]; - register_static_object(&once_value_79); - } else fra.me.REG[6] = once_value_79; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_78 = fra.me.REG[6]; - register_static_object(&once_value_78); - } else fra.me.REG[6] = once_value_78; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:758 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_80) { - fra.me.REG[7] = BOX_NativeString("TAG_Bool(UNTAG_Int("); - REGB1 = TAG_Int(19); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_80 = fra.me.REG[7]; - register_static_object(&once_value_80); - } else fra.me.REG[7] = once_value_80; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label81; - label81: while(0); - /* compiling/compiling_icode.nit:758 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_82) { - fra.me.REG[7] = BOX_NativeString(")>UNTAG_Int("); - REGB1 = TAG_Int(12); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_82 = fra.me.REG[7]; - register_static_object(&once_value_82); - } else fra.me.REG[7] = once_value_82; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label83; - label83: while(0); - /* compiling/compiling_icode.nit:758 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_84) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_84 = fra.me.REG[7]; - register_static_object(&once_value_84); - } else fra.me.REG[7] = once_value_84; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:759 */ - if (!once_value_85) { - if (!once_value_86) { - fra.me.REG[6] = BOX_NativeString("<="); - REGB1 = TAG_Int(2); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_86 = fra.me.REG[6]; - register_static_object(&once_value_86); - } else fra.me.REG[6] = once_value_86; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_85 = fra.me.REG[6]; - register_static_object(&once_value_85); - } else fra.me.REG[6] = once_value_85; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:760 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_87) { - fra.me.REG[7] = BOX_NativeString("TAG_Bool(UNTAG_Int("); - REGB1 = TAG_Int(19); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_87 = fra.me.REG[7]; - register_static_object(&once_value_87); - } else fra.me.REG[7] = once_value_87; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label88; - label88: while(0); - /* compiling/compiling_icode.nit:760 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_89) { - fra.me.REG[7] = BOX_NativeString(")<=UNTAG_Int("); - REGB1 = TAG_Int(13); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_89 = fra.me.REG[7]; - register_static_object(&once_value_89); - } else fra.me.REG[7] = once_value_89; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label90; - label90: while(0); - /* compiling/compiling_icode.nit:760 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_91) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_91 = fra.me.REG[7]; - register_static_object(&once_value_91); - } else fra.me.REG[7] = once_value_91; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:761 */ - if (!once_value_92) { - if (!once_value_93) { - fra.me.REG[6] = BOX_NativeString(">="); - REGB1 = TAG_Int(2); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_93 = fra.me.REG[6]; - register_static_object(&once_value_93); - } else fra.me.REG[6] = once_value_93; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_92 = fra.me.REG[6]; - register_static_object(&once_value_92); - } else fra.me.REG[6] = once_value_92; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:762 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_94) { - fra.me.REG[7] = BOX_NativeString("TAG_Bool(UNTAG_Int("); - REGB1 = TAG_Int(19); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_94 = fra.me.REG[7]; - register_static_object(&once_value_94); - } else fra.me.REG[7] = once_value_94; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label95; - label95: while(0); - /* compiling/compiling_icode.nit:762 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_96) { - fra.me.REG[7] = BOX_NativeString(")>=UNTAG_Int("); - REGB1 = TAG_Int(13); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_96 = fra.me.REG[7]; - register_static_object(&once_value_96); - } else fra.me.REG[7] = once_value_96; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label97; - label97: while(0); - /* compiling/compiling_icode.nit:762 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_98) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_98 = fra.me.REG[7]; - register_static_object(&once_value_98); - } else fra.me.REG[7] = once_value_98; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:763 */ - if (!once_value_99) { - if (!once_value_100) { - fra.me.REG[6] = BOX_NativeString("lshift"); - REGB1 = TAG_Int(6); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_100 = fra.me.REG[6]; - register_static_object(&once_value_100); - } else fra.me.REG[6] = once_value_100; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_99 = fra.me.REG[6]; - register_static_object(&once_value_99); - } else fra.me.REG[6] = once_value_99; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:764 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_101) { - fra.me.REG[7] = BOX_NativeString("TAG_Int(UNTAG_Int("); - REGB1 = TAG_Int(18); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_101 = fra.me.REG[7]; - register_static_object(&once_value_101); - } else fra.me.REG[7] = once_value_101; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label102; - label102: while(0); - /* compiling/compiling_icode.nit:764 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_103) { - fra.me.REG[7] = BOX_NativeString(")<=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label104; - label104: while(0); - /* compiling/compiling_icode.nit:764 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_105) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_105 = fra.me.REG[7]; - register_static_object(&once_value_105); - } else fra.me.REG[7] = once_value_105; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:765 */ - if (!once_value_106) { - if (!once_value_107) { - fra.me.REG[6] = BOX_NativeString("rshift"); - REGB1 = TAG_Int(6); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_107 = fra.me.REG[6]; - register_static_object(&once_value_107); - } else fra.me.REG[6] = once_value_107; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_106 = fra.me.REG[6]; - register_static_object(&once_value_106); - } else fra.me.REG[6] = once_value_106; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:766 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_108) { - fra.me.REG[7] = BOX_NativeString("TAG_Int(UNTAG_Int("); - REGB1 = TAG_Int(18); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_108 = fra.me.REG[7]; - register_static_object(&once_value_108); - } else fra.me.REG[7] = once_value_108; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label109; - label109: while(0); - /* compiling/compiling_icode.nit:766 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_110) { - fra.me.REG[7] = BOX_NativeString(")>>UNTAG_Int("); - REGB1 = TAG_Int(13); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_110 = fra.me.REG[7]; - register_static_object(&once_value_110); - } else fra.me.REG[7] = once_value_110; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label111; - label111: while(0); - /* compiling/compiling_icode.nit:766 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_112) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_112 = fra.me.REG[7]; - register_static_object(&once_value_112); - } else fra.me.REG[7] = once_value_112; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:767 */ - if (!once_value_113) { - if (!once_value_114) { - fra.me.REG[6] = BOX_NativeString("=="); - REGB1 = TAG_Int(2); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_114 = fra.me.REG[6]; - register_static_object(&once_value_114); - } else fra.me.REG[6] = once_value_114; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_113 = fra.me.REG[6]; - register_static_object(&once_value_113); - } else fra.me.REG[6] = once_value_113; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:768 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_115) { - fra.me.REG[7] = BOX_NativeString("TAG_Bool(("); - REGB1 = TAG_Int(10); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_115 = fra.me.REG[7]; - register_static_object(&once_value_115); - } else fra.me.REG[7] = once_value_115; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label116; - label116: while(0); - /* compiling/compiling_icode.nit:768 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_117) { - fra.me.REG[7] = BOX_NativeString(")==("); - REGB1 = TAG_Int(4); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_117 = fra.me.REG[7]; - register_static_object(&once_value_117); - } else fra.me.REG[7] = once_value_117; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label118; - label118: while(0); - /* compiling/compiling_icode.nit:768 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_119) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_119 = fra.me.REG[7]; - register_static_object(&once_value_119); - } else fra.me.REG[7] = once_value_119; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:769 */ - if (!once_value_120) { - if (!once_value_121) { - fra.me.REG[6] = BOX_NativeString("!="); - REGB1 = TAG_Int(2); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_121 = fra.me.REG[6]; - register_static_object(&once_value_121); - } else fra.me.REG[6] = once_value_121; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_120 = fra.me.REG[6]; - register_static_object(&once_value_120); - } else fra.me.REG[6] = once_value_120; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:770 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_122) { - fra.me.REG[7] = BOX_NativeString("TAG_Bool(("); - REGB1 = TAG_Int(10); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_122 = fra.me.REG[7]; - register_static_object(&once_value_122); - } else fra.me.REG[7] = once_value_122; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label123; - label123: while(0); - /* compiling/compiling_icode.nit:770 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_124) { - fra.me.REG[7] = BOX_NativeString(")!=("); - REGB1 = TAG_Int(4); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_124 = fra.me.REG[7]; - register_static_object(&once_value_124); - } else fra.me.REG[7] = once_value_124; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label125; - label125: while(0); - /* compiling/compiling_icode.nit:770 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_126) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_126 = fra.me.REG[7]; - register_static_object(&once_value_126); - } else fra.me.REG[7] = once_value_126; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } - } - } - } - } - } - } - } - } - } - } - } - } - } - } - } - } - } - } - } - } else { - /* compiling/compiling_icode.nit:772 */ - if (!once_value_127) { - if (!once_value_128) { - fra.me.REG[6] = BOX_NativeString("Float"); - REGB1 = TAG_Int(5); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_128 = fra.me.REG[6]; - register_static_object(&once_value_128); - } else fra.me.REG[6] = once_value_128; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_127 = fra.me.REG[6]; - register_static_object(&once_value_127); - } else fra.me.REG[6] = once_value_127; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[2],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:773 */ - if (!once_value_129) { - if (!once_value_130) { - fra.me.REG[6] = BOX_NativeString("object_id"); - REGB1 = TAG_Int(9); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_130 = fra.me.REG[6]; - register_static_object(&once_value_130); - } else fra.me.REG[6] = once_value_130; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_129 = fra.me.REG[6]; - register_static_object(&once_value_129); - } else fra.me.REG[6] = once_value_129; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:774 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_131) { - fra.me.REG[7] = BOX_NativeString("TAG_Int((bigint)UNBOX_Float("); - REGB1 = TAG_Int(28); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_131 = fra.me.REG[7]; - register_static_object(&once_value_131); - } else fra.me.REG[7] = once_value_131; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label132; - label132: while(0); - /* compiling/compiling_icode.nit:774 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_133) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_133 = fra.me.REG[7]; - register_static_object(&once_value_133); - } else fra.me.REG[7] = once_value_133; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:775 */ - if (!once_value_134) { - if (!once_value_135) { - fra.me.REG[6] = BOX_NativeString("unary -"); - REGB1 = TAG_Int(7); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_135 = fra.me.REG[6]; - register_static_object(&once_value_135); - } else fra.me.REG[6] = once_value_135; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_134 = fra.me.REG[6]; - register_static_object(&once_value_134); - } else fra.me.REG[6] = once_value_134; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:776 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_136) { - fra.me.REG[7] = BOX_NativeString("BOX_Float(-UNBOX_Float("); - REGB1 = TAG_Int(23); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_136 = fra.me.REG[7]; - register_static_object(&once_value_136); - } else fra.me.REG[7] = once_value_136; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label137; - label137: while(0); - /* compiling/compiling_icode.nit:776 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_138) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_138 = fra.me.REG[7]; - register_static_object(&once_value_138); - } else fra.me.REG[7] = once_value_138; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:777 */ - if (!once_value_139) { - if (!once_value_140) { - fra.me.REG[6] = BOX_NativeString("output"); - REGB1 = TAG_Int(6); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_140 = fra.me.REG[6]; - register_static_object(&once_value_140); - } else fra.me.REG[6] = once_value_140; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_139 = fra.me.REG[6]; - register_static_object(&once_value_139); - } else fra.me.REG[6] = once_value_139; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:778 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_141) { - fra.me.REG[7] = BOX_NativeString("printf(\"%f\\n\", UNBOX_Float("); - REGB1 = TAG_Int(27); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_141 = fra.me.REG[7]; - register_static_object(&once_value_141); - } else fra.me.REG[7] = once_value_141; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label142; - label142: while(0); - /* compiling/compiling_icode.nit:778 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_143) { - fra.me.REG[7] = BOX_NativeString("));"); - REGB1 = TAG_Int(3); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_143 = fra.me.REG[7]; - register_static_object(&once_value_143); - } else fra.me.REG[7] = once_value_143; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:779 */ - if (!once_value_144) { - if (!once_value_145) { - fra.me.REG[6] = BOX_NativeString("to_i"); - REGB1 = TAG_Int(4); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_145 = fra.me.REG[6]; - register_static_object(&once_value_145); - } else fra.me.REG[6] = once_value_145; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_144 = fra.me.REG[6]; - register_static_object(&once_value_144); - } else fra.me.REG[6] = once_value_144; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:780 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_146) { - fra.me.REG[7] = BOX_NativeString("TAG_Int((bigint)UNBOX_Float("); - REGB1 = TAG_Int(28); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_146 = fra.me.REG[7]; - register_static_object(&once_value_146); - } else fra.me.REG[7] = once_value_146; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label147; - label147: while(0); - /* compiling/compiling_icode.nit:780 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_148) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_148 = fra.me.REG[7]; - register_static_object(&once_value_148); - } else fra.me.REG[7] = once_value_148; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:781 */ - if (!once_value_149) { - if (!once_value_150) { - fra.me.REG[6] = BOX_NativeString("+"); - REGB1 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_150 = fra.me.REG[6]; - register_static_object(&once_value_150); - } else fra.me.REG[6] = once_value_150; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_149 = fra.me.REG[6]; - register_static_object(&once_value_149); - } else fra.me.REG[6] = once_value_149; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:782 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_151) { - fra.me.REG[7] = BOX_NativeString("BOX_Float(UNBOX_Float("); - REGB1 = TAG_Int(22); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_151 = fra.me.REG[7]; - register_static_object(&once_value_151); - } else fra.me.REG[7] = once_value_151; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label152; - label152: while(0); - /* compiling/compiling_icode.nit:782 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_153) { - fra.me.REG[7] = BOX_NativeString(")+UNBOX_Float("); - REGB1 = TAG_Int(14); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_153 = fra.me.REG[7]; - register_static_object(&once_value_153); - } else fra.me.REG[7] = once_value_153; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label154; - label154: while(0); - /* compiling/compiling_icode.nit:782 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_155) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_155 = fra.me.REG[7]; - register_static_object(&once_value_155); - } else fra.me.REG[7] = once_value_155; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:783 */ - if (!once_value_156) { - if (!once_value_157) { - fra.me.REG[6] = BOX_NativeString("-"); - REGB1 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_157 = fra.me.REG[6]; - register_static_object(&once_value_157); - } else fra.me.REG[6] = once_value_157; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_156 = fra.me.REG[6]; - register_static_object(&once_value_156); - } else fra.me.REG[6] = once_value_156; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:784 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_158) { - fra.me.REG[7] = BOX_NativeString("BOX_Float(UNBOX_Float("); - REGB1 = TAG_Int(22); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_158 = fra.me.REG[7]; - register_static_object(&once_value_158); - } else fra.me.REG[7] = once_value_158; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label159; - label159: while(0); - /* compiling/compiling_icode.nit:784 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_160) { - fra.me.REG[7] = BOX_NativeString(")-UNBOX_Float("); - REGB1 = TAG_Int(14); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_160 = fra.me.REG[7]; - register_static_object(&once_value_160); - } else fra.me.REG[7] = once_value_160; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label161; - label161: while(0); - /* compiling/compiling_icode.nit:784 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_162) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_162 = fra.me.REG[7]; - register_static_object(&once_value_162); - } else fra.me.REG[7] = once_value_162; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:785 */ - if (!once_value_163) { - if (!once_value_164) { - fra.me.REG[6] = BOX_NativeString("*"); - REGB1 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_164 = fra.me.REG[6]; - register_static_object(&once_value_164); - } else fra.me.REG[6] = once_value_164; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_163 = fra.me.REG[6]; - register_static_object(&once_value_163); - } else fra.me.REG[6] = once_value_163; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:786 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_165) { - fra.me.REG[7] = BOX_NativeString("BOX_Float(UNBOX_Float("); - REGB1 = TAG_Int(22); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_165 = fra.me.REG[7]; - register_static_object(&once_value_165); - } else fra.me.REG[7] = once_value_165; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label166; - label166: while(0); - /* compiling/compiling_icode.nit:786 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_167) { - fra.me.REG[7] = BOX_NativeString(")*UNBOX_Float("); - REGB1 = TAG_Int(14); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_167 = fra.me.REG[7]; - register_static_object(&once_value_167); - } else fra.me.REG[7] = once_value_167; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label168; - label168: while(0); - /* compiling/compiling_icode.nit:786 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_169) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_169 = fra.me.REG[7]; - register_static_object(&once_value_169); - } else fra.me.REG[7] = once_value_169; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:787 */ - if (!once_value_170) { - if (!once_value_171) { - fra.me.REG[6] = BOX_NativeString("/"); - REGB1 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_171 = fra.me.REG[6]; - register_static_object(&once_value_171); - } else fra.me.REG[6] = once_value_171; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_170 = fra.me.REG[6]; - register_static_object(&once_value_170); - } else fra.me.REG[6] = once_value_170; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:788 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_172) { - fra.me.REG[7] = BOX_NativeString("BOX_Float(UNBOX_Float("); - REGB1 = TAG_Int(22); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_172 = fra.me.REG[7]; - register_static_object(&once_value_172); - } else fra.me.REG[7] = once_value_172; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label173; - label173: while(0); - /* compiling/compiling_icode.nit:788 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_174) { - fra.me.REG[7] = BOX_NativeString(")/UNBOX_Float("); - REGB1 = TAG_Int(14); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_174 = fra.me.REG[7]; - register_static_object(&once_value_174); - } else fra.me.REG[7] = once_value_174; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label175; - label175: while(0); - /* compiling/compiling_icode.nit:788 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_176) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_176 = fra.me.REG[7]; - register_static_object(&once_value_176); - } else fra.me.REG[7] = once_value_176; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:789 */ - if (!once_value_177) { - if (!once_value_178) { - fra.me.REG[6] = BOX_NativeString("<"); - REGB1 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_178 = fra.me.REG[6]; - register_static_object(&once_value_178); - } else fra.me.REG[6] = once_value_178; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_177 = fra.me.REG[6]; - register_static_object(&once_value_177); - } else fra.me.REG[6] = once_value_177; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:790 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_179) { - fra.me.REG[7] = BOX_NativeString("TAG_Bool(UNBOX_Float("); - REGB1 = TAG_Int(21); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_179 = fra.me.REG[7]; - register_static_object(&once_value_179); - } else fra.me.REG[7] = once_value_179; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label180; - label180: while(0); - /* compiling/compiling_icode.nit:790 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_181) { - fra.me.REG[7] = BOX_NativeString(")=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label182; - label182: while(0); - /* compiling/compiling_icode.nit:790 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_183) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_183 = fra.me.REG[7]; - register_static_object(&once_value_183); - } else fra.me.REG[7] = once_value_183; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:791 */ - if (!once_value_184) { - if (!once_value_185) { - fra.me.REG[6] = BOX_NativeString(">"); - REGB1 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_185 = fra.me.REG[6]; - register_static_object(&once_value_185); - } else fra.me.REG[6] = once_value_185; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_184 = fra.me.REG[6]; - register_static_object(&once_value_184); - } else fra.me.REG[6] = once_value_184; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:792 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_186) { - fra.me.REG[7] = BOX_NativeString("TAG_Bool(UNBOX_Float("); - REGB1 = TAG_Int(21); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_186 = fra.me.REG[7]; - register_static_object(&once_value_186); - } else fra.me.REG[7] = once_value_186; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label187; - label187: while(0); - /* compiling/compiling_icode.nit:792 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_188) { - fra.me.REG[7] = BOX_NativeString(")>UNBOX_Float("); - REGB1 = TAG_Int(14); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_188 = fra.me.REG[7]; - register_static_object(&once_value_188); - } else fra.me.REG[7] = once_value_188; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label189; - label189: while(0); - /* compiling/compiling_icode.nit:792 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_190) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_190 = fra.me.REG[7]; - register_static_object(&once_value_190); - } else fra.me.REG[7] = once_value_190; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:793 */ - if (!once_value_191) { - if (!once_value_192) { - fra.me.REG[6] = BOX_NativeString("<="); - REGB1 = TAG_Int(2); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_192 = fra.me.REG[6]; - register_static_object(&once_value_192); - } else fra.me.REG[6] = once_value_192; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_191 = fra.me.REG[6]; - register_static_object(&once_value_191); - } else fra.me.REG[6] = once_value_191; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:794 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_193) { - fra.me.REG[7] = BOX_NativeString("TAG_Bool(UNBOX_Float("); - REGB1 = TAG_Int(21); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_193 = fra.me.REG[7]; - register_static_object(&once_value_193); - } else fra.me.REG[7] = once_value_193; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label194; - label194: while(0); - /* compiling/compiling_icode.nit:794 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_195) { - fra.me.REG[7] = BOX_NativeString(")<=UNBOX_Float("); - REGB1 = TAG_Int(15); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_195 = fra.me.REG[7]; - register_static_object(&once_value_195); - } else fra.me.REG[7] = once_value_195; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label196; - label196: while(0); - /* compiling/compiling_icode.nit:794 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_197) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_197 = fra.me.REG[7]; - register_static_object(&once_value_197); - } else fra.me.REG[7] = once_value_197; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:795 */ - if (!once_value_198) { - if (!once_value_199) { - fra.me.REG[6] = BOX_NativeString(">="); - REGB1 = TAG_Int(2); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_199 = fra.me.REG[6]; - register_static_object(&once_value_199); - } else fra.me.REG[6] = once_value_199; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_198 = fra.me.REG[6]; - register_static_object(&once_value_198); - } else fra.me.REG[6] = once_value_198; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:796 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_200) { - fra.me.REG[7] = BOX_NativeString("TAG_Bool(UNBOX_Float("); - REGB1 = TAG_Int(21); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_200 = fra.me.REG[7]; - register_static_object(&once_value_200); - } else fra.me.REG[7] = once_value_200; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label201; - label201: while(0); - /* compiling/compiling_icode.nit:796 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_202) { - fra.me.REG[7] = BOX_NativeString(")>=UNBOX_Float("); - REGB1 = TAG_Int(15); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_202 = fra.me.REG[7]; - register_static_object(&once_value_202); - } else fra.me.REG[7] = once_value_202; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label203; - label203: while(0); - /* compiling/compiling_icode.nit:796 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_204) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_204 = fra.me.REG[7]; - register_static_object(&once_value_204); - } else fra.me.REG[7] = once_value_204; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } - } - } - } - } - } - } - } - } - } - } - } - } else { - /* compiling/compiling_icode.nit:798 */ - if (!once_value_205) { - if (!once_value_206) { - fra.me.REG[6] = BOX_NativeString("Char"); - REGB1 = TAG_Int(4); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_206 = fra.me.REG[6]; - register_static_object(&once_value_206); - } else fra.me.REG[6] = once_value_206; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_205 = fra.me.REG[6]; - register_static_object(&once_value_205); - } else fra.me.REG[6] = once_value_205; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[2],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:799 */ - if (!once_value_207) { - if (!once_value_208) { - fra.me.REG[6] = BOX_NativeString("object_id"); - REGB1 = TAG_Int(9); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_208 = fra.me.REG[6]; - register_static_object(&once_value_208); - } else fra.me.REG[6] = once_value_208; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_207 = fra.me.REG[6]; - register_static_object(&once_value_207); - } else fra.me.REG[6] = once_value_207; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:800 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_209) { - fra.me.REG[7] = BOX_NativeString("TAG_Int(UNTAG_Char("); - REGB1 = TAG_Int(19); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_209 = fra.me.REG[7]; - register_static_object(&once_value_209); - } else fra.me.REG[7] = once_value_209; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label210; - label210: while(0); - /* compiling/compiling_icode.nit:800 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_211) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_211 = fra.me.REG[7]; - register_static_object(&once_value_211); - } else fra.me.REG[7] = once_value_211; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:801 */ - if (!once_value_212) { - if (!once_value_213) { - fra.me.REG[6] = BOX_NativeString("unary -"); - REGB1 = TAG_Int(7); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_213 = fra.me.REG[6]; - register_static_object(&once_value_213); - } else fra.me.REG[6] = once_value_213; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_212 = fra.me.REG[6]; - register_static_object(&once_value_212); - } else fra.me.REG[6] = once_value_212; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:802 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_214) { - fra.me.REG[7] = BOX_NativeString("TAG_Char(-UNTAG_Char("); - REGB1 = TAG_Int(21); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_214 = fra.me.REG[7]; - register_static_object(&once_value_214); - } else fra.me.REG[7] = once_value_214; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label215; - label215: while(0); - /* compiling/compiling_icode.nit:802 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_216) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_216 = fra.me.REG[7]; - register_static_object(&once_value_216); - } else fra.me.REG[7] = once_value_216; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:803 */ - if (!once_value_217) { - if (!once_value_218) { - fra.me.REG[6] = BOX_NativeString("output"); - REGB1 = TAG_Int(6); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_218 = fra.me.REG[6]; - register_static_object(&once_value_218); - } else fra.me.REG[6] = once_value_218; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_217 = fra.me.REG[6]; - register_static_object(&once_value_217); - } else fra.me.REG[6] = once_value_217; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:804 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_219) { - fra.me.REG[7] = BOX_NativeString("printf(\"%c\", (unsigned char)UNTAG_Char("); - REGB1 = TAG_Int(39); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_219 = fra.me.REG[7]; - register_static_object(&once_value_219); - } else fra.me.REG[7] = once_value_219; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label220; - label220: while(0); - /* compiling/compiling_icode.nit:804 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_221) { - fra.me.REG[7] = BOX_NativeString("));"); - REGB1 = TAG_Int(3); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_221 = fra.me.REG[7]; - register_static_object(&once_value_221); - } else fra.me.REG[7] = once_value_221; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:805 */ - if (!once_value_222) { - if (!once_value_223) { - fra.me.REG[6] = BOX_NativeString("ascii"); - REGB1 = TAG_Int(5); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_223 = fra.me.REG[6]; - register_static_object(&once_value_223); - } else fra.me.REG[6] = once_value_223; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_222 = fra.me.REG[6]; - register_static_object(&once_value_222); - } else fra.me.REG[6] = once_value_222; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:806 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_224) { - fra.me.REG[7] = BOX_NativeString("TAG_Int((unsigned char)UNTAG_Char("); - REGB1 = TAG_Int(34); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_224 = fra.me.REG[7]; - register_static_object(&once_value_224); - } else fra.me.REG[7] = once_value_224; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label225; - label225: while(0); - /* compiling/compiling_icode.nit:806 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_226) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_226 = fra.me.REG[7]; - register_static_object(&once_value_226); - } else fra.me.REG[7] = once_value_226; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:807 */ - if (!once_value_227) { - if (!once_value_228) { - fra.me.REG[6] = BOX_NativeString("succ"); - REGB1 = TAG_Int(4); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_228 = fra.me.REG[6]; - register_static_object(&once_value_228); - } else fra.me.REG[6] = once_value_228; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_227 = fra.me.REG[6]; - register_static_object(&once_value_227); - } else fra.me.REG[6] = once_value_227; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:808 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_229) { - fra.me.REG[7] = BOX_NativeString("TAG_Char(UNTAG_Char("); - REGB1 = TAG_Int(20); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_229 = fra.me.REG[7]; - register_static_object(&once_value_229); - } else fra.me.REG[7] = once_value_229; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label230; - label230: while(0); - /* compiling/compiling_icode.nit:808 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_231) { - fra.me.REG[7] = BOX_NativeString(")+1)"); - REGB1 = TAG_Int(4); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_231 = fra.me.REG[7]; - register_static_object(&once_value_231); - } else fra.me.REG[7] = once_value_231; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:809 */ - if (!once_value_232) { - if (!once_value_233) { - fra.me.REG[6] = BOX_NativeString("prec"); - REGB1 = TAG_Int(4); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_233 = fra.me.REG[6]; - register_static_object(&once_value_233); - } else fra.me.REG[6] = once_value_233; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_232 = fra.me.REG[6]; - register_static_object(&once_value_232); - } else fra.me.REG[6] = once_value_232; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:810 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_234) { - fra.me.REG[7] = BOX_NativeString("TAG_Char(UNTAG_Char("); - REGB1 = TAG_Int(20); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_234 = fra.me.REG[7]; - register_static_object(&once_value_234); - } else fra.me.REG[7] = once_value_234; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label235; - label235: while(0); - /* compiling/compiling_icode.nit:810 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_236) { - fra.me.REG[7] = BOX_NativeString(")-1)"); - REGB1 = TAG_Int(4); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_236 = fra.me.REG[7]; - register_static_object(&once_value_236); - } else fra.me.REG[7] = once_value_236; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:811 */ - if (!once_value_237) { - if (!once_value_238) { - fra.me.REG[6] = BOX_NativeString("to_i"); - REGB1 = TAG_Int(4); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_238 = fra.me.REG[6]; - register_static_object(&once_value_238); - } else fra.me.REG[6] = once_value_238; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_237 = fra.me.REG[6]; - register_static_object(&once_value_237); - } else fra.me.REG[6] = once_value_237; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:812 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_239) { - fra.me.REG[7] = BOX_NativeString("TAG_Int(UNTAG_Char("); - REGB1 = TAG_Int(19); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_239 = fra.me.REG[7]; - register_static_object(&once_value_239); - } else fra.me.REG[7] = once_value_239; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label240; - label240: while(0); - /* compiling/compiling_icode.nit:812 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_241) { - fra.me.REG[7] = BOX_NativeString(")-'0')"); - REGB1 = TAG_Int(6); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_241 = fra.me.REG[7]; - register_static_object(&once_value_241); - } else fra.me.REG[7] = once_value_241; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:813 */ - if (!once_value_242) { - if (!once_value_243) { - fra.me.REG[6] = BOX_NativeString("+"); - REGB1 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_243 = fra.me.REG[6]; - register_static_object(&once_value_243); - } else fra.me.REG[6] = once_value_243; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_242 = fra.me.REG[6]; - register_static_object(&once_value_242); - } else fra.me.REG[6] = once_value_242; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:814 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_244) { - fra.me.REG[7] = BOX_NativeString("TAG_Char(UNTAG_Char("); - REGB1 = TAG_Int(20); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_244 = fra.me.REG[7]; - register_static_object(&once_value_244); - } else fra.me.REG[7] = once_value_244; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label245; - label245: while(0); - /* compiling/compiling_icode.nit:814 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_246) { - fra.me.REG[7] = BOX_NativeString(")+UNTAG_Char("); - REGB1 = TAG_Int(13); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_246 = fra.me.REG[7]; - register_static_object(&once_value_246); - } else fra.me.REG[7] = once_value_246; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label247; - label247: while(0); - /* compiling/compiling_icode.nit:814 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_248) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_248 = fra.me.REG[7]; - register_static_object(&once_value_248); - } else fra.me.REG[7] = once_value_248; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:815 */ - if (!once_value_249) { - if (!once_value_250) { - fra.me.REG[6] = BOX_NativeString("-"); - REGB1 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_250 = fra.me.REG[6]; - register_static_object(&once_value_250); - } else fra.me.REG[6] = once_value_250; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_249 = fra.me.REG[6]; - register_static_object(&once_value_249); - } else fra.me.REG[6] = once_value_249; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:816 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_251) { - fra.me.REG[7] = BOX_NativeString("TAG_Char(UNTAG_Char("); - REGB1 = TAG_Int(20); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_251 = fra.me.REG[7]; - register_static_object(&once_value_251); - } else fra.me.REG[7] = once_value_251; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label252; - label252: while(0); - /* compiling/compiling_icode.nit:816 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_253) { - fra.me.REG[7] = BOX_NativeString(")-UNTAG_Char("); - REGB1 = TAG_Int(13); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_253 = fra.me.REG[7]; - register_static_object(&once_value_253); - } else fra.me.REG[7] = once_value_253; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label254; - label254: while(0); - /* compiling/compiling_icode.nit:816 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_255) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_255 = fra.me.REG[7]; - register_static_object(&once_value_255); - } else fra.me.REG[7] = once_value_255; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:817 */ - if (!once_value_256) { - if (!once_value_257) { - fra.me.REG[6] = BOX_NativeString("*"); - REGB1 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_257 = fra.me.REG[6]; - register_static_object(&once_value_257); - } else fra.me.REG[6] = once_value_257; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_256 = fra.me.REG[6]; - register_static_object(&once_value_256); - } else fra.me.REG[6] = once_value_256; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:818 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_258) { - fra.me.REG[7] = BOX_NativeString("TAG_Char(UNTAG_Char("); - REGB1 = TAG_Int(20); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_258 = fra.me.REG[7]; - register_static_object(&once_value_258); - } else fra.me.REG[7] = once_value_258; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label259; - label259: while(0); - /* compiling/compiling_icode.nit:818 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_260) { - fra.me.REG[7] = BOX_NativeString(")*UNTAG_Char("); - REGB1 = TAG_Int(13); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_260 = fra.me.REG[7]; - register_static_object(&once_value_260); - } else fra.me.REG[7] = once_value_260; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label261; - label261: while(0); - /* compiling/compiling_icode.nit:818 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_262) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_262 = fra.me.REG[7]; - register_static_object(&once_value_262); - } else fra.me.REG[7] = once_value_262; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:819 */ - if (!once_value_263) { - if (!once_value_264) { - fra.me.REG[6] = BOX_NativeString("/"); - REGB1 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_264 = fra.me.REG[6]; - register_static_object(&once_value_264); - } else fra.me.REG[6] = once_value_264; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_263 = fra.me.REG[6]; - register_static_object(&once_value_263); - } else fra.me.REG[6] = once_value_263; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:820 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_265) { - fra.me.REG[7] = BOX_NativeString("TAG_Char(UNTAG_Char("); - REGB1 = TAG_Int(20); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_265 = fra.me.REG[7]; - register_static_object(&once_value_265); - } else fra.me.REG[7] = once_value_265; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label266; - label266: while(0); - /* compiling/compiling_icode.nit:820 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_267) { - fra.me.REG[7] = BOX_NativeString(")/UNTAG_Char("); - REGB1 = TAG_Int(13); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_267 = fra.me.REG[7]; - register_static_object(&once_value_267); - } else fra.me.REG[7] = once_value_267; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label268; - label268: while(0); - /* compiling/compiling_icode.nit:820 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_269) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_269 = fra.me.REG[7]; - register_static_object(&once_value_269); - } else fra.me.REG[7] = once_value_269; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:821 */ - if (!once_value_270) { - if (!once_value_271) { - fra.me.REG[6] = BOX_NativeString("%"); - REGB1 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_271 = fra.me.REG[6]; - register_static_object(&once_value_271); - } else fra.me.REG[6] = once_value_271; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_270 = fra.me.REG[6]; - register_static_object(&once_value_270); - } else fra.me.REG[6] = once_value_270; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:822 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_272) { - fra.me.REG[7] = BOX_NativeString("TAG_Char(UNTAG_Char("); - REGB1 = TAG_Int(20); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_272 = fra.me.REG[7]; - register_static_object(&once_value_272); - } else fra.me.REG[7] = once_value_272; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label273; - label273: while(0); - /* compiling/compiling_icode.nit:822 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_274) { - fra.me.REG[7] = BOX_NativeString(")%UNTAG_Char("); - REGB1 = TAG_Int(13); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_274 = fra.me.REG[7]; - register_static_object(&once_value_274); - } else fra.me.REG[7] = once_value_274; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label275; - label275: while(0); - /* compiling/compiling_icode.nit:822 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_276) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_276 = fra.me.REG[7]; - register_static_object(&once_value_276); - } else fra.me.REG[7] = once_value_276; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:823 */ - if (!once_value_277) { - if (!once_value_278) { - fra.me.REG[6] = BOX_NativeString("<"); - REGB1 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_278 = fra.me.REG[6]; - register_static_object(&once_value_278); - } else fra.me.REG[6] = once_value_278; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_277 = fra.me.REG[6]; - register_static_object(&once_value_277); - } else fra.me.REG[6] = once_value_277; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:824 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_279) { - fra.me.REG[7] = BOX_NativeString("TAG_Bool(UNTAG_Char("); - REGB1 = TAG_Int(20); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_279 = fra.me.REG[7]; - register_static_object(&once_value_279); - } else fra.me.REG[7] = once_value_279; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label280; - label280: while(0); - /* compiling/compiling_icode.nit:824 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_281) { - fra.me.REG[7] = BOX_NativeString(")=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label282; - label282: while(0); - /* compiling/compiling_icode.nit:824 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_283) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_283 = fra.me.REG[7]; - register_static_object(&once_value_283); - } else fra.me.REG[7] = once_value_283; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:825 */ - if (!once_value_284) { - if (!once_value_285) { - fra.me.REG[6] = BOX_NativeString(">"); - REGB1 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_285 = fra.me.REG[6]; - register_static_object(&once_value_285); - } else fra.me.REG[6] = once_value_285; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_284 = fra.me.REG[6]; - register_static_object(&once_value_284); - } else fra.me.REG[6] = once_value_284; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:826 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_286) { - fra.me.REG[7] = BOX_NativeString("TAG_Bool(UNTAG_Char("); - REGB1 = TAG_Int(20); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_286 = fra.me.REG[7]; - register_static_object(&once_value_286); - } else fra.me.REG[7] = once_value_286; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label287; - label287: while(0); - /* compiling/compiling_icode.nit:826 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_288) { - fra.me.REG[7] = BOX_NativeString(")>UNTAG_Char("); - REGB1 = TAG_Int(13); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_288 = fra.me.REG[7]; - register_static_object(&once_value_288); - } else fra.me.REG[7] = once_value_288; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label289; - label289: while(0); - /* compiling/compiling_icode.nit:826 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_290) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_290 = fra.me.REG[7]; - register_static_object(&once_value_290); - } else fra.me.REG[7] = once_value_290; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:827 */ - if (!once_value_291) { - if (!once_value_292) { - fra.me.REG[6] = BOX_NativeString("<="); - REGB1 = TAG_Int(2); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_292 = fra.me.REG[6]; - register_static_object(&once_value_292); - } else fra.me.REG[6] = once_value_292; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_291 = fra.me.REG[6]; - register_static_object(&once_value_291); - } else fra.me.REG[6] = once_value_291; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:828 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_293) { - fra.me.REG[7] = BOX_NativeString("TAG_Bool(UNTAG_Char("); - REGB1 = TAG_Int(20); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_293 = fra.me.REG[7]; - register_static_object(&once_value_293); - } else fra.me.REG[7] = once_value_293; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label294; - label294: while(0); - /* compiling/compiling_icode.nit:828 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_295) { - fra.me.REG[7] = BOX_NativeString(")<=UNTAG_Char("); - REGB1 = TAG_Int(14); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_295 = fra.me.REG[7]; - register_static_object(&once_value_295); - } else fra.me.REG[7] = once_value_295; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label296; - label296: while(0); - /* compiling/compiling_icode.nit:828 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_297) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_297 = fra.me.REG[7]; - register_static_object(&once_value_297); - } else fra.me.REG[7] = once_value_297; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:829 */ - if (!once_value_298) { - if (!once_value_299) { - fra.me.REG[6] = BOX_NativeString(">="); - REGB1 = TAG_Int(2); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_299 = fra.me.REG[6]; - register_static_object(&once_value_299); - } else fra.me.REG[6] = once_value_299; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_298 = fra.me.REG[6]; - register_static_object(&once_value_298); - } else fra.me.REG[6] = once_value_298; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:830 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_300) { - fra.me.REG[7] = BOX_NativeString("TAG_Bool(UNTAG_Char("); - REGB1 = TAG_Int(20); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_300 = fra.me.REG[7]; - register_static_object(&once_value_300); - } else fra.me.REG[7] = once_value_300; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label301; - label301: while(0); - /* compiling/compiling_icode.nit:830 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_302) { - fra.me.REG[7] = BOX_NativeString(")>=UNTAG_Char("); - REGB1 = TAG_Int(14); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_302 = fra.me.REG[7]; - register_static_object(&once_value_302); - } else fra.me.REG[7] = once_value_302; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label303; - label303: while(0); - /* compiling/compiling_icode.nit:830 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_304) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_304 = fra.me.REG[7]; - register_static_object(&once_value_304); - } else fra.me.REG[7] = once_value_304; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:831 */ - if (!once_value_305) { - if (!once_value_306) { - fra.me.REG[6] = BOX_NativeString("=="); - REGB1 = TAG_Int(2); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_306 = fra.me.REG[6]; - register_static_object(&once_value_306); - } else fra.me.REG[6] = once_value_306; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_305 = fra.me.REG[6]; - register_static_object(&once_value_305); - } else fra.me.REG[6] = once_value_305; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:832 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_307) { - fra.me.REG[7] = BOX_NativeString("TAG_Bool(("); - REGB1 = TAG_Int(10); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_307 = fra.me.REG[7]; - register_static_object(&once_value_307); - } else fra.me.REG[7] = once_value_307; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label308; - label308: while(0); - /* compiling/compiling_icode.nit:832 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_309) { - fra.me.REG[7] = BOX_NativeString(")==("); - REGB1 = TAG_Int(4); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_309 = fra.me.REG[7]; - register_static_object(&once_value_309); - } else fra.me.REG[7] = once_value_309; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label310; - label310: while(0); - /* compiling/compiling_icode.nit:832 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_311) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_311 = fra.me.REG[7]; - register_static_object(&once_value_311); - } else fra.me.REG[7] = once_value_311; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:833 */ - if (!once_value_312) { - if (!once_value_313) { - fra.me.REG[6] = BOX_NativeString("!="); - REGB1 = TAG_Int(2); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_313 = fra.me.REG[6]; - register_static_object(&once_value_313); - } else fra.me.REG[6] = once_value_313; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_312 = fra.me.REG[6]; - register_static_object(&once_value_312); - } else fra.me.REG[6] = once_value_312; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:834 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_314) { - fra.me.REG[7] = BOX_NativeString("TAG_Bool(("); - REGB1 = TAG_Int(10); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_314 = fra.me.REG[7]; - register_static_object(&once_value_314); - } else fra.me.REG[7] = once_value_314; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label315; - label315: while(0); - /* compiling/compiling_icode.nit:834 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_316) { - fra.me.REG[7] = BOX_NativeString(")!=("); - REGB1 = TAG_Int(4); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_316 = fra.me.REG[7]; - register_static_object(&once_value_316); - } else fra.me.REG[7] = once_value_316; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label317; - label317: while(0); - /* compiling/compiling_icode.nit:834 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_318) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_318 = fra.me.REG[7]; - register_static_object(&once_value_318); - } else fra.me.REG[7] = once_value_318; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } - } - } - } - } - } - } - } - } - } - } - } - } - } - } - } - } - } - } else { - /* compiling/compiling_icode.nit:836 */ - if (!once_value_319) { - if (!once_value_320) { - fra.me.REG[6] = BOX_NativeString("Bool"); - REGB1 = TAG_Int(4); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_320 = fra.me.REG[6]; - register_static_object(&once_value_320); - } else fra.me.REG[6] = once_value_320; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_319 = fra.me.REG[6]; - register_static_object(&once_value_319); - } else fra.me.REG[6] = once_value_319; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[2],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:837 */ - if (!once_value_321) { - if (!once_value_322) { - fra.me.REG[6] = BOX_NativeString("object_id"); - REGB1 = TAG_Int(9); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_322 = fra.me.REG[6]; - register_static_object(&once_value_322); - } else fra.me.REG[6] = once_value_322; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_321 = fra.me.REG[6]; - register_static_object(&once_value_321); - } else fra.me.REG[6] = once_value_321; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:838 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_323) { - fra.me.REG[7] = BOX_NativeString("TAG_Int(UNTAG_Bool("); - REGB1 = TAG_Int(19); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_323 = fra.me.REG[7]; - register_static_object(&once_value_323); - } else fra.me.REG[7] = once_value_323; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label324; - label324: while(0); - /* compiling/compiling_icode.nit:838 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_325) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_325 = fra.me.REG[7]; - register_static_object(&once_value_325); - } else fra.me.REG[7] = once_value_325; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:839 */ - if (!once_value_326) { - if (!once_value_327) { - fra.me.REG[6] = BOX_NativeString("unary -"); - REGB1 = TAG_Int(7); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_327 = fra.me.REG[6]; - register_static_object(&once_value_327); - } else fra.me.REG[6] = once_value_327; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_326 = fra.me.REG[6]; - register_static_object(&once_value_326); - } else fra.me.REG[6] = once_value_326; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:840 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_328) { - fra.me.REG[7] = BOX_NativeString("TAG_Bool(-UNTAG_Bool("); - REGB1 = TAG_Int(21); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_328 = fra.me.REG[7]; - register_static_object(&once_value_328); - } else fra.me.REG[7] = once_value_328; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label329; - label329: while(0); - /* compiling/compiling_icode.nit:840 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_330) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_330 = fra.me.REG[7]; - register_static_object(&once_value_330); - } else fra.me.REG[7] = once_value_330; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:841 */ - if (!once_value_331) { - if (!once_value_332) { - fra.me.REG[6] = BOX_NativeString("output"); - REGB1 = TAG_Int(6); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_332 = fra.me.REG[6]; - register_static_object(&once_value_332); - } else fra.me.REG[6] = once_value_332; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_331 = fra.me.REG[6]; - register_static_object(&once_value_331); - } else fra.me.REG[6] = once_value_331; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:842 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_333) { - fra.me.REG[7] = BOX_NativeString("(void)printf(UNTAG_Bool("); - REGB1 = TAG_Int(24); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_333 = fra.me.REG[7]; - register_static_object(&once_value_333); - } else fra.me.REG[7] = once_value_333; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label334; - label334: while(0); - /* compiling/compiling_icode.nit:842 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_335) { - fra.me.REG[7] = BOX_NativeString(")?\"true\\n\":\"false\\n\");"); - REGB1 = TAG_Int(22); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_335 = fra.me.REG[7]; - register_static_object(&once_value_335); - } else fra.me.REG[7] = once_value_335; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:843 */ - if (!once_value_336) { - if (!once_value_337) { - fra.me.REG[6] = BOX_NativeString("ascii"); - REGB1 = TAG_Int(5); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_337 = fra.me.REG[6]; - register_static_object(&once_value_337); - } else fra.me.REG[6] = once_value_337; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_336 = fra.me.REG[6]; - register_static_object(&once_value_336); - } else fra.me.REG[6] = once_value_336; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:844 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_338) { - fra.me.REG[7] = BOX_NativeString("TAG_Bool(UNTAG_Bool("); - REGB1 = TAG_Int(20); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_338 = fra.me.REG[7]; - register_static_object(&once_value_338); - } else fra.me.REG[7] = once_value_338; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label339; - label339: while(0); - /* compiling/compiling_icode.nit:844 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_340) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_340 = fra.me.REG[7]; - register_static_object(&once_value_340); - } else fra.me.REG[7] = once_value_340; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:845 */ - if (!once_value_341) { - if (!once_value_342) { - fra.me.REG[6] = BOX_NativeString("to_i"); - REGB1 = TAG_Int(4); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_342 = fra.me.REG[6]; - register_static_object(&once_value_342); - } else fra.me.REG[6] = once_value_342; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_341 = fra.me.REG[6]; - register_static_object(&once_value_341); - } else fra.me.REG[6] = once_value_341; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:846 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_343) { - fra.me.REG[7] = BOX_NativeString("TAG_Int(UNTAG_Bool("); - REGB1 = TAG_Int(19); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_343 = fra.me.REG[7]; - register_static_object(&once_value_343); - } else fra.me.REG[7] = once_value_343; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label344; - label344: while(0); - /* compiling/compiling_icode.nit:846 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_345) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_345 = fra.me.REG[7]; - register_static_object(&once_value_345); - } else fra.me.REG[7] = once_value_345; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:847 */ - if (!once_value_346) { - if (!once_value_347) { - fra.me.REG[6] = BOX_NativeString("=="); - REGB1 = TAG_Int(2); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_347 = fra.me.REG[6]; - register_static_object(&once_value_347); - } else fra.me.REG[6] = once_value_347; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_346 = fra.me.REG[6]; - register_static_object(&once_value_346); - } else fra.me.REG[6] = once_value_346; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:848 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_348) { - fra.me.REG[7] = BOX_NativeString("TAG_Bool(("); - REGB1 = TAG_Int(10); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_348 = fra.me.REG[7]; - register_static_object(&once_value_348); - } else fra.me.REG[7] = once_value_348; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label349; - label349: while(0); - /* compiling/compiling_icode.nit:848 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_350) { - fra.me.REG[7] = BOX_NativeString(")==("); - REGB1 = TAG_Int(4); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_350 = fra.me.REG[7]; - register_static_object(&once_value_350); - } else fra.me.REG[7] = once_value_350; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label351; - label351: while(0); - /* compiling/compiling_icode.nit:848 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_352) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_352 = fra.me.REG[7]; - register_static_object(&once_value_352); - } else fra.me.REG[7] = once_value_352; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:849 */ - if (!once_value_353) { - if (!once_value_354) { - fra.me.REG[6] = BOX_NativeString("!="); - REGB1 = TAG_Int(2); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_354 = fra.me.REG[6]; - register_static_object(&once_value_354); - } else fra.me.REG[6] = once_value_354; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_353 = fra.me.REG[6]; - register_static_object(&once_value_353); - } else fra.me.REG[6] = once_value_353; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:850 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_355) { - fra.me.REG[7] = BOX_NativeString("TAG_Bool(("); - REGB1 = TAG_Int(10); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_355 = fra.me.REG[7]; - register_static_object(&once_value_355); - } else fra.me.REG[7] = once_value_355; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label356; - label356: while(0); - /* compiling/compiling_icode.nit:850 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_357) { - fra.me.REG[7] = BOX_NativeString(")!=("); - REGB1 = TAG_Int(4); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_357 = fra.me.REG[7]; - register_static_object(&once_value_357); - } else fra.me.REG[7] = once_value_357; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label358; - label358: while(0); - /* compiling/compiling_icode.nit:850 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_359) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_359 = fra.me.REG[7]; - register_static_object(&once_value_359); - } else fra.me.REG[7] = once_value_359; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } - } - } - } - } - } - } - } else { - /* compiling/compiling_icode.nit:852 */ - if (!once_value_360) { - if (!once_value_361) { - fra.me.REG[6] = BOX_NativeString("NativeArray"); - REGB1 = TAG_Int(11); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_361 = fra.me.REG[6]; - register_static_object(&once_value_361); - } else fra.me.REG[6] = once_value_361; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_360 = fra.me.REG[6]; - register_static_object(&once_value_360); - } else fra.me.REG[6] = once_value_360; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[2],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:853 */ - if (!once_value_362) { - if (!once_value_363) { - fra.me.REG[6] = BOX_NativeString("object_id"); - REGB1 = TAG_Int(9); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_363 = fra.me.REG[6]; - register_static_object(&once_value_363); - } else fra.me.REG[6] = once_value_363; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_362 = fra.me.REG[6]; - register_static_object(&once_value_362); - } else fra.me.REG[6] = once_value_362; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:854 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_364) { - fra.me.REG[7] = BOX_NativeString("TAG_Int(((Nit_NativeArray)"); - REGB1 = TAG_Int(26); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_364 = fra.me.REG[7]; - register_static_object(&once_value_364); - } else fra.me.REG[7] = once_value_364; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label365; - label365: while(0); - /* compiling/compiling_icode.nit:854 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_366) { - fra.me.REG[7] = BOX_NativeString(")->object_id)"); - REGB1 = TAG_Int(13); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_366 = fra.me.REG[7]; - register_static_object(&once_value_366); - } else fra.me.REG[7] = once_value_366; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:855 */ - if (!once_value_367) { - if (!once_value_368) { - fra.me.REG[6] = BOX_NativeString("[]"); - REGB1 = TAG_Int(2); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_368 = fra.me.REG[6]; - register_static_object(&once_value_368); - } else fra.me.REG[6] = once_value_368; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_367 = fra.me.REG[6]; - register_static_object(&once_value_367); - } else fra.me.REG[6] = once_value_367; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:856 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_369) { - fra.me.REG[7] = BOX_NativeString("((Nit_NativeArray)"); - REGB1 = TAG_Int(18); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_369 = fra.me.REG[7]; - register_static_object(&once_value_369); - } else fra.me.REG[7] = once_value_369; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label370; - label370: while(0); - /* compiling/compiling_icode.nit:856 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_371) { - fra.me.REG[7] = BOX_NativeString(")->val[UNTAG_Int("); - REGB1 = TAG_Int(17); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_371 = fra.me.REG[7]; - register_static_object(&once_value_371); - } else fra.me.REG[7] = once_value_371; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label372; - label372: while(0); - /* compiling/compiling_icode.nit:856 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_373) { - fra.me.REG[7] = BOX_NativeString(")]"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_373 = fra.me.REG[7]; - register_static_object(&once_value_373); - } else fra.me.REG[7] = once_value_373; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:857 */ - if (!once_value_374) { - if (!once_value_375) { - fra.me.REG[6] = BOX_NativeString("[]="); - REGB1 = TAG_Int(3); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_375 = fra.me.REG[6]; - register_static_object(&once_value_375); - } else fra.me.REG[6] = once_value_375; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_374 = fra.me.REG[6]; - register_static_object(&once_value_374); - } else fra.me.REG[6] = once_value_374; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:858 */ - REGB1 = TAG_Int(7); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_376) { - fra.me.REG[7] = BOX_NativeString("((Nit_NativeArray)"); - REGB1 = TAG_Int(18); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_376 = fra.me.REG[7]; - register_static_object(&once_value_376); - } else fra.me.REG[7] = once_value_376; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label377; - label377: while(0); - /* compiling/compiling_icode.nit:858 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_378) { - fra.me.REG[7] = BOX_NativeString(")->val[UNTAG_Int("); - REGB1 = TAG_Int(17); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_378 = fra.me.REG[7]; - register_static_object(&once_value_378); - } else fra.me.REG[7] = once_value_378; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label379; - label379: while(0); - /* compiling/compiling_icode.nit:858 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_380) { - fra.me.REG[7] = BOX_NativeString(")]="); - REGB1 = TAG_Int(3); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_380 = fra.me.REG[7]; - register_static_object(&once_value_380); - } else fra.me.REG[7] = once_value_380; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(2); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label381; - label381: while(0); - /* compiling/compiling_icode.nit:858 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_382) { - fra.me.REG[7] = BOX_NativeString(""); - REGB1 = TAG_Int(0); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_382 = fra.me.REG[7]; - register_static_object(&once_value_382); - } else fra.me.REG[7] = once_value_382; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:859 */ - if (!once_value_383) { - if (!once_value_384) { - fra.me.REG[6] = BOX_NativeString("copy_to"); - REGB1 = TAG_Int(7); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_384 = fra.me.REG[6]; - register_static_object(&once_value_384); - } else fra.me.REG[6] = once_value_384; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_383 = fra.me.REG[6]; - register_static_object(&once_value_383); - } else fra.me.REG[6] = once_value_383; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:860 */ - REGB1 = TAG_Int(7); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_385) { - fra.me.REG[7] = BOX_NativeString("(void)memcpy(((Nit_NativeArray )"); - REGB1 = TAG_Int(32); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_385 = fra.me.REG[7]; - register_static_object(&once_value_385); - } else fra.me.REG[7] = once_value_385; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label386; - label386: while(0); - /* compiling/compiling_icode.nit:860 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_387) { - fra.me.REG[7] = BOX_NativeString(")->val, ((Nit_NativeArray)"); - REGB1 = TAG_Int(26); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_387 = fra.me.REG[7]; - register_static_object(&once_value_387); - } else fra.me.REG[7] = once_value_387; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label388; - label388: while(0); - /* compiling/compiling_icode.nit:860 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_389) { - fra.me.REG[7] = BOX_NativeString(")->val, UNTAG_Int("); - REGB1 = TAG_Int(18); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_389 = fra.me.REG[7]; - register_static_object(&once_value_389); - } else fra.me.REG[7] = once_value_389; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(2); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label390; - label390: while(0); - /* compiling/compiling_icode.nit:860 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_391) { - fra.me.REG[7] = BOX_NativeString(")*sizeof(val_t))"); - REGB1 = TAG_Int(16); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_391 = fra.me.REG[7]; - register_static_object(&once_value_391); - } else fra.me.REG[7] = once_value_391; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } - } - } - } - } else { - /* compiling/compiling_icode.nit:862 */ - if (!once_value_392) { - if (!once_value_393) { - fra.me.REG[6] = BOX_NativeString("NativeString"); - REGB1 = TAG_Int(12); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_393 = fra.me.REG[6]; - register_static_object(&once_value_393); - } else fra.me.REG[6] = once_value_393; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_392 = fra.me.REG[6]; - register_static_object(&once_value_392); - } else fra.me.REG[6] = once_value_392; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[2],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:863 */ - if (!once_value_394) { - if (!once_value_395) { - fra.me.REG[6] = BOX_NativeString("object_id"); - REGB1 = TAG_Int(9); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_395 = fra.me.REG[6]; - register_static_object(&once_value_395); - } else fra.me.REG[6] = once_value_395; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_394 = fra.me.REG[6]; - register_static_object(&once_value_394); - } else fra.me.REG[6] = once_value_394; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:864 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_396) { - fra.me.REG[7] = BOX_NativeString("TAG_Int(UNBOX_NativeString("); - REGB1 = TAG_Int(27); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_396 = fra.me.REG[7]; - register_static_object(&once_value_396); - } else fra.me.REG[7] = once_value_396; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label397; - label397: while(0); - /* compiling/compiling_icode.nit:864 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_398) { - fra.me.REG[7] = BOX_NativeString("))"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_398 = fra.me.REG[7]; - register_static_object(&once_value_398); - } else fra.me.REG[7] = once_value_398; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:865 */ - if (!once_value_399) { - if (!once_value_400) { - fra.me.REG[6] = BOX_NativeString("atoi"); - REGB1 = TAG_Int(4); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_400 = fra.me.REG[6]; - register_static_object(&once_value_400); - } else fra.me.REG[6] = once_value_400; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_399 = fra.me.REG[6]; - register_static_object(&once_value_399); - } else fra.me.REG[6] = once_value_399; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:866 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_401) { - fra.me.REG[7] = BOX_NativeString("TAG_Int(atoi(UNBOX_NativeString("); - REGB1 = TAG_Int(32); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_401 = fra.me.REG[7]; - register_static_object(&once_value_401); - } else fra.me.REG[7] = once_value_401; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label402; - label402: while(0); - /* compiling/compiling_icode.nit:866 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_403) { - fra.me.REG[7] = BOX_NativeString(")))"); - REGB1 = TAG_Int(3); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_403 = fra.me.REG[7]; - register_static_object(&once_value_403); - } else fra.me.REG[7] = once_value_403; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:867 */ - if (!once_value_404) { - if (!once_value_405) { - fra.me.REG[6] = BOX_NativeString("[]"); - REGB1 = TAG_Int(2); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_405 = fra.me.REG[6]; - register_static_object(&once_value_405); - } else fra.me.REG[6] = once_value_405; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_404 = fra.me.REG[6]; - register_static_object(&once_value_404); - } else fra.me.REG[6] = once_value_404; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:868 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_406) { - fra.me.REG[7] = BOX_NativeString("TAG_Char(UNBOX_NativeString("); - REGB1 = TAG_Int(28); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_406 = fra.me.REG[7]; - register_static_object(&once_value_406); - } else fra.me.REG[7] = once_value_406; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label407; - label407: while(0); - /* compiling/compiling_icode.nit:868 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_408) { - fra.me.REG[7] = BOX_NativeString(")[UNTAG_Int("); - REGB1 = TAG_Int(12); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_408 = fra.me.REG[7]; - register_static_object(&once_value_408); - } else fra.me.REG[7] = once_value_408; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label409; - label409: while(0); - /* compiling/compiling_icode.nit:868 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_410) { - fra.me.REG[7] = BOX_NativeString(")])"); - REGB1 = TAG_Int(3); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_410 = fra.me.REG[7]; - register_static_object(&once_value_410); - } else fra.me.REG[7] = once_value_410; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:869 */ - if (!once_value_411) { - if (!once_value_412) { - fra.me.REG[6] = BOX_NativeString("[]="); - REGB1 = TAG_Int(3); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_412 = fra.me.REG[6]; - register_static_object(&once_value_412); - } else fra.me.REG[6] = once_value_412; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_411 = fra.me.REG[6]; - register_static_object(&once_value_411); - } else fra.me.REG[6] = once_value_411; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:870 */ - REGB1 = TAG_Int(7); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_413) { - fra.me.REG[7] = BOX_NativeString("UNBOX_NativeString("); - REGB1 = TAG_Int(19); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_413 = fra.me.REG[7]; - register_static_object(&once_value_413); - } else fra.me.REG[7] = once_value_413; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label414; - label414: while(0); - /* compiling/compiling_icode.nit:870 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_415) { - fra.me.REG[7] = BOX_NativeString(")[UNTAG_Int("); - REGB1 = TAG_Int(12); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_415 = fra.me.REG[7]; - register_static_object(&once_value_415); - } else fra.me.REG[7] = once_value_415; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label416; - label416: while(0); - /* compiling/compiling_icode.nit:870 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_417) { - fra.me.REG[7] = BOX_NativeString(")]=UNTAG_Char("); - REGB1 = TAG_Int(14); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_417 = fra.me.REG[7]; - register_static_object(&once_value_417); - } else fra.me.REG[7] = once_value_417; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(2); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label418; - label418: while(0); - /* compiling/compiling_icode.nit:870 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_419) { - fra.me.REG[7] = BOX_NativeString(");"); - REGB1 = TAG_Int(2); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_419 = fra.me.REG[7]; - register_static_object(&once_value_419); - } else fra.me.REG[7] = once_value_419; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:871 */ - if (!once_value_420) { - if (!once_value_421) { - fra.me.REG[6] = BOX_NativeString("copy_to"); - REGB1 = TAG_Int(7); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_421 = fra.me.REG[6]; - register_static_object(&once_value_421); - } else fra.me.REG[6] = once_value_421; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_420 = fra.me.REG[6]; - register_static_object(&once_value_420); - } else fra.me.REG[6] = once_value_420; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:872 */ - REGB1 = TAG_Int(11); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_422) { - fra.me.REG[7] = BOX_NativeString("(void)memcpy(UNBOX_NativeString("); - REGB1 = TAG_Int(32); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_422 = fra.me.REG[7]; - register_static_object(&once_value_422); - } else fra.me.REG[7] = once_value_422; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label423; - label423: while(0); - /* compiling/compiling_icode.nit:872 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_424) { - fra.me.REG[7] = BOX_NativeString(")+UNTAG_Int("); - REGB1 = TAG_Int(12); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_424 = fra.me.REG[7]; - register_static_object(&once_value_424); - } else fra.me.REG[7] = once_value_424; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(4); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label425; - label425: while(0); - /* compiling/compiling_icode.nit:872 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_426) { - fra.me.REG[7] = BOX_NativeString("), UNBOX_NativeString("); - REGB1 = TAG_Int(22); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_426 = fra.me.REG[7]; - register_static_object(&once_value_426); - } else fra.me.REG[7] = once_value_426; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label427; - label427: while(0); - /* compiling/compiling_icode.nit:872 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_428) { - fra.me.REG[7] = BOX_NativeString(")+UNTAG_Int("); - REGB1 = TAG_Int(12); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_428 = fra.me.REG[7]; - register_static_object(&once_value_428); - } else fra.me.REG[7] = once_value_428; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(3); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label429; - label429: while(0); - /* compiling/compiling_icode.nit:872 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_430) { - fra.me.REG[7] = BOX_NativeString("), UNTAG_Int("); - REGB1 = TAG_Int(13); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_430 = fra.me.REG[7]; - register_static_object(&once_value_430); - } else fra.me.REG[7] = once_value_430; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = TAG_Int(2); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[7] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label431; - label431: while(0); - /* compiling/compiling_icode.nit:872 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_432) { - fra.me.REG[7] = BOX_NativeString("));"); - REGB1 = TAG_Int(3); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_432 = fra.me.REG[7]; - register_static_object(&once_value_432); - } else fra.me.REG[7] = once_value_432; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } - } - } - } - } - } else { - /* compiling/compiling_icode.nit:874 */ - if (!once_value_433) { - if (!once_value_434) { - fra.me.REG[6] = BOX_NativeString("Sys"); - REGB1 = TAG_Int(3); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_434 = fra.me.REG[6]; - register_static_object(&once_value_434); - } else fra.me.REG[6] = once_value_434; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_433 = fra.me.REG[6]; - register_static_object(&once_value_433); - } else fra.me.REG[6] = once_value_433; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[2],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:875 */ - if (!once_value_435) { - if (!once_value_436) { - fra.me.REG[6] = BOX_NativeString("force_garbage_collection"); - REGB1 = TAG_Int(24); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_436 = fra.me.REG[6]; - register_static_object(&once_value_436); - } else fra.me.REG[6] = once_value_436; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_435 = fra.me.REG[6]; - register_static_object(&once_value_435); - } else fra.me.REG[6] = once_value_435; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:876 */ - if (!once_value_437) { - fra.me.REG[6] = BOX_NativeString("Nit_gc_force_garbage_collection()"); - REGB1 = TAG_Int(33); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_437 = fra.me.REG[6]; - register_static_object(&once_value_437); - } else fra.me.REG[6] = once_value_437; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:877 */ - if (!once_value_438) { - if (!once_value_439) { - fra.me.REG[6] = BOX_NativeString("native_argc"); - REGB1 = TAG_Int(11); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_439 = fra.me.REG[6]; - register_static_object(&once_value_439); - } else fra.me.REG[6] = once_value_439; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_438 = fra.me.REG[6]; - register_static_object(&once_value_438); - } else fra.me.REG[6] = once_value_438; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:878 */ - if (!once_value_440) { - fra.me.REG[6] = BOX_NativeString("TAG_Int(glob_argc)"); - REGB1 = TAG_Int(18); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_440 = fra.me.REG[6]; - register_static_object(&once_value_440); - } else fra.me.REG[6] = once_value_440; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:879 */ - if (!once_value_441) { - if (!once_value_442) { - fra.me.REG[6] = BOX_NativeString("native_argv"); - REGB1 = TAG_Int(11); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_442 = fra.me.REG[6]; - register_static_object(&once_value_442); - } else fra.me.REG[6] = once_value_442; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_441 = fra.me.REG[6]; - register_static_object(&once_value_441); - } else fra.me.REG[6] = once_value_441; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:880 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_443) { - fra.me.REG[2] = BOX_NativeString("BOX_NativeString(glob_argv[UNTAG_Int("); - REGB1 = TAG_Int(37); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_443 = fra.me.REG[2]; - register_static_object(&once_value_443); - } else fra.me.REG[2] = once_value_443; - fra.me.REG[2] = fra.me.REG[2]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[2] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label444; - label444: while(0); - /* compiling/compiling_icode.nit:880 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - if (!once_value_445) { - fra.me.REG[2] = BOX_NativeString(")])"); - REGB1 = TAG_Int(3); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_445 = fra.me.REG[2]; - register_static_object(&once_value_445); - } else fra.me.REG[2] = once_value_445; - fra.me.REG[2] = fra.me.REG[2]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } - } - } - } else { - /* compiling/compiling_icode.nit:882 */ - if (!once_value_446) { - if (!once_value_447) { - fra.me.REG[6] = BOX_NativeString("object_id"); - REGB1 = TAG_Int(9); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_447 = fra.me.REG[6]; - register_static_object(&once_value_447); - } else fra.me.REG[6] = once_value_447; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_446 = fra.me.REG[6]; - register_static_object(&once_value_446); - } else fra.me.REG[6] = once_value_446; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:883 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_448) { - fra.me.REG[2] = BOX_NativeString("TAG_Int((bigint)((obj_t)"); - REGB1 = TAG_Int(24); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_448 = fra.me.REG[2]; - register_static_object(&once_value_448); - } else fra.me.REG[2] = once_value_448; - fra.me.REG[2] = fra.me.REG[2]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[2] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label449; - label449: while(0); - /* compiling/compiling_icode.nit:883 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - if (!once_value_450) { - fra.me.REG[2] = BOX_NativeString(")[1].object_id)"); - REGB1 = TAG_Int(15); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_450 = fra.me.REG[2]; - register_static_object(&once_value_450); - } else fra.me.REG[2] = once_value_450; - fra.me.REG[2] = fra.me.REG[2]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:884 */ - if (!once_value_451) { - if (!once_value_452) { - fra.me.REG[6] = BOX_NativeString("sys"); - REGB1 = TAG_Int(3); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_452 = fra.me.REG[6]; - register_static_object(&once_value_452); - } else fra.me.REG[6] = once_value_452; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_451 = fra.me.REG[6]; - register_static_object(&once_value_451); - } else fra.me.REG[6] = once_value_451; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:885 */ - if (!once_value_453) { - fra.me.REG[6] = BOX_NativeString("(G_sys)"); - REGB1 = TAG_Int(7); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_453 = fra.me.REG[6]; - register_static_object(&once_value_453); - } else fra.me.REG[6] = once_value_453; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:886 */ - if (!once_value_454) { - if (!once_value_455) { - fra.me.REG[6] = BOX_NativeString("is_same_type"); - REGB1 = TAG_Int(12); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_455 = fra.me.REG[6]; - register_static_object(&once_value_455); - } else fra.me.REG[6] = once_value_455; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_454 = fra.me.REG[6]; - register_static_object(&once_value_454); - } else fra.me.REG[6] = once_value_454; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:887 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_456) { - fra.me.REG[2] = BOX_NativeString("TAG_Bool((VAL2VFT("); - REGB1 = TAG_Int(18); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_456 = fra.me.REG[2]; - register_static_object(&once_value_456); - } else fra.me.REG[2] = once_value_456; - fra.me.REG[2] = fra.me.REG[2]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[2] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label457; - label457: while(0); - /* compiling/compiling_icode.nit:887 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - if (!once_value_458) { - fra.me.REG[2] = BOX_NativeString(")==VAL2VFT("); - REGB1 = TAG_Int(11); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_458 = fra.me.REG[2]; - register_static_object(&once_value_458); - } else fra.me.REG[2] = once_value_458; - fra.me.REG[2] = fra.me.REG[2]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[2] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label459; - label459: while(0); - /* compiling/compiling_icode.nit:887 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - if (!once_value_460) { - fra.me.REG[2] = BOX_NativeString(")))"); - REGB1 = TAG_Int(3); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_460 = fra.me.REG[2]; - register_static_object(&once_value_460); - } else fra.me.REG[2] = once_value_460; - fra.me.REG[2] = fra.me.REG[2]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:888 */ - if (!once_value_461) { - if (!once_value_462) { - fra.me.REG[6] = BOX_NativeString("exit"); - REGB1 = TAG_Int(4); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_462 = fra.me.REG[6]; - register_static_object(&once_value_462); - } else fra.me.REG[6] = once_value_462; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_461 = fra.me.REG[6]; - register_static_object(&once_value_461); - } else fra.me.REG[6] = once_value_461; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:889 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_463) { - fra.me.REG[2] = BOX_NativeString("exit(UNTAG_Int("); - REGB1 = TAG_Int(15); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_463 = fra.me.REG[2]; - register_static_object(&once_value_463); - } else fra.me.REG[2] = once_value_463; - fra.me.REG[2] = fra.me.REG[2]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[2] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label464; - label464: while(0); - /* compiling/compiling_icode.nit:889 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - if (!once_value_465) { - fra.me.REG[2] = BOX_NativeString("));"); - REGB1 = TAG_Int(3); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_465 = fra.me.REG[2]; - register_static_object(&once_value_465); - } else fra.me.REG[2] = once_value_465; - fra.me.REG[2] = fra.me.REG[2]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:890 */ - if (!once_value_466) { - if (!once_value_467) { - fra.me.REG[6] = BOX_NativeString("calloc_array"); - REGB1 = TAG_Int(12); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_467 = fra.me.REG[6]; - register_static_object(&once_value_467); - } else fra.me.REG[6] = once_value_467; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_466 = fra.me.REG[6]; - register_static_object(&once_value_466); - } else fra.me.REG[6] = once_value_466; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:891 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_468) { - fra.me.REG[2] = BOX_NativeString("NEW_NativeArray(UNTAG_Int("); - REGB1 = TAG_Int(26); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_468 = fra.me.REG[2]; - register_static_object(&once_value_468); - } else fra.me.REG[2] = once_value_468; - fra.me.REG[2] = fra.me.REG[2]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[2] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label469; - label469: while(0); - /* compiling/compiling_icode.nit:891 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - if (!once_value_470) { - fra.me.REG[2] = BOX_NativeString("), sizeof(val_t))"); - REGB1 = TAG_Int(17); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_470 = fra.me.REG[2]; - register_static_object(&once_value_470); - } else fra.me.REG[2] = once_value_470; - fra.me.REG[2] = fra.me.REG[2]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:892 */ - if (!once_value_471) { - if (!once_value_472) { - fra.me.REG[6] = BOX_NativeString("calloc_string"); - REGB1 = TAG_Int(13); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_472 = fra.me.REG[6]; - register_static_object(&once_value_472); - } else fra.me.REG[6] = once_value_472; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_471 = fra.me.REG[6]; - register_static_object(&once_value_471); - } else fra.me.REG[6] = once_value_471; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:893 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_473) { - fra.me.REG[2] = BOX_NativeString("BOX_NativeString((char*)raw_alloc((UNTAG_Int("); - REGB1 = TAG_Int(45); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_473 = fra.me.REG[2]; - register_static_object(&once_value_473); - } else fra.me.REG[2] = once_value_473; - fra.me.REG[2] = fra.me.REG[2]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[2] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label474; - label474: while(0); - /* compiling/compiling_icode.nit:893 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - if (!once_value_475) { - fra.me.REG[2] = BOX_NativeString(") * sizeof(char))))"); - REGB1 = TAG_Int(19); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_475 = fra.me.REG[2]; - register_static_object(&once_value_475); - } else fra.me.REG[2] = once_value_475; - fra.me.REG[2] = fra.me.REG[2]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:895 */ - if (!once_value_476) { - if (!once_value_477) { - fra.me.REG[6] = BOX_NativeString("output_class_name"); - REGB1 = TAG_Int(17); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_477 = fra.me.REG[6]; - register_static_object(&once_value_477); - } else fra.me.REG[6] = once_value_477; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_476 = fra.me.REG[6]; - register_static_object(&once_value_476); - } else fra.me.REG[6] = once_value_476; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:896 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_478) { - fra.me.REG[2] = BOX_NativeString("printf(\"%s\\n\", VAL2VFT("); - REGB1 = TAG_Int(23); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_478 = fra.me.REG[2]; - register_static_object(&once_value_478); - } else fra.me.REG[2] = once_value_478; - fra.me.REG[2] = fra.me.REG[2]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:279 */ - fra.me.REG[2] = fra.me.REG[4]; - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label479; - label479: while(0); - /* compiling/compiling_icode.nit:896 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - if (!once_value_480) { - fra.me.REG[2] = BOX_NativeString(")[2].cname);"); - REGB1 = TAG_Int(12); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_480 = fra.me.REG[2]; - register_static_object(&once_value_480); - } else fra.me.REG[2] = once_value_480; - fra.me.REG[2] = fra.me.REG[2]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } else { - /* compiling/compiling_icode.nit:898 */ - if (!once_value_481) { - if (!once_value_482) { - fra.me.REG[6] = BOX_NativeString("native_class_name"); - REGB1 = TAG_Int(17); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_482 = fra.me.REG[6]; - register_static_object(&once_value_482); - } else fra.me.REG[6] = once_value_482; - fra.me.REG[6] = fra.me.REG[6]; - fra.me.REG[6] = CALL_symbol___String___to_symbol(fra.me.REG[6])(fra.me.REG[6]); - once_value_481 = fra.me.REG[6]; - register_static_object(&once_value_481); - } else fra.me.REG[6] = once_value_481; - fra.me.REG[6] = fra.me.REG[6]; - REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[6])); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - REGB1 = REGB2; - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:899 */ - REGB1 = TAG_Int(3); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_483) { - fra.me.REG[3] = BOX_NativeString("BOX_NativeString(VAL2VFT("); - REGB1 = TAG_Int(25); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB1); - once_value_483 = fra.me.REG[3]; - register_static_object(&once_value_483); - } else fra.me.REG[3] = once_value_483; - fra.me.REG[3] = fra.me.REG[3]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[3]); - REGB1 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:281 */ - REGB2 = TAG_Int(0); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4])!=NIT_NULL); - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4]); - REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB2 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label484; - label484: while(0); - /* compiling/compiling_icode.nit:899 */ - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[4]); - if (!once_value_485) { - fra.me.REG[4] = BOX_NativeString(")[2].cname);"); - REGB1 = TAG_Int(12); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1); - once_value_485 = fra.me.REG[4]; - register_static_object(&once_value_485); - } else fra.me.REG[4] = once_value_485; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[4]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - fra.me.REG[5] = fra.me.REG[6]; - } - } - } - } - } - } - } - } - } - } - } - } - } - } - } - /* compiling/compiling_icode.nit:902 */ - REGB1 = TAG_Bool(fra.me.REG[5]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = TAG_Bool(fra.me.REG[5]==NIT_NULL); - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(0); - REGB1 = REGB2; - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[5])(fra.me.REG[5], NIT_NULL); - REGB1 = REGB2; - } - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:903 */ - fra.me.REG[6] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - /* compiling/compiling_icode.nit:904 */ - REGB1 = TAG_Bool(fra.me.REG[6]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = TAG_Bool(fra.me.REG[6]==NIT_NULL); - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(0); - REGB1 = REGB2; - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[6])(fra.me.REG[6], NIT_NULL); - REGB1 = REGB2; - } - } - REGB1 = TAG_Bool(!UNTAG_Bool(REGB1)); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Int(3); - fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_486) { - fra.me.REG[3] = BOX_NativeString("fprintf(stderr, \""); - REGB1 = TAG_Int(17); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB1); - once_value_486 = fra.me.REG[3]; - register_static_object(&once_value_486); - } else fra.me.REG[3] = once_value_486; - fra.me.REG[3] = fra.me.REG[3]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]); - REGB1 = TAG_Bool(fra.me.REG[6]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 904); - } - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]); - if (!once_value_487) { - fra.me.REG[6] = BOX_NativeString(": \");"); - REGB1 = TAG_Int(5); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_487 = fra.me.REG[6]; - register_static_object(&once_value_487); - } else fra.me.REG[6] = once_value_487; - fra.me.REG[6] = fra.me.REG[6]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]); - fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); - } - /* compiling/compiling_icode.nit:905 */ - REGB1 = TAG_Int(3); - fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_488) { - fra.me.REG[6] = BOX_NativeString("fprintf(stderr, \"Fatal error: unknown intern method "); - REGB1 = TAG_Int(52); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_488 = fra.me.REG[6]; - register_static_object(&once_value_488); - } else fra.me.REG[6] = once_value_488; - fra.me.REG[6] = fra.me.REG[6]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]); - fra.me.REG[6] = CALL_icode___icode_base___INative___method(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[6] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(fra.me.REG[6])(fra.me.REG[6]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]); - if (!once_value_489) { - fra.me.REG[6] = BOX_NativeString(".\\n\");"); - REGB1 = TAG_Int(6); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_489 = fra.me.REG[6]; - register_static_object(&once_value_489); - } else fra.me.REG[6] = once_value_489; - fra.me.REG[6] = fra.me.REG[6]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]); - fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); - /* compiling/compiling_icode.nit:906 */ - if (!once_value_490) { - fra.me.REG[4] = BOX_NativeString("nit_exit(1);"); - REGB1 = TAG_Int(12); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1); - once_value_490 = fra.me.REG[4]; - register_static_object(&once_value_490); - } else fra.me.REG[4] = once_value_490; - fra.me.REG[4] = fra.me.REG[4]; - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); - /* compiling/compiling_icode.nit:907 */ - if (!once_value_491) { - fra.me.REG[4] = BOX_NativeString("NIT_NULL"); - REGB1 = TAG_Int(8); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1); - once_value_491 = fra.me.REG[4]; - register_static_object(&once_value_491); - } else fra.me.REG[4] = once_value_491; - fra.me.REG[4] = fra.me.REG[4]; - fra.me.REG[5] = fra.me.REG[4]; - } - /* compiling/compiling_icode.nit:909 */ - fra.me.REG[4] = CALL_icode___icode_base___ICode___result(fra.me.REG[0])(fra.me.REG[0]); - REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = TAG_Bool(fra.me.REG[4]==NIT_NULL); - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(0); - REGB1 = REGB2; - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], NIT_NULL); - REGB1 = REGB2; - } - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:910 */ - fra.me.REG[4] = CALL_compiling___compiling_icode___I2CCompilerVisitor___new_instr(fra.me.REG[1])(fra.me.REG[1]); - fra.me.REG[4] = CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); - if (!once_value_492) { - fra.me.REG[6] = BOX_NativeString(";\n"); - REGB1 = TAG_Int(2); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB1); - once_value_492 = fra.me.REG[6]; - register_static_object(&once_value_492); - } else fra.me.REG[6] = once_value_492; - fra.me.REG[6] = fra.me.REG[6]; - CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]); - } else { - /* compiling/compiling_icode.nit:911 */ - REGB1 = CALL_compiling___compiling_icode___ICode___need_result(fra.me.REG[0])(fra.me.REG[0]); - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:912 */ - fra.me.REG[1] = CALL_compiling___compiling_icode___ICode___new_result(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - /* compiling/compiling_icode.nit:913 */ - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[5]); - } - } - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___IIntValue___compile_to_c[] = "compiling_icode::IIntValue::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___IIntValue___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; - val_t REGB0; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 919; - fra.me.meth = LOCATE_compiling___compiling_icode___IIntValue___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 3; - fra.me.nitni_local_ref_head = NULL; - 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; - /* compiling/compiling_icode.nit:921 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:922 */ - fra.me.REG[1] = CALL_compiling___compiling_icode___ICode___new_result(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - /* compiling/compiling_icode.nit:923 */ - if (!once_value_1) { - fra.me.REG[2] = BOX_NativeString("TAG_Int("); - REGB0 = TAG_Int(8); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0); - once_value_1 = fra.me.REG[2]; - register_static_object(&once_value_1); - } else fra.me.REG[2] = once_value_1; - fra.me.REG[2] = fra.me.REG[2]; - fra.me.REG[2] = CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - fra.me.REG[0] = CALL_icode___icode_base___IIntValue___value(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - if (!once_value_2) { - fra.me.REG[2] = BOX_NativeString(")"); - REGB0 = TAG_Int(1); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0); - once_value_2 = fra.me.REG[2]; - register_static_object(&once_value_2); - } else fra.me.REG[2] = once_value_2; - fra.me.REG[2] = fra.me.REG[2]; - CALL_compiling_writer___Writer___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___IBoolValue___compile_to_c[] = "compiling_icode::IBoolValue::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___IBoolValue___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; - val_t REGB0; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - static val_t once_value_4; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 928; - fra.me.meth = LOCATE_compiling___compiling_icode___IBoolValue___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 3; - fra.me.nitni_local_ref_head = NULL; - 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; - /* compiling/compiling_icode.nit:930 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:931 */ - fra.me.REG[1] = CALL_compiling___compiling_icode___ICode___new_result(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - /* compiling/compiling_icode.nit:932 */ - if (!once_value_1) { - fra.me.REG[2] = BOX_NativeString("TAG_Bool("); - REGB0 = TAG_Int(9); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0); - once_value_1 = fra.me.REG[2]; - register_static_object(&once_value_1); - } else fra.me.REG[2] = once_value_1; - fra.me.REG[2] = fra.me.REG[2]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:933 */ - REGB0 = CALL_icode___icode_base___IBoolValue___value(fra.me.REG[0])(fra.me.REG[0]); - if (UNTAG_Bool(REGB0)) { - if (!once_value_2) { - fra.me.REG[0] = BOX_NativeString("1"); - REGB0 = TAG_Int(1); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_2 = fra.me.REG[0]; - register_static_object(&once_value_2); - } else fra.me.REG[0] = once_value_2; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - } else { - if (!once_value_3) { - fra.me.REG[0] = BOX_NativeString("0"); - REGB0 = TAG_Int(1); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_3 = fra.me.REG[0]; - register_static_object(&once_value_3); - } else fra.me.REG[0] = once_value_3; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - } - /* compiling/compiling_icode.nit:934 */ - if (!once_value_4) { - fra.me.REG[0] = BOX_NativeString(")"); - REGB0 = TAG_Int(1); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_4 = fra.me.REG[0]; - register_static_object(&once_value_4); - } else fra.me.REG[0] = once_value_4; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___ICharValue___compile_to_c[] = "compiling_icode::ICharValue::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___ICharValue___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; - val_t REGB0; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 939; - fra.me.meth = LOCATE_compiling___compiling_icode___ICharValue___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 3; - fra.me.nitni_local_ref_head = NULL; - 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; - /* compiling/compiling_icode.nit:941 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:942 */ - fra.me.REG[1] = CALL_compiling___compiling_icode___ICode___new_result(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - /* compiling/compiling_icode.nit:943 */ - if (!once_value_1) { - fra.me.REG[2] = BOX_NativeString("TAG_Char("); - REGB0 = TAG_Int(9); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0); - once_value_1 = fra.me.REG[2]; - register_static_object(&once_value_1); - } else fra.me.REG[2] = once_value_1; - fra.me.REG[2] = fra.me.REG[2]; - fra.me.REG[2] = CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - fra.me.REG[0] = CALL_icode___icode_base___ICharValue___value(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - if (!once_value_2) { - fra.me.REG[2] = BOX_NativeString(")"); - REGB0 = TAG_Int(1); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0); - once_value_2 = fra.me.REG[2]; - register_static_object(&once_value_2); - } else fra.me.REG[2] = once_value_2; - fra.me.REG[2] = fra.me.REG[2]; - CALL_compiling_writer___Writer___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___IFloatValue___compile_to_c[] = "compiling_icode::IFloatValue::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___IFloatValue___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; - val_t REGB0; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 948; - fra.me.meth = LOCATE_compiling___compiling_icode___IFloatValue___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 3; - fra.me.nitni_local_ref_head = NULL; - 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; - /* compiling/compiling_icode.nit:950 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:951 */ - fra.me.REG[1] = CALL_compiling___compiling_icode___ICode___new_result(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - /* compiling/compiling_icode.nit:952 */ - if (!once_value_1) { - fra.me.REG[2] = BOX_NativeString("BOX_Float("); - REGB0 = TAG_Int(10); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0); - once_value_1 = fra.me.REG[2]; - register_static_object(&once_value_1); - } else fra.me.REG[2] = once_value_1; - fra.me.REG[2] = fra.me.REG[2]; - fra.me.REG[2] = CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - fra.me.REG[0] = CALL_icode___icode_base___IFloatValue___value(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - if (!once_value_2) { - fra.me.REG[2] = BOX_NativeString(")"); - REGB0 = TAG_Int(1); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0); - once_value_2 = fra.me.REG[2]; - register_static_object(&once_value_2); - } else fra.me.REG[2] = once_value_2; - fra.me.REG[2] = fra.me.REG[2]; - CALL_compiling_writer___Writer___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___IStringValue___compile_to_c[] = "compiling_icode::IStringValue::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___IStringValue___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; - val_t REGB0; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 957; - fra.me.meth = LOCATE_compiling___compiling_icode___IStringValue___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 3; - fra.me.nitni_local_ref_head = NULL; - 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; - /* compiling/compiling_icode.nit:959 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:960 */ - fra.me.REG[1] = CALL_compiling___compiling_icode___ICode___new_result(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - /* compiling/compiling_icode.nit:961 */ - if (!once_value_1) { - fra.me.REG[2] = BOX_NativeString("BOX_NativeString(\""); - REGB0 = TAG_Int(18); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0); - once_value_1 = fra.me.REG[2]; - register_static_object(&once_value_1); - } else fra.me.REG[2] = once_value_1; - fra.me.REG[2] = fra.me.REG[2]; - fra.me.REG[2] = CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - fra.me.REG[0] = CALL_icode___icode_base___IStringValue___value(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - if (!once_value_2) { - fra.me.REG[2] = BOX_NativeString("\")"); - REGB0 = TAG_Int(2); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0); - once_value_2 = fra.me.REG[2]; - register_static_object(&once_value_2); - } else fra.me.REG[2] = once_value_2; - fra.me.REG[2] = fra.me.REG[2]; - CALL_compiling_writer___Writer___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___IAbort___compile_to_c[] = "compiling_icode::IAbort::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___IAbort___compile_to_c(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 REGB2; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_3; /* Once value */ - static val_t once_value_5; /* Once value */ - static val_t once_value_6; /* Once value */ - static val_t once_value_7; /* Once value */ - static val_t once_value_8; /* Once value */ - static val_t once_value_9; /* Once value */ - static val_t once_value_10; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 966; - fra.me.meth = LOCATE_compiling___compiling_icode___IAbort___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 3; - fra.me.nitni_local_ref_head = NULL; - 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; - /* compiling/compiling_icode.nit:968 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:969 */ - fra.me.REG[1] = CALL_compiling___compiling_icode___I2CCompilerVisitor___new_instr(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:970 */ - if (!once_value_1) { - fra.me.REG[2] = BOX_NativeString("nit_abort(\""); - REGB0 = TAG_Int(11); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0); - once_value_1 = fra.me.REG[2]; - register_static_object(&once_value_1); - } else fra.me.REG[2] = once_value_1; - fra.me.REG[2] = fra.me.REG[2]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:971 */ - fra.me.REG[2] = CALL_icode___icode_base___IAbort___texts(fra.me.REG[0])(fra.me.REG[0]); - REGB0 = TAG_Int(0); - /* ../lib/standard/collection/array.nit:281 */ - REGB1 = TAG_Int(0); - REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/; - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB1 = TAG_Bool(UNTAG_Int(REGB0)>=UNTAG_Int(REGB1)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL); - if (UNTAG_Bool(REGB1)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]); - REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/; - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB1 = TAG_Bool(UNTAG_Int(REGB0)val[UNTAG_Int(REGB0)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label2; - label2: while(0); - /* compiling/compiling_icode.nit:971 */ - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:972 */ - fra.me.REG[2] = CALL_icode___icode_base___IAbort___texts(fra.me.REG[0])(fra.me.REG[0]); - /* ../lib/standard/collection/array.nit:24 */ - REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24); - } - REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]); - /* compiling/compiling_icode.nit:972 */ - REGB1 = TAG_Int(1); - REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/; - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:244 */ - REGB1 = TAG_Bool(UNTAG_Int(REGB0)>UNTAG_Int(REGB1)); - /* compiling/compiling_icode.nit:972 */ - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:973 */ - if (!once_value_3) { - fra.me.REG[2] = BOX_NativeString("\", \""); - REGB1 = TAG_Int(4); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_3 = fra.me.REG[2]; - register_static_object(&once_value_3); - } else fra.me.REG[2] = once_value_3; - fra.me.REG[2] = fra.me.REG[2]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:974 */ - fra.me.REG[2] = CALL_icode___icode_base___IAbort___texts(fra.me.REG[0])(fra.me.REG[0]); - REGB1 = TAG_Int(1); - /* ../lib/standard/collection/array.nit:281 */ - REGB0 = TAG_Int(0); - REGB2 = TAG_Bool(VAL_ISA(REGB0, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:243 */ - REGB0 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB0)); - /* ../lib/standard/collection/array.nit:281 */ - if (UNTAG_Bool(REGB0)) { - REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281); - } - REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]); - REGB2 = TAG_Bool(VAL_ISA(REGB0, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/; - if (UNTAG_Bool(REGB2)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0); - } - /* ../lib/standard/kernel.nit:242 */ - REGB0 = TAG_Bool(UNTAG_Int(REGB1)val[UNTAG_Int(REGB1)]; - /* ../lib/standard/collection/array.nit:282 */ - goto label4; - label4: while(0); - /* compiling/compiling_icode.nit:974 */ - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:975 */ - if (!once_value_5) { - fra.me.REG[2] = BOX_NativeString("\""); - REGB1 = TAG_Int(1); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_5 = fra.me.REG[2]; - register_static_object(&once_value_5); - } else fra.me.REG[2] = once_value_5; - fra.me.REG[2] = fra.me.REG[2]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - } else { - /* compiling/compiling_icode.nit:977 */ - if (!once_value_6) { - fra.me.REG[2] = BOX_NativeString("\", NULL"); - REGB1 = TAG_Int(7); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_6 = fra.me.REG[2]; - register_static_object(&once_value_6); - } else fra.me.REG[2] = once_value_6; - fra.me.REG[2] = fra.me.REG[2]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - } - /* compiling/compiling_icode.nit:979 */ - if (!once_value_7) { - fra.me.REG[2] = BOX_NativeString(", LOCATE_"); - REGB1 = TAG_Int(9); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_7 = fra.me.REG[2]; - register_static_object(&once_value_7); - } else fra.me.REG[2] = once_value_7; - fra.me.REG[2] = fra.me.REG[2]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:980 */ - fra.me.REG[2] = CALL_icode___icode_base___IAbort___module_location(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[2] = CALL_compiling___compiling_base___MMModule___cname(fra.me.REG[2])(fra.me.REG[2]); - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:981 */ - fra.me.REG[0] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - /* compiling/compiling_icode.nit:982 */ - REGB1 = TAG_Bool(fra.me.REG[0]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - } else { - REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - REGB0 = TAG_Bool(0); - REGB1 = REGB0; - } else { - REGB0 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], NIT_NULL); - REGB1 = REGB0; - } - } - REGB1 = TAG_Bool(!UNTAG_Bool(REGB1)); - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:983 */ - if (!once_value_8) { - fra.me.REG[2] = BOX_NativeString(", "); - REGB1 = TAG_Int(2); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); - once_value_8 = fra.me.REG[2]; - register_static_object(&once_value_8); - } else fra.me.REG[2] = once_value_8; - fra.me.REG[2] = fra.me.REG[2]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:984 */ - REGB1 = TAG_Bool(fra.me.REG[0]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 984); - } - REGB1 = CALL_location___Location___line_start(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_standard___string___Object___to_s(REGB1)(REGB1); - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - } else { - /* compiling/compiling_icode.nit:986 */ - if (!once_value_9) { - fra.me.REG[0] = BOX_NativeString(", 0"); - REGB1 = TAG_Int(3); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB1); - once_value_9 = fra.me.REG[0]; - register_static_object(&once_value_9); - } else fra.me.REG[0] = once_value_9; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - } - /* compiling/compiling_icode.nit:988 */ - if (!once_value_10) { - fra.me.REG[0] = BOX_NativeString(");\n"); - REGB1 = TAG_Int(3); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB1); - once_value_10 = fra.me.REG[0]; - register_static_object(&once_value_10); - } else fra.me.REG[0] = once_value_10; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___IMove___compile_to_c[] = "compiling_icode::IMove::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___IMove___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[4];} fra; - val_t REGB0; - val_t REGB1; - val_t tmp; - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 993; - fra.me.meth = LOCATE_compiling___compiling_icode___IMove___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 5; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[4] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:993 */ - fra.me.REG[2] = fra.me.REG[0]; - /* compiling/compiling_icode.nit:995 */ - REGB0 = CALL_compiling___compiling_icode___ICode___need_result(fra.me.REG[2])(fra.me.REG[2]); - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - goto label1; - } - /* compiling/compiling_icode.nit:996 */ - fra.me.REG[3] = CALL_icode___icode_base___ICode1___expr(fra.me.REG[2])(fra.me.REG[2]); - fra.me.REG[3] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:997 */ - fra.me.REG[4] = CALL_icode___icode_base___ICode___result(fra.me.REG[2])(fra.me.REG[2]); - REGB0 = TAG_Bool((fra.me.REG[4]!=NIT_NULL) && VAL_ISA(fra.me.REG[4], COLOR_icode___icode_base___IRegister, ID_icode___icode_base___IRegister)) /*cast IRegister*/; - if (UNTAG_Bool(REGB0)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_compiling___compiling_icode, 997); - } - fra.me.REG[4] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); - /* compiling/compiling_icode.nit:998 */ - REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[4])); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - REGB0 = REGB1; - } - if (UNTAG_Bool(REGB0)) { - goto label1; - } - /* compiling/compiling_icode.nit:999 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[2])(fra.me.REG[2]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:1000 */ - fra.me.REG[1] = CALL_compiling___compiling_icode___I2CCompilerVisitor___new_instr(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:1001 */ - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); - /* compiling/compiling_icode.nit:1002 */ - if (!once_value_2) { - fra.me.REG[4] = BOX_NativeString(" = "); - REGB0 = TAG_Int(3); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_2 = fra.me.REG[4]; - register_static_object(&once_value_2); - } else fra.me.REG[4] = once_value_2; - fra.me.REG[4] = fra.me.REG[4]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); - /* compiling/compiling_icode.nit:1003 */ - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1004 */ - if (!once_value_3) { - fra.me.REG[3] = BOX_NativeString(";\n"); - REGB0 = TAG_Int(2); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_3 = fra.me.REG[3]; - register_static_object(&once_value_3); - } else fra.me.REG[3] = once_value_3; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - label1: while(0); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___IAttrRead___compile_to_c[] = "compiling_icode::IAttrRead::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___IAttrRead___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; - val_t REGB0; - val_t tmp; - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 1009; - fra.me.meth = LOCATE_compiling___compiling_icode___IAttrRead___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 4; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:1011 */ - REGB0 = CALL_compiling___compiling_icode___ICode___need_result(fra.me.REG[0])(fra.me.REG[0]); - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - goto label1; - } - /* compiling/compiling_icode.nit:1012 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:1013 */ - fra.me.REG[2] = CALL_compiling___compiling_icode___ICode___new_result(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - /* compiling/compiling_icode.nit:1014 */ - fra.me.REG[3] = CALL_icode___icode_base___IAttrRead___property(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[3])(fra.me.REG[3]); - fra.me.REG[3] = CALL_compiling___compiling_base___MMGlobalProperty___attr_access(fra.me.REG[3])(fra.me.REG[3]); - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1015 */ - if (!once_value_2) { - fra.me.REG[3] = BOX_NativeString("("); - REGB0 = TAG_Int(1); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_2 = fra.me.REG[3]; - register_static_object(&once_value_2); - } else fra.me.REG[3] = once_value_2; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1016 */ - fra.me.REG[0] = CALL_icode___icode_base___ICode1___expr(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - /* compiling/compiling_icode.nit:1017 */ - if (!once_value_3) { - fra.me.REG[0] = BOX_NativeString(")"); - REGB0 = TAG_Int(1); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_3 = fra.me.REG[0]; - register_static_object(&once_value_3); - } else fra.me.REG[0] = once_value_3; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - label1: while(0); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___IAttrIsset___compile_to_c[] = "compiling_icode::IAttrIsset::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___IAttrIsset___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; - val_t REGB0; - val_t tmp; - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - static val_t once_value_4; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 1022; - fra.me.meth = LOCATE_compiling___compiling_icode___IAttrIsset___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 4; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:1024 */ - REGB0 = CALL_compiling___compiling_icode___ICode___need_result(fra.me.REG[0])(fra.me.REG[0]); - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - goto label1; - } - /* compiling/compiling_icode.nit:1025 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:1026 */ - fra.me.REG[2] = CALL_compiling___compiling_icode___ICode___new_result(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - /* compiling/compiling_icode.nit:1027 */ - if (!once_value_2) { - fra.me.REG[3] = BOX_NativeString("TAG_Bool("); - REGB0 = TAG_Int(9); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_2 = fra.me.REG[3]; - register_static_object(&once_value_2); - } else fra.me.REG[3] = once_value_2; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1028 */ - fra.me.REG[3] = CALL_icode___icode_base___IAttrIsset___property(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[3])(fra.me.REG[3]); - fra.me.REG[3] = CALL_compiling___compiling_base___MMGlobalProperty___attr_access(fra.me.REG[3])(fra.me.REG[3]); - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1029 */ - if (!once_value_3) { - fra.me.REG[3] = BOX_NativeString("("); - REGB0 = TAG_Int(1); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_3 = fra.me.REG[3]; - register_static_object(&once_value_3); - } else fra.me.REG[3] = once_value_3; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1030 */ - fra.me.REG[0] = CALL_icode___icode_base___ICode1___expr(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - /* compiling/compiling_icode.nit:1031 */ - if (!once_value_4) { - fra.me.REG[0] = BOX_NativeString(")!=NIT_NULL)"); - REGB0 = TAG_Int(12); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_4 = fra.me.REG[0]; - register_static_object(&once_value_4); - } else fra.me.REG[0] = once_value_4; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - label1: while(0); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___IAttrWrite___compile_to_c[] = "compiling_icode::IAttrWrite::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___IAttrWrite___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; - val_t REGB0; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 1036; - fra.me.meth = LOCATE_compiling___compiling_icode___IAttrWrite___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 4; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:1038 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:1039 */ - fra.me.REG[2] = CALL_compiling___compiling_icode___I2CCompilerVisitor___new_instr(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:1040 */ - fra.me.REG[3] = CALL_icode___icode_base___IAttrWrite___property(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[3])(fra.me.REG[3]); - fra.me.REG[3] = CALL_compiling___compiling_base___MMGlobalProperty___attr_access(fra.me.REG[3])(fra.me.REG[3]); - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1041 */ - if (!once_value_1) { - fra.me.REG[3] = BOX_NativeString("("); - REGB0 = TAG_Int(1); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_1 = fra.me.REG[3]; - register_static_object(&once_value_1); - } else fra.me.REG[3] = once_value_1; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1042 */ - fra.me.REG[3] = CALL_icode___icode_base___ICode2___expr1(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[3] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1043 */ - if (!once_value_2) { - fra.me.REG[3] = BOX_NativeString(") = "); - REGB0 = TAG_Int(4); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_2 = fra.me.REG[3]; - register_static_object(&once_value_2); - } else fra.me.REG[3] = once_value_2; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1044 */ - fra.me.REG[0] = CALL_icode___icode_base___ICode2___expr2(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - /* compiling/compiling_icode.nit:1045 */ - if (!once_value_3) { - fra.me.REG[0] = BOX_NativeString(";\n"); - REGB0 = TAG_Int(2); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_3 = fra.me.REG[0]; - register_static_object(&once_value_3); - } else fra.me.REG[0] = once_value_3; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___ITypeCheck___compile_to_c[] = "compiling_icode::ITypeCheck::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___ITypeCheck___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[5];} fra; - val_t REGB0; - val_t REGB1; - val_t tmp; - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - static val_t once_value_4; /* Once value */ - static val_t once_value_5; /* Once value */ - static val_t once_value_6; /* Once value */ - static val_t once_value_7; /* Once value */ - static val_t once_value_8; /* Once value */ - static val_t once_value_9; /* Once value */ - static val_t once_value_10; /* Once value */ - static val_t once_value_11; /* Once value */ - static val_t once_value_12; /* Once value */ - static val_t once_value_13; /* Once value */ - static val_t once_value_14; /* Once value */ - static val_t once_value_15; /* Once value */ - static val_t once_value_16; /* Once value */ - static val_t once_value_17; /* Once value */ - static val_t once_value_18; /* Once value */ - static val_t once_value_19; /* Once value */ - static val_t once_value_20; /* Once value */ - static val_t once_value_21; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 1050; - fra.me.meth = LOCATE_compiling___compiling_icode___ITypeCheck___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 6; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[4] = NIT_NULL; - fra.me.REG[5] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:1052 */ - REGB0 = CALL_compiling___compiling_icode___ICode___need_result(fra.me.REG[0])(fra.me.REG[0]); - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - goto label1; - } - /* compiling/compiling_icode.nit:1053 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:1054 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode2___expr2(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[2] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:1055 */ - fra.me.REG[3] = CALL_compiling___compiling_icode___ICode___new_result(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - /* compiling/compiling_icode.nit:1056 */ - if (!once_value_2) { - fra.me.REG[4] = BOX_NativeString("TAG_Bool("); - REGB0 = TAG_Int(9); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_2 = fra.me.REG[4]; - register_static_object(&once_value_2); - } else fra.me.REG[4] = once_value_2; - fra.me.REG[4] = fra.me.REG[4]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - /* compiling/compiling_icode.nit:1057 */ - fra.me.REG[4] = CALL_icode___icode_base___ICode2___expr2(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[4] = CALL_icode___icode_base___IRegister___stype(fra.me.REG[4])(fra.me.REG[4]); - REGB0 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[4])(fra.me.REG[4]); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:1058 */ - fra.me.REG[4] = CALL_icode___icode_base___ITypeCheck___stype(fra.me.REG[0])(fra.me.REG[0]); - REGB0 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[4])(fra.me.REG[4]); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:1059 */ - if (!once_value_3) { - fra.me.REG[4] = BOX_NativeString("("); - REGB0 = TAG_Int(1); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_3 = fra.me.REG[4]; - register_static_object(&once_value_3); - } else fra.me.REG[4] = once_value_3; - fra.me.REG[4] = fra.me.REG[4]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - /* compiling/compiling_icode.nit:1060 */ - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]); - /* compiling/compiling_icode.nit:1061 */ - if (!once_value_4) { - fra.me.REG[4] = BOX_NativeString("==NIT_NULL) || "); - REGB0 = TAG_Int(15); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_4 = fra.me.REG[4]; - register_static_object(&once_value_4); - } else fra.me.REG[4] = once_value_4; - fra.me.REG[4] = fra.me.REG[4]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - } else { - /* compiling/compiling_icode.nit:1062 */ - fra.me.REG[4] = CALL_icode___icode_base___ITypeCheck___stype(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[4] = CALL_metamodel___static_type___MMType___as_nullable(fra.me.REG[4])(fra.me.REG[4]); - fra.me.REG[5] = CALL_icode___icode_base___ICode2___expr2(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[5] = CALL_icode___icode_base___IRegister___stype(fra.me.REG[5])(fra.me.REG[5]); - REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[4],fra.me.REG[5])); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); - REGB0 = REGB1; - } - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:1063 */ - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]); - /* compiling/compiling_icode.nit:1064 */ - if (!once_value_5) { - fra.me.REG[5] = BOX_NativeString("!=NIT_NULL)"); - REGB0 = TAG_Int(11); - fra.me.REG[5] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[5])(fra.me.REG[5], REGB0); - once_value_5 = fra.me.REG[5]; - register_static_object(&once_value_5); - } else fra.me.REG[5] = once_value_5; - fra.me.REG[5] = fra.me.REG[5]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]); - /* compiling/compiling_icode.nit:1065 */ - goto label1; - } else { - /* compiling/compiling_icode.nit:1067 */ - if (!once_value_6) { - fra.me.REG[5] = BOX_NativeString("("); - REGB0 = TAG_Int(1); - fra.me.REG[5] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[5])(fra.me.REG[5], REGB0); - once_value_6 = fra.me.REG[5]; - register_static_object(&once_value_6); - } else fra.me.REG[5] = once_value_6; - fra.me.REG[5] = fra.me.REG[5]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]); - /* compiling/compiling_icode.nit:1068 */ - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]); - /* compiling/compiling_icode.nit:1069 */ - if (!once_value_7) { - fra.me.REG[5] = BOX_NativeString("!=NIT_NULL) && "); - REGB0 = TAG_Int(15); - fra.me.REG[5] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[5])(fra.me.REG[5], REGB0); - once_value_7 = fra.me.REG[5]; - register_static_object(&once_value_7); - } else fra.me.REG[5] = once_value_7; - fra.me.REG[5] = fra.me.REG[5]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]); - } - } - } - /* compiling/compiling_icode.nit:1073 */ - fra.me.REG[5] = CALL_icode___icode_base___ITypeCheck___stype(fra.me.REG[0])(fra.me.REG[0]); - /* compiling/compiling_icode.nit:1074 */ - REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[5], COLOR_metamodel___virtualtype___MMVirtualType, ID_metamodel___virtualtype___MMVirtualType)) /*cast MMVirtualType*/; - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:1075 */ - fra.me.REG[0] = CALL_icode___icode_base___ICode2___expr1(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - /* compiling/compiling_icode.nit:1076 */ - fra.me.REG[1] = CALL_metamodel___virtualtype___MMVirtualType___property(fra.me.REG[5])(fra.me.REG[5]); - fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:1077 */ - if (!once_value_8) { - fra.me.REG[4] = BOX_NativeString("VAL_ISA("); - REGB0 = TAG_Int(8); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_8 = fra.me.REG[4]; - register_static_object(&once_value_8); - } else fra.me.REG[4] = once_value_8; - fra.me.REG[4] = fra.me.REG[4]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - /* compiling/compiling_icode.nit:1078 */ - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]); - /* compiling/compiling_icode.nit:1079 */ - if (!once_value_9) { - fra.me.REG[4] = BOX_NativeString(", "); - REGB0 = TAG_Int(2); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_9 = fra.me.REG[4]; - register_static_object(&once_value_9); - } else fra.me.REG[4] = once_value_9; - fra.me.REG[4] = fra.me.REG[4]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - /* compiling/compiling_icode.nit:1080 */ - fra.me.REG[4] = CALL_compiling___compiling_base___MMGlobalProperty___vt_class_color(fra.me.REG[1])(fra.me.REG[1]); - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - /* compiling/compiling_icode.nit:1081 */ - if (!once_value_10) { - fra.me.REG[4] = BOX_NativeString("("); - REGB0 = TAG_Int(1); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_10 = fra.me.REG[4]; - register_static_object(&once_value_10); - } else fra.me.REG[4] = once_value_10; - fra.me.REG[4] = fra.me.REG[4]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - /* compiling/compiling_icode.nit:1082 */ - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]); - /* compiling/compiling_icode.nit:1083 */ - if (!once_value_11) { - fra.me.REG[4] = BOX_NativeString(")"); - REGB0 = TAG_Int(1); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_11 = fra.me.REG[4]; - register_static_object(&once_value_11); - } else fra.me.REG[4] = once_value_11; - fra.me.REG[4] = fra.me.REG[4]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - /* compiling/compiling_icode.nit:1084 */ - if (!once_value_12) { - fra.me.REG[4] = BOX_NativeString(", "); - REGB0 = TAG_Int(2); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_12 = fra.me.REG[4]; - register_static_object(&once_value_12); - } else fra.me.REG[4] = once_value_12; - fra.me.REG[4] = fra.me.REG[4]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - /* compiling/compiling_icode.nit:1085 */ - fra.me.REG[1] = CALL_compiling___compiling_base___MMGlobalProperty___vt_class_id(fra.me.REG[1])(fra.me.REG[1]); - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]); - /* compiling/compiling_icode.nit:1086 */ - if (!once_value_13) { - fra.me.REG[1] = BOX_NativeString("("); - REGB0 = TAG_Int(1); - fra.me.REG[1] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[1])(fra.me.REG[1], REGB0); - once_value_13 = fra.me.REG[1]; - register_static_object(&once_value_13); - } else fra.me.REG[1] = once_value_13; - fra.me.REG[1] = fra.me.REG[1]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]); - /* compiling/compiling_icode.nit:1087 */ - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]); - /* compiling/compiling_icode.nit:1088 */ - if (!once_value_14) { - fra.me.REG[0] = BOX_NativeString(")"); - REGB0 = TAG_Int(1); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_14 = fra.me.REG[0]; - register_static_object(&once_value_14); - } else fra.me.REG[0] = once_value_14; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]); - /* compiling/compiling_icode.nit:1089 */ - if (!once_value_15) { - fra.me.REG[0] = BOX_NativeString(")) /*cast "); - REGB0 = TAG_Int(10); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_15 = fra.me.REG[0]; - register_static_object(&once_value_15); - } else fra.me.REG[0] = once_value_15; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]); - /* compiling/compiling_icode.nit:1090 */ - fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]); - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]); - /* compiling/compiling_icode.nit:1091 */ - if (!once_value_16) { - fra.me.REG[0] = BOX_NativeString("*/"); - REGB0 = TAG_Int(2); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_16 = fra.me.REG[0]; - register_static_object(&once_value_16); - } else fra.me.REG[0] = once_value_16; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]); - } else { - /* compiling/compiling_icode.nit:1093 */ - fra.me.REG[0] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[5])(fra.me.REG[5]); - fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[0])(fra.me.REG[0]); - /* compiling/compiling_icode.nit:1094 */ - if (!once_value_17) { - fra.me.REG[1] = BOX_NativeString("VAL_ISA("); - REGB0 = TAG_Int(8); - fra.me.REG[1] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[1])(fra.me.REG[1], REGB0); - once_value_17 = fra.me.REG[1]; - register_static_object(&once_value_17); - } else fra.me.REG[1] = once_value_17; - fra.me.REG[1] = fra.me.REG[1]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]); - /* compiling/compiling_icode.nit:1095 */ - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]); - /* compiling/compiling_icode.nit:1096 */ - if (!once_value_18) { - fra.me.REG[2] = BOX_NativeString(", "); - REGB0 = TAG_Int(2); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0); - once_value_18 = fra.me.REG[2]; - register_static_object(&once_value_18); - } else fra.me.REG[2] = once_value_18; - fra.me.REG[2] = fra.me.REG[2]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]); - /* compiling/compiling_icode.nit:1097 */ - fra.me.REG[2] = CALL_compiling___compiling_base___MMGlobalClass___color_id(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]); - /* compiling/compiling_icode.nit:1098 */ - if (!once_value_19) { - fra.me.REG[2] = BOX_NativeString(", "); - REGB0 = TAG_Int(2); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0); - once_value_19 = fra.me.REG[2]; - register_static_object(&once_value_19); - } else fra.me.REG[2] = once_value_19; - fra.me.REG[2] = fra.me.REG[2]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]); - /* compiling/compiling_icode.nit:1099 */ - fra.me.REG[0] = CALL_compiling___compiling_base___MMGlobalClass___id_id(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]); - /* compiling/compiling_icode.nit:1100 */ - if (!once_value_20) { - fra.me.REG[0] = BOX_NativeString(")) /*cast "); - REGB0 = TAG_Int(10); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_20 = fra.me.REG[0]; - register_static_object(&once_value_20); - } else fra.me.REG[0] = once_value_20; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]); - /* compiling/compiling_icode.nit:1101 */ - fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]); - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]); - /* compiling/compiling_icode.nit:1102 */ - if (!once_value_21) { - fra.me.REG[5] = BOX_NativeString("*/"); - REGB0 = TAG_Int(2); - fra.me.REG[5] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[5])(fra.me.REG[5], REGB0); - once_value_21 = fra.me.REG[5]; - register_static_object(&once_value_21); - } else fra.me.REG[5] = once_value_21; - fra.me.REG[5] = fra.me.REG[5]; - CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]); - } - label1: while(0); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___IIs___compile_to_c[] = "compiling_icode::IIs::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___IIs___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[5];} fra; - val_t REGB0; - val_t tmp; - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - static val_t once_value_4; /* Once value */ - static val_t once_value_5; /* Once value */ - static val_t once_value_6; /* Once value */ - static val_t once_value_7; /* Once value */ - static val_t once_value_8; /* Once value */ - static val_t once_value_9; /* Once value */ - static val_t once_value_10; /* Once value */ - static val_t once_value_11; /* Once value */ - static val_t once_value_12; /* Once value */ - static val_t once_value_13; /* Once value */ - static val_t once_value_14; /* Once value */ - static val_t once_value_15; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 1108; - fra.me.meth = LOCATE_compiling___compiling_icode___IIs___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 6; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[4] = NIT_NULL; - fra.me.REG[5] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:1110 */ - REGB0 = CALL_compiling___compiling_icode___ICode___need_result(fra.me.REG[0])(fra.me.REG[0]); - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - goto label1; - } - /* compiling/compiling_icode.nit:1111 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:1112 */ - fra.me.REG[2] = CALL_compiling___compiling_icode___ICode___new_result(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - /* compiling/compiling_icode.nit:1113 */ - if (!once_value_2) { - fra.me.REG[3] = BOX_NativeString("TAG_Bool("); - REGB0 = TAG_Int(9); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_2 = fra.me.REG[3]; - register_static_object(&once_value_2); - } else fra.me.REG[3] = once_value_2; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1114 */ - fra.me.REG[3] = CALL_icode___icode_base___ICode2___expr1(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[3] = CALL_icode___icode_base___IRegister___stype(fra.me.REG[3])(fra.me.REG[3]); - /* compiling/compiling_icode.nit:1115 */ - fra.me.REG[4] = CALL_icode___icode_base___ICode2___expr2(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[4] = CALL_icode___icode_base___IRegister___stype(fra.me.REG[4])(fra.me.REG[4]); - /* compiling/compiling_icode.nit:1116 */ - REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[3], COLOR_metamodel___static_type___MMTypeNone, ID_metamodel___static_type___MMTypeNone)) /*cast MMTypeNone*/; - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:1117 */ - REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[4], COLOR_metamodel___static_type___MMTypeNone, ID_metamodel___static_type___MMTypeNone)) /*cast MMTypeNone*/; - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:1118 */ - if (!once_value_3) { - fra.me.REG[5] = BOX_NativeString("1)"); - REGB0 = TAG_Int(2); - fra.me.REG[5] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[5])(fra.me.REG[5], REGB0); - once_value_3 = fra.me.REG[5]; - register_static_object(&once_value_3); - } else fra.me.REG[5] = once_value_3; - fra.me.REG[5] = fra.me.REG[5]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[5]); - /* compiling/compiling_icode.nit:1119 */ - goto label1; - } else { - /* compiling/compiling_icode.nit:1120 */ - REGB0 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[4])(fra.me.REG[4]); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:1121 */ - fra.me.REG[5] = CALL_icode___icode_base___ICode2___expr2(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[5] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[5]); - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[5]); - /* compiling/compiling_icode.nit:1122 */ - if (!once_value_4) { - fra.me.REG[5] = BOX_NativeString("==NIT_NULL)"); - REGB0 = TAG_Int(11); - fra.me.REG[5] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[5])(fra.me.REG[5], REGB0); - once_value_4 = fra.me.REG[5]; - register_static_object(&once_value_4); - } else fra.me.REG[5] = once_value_4; - fra.me.REG[5] = fra.me.REG[5]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[5]); - /* compiling/compiling_icode.nit:1123 */ - goto label1; - } else { - /* compiling/compiling_icode.nit:1125 */ - if (!once_value_5) { - fra.me.REG[5] = BOX_NativeString("0)"); - REGB0 = TAG_Int(2); - fra.me.REG[5] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[5])(fra.me.REG[5], REGB0); - once_value_5 = fra.me.REG[5]; - register_static_object(&once_value_5); - } else fra.me.REG[5] = once_value_5; - fra.me.REG[5] = fra.me.REG[5]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[5]); - /* compiling/compiling_icode.nit:1126 */ - goto label1; - } - } - } else { - /* compiling/compiling_icode.nit:1128 */ - REGB0 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[3])(fra.me.REG[3]); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:1129 */ - REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[4], COLOR_metamodel___static_type___MMTypeNone, ID_metamodel___static_type___MMTypeNone)) /*cast MMTypeNone*/; - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:1130 */ - fra.me.REG[3] = CALL_icode___icode_base___ICode2___expr1(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[3] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1131 */ - if (!once_value_6) { - fra.me.REG[3] = BOX_NativeString("==NIT_NULL)"); - REGB0 = TAG_Int(11); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_6 = fra.me.REG[3]; - register_static_object(&once_value_6); - } else fra.me.REG[3] = once_value_6; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1132 */ - goto label1; - } else { - /* compiling/compiling_icode.nit:1133 */ - REGB0 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[4])(fra.me.REG[4]); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:1134 */ - if (!once_value_7) { - fra.me.REG[3] = BOX_NativeString("IS_EQUAL_NN("); - REGB0 = TAG_Int(12); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_7 = fra.me.REG[3]; - register_static_object(&once_value_7); - } else fra.me.REG[3] = once_value_7; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - } else { - /* compiling/compiling_icode.nit:1136 */ - if (!once_value_8) { - fra.me.REG[3] = BOX_NativeString("IS_EQUAL_ON("); - REGB0 = TAG_Int(12); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_8 = fra.me.REG[3]; - register_static_object(&once_value_8); - } else fra.me.REG[3] = once_value_8; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1137 */ - fra.me.REG[3] = CALL_icode___icode_base___ICode2___expr2(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[3] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1138 */ - if (!once_value_9) { - fra.me.REG[3] = BOX_NativeString(","); - REGB0 = TAG_Int(1); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_9 = fra.me.REG[3]; - register_static_object(&once_value_9); - } else fra.me.REG[3] = once_value_9; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1139 */ - fra.me.REG[3] = CALL_icode___icode_base___ICode2___expr1(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[3] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1140 */ - if (!once_value_10) { - fra.me.REG[3] = BOX_NativeString("))"); - REGB0 = TAG_Int(2); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_10 = fra.me.REG[3]; - register_static_object(&once_value_10); - } else fra.me.REG[3] = once_value_10; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1141 */ - goto label1; - } - } - } else { - /* compiling/compiling_icode.nit:1144 */ - REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[4], COLOR_metamodel___static_type___MMTypeNone, ID_metamodel___static_type___MMTypeNone)) /*cast MMTypeNone*/; - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:1145 */ - if (!once_value_11) { - fra.me.REG[3] = BOX_NativeString("0)"); - REGB0 = TAG_Int(2); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_11 = fra.me.REG[3]; - register_static_object(&once_value_11); - } else fra.me.REG[3] = once_value_11; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1146 */ - goto label1; - } else { - /* compiling/compiling_icode.nit:1147 */ - REGB0 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[4])(fra.me.REG[4]); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:1148 */ - if (!once_value_12) { - fra.me.REG[4] = BOX_NativeString("IS_EQUAL_ON("); - REGB0 = TAG_Int(12); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_12 = fra.me.REG[4]; - register_static_object(&once_value_12); - } else fra.me.REG[4] = once_value_12; - fra.me.REG[4] = fra.me.REG[4]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]); - } else { - /* compiling/compiling_icode.nit:1150 */ - if (!once_value_13) { - fra.me.REG[4] = BOX_NativeString("IS_EQUAL_OO("); - REGB0 = TAG_Int(12); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_13 = fra.me.REG[4]; - register_static_object(&once_value_13); - } else fra.me.REG[4] = once_value_13; - fra.me.REG[4] = fra.me.REG[4]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]); - } - } - } - } - /* compiling/compiling_icode.nit:1153 */ - fra.me.REG[4] = CALL_icode___icode_base___ICode2___expr1(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[4] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]); - /* compiling/compiling_icode.nit:1154 */ - if (!once_value_14) { - fra.me.REG[4] = BOX_NativeString(","); - REGB0 = TAG_Int(1); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_14 = fra.me.REG[4]; - register_static_object(&once_value_14); - } else fra.me.REG[4] = once_value_14; - fra.me.REG[4] = fra.me.REG[4]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]); - /* compiling/compiling_icode.nit:1155 */ - fra.me.REG[0] = CALL_icode___icode_base___ICode2___expr2(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - /* compiling/compiling_icode.nit:1156 */ - if (!once_value_15) { - fra.me.REG[0] = BOX_NativeString("))"); - REGB0 = TAG_Int(2); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_15 = fra.me.REG[0]; - register_static_object(&once_value_15); - } else fra.me.REG[0] = once_value_15; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - label1: while(0); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___INot___compile_to_c[] = "compiling_icode::INot::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___INot___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; - val_t REGB0; - val_t tmp; - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 1161; - fra.me.meth = LOCATE_compiling___compiling_icode___INot___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 4; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:1163 */ - REGB0 = CALL_compiling___compiling_icode___ICode___need_result(fra.me.REG[0])(fra.me.REG[0]); - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - goto label1; - } - /* compiling/compiling_icode.nit:1164 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:1165 */ - fra.me.REG[2] = CALL_compiling___compiling_icode___ICode___new_result(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - /* compiling/compiling_icode.nit:1166 */ - if (!once_value_2) { - fra.me.REG[3] = BOX_NativeString("TAG_Bool(!UNTAG_Bool("); - REGB0 = TAG_Int(21); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_2 = fra.me.REG[3]; - register_static_object(&once_value_2); - } else fra.me.REG[3] = once_value_2; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1167 */ - fra.me.REG[0] = CALL_icode___icode_base___ICode1___expr(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - /* compiling/compiling_icode.nit:1168 */ - if (!once_value_3) { - fra.me.REG[0] = BOX_NativeString("))"); - REGB0 = TAG_Int(2); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_3 = fra.me.REG[0]; - register_static_object(&once_value_3); - } else fra.me.REG[0] = once_value_3; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - label1: while(0); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___IOnce___compile_to_c[] = "compiling_icode::IOnce::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___IOnce___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[5];} fra; - val_t REGB0; - val_t REGB1; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - static val_t once_value_4; /* Once value */ - static val_t once_value_5; /* Once value */ - static val_t once_value_6; /* Once value */ - static val_t once_value_7; /* Once value */ - static val_t once_value_8; /* Once value */ - static val_t once_value_9; /* Once value */ - static val_t once_value_10; /* Once value */ - static val_t once_value_11; /* Once value */ - static val_t once_value_12; /* Once value */ - static val_t once_value_13; /* Once value */ - static val_t once_value_14; /* Once value */ - static val_t once_value_15; /* Once value */ - static val_t once_value_16; /* Once value */ - static val_t once_value_17; /* Once value */ - static val_t once_value_18; /* Once value */ - static val_t once_value_19; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 1173; - fra.me.meth = LOCATE_compiling___compiling_icode___IOnce___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 6; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[4] = NIT_NULL; - fra.me.REG[5] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:1173 */ - fra.me.REG[2] = fra.me.REG[0]; - /* compiling/compiling_icode.nit:1175 */ - fra.me.REG[3] = CALL_icode___icode_base___ICode___location(fra.me.REG[2])(fra.me.REG[2]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1176 */ - REGB0 = CALL_compiling___compiling_icode___I2CCompilerVisitor___new_number(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:1177 */ - fra.me.REG[3] = CALL_icode___icode_base___ICode___result(fra.me.REG[2])(fra.me.REG[2]); - REGB1 = TAG_Bool((fra.me.REG[3]!=NIT_NULL) && VAL_ISA(fra.me.REG[3], COLOR_icode___icode_base___IRegister, ID_icode___icode_base___IRegister)) /*cast IRegister*/; - if (UNTAG_Bool(REGB1)) { - } else { - nit_abort("Cast failed", NULL, LOCATE_compiling___compiling_icode, 1177); - } - /* compiling/compiling_icode.nit:1178 */ - fra.me.REG[0] = CALL_icode___icode_base___IRegister___stype(fra.me.REG[3])(fra.me.REG[3]); - REGB1 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[0])(fra.me.REG[0]); - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:1179 */ - REGB1 = TAG_Int(5); - fra.me.REG[0] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_1) { - fra.me.REG[4] = BOX_NativeString("static val_t once_value_"); - REGB1 = TAG_Int(24); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1); - once_value_1 = fra.me.REG[4]; - register_static_object(&once_value_1); - } else fra.me.REG[4] = once_value_1; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]); - fra.me.REG[4] = CALL_standard___string___Object___to_s(REGB0)(REGB0); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]); - if (!once_value_2) { - fra.me.REG[4] = BOX_NativeString("; static int once_bool_"); - REGB1 = TAG_Int(23); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1); - once_value_2 = fra.me.REG[4]; - register_static_object(&once_value_2); - } else fra.me.REG[4] = once_value_2; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]); - fra.me.REG[4] = CALL_standard___string___Object___to_s(REGB0)(REGB0); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]); - if (!once_value_3) { - fra.me.REG[4] = BOX_NativeString("; /* Once value */"); - REGB1 = TAG_Int(18); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1); - once_value_3 = fra.me.REG[4]; - register_static_object(&once_value_3); - } else fra.me.REG[4] = once_value_3; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]); - fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_decl(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - /* compiling/compiling_icode.nit:1180 */ - REGB1 = TAG_Int(3); - fra.me.REG[0] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_4) { - fra.me.REG[4] = BOX_NativeString("if (!once_bool_"); - REGB1 = TAG_Int(15); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1); - once_value_4 = fra.me.REG[4]; - register_static_object(&once_value_4); - } else fra.me.REG[4] = once_value_4; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]); - fra.me.REG[4] = CALL_standard___string___Object___to_s(REGB0)(REGB0); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]); - if (!once_value_5) { - fra.me.REG[4] = BOX_NativeString(") {"); - REGB1 = TAG_Int(3); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1); - once_value_5 = fra.me.REG[4]; - register_static_object(&once_value_5); - } else fra.me.REG[4] = once_value_5; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]); - fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - } else { - /* compiling/compiling_icode.nit:1183 */ - REGB1 = TAG_Int(3); - fra.me.REG[0] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_6) { - fra.me.REG[4] = BOX_NativeString("static val_t once_value_"); - REGB1 = TAG_Int(24); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1); - once_value_6 = fra.me.REG[4]; - register_static_object(&once_value_6); - } else fra.me.REG[4] = once_value_6; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]); - fra.me.REG[4] = CALL_standard___string___Object___to_s(REGB0)(REGB0); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]); - if (!once_value_7) { - fra.me.REG[4] = BOX_NativeString("; /* Once value */"); - REGB1 = TAG_Int(18); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1); - once_value_7 = fra.me.REG[4]; - register_static_object(&once_value_7); - } else fra.me.REG[4] = once_value_7; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]); - fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_decl(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - /* compiling/compiling_icode.nit:1184 */ - REGB1 = TAG_Int(3); - fra.me.REG[0] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_8) { - fra.me.REG[4] = BOX_NativeString("if (!once_value_"); - REGB1 = TAG_Int(16); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1); - once_value_8 = fra.me.REG[4]; - register_static_object(&once_value_8); - } else fra.me.REG[4] = once_value_8; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]); - fra.me.REG[4] = CALL_standard___string___Object___to_s(REGB0)(REGB0); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]); - if (!once_value_9) { - fra.me.REG[4] = BOX_NativeString(") {"); - REGB1 = TAG_Int(3); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1); - once_value_9 = fra.me.REG[4]; - register_static_object(&once_value_9); - } else fra.me.REG[4] = once_value_9; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]); - fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - } - /* compiling/compiling_icode.nit:1186 */ - CALL_compiling___compiling_icode___I2CCompilerVisitor___indent(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:1187 */ - fra.me.REG[0] = CALL_icode___icode_base___IOnce___body(fra.me.REG[2])(fra.me.REG[2]); - CALL_compiling___compiling_icode___ICode___compile_to_c(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - /* compiling/compiling_icode.nit:1188 */ - fra.me.REG[0] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1189 */ - REGB1 = TAG_Int(5); - fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_10) { - fra.me.REG[5] = BOX_NativeString("once_value_"); - REGB1 = TAG_Int(11); - fra.me.REG[5] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[5])(fra.me.REG[5], REGB1); - once_value_10 = fra.me.REG[5]; - register_static_object(&once_value_10); - } else fra.me.REG[5] = once_value_10; - fra.me.REG[5] = fra.me.REG[5]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); - fra.me.REG[5] = CALL_standard___string___Object___to_s(REGB0)(REGB0); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); - if (!once_value_11) { - fra.me.REG[5] = BOX_NativeString(" = "); - REGB1 = TAG_Int(3); - fra.me.REG[5] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[5])(fra.me.REG[5], REGB1); - once_value_11 = fra.me.REG[5]; - register_static_object(&once_value_11); - } else fra.me.REG[5] = once_value_11; - fra.me.REG[5] = fra.me.REG[5]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[0]); - if (!once_value_12) { - fra.me.REG[5] = BOX_NativeString(";"); - REGB1 = TAG_Int(1); - fra.me.REG[5] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[5])(fra.me.REG[5], REGB1); - once_value_12 = fra.me.REG[5]; - register_static_object(&once_value_12); - } else fra.me.REG[5] = once_value_12; - fra.me.REG[5] = fra.me.REG[5]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); - fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); - /* compiling/compiling_icode.nit:1190 */ - REGB1 = TAG_Int(3); - fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_13) { - fra.me.REG[5] = BOX_NativeString("register_static_object(&once_value_"); - REGB1 = TAG_Int(35); - fra.me.REG[5] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[5])(fra.me.REG[5], REGB1); - once_value_13 = fra.me.REG[5]; - register_static_object(&once_value_13); - } else fra.me.REG[5] = once_value_13; - fra.me.REG[5] = fra.me.REG[5]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); - fra.me.REG[5] = CALL_standard___string___Object___to_s(REGB0)(REGB0); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); - if (!once_value_14) { - fra.me.REG[5] = BOX_NativeString(");"); - REGB1 = TAG_Int(2); - fra.me.REG[5] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[5])(fra.me.REG[5], REGB1); - once_value_14 = fra.me.REG[5]; - register_static_object(&once_value_14); - } else fra.me.REG[5] = once_value_14; - fra.me.REG[5] = fra.me.REG[5]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); - fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); - /* compiling/compiling_icode.nit:1191 */ - fra.me.REG[3] = CALL_icode___icode_base___IRegister___stype(fra.me.REG[3])(fra.me.REG[3]); - REGB1 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[3])(fra.me.REG[3]); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Int(3); - fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_15) { - fra.me.REG[4] = BOX_NativeString("once_bool_"); - REGB1 = TAG_Int(10); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1); - once_value_15 = fra.me.REG[4]; - register_static_object(&once_value_15); - } else fra.me.REG[4] = once_value_15; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - fra.me.REG[4] = CALL_standard___string___Object___to_s(REGB0)(REGB0); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - if (!once_value_16) { - fra.me.REG[4] = BOX_NativeString(" = true;"); - REGB1 = TAG_Int(8); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1); - once_value_16 = fra.me.REG[4]; - register_static_object(&once_value_16); - } else fra.me.REG[4] = once_value_16; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - } - /* compiling/compiling_icode.nit:1192 */ - CALL_compiling___compiling_icode___I2CCompilerVisitor___unindent(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:1193 */ - REGB1 = TAG_Int(5); - fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_17) { - fra.me.REG[4] = BOX_NativeString("} else "); - REGB1 = TAG_Int(7); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1); - once_value_17 = fra.me.REG[4]; - register_static_object(&once_value_17); - } else fra.me.REG[4] = once_value_17; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]); - if (!once_value_18) { - fra.me.REG[4] = BOX_NativeString(" = once_value_"); - REGB1 = TAG_Int(14); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1); - once_value_18 = fra.me.REG[4]; - register_static_object(&once_value_18); - } else fra.me.REG[4] = once_value_18; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - fra.me.REG[4] = CALL_standard___string___Object___to_s(REGB0)(REGB0); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - if (!once_value_19) { - fra.me.REG[4] = BOX_NativeString(";"); - REGB0 = TAG_Int(1); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_19 = fra.me.REG[4]; - register_static_object(&once_value_19); - } else fra.me.REG[4] = once_value_19; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1194 */ - fra.me.REG[1] = CALL_compiling___compiling_icode___ICode___new_result(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); - /* compiling/compiling_icode.nit:1195 */ - CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___IClosCall___compile_to_c[] = "compiling_icode::IClosCall::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___IClosCall___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[6];} fra; - val_t REGB0; - val_t REGB1; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - static val_t once_value_4; /* Once value */ - static val_t once_value_5; /* Once value */ - static val_t once_value_6; /* Once value */ - static val_t once_value_7; /* Once value */ - static val_t once_value_8; /* Once value */ - static val_t once_value_9; /* Once value */ - static val_t once_value_10; /* Once value */ - static val_t once_value_11; /* Once value */ - static val_t once_value_12; /* Once value */ - static val_t once_value_13; /* Once value */ - static val_t once_value_14; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 1200; - fra.me.meth = LOCATE_compiling___compiling_icode___IClosCall___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 7; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[4] = NIT_NULL; - fra.me.REG[5] = NIT_NULL; - fra.me.REG[6] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:1202 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:1205 */ - REGB0 = CALL_compiling___compiling_icode___I2CCompilerVisitor___closure(fra.me.REG[1])(fra.me.REG[1]); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:1206 */ - REGB0 = TAG_Int(3); - fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); - if (!once_value_1) { - fra.me.REG[3] = BOX_NativeString("closctx->closure_funs["); - REGB0 = TAG_Int(22); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_1 = fra.me.REG[3]; - register_static_object(&once_value_1); - } else fra.me.REG[3] = once_value_1; - fra.me.REG[3] = fra.me.REG[3]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - fra.me.REG[3] = CALL_compiling___compiling_icode___I2CCompilerVisitor___closures(fra.me.REG[1])(fra.me.REG[1]); - fra.me.REG[4] = CALL_icode___icode_base___IClosCall___closure_decl(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[4] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]); - if (!once_value_2) { - fra.me.REG[4] = BOX_NativeString("]"); - REGB0 = TAG_Int(1); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_2 = fra.me.REG[4]; - register_static_object(&once_value_2); - } else fra.me.REG[4] = once_value_2; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]); - fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]); - /* compiling/compiling_icode.nit:1207 */ - REGB0 = TAG_Int(1); - fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); - if (!once_value_3) { - fra.me.REG[3] = BOX_NativeString("closctx->closure_ctx"); - REGB0 = TAG_Int(20); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_3 = fra.me.REG[3]; - register_static_object(&once_value_3); - } else fra.me.REG[3] = once_value_3; - fra.me.REG[3] = fra.me.REG[3]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]); - } else { - /* compiling/compiling_icode.nit:1209 */ - REGB0 = TAG_Int(3); - fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); - if (!once_value_4) { - fra.me.REG[5] = BOX_NativeString("CREG["); - REGB0 = TAG_Int(5); - fra.me.REG[5] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[5])(fra.me.REG[5], REGB0); - once_value_4 = fra.me.REG[5]; - register_static_object(&once_value_4); - } else fra.me.REG[5] = once_value_4; - fra.me.REG[5] = fra.me.REG[5]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]); - fra.me.REG[5] = CALL_compiling___compiling_icode___I2CCompilerVisitor___closures(fra.me.REG[1])(fra.me.REG[1]); - fra.me.REG[6] = CALL_icode___icode_base___IClosCall___closure_decl(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[6] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - if (!once_value_5) { - fra.me.REG[6] = BOX_NativeString("]"); - REGB0 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB0); - once_value_5 = fra.me.REG[6]; - register_static_object(&once_value_5); - } else fra.me.REG[6] = once_value_5; - fra.me.REG[6] = fra.me.REG[6]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]); - fra.me.REG[2] = fra.me.REG[3]; - /* compiling/compiling_icode.nit:1210 */ - REGB0 = TAG_Int(1); - fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); - if (!once_value_6) { - fra.me.REG[6] = BOX_NativeString("closctx_param"); - REGB0 = TAG_Int(13); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB0); - once_value_6 = fra.me.REG[6]; - register_static_object(&once_value_6); - } else fra.me.REG[6] = once_value_6; - fra.me.REG[6] = fra.me.REG[6]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - fra.me.REG[4] = fra.me.REG[3]; - } - /* compiling/compiling_icode.nit:1212 */ - fra.me.REG[3] = CALL_icode___icode_base___ICodeN___exprs(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[3] = CALL_compiling___compiling_icode___I2CCompilerVisitor___registers(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1214 */ - REGB0 = TAG_Int(7); - fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); - if (!once_value_7) { - fra.me.REG[6] = BOX_NativeString("(("); - REGB0 = TAG_Int(2); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB0); - once_value_7 = fra.me.REG[6]; - register_static_object(&once_value_7); - } else fra.me.REG[6] = once_value_7; - fra.me.REG[6] = fra.me.REG[6]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - fra.me.REG[6] = CALL_compiling___compiling_icode___I2CCompilerVisitor___clostypes(fra.me.REG[1])(fra.me.REG[1]); - fra.me.REG[5] = CALL_icode___icode_base___IClosCall___closure_decl(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[5] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[5]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]); - if (!once_value_8) { - fra.me.REG[5] = BOX_NativeString(")("); - REGB0 = TAG_Int(2); - fra.me.REG[5] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[5])(fra.me.REG[5], REGB0); - once_value_8 = fra.me.REG[5]; - register_static_object(&once_value_8); - } else fra.me.REG[5] = once_value_8; - fra.me.REG[5] = fra.me.REG[5]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]); - if (!once_value_9) { - fra.me.REG[2] = BOX_NativeString("))("); - REGB0 = TAG_Int(3); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0); - once_value_9 = fra.me.REG[2]; - register_static_object(&once_value_9); - } else fra.me.REG[2] = once_value_9; - fra.me.REG[2] = fra.me.REG[2]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]); - if (!once_value_10) { - fra.me.REG[2] = BOX_NativeString(", "); - REGB0 = TAG_Int(2); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0); - once_value_10 = fra.me.REG[2]; - register_static_object(&once_value_10); - } else fra.me.REG[2] = once_value_10; - fra.me.REG[2] = fra.me.REG[2]; - fra.me.REG[2] = CALL_standard___string___Collection___join(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]); - if (!once_value_11) { - fra.me.REG[2] = BOX_NativeString(")"); - REGB0 = TAG_Int(1); - fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0); - once_value_11 = fra.me.REG[2]; - register_static_object(&once_value_11); - } else fra.me.REG[2] = once_value_11; - fra.me.REG[2] = fra.me.REG[2]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]); - fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]); - /* compiling/compiling_icode.nit:1215 */ - fra.me.REG[2] = NEW_Writer_compiling_writer___Writer___init(); - /* compiling/compiling_icode.nit:1216 */ - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1217 */ - CALL_compiling___compiling_icode___ICode___store_result(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:1220 */ - REGB0 = TAG_Int(3); - fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); - if (!once_value_12) { - fra.me.REG[3] = BOX_NativeString("if ("); - REGB0 = TAG_Int(4); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_12 = fra.me.REG[3]; - register_static_object(&once_value_12); - } else fra.me.REG[3] = once_value_12; - fra.me.REG[3] = fra.me.REG[3]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - fra.me.REG[4] = CALL_standard___collection___abstract_collection___Collection___first(fra.me.REG[4])(fra.me.REG[4]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]); - if (!once_value_13) { - fra.me.REG[4] = BOX_NativeString("->has_broke) {"); - REGB0 = TAG_Int(14); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_13 = fra.me.REG[4]; - register_static_object(&once_value_13); - } else fra.me.REG[4] = once_value_13; - fra.me.REG[4] = fra.me.REG[4]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]); - fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:1221 */ - CALL_compiling___compiling_icode___I2CCompilerVisitor___indent(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:1222 */ - fra.me.REG[0] = CALL_icode___icode_base___IClosCall___break_seq(fra.me.REG[0])(fra.me.REG[0]); - /* compiling/compiling_icode.nit:1223 */ - REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - } else { - REGB1 = TAG_Bool(fra.me.REG[0]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - REGB1 = TAG_Bool(0); - REGB0 = REGB1; - } else { - REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], NIT_NULL); - REGB0 = REGB1; - } - } - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:1224 */ - REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL); - if (UNTAG_Bool(REGB0)) { - nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 1224); - } - CALL_compiling___compiling_icode___ICode___compile_to_c(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - } - /* compiling/compiling_icode.nit:1226 */ - fra.me.REG[0] = CALL_compiling___compiling_icode___I2CCompilerVisitor___iroutine(fra.me.REG[1])(fra.me.REG[1]); - fra.me.REG[0] = CALL_icode___icode_base___IRoutine___body(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_goto(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - /* compiling/compiling_icode.nit:1227 */ - CALL_compiling___compiling_icode___I2CCompilerVisitor___unindent(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:1228 */ - if (!once_value_14) { - fra.me.REG[0] = BOX_NativeString("}"); - REGB0 = TAG_Int(1); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_14 = fra.me.REG[0]; - register_static_object(&once_value_14); - } else fra.me.REG[0] = once_value_14; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___IHasClos___compile_to_c[] = "compiling_icode::IHasClos::(compiling_icode::ICode::compile_to_c)"; -void compiling___compiling_icode___IHasClos___compile_to_c(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[4];} fra; - val_t REGB0; - val_t tmp; - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - static val_t once_value_4; /* Once value */ - static val_t once_value_5; /* Once value */ - static val_t once_value_6; /* Once value */ - static val_t once_value_7; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 1233; - fra.me.meth = LOCATE_compiling___compiling_icode___IHasClos___compile_to_c; - fra.me.has_broke = 0; - fra.me.REG_size = 5; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[4] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:1235 */ - REGB0 = CALL_compiling___compiling_icode___ICode___need_result(fra.me.REG[0])(fra.me.REG[0]); - REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); - if (UNTAG_Bool(REGB0)) { - goto label1; - } - /* compiling/compiling_icode.nit:1236 */ - fra.me.REG[2] = CALL_icode___icode_base___ICode___location(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_location(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); - /* compiling/compiling_icode.nit:1237 */ - fra.me.REG[2] = CALL_compiling___compiling_icode___ICode___new_result(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); - /* compiling/compiling_icode.nit:1238 */ - if (!once_value_2) { - fra.me.REG[3] = BOX_NativeString("TAG_Bool("); - REGB0 = TAG_Int(9); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_2 = fra.me.REG[3]; - register_static_object(&once_value_2); - } else fra.me.REG[3] = once_value_2; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1239 */ - REGB0 = CALL_compiling___compiling_icode___I2CCompilerVisitor___closure(fra.me.REG[1])(fra.me.REG[1]); - if (UNTAG_Bool(REGB0)) { - /* compiling/compiling_icode.nit:1240 */ - if (!once_value_3) { - fra.me.REG[3] = BOX_NativeString("closctx->closure_funs["); - REGB0 = TAG_Int(22); - fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0); - once_value_3 = fra.me.REG[3]; - register_static_object(&once_value_3); - } else fra.me.REG[3] = once_value_3; - fra.me.REG[3] = fra.me.REG[3]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1241 */ - fra.me.REG[3] = CALL_compiling___compiling_icode___I2CCompilerVisitor___closures(fra.me.REG[1])(fra.me.REG[1]); - fra.me.REG[4] = CALL_icode___icode_base___IHasClos___closure_decl(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[4] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]); - /* compiling/compiling_icode.nit:1242 */ - if (!once_value_4) { - fra.me.REG[4] = BOX_NativeString("]"); - REGB0 = TAG_Int(1); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_4 = fra.me.REG[4]; - register_static_object(&once_value_4); - } else fra.me.REG[4] = once_value_4; - fra.me.REG[4] = fra.me.REG[4]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]); - } else { - /* compiling/compiling_icode.nit:1244 */ - if (!once_value_5) { - fra.me.REG[4] = BOX_NativeString("CREG["); - REGB0 = TAG_Int(5); - fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0); - once_value_5 = fra.me.REG[4]; - register_static_object(&once_value_5); - } else fra.me.REG[4] = once_value_5; - fra.me.REG[4] = fra.me.REG[4]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]); - /* compiling/compiling_icode.nit:1245 */ - fra.me.REG[1] = CALL_compiling___compiling_icode___I2CCompilerVisitor___closures(fra.me.REG[1])(fra.me.REG[1]); - fra.me.REG[0] = CALL_icode___icode_base___IHasClos___closure_decl(fra.me.REG[0])(fra.me.REG[0]); - fra.me.REG[0] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - /* compiling/compiling_icode.nit:1246 */ - if (!once_value_6) { - fra.me.REG[0] = BOX_NativeString("]"); - REGB0 = TAG_Int(1); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_6 = fra.me.REG[0]; - register_static_object(&once_value_6); - } else fra.me.REG[0] = once_value_6; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - } - /* compiling/compiling_icode.nit:1248 */ - if (!once_value_7) { - fra.me.REG[0] = BOX_NativeString(" != NULL)"); - REGB0 = TAG_Int(9); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0); - once_value_7 = fra.me.REG[0]; - register_static_object(&once_value_7); - } else fra.me.REG[0] = once_value_7; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); - label1: while(0); - stack_frame_head = fra.me.prev; - return; -} -static const char LOCATE_compiling___compiling_icode___IClosureDef___compile_closure[] = "compiling_icode::IClosureDef::compile_closure"; -val_t compiling___compiling_icode___IClosureDef___compile_closure(val_t p0, val_t p1){ - struct {struct stack_frame_t me; val_t MORE_REG[8];} fra; - val_t REGB0; - val_t REGB1; - val_t REGB2; - val_t tmp; - static val_t once_value_1; /* Once value */ - static val_t once_value_2; /* Once value */ - static val_t once_value_3; /* Once value */ - static val_t once_value_4; /* Once value */ - static val_t once_value_5; /* Once value */ - static val_t once_value_6; /* Once value */ - static val_t once_value_7; /* Once value */ - static val_t once_value_8; /* Once value */ - static val_t once_value_9; /* Once value */ - static val_t once_value_10; /* Once value */ - fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; - fra.me.file = LOCATE_compiling___compiling_icode; - fra.me.line = 1253; - fra.me.meth = LOCATE_compiling___compiling_icode___IClosureDef___compile_closure; - fra.me.has_broke = 0; - fra.me.REG_size = 9; - fra.me.nitni_local_ref_head = NULL; - fra.me.REG[0] = NIT_NULL; - fra.me.REG[1] = NIT_NULL; - fra.me.REG[2] = NIT_NULL; - fra.me.REG[3] = NIT_NULL; - fra.me.REG[4] = NIT_NULL; - fra.me.REG[5] = NIT_NULL; - fra.me.REG[6] = NIT_NULL; - fra.me.REG[7] = NIT_NULL; - fra.me.REG[8] = NIT_NULL; - fra.me.REG[0] = p0; - fra.me.REG[1] = p1; - /* compiling/compiling_icode.nit:1257 */ - fra.me.REG[2] = CALL_compiling___compiling_icode___I2CCompilerVisitor___visitor(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:1260 */ - REGB0 = CALL_compiling___compiling_icode___I2CCompilerVisitor___closure(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:1261 */ - REGB1 = TAG_Bool(1); - CALL_compiling___compiling_icode___I2CCompilerVisitor___closure__eq(fra.me.REG[1])(fra.me.REG[1], REGB1); - /* compiling/compiling_icode.nit:1264 */ - fra.me.REG[3] = CALL_compiling___compiling_icode___I2CCompilerVisitor___local_labels(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:1265 */ - fra.me.REG[4] = NEW_HashSet_standard___collection___hash_collection___HashSet___init(); - CALL_compiling___compiling_icode___I2CCompilerVisitor___local_labels__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]); - /* compiling/compiling_icode.nit:1268 */ - fra.me.REG[4] = CALL_compiling___compiling_base___CompilerVisitor___decl_writer(fra.me.REG[2])(fra.me.REG[2]); - /* compiling/compiling_icode.nit:1269 */ - fra.me.REG[5] = CALL_compiling___compiling_base___CompilerVisitor___writer(fra.me.REG[2])(fra.me.REG[2]); - /* compiling/compiling_icode.nit:1270 */ - fra.me.REG[6] = CALL_compiling___compiling_base___CompilerVisitor___top_writer(fra.me.REG[2])(fra.me.REG[2]); - fra.me.REG[6] = CALL_compiling_writer___Writer___sub(fra.me.REG[6])(fra.me.REG[6]); - CALL_compiling___compiling_base___CompilerVisitor___writer__eq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]); - /* compiling/compiling_icode.nit:1271 */ - fra.me.REG[6] = CALL_compiling___compiling_base___CompilerVisitor___header_writer(fra.me.REG[2])(fra.me.REG[2]); - fra.me.REG[6] = CALL_compiling_writer___Writer___sub(fra.me.REG[6])(fra.me.REG[6]); - CALL_compiling___compiling_base___CompilerVisitor___decl_writer__eq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]); - /* compiling/compiling_icode.nit:1274 */ - REGB1 = TAG_Int(5); - fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_1) { - fra.me.REG[7] = BOX_NativeString("OC_"); - REGB1 = TAG_Int(3); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_1 = fra.me.REG[7]; - register_static_object(&once_value_1); - } else fra.me.REG[7] = once_value_1; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[7] = CALL_compiling___compiling_icode___I2CCompilerVisitor___basecname(fra.me.REG[1])(fra.me.REG[1]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_2) { - fra.me.REG[7] = BOX_NativeString("_"); - REGB1 = TAG_Int(1); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_2 = fra.me.REG[7]; - register_static_object(&once_value_2); - } else fra.me.REG[7] = once_value_2; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - REGB1 = CALL_compiling___compiling_icode___I2CCompilerVisitor___new_number(fra.me.REG[1])(fra.me.REG[1]); - fra.me.REG[7] = CALL_standard___string___Object___to_s(REGB1)(REGB1); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - if (!once_value_3) { - fra.me.REG[7] = BOX_NativeString(""); - REGB1 = TAG_Int(0); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_3 = fra.me.REG[7]; - register_static_object(&once_value_3); - } else fra.me.REG[7] = once_value_3; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]); - fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]); - /* compiling/compiling_icode.nit:1275 */ - fra.me.REG[7] = CALL_compiling___compiling_icode___I2CCompilerVisitor___visitor(fra.me.REG[1])(fra.me.REG[1]); - if (!once_value_4) { - fra.me.REG[8] = BOX_NativeString("struct stack_frame_t *closctx"); - REGB1 = TAG_Int(29); - fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB1); - once_value_4 = fra.me.REG[8]; - register_static_object(&once_value_4); - } else fra.me.REG[8] = once_value_4; - fra.me.REG[8] = fra.me.REG[8]; - fra.me.REG[8] = CALL_compiling___compiling_icode___IRoutine___compile_signature_to_c(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[7], fra.me.REG[6], NIT_NULL, fra.me.REG[8], NIT_NULL); - /* compiling/compiling_icode.nit:1276 */ - fra.me.REG[7] = CALL_compiling___compiling_base___CompilerVisitor___writer(fra.me.REG[2])(fra.me.REG[2]); - fra.me.REG[7] = CALL_compiling_writer___Writer___sub(fra.me.REG[7])(fra.me.REG[7]); - CALL_compiling___compiling_base___CompilerVisitor___decl_writer__eq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[7]); - /* compiling/compiling_icode.nit:1278 */ - fra.me.REG[8] = CALL_compiling___compiling_icode___IRoutine___compile_inside_to_c(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[8]); - /* compiling/compiling_icode.nit:1279 */ - REGB1 = TAG_Bool(fra.me.REG[8]==NIT_NULL); - if (UNTAG_Bool(REGB1)) { - } else { - REGB2 = TAG_Bool(fra.me.REG[8]==NIT_NULL); - if (UNTAG_Bool(REGB2)) { - REGB2 = TAG_Bool(0); - REGB1 = REGB2; - } else { - REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[8])(fra.me.REG[8], NIT_NULL); - REGB1 = REGB2; - } - } - if (UNTAG_Bool(REGB1)) { - /* compiling/compiling_icode.nit:1280 */ - if (!once_value_5) { - fra.me.REG[0] = BOX_NativeString("return;"); - REGB1 = TAG_Int(7); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB1); - once_value_5 = fra.me.REG[0]; - register_static_object(&once_value_5); - } else fra.me.REG[0] = once_value_5; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - } else { - /* compiling/compiling_icode.nit:1282 */ - REGB1 = TAG_Int(3); - fra.me.REG[0] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); - if (!once_value_6) { - fra.me.REG[7] = BOX_NativeString("return "); - REGB1 = TAG_Int(7); - fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB1); - once_value_6 = fra.me.REG[7]; - register_static_object(&once_value_6); - } else fra.me.REG[7] = once_value_6; - fra.me.REG[7] = fra.me.REG[7]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[7]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[8]); - if (!once_value_7) { - fra.me.REG[8] = BOX_NativeString(";"); - REGB1 = TAG_Int(1); - fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB1); - once_value_7 = fra.me.REG[8]; - register_static_object(&once_value_7); - } else fra.me.REG[8] = once_value_7; - fra.me.REG[8] = fra.me.REG[8]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[8]); - fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - } - /* compiling/compiling_icode.nit:1284 */ - CALL_compiling___compiling_icode___I2CCompilerVisitor___unindent(fra.me.REG[1])(fra.me.REG[1]); - /* compiling/compiling_icode.nit:1285 */ - if (!once_value_8) { - fra.me.REG[0] = BOX_NativeString("}"); - REGB1 = TAG_Int(1); - fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB1); - once_value_8 = fra.me.REG[0]; - register_static_object(&once_value_8); - } else fra.me.REG[0] = once_value_8; - fra.me.REG[0] = fra.me.REG[0]; - CALL_compiling___compiling_icode___I2CCompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); - /* compiling/compiling_icode.nit:1288 */ - CALL_compiling___compiling_base___CompilerVisitor___writer__eq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[5]); - /* compiling/compiling_icode.nit:1289 */ - CALL_compiling___compiling_base___CompilerVisitor___decl_writer__eq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]); - /* compiling/compiling_icode.nit:1290 */ - CALL_compiling___compiling_icode___I2CCompilerVisitor___closure__eq(fra.me.REG[1])(fra.me.REG[1], REGB0); - /* compiling/compiling_icode.nit:1291 */ - CALL_compiling___compiling_icode___I2CCompilerVisitor___local_labels__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); - /* compiling/compiling_icode.nit:1292 */ - REGB0 = TAG_Int(3); - fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); - if (!once_value_9) { - fra.me.REG[1] = BOX_NativeString("((fun_t)"); - REGB0 = TAG_Int(8); - fra.me.REG[1] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[1])(fra.me.REG[1], REGB0); - once_value_9 = fra.me.REG[1]; - register_static_object(&once_value_9); - } else fra.me.REG[1] = once_value_9; - fra.me.REG[1] = fra.me.REG[1]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]); - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - if (!once_value_10) { - fra.me.REG[6] = BOX_NativeString(")"); - REGB0 = TAG_Int(1); - fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB0); - once_value_10 = fra.me.REG[6]; - register_static_object(&once_value_10); - } else fra.me.REG[6] = once_value_10; - fra.me.REG[6] = fra.me.REG[6]; - CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]); - fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]); - goto label11; - label11: while(0); - stack_frame_head = fra.me.prev; - return fra.me.REG[3]; -}