+++ /dev/null
-/* 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(REGB1));
- /* ../lib/standard/kernel.nit:404 */
- if (UNTAG_Bool(REGB2)) {
- /* compiling/compiling_icode.nit:240 */
- REGB2 = REGB0;
- /* compiling/compiling_icode.nit:241 */
- REGB3 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB3);
- if (!once_value_1) {
- fra.me.REG[8] = BOX_NativeString("p");
- REGB3 = TAG_Int(1);
- fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB3);
- once_value_1 = fra.me.REG[8];
- register_static_object(&once_value_1);
- } else fra.me.REG[8] = once_value_1;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[8]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(REGB2)(REGB2);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[8]);
- if (!once_value_2) {
- fra.me.REG[8] = BOX_NativeString("");
- REGB3 = TAG_Int(0);
- fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB3);
- once_value_2 = fra.me.REG[8];
- register_static_object(&once_value_2);
- } else fra.me.REG[8] = once_value_2;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[8]);
- fra.me.REG[4] = 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[4]);
- /* compiling/compiling_icode.nit:242 */
- REGB3 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB3);
- if (!once_value_3) {
- fra.me.REG[8] = BOX_NativeString("val_t p");
- REGB3 = TAG_Int(7);
- fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB3);
- once_value_3 = fra.me.REG[8];
- register_static_object(&once_value_3);
- } else fra.me.REG[8] = once_value_3;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[8]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(REGB2)(REGB2);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[8]);
- if (!once_value_4) {
- fra.me.REG[8] = BOX_NativeString("");
- REGB2 = TAG_Int(0);
- fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB2);
- 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];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[8]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[4]);
- /* ../lib/standard/kernel.nit:406 */
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB2 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB2));
- /* ../lib/standard/kernel.nit:406 */
- REGB0 = REGB2;
- } else {
- /* ../lib/standard/kernel.nit:404 */
- goto label5;
- }
- }
- label5: while(0);
- /* compiling/compiling_icode.nit:244 */
- fra.me.REG[4] = CALL_icode___icode_base___IRoutine___closure_decls(fra.me.REG[0])(fra.me.REG[0]);
- 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)) {
- /* compiling/compiling_icode.nit:245 */
- if (!once_value_6) {
- fra.me.REG[4] = BOX_NativeString("struct stack_frame_t *closctx_param");
- REGB0 = TAG_Int(35);
- fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0);
- 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[7])(fra.me.REG[7], fra.me.REG[4]);
- /* compiling/compiling_icode.nit:246 */
- REGB0 = TAG_Int(0);
- fra.me.REG[4] = CALL_icode___icode_base___IRoutine___closure_decls(fra.me.REG[0])(fra.me.REG[0]);
- REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 246);
- }
- 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(REGB1));
- /* ../lib/standard/kernel.nit:404 */
- if (UNTAG_Bool(REGB2)) {
- /* compiling/compiling_icode.nit:246 */
- REGB2 = REGB0;
- /* compiling/compiling_icode.nit:247 */
- REGB3 = TAG_Int(5);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB3);
- if (!once_value_7) {
- fra.me.REG[8] = BOX_NativeString("CLOS_");
- REGB3 = TAG_Int(5);
- fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB3);
- 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[4])(fra.me.REG[4], fra.me.REG[8]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
- if (!once_value_8) {
- fra.me.REG[8] = BOX_NativeString("_");
- REGB3 = TAG_Int(1);
- fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB3);
- 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];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[8]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(REGB2)(REGB2);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[8]);
- if (!once_value_9) {
- fra.me.REG[8] = BOX_NativeString("");
- REGB3 = TAG_Int(0);
- fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB3);
- once_value_9 = fra.me.REG[8];
- register_static_object(&once_value_9);
- } else fra.me.REG[8] = once_value_9;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[8]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- /* compiling/compiling_icode.nit:248 */
- fra.me.REG[8] = CALL_icode___icode_base___IRoutine___closure_decls(fra.me.REG[0])(fra.me.REG[0]);
- REGB3 = TAG_Bool(fra.me.REG[8]==NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 248);
- }
- fra.me.REG[8] = CALL_standard___collection___abstract_collection___SequenceRead_____bra(fra.me.REG[8])(fra.me.REG[8], REGB2);
- REGB3 = TAG_Bool(fra.me.REG[8]==NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 248);
- }
- fra.me.REG[8] = CALL_icode___icode_base___IClosureDecl___closure(fra.me.REG[8])(fra.me.REG[8]);
- fra.me.REG[8] = CALL_metamodel___static_type___MMClosure___signature(fra.me.REG[8])(fra.me.REG[8]);
- /* compiling/compiling_icode.nit:249 */
- fra.me.REG[9] = NEW_Array_standard___collection___array___Array___init();
- /* compiling/compiling_icode.nit:250 */
- if (!once_value_10) {
- fra.me.REG[10] = BOX_NativeString("struct stack_frame_t *");
- REGB3 = TAG_Int(22);
- fra.me.REG[10] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[10])(fra.me.REG[10], REGB3);
- once_value_10 = fra.me.REG[10];
- register_static_object(&once_value_10);
- } else fra.me.REG[10] = once_value_10;
- fra.me.REG[10] = fra.me.REG[10];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[10]);
- /* compiling/compiling_icode.nit:251 */
- REGB3 = TAG_Int(0);
- REGB4 = CALL_metamodel___static_type___MMSignature___arity(fra.me.REG[8])(fra.me.REG[8]);
- /* ../lib/standard/kernel.nit:404 */
- while(1) {
- 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 */
- REGB5 = TAG_Bool(UNTAG_Int(REGB3)<UNTAG_Int(REGB4));
- /* ../lib/standard/kernel.nit:404 */
- if (UNTAG_Bool(REGB5)) {
- /* compiling/compiling_icode.nit:252 */
- if (!once_value_11) {
- fra.me.REG[10] = BOX_NativeString("val_t");
- REGB5 = TAG_Int(5);
- fra.me.REG[10] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[10])(fra.me.REG[10], REGB5);
- once_value_11 = fra.me.REG[10];
- register_static_object(&once_value_11);
- } else fra.me.REG[10] = once_value_11;
- fra.me.REG[10] = fra.me.REG[10];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[10]);
- /* ../lib/standard/kernel.nit:406 */
- REGB5 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB5 = TAG_Int(UNTAG_Int(REGB3)+UNTAG_Int(REGB5));
- /* ../lib/standard/kernel.nit:406 */
- REGB3 = REGB5;
- } else {
- /* ../lib/standard/kernel.nit:404 */
- goto label12;
- }
- }
- label12: while(0);
- /* compiling/compiling_icode.nit:254 */
- if (!once_value_13) {
- fra.me.REG[10] = BOX_NativeString("void");
- REGB3 = TAG_Int(4);
- fra.me.REG[10] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[10])(fra.me.REG[10], REGB3);
- once_value_13 = fra.me.REG[10];
- register_static_object(&once_value_13);
- } else fra.me.REG[10] = once_value_13;
- fra.me.REG[10] = fra.me.REG[10];
- /* compiling/compiling_icode.nit:255 */
- fra.me.REG[8] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[8])(fra.me.REG[8]);
- REGB3 = TAG_Bool(fra.me.REG[8]==NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- REGB4 = TAG_Bool(fra.me.REG[8]==NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- REGB4 = TAG_Bool(0);
- REGB3 = REGB4;
- } else {
- REGB4 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[8])(fra.me.REG[8], NIT_NULL);
- REGB3 = REGB4;
- }
- }
- REGB3 = TAG_Bool(!UNTAG_Bool(REGB3));
- if (UNTAG_Bool(REGB3)) {
- if (!once_value_14) {
- fra.me.REG[8] = BOX_NativeString("val_t");
- REGB3 = TAG_Int(5);
- fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB3);
- once_value_14 = fra.me.REG[8];
- register_static_object(&once_value_14);
- } else fra.me.REG[8] = once_value_14;
- fra.me.REG[8] = fra.me.REG[8];
- fra.me.REG[10] = fra.me.REG[8];
- }
- /* compiling/compiling_icode.nit:256 */
- REGB3 = TAG_Int(7);
- fra.me.REG[8] = NEW_Array_standard___collection___array___Array___with_capacity(REGB3);
- if (!once_value_15) {
- fra.me.REG[11] = BOX_NativeString("typedef ");
- REGB3 = TAG_Int(8);
- fra.me.REG[11] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[11])(fra.me.REG[11], REGB3);
- once_value_15 = fra.me.REG[11];
- register_static_object(&once_value_15);
- } else fra.me.REG[11] = once_value_15;
- fra.me.REG[11] = fra.me.REG[11];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[11]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[10]);
- if (!once_value_16) {
- fra.me.REG[10] = BOX_NativeString(" (*");
- REGB3 = TAG_Int(3);
- fra.me.REG[10] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[10])(fra.me.REG[10], REGB3);
- once_value_16 = fra.me.REG[10];
- register_static_object(&once_value_16);
- } else fra.me.REG[10] = once_value_16;
- fra.me.REG[10] = fra.me.REG[10];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[10]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[4]);
- if (!once_value_17) {
- fra.me.REG[4] = BOX_NativeString(")(");
- REGB3 = TAG_Int(2);
- fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB3);
- 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[8])(fra.me.REG[8], fra.me.REG[4]);
- if (!once_value_18) {
- fra.me.REG[4] = BOX_NativeString(", ");
- REGB3 = TAG_Int(2);
- fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB3);
- 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];
- fra.me.REG[4] = CALL_standard___string___Collection___join(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[4]);
- if (!once_value_19) {
- fra.me.REG[4] = BOX_NativeString(");");
- REGB3 = TAG_Int(2);
- fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB3);
- 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[8])(fra.me.REG[8], fra.me.REG[4]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]);
- CALL_compiling___compiling_base___CompilerVisitor___add_decl(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[8]);
- /* compiling/compiling_icode.nit:257 */
- REGB3 = TAG_Int(3);
- fra.me.REG[8] = NEW_Array_standard___collection___array___Array___with_capacity(REGB3);
- if (!once_value_20) {
- fra.me.REG[4] = BOX_NativeString("clos_fun");
- REGB3 = TAG_Int(8);
- fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB3);
- once_value_20 = fra.me.REG[4];
- register_static_object(&once_value_20);
- } else fra.me.REG[4] = once_value_20;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[4]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(REGB2)(REGB2);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[4]);
- if (!once_value_21) {
- fra.me.REG[4] = BOX_NativeString("");
- REGB3 = TAG_Int(0);
- fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB3);
- once_value_21 = fra.me.REG[4];
- register_static_object(&once_value_21);
- } else fra.me.REG[4] = once_value_21;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[4]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[8]);
- /* compiling/compiling_icode.nit:258 */
- REGB3 = TAG_Int(3);
- fra.me.REG[8] = NEW_Array_standard___collection___array___Array___with_capacity(REGB3);
- if (!once_value_22) {
- fra.me.REG[4] = BOX_NativeString("fun_t clos_fun");
- REGB3 = TAG_Int(14);
- fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB3);
- once_value_22 = fra.me.REG[4];
- register_static_object(&once_value_22);
- } else fra.me.REG[4] = once_value_22;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[4]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(REGB2)(REGB2);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[4]);
- if (!once_value_23) {
- fra.me.REG[4] = BOX_NativeString("");
- REGB2 = TAG_Int(0);
- fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB2);
- once_value_23 = fra.me.REG[4];
- register_static_object(&once_value_23);
- } else fra.me.REG[4] = once_value_23;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[4]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- /* ../lib/standard/kernel.nit:406 */
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB2 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB2));
- /* ../lib/standard/kernel.nit:406 */
- REGB0 = REGB2;
- } else {
- /* ../lib/standard/kernel.nit:404 */
- goto label24;
- }
- }
- label24: while(0);
- }
- /* compiling/compiling_icode.nit:261 */
- 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)) {
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[5]);
- }
- /* compiling/compiling_icode.nit:262 */
- if (!once_value_25) {
- fra.me.REG[5] = BOX_NativeString("void");
- REGB0 = TAG_Int(4);
- fra.me.REG[5] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[5])(fra.me.REG[5], REGB0);
- once_value_25 = fra.me.REG[5];
- register_static_object(&once_value_25);
- } else fra.me.REG[5] = once_value_25;
- fra.me.REG[5] = fra.me.REG[5];
- /* compiling/compiling_icode.nit:263 */
- fra.me.REG[0] = CALL_icode___icode_base___IRoutine___result(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 {
- 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)) {
- if (!once_value_26) {
- fra.me.REG[0] = BOX_NativeString("val_t");
- REGB0 = TAG_Int(5);
- fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0);
- once_value_26 = fra.me.REG[0];
- register_static_object(&once_value_26);
- } else fra.me.REG[0] = once_value_26;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[5] = fra.me.REG[0];
- }
- /* compiling/compiling_icode.nit:265 */
- REGB0 = CALL_standard___collection___abstract_collection___Collection___is_empty(fra.me.REG[7])(fra.me.REG[7]);
- if (UNTAG_Bool(REGB0)) {
- /* compiling/compiling_icode.nit:266 */
- if (!once_value_27) {
- fra.me.REG[0] = BOX_NativeString("void");
- 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_27 = fra.me.REG[0];
- register_static_object(&once_value_27);
- } else fra.me.REG[0] = once_value_27;
- fra.me.REG[0] = fra.me.REG[0];
- } else {
- /* compiling/compiling_icode.nit:268 */
- if (!once_value_28) {
- fra.me.REG[8] = BOX_NativeString(", ");
- 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_28 = fra.me.REG[8];
- register_static_object(&once_value_28);
- } else fra.me.REG[8] = once_value_28;
- fra.me.REG[8] = fra.me.REG[8];
- fra.me.REG[8] = CALL_standard___string___Collection___join(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- fra.me.REG[0] = fra.me.REG[8];
- }
- /* compiling/compiling_icode.nit:270 */
- 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)) {
- /* compiling/compiling_icode.nit:271 */
- REGB0 = TAG_Int(5);
- fra.me.REG[8] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_29) {
- fra.me.REG[7] = BOX_NativeString("static const char LOCATE_");
- REGB0 = TAG_Int(25);
- fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB0);
- once_value_29 = fra.me.REG[7];
- register_static_object(&once_value_29);
- } else fra.me.REG[7] = once_value_29;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[7]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[2]);
- if (!once_value_30) {
- fra.me.REG[7] = BOX_NativeString("[] = \"");
- REGB0 = TAG_Int(6);
- fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB0);
- 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[8])(fra.me.REG[8], fra.me.REG[7]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[3]);
- if (!once_value_31) {
- 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_31 = fra.me.REG[3];
- register_static_object(&once_value_31);
- } else fra.me.REG[3] = once_value_31;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[3]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]);
- CALL_compiling___compiling_base___CompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[8]);
- }
- /* compiling/compiling_icode.nit:273 */
- REGB0 = TAG_Int(7);
- fra.me.REG[8] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_32) {
- 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_32 = fra.me.REG[3];
- register_static_object(&once_value_32);
- } else fra.me.REG[3] = once_value_32;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[5]);
- if (!once_value_33) {
- 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_33 = fra.me.REG[3];
- register_static_object(&once_value_33);
- } else fra.me.REG[3] = once_value_33;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[2]);
- if (!once_value_34) {
- 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_34 = fra.me.REG[3];
- register_static_object(&once_value_34);
- } else fra.me.REG[3] = once_value_34;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[0]);
- if (!once_value_35) {
- 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_35 = fra.me.REG[3];
- register_static_object(&once_value_35);
- } else fra.me.REG[3] = once_value_35;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[3]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]);
- CALL_compiling___compiling_base___CompilerVisitor___add_decl(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[8]);
- /* compiling/compiling_icode.nit:274 */
- REGB0 = TAG_Int(7);
- fra.me.REG[8] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_36) {
- fra.me.REG[3] = BOX_NativeString("typedef ");
- 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_36 = fra.me.REG[3];
- register_static_object(&once_value_36);
- } else fra.me.REG[3] = once_value_36;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[5]);
- if (!once_value_37) {
- 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_37 = fra.me.REG[3];
- register_static_object(&once_value_37);
- } else fra.me.REG[3] = once_value_37;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[2]);
- if (!once_value_38) {
- fra.me.REG[3] = BOX_NativeString("_t)(");
- 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_38 = fra.me.REG[3];
- register_static_object(&once_value_38);
- } else fra.me.REG[3] = once_value_38;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[0]);
- if (!once_value_39) {
- 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_39 = fra.me.REG[3];
- register_static_object(&once_value_39);
- } else fra.me.REG[3] = once_value_39;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[3]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]);
- CALL_compiling___compiling_base___CompilerVisitor___add_decl(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[8]);
- /* compiling/compiling_icode.nit:275 */
- REGB0 = TAG_Int(7);
- fra.me.REG[8] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_40) {
- 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_40 = fra.me.REG[3];
- register_static_object(&once_value_40);
- } else fra.me.REG[3] = once_value_40;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[5]);
- if (!once_value_41) {
- 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_41 = fra.me.REG[5];
- register_static_object(&once_value_41);
- } else fra.me.REG[5] = once_value_41;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[5]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[2]);
- if (!once_value_42) {
- 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_42 = fra.me.REG[2];
- register_static_object(&once_value_42);
- } else fra.me.REG[2] = once_value_42;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[2]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[0]);
- if (!once_value_43) {
- 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_43 = fra.me.REG[0];
- register_static_object(&once_value_43);
- } else fra.me.REG[0] = once_value_43;
- fra.me.REG[0] = fra.me.REG[0];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[0]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]);
- CALL_compiling___compiling_base___CompilerVisitor___add_instr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[8]);
- /* compiling/compiling_icode.nit:276 */
- CALL_compiling___compiling_base___CompilerVisitor___indent(fra.me.REG[1])(fra.me.REG[1]);
- /* compiling/compiling_icode.nit:277 */
- goto label44;
- label44: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[6];
-}
-static const char LOCATE_compiling___compiling_icode___IRoutine___compile_inside_to_c[] = "compiling_icode::IRoutine::compile_inside_to_c";
-val_t compiling___compiling_icode___IRoutine___compile_inside_to_c(val_t p0, val_t p1, val_t p2){
- struct {struct stack_frame_t me; val_t MORE_REG[9];} 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_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_21; /* Once value */
- static val_t once_value_22; /* Once value */
- static val_t once_value_23; /* Once value */
- static val_t once_value_24; /* 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_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_41; /* Once value */
- static val_t once_value_42; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_compiling___compiling_icode;
- fra.me.line = 280;
- fra.me.meth = LOCATE_compiling___compiling_icode___IRoutine___compile_inside_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;
- fra.me.REG[2] = p2;
- /* compiling/compiling_icode.nit:284 */
- REGB0 = TAG_Int(0);
- /* compiling/compiling_icode.nit:285 */
- fra.me.REG[3] = CALL_icode___icode_base___IRoutine___location(fra.me.REG[0])(fra.me.REG[0]);
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- REGB2 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Bool(0);
- REGB1 = REGB2;
- } else {
- REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB1 = REGB2;
- }
- }
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- if (UNTAG_Bool(REGB1)) {
- /* compiling/compiling_icode.nit:286 */
- fra.me.REG[3] = CALL_icode___icode_base___IRoutine___location(fra.me.REG[0])(fra.me.REG[0]);
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 286);
- }
- REGB1 = CALL_location___Location___line_start(fra.me.REG[3])(fra.me.REG[3]);
- REGB0 = REGB1;
- }
- /* compiling/compiling_icode.nit:289 */
- REGB1 = CALL_analysis___allocate_iregister_slots___IRoutine___std_slots_nb(fra.me.REG[0])(fra.me.REG[0]);
- REGB2 = TAG_Int(1);
- REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:244 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB1)>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(REGB1));
- /* ../lib/standard/kernel.nit:404 */
- if (UNTAG_Bool(REGB2)) {
- /* compiling/compiling_icode.nit:303 */
- REGB2 = REGB0;
- /* compiling/compiling_icode.nit:304 */
- REGB3 = TAG_Int(3);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB3);
- if (!once_value_15) {
- fra.me.REG[4] = BOX_NativeString("fra.me.REG[");
- REGB3 = TAG_Int(11);
- fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB3);
- 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(REGB2)(REGB2);
- 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("] = NIT_NULL;");
- REGB2 = TAG_Int(13);
- fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB2);
- 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]);
- /* ../lib/standard/kernel.nit:406 */
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB2 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB2));
- /* ../lib/standard/kernel.nit:406 */
- REGB0 = REGB2;
- } else {
- /* ../lib/standard/kernel.nit:404 */
- goto label17;
- }
- }
- label17: while(0);
- /* compiling/compiling_icode.nit:306 */
- REGB0 = TAG_Int(0);
- REGB1 = CALL_analysis___allocate_iregister_slots___IRoutine___tag_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(REGB1));
- /* ../lib/standard/kernel.nit:404 */
- if (UNTAG_Bool(REGB2)) {
- /* compiling/compiling_icode.nit:306 */
- REGB2 = REGB0;
- /* compiling/compiling_icode.nit:307 */
- REGB3 = TAG_Int(3);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB3);
- if (!once_value_18) {
- fra.me.REG[4] = BOX_NativeString("val_t REGB");
- REGB3 = TAG_Int(10);
- fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB3);
- 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(REGB2)(REGB2);
- 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(";");
- REGB2 = TAG_Int(1);
- fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB2);
- 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_decl(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- /* ../lib/standard/kernel.nit:406 */
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB2 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB2));
- /* ../lib/standard/kernel.nit:406 */
- REGB0 = REGB2;
- } else {
- /* ../lib/standard/kernel.nit:404 */
- goto label20;
- }
- }
- label20: while(0);
- /* compiling/compiling_icode.nit:309 */
- fra.me.REG[3] = CALL_icode___icode_base___IRoutine___closure_decls(fra.me.REG[0])(fra.me.REG[0]);
- /* compiling/compiling_icode.nit:310 */
- 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)) {
- /* compiling/compiling_icode.nit:311 */
- REGB0 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_21) {
- fra.me.REG[5] = BOX_NativeString("fun_t CREG[");
- 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_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_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 311);
- }
- REGB0 = CALL_standard___collection___abstract_collection___Collection___length(fra.me.REG[3])(fra.me.REG[3]);
- 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_22) {
- 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_22 = fra.me.REG[5];
- register_static_object(&once_value_22);
- } else fra.me.REG[5] = once_value_22;
- 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_decl(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
- /* compiling/compiling_icode.nit:312 */
- if (!once_value_23) {
- fra.me.REG[4] = BOX_NativeString("fra.me.closure_ctx = closctx_param;");
- REGB0 = TAG_Int(35);
- fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0);
- once_value_23 = fra.me.REG[4];
- register_static_object(&once_value_23);
- } else fra.me.REG[4] = once_value_23;
- 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:313 */
- if (!once_value_24) {
- fra.me.REG[4] = BOX_NativeString("fra.me.closure_funs = CREG;");
- REGB0 = TAG_Int(27);
- fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB0);
- once_value_24 = fra.me.REG[4];
- register_static_object(&once_value_24);
- } else fra.me.REG[4] = once_value_24;
- 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:315 */
- REGB0 = TAG_Int(0);
- fra.me.REG[4] = REGB0;
- /* compiling/compiling_icode.nit:316 */
- fra.me.REG[5] = CALL_icode___icode_base___IRoutine___params(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[5])(fra.me.REG[5], (&(fra.me)), ((fun_t)OC_compiling___compiling_icode___IRoutine___compile_inside_to_c_25));
- /* compiling/compiling_icode.nit:320 */
- 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)) {
- /* compiling/compiling_icode.nit:321 */
- REGB0 = TAG_Int(0);
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 321);
- }
- REGB1 = CALL_standard___collection___abstract_collection___Collection___length(fra.me.REG[3])(fra.me.REG[3]);
- /* ../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(REGB1));
- /* ../lib/standard/kernel.nit:404 */
- if (UNTAG_Bool(REGB2)) {
- /* compiling/compiling_icode.nit:321 */
- REGB2 = REGB0;
- /* compiling/compiling_icode.nit:322 */
- REGB3 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- nit_abort("Reciever is null", NULL, LOCATE_compiling___compiling_icode, 322);
- }
- fra.me.REG[4] = CALL_standard___collection___abstract_collection___SequenceRead_____bra(fra.me.REG[3])(fra.me.REG[3], REGB2);
- /* compiling/compiling_icode.nit:323 */
- REGB3 = TAG_Int(5);
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB3);
- if (!once_value_27) {
- fra.me.REG[6] = BOX_NativeString("CREG[");
- REGB3 = TAG_Int(5);
- fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB3);
- 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];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
- fra.me.REG[6] = CALL_standard___string___Object___to_s(REGB2)(REGB2);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
- if (!once_value_28) {
- fra.me.REG[6] = BOX_NativeString("] = ");
- REGB3 = TAG_Int(4);
- fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB3);
- once_value_28 = fra.me.REG[6];
- register_static_object(&once_value_28);
- } else fra.me.REG[6] = once_value_28;
- 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[6] = CALL_icode___icode_base___IRoutine___params(fra.me.REG[0])(fra.me.REG[0]);
- REGB3 = CALL_standard___collection___abstract_collection___Collection___length(fra.me.REG[6])(fra.me.REG[6]);
- /* ../lib/standard/kernel.nit:245 */
- REGB3 = TAG_Int(UNTAG_Int(REGB3)+UNTAG_Int(REGB2));
- /* ../lib/standard/collection/array.nit:279 */
- fra.me.REG[6] = fra.me.REG[2];
- /* ../lib/standard/collection/array.nit:281 */
- REGB4 = TAG_Int(0);
- 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:243 */
- REGB4 = TAG_Bool(UNTAG_Int(REGB3)>=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)<UNTAG_Int(REGB4));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB5 = TAG_Bool(0);
- REGB4 = REGB5;
- }
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[6] = ATTR_standard___collection___array___Array____items(fra.me.REG[6]);
- REGB4 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[6] = ((Nit_NativeArray)fra.me.REG[6])->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)<UNTAG_Int(REGB3));
- /* ../lib/standard/kernel.nit:404 */
- if (UNTAG_Bool(REGB4)) {
- /* compiling/compiling_icode.nit:329 */
- if (!once_value_32) {
- fra.me.REG[7] = BOX_NativeString("val_t");
- REGB4 = TAG_Int(5);
- fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB4);
- once_value_32 = fra.me.REG[7];
- register_static_object(&once_value_32);
- } else fra.me.REG[7] = once_value_32;
- fra.me.REG[7] = fra.me.REG[7];
- /* compiling/compiling_icode.nit:330 */
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[7]);
- /* ../lib/standard/kernel.nit:406 */
- REGB4 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB4 = TAG_Int(UNTAG_Int(REGB2)+UNTAG_Int(REGB4));
- /* ../lib/standard/kernel.nit:406 */
- REGB2 = REGB4;
- } else {
- /* ../lib/standard/kernel.nit:404 */
- goto label33;
- }
- }
- label33: while(0);
- /* compiling/compiling_icode.nit:332 */
- if (!once_value_34) {
- fra.me.REG[7] = BOX_NativeString("void");
- REGB2 = TAG_Int(4);
- fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB2);
- once_value_34 = fra.me.REG[7];
- register_static_object(&once_value_34);
- } else fra.me.REG[7] = once_value_34;
- fra.me.REG[7] = fra.me.REG[7];
- /* compiling/compiling_icode.nit:333 */
- fra.me.REG[6] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[6])(fra.me.REG[6]);
- REGB2 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- REGB3 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- REGB3 = TAG_Bool(0);
- REGB2 = REGB3;
- } else {
- REGB3 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[6])(fra.me.REG[6], NIT_NULL);
- REGB2 = REGB3;
- }
- }
- REGB2 = TAG_Bool(!UNTAG_Bool(REGB2));
- if (UNTAG_Bool(REGB2)) {
- if (!once_value_35) {
- fra.me.REG[6] = BOX_NativeString("val_t");
- REGB2 = TAG_Int(5);
- fra.me.REG[6] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[6])(fra.me.REG[6], REGB2);
- once_value_35 = fra.me.REG[6];
- register_static_object(&once_value_35);
- } else fra.me.REG[6] = once_value_35;
- fra.me.REG[6] = fra.me.REG[6];
- fra.me.REG[7] = fra.me.REG[6];
- }
- /* compiling/compiling_icode.nit:334 */
- fra.me.REG[6] = CALL_compiling___compiling_icode___I2CCompilerVisitor___clostypes(fra.me.REG[1])(fra.me.REG[1]);
- REGB2 = TAG_Int(5);
- fra.me.REG[8] = NEW_Array_standard___collection___array___Array___with_capacity(REGB2);
- if (!once_value_36) {
- fra.me.REG[9] = BOX_NativeString("");
- REGB2 = TAG_Int(0);
- fra.me.REG[9] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[9])(fra.me.REG[9], REGB2);
- once_value_36 = fra.me.REG[9];
- register_static_object(&once_value_36);
- } else fra.me.REG[9] = once_value_36;
- fra.me.REG[9] = fra.me.REG[9];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[9]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[7]);
- if (!once_value_37) {
- fra.me.REG[7] = BOX_NativeString(" (*)(");
- REGB2 = TAG_Int(5);
- fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB2);
- once_value_37 = fra.me.REG[7];
- register_static_object(&once_value_37);
- } else fra.me.REG[7] = once_value_37;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[7]);
- if (!once_value_38) {
- fra.me.REG[7] = BOX_NativeString(", ");
- REGB2 = TAG_Int(2);
- fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB2);
- 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];
- fra.me.REG[7] = CALL_standard___string___Collection___join(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[7]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[7]);
- if (!once_value_39) {
- fra.me.REG[7] = BOX_NativeString(")");
- REGB2 = TAG_Int(1);
- fra.me.REG[7] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[7])(fra.me.REG[7], REGB2);
- once_value_39 = fra.me.REG[7];
- register_static_object(&once_value_39);
- } else fra.me.REG[7] = once_value_39;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[7]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]);
- CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[4], fra.me.REG[8]);
- /* ../lib/standard/kernel.nit:406 */
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB2 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB2));
- /* ../lib/standard/kernel.nit:406 */
- REGB0 = REGB2;
- } else {
- /* ../lib/standard/kernel.nit:404 */
- goto label40;
- }
- }
- label40: while(0);
- }
- /* compiling/compiling_icode.nit:337 */
- if (!once_value_41) {
- fra.me.REG[2] = BOX_NativeString("val_t tmp;");
- 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_41 = fra.me.REG[2];
- register_static_object(&once_value_41);
- } else fra.me.REG[2] = once_value_41;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_compiling___compiling_icode___I2CCompilerVisitor___add_decl(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* compiling/compiling_icode.nit:340 */
- fra.me.REG[2] = CALL_compiling___compiling_icode___I2CCompilerVisitor___return_label(fra.me.REG[1])(fra.me.REG[1]);
- /* compiling/compiling_icode.nit:341 */
- fra.me.REG[3] = CALL_icode___icode_base___IRoutine___body(fra.me.REG[0])(fra.me.REG[0]);
- CALL_compiling___compiling_icode___I2CCompilerVisitor___return_label__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- /* compiling/compiling_icode.nit:344 */
- fra.me.REG[3] = CALL_icode___icode_base___IRoutine___body(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:346 */
- if (!once_value_42) {
- fra.me.REG[3] = BOX_NativeString("stack_frame_head = fra.me.prev;");
- REGB0 = TAG_Int(31);
- fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0);
- once_value_42 = fra.me.REG[3];
- register_static_object(&once_value_42);
- } else fra.me.REG[3] = once_value_42;
- 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:347 */
- CALL_compiling___compiling_icode___I2CCompilerVisitor___return_label__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* compiling/compiling_icode.nit:348 */
- fra.me.REG[0] = CALL_icode___icode_base___IRoutine___result(fra.me.REG[0])(fra.me.REG[0]);
- /* compiling/compiling_icode.nit:349 */
- 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:350 */
- fra.me.REG[0] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- goto label43;
- } else {
- /* compiling/compiling_icode.nit:352 */
- fra.me.REG[0] = NIT_NULL;
- goto label43;
- }
- label43: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
- void OC_compiling___compiling_icode___IRoutine___compile_inside_to_c_25(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- 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___IRoutine___compile_inside_to_c;
- 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.closure_ctx = closctx_param;
- fra.me.closure_funs = CREG;
- fra.me.REG[0] = p0;
- CREG[0] = clos_fun0;
- /* compiling/compiling_icode.nit:317 */
- fra.me.REG[1] = CALL_analysis___allocate_iregister_slots___IRegister___slot_index(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(0);
- REGB0 = REGB1;
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB1 = TAG_Bool((fra.me.REG[1])==(NIT_NULL));
- /* compiling/compiling_icode.nit:317 */
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- fra.me.REG[0] = CALL_compiling___compiling_icode___I2CCompilerVisitor___register(closctx->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)<UNTAG_Int(REGB1));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB2 = TAG_Bool(0);
- REGB1 = REGB2;
- }
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[1] = ATTR_standard___collection___array___Array____items(fra.me.REG[1]);
- REGB1 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[1] = ((Nit_NativeArray)fra.me.REG[1])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[6] = ATTR_standard___collection___array___Array____items(fra.me.REG[6]);
- REGB2 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[6] = ((Nit_NativeArray)fra.me.REG[6])->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(REGB2));
- /* ../lib/standard/kernel.nit:404 */
- if (UNTAG_Bool(REGB0)) {
- /* compiling/compiling_icode.nit:712 */
- REGB0 = REGB1;
- /* compiling/compiling_icode.nit:713 */
- REGB3 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB3 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB3));
- /* ../lib/standard/collection/array.nit:279 */
- fra.me.REG[4] = fra.me.REG[3];
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Int(0);
- 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:243 */
- REGB0 = TAG_Bool(UNTAG_Int(REGB3)>=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)<UNTAG_Int(REGB0));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB4 = TAG_Bool(0);
- REGB0 = REGB4;
- }
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[4] = ATTR_standard___collection___array___Array____items(fra.me.REG[4]);
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[4] = ((Nit_NativeArray)fra.me.REG[4])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[6] = ATTR_standard___collection___array___Array____items(fra.me.REG[6]);
- REGB2 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[6] = ((Nit_NativeArray)fra.me.REG[6])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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(");
- 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_75 = fra.me.REG[7];
- register_static_object(&once_value_75);
- } else fra.me.REG[7] = once_value_75;
- 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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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(");
- 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_103 = fra.me.REG[7];
- register_static_object(&once_value_103);
- } else fra.me.REG[7] = once_value_103;
- 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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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(")<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_181 = fra.me.REG[7];
- register_static_object(&once_value_181);
- } else fra.me.REG[7] = once_value_181;
- 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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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_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_281 = fra.me.REG[7];
- register_static_object(&once_value_281);
- } else fra.me.REG[7] = once_value_281;
- 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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[2] = ATTR_standard___collection___array___Array____items(fra.me.REG[2]);
- REGB2 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[2] = ((Nit_NativeArray)fra.me.REG[2])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[2] = ATTR_standard___collection___array___Array____items(fra.me.REG[2]);
- REGB2 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[2] = ((Nit_NativeArray)fra.me.REG[2])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[2] = ATTR_standard___collection___array___Array____items(fra.me.REG[2]);
- REGB2 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[2] = ((Nit_NativeArray)fra.me.REG[2])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[2] = ATTR_standard___collection___array___Array____items(fra.me.REG[2]);
- REGB2 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[2] = ((Nit_NativeArray)fra.me.REG[2])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[2] = ATTR_standard___collection___array___Array____items(fra.me.REG[2]);
- REGB2 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[2] = ((Nit_NativeArray)fra.me.REG[2])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[2] = ATTR_standard___collection___array___Array____items(fra.me.REG[2]);
- REGB2 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[2] = ((Nit_NativeArray)fra.me.REG[2])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[2] = ATTR_standard___collection___array___Array____items(fra.me.REG[2]);
- REGB2 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[2] = ((Nit_NativeArray)fra.me.REG[2])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[2] = ATTR_standard___collection___array___Array____items(fra.me.REG[2]);
- REGB2 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[2] = ((Nit_NativeArray)fra.me.REG[2])->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)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[4] = ATTR_standard___collection___array___Array____items(fra.me.REG[4]);
- REGB2 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[4] = ((Nit_NativeArray)fra.me.REG[4])->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)<UNTAG_Int(REGB1));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB2 = TAG_Bool(0);
- REGB1 = REGB2;
- }
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[2] = ATTR_standard___collection___array___Array____items(fra.me.REG[2]);
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[2] = ((Nit_NativeArray)fra.me.REG[2])->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)<UNTAG_Int(REGB0));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB2 = TAG_Bool(0);
- REGB0 = REGB2;
- }
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[2] = ATTR_standard___collection___array___Array____items(fra.me.REG[2]);
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[2] = ((Nit_NativeArray)fra.me.REG[2])->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];
-}
nitlanguage / nit.git / blobdiff