c_src/syntax___extern_type_inheritance._sep.c

   1 /* This C file is generated by NIT to compile module syntax___extern_type_inheritance. */
   2 #include "syntax___extern_type_inheritance._sep.h"
   3 static const char LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_c_type[] = "extern_type_inheritance::MMLocalClass::(primitive_info::MMLocalClass::extern_c_type)";
   4 val_t syntax___extern_type_inheritance___MMLocalClass___extern_c_type(val_t p0){
   5   struct {struct stack_frame_t me;} fra;
   6   val_t REGB0;
   7   val_t tmp;
   8   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
   9   fra.me.file = LOCATE_syntax___extern_type_inheritance;
  10   fra.me.line = 24;
  11   fra.me.meth = LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_c_type;
  12   fra.me.has_broke = 0;
  13   fra.me.REG_size = 1;
  14   fra.me.nitni_local_ref_head = NULL;
  15   fra.me.REG[0] = NIT_NULL;
  16   fra.me.REG[0] = p0;
  17   /* syntax/extern_type_inheritance.nit:26 */
  18   fra.me.REG[0] = CALL_syntax___extern_inline___MMLocalClass___extern_type(fra.me.REG[0])(fra.me.REG[0]);
  19   REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
  20   if (UNTAG_Bool(REGB0)) {
  21     nit_abort("Reciever is null", NULL, LOCATE_syntax___extern_type_inheritance, 26);
  22   }
  23   fra.me.REG[0] = CALL_syntax___extern_inline___ExternCode___code(fra.me.REG[0])(fra.me.REG[0]);
  24   goto label1;
  25   label1: while(0);
  26   stack_frame_head = fra.me.prev;
  27   return fra.me.REG[0];
  28 }
  29 static const char LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin[] = "extern_type_inheritance::MMLocalClass::extern_type_origin";
  30 val_t syntax___extern_type_inheritance___MMLocalClass___extern_type_origin(val_t p0){
  31   struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
  32   val_t REGB0;
  33   val_t tmp;
  34   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
  35   fra.me.file = LOCATE_syntax___extern_type_inheritance;
  36   fra.me.line = 29;
  37   fra.me.meth = LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin;
  38   fra.me.has_broke = 0;
  39   fra.me.REG_size = 2;
  40   fra.me.nitni_local_ref_head = NULL;
  41   fra.me.REG[0] = NIT_NULL;
  42   fra.me.REG[1] = NIT_NULL;
  43   fra.me.REG[0] = p0;
  44   /* syntax/extern_type_inheritance.nit:29 */
  45   fra.me.REG[1] = fra.me.REG[0];
  46   /* syntax/extern_type_inheritance.nit:31 */
  47   CALL_syntax___extern_inline___MMLocalClass___extern_type(fra.me.REG[1])(fra.me.REG[1]);
  48   /* syntax/extern_type_inheritance.nit:32 */
  49   fra.me.REG[1] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache(fra.me.REG[1])(fra.me.REG[1]);
  50   REGB0 = TAG_Bool(fra.me.REG[1]!=NIT_NULL);
  51   if (UNTAG_Bool(REGB0)) {
  52   } else {
  53     nit_abort("Cast failed", NULL, LOCATE_syntax___extern_type_inheritance, 32);
  54   }
  55   goto label1;
  56   label1: while(0);
  57   stack_frame_head = fra.me.prev;
  58   return fra.me.REG[1];
  59 }
  60 static const char LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache[] = "extern_type_inheritance::MMLocalClass::extern_type_origin_cache";
  61 val_t syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache(val_t p0){
  62   struct {struct stack_frame_t me;} fra;
  63   val_t tmp;
  64   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
  65   fra.me.file = LOCATE_syntax___extern_type_inheritance;
  66   fra.me.line = 35;
  67   fra.me.meth = LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache;
  68   fra.me.has_broke = 0;
  69   fra.me.REG_size = 1;
  70   fra.me.nitni_local_ref_head = NULL;
  71   fra.me.REG[0] = NIT_NULL;
  72   fra.me.REG[0] = p0;
  73   /* syntax/extern_type_inheritance.nit:35 */
  74   fra.me.REG[0] = ATTR_syntax___extern_type_inheritance___MMLocalClass_____atextern_type_origin_cache(fra.me.REG[0]);
  75   stack_frame_head = fra.me.prev;
  76   return fra.me.REG[0];
  77 }
  78 static const char LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache__eq[] = "extern_type_inheritance::MMLocalClass::extern_type_origin_cache=";
  79 void syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache__eq(val_t p0, val_t p1){
  80   struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
  81   val_t tmp;
  82   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
  83   fra.me.file = LOCATE_syntax___extern_type_inheritance;
  84   fra.me.line = 35;
  85   fra.me.meth = LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache__eq;
  86   fra.me.has_broke = 0;
  87   fra.me.REG_size = 2;
  88   fra.me.nitni_local_ref_head = NULL;
  89   fra.me.REG[0] = NIT_NULL;
  90   fra.me.REG[1] = NIT_NULL;
  91   fra.me.REG[0] = p0;
  92   fra.me.REG[1] = p1;
  93   /* syntax/extern_type_inheritance.nit:35 */
  94   ATTR_syntax___extern_type_inheritance___MMLocalClass_____atextern_type_origin_cache(fra.me.REG[0]) = fra.me.REG[1];
  95   stack_frame_head = fra.me.prev;
  96   return;
  97 }
  98 static const char LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache[] = "extern_type_inheritance::MMLocalClass::extern_type_cache";
  99 val_t syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(val_t p0){
 100   struct {struct stack_frame_t me;} fra;
 101   val_t tmp;
 102   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 103   fra.me.file = LOCATE_syntax___extern_type_inheritance;
 104   fra.me.line = 38;
 105   fra.me.meth = LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache;
 106   fra.me.has_broke = 0;
 107   fra.me.REG_size = 1;
 108   fra.me.nitni_local_ref_head = NULL;
 109   fra.me.REG[0] = NIT_NULL;
 110   fra.me.REG[0] = p0;
 111   /* syntax/extern_type_inheritance.nit:38 */
 112   fra.me.REG[0] = ATTR_syntax___extern_type_inheritance___MMLocalClass_____atextern_type_cache(fra.me.REG[0]);
 113   stack_frame_head = fra.me.prev;
 114   return fra.me.REG[0];
 115 }
 116 static const char LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache__eq[] = "extern_type_inheritance::MMLocalClass::extern_type_cache=";
 117 void syntax___extern_type_inheritance___MMLocalClass___extern_type_cache__eq(val_t p0, val_t p1){
 118   struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
 119   val_t tmp;
 120   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 121   fra.me.file = LOCATE_syntax___extern_type_inheritance;
 122   fra.me.line = 38;
 123   fra.me.meth = LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache__eq;
 124   fra.me.has_broke = 0;
 125   fra.me.REG_size = 2;
 126   fra.me.nitni_local_ref_head = NULL;
 127   fra.me.REG[0] = NIT_NULL;
 128   fra.me.REG[1] = NIT_NULL;
 129   fra.me.REG[0] = p0;
 130   fra.me.REG[1] = p1;
 131   /* syntax/extern_type_inheritance.nit:38 */
 132   ATTR_syntax___extern_type_inheritance___MMLocalClass_____atextern_type_cache(fra.me.REG[0]) = fra.me.REG[1];
 133   stack_frame_head = fra.me.prev;
 134   return;
 135 }
 136 static const char LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type[] = "extern_type_inheritance::MMLocalClass::(extern_inline::MMLocalClass::extern_type)";
 137 val_t syntax___extern_type_inheritance___MMLocalClass___extern_type(val_t p0){
 138   struct {struct stack_frame_t me; val_t MORE_REG[6];} fra;
 139   val_t REGB0;
 140   val_t REGB1;
 141   val_t REGB2;
 142   val_t tmp;
 143   static val_t once_value_2; /* Once value */
 144     static val_t once_value_3; /* Once value */
 145     static val_t once_value_4; /* Once value */
 146     static val_t once_value_5; /* Once value */
 147     static val_t once_value_7; /* Once value */
 148     static val_t once_value_8; /* Once value */
 149     static val_t once_value_9; /* Once value */
 150   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 151   fra.me.file = LOCATE_syntax___extern_type_inheritance;
 152   fra.me.line = 41;
 153   fra.me.meth = LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type;
 154   fra.me.has_broke = 0;
 155   fra.me.REG_size = 7;
 156   fra.me.nitni_local_ref_head = NULL;
 157   fra.me.REG[0] = NIT_NULL;
 158   fra.me.REG[1] = NIT_NULL;
 159   fra.me.REG[2] = NIT_NULL;
 160   fra.me.REG[3] = NIT_NULL;
 161   fra.me.REG[4] = NIT_NULL;
 162   fra.me.REG[5] = NIT_NULL;
 163   fra.me.REG[6] = NIT_NULL;
 164   fra.me.REG[0] = p0;
 165   /* syntax/extern_type_inheritance.nit:43 */
 166   fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[0])(fra.me.REG[0]);
 167   REGB0 = CALL_metamodel___abstractmetamodel___MMGlobalClass___is_extern(fra.me.REG[1])(fra.me.REG[1]);
 168   if (UNTAG_Bool(REGB0)) {
 169   } else {
 170     nit_abort("Assert failed", NULL, LOCATE_syntax___extern_type_inheritance, 43);
 171   }
 172   /* syntax/extern_type_inheritance.nit:45 */
 173   fra.me.REG[1] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(fra.me.REG[0])(fra.me.REG[0]);
 174   REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
 175   if (UNTAG_Bool(REGB0)) {
 176   } else {
 177     REGB1 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
 178     if (UNTAG_Bool(REGB1)) {
 179       REGB1 = TAG_Bool(0);
 180       REGB0 = REGB1;
 181     } else {
 182       REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], NIT_NULL);
 183       REGB0 = REGB1;
 184     }
 185   }
 186   REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
 187   if (UNTAG_Bool(REGB0)) {
 188     fra.me.REG[1] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(fra.me.REG[0])(fra.me.REG[0]);
 189     goto label1;
 190   }
 191   /* syntax/extern_type_inheritance.nit:47 */
 192   fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[0])(fra.me.REG[0]);
 193   fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMGlobalClass___intro(fra.me.REG[2])(fra.me.REG[2]);
 194   REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[2],fra.me.REG[0]));
 195   if (UNTAG_Bool(REGB0)) {
 196   } else {
 197     REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]);
 198     REGB0 = REGB1;
 199   }
 200   REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
 201   if (UNTAG_Bool(REGB0)) {
 202     /* syntax/extern_type_inheritance.nit:48 */
 203     fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[0])(fra.me.REG[0]);
 204     fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMGlobalClass___intro(fra.me.REG[2])(fra.me.REG[2]);
 205     fra.me.REG[2] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(fra.me.REG[2])(fra.me.REG[2]);
 206     REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
 207     if (UNTAG_Bool(REGB0)) {
 208     } else {
 209       REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
 210       if (UNTAG_Bool(REGB1)) {
 211         REGB1 = TAG_Bool(0);
 212         REGB0 = REGB1;
 213       } else {
 214         REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
 215         REGB0 = REGB1;
 216       }
 217     }
 218     REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
 219     if (UNTAG_Bool(REGB0)) {
 220       /* syntax/extern_type_inheritance.nit:49 */
 221       fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[0])(fra.me.REG[0]);
 222       fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMGlobalClass___intro(fra.me.REG[2])(fra.me.REG[2]);
 223       fra.me.REG[2] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(fra.me.REG[2])(fra.me.REG[2]);
 224       CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache__eq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
 225       /* syntax/extern_type_inheritance.nit:50 */
 226       CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache__eq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[0]);
 227       /* syntax/extern_type_inheritance.nit:51 */
 228       fra.me.REG[2] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(fra.me.REG[0])(fra.me.REG[0]);
 229       fra.me.REG[1] = fra.me.REG[2];
 230       goto label1;
 231     }
 232   }
 233   /* syntax/extern_type_inheritance.nit:55 */
 234   fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___name(fra.me.REG[0])(fra.me.REG[0]);
 235   if (!once_value_2) {
 236     if (!once_value_3) {
 237       fra.me.REG[3] = BOX_NativeString("Pointer");
 238       REGB0 = TAG_Int(7);
 239       fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
 240       once_value_3 = fra.me.REG[3];
 241       register_static_object(&once_value_3);
 242     } else fra.me.REG[3] = once_value_3;
 243     fra.me.REG[3] = fra.me.REG[3];
 244     fra.me.REG[3] = CALL_symbol___String___to_symbol(fra.me.REG[3])(fra.me.REG[3]);
 245     once_value_2 = fra.me.REG[3];
 246     register_static_object(&once_value_2);
 247   } else fra.me.REG[3] = once_value_2;
 248   fra.me.REG[3] = fra.me.REG[3];
 249   REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[2],fra.me.REG[3]));
 250   if (UNTAG_Bool(REGB0)) {
 251   } else {
 252     REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
 253     REGB0 = REGB1;
 254   }
 255   if (UNTAG_Bool(REGB0)) {
 256     /* syntax/extern_type_inheritance.nit:56 */
 257     if (!once_value_4) {
 258       fra.me.REG[3] = BOX_NativeString("C");
 259       REGB0 = TAG_Int(1);
 260       fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
 261       once_value_4 = fra.me.REG[3];
 262       register_static_object(&once_value_4);
 263     } else fra.me.REG[3] = once_value_4;
 264     fra.me.REG[3] = fra.me.REG[3];
 265     if (!once_value_5) {
 266       fra.me.REG[2] = BOX_NativeString("void*");
 267       REGB0 = TAG_Int(5);
 268       fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
 269       once_value_5 = fra.me.REG[2];
 270       register_static_object(&once_value_5);
 271     } else fra.me.REG[2] = once_value_5;
 272     fra.me.REG[2] = fra.me.REG[2];
 273     fra.me.REG[2] = NEW_ExternCode_syntax___extern_inline___ExternCode___init(fra.me.REG[3], fra.me.REG[2], NIT_NULL);
 274     CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache__eq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
 275     /* syntax/extern_type_inheritance.nit:57 */
 276     CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache__eq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[0]);
 277     /* syntax/extern_type_inheritance.nit:58 */
 278     fra.me.REG[2] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(fra.me.REG[0])(fra.me.REG[0]);
 279     fra.me.REG[1] = fra.me.REG[2];
 280     goto label1;
 281   }
 282   /* syntax/extern_type_inheritance.nit:62 */
 283   fra.me.REG[2] = NEW_HashSet_standard___collection___hash_collection___HashSet___init();
 284   /* syntax/extern_type_inheritance.nit:63 */
 285   fra.me.REG[3] = fra.me.REG[0];
 286   /* syntax/extern_type_inheritance.nit:64 */
 287   fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalClass___cshe(fra.me.REG[3])(fra.me.REG[3]);
 288   fra.me.REG[3] = CALL_metamodel___partial_order___PartialOrderElement___direct_greaters(fra.me.REG[3])(fra.me.REG[3]);
 289   /* ../lib/standard/collection/array.nit:269 */
 290   REGB0 = TAG_Int(0);
 291   /* ../lib/standard/collection/array.nit:270 */
 292   REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3])!=NIT_NULL);
 293   if (UNTAG_Bool(REGB1)) {
 294   } else {
 295     nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 270);
 296   }
 297   REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3]);
 298   /* ../lib/standard/collection/array.nit:271 */
 299   fra.me.REG[4] = ATTR_standard___collection___array___Array____items(fra.me.REG[3]);
 300   /* ../lib/standard/collection/array.nit:272 */
 301   while(1) {
 302     /* ../lib/standard/collection/array.nit:24 */
 303     REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3])!=NIT_NULL);
 304     if (UNTAG_Bool(REGB1)) {
 305     } else {
 306       nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
 307     }
 308     REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3]);
 309     REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
 310     if (UNTAG_Bool(REGB2)) {
 311     } else {
 312       nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
 313     }
 314     /* ../lib/standard/kernel.nit:235 */
 315     REGB1 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
 316     /* ../lib/standard/collection/array.nit:272 */
 317     if (UNTAG_Bool(REGB1)) {
 318       /* ../lib/standard/collection/array.nit:273 */
 319       REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
 320       if (UNTAG_Bool(REGB1)) {
 321         nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 273);
 322       }
 323       /* ../lib/standard/collection/array.nit:724 */
 324       fra.me.REG[5] = ((Nit_NativeArray)fra.me.REG[4])->val[UNTAG_Int(REGB0)];
 325       /* syntax/extern_type_inheritance.nit:65 */
 326       fra.me.REG[6] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[5])(fra.me.REG[5]);
 327       REGB1 = CALL_metamodel___abstractmetamodel___MMGlobalClass___is_extern(fra.me.REG[6])(fra.me.REG[6]);
 328       if (UNTAG_Bool(REGB1)) {
 329         /* syntax/extern_type_inheritance.nit:66 */
 330         fra.me.REG[5] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin(fra.me.REG[5])(fra.me.REG[5]);
 331         CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[5]);
 332       }
 333       /* ../lib/standard/collection/array.nit:274 */
 334       REGB1 = TAG_Int(1);
 335       /* ../lib/standard/kernel.nit:238 */
 336       REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
 337       /* ../lib/standard/collection/array.nit:274 */
 338       REGB0 = REGB1;
 339     } else {
 340       /* ../lib/standard/collection/array.nit:272 */
 341       goto label6;
 342     }
 343   }
 344   label6: while(0);
 345   /* syntax/extern_type_inheritance.nit:71 */
 346   REGB0 = CALL_standard___collection___abstract_collection___Collection___length(fra.me.REG[2])(fra.me.REG[2]);
 347   REGB1 = TAG_Int(1);
 348   REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
 349   if (UNTAG_Bool(REGB2)) {
 350   } else {
 351     nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
 352   }
 353   /* ../lib/standard/kernel.nit:237 */
 354   REGB1 = TAG_Bool(UNTAG_Int(REGB0)>UNTAG_Int(REGB1));
 355   /* syntax/extern_type_inheritance.nit:71 */
 356   if (UNTAG_Bool(REGB1)) {
 357     /* syntax/extern_type_inheritance.nit:72 */
 358     fra.me.REG[4] = CALL_standard___file___Object___stderr(fra.me.REG[0])(fra.me.REG[0]);
 359     REGB1 = TAG_Int(5);
 360     fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
 361     if (!once_value_7) {
 362       fra.me.REG[5] = BOX_NativeString("Error: Extern class ");
 363       REGB1 = TAG_Int(20);
 364       fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB1);
 365       once_value_7 = fra.me.REG[5];
 366       register_static_object(&once_value_7);
 367     } else fra.me.REG[5] = once_value_7;
 368     fra.me.REG[5] = fra.me.REG[5];
 369     CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
 370     fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalClass___mmmodule(fra.me.REG[0])(fra.me.REG[0]);
 371     fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
 372     CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
 373     if (!once_value_8) {
 374       fra.me.REG[5] = BOX_NativeString("::");
 375       REGB1 = TAG_Int(2);
 376       fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB1);
 377       once_value_8 = fra.me.REG[5];
 378       register_static_object(&once_value_8);
 379     } else fra.me.REG[5] = once_value_8;
 380     fra.me.REG[5] = fra.me.REG[5];
 381     CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
 382     fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalClass___name(fra.me.REG[0])(fra.me.REG[0]);
 383     fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
 384     CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
 385     if (!once_value_9) {
 386       fra.me.REG[5] = BOX_NativeString(" has ambiguous extern type, found in super classes: \n");
 387       REGB1 = TAG_Int(53);
 388       fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB1);
 389       once_value_9 = fra.me.REG[5];
 390       register_static_object(&once_value_9);
 391     } else fra.me.REG[5] = once_value_9;
 392     fra.me.REG[5] = fra.me.REG[5];
 393     CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
 394     fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
 395     CALL_standard___stream___OStream___write(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
 396     CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[2])(fra.me.REG[2], (&(fra.me)), ((fun_t)OC_syntax___extern_type_inheritance___MMLocalClass___extern_type_10));
 397     /* syntax/extern_type_inheritance.nit:74 */
 398     REGB1 = TAG_Int(1);
 399     CALL_standard___kernel___Object___exit(fra.me.REG[0])(fra.me.REG[0], REGB1);
 400   } else {
 401     /* syntax/extern_type_inheritance.nit:75 */
 402     REGB1 = CALL_standard___collection___abstract_collection___Collection___length(fra.me.REG[2])(fra.me.REG[2]);
 403     REGB0 = TAG_Int(1);
 404     REGB2 = TAG_Bool(IS_EQUAL_OO(REGB1,REGB0));
 405     if (UNTAG_Bool(REGB2)) {
 406     } else {
 407       /* ../lib/standard/kernel.nit:230 */
 408       REGB0 = TAG_Bool((REGB1)==(REGB0));
 409       /* syntax/extern_type_inheritance.nit:75 */
 410       REGB2 = REGB0;
 411     }
 412     if (UNTAG_Bool(REGB2)) {
 413       /* syntax/extern_type_inheritance.nit:76 */
 414       fra.me.REG[2] = CALL_standard___collection___abstract_collection___Collection___first(fra.me.REG[2])(fra.me.REG[2]);
 415       /* syntax/extern_type_inheritance.nit:77 */
 416       fra.me.REG[3] = CALL_syntax___extern_inline___MMLocalClass___extern_type(fra.me.REG[2])(fra.me.REG[2]);
 417       CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache__eq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
 418       /* syntax/extern_type_inheritance.nit:78 */
 419       CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache__eq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
 420     } else {
 421       /* syntax/extern_type_inheritance.nit:81 */
 422       nit_abort("Aborted", NULL, LOCATE_syntax___extern_type_inheritance, 81);
 423     }
 424   }
 425   /* syntax/extern_type_inheritance.nit:84 */
 426   fra.me.REG[0] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(fra.me.REG[0])(fra.me.REG[0]);
 427   fra.me.REG[1] = fra.me.REG[0];
 428   goto label1;
 429   label1: while(0);
 430   stack_frame_head = fra.me.prev;
 431   return fra.me.REG[1];
 432 }
 433     void OC_syntax___extern_type_inheritance___MMLocalClass___extern_type_10(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
 434       struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
 435       val_t REGB0;
 436       fun_t CREG[1];
 437       val_t tmp;
 438       static val_t once_value_11; /* Once value */
 439       static val_t once_value_12; /* Once value */
 440       static val_t once_value_13; /* Once value */
 441       /* syntax/extern_type_inheritance.nit:73 */
 442       fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 443       fra.me.file = LOCATE_syntax___extern_type_inheritance;
 444       fra.me.line = 0;
 445       fra.me.meth = LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type;
 446       fra.me.has_broke = 0;
 447       fra.me.REG_size = 4;
 448       fra.me.nitni_local_ref_head = NULL;
 449       fra.me.REG[0] = NIT_NULL;
 450       fra.me.REG[1] = NIT_NULL;
 451       fra.me.REG[2] = NIT_NULL;
 452       fra.me.REG[3] = NIT_NULL;
 453       fra.me.closure_ctx = closctx_param;
 454       fra.me.closure_funs = CREG;
 455       fra.me.REG[0] = p0;
 456       CREG[0] = clos_fun0;
 457       fra.me.REG[1] = CALL_standard___file___Object___stderr(closctx->REG[0])(closctx->REG[0]);
 458       REGB0 = TAG_Int(5);
 459       fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
 460       if (!once_value_11) {
 461         fra.me.REG[3] = BOX_NativeString("");
 462         REGB0 = TAG_Int(0);
 463         fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
 464         once_value_11 = fra.me.REG[3];
 465         register_static_object(&once_value_11);
 466       } else fra.me.REG[3] = once_value_11;
 467       fra.me.REG[3] = fra.me.REG[3];
 468       CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
 469       fra.me.REG[3] = CALL_syntax___extern_inline___MMLocalClass___extern_type(fra.me.REG[0])(fra.me.REG[0]);
 470       REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
 471       if (UNTAG_Bool(REGB0)) {
 472         nit_abort("Reciever is null", NULL, LOCATE_syntax___extern_type_inheritance, 73);
 473       }
 474       fra.me.REG[3] = CALL_syntax___extern_inline___ExternCode___code(fra.me.REG[3])(fra.me.REG[3]);
 475       CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
 476       if (!once_value_12) {
 477         fra.me.REG[3] = BOX_NativeString(" from ");
 478         REGB0 = TAG_Int(7);
 479         fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
 480         once_value_12 = fra.me.REG[3];
 481         register_static_object(&once_value_12);
 482       } else fra.me.REG[3] = once_value_12;
 483       fra.me.REG[3] = fra.me.REG[3];
 484       CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
 485       fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
 486       CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]);
 487       if (!once_value_13) {
 488         fra.me.REG[0] = BOX_NativeString("\n");
 489         REGB0 = TAG_Int(1);
 490         fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
 491         once_value_13 = fra.me.REG[0];
 492         register_static_object(&once_value_13);
 493       } else fra.me.REG[0] = once_value_13;
 494       fra.me.REG[0] = fra.me.REG[0];
 495       CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]);
 496       fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
 497       CALL_standard___stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
 498       stack_frame_head = fra.me.prev;
 499       return;
 500     }
 501 static const char LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type__eq[] = "extern_type_inheritance::MMLocalClass::(extern_inline::MMLocalClass::extern_type=)";
 502 void syntax___extern_type_inheritance___MMLocalClass___extern_type__eq(val_t p0, val_t p1){
 503   struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
 504   val_t tmp;
 505   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 506   fra.me.file = LOCATE_syntax___extern_type_inheritance;
 507   fra.me.line = 87;
 508   fra.me.meth = LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type__eq;
 509   fra.me.has_broke = 0;
 510   fra.me.REG_size = 2;
 511   fra.me.nitni_local_ref_head = NULL;
 512   fra.me.REG[0] = NIT_NULL;
 513   fra.me.REG[1] = NIT_NULL;
 514   fra.me.REG[0] = p0;
 515   fra.me.REG[1] = p1;
 516   /* syntax/extern_type_inheritance.nit:89 */
 517   CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache__eq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
 518   /* syntax/extern_type_inheritance.nit:90 */
 519   CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache__eq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[0]);
 520   stack_frame_head = fra.me.prev;
 521   return;
 522 }