+++ /dev/null
-/* This C file is generated by NIT to compile module metamodel___inheritance. */
-#include "metamodel___inheritance._sep.h"
-static const char LOCATE_metamodel___inheritance___MMContext___handle_property_conflict[] = "inheritance::MMContext::handle_property_conflict";
-void metamodel___inheritance___MMContext___handle_property_conflict(val_t p0, val_t p1, val_t p2){
- struct {struct stack_frame_t me; val_t MORE_REG[6];} 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_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_metamodel___inheritance;
- fra.me.line = 24;
- fra.me.meth = LOCATE_metamodel___inheritance___MMContext___handle_property_conflict;
- 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;
- fra.me.REG[2] = p2;
- /* metamodel/inheritance.nit:28 */
- fra.me.REG[3] = CALL_standard___collection___abstract_collection___Collection___first(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_metamodel___inheritance, 28);
- }
- fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[3])(fra.me.REG[3]);
- /* metamodel/inheritance.nit:29 */
- fra.me.REG[4] = CALL_standard___file___Object___stderr(fra.me.REG[0])(fra.me.REG[0]);
- if (!once_value_1) {
- fra.me.REG[5] = BOX_NativeString("Fatal error: inherit_local_property error\n");
- REGB0 = TAG_Int(42);
- fra.me.REG[5] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[5])(fra.me.REG[5], REGB0);
- once_value_1 = fra.me.REG[5];
- register_static_object(&once_value_1);
- } else fra.me.REG[5] = once_value_1;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___stream___OStream___write(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- /* metamodel/inheritance.nit:30 */
- REGB0 = TAG_Int(7);
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_2) {
- fra.me.REG[4] = BOX_NativeString("------- ");
- 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_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[5])(fra.me.REG[5], fra.me.REG[4]);
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalClass___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
- 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[5])(fra.me.REG[5], fra.me.REG[4]);
- if (!once_value_3) {
- 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_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[5])(fra.me.REG[5], fra.me.REG[4]);
- fra.me.REG[1] = CALL_standard___string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1]);
- if (!once_value_4) {
- 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_4 = fra.me.REG[1];
- register_static_object(&once_value_4);
- } else fra.me.REG[1] = once_value_4;
- fra.me.REG[1] = fra.me.REG[1];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1]);
- fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___intro(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(fra.me.REG[1])(fra.me.REG[1]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1]);
- if (!once_value_5) {
- fra.me.REG[1] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[1] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[1])(fra.me.REG[1], REGB0);
- once_value_5 = fra.me.REG[1];
- register_static_object(&once_value_5);
- } else fra.me.REG[1] = once_value_5;
- fra.me.REG[1] = fra.me.REG[1];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_standard___file___Object___print(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[5]);
- /* ../lib/standard/collection/array.nit:270 */
- REGB0 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:271 */
- 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, 271);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]);
- /* ../lib/standard/collection/array.nit:272 */
- fra.me.REG[5] = ATTR_standard___collection___array___Array____items(fra.me.REG[2]);
- /* ../lib/standard/collection/array.nit:273 */
- while(1) {
- /* ../lib/standard/collection/array.nit:24 */
- 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, 24);
- }
- 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));
- /* ../lib/standard/collection/array.nit:273 */
- if (UNTAG_Bool(REGB1)) {
- /* ../lib/standard/collection/array.nit:274 */
- REGB1 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 274);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[1] = ((Nit_NativeArray)fra.me.REG[5])->val[UNTAG_Int(REGB0)];
- /* metamodel/inheritance.nit:32 */
- REGB1 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_6) {
- 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_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[4])(fra.me.REG[4], fra.me.REG[6]);
- fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(fra.me.REG[1])(fra.me.REG[1]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[1]);
- if (!once_value_7) {
- fra.me.REG[1] = BOX_NativeString("");
- REGB1 = TAG_Int(0);
- fra.me.REG[1] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[1])(fra.me.REG[1], REGB1);
- once_value_7 = fra.me.REG[1];
- register_static_object(&once_value_7);
- } else fra.me.REG[1] = once_value_7;
- fra.me.REG[1] = fra.me.REG[1];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[1]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___file___Object___print(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]);
- /* ../lib/standard/collection/array.nit:275 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:275 */
- REGB0 = REGB1;
- } else {
- /* ../lib/standard/collection/array.nit:273 */
- goto label8;
- }
- }
- label8: while(0);
- /* metamodel/inheritance.nit:34 */
- REGB0 = TAG_Int(3);
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_9) {
- fra.me.REG[2] = BOX_NativeString("------- ");
- 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_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[5])(fra.me.REG[5], fra.me.REG[2]);
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___property_hierarchy(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[2] = CALL_standard___collection___abstract_collection___Collection___first(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[2]);
- if (!once_value_10) {
- fra.me.REG[2] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- 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];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[2]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_standard___file___Object___print(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[5]);
- /* metamodel/inheritance.nit:35 */
- REGB0 = TAG_Int(3);
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_11) {
- fra.me.REG[2] = BOX_NativeString("------- ");
- 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_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[5])(fra.me.REG[5], fra.me.REG[2]);
- fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___property_hierarchy(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[3] = CALL_metamodel___partial_order___PartialOrder___to_dot(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
- if (!once_value_12) {
- 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_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[5])(fra.me.REG[5], fra.me.REG[3]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_standard___file___Object___print(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[5]);
- /* metamodel/inheritance.nit:36 */
- REGB0 = TAG_Int(1);
- CALL_standard___kernel___Object___exit(fra.me.REG[0])(fra.me.REG[0], REGB0);
- stack_frame_head = fra.me.prev;
- return;
-}
-static const char LOCATE_metamodel___inheritance___MMModule___type_any[] = "inheritance::MMModule::type_any";
-val_t metamodel___inheritance___MMModule___type_any(val_t p0){
- 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 */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 41;
- fra.me.meth = LOCATE_metamodel___inheritance___MMModule___type_any;
- 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;
- /* metamodel/inheritance.nit:44 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[1] = BOX_NativeString("Object");
- REGB0 = TAG_Int(6);
- 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];
- fra.me.REG[1] = CALL_symbol___String___to_symbol(fra.me.REG[1])(fra.me.REG[1]);
- 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];
- fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMModule___class_by_name(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* metamodel/inheritance.nit:45 */
- fra.me.REG[1] = CALL_metamodel___static_type___MMLocalClass___get_type(fra.me.REG[1])(fra.me.REG[1]);
- goto label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-static const char LOCATE_metamodel___inheritance___MMModule___type_any_extern[] = "inheritance::MMModule::type_any_extern";
-val_t metamodel___inheritance___MMModule___type_any_extern(val_t p0){
- 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 */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 48;
- fra.me.meth = LOCATE_metamodel___inheritance___MMModule___type_any_extern;
- 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;
- /* metamodel/inheritance.nit:51 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[1] = BOX_NativeString("Pointer");
- REGB0 = TAG_Int(7);
- 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];
- fra.me.REG[1] = CALL_symbol___String___to_symbol(fra.me.REG[1])(fra.me.REG[1]);
- 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];
- fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMModule___class_by_name(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* metamodel/inheritance.nit:52 */
- fra.me.REG[1] = CALL_metamodel___static_type___MMLocalClass___get_type(fra.me.REG[1])(fra.me.REG[1]);
- goto label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-static const char LOCATE_metamodel___inheritance___MMModule___import_global_classes[] = "inheritance::MMModule::import_global_classes";
-void metamodel___inheritance___MMModule___import_global_classes(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} 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_metamodel___inheritance;
- fra.me.line = 55;
- fra.me.meth = LOCATE_metamodel___inheritance___MMModule___import_global_classes;
- 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;
- /* metamodel/inheritance.nit:58 */
- fra.me.REG[1] = NEW_HashMap_standard___collection___hash_collection___HashMap___init();
- /* metamodel/inheritance.nit:59 */
- fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMModule___mhe(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 {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_metamodel___inheritance, 59);
- }
- /* metamodel/inheritance.nit:60 */
- fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMModule___mhe(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_metamodel___inheritance, 60);
- }
- fra.me.REG[1] = CALL_metamodel___partial_order___PartialOrderElement___direct_greaters(fra.me.REG[1])(fra.me.REG[1]);
- /* ../lib/standard/collection/array.nit:270 */
- REGB0 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:271 */
- 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, 271);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1]);
- /* ../lib/standard/collection/array.nit:272 */
- fra.me.REG[2] = ATTR_standard___collection___array___Array____items(fra.me.REG[1]);
- /* ../lib/standard/collection/array.nit:273 */
- while(1) {
- /* ../lib/standard/collection/array.nit:24 */
- 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, 24);
- }
- 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));
- /* ../lib/standard/collection/array.nit:273 */
- if (UNTAG_Bool(REGB1)) {
- /* ../lib/standard/collection/array.nit:274 */
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 274);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[3] = ((Nit_NativeArray)fra.me.REG[2])->val[UNTAG_Int(REGB0)];
- /* metamodel/inheritance.nit:61 */
- fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMModule___global_classes(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[3])(fra.me.REG[3], (&(fra.me)), ((fun_t)OC_metamodel___inheritance___MMModule___import_global_classes_1));
- /* ../lib/standard/collection/array.nit:275 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:275 */
- REGB0 = REGB1;
- } else {
- /* ../lib/standard/collection/array.nit:273 */
- goto label3;
- }
- }
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
- void OC_metamodel___inheritance___MMModule___import_global_classes_1(struct stack_frame_t *closctx, val_t p0){
- 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_metamodel___inheritance;
- fra.me.line = 0;
- fra.me.meth = LOCATE_metamodel___inheritance___MMModule___import_global_classes;
- 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;
- /* metamodel/inheritance.nit:62 */
- fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMModule___global_classes(closctx->REG[0])(closctx->REG[0]);
- REGB0 = CALL_standard___collection___abstract_collection___Collection___has(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- if (UNTAG_Bool(REGB0)) {
- goto label2;
- }
- /* metamodel/inheritance.nit:63 */
- REGB0 = TAG_Bool(ATTR_metamodel___abstractmetamodel___MMModule____global_classes(closctx->REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_global_classes", LOCATE_metamodel___inheritance, 63);
- }
- fra.me.REG[1] = ATTR_metamodel___abstractmetamodel___MMModule____global_classes(closctx->REG[0]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- /* metamodel/inheritance.nit:64 */
- REGB0 = TAG_Bool(ATTR_metamodel___abstractmetamodel___MMModule____global_class_by_name(closctx->REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_global_class_by_name", LOCATE_metamodel___inheritance, 64);
- }
- fra.me.REG[1] = ATTR_metamodel___abstractmetamodel___MMModule____global_class_by_name(closctx->REG[0]);
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMGlobalClass___name(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[0]);
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return;
- }
-static const char LOCATE_metamodel___inheritance___MMModule___import_local_classes[] = "inheritance::MMModule::import_local_classes";
-void metamodel___inheritance___MMModule___import_local_classes(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 70;
- fra.me.meth = LOCATE_metamodel___inheritance___MMModule___import_local_classes;
- 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;
- /* metamodel/inheritance.nit:73 */
- REGB0 = TAG_Bool(ATTR_metamodel___abstractmetamodel___MMModule____global_classes(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_global_classes", LOCATE_metamodel___inheritance, 73);
- }
- fra.me.REG[1] = ATTR_metamodel___abstractmetamodel___MMModule____global_classes(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[1])(fra.me.REG[1], (&(fra.me)), ((fun_t)OC_metamodel___inheritance___MMModule___import_local_classes_1));
- stack_frame_head = fra.me.prev;
- return;
-}
- void OC_metamodel___inheritance___MMModule___import_local_classes_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; val_t MORE_REG[1];} fra;
- val_t REGB0;
- fun_t CREG[1];
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 0;
- fra.me.meth = LOCATE_metamodel___inheritance___MMModule___import_local_classes;
- 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;
- /* metamodel/inheritance.nit:74 */
- REGB0 = TAG_Bool(ATTR_metamodel___abstractmetamodel___MMModule____local_class_by_global(closctx->REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_local_class_by_global", LOCATE_metamodel___inheritance, 74);
- }
- fra.me.REG[1] = ATTR_metamodel___abstractmetamodel___MMModule____local_class_by_global(closctx->REG[0]);
- REGB0 = CALL_standard___collection___abstract_collection___MapRead___has_key(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- if (UNTAG_Bool(REGB0)) {
- goto label2;
- }
- /* metamodel/inheritance.nit:75 */
- fra.me.REG[0] = NEW_MMImplicitLocalClass_metamodel___inheritance___MMImplicitLocalClass___init(closctx->REG[0], fra.me.REG[0]);
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return;
- }
-static const char LOCATE_metamodel___inheritance___MMLocalClass___compute_super_classes[] = "inheritance::MMLocalClass::compute_super_classes";
-void metamodel___inheritance___MMLocalClass___compute_super_classes(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_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_metamodel___inheritance;
- fra.me.line = 88;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass___compute_super_classes;
- 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;
- /* metamodel/inheritance.nit:91 */
- REGB0 = CALL_metamodel___inheritance___MMLocalClass___computed_super_classes(fra.me.REG[0])(fra.me.REG[0]);
- if (UNTAG_Bool(REGB0)) {
- /* metamodel/inheritance.nit:93 */
- goto label1;
- } else {
- /* metamodel/inheritance.nit:94 */
- REGB0 = TAG_Bool(ATTR_metamodel___inheritance___MMLocalClass____computing_super(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_computing_super", LOCATE_metamodel___inheritance, 94);
- }
- REGB0 = ATTR_metamodel___inheritance___MMLocalClass____computing_super(fra.me.REG[0]);
- if (UNTAG_Bool(REGB0)) {
- /* metamodel/inheritance.nit:95 */
- fra.me.REG[1] = CALL_standard___file___Object___stderr(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Int(3);
- fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_2) {
- fra.me.REG[3] = BOX_NativeString("Fatal error: Inheritance loop for class ");
- REGB0 = TAG_Int(40);
- 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]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- if (!once_value_3) {
- fra.me.REG[3] = BOX_NativeString("\n");
- 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_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
- CALL_standard___stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* metamodel/inheritance.nit:96 */
- REGB0 = TAG_Int(1);
- CALL_standard___kernel___Object___exit(fra.me.REG[0])(fra.me.REG[0], REGB0);
- }
- }
- /* metamodel/inheritance.nit:98 */
- REGB0 = TAG_Bool(1);
- ATTR_metamodel___inheritance___MMLocalClass____computing_super(fra.me.REG[0]) = REGB0;
- /* metamodel/inheritance.nit:100 */
- fra.me.REG[2] = NEW_Array_standard___collection___array___Array___init();
- /* metamodel/inheritance.nit:101 */
- CALL_metamodel___inheritance___MMLocalClass___add_explicit_classes(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
- /* metamodel/inheritance.nit:102 */
- CALL_metamodel___inheritance___MMLocalClass___add_super_classes(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
- /* metamodel/inheritance.nit:103 */
- CALL_metamodel___inheritance___MMLocalClass___add_default_any_class(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
- /* metamodel/inheritance.nit:104 */
- CALL_metamodel___inheritance___MMLocalClass___compute_super_parents(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
- /* metamodel/inheritance.nit:105 */
- fra.me.REG[1] = NEW_HashSet_standard___collection___hash_collection___HashSet___init();
- /* metamodel/inheritance.nit:106 */
- CALL_standard___collection___abstract_collection___SimpleCollection___add_all(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* metamodel/inheritance.nit:107 */
- fra.me.REG[1] = CALL_standard___collection___array___Collection___to_a(fra.me.REG[1])(fra.me.REG[1]);
- /* metamodel/inheritance.nit:108 */
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___mmmodule(fra.me.REG[0])(fra.me.REG[0]);
- CALL_metamodel___abstractmetamodel___MMModule___set_supers_class(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0], fra.me.REG[1]);
- /* metamodel/inheritance.nit:109 */
- fra.me.REG[1] = ATTR_metamodel___abstractmetamodel___MMLocalClass____crhe(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 {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_metamodel___inheritance, 109);
- }
- /* metamodel/inheritance.nit:110 */
- fra.me.REG[1] = ATTR_metamodel___abstractmetamodel___MMLocalClass____cshe(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 {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_metamodel___inheritance, 110);
- }
- /* metamodel/inheritance.nit:111 */
- REGB0 = TAG_Bool(0);
- ATTR_metamodel___inheritance___MMLocalClass____computing_super(fra.me.REG[0]) = REGB0;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-static const char LOCATE_metamodel___inheritance___MMLocalClass___compute_ancestors[] = "inheritance::MMLocalClass::compute_ancestors";
-void metamodel___inheritance___MMLocalClass___compute_ancestors(val_t p0){
- 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_metamodel___inheritance;
- fra.me.line = 114;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass___compute_ancestors;
- 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;
- /* metamodel/inheritance.nit:117 */
- REGB0 = CALL_metamodel___inheritance___MMLocalClass___computed_super_classes(fra.me.REG[0])(fra.me.REG[0]);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_metamodel___inheritance, 117);
- }
- /* metamodel/inheritance.nit:118 */
- REGB0 = CALL_metamodel___inheritance___MMLocalClass___computed_ancestors(fra.me.REG[0])(fra.me.REG[0]);
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* metamodel/inheritance.nit:120 */
- fra.me.REG[1] = CALL_metamodel___inheritance___MMLocalClass___build_ancestors(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[1] = CALL_metamodel___inheritance___MMLocalClass___group_ancestors(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* metamodel/inheritance.nit:121 */
- fra.me.REG[2] = NEW_HashMap_standard___collection___hash_collection___HashMap___init();
- ATTR_metamodel___static_type___MMLocalClass____ancestors(fra.me.REG[0]) = fra.me.REG[2];
- /* metamodel/inheritance.nit:123 */
- fra.me.REG[1] = CALL_standard___collection___abstract_collection___MapRead___values(fra.me.REG[1])(fra.me.REG[1]);
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[1])(fra.me.REG[1], (&(fra.me)), ((fun_t)OC_metamodel___inheritance___MMLocalClass___compute_ancestors_2));
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
- void OC_metamodel___inheritance___MMLocalClass___compute_ancestors_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; 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_metamodel___inheritance;
- fra.me.line = 0;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass___compute_ancestors;
- 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;
- /* metamodel/inheritance.nit:124 */
- REGB0 = CALL_standard___collection___abstract_collection___Collection___length(fra.me.REG[0])(fra.me.REG[0]);
- REGB1 = TAG_Int(1);
- REGB2 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB1));
- if (UNTAG_Bool(REGB2)) {
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB1 = TAG_Bool((REGB0)==(REGB1));
- /* metamodel/inheritance.nit:124 */
- REGB2 = REGB1;
- }
- if (UNTAG_Bool(REGB2)) {
- /* metamodel/inheritance.nit:125 */
- fra.me.REG[1] = CALL_standard___collection___abstract_collection___Collection___first(fra.me.REG[0])(fra.me.REG[0]);
- CALL_metamodel___static_type___MMLocalClass___add_ancestor(closctx->REG[0])(closctx->REG[0], fra.me.REG[1]);
- } else {
- /* metamodel/inheritance.nit:127 */
- fra.me.REG[1] = CALL_metamodel___inheritance___MMLocalClass___merge_ancestors(closctx->REG[0])(closctx->REG[0], fra.me.REG[0]);
- /* metamodel/inheritance.nit:128 */
- fra.me.REG[0] = CALL_metamodel___inheritance___MMLocalClass___merge_ancestors(closctx->REG[0])(closctx->REG[0], fra.me.REG[0]);
- CALL_metamodel___static_type___MMLocalClass___add_ancestor(closctx->REG[0])(closctx->REG[0], fra.me.REG[0]);
- }
- stack_frame_head = fra.me.prev;
- return;
- }
-static const char LOCATE_metamodel___inheritance___MMLocalClass___inherit_global_properties[] = "inheritance::MMLocalClass::inherit_global_properties";
-void metamodel___inheritance___MMLocalClass___inherit_global_properties(val_t p0){
- 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_metamodel___inheritance;
- fra.me.line = 135;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass___inherit_global_properties;
- 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;
- /* metamodel/inheritance.nit:138 */
- REGB0 = TAG_Bool(ATTR_metamodel___inheritance___MMLocalClass____are_global_properties_inherited(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_are_global_properties_inherited", LOCATE_metamodel___inheritance, 138);
- }
- REGB0 = ATTR_metamodel___inheritance___MMLocalClass____are_global_properties_inherited(fra.me.REG[0]);
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* metamodel/inheritance.nit:139 */
- REGB0 = TAG_Bool(1);
- ATTR_metamodel___inheritance___MMLocalClass____are_global_properties_inherited(fra.me.REG[0]) = REGB0;
- /* metamodel/inheritance.nit:141 */
- REGB0 = TAG_Bool(ATTR_metamodel___abstractmetamodel___MMLocalClass____properties_by_name(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_properties_by_name", LOCATE_metamodel___inheritance, 141);
- }
- fra.me.REG[1] = ATTR_metamodel___abstractmetamodel___MMLocalClass____properties_by_name(fra.me.REG[0]);
- /* metamodel/inheritance.nit:142 */
- REGB0 = TAG_Bool(ATTR_metamodel___abstractmetamodel___MMLocalClass____global_properties(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_global_properties", LOCATE_metamodel___inheritance, 142);
- }
- fra.me.REG[1] = ATTR_metamodel___abstractmetamodel___MMLocalClass____global_properties(fra.me.REG[0]);
- /* metamodel/inheritance.nit:143 */
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___che(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_metamodel___partial_order___PartialOrderElement___direct_greaters(fra.me.REG[2])(fra.me.REG[2]);
- /* ../lib/standard/collection/array.nit:270 */
- REGB0 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:271 */
- 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, 271);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]);
- /* ../lib/standard/collection/array.nit:272 */
- fra.me.REG[3] = ATTR_standard___collection___array___Array____items(fra.me.REG[2]);
- /* ../lib/standard/collection/array.nit:273 */
- while(1) {
- /* ../lib/standard/collection/array.nit:24 */
- 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, 24);
- }
- 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));
- /* ../lib/standard/collection/array.nit:273 */
- if (UNTAG_Bool(REGB1)) {
- /* ../lib/standard/collection/array.nit:274 */
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 274);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[4] = ((Nit_NativeArray)fra.me.REG[3])->val[UNTAG_Int(REGB0)];
- /* metamodel/inheritance.nit:144 */
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalClass___global_properties(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[4])(fra.me.REG[4], (&(fra.me)), ((fun_t)OC_metamodel___inheritance___MMLocalClass___inherit_global_properties_2));
- /* ../lib/standard/collection/array.nit:275 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:275 */
- REGB0 = REGB1;
- } else {
- /* ../lib/standard/collection/array.nit:273 */
- goto label4;
- }
- }
- label4: while(0);
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
- void OC_metamodel___inheritance___MMLocalClass___inherit_global_properties_2(struct stack_frame_t *closctx, val_t p0){
- 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_metamodel___inheritance;
- fra.me.line = 0;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass___inherit_global_properties;
- 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;
- /* metamodel/inheritance.nit:145 */
- REGB0 = CALL_standard___collection___abstract_collection___Collection___has(closctx->REG[1])(closctx->REG[1], fra.me.REG[0]);
- if (UNTAG_Bool(REGB0)) {
- goto label3;
- }
- /* metamodel/inheritance.nit:147 */
- CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx->REG[1])(closctx->REG[1], fra.me.REG[0]);
- /* metamodel/inheritance.nit:151 */
- REGB0 = CALL_metamodel___abstractmetamodel___MMGlobalProperty___is_init(fra.me.REG[0])(fra.me.REG[0]);
- if (UNTAG_Bool(REGB0)) {
- fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___intro(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMLocalProperty___local_class(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(closctx->REG[0])(closctx->REG[0]);
- REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[1],fra.me.REG[2]));
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- REGB0 = REGB1;
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- } else {
- REGB1 = TAG_Bool(0);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* metamodel/inheritance.nit:153 */
- goto label3;
- }
- /* metamodel/inheritance.nit:157 */
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___intro(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalProperty___name(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Int(0);
- REGB0 = CALL_standard___collection___abstract_collection___SequenceRead_____bra(fra.me.REG[2])(fra.me.REG[2], REGB0);
- REGB1 = TAG_Char('@');
- REGB2 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB1));
- if (UNTAG_Bool(REGB2)) {
- } else {
- /* ../lib/standard/kernel.nit:434 */
- REGB1 = TAG_Bool((REGB0)==(REGB1));
- /* metamodel/inheritance.nit:157 */
- REGB2 = REGB1;
- }
- if (UNTAG_Bool(REGB2)) {
- goto label3;
- }
- /* metamodel/inheritance.nit:159 */
- CALL_metamodel___inheritance___MMLocalClass___make_visible_an_inherited_global_property(closctx->REG[0])(closctx->REG[0], fra.me.REG[0]);
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return;
- }
-static const char LOCATE_metamodel___inheritance___MMLocalClass___global_properties[] = "inheritance::MMLocalClass::(abstractmetamodel::MMLocalClass::global_properties)";
-val_t metamodel___inheritance___MMLocalClass___global_properties(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 164;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass___global_properties;
- 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;
- /* metamodel/inheritance.nit:166 */
- REGB0 = TAG_Bool(ATTR_metamodel___inheritance___MMLocalClass____are_global_properties_inherited(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_are_global_properties_inherited", LOCATE_metamodel___inheritance, 166);
- }
- REGB0 = ATTR_metamodel___inheritance___MMLocalClass____are_global_properties_inherited(fra.me.REG[0]);
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(ATTR_metamodel___abstractmetamodel___MMLocalClass____global_properties(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_global_properties", LOCATE_metamodel___inheritance, 166);
- }
- fra.me.REG[1] = ATTR_metamodel___abstractmetamodel___MMLocalClass____global_properties(fra.me.REG[0]);
- goto label1;
- }
- /* metamodel/inheritance.nit:167 */
- REGB0 = CALL_metamodel___inheritance___MMLocalClass___computed_super_classes(fra.me.REG[0])(fra.me.REG[0]);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_metamodel___inheritance, 167);
- }
- /* metamodel/inheritance.nit:168 */
- CALL_metamodel___inheritance___MMLocalClass___inherit_global_properties(fra.me.REG[0])(fra.me.REG[0]);
- /* metamodel/inheritance.nit:169 */
- REGB0 = TAG_Bool(ATTR_metamodel___abstractmetamodel___MMLocalClass____global_properties(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_global_properties", LOCATE_metamodel___inheritance, 169);
- }
- fra.me.REG[0] = ATTR_metamodel___abstractmetamodel___MMLocalClass____global_properties(fra.me.REG[0]);
- fra.me.REG[1] = fra.me.REG[0];
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-static const char LOCATE_metamodel___inheritance___MMLocalClass___has_global_property[] = "inheritance::MMLocalClass::(abstractmetamodel::MMLocalClass::has_global_property)";
-val_t metamodel___inheritance___MMLocalClass___has_global_property(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 REGB3;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 172;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass___has_global_property;
- 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;
- /* metamodel/inheritance.nit:176 */
- REGB0 = CALL_metamodel___inheritance___MMLocalClass___computed_super_classes(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(0);
- goto label1;
- }
- /* metamodel/inheritance.nit:178 */
- REGB1 = TAG_Bool(ATTR_metamodel___abstractmetamodel___MMLocalClass____global_properties(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_global_properties", LOCATE_metamodel___inheritance, 178);
- }
- fra.me.REG[2] = ATTR_metamodel___abstractmetamodel___MMLocalClass____global_properties(fra.me.REG[0]);
- /* metamodel/inheritance.nit:179 */
- REGB1 = CALL_standard___collection___abstract_collection___Collection___has(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(1);
- REGB0 = REGB1;
- goto label1;
- }
- /* metamodel/inheritance.nit:180 */
- fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMLocalClass___che(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_metamodel___partial_order___PartialOrderElement___direct_greaters(fra.me.REG[0])(fra.me.REG[0]);
- /* ../lib/standard/collection/array.nit:270 */
- REGB1 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:271 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 271);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/collection/array.nit:272 */
- fra.me.REG[3] = ATTR_standard___collection___array___Array____items(fra.me.REG[0]);
- /* ../lib/standard/collection/array.nit:273 */
- while(1) {
- /* ../lib/standard/collection/array.nit:24 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- 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:242 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB1)<UNTAG_Int(REGB2));
- /* ../lib/standard/collection/array.nit:273 */
- if (UNTAG_Bool(REGB2)) {
- /* ../lib/standard/collection/array.nit:274 */
- REGB2 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 274);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[4] = ((Nit_NativeArray)fra.me.REG[3])->val[UNTAG_Int(REGB1)];
- /* metamodel/inheritance.nit:181 */
- REGB2 = CALL_metamodel___abstractmetamodel___MMLocalClass___has_global_property(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[1]);
- if (UNTAG_Bool(REGB2)) {
- /* metamodel/inheritance.nit:182 */
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
- /* metamodel/inheritance.nit:183 */
- REGB2 = TAG_Bool(1);
- REGB0 = REGB2;
- goto label1;
- }
- /* ../lib/standard/collection/array.nit:275 */
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB2 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB2));
- /* ../lib/standard/collection/array.nit:275 */
- REGB1 = REGB2;
- } else {
- /* ../lib/standard/collection/array.nit:273 */
- goto label2;
- }
- }
- label2: while(0);
- /* metamodel/inheritance.nit:186 */
- REGB1 = TAG_Bool(0);
- REGB0 = REGB1;
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-static const char LOCATE_metamodel___inheritance___MMLocalClass___has_global_property_by_name[] = "inheritance::MMLocalClass::(abstractmetamodel::MMLocalClass::has_global_property_by_name)";
-val_t metamodel___inheritance___MMLocalClass___has_global_property_by_name(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 REGB3;
- val_t REGB4;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 189;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass___has_global_property_by_name;
- 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;
- /* metamodel/inheritance.nit:193 */
- REGB0 = CALL_metamodel___inheritance___MMLocalClass___computed_super_classes(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(0);
- goto label1;
- }
- /* metamodel/inheritance.nit:196 */
- CALL_metamodel___inheritance___MMLocalClass___compute_super_classes(fra.me.REG[0])(fra.me.REG[0]);
- /* metamodel/inheritance.nit:198 */
- REGB1 = TAG_Bool(ATTR_metamodel___abstractmetamodel___MMLocalClass____properties_by_name(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_properties_by_name", LOCATE_metamodel___inheritance, 198);
- }
- fra.me.REG[2] = ATTR_metamodel___abstractmetamodel___MMLocalClass____properties_by_name(fra.me.REG[0]);
- REGB1 = CALL_standard___collection___abstract_collection___MapRead___has_key(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
- if (UNTAG_Bool(REGB1)) {
- /* metamodel/inheritance.nit:199 */
- REGB1 = TAG_Bool(ATTR_metamodel___abstractmetamodel___MMLocalClass____properties_by_name(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_properties_by_name", LOCATE_metamodel___inheritance, 199);
- }
- fra.me.REG[2] = ATTR_metamodel___abstractmetamodel___MMLocalClass____properties_by_name(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]);
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_metamodel___inheritance, 199);
- }
- /* ../lib/standard/collection/array.nit:24 */
- 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, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]);
- /* metamodel/inheritance.nit:199 */
- REGB2 = TAG_Int(1);
- REGB3 = TAG_Bool(IS_EQUAL_OO(REGB1,REGB2));
- if (UNTAG_Bool(REGB3)) {
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB2 = TAG_Bool((REGB1)==(REGB2));
- /* metamodel/inheritance.nit:199 */
- REGB3 = REGB2;
- }
- REGB0 = REGB3;
- goto label1;
- }
- /* metamodel/inheritance.nit:201 */
- REGB3 = TAG_Bool(ATTR_metamodel___abstractmetamodel___MMLocalClass____global_properties(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_global_properties", LOCATE_metamodel___inheritance, 201);
- }
- fra.me.REG[2] = ATTR_metamodel___abstractmetamodel___MMLocalClass____global_properties(fra.me.REG[0]);
- /* metamodel/inheritance.nit:203 */
- REGB3 = TAG_Bool(ATTR_metamodel___abstractmetamodel___MMLocalClass____properties_by_name(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_properties_by_name", LOCATE_metamodel___inheritance, 203);
- }
- fra.me.REG[3] = ATTR_metamodel___abstractmetamodel___MMLocalClass____properties_by_name(fra.me.REG[0]);
- REGB3 = CALL_standard___collection___abstract_collection___MapRead___has_key(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]);
- if (UNTAG_Bool(REGB3)) {
- /* metamodel/inheritance.nit:204 */
- REGB3 = TAG_Bool(ATTR_metamodel___abstractmetamodel___MMLocalClass____properties_by_name(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_properties_by_name", LOCATE_metamodel___inheritance, 204);
- }
- fra.me.REG[3] = ATTR_metamodel___abstractmetamodel___MMLocalClass____properties_by_name(fra.me.REG[0]);
- fra.me.REG[3] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]);
- } else {
- /* metamodel/inheritance.nit:206 */
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___init();
- fra.me.REG[3] = fra.me.REG[4];
- /* metamodel/inheritance.nit:207 */
- REGB3 = TAG_Bool(ATTR_metamodel___abstractmetamodel___MMLocalClass____properties_by_name(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_properties_by_name", LOCATE_metamodel___inheritance, 207);
- }
- fra.me.REG[4] = ATTR_metamodel___abstractmetamodel___MMLocalClass____properties_by_name(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[1], fra.me.REG[3]);
- }
- /* metamodel/inheritance.nit:209 */
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalClass___che(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_metamodel___partial_order___PartialOrderElement___direct_greaters(fra.me.REG[4])(fra.me.REG[4]);
- /* ../lib/standard/collection/array.nit:270 */
- REGB3 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:271 */
- 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, 271);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4]);
- /* ../lib/standard/collection/array.nit:272 */
- fra.me.REG[5] = ATTR_standard___collection___array___Array____items(fra.me.REG[4]);
- /* ../lib/standard/collection/array.nit:273 */
- while(1) {
- /* ../lib/standard/collection/array.nit:24 */
- 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, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4]);
- REGB1 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3), VTID_standard___kernel___Comparable___OTHER(REGB3))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB3)<UNTAG_Int(REGB2));
- /* ../lib/standard/collection/array.nit:273 */
- if (UNTAG_Bool(REGB2)) {
- /* ../lib/standard/collection/array.nit:274 */
- REGB2 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 274);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[6] = ((Nit_NativeArray)fra.me.REG[5])->val[UNTAG_Int(REGB3)];
- /* metamodel/inheritance.nit:210 */
- REGB2 = CALL_metamodel___abstractmetamodel___MMLocalClass___has_global_property_by_name(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[1]);
- if (UNTAG_Bool(REGB2)) {
- /* metamodel/inheritance.nit:211 */
- fra.me.REG[6] = CALL_metamodel___abstractmetamodel___MMLocalClass___get_property_by_name(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[1]);
- /* metamodel/inheritance.nit:212 */
- REGB2 = CALL_standard___collection___abstract_collection___Collection___has(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]);
- REGB2 = TAG_Bool(!UNTAG_Bool(REGB2));
- if (UNTAG_Bool(REGB2)) {
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]);
- }
- /* metamodel/inheritance.nit:213 */
- REGB2 = CALL_metamodel___abstractmetamodel___MMGlobalProperty___is_init(fra.me.REG[6])(fra.me.REG[6]);
- if (UNTAG_Bool(REGB2)) {
- fra.me.REG[7] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___intro(fra.me.REG[6])(fra.me.REG[6]);
- fra.me.REG[7] = CALL_metamodel___abstractmetamodel___MMLocalProperty___local_class(fra.me.REG[7])(fra.me.REG[7]);
- fra.me.REG[7] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[7])(fra.me.REG[7]);
- fra.me.REG[8] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[0])(fra.me.REG[0]);
- REGB2 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[7],fra.me.REG[8]));
- if (UNTAG_Bool(REGB2)) {
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- REGB2 = REGB1;
- }
- REGB2 = TAG_Bool(!UNTAG_Bool(REGB2));
- } else {
- REGB1 = TAG_Bool(0);
- REGB2 = REGB1;
- }
- if (UNTAG_Bool(REGB2)) {
- goto label2;
- }
- /* metamodel/inheritance.nit:214 */
- fra.me.REG[8] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___intro(fra.me.REG[6])(fra.me.REG[6]);
- fra.me.REG[8] = CALL_metamodel___abstractmetamodel___MMLocalProperty___name(fra.me.REG[8])(fra.me.REG[8]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]);
- fra.me.REG[8] = CALL_standard___collection___abstract_collection___Collection___first(fra.me.REG[8])(fra.me.REG[8]);
- REGB2 = TAG_Char('@');
- REGB1 = TAG_Bool(IS_EQUAL_ON(REGB2,fra.me.REG[8]));
- if (UNTAG_Bool(REGB1)) {
- } else {
- REGB4 = TAG_Bool(fra.me.REG[8]==NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- REGB4 = TAG_Bool(0);
- REGB1 = REGB4;
- } else {
- /* ../lib/standard/kernel.nit:434 */
- REGB2 = TAG_Bool((fra.me.REG[8])==(REGB2));
- /* metamodel/inheritance.nit:214 */
- REGB1 = REGB2;
- }
- }
- if (UNTAG_Bool(REGB1)) {
- goto label2;
- }
- /* metamodel/inheritance.nit:215 */
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_metamodel___inheritance, 215);
- }
- REGB1 = CALL_standard___collection___abstract_collection___Collection___has(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]);
- if (UNTAG_Bool(REGB1)) {
- goto label2;
- }
- /* metamodel/inheritance.nit:216 */
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_metamodel___inheritance, 216);
- }
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]);
- }
- label2: while(0);
- /* ../lib/standard/collection/array.nit:275 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB3)+UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:275 */
- REGB3 = REGB1;
- } else {
- /* ../lib/standard/collection/array.nit:273 */
- goto label3;
- }
- }
- label3: while(0);
- /* metamodel/inheritance.nit:219 */
- REGB3 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- nit_abort("Reciever is null", NULL, LOCATE_metamodel___inheritance, 219);
- }
- /* ../lib/standard/collection/array.nit:24 */
- REGB3 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB3 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3]);
- /* metamodel/inheritance.nit:219 */
- REGB1 = TAG_Int(1);
- REGB2 = TAG_Bool(IS_EQUAL_OO(REGB3,REGB1));
- if (UNTAG_Bool(REGB2)) {
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB1 = TAG_Bool((REGB3)==(REGB1));
- /* metamodel/inheritance.nit:219 */
- REGB2 = REGB1;
- }
- REGB0 = REGB2;
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-static const char LOCATE_metamodel___inheritance___MMLocalClass___make_visible_an_inherited_global_property[] = "inheritance::MMLocalClass::make_visible_an_inherited_global_property";
-void metamodel___inheritance___MMLocalClass___make_visible_an_inherited_global_property(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 222;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass___make_visible_an_inherited_global_property;
- 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;
- /* metamodel/inheritance.nit:225 */
- REGB0 = TAG_Bool(ATTR_metamodel___abstractmetamodel___MMLocalClass____properties_by_name(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_properties_by_name", LOCATE_metamodel___inheritance, 225);
- }
- fra.me.REG[0] = ATTR_metamodel___abstractmetamodel___MMLocalClass____properties_by_name(fra.me.REG[0]);
- /* metamodel/inheritance.nit:226 */
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___intro(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalProperty___name(fra.me.REG[2])(fra.me.REG[2]);
- /* metamodel/inheritance.nit:228 */
- REGB0 = CALL_standard___collection___abstract_collection___MapRead___has_key(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
- if (UNTAG_Bool(REGB0)) {
- /* metamodel/inheritance.nit:229 */
- fra.me.REG[3] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
- } else {
- /* metamodel/inheritance.nit:231 */
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___init();
- fra.me.REG[3] = fra.me.REG[4];
- /* metamodel/inheritance.nit:232 */
- CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2], fra.me.REG[3]);
- }
- /* metamodel/inheritance.nit:234 */
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]);
- stack_frame_head = fra.me.prev;
- return;
-}
-static const char LOCATE_metamodel___inheritance___MMLocalClass___add_direct_parent[] = "inheritance::MMLocalClass::add_direct_parent";
-void metamodel___inheritance___MMLocalClass___add_direct_parent(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 237;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass___add_direct_parent;
- 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;
- /* metamodel/inheritance.nit:240 */
- REGB0 = TAG_Bool(ATTR_metamodel___inheritance___MMLocalClass____direct_parents(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_direct_parents", LOCATE_metamodel___inheritance, 240);
- }
- fra.me.REG[0] = ATTR_metamodel___inheritance___MMLocalClass____direct_parents(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- stack_frame_head = fra.me.prev;
- return;
-}
-static const char LOCATE_metamodel___inheritance___MMLocalClass___computed_super_classes[] = "inheritance::MMLocalClass::computed_super_classes";
-val_t metamodel___inheritance___MMLocalClass___computed_super_classes(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 243;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass___computed_super_classes;
- 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;
- /* metamodel/inheritance.nit:246 */
- fra.me.REG[1] = ATTR_metamodel___abstractmetamodel___MMLocalClass____crhe(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 {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- fra.me.REG[0] = ATTR_metamodel___abstractmetamodel___MMLocalClass____cshe(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));
- } else {
- REGB1 = TAG_Bool(0);
- REGB0 = REGB1;
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-static const char LOCATE_metamodel___inheritance___MMLocalClass___computed_ancestors[] = "inheritance::MMLocalClass::computed_ancestors";
-val_t metamodel___inheritance___MMLocalClass___computed_ancestors(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_metamodel___inheritance;
- fra.me.line = 249;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass___computed_ancestors;
- 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;
- /* metamodel/inheritance.nit:252 */
- fra.me.REG[0] = ATTR_metamodel___static_type___MMLocalClass____ancestors(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));
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-static const char LOCATE_metamodel___inheritance___MMLocalClass___ancestor_for[] = "inheritance::MMLocalClass::ancestor_for";
-val_t metamodel___inheritance___MMLocalClass___ancestor_for(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;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 255;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass___ancestor_for;
- 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;
- /* metamodel/inheritance.nit:259 */
- fra.me.REG[2] = CALL_metamodel___static_type___MMLocalClass___ancestors(fra.me.REG[0])(fra.me.REG[0]);
- 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_metamodel___inheritance, 259);
- }
- /* metamodel/inheritance.nit:261 */
- fra.me.REG[2] = ATTR_metamodel___static_type___MMLocalClass____ancestors(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_metamodel___inheritance, 261);
- }
- 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)) {
- /* metamodel/inheritance.nit:262 */
- fra.me.REG[2] = ATTR_metamodel___static_type___MMLocalClass____ancestors(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_metamodel___inheritance, 262);
- }
- 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;
- }
- /* metamodel/inheritance.nit:264 */
- fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalClass___mmmodule(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalClass___for_module(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- /* metamodel/inheritance.nit:265 */
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalClass___cshe(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_metamodel___partial_order___PartialOrderElement_____leq(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_metamodel___inheritance, 265);
- }
- /* metamodel/inheritance.nit:267 */
- fra.me.REG[4] = ATTR_metamodel___static_type___MMLocalClass____ancestors(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_metamodel___inheritance, 267);
- }
- REGB0 = CALL_standard___collection___abstract_collection___MapRead___has_key(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- if (UNTAG_Bool(REGB0)) {
- /* metamodel/inheritance.nit:268 */
- fra.me.REG[4] = ATTR_metamodel___static_type___MMLocalClass____ancestors(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_metamodel___inheritance, 268);
- }
- fra.me.REG[3] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- } else {
- /* metamodel/inheritance.nit:269 */
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[5] = ATTR_metamodel___abstractmetamodel___MMLocalClass____global(fra.me.REG[0]);
- REGB0 = TAG_Bool(IS_EQUAL_ON(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)) {
- /* metamodel/inheritance.nit:270 */
- fra.me.REG[5] = NEW_MMRefineAncestor_metamodel___inheritance___MMRefineAncestor___init(fra.me.REG[0], fra.me.REG[1]);
- fra.me.REG[3] = fra.me.REG[5];
- } else {
- /* metamodel/inheritance.nit:272 */
- fra.me.REG[5] = CALL_metamodel___static_type___MMLocalClass___get_type(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_metamodel___static_type___MMLocalClass___get_type(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[4] = NEW_MMSpecAncestor_metamodel___inheritance___MMSpecAncestor___init(fra.me.REG[5], fra.me.REG[4]);
- fra.me.REG[3] = fra.me.REG[4];
- }
- }
- /* metamodel/inheritance.nit:274 */
- fra.me.REG[0] = ATTR_metamodel___static_type___MMLocalClass____ancestors(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_metamodel___inheritance, 274);
- }
- CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[3]);
- /* metamodel/inheritance.nit:275 */
- 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_metamodel___inheritance___MMLocalClass_____bra[] = "inheritance::MMLocalClass::(abstractmetamodel::MMLocalClass::[])";
-val_t metamodel___inheritance___MMLocalClass_____bra(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 278;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass_____bra;
- 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;
- /* metamodel/inheritance.nit:280 */
- REGB0 = TAG_Bool(ATTR_metamodel___abstractmetamodel___MMLocalClass____local_property_by_global(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_local_property_by_global", LOCATE_metamodel___inheritance, 280);
- }
- fra.me.REG[2] = ATTR_metamodel___abstractmetamodel___MMLocalClass____local_property_by_global(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)) {
- /* metamodel/inheritance.nit:281 */
- REGB0 = TAG_Bool(ATTR_metamodel___abstractmetamodel___MMLocalClass____local_property_by_global(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_local_property_by_global", LOCATE_metamodel___inheritance, 281);
- }
- fra.me.REG[2] = ATTR_metamodel___abstractmetamodel___MMLocalClass____local_property_by_global(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 {
- /* metamodel/inheritance.nit:282 */
- REGB0 = CALL_metamodel___abstractmetamodel___MMLocalClass___has_global_property(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- if (UNTAG_Bool(REGB0)) {
- /* metamodel/inheritance.nit:283 */
- fra.me.REG[3] = CALL_metamodel___inheritance___MMLocalClass___inherit_local_property(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- fra.me.REG[2] = fra.me.REG[3];
- goto label1;
- } else {
- /* metamodel/inheritance.nit:284 */
- REGB0 = CALL_metamodel___inheritance___MMLocalClass___computed_super_classes(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* metamodel/inheritance.nit:285 */
- CALL_metamodel___inheritance___MMLocalClass___compute_super_classes(fra.me.REG[0])(fra.me.REG[0]);
- /* metamodel/inheritance.nit:286 */
- CALL_metamodel___inheritance___MMLocalClass___computed_ancestors(fra.me.REG[0])(fra.me.REG[0]);
- /* metamodel/inheritance.nit:287 */
- CALL_metamodel___inheritance___MMLocalClass___inherit_global_properties(fra.me.REG[0])(fra.me.REG[0]);
- /* metamodel/inheritance.nit:288 */
- REGB0 = CALL_metamodel___abstractmetamodel___MMLocalClass___has_global_property(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_metamodel___inheritance, 288);
- }
- /* metamodel/inheritance.nit:289 */
- fra.me.REG[1] = CALL_metamodel___inheritance___MMLocalClass___inherit_local_property(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- fra.me.REG[2] = fra.me.REG[1];
- goto label1;
- } else {
- /* metamodel/inheritance.nit:291 */
- nit_abort("Aborted", NULL, LOCATE_metamodel___inheritance, 291);
- }
- }
- }
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[2];
-}
-static const char LOCATE_metamodel___inheritance___MMLocalClass___add_default_any_class[] = "inheritance::MMLocalClass::add_default_any_class";
-void metamodel___inheritance___MMLocalClass___add_default_any_class(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 REGB3;
- 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 */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 295;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass___add_default_any_class;
- 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;
- /* metamodel/inheritance.nit:299 */
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___name(fra.me.REG[0])(fra.me.REG[0]);
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[3] = BOX_NativeString("Object");
- REGB0 = TAG_Int(6);
- 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];
- fra.me.REG[3] = CALL_symbol___String___to_symbol(fra.me.REG[3])(fra.me.REG[3]);
- 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];
- REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[2],fra.me.REG[3]));
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- REGB0 = REGB1;
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* metamodel/inheritance.nit:300 */
- REGB0 = TAG_Bool(0);
- /* metamodel/inheritance.nit:301 */
- REGB1 = CALL_standard___collection___abstract_collection___Collection___is_empty(fra.me.REG[1])(fra.me.REG[1]);
- if (UNTAG_Bool(REGB1)) {
- /* metamodel/inheritance.nit:302 */
- REGB1 = TAG_Bool(1);
- REGB0 = REGB1;
- } else {
- /* metamodel/inheritance.nit:303 */
- fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[0])(fra.me.REG[0]);
- REGB1 = CALL_metamodel___abstractmetamodel___MMGlobalClass___is_extern(fra.me.REG[3])(fra.me.REG[3]);
- if (UNTAG_Bool(REGB1)) {
- /* metamodel/inheritance.nit:304 */
- REGB1 = TAG_Bool(1);
- REGB0 = REGB1;
- /* ../lib/standard/collection/array.nit:267 */
- fra.me.REG[3] = fra.me.REG[1];
- /* ../lib/standard/collection/array.nit:270 */
- REGB1 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:271 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 271);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3]);
- /* ../lib/standard/collection/array.nit:272 */
- fra.me.REG[2] = ATTR_standard___collection___array___Array____items(fra.me.REG[3]);
- /* ../lib/standard/collection/array.nit:273 */
- while(1) {
- /* ../lib/standard/collection/array.nit:24 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3]);
- 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:242 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB1)<UNTAG_Int(REGB2));
- /* ../lib/standard/collection/array.nit:273 */
- if (UNTAG_Bool(REGB2)) {
- /* ../lib/standard/collection/array.nit:274 */
- REGB2 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 274);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[4] = ((Nit_NativeArray)fra.me.REG[2])->val[UNTAG_Int(REGB1)];
- /* metamodel/inheritance.nit:306 */
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[4])(fra.me.REG[4]);
- REGB2 = CALL_metamodel___abstractmetamodel___MMGlobalClass___is_extern(fra.me.REG[4])(fra.me.REG[4]);
- if (UNTAG_Bool(REGB2)) {
- /* metamodel/inheritance.nit:307 */
- REGB2 = TAG_Bool(0);
- REGB0 = REGB2;
- /* metamodel/inheritance.nit:308 */
- goto label3;
- }
- /* ../lib/standard/collection/array.nit:275 */
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB2 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB2));
- /* ../lib/standard/collection/array.nit:275 */
- REGB1 = REGB2;
- } else {
- /* ../lib/standard/collection/array.nit:273 */
- goto label4;
- }
- }
- label4: while(0);
- label3: while(0);
- }
- }
- /* metamodel/inheritance.nit:313 */
- if (UNTAG_Bool(REGB0)) {
- /* metamodel/inheritance.nit:315 */
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___name(fra.me.REG[0])(fra.me.REG[0]);
- if (!once_value_5) {
- if (!once_value_6) {
- fra.me.REG[3] = BOX_NativeString("Pointer");
- REGB0 = TAG_Int(7);
- 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];
- fra.me.REG[3] = CALL_symbol___String___to_symbol(fra.me.REG[3])(fra.me.REG[3]);
- 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];
- REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[2],fra.me.REG[3]));
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- REGB0 = REGB1;
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_metamodel___abstractmetamodel___MMGlobalClass___is_extern(fra.me.REG[3])(fra.me.REG[3]);
- } else {
- REGB1 = TAG_Bool(0);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* metamodel/inheritance.nit:316 */
- fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalClass___mmmodule(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_metamodel___inheritance___MMModule___type_any_extern(fra.me.REG[3])(fra.me.REG[3]);
- } else {
- /* metamodel/inheritance.nit:318 */
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___mmmodule(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_metamodel___inheritance___MMModule___type_any(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[3] = fra.me.REG[2];
- }
- /* metamodel/inheritance.nit:320 */
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_metamodel___inheritance, 320);
- }
- fra.me.REG[2] = CALL_metamodel___static_type___MMType___local_class(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[2]);
- /* metamodel/inheritance.nit:321 */
- fra.me.REG[3] = NEW_MMDefaultAncestor_metamodel___inheritance___MMDefaultAncestor___init(fra.me.REG[0], fra.me.REG[3]);
- /* metamodel/inheritance.nit:322 */
- CALL_metamodel___inheritance___MMLocalClass___add_direct_parent(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
- }
- }
- stack_frame_head = fra.me.prev;
- return;
-}
-static const char LOCATE_metamodel___inheritance___MMLocalClass___add_super_classes[] = "inheritance::MMLocalClass::add_super_classes";
-void metamodel___inheritance___MMLocalClass___add_super_classes(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 REGB3;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 327;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass___add_super_classes;
- 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;
- /* metamodel/inheritance.nit:330 */
- fra.me.REG[2] = ATTR_metamodel___abstractmetamodel___MMLocalClass____crhe(fra.me.REG[0]);
- 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_metamodel___inheritance, 330);
- }
- /* metamodel/inheritance.nit:331 */
- fra.me.REG[2] = ATTR_metamodel___abstractmetamodel___MMLocalClass____crhe(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_metamodel___inheritance, 331);
- }
- fra.me.REG[2] = CALL_metamodel___partial_order___PartialOrderElement___direct_greaters(fra.me.REG[2])(fra.me.REG[2]);
- /* ../lib/standard/collection/array.nit:270 */
- REGB0 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:271 */
- 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, 271);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]);
- /* ../lib/standard/collection/array.nit:272 */
- fra.me.REG[3] = ATTR_standard___collection___array___Array____items(fra.me.REG[2]);
- /* ../lib/standard/collection/array.nit:273 */
- while(1) {
- /* ../lib/standard/collection/array.nit:24 */
- 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, 24);
- }
- 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));
- /* ../lib/standard/collection/array.nit:273 */
- if (UNTAG_Bool(REGB1)) {
- /* ../lib/standard/collection/array.nit:274 */
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 274);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[4] = ((Nit_NativeArray)fra.me.REG[3])->val[UNTAG_Int(REGB0)];
- /* metamodel/inheritance.nit:332 */
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalClass___cshe(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[4] = CALL_metamodel___partial_order___PartialOrderElement___direct_greaters(fra.me.REG[4])(fra.me.REG[4]);
- /* ../lib/standard/collection/array.nit:270 */
- REGB1 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:271 */
- 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, 271);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4]);
- /* ../lib/standard/collection/array.nit:272 */
- fra.me.REG[5] = ATTR_standard___collection___array___Array____items(fra.me.REG[4]);
- /* ../lib/standard/collection/array.nit:273 */
- while(1) {
- /* ../lib/standard/collection/array.nit:24 */
- 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, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4]);
- 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:242 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB1)<UNTAG_Int(REGB2));
- /* ../lib/standard/collection/array.nit:273 */
- if (UNTAG_Bool(REGB2)) {
- /* ../lib/standard/collection/array.nit:274 */
- REGB2 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 274);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[6] = ((Nit_NativeArray)fra.me.REG[5])->val[UNTAG_Int(REGB1)];
- /* metamodel/inheritance.nit:333 */
- REGB2 = TAG_Bool(ATTR_metamodel___abstractmetamodel___MMLocalClass____mmmodule(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_mmmodule", LOCATE_metamodel___inheritance, 333);
- }
- fra.me.REG[7] = ATTR_metamodel___abstractmetamodel___MMLocalClass____mmmodule(fra.me.REG[0]);
- fra.me.REG[7] = CALL_metamodel___abstractmetamodel___MMLocalClass___for_module(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
- /* metamodel/inheritance.nit:334 */
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[7]);
- /* ../lib/standard/collection/array.nit:275 */
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB2 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB2));
- /* ../lib/standard/collection/array.nit:275 */
- REGB1 = REGB2;
- } else {
- /* ../lib/standard/collection/array.nit:273 */
- goto label1;
- }
- }
- label1: while(0);
- /* ../lib/standard/collection/array.nit:275 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:275 */
- REGB0 = REGB1;
- } else {
- /* ../lib/standard/collection/array.nit:273 */
- goto label2;
- }
- }
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-static const char LOCATE_metamodel___inheritance___MMLocalClass___add_explicit_classes[] = "inheritance::MMLocalClass::add_explicit_classes";
-void metamodel___inheritance___MMLocalClass___add_explicit_classes(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 REGB2;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 339;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass___add_explicit_classes;
- 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;
- /* metamodel/inheritance.nit:342 */
- REGB0 = TAG_Bool(ATTR_metamodel___inheritance___MMLocalClass____direct_parents(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_direct_parents", LOCATE_metamodel___inheritance, 342);
- }
- fra.me.REG[0] = ATTR_metamodel___inheritance___MMLocalClass____direct_parents(fra.me.REG[0]);
- /* ../lib/standard/collection/array.nit:270 */
- REGB0 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:271 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 271);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/collection/array.nit:272 */
- fra.me.REG[2] = ATTR_standard___collection___array___Array____items(fra.me.REG[0]);
- /* ../lib/standard/collection/array.nit:273 */
- while(1) {
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[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:242 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:273 */
- if (UNTAG_Bool(REGB1)) {
- /* ../lib/standard/collection/array.nit:274 */
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 274);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[3] = ((Nit_NativeArray)fra.me.REG[2])->val[UNTAG_Int(REGB0)];
- /* metamodel/inheritance.nit:343 */
- fra.me.REG[3] = CALL_metamodel___static_type___MMAncestor___local_class(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]);
- /* ../lib/standard/collection/array.nit:275 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:275 */
- REGB0 = REGB1;
- } else {
- /* ../lib/standard/collection/array.nit:273 */
- goto label1;
- }
- }
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-static const char LOCATE_metamodel___inheritance___MMLocalClass___compute_super_parents[] = "inheritance::MMLocalClass::compute_super_parents";
-void metamodel___inheritance___MMLocalClass___compute_super_parents(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_metamodel___inheritance;
- fra.me.line = 347;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass___compute_super_parents;
- 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;
- /* ../lib/standard/collection/array.nit:270 */
- REGB0 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:271 */
- 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, 271);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1]);
- /* ../lib/standard/collection/array.nit:272 */
- fra.me.REG[0] = ATTR_standard___collection___array___Array____items(fra.me.REG[1]);
- /* ../lib/standard/collection/array.nit:273 */
- while(1) {
- /* ../lib/standard/collection/array.nit:24 */
- 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, 24);
- }
- 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));
- /* ../lib/standard/collection/array.nit:273 */
- if (UNTAG_Bool(REGB1)) {
- /* ../lib/standard/collection/array.nit:274 */
- REGB1 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 274);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[2] = ((Nit_NativeArray)fra.me.REG[0])->val[UNTAG_Int(REGB0)];
- /* metamodel/inheritance.nit:351 */
- CALL_metamodel___inheritance___MMLocalClass___compute_super_classes(fra.me.REG[2])(fra.me.REG[2]);
- /* ../lib/standard/collection/array.nit:275 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:275 */
- REGB0 = REGB1;
- } else {
- /* ../lib/standard/collection/array.nit:273 */
- goto label1;
- }
- }
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-static const char LOCATE_metamodel___inheritance___MMLocalClass___build_ancestors[] = "inheritance::MMLocalClass::build_ancestors";
-val_t metamodel___inheritance___MMLocalClass___build_ancestors(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[5];} 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_metamodel___inheritance;
- fra.me.line = 355;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass___build_ancestors;
- 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;
- /* metamodel/inheritance.nit:358 */
- fra.me.REG[1] = NEW_Array_standard___collection___array___Array___init();
- /* metamodel/inheritance.nit:360 */
- fra.me.REG[2] = ATTR_metamodel___abstractmetamodel___MMLocalClass____crhe(fra.me.REG[0]);
- 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_metamodel___inheritance, 360);
- }
- /* metamodel/inheritance.nit:361 */
- fra.me.REG[2] = ATTR_metamodel___abstractmetamodel___MMLocalClass____crhe(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_metamodel___inheritance, 361);
- }
- fra.me.REG[2] = CALL_metamodel___partial_order___PartialOrderElement___direct_greaters(fra.me.REG[2])(fra.me.REG[2]);
- /* ../lib/standard/collection/array.nit:270 */
- REGB0 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:271 */
- 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, 271);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]);
- /* ../lib/standard/collection/array.nit:272 */
- fra.me.REG[3] = ATTR_standard___collection___array___Array____items(fra.me.REG[2]);
- /* ../lib/standard/collection/array.nit:273 */
- while(1) {
- /* ../lib/standard/collection/array.nit:24 */
- 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, 24);
- }
- 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));
- /* ../lib/standard/collection/array.nit:273 */
- if (UNTAG_Bool(REGB1)) {
- /* ../lib/standard/collection/array.nit:274 */
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 274);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[4] = ((Nit_NativeArray)fra.me.REG[3])->val[UNTAG_Int(REGB0)];
- /* metamodel/inheritance.nit:362 */
- REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[4],fra.me.REG[0]));
- if (UNTAG_Bool(REGB1)) {
- } else {
- REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[0]);
- REGB1 = REGB2;
- }
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_metamodel___inheritance, 362);
- }
- /* metamodel/inheritance.nit:363 */
- fra.me.REG[4] = NEW_MMRefineAncestor_metamodel___inheritance___MMRefineAncestor___init(fra.me.REG[0], fra.me.REG[4]);
- /* metamodel/inheritance.nit:364 */
- CALL_metamodel___inheritance___MMAncestor___add_in(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[1]);
- /* ../lib/standard/collection/array.nit:275 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:275 */
- REGB0 = REGB1;
- } else {
- /* ../lib/standard/collection/array.nit:273 */
- goto label1;
- }
- }
- label1: while(0);
- /* metamodel/inheritance.nit:366 */
- REGB0 = TAG_Bool(ATTR_metamodel___inheritance___MMLocalClass____direct_parents(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_direct_parents", LOCATE_metamodel___inheritance, 366);
- }
- fra.me.REG[3] = ATTR_metamodel___inheritance___MMLocalClass____direct_parents(fra.me.REG[0]);
- /* ../lib/standard/collection/array.nit:270 */
- REGB0 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:271 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 271);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3]);
- /* ../lib/standard/collection/array.nit:272 */
- fra.me.REG[2] = ATTR_standard___collection___array___Array____items(fra.me.REG[3]);
- /* ../lib/standard/collection/array.nit:273 */
- while(1) {
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3]);
- 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));
- /* ../lib/standard/collection/array.nit:273 */
- if (UNTAG_Bool(REGB1)) {
- /* ../lib/standard/collection/array.nit:274 */
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 274);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[4] = ((Nit_NativeArray)fra.me.REG[2])->val[UNTAG_Int(REGB0)];
- /* metamodel/inheritance.nit:367 */
- fra.me.REG[5] = CALL_metamodel___static_type___MMAncestor___local_class(fra.me.REG[4])(fra.me.REG[4]);
- REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[5],fra.me.REG[0]));
- if (UNTAG_Bool(REGB1)) {
- } else {
- REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[0]);
- REGB1 = REGB2;
- }
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_metamodel___inheritance, 367);
- }
- /* metamodel/inheritance.nit:368 */
- CALL_metamodel___inheritance___MMAncestor___add_in(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[1]);
- /* ../lib/standard/collection/array.nit:275 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:275 */
- REGB0 = REGB1;
- } else {
- /* ../lib/standard/collection/array.nit:273 */
- goto label2;
- }
- }
- label2: while(0);
- /* metamodel/inheritance.nit:370 */
- goto label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-static const char LOCATE_metamodel___inheritance___MMLocalClass___group_ancestors[] = "inheritance::MMLocalClass::group_ancestors";
-val_t metamodel___inheritance___MMLocalClass___group_ancestors(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 tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 373;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass___group_ancestors;
- 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;
- /* metamodel/inheritance.nit:377 */
- fra.me.REG[0] = NEW_HashMap_standard___collection___hash_collection___HashMap___init();
- /* ../lib/standard/collection/array.nit:270 */
- REGB0 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:271 */
- 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, 271);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1]);
- /* ../lib/standard/collection/array.nit:272 */
- fra.me.REG[2] = ATTR_standard___collection___array___Array____items(fra.me.REG[1]);
- /* ../lib/standard/collection/array.nit:273 */
- while(1) {
- /* ../lib/standard/collection/array.nit:24 */
- 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, 24);
- }
- 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));
- /* ../lib/standard/collection/array.nit:273 */
- if (UNTAG_Bool(REGB1)) {
- /* ../lib/standard/collection/array.nit:274 */
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 274);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[3] = ((Nit_NativeArray)fra.me.REG[2])->val[UNTAG_Int(REGB0)];
- /* metamodel/inheritance.nit:379 */
- fra.me.REG[4] = CALL_metamodel___static_type___MMAncestor___local_class(fra.me.REG[3])(fra.me.REG[3]);
- /* metamodel/inheritance.nit:383 */
- CALL_metamodel___inheritance___MMLocalClass___compute_ancestors(fra.me.REG[4])(fra.me.REG[4]);
- /* metamodel/inheritance.nit:384 */
- REGB1 = CALL_standard___collection___abstract_collection___MapRead___has_key(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]);
- if (UNTAG_Bool(REGB1)) {
- /* metamodel/inheritance.nit:385 */
- fra.me.REG[5] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]);
- } else {
- /* metamodel/inheritance.nit:387 */
- fra.me.REG[6] = NEW_HashSet_standard___collection___hash_collection___HashSet___init();
- fra.me.REG[5] = fra.me.REG[6];
- /* metamodel/inheritance.nit:388 */
- CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4], fra.me.REG[5]);
- }
- /* metamodel/inheritance.nit:390 */
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
- /* ../lib/standard/collection/array.nit:275 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:275 */
- REGB0 = REGB1;
- } else {
- /* ../lib/standard/collection/array.nit:273 */
- goto label1;
- }
- }
- label1: while(0);
- /* metamodel/inheritance.nit:392 */
- goto label2;
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_metamodel___inheritance___MMLocalClass___merge_ancestors[] = "inheritance::MMLocalClass::merge_ancestors";
-val_t metamodel___inheritance___MMLocalClass___merge_ancestors(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;
- 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_metamodel___inheritance;
- fra.me.line = 395;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass___merge_ancestors;
- 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;
- /* metamodel/inheritance.nit:398 */
- fra.me.REG[2] = NEW_HashSet_standard___collection___hash_collection___HashSet___init();
- /* metamodel/inheritance.nit:399 */
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___init();
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[1])(fra.me.REG[1], (&(fra.me)), ((fun_t)OC_metamodel___inheritance___MMLocalClass___merge_ancestors_1));
- /* ../lib/standard/collection/array.nit:24 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3])!=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[3]);
- /* metamodel/inheritance.nit:421 */
- 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));
- /* metamodel/inheritance.nit:421 */
- if (UNTAG_Bool(REGB1)) {
- /* metamodel/inheritance.nit:422 */
- fra.me.REG[2] = CALL_standard___file___Object___stderr(fra.me.REG[0])(fra.me.REG[0]);
- REGB1 = TAG_Int(5);
- fra.me.REG[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_3) {
- fra.me.REG[4] = BOX_NativeString("Fatal error: Incompatibles ancestors for ");
- REGB1 = TAG_Int(41);
- 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[1])(fra.me.REG[1], fra.me.REG[4]);
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalClass___name(fra.me.REG[0])(fra.me.REG[0]);
- 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[1])(fra.me.REG[1], fra.me.REG[4]);
- if (!once_value_4) {
- fra.me.REG[4] = BOX_NativeString(": ");
- REGB1 = TAG_Int(2);
- 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[1])(fra.me.REG[1], fra.me.REG[4]);
- if (!once_value_5) {
- fra.me.REG[4] = BOX_NativeString(", ");
- REGB1 = TAG_Int(2);
- 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];
- fra.me.REG[4] = CALL_standard___string___Collection___join(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
- if (!once_value_6) {
- fra.me.REG[4] = BOX_NativeString("\n");
- 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[1])(fra.me.REG[1], fra.me.REG[4]);
- fra.me.REG[1] = CALL_standard___string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]);
- CALL_standard___stream___OStream___write(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
- /* metamodel/inheritance.nit:423 */
- REGB1 = TAG_Int(1);
- CALL_standard___kernel___Object___exit(fra.me.REG[0])(fra.me.REG[0], REGB1);
- }
- /* metamodel/inheritance.nit:425 */
- fra.me.REG[3] = CALL_standard___collection___abstract_collection___Collection___first(fra.me.REG[3])(fra.me.REG[3]);
- goto label7;
- label7: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[3];
-}
- void OC_metamodel___inheritance___MMLocalClass___merge_ancestors_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; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- fun_t CREG[1];
- val_t tmp;
- /* metamodel/inheritance.nit:400 */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 0;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass___merge_ancestors;
- 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.closure_ctx = closctx_param;
- fra.me.closure_funs = CREG;
- fra.me.REG[0] = p0;
- CREG[0] = clos_fun0;
- /* metamodel/inheritance.nit:401 */
- fra.me.REG[1] = CALL_standard___collection___abstract_collection___Collection___iterator(closctx->REG[1])(closctx->REG[1]);
- /* metamodel/inheritance.nit:402 */
- REGB0 = TAG_Bool(1);
- /* metamodel/inheritance.nit:403 */
- while(1) {
- REGB1 = CALL_standard___collection___abstract_collection___Iterator___is_ok(fra.me.REG[1])(fra.me.REG[1]);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = REGB0;
- } else {
- REGB2 = TAG_Bool(0);
- REGB1 = REGB2;
- }
- if (UNTAG_Bool(REGB1)) {
- /* metamodel/inheritance.nit:405 */
- fra.me.REG[2] = CALL_standard___collection___abstract_collection___Iterator___item(fra.me.REG[1])(fra.me.REG[1]);
- REGB1 = TAG_Bool(IS_EQUAL_ON(fra.me.REG[0],fra.me.REG[2]));
- if (UNTAG_Bool(REGB1)) {
- } else {
- REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
- REGB1 = REGB2;
- }
- /* metamodel/inheritance.nit:406 */
- fra.me.REG[2] = CALL_standard___collection___abstract_collection___Iterator___item(fra.me.REG[1])(fra.me.REG[1]);
- REGB1 = CALL_standard___collection___abstract_collection___Collection___has(closctx->REG[2])(closctx->REG[2], fra.me.REG[2]);
- /* metamodel/inheritance.nit:407 */
- fra.me.REG[2] = CALL_standard___collection___abstract_collection___Iterator___item(fra.me.REG[1])(fra.me.REG[1]);
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_metamodel___inheritance, 407);
- }
- fra.me.REG[2] = CALL_metamodel___static_type___MMAncestor___stype(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[3] = CALL_metamodel___static_type___MMAncestor___stype(fra.me.REG[0])(fra.me.REG[0]);
- REGB1 = CALL_metamodel___static_type___MMType_____l(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- /* metamodel/inheritance.nit:409 */
- fra.me.REG[3] = CALL_standard___collection___abstract_collection___Iterator___item(fra.me.REG[1])(fra.me.REG[1]);
- REGB1 = TAG_Bool(IS_EQUAL_ON(fra.me.REG[0],fra.me.REG[3]));
- if (UNTAG_Bool(REGB1)) {
- } else {
- REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
- REGB1 = REGB2;
- }
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(1);
- } else {
- fra.me.REG[3] = CALL_standard___collection___abstract_collection___Iterator___item(fra.me.REG[1])(fra.me.REG[1]);
- REGB2 = CALL_standard___collection___abstract_collection___Collection___has(closctx->REG[2])(closctx->REG[2], fra.me.REG[3]);
- REGB1 = REGB2;
- }
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- if (UNTAG_Bool(REGB1)) {
- /* metamodel/inheritance.nit:410 */
- fra.me.REG[3] = CALL_standard___collection___abstract_collection___Iterator___item(fra.me.REG[1])(fra.me.REG[1]);
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_metamodel___inheritance, 410);
- }
- fra.me.REG[3] = CALL_metamodel___static_type___MMAncestor___stype(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[2] = CALL_metamodel___static_type___MMAncestor___stype(fra.me.REG[0])(fra.me.REG[0]);
- REGB1 = CALL_metamodel___static_type___MMType_____l(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- } else {
- /* metamodel/inheritance.nit:409 */
- REGB2 = TAG_Bool(0);
- REGB1 = REGB2;
- }
- if (UNTAG_Bool(REGB1)) {
- /* metamodel/inheritance.nit:411 */
- CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx->REG[2])(closctx->REG[2], fra.me.REG[0]);
- /* metamodel/inheritance.nit:412 */
- REGB1 = TAG_Bool(0);
- REGB0 = REGB1;
- }
- /* metamodel/inheritance.nit:414 */
- CALL_standard___collection___abstract_collection___Iterator___next(fra.me.REG[1])(fra.me.REG[1]);
- } else {
- /* metamodel/inheritance.nit:403 */
- goto label2;
- }
- }
- label2: while(0);
- /* metamodel/inheritance.nit:416 */
- REGB0 = CALL_standard___collection___abstract_collection___Collection___has(closctx->REG[2])(closctx->REG[2], fra.me.REG[0]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* metamodel/inheritance.nit:417 */
- 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_metamodel___inheritance___MMLocalClass___inherit_local_property[] = "inheritance::MMLocalClass::inherit_local_property";
-val_t metamodel___inheritance___MMLocalClass___inherit_local_property(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;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 428;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalClass___inherit_local_property;
- 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;
- /* metamodel/inheritance.nit:433 */
- REGB0 = TAG_Bool(ATTR_metamodel___abstractmetamodel___MMLocalClass____local_property_by_global(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_local_property_by_global", LOCATE_metamodel___inheritance, 433);
- }
- fra.me.REG[2] = ATTR_metamodel___abstractmetamodel___MMLocalClass____local_property_by_global(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]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_metamodel___inheritance, 433);
- }
- /* metamodel/inheritance.nit:437 */
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___property_hierarchy(fra.me.REG[1])(fra.me.REG[1]);
- /* metamodel/inheritance.nit:438 */
- fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalClass___che(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_metamodel___partial_order___PartialOrderElement___direct_greaters(fra.me.REG[3])(fra.me.REG[3]);
- /* metamodel/inheritance.nit:439 */
- REGB0 = CALL_standard___collection___abstract_collection___Collection___length(fra.me.REG[2])(fra.me.REG[2]);
- REGB1 = TAG_Int(1);
- REGB2 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB1));
- if (UNTAG_Bool(REGB2)) {
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB1 = TAG_Bool((REGB0)==(REGB1));
- /* metamodel/inheritance.nit:439 */
- REGB2 = REGB1;
- }
- if (UNTAG_Bool(REGB2)) {
- /* metamodel/inheritance.nit:441 */
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___intro(fra.me.REG[1])(fra.me.REG[1]);
- } else {
- /* ../lib/standard/collection/array.nit:24 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3]);
- /* metamodel/inheritance.nit:442 */
- REGB1 = TAG_Int(1);
- REGB0 = TAG_Bool(IS_EQUAL_OO(REGB2,REGB1));
- if (UNTAG_Bool(REGB0)) {
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB1 = TAG_Bool((REGB2)==(REGB1));
- /* metamodel/inheritance.nit:442 */
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* metamodel/inheritance.nit:444 */
- fra.me.REG[5] = CALL_standard___collection___abstract_collection___Collection___first(fra.me.REG[3])(fra.me.REG[3]);
- REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_metamodel___inheritance, 444);
- }
- fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalClass_____bra(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1]);
- fra.me.REG[4] = fra.me.REG[5];
- } else {
- /* metamodel/inheritance.nit:448 */
- fra.me.REG[5] = NEW_ArraySet_standard___collection___array___ArraySet___init();
- /* ../lib/standard/collection/array.nit:270 */
- REGB0 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:271 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 271);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3]);
- /* ../lib/standard/collection/array.nit:272 */
- fra.me.REG[6] = ATTR_standard___collection___array___Array____items(fra.me.REG[3]);
- /* ../lib/standard/collection/array.nit:273 */
- while(1) {
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3]);
- 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));
- /* ../lib/standard/collection/array.nit:273 */
- if (UNTAG_Bool(REGB1)) {
- /* ../lib/standard/collection/array.nit:274 */
- REGB1 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 274);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[6])->val[UNTAG_Int(REGB0)];
- /* metamodel/inheritance.nit:450 */
- REGB1 = CALL_metamodel___abstractmetamodel___MMLocalClass___has_global_property(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[1]);
- if (UNTAG_Bool(REGB1)) {
- fra.me.REG[7] = CALL_metamodel___abstractmetamodel___MMLocalClass_____bra(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[1]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[7]);
- }
- /* ../lib/standard/collection/array.nit:275 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:275 */
- REGB0 = REGB1;
- } else {
- /* ../lib/standard/collection/array.nit:273 */
- goto label1;
- }
- }
- label1: while(0);
- /* metamodel/inheritance.nit:453 */
- fra.me.REG[5] = CALL_metamodel___partial_order___PartialOrder___select_smallests(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[5]);
- /* ../lib/standard/collection/array.nit:24 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[5])!=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[5]);
- /* metamodel/inheritance.nit:455 */
- REGB1 = TAG_Int(1);
- REGB2 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB1));
- if (UNTAG_Bool(REGB2)) {
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB1 = TAG_Bool((REGB0)==(REGB1));
- /* metamodel/inheritance.nit:455 */
- REGB2 = REGB1;
- }
- REGB2 = TAG_Bool(!UNTAG_Bool(REGB2));
- if (UNTAG_Bool(REGB2)) {
- /* metamodel/inheritance.nit:456 */
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___mmmodule(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMModule___context(fra.me.REG[2])(fra.me.REG[2]);
- CALL_metamodel___inheritance___MMContext___handle_property_conflict(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0], fra.me.REG[5]);
- }
- /* metamodel/inheritance.nit:458 */
- fra.me.REG[5] = CALL_standard___collection___abstract_collection___Collection___first(fra.me.REG[5])(fra.me.REG[5]);
- fra.me.REG[4] = fra.me.REG[5];
- }
- }
- /* metamodel/inheritance.nit:468 */
- REGB2 = TAG_Bool(ATTR_metamodel___abstractmetamodel___MMLocalClass____local_property_by_global(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_local_property_by_global", LOCATE_metamodel___inheritance, 468);
- }
- fra.me.REG[0] = ATTR_metamodel___abstractmetamodel___MMLocalClass____local_property_by_global(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[4]);
- /* metamodel/inheritance.nit:470 */
- goto label2;
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[4];
-}
-static const char LOCATE_metamodel___inheritance___MMLocalProperty___inherit_global[] = "inheritance::MMLocalProperty::inherit_global";
-void metamodel___inheritance___MMLocalProperty___inherit_global(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 REGB2;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 475;
- fra.me.meth = LOCATE_metamodel___inheritance___MMLocalProperty___inherit_global;
- 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;
- /* metamodel/inheritance.nit:478 */
- CALL_metamodel___abstractmetamodel___MMLocalProperty___set_global(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* metamodel/inheritance.nit:479 */
- fra.me.REG[2] = NEW_Array_standard___collection___array___Array___init();
- /* metamodel/inheritance.nit:480 */
- fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___local_class(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalClass___che(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[3] = CALL_metamodel___partial_order___PartialOrderElement___direct_greaters(fra.me.REG[3])(fra.me.REG[3]);
- /* ../lib/standard/collection/array.nit:270 */
- REGB0 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:271 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 271);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3]);
- /* ../lib/standard/collection/array.nit:272 */
- fra.me.REG[4] = ATTR_standard___collection___array___Array____items(fra.me.REG[3]);
- /* ../lib/standard/collection/array.nit:273 */
- while(1) {
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3]);
- 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));
- /* ../lib/standard/collection/array.nit:273 */
- if (UNTAG_Bool(REGB1)) {
- /* ../lib/standard/collection/array.nit:274 */
- REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 274);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[5] = ((Nit_NativeArray)fra.me.REG[4])->val[UNTAG_Int(REGB0)];
- /* metamodel/inheritance.nit:481 */
- REGB1 = CALL_metamodel___abstractmetamodel___MMLocalClass___has_global_property(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1]);
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- if (UNTAG_Bool(REGB1)) {
- goto label1;
- }
- /* metamodel/inheritance.nit:482 */
- fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalClass_____bra(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[5]);
- label1: while(0);
- /* ../lib/standard/collection/array.nit:275 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:275 */
- REGB0 = REGB1;
- } else {
- /* ../lib/standard/collection/array.nit:273 */
- goto label2;
- }
- }
- label2: while(0);
- /* metamodel/inheritance.nit:484 */
- CALL_metamodel___abstractmetamodel___MMGlobalProperty___add_local_property(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[2]);
- stack_frame_head = fra.me.prev;
- return;
-}
-static const char LOCATE_metamodel___inheritance___MMAncestor___add_in[] = "inheritance::MMAncestor::add_in";
-void metamodel___inheritance___MMAncestor___add_in(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_metamodel___inheritance;
- fra.me.line = 489;
- fra.me.meth = LOCATE_metamodel___inheritance___MMAncestor___add_in;
- 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;
- /* metamodel/inheritance.nit:492 */
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- /* metamodel/inheritance.nit:493 */
- fra.me.REG[2] = CALL_metamodel___static_type___MMAncestor___stype(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[2])(fra.me.REG[2]);
- CALL_metamodel___inheritance___MMLocalClass___compute_ancestors(fra.me.REG[2])(fra.me.REG[2]);
- /* metamodel/inheritance.nit:494 */
- fra.me.REG[2] = CALL_metamodel___static_type___MMAncestor___stype(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[2] = CALL_metamodel___static_type___MMLocalClass___ancestors(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_metamodel___inheritance, 494);
- }
- fra.me.REG[2] = CALL_standard___collection___abstract_collection___MapRead___values(fra.me.REG[2])(fra.me.REG[2]);
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[2])(fra.me.REG[2], (&(fra.me)), ((fun_t)OC_metamodel___inheritance___MMAncestor___add_in_1));
- stack_frame_head = fra.me.prev;
- return;
-}
- void OC_metamodel___inheritance___MMAncestor___add_in_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; val_t MORE_REG[3];} 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_metamodel___inheritance;
- fra.me.line = 0;
- fra.me.meth = LOCATE_metamodel___inheritance___MMAncestor___add_in;
- 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.closure_ctx = closctx_param;
- fra.me.closure_funs = CREG;
- fra.me.REG[0] = p0;
- CREG[0] = clos_fun0;
- /* metamodel/inheritance.nit:495 */
- fra.me.REG[0] = CALL_metamodel___static_type___MMAncestor___stype(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[1] = CALL_metamodel___static_type___MMAncestor___stype(closctx->REG[0])(closctx->REG[0]);
- fra.me.REG[1] = CALL_metamodel___static_type___MMType___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[1] = CALL_metamodel___static_type___MMType___for_module(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* metamodel/inheritance.nit:496 */
- fra.me.REG[0] = CALL_metamodel___static_type___MMAncestor___stype(closctx->REG[0])(closctx->REG[0]);
- fra.me.REG[0] = CALL_metamodel___static_type___MMType___adapt_to(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- fra.me.REG[1] = CALL_metamodel___static_type___MMAncestor___inheriter(closctx->REG[0])(closctx->REG[0]);
- fra.me.REG[1] = CALL_metamodel___static_type___MMType___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[1] = CALL_metamodel___static_type___MMType___for_module(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* metamodel/inheritance.nit:497 */
- fra.me.REG[0] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[2] = CALL_metamodel___static_type___MMAncestor___inheriter(closctx->REG[0])(closctx->REG[0]);
- fra.me.REG[2] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[0],fra.me.REG[2]));
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
- REGB0 = REGB1;
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* metamodel/inheritance.nit:498 */
- fra.me.REG[2] = CALL_standard___collection___abstract_collection___Collection___iterator(closctx->REG[1])(closctx->REG[1]);
- /* metamodel/inheritance.nit:499 */
- REGB0 = TAG_Bool(1);
- /* metamodel/inheritance.nit:500 */
- while(1) {
- REGB1 = CALL_standard___collection___abstract_collection___Iterator___is_ok(fra.me.REG[2])(fra.me.REG[2]);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = REGB0;
- } else {
- REGB2 = TAG_Bool(0);
- REGB1 = REGB2;
- }
- if (UNTAG_Bool(REGB1)) {
- /* metamodel/inheritance.nit:501 */
- fra.me.REG[0] = CALL_standard___collection___abstract_collection___Iterator___item(fra.me.REG[2])(fra.me.REG[2]);
- REGB1 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_metamodel___inheritance, 501);
- }
- fra.me.REG[0] = CALL_metamodel___static_type___MMAncestor___inheriter(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_metamodel___static_type___MMAncestor___inheriter(closctx->REG[0])(closctx->REG[0]);
- REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[0],fra.me.REG[3]));
- if (UNTAG_Bool(REGB1)) {
- } else {
- REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
- REGB1 = REGB2;
- }
- if (UNTAG_Bool(REGB1)) {
- fra.me.REG[3] = CALL_standard___collection___abstract_collection___Iterator___item(fra.me.REG[2])(fra.me.REG[2]);
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_metamodel___inheritance, 501);
- }
- fra.me.REG[3] = CALL_metamodel___static_type___MMAncestor___stype(fra.me.REG[3])(fra.me.REG[3]);
- REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[1]));
- if (UNTAG_Bool(REGB1)) {
- } else {
- REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]);
- REGB1 = REGB2;
- }
- } else {
- REGB2 = TAG_Bool(0);
- REGB1 = REGB2;
- }
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- REGB0 = REGB1;
- /* metamodel/inheritance.nit:502 */
- CALL_standard___collection___abstract_collection___Iterator___next(fra.me.REG[2])(fra.me.REG[2]);
- } else {
- /* metamodel/inheritance.nit:500 */
- goto label2;
- }
- }
- label2: while(0);
- /* metamodel/inheritance.nit:504 */
- if (UNTAG_Bool(REGB0)) {
- /* metamodel/inheritance.nit:505 */
- fra.me.REG[2] = CALL_metamodel___static_type___MMAncestor___inheriter(closctx->REG[0])(closctx->REG[0]);
- fra.me.REG[1] = NEW_MMSpecAncestor_metamodel___inheritance___MMSpecAncestor___init(fra.me.REG[2], fra.me.REG[1]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx->REG[1])(closctx->REG[1], fra.me.REG[1]);
- }
- }
- stack_frame_head = fra.me.prev;
- return;
- }
-static const char LOCATE_metamodel___inheritance___MMImplicitLocalClass___init[] = "inheritance::MMImplicitLocalClass::init";
-void metamodel___inheritance___MMImplicitLocalClass___init(val_t p0, val_t p1, val_t p2, int* init_table){
- int itpos0 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_metamodel___inheritance___MMImplicitLocalClass].i;
- struct {struct stack_frame_t me; val_t MORE_REG[5];} fra;
- val_t REGB0;
- val_t tmp;
- if (init_table[itpos0]) return;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 517;
- fra.me.meth = LOCATE_metamodel___inheritance___MMImplicitLocalClass___init;
- 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;
- fra.me.REG[2] = p2;
- /* metamodel/inheritance.nit:517 */
- fra.me.REG[3] = fra.me.REG[0];
- /* metamodel/inheritance.nit:519 */
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMGlobalClass___intro(fra.me.REG[2])(fra.me.REG[2]);
- /* metamodel/inheritance.nit:520 */
- fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalClass___name(fra.me.REG[4])(fra.me.REG[4]);
- REGB0 = CALL_metamodel___abstractmetamodel___MMLocalClass___arity(fra.me.REG[4])(fra.me.REG[4]);
- CALL_metamodel___abstractmetamodel___MMLocalClass___init(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[5], REGB0, init_table);
- /* metamodel/inheritance.nit:521 */
- CALL_metamodel___abstractmetamodel___MMLocalClass___set_global(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- stack_frame_head = fra.me.prev;
- init_table[itpos0] = 1;
- return;
-}
-static const char LOCATE_metamodel___inheritance___MMRefineAncestor___local_class[] = "inheritance::MMRefineAncestor::(static_type::MMAncestor::local_class)";
-val_t metamodel___inheritance___MMRefineAncestor___local_class(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_metamodel___inheritance;
- fra.me.line = 527;
- fra.me.meth = LOCATE_metamodel___inheritance___MMRefineAncestor___local_class;
- 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;
- /* metamodel/inheritance.nit:527 */
- REGB0 = TAG_Bool(ATTR_metamodel___inheritance___MMRefineAncestor____local_class(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_local_class", LOCATE_metamodel___inheritance, 527);
- }
- fra.me.REG[0] = ATTR_metamodel___inheritance___MMRefineAncestor____local_class(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_metamodel___inheritance___MMRefineAncestor___init[] = "inheritance::MMRefineAncestor::init";
-void metamodel___inheritance___MMRefineAncestor___init(val_t p0, val_t p1, val_t p2, int* init_table){
- int itpos1 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_metamodel___inheritance___MMRefineAncestor].i;
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t tmp;
- if (init_table[itpos1]) return;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 529;
- fra.me.meth = LOCATE_metamodel___inheritance___MMRefineAncestor___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;
- /* metamodel/inheritance.nit:529 */
- fra.me.REG[3] = fra.me.REG[0];
- CALL_metamodel___static_type___MMAncestor___init(fra.me.REG[0])(fra.me.REG[0], init_table);
- /* metamodel/inheritance.nit:531 */
- ATTR_metamodel___inheritance___MMRefineAncestor____local_class(fra.me.REG[3]) = fra.me.REG[2];
- /* metamodel/inheritance.nit:532 */
- fra.me.REG[1] = CALL_metamodel___static_type___MMLocalClass___get_type(fra.me.REG[1])(fra.me.REG[1]);
- CALL_metamodel___static_type___MMAncestor___inheriter__eq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]);
- /* metamodel/inheritance.nit:533 */
- REGB0 = TAG_Bool(ATTR_metamodel___inheritance___MMRefineAncestor____local_class(fra.me.REG[3])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_local_class", LOCATE_metamodel___inheritance, 533);
- }
- fra.me.REG[1] = ATTR_metamodel___inheritance___MMRefineAncestor____local_class(fra.me.REG[3]);
- fra.me.REG[1] = CALL_metamodel___static_type___MMLocalClass___get_type(fra.me.REG[1])(fra.me.REG[1]);
- CALL_metamodel___static_type___MMAncestor___stype__eq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]);
- stack_frame_head = fra.me.prev;
- init_table[itpos1] = 1;
- return;
-}
-static const char LOCATE_metamodel___inheritance___MMSpecAncestor___local_class[] = "inheritance::MMSpecAncestor::(static_type::MMAncestor::local_class)";
-val_t metamodel___inheritance___MMSpecAncestor___local_class(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_metamodel___inheritance;
- fra.me.line = 540;
- fra.me.meth = LOCATE_metamodel___inheritance___MMSpecAncestor___local_class;
- 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;
- /* metamodel/inheritance.nit:540 */
- fra.me.REG[0] = CALL_metamodel___static_type___MMAncestor___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]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_metamodel___inheritance___MMSpecAncestor___init[] = "inheritance::MMSpecAncestor::init";
-void metamodel___inheritance___MMSpecAncestor___init(val_t p0, val_t p1, val_t p2, int* init_table){
- int itpos2 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_metamodel___inheritance___MMSpecAncestor].i;
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t tmp;
- if (init_table[itpos2]) return;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 542;
- fra.me.meth = LOCATE_metamodel___inheritance___MMSpecAncestor___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;
- /* metamodel/inheritance.nit:542 */
- fra.me.REG[3] = fra.me.REG[0];
- CALL_metamodel___static_type___MMAncestor___init(fra.me.REG[0])(fra.me.REG[0], init_table);
- /* metamodel/inheritance.nit:544 */
- ATTR_metamodel___static_type___MMAncestor____inheriter(fra.me.REG[3]) = fra.me.REG[1];
- /* metamodel/inheritance.nit:545 */
- ATTR_metamodel___static_type___MMAncestor____stype(fra.me.REG[3]) = fra.me.REG[2];
- stack_frame_head = fra.me.prev;
- init_table[itpos2] = 1;
- return;
-}
-static const char LOCATE_metamodel___inheritance___MMDefaultAncestor___local_class[] = "inheritance::MMDefaultAncestor::(static_type::MMAncestor::local_class)";
-val_t metamodel___inheritance___MMDefaultAncestor___local_class(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_metamodel___inheritance;
- fra.me.line = 551;
- fra.me.meth = LOCATE_metamodel___inheritance___MMDefaultAncestor___local_class;
- 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;
- /* metamodel/inheritance.nit:551 */
- fra.me.REG[0] = CALL_metamodel___static_type___MMAncestor___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]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_metamodel___inheritance___MMDefaultAncestor___init[] = "inheritance::MMDefaultAncestor::init";
-void metamodel___inheritance___MMDefaultAncestor___init(val_t p0, val_t p1, val_t p2, int* init_table){
- int itpos3 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_metamodel___inheritance___MMDefaultAncestor].i;
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t tmp;
- if (init_table[itpos3]) return;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_metamodel___inheritance;
- fra.me.line = 553;
- fra.me.meth = LOCATE_metamodel___inheritance___MMDefaultAncestor___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;
- /* metamodel/inheritance.nit:553 */
- fra.me.REG[3] = fra.me.REG[0];
- CALL_metamodel___static_type___MMAncestor___init(fra.me.REG[0])(fra.me.REG[0], init_table);
- /* metamodel/inheritance.nit:555 */
- fra.me.REG[1] = CALL_metamodel___static_type___MMLocalClass___get_type(fra.me.REG[1])(fra.me.REG[1]);
- CALL_metamodel___static_type___MMAncestor___inheriter__eq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]);
- /* metamodel/inheritance.nit:556 */
- CALL_metamodel___static_type___MMAncestor___stype__eq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- stack_frame_head = fra.me.prev;
- init_table[itpos3] = 1;
- return;
-}
nitlanguage / nit.git / blobdiff