c_src/compiling___icode_generator._sep.c

   1 /* This C file is generated by NIT to compile module compiling___icode_generator. */
   2 #include "compiling___icode_generator._sep.h"
   3 void compiling___icode_generator___Program___generate_icode_files(val_t p0){
   4   struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
   5   val_t REGB0;
   6   val_t tmp;
   7   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
   8   fra.me.file = LOCATE_compiling___icode_generator;
   9   fra.me.line = 26;
  10   fra.me.meth = LOCATE_compiling___icode_generator___Program___generate_icode_files;
  11   fra.me.has_broke = 0;
  12   fra.me.REG_size = 3;
  13   fra.me.nitni_local_ref_head = NULL;
  14   fra.me.REG[0] = NIT_NULL;
  15   fra.me.REG[1] = NIT_NULL;
  16   fra.me.REG[2] = NIT_NULL;
  17   fra.me.REG[0] = p0;
  18   /* ./compiling//icode_generator.nit:26 */
  19   fra.me.REG[1] = fra.me.REG[0];
  20   /* ./compiling//icode_generator.nit:28 */
  21   fra.me.REG[2] = CALL_program___Program___tc(fra.me.REG[1])(fra.me.REG[1]);
  22   fra.me.REG[2] = CALL_compiling___compiling_base___ToolContext___compdir(fra.me.REG[2])(fra.me.REG[2]);
  23   REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
  24   if (UNTAG_Bool(REGB0)) {
  25     nit_abort("Reciever is null", NULL, LOCATE_compiling___icode_generator, 28);
  26   }
  27   CALL_standard___file___String___mkdir(fra.me.REG[2])(fra.me.REG[2]);
  28   CALL_program___Program___with_each_live_local_classes(fra.me.REG[1])(fra.me.REG[1], (&(fra.me)), ((fun_t)OC_compiling___icode_generator___Program___generate_icode_files_1));
  29   stack_frame_head = fra.me.prev;
  30   return;
  31 }
  32   void OC_compiling___icode_generator___Program___generate_icode_files_1(struct stack_frame_t *closctx, val_t p0){
  33     struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
  34     val_t REGB0;
  35     val_t tmp;
  36     /* ./compiling//icode_generator.nit:30 */
  37     fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
  38     fra.me.file = LOCATE_compiling___icode_generator;
  39     fra.me.line = 30;
  40     fra.me.meth = LOCATE_compiling___icode_generator___Program___generate_icode_files;
  41     fra.me.has_broke = 0;
  42     fra.me.REG_size = 2;
  43     fra.me.nitni_local_ref_head = NULL;
  44     fra.me.REG[0] = NIT_NULL;
  45     fra.me.REG[1] = NIT_NULL;
  46     fra.me.REG[0] = p0;
  47     /* ./compiling//icode_generator.nit:31 */
  48     fra.me.REG[1] = CALL_program___Program___tc(closctx->REG[1])(closctx->REG[1]);
  49     fra.me.REG[1] = CALL_compiling___compiling_base___ToolContext___compdir(fra.me.REG[1])(fra.me.REG[1]);
  50     REGB0 = TAG_Bool((fra.me.REG[1]!=NIT_NULL) && VAL_ISA(fra.me.REG[1], COLOR_standard___string___String, ID_standard___string___String)) /*cast String*/;
  51     if (UNTAG_Bool(REGB0)) {
  52     } else {
  53       nit_abort("Cast failed", NULL, LOCATE_compiling___icode_generator, 31);
  54     }
  55     CALL_compiling___icode_generator___MMLocalClass___generate_icode_file(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
  56     stack_frame_head = fra.me.prev;
  57     return;
  58   }
  59 void compiling___icode_generator___FileICodeDumper___init(val_t p0, val_t p1, int* init_table){
  60   int itpos0 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_compiling___icode_generator___FileICodeDumper].i;
  61   struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
  62   val_t REGB0;
  63   val_t REGB1;
  64   val_t tmp;
  65   if (init_table[itpos0]) return;
  66   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
  67   fra.me.file = LOCATE_compiling___icode_generator;
  68   fra.me.line = 41;
  69   fra.me.meth = LOCATE_compiling___icode_generator___FileICodeDumper___init;
  70   fra.me.has_broke = 0;
  71   fra.me.REG_size = 3;
  72   fra.me.nitni_local_ref_head = NULL;
  73   fra.me.REG[0] = NIT_NULL;
  74   fra.me.REG[1] = NIT_NULL;
  75   fra.me.REG[2] = NIT_NULL;
  76   fra.me.REG[0] = p0;
  77   fra.me.REG[1] = p1;
  78   /* ./compiling//icode_generator.nit:41 */
  79   fra.me.REG[2] = fra.me.REG[0];
  80   /* ./compiling//icode_generator.nit:43 */
  81   REGB0 = TAG_Bool(false);
  82   REGB1 = TAG_Bool(false);
  83   CALL_analysis___icode_dump___ICodeDumper___init(fra.me.REG[0])(fra.me.REG[0], REGB0, REGB1, init_table);
  84   /* ./compiling//icode_generator.nit:44 */
  85   ATTR_compiling___icode_generator___FileICodeDumper____file(fra.me.REG[2]) = fra.me.REG[1];
  86   stack_frame_head = fra.me.prev;
  87   init_table[itpos0] = 1;
  88   return;
  89 }
  90 void compiling___icode_generator___FileICodeDumper___write(val_t p0, val_t p1){
  91   struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
  92   val_t REGB0;
  93   val_t REGB1;
  94   val_t REGB2;
  95   val_t tmp;
  96       static val_t once_value_1; /* Once value */
  97   static val_t once_value_3; /* Once value */
  98   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
  99   fra.me.file = LOCATE_compiling___icode_generator;
 100   fra.me.line = 47;
 101   fra.me.meth = LOCATE_compiling___icode_generator___FileICodeDumper___write;
 102   fra.me.has_broke = 0;
 103   fra.me.REG_size = 4;
 104   fra.me.nitni_local_ref_head = NULL;
 105   fra.me.REG[0] = NIT_NULL;
 106   fra.me.REG[1] = NIT_NULL;
 107   fra.me.REG[2] = NIT_NULL;
 108   fra.me.REG[3] = NIT_NULL;
 109   fra.me.REG[0] = p0;
 110   fra.me.REG[1] = p1;
 111   /* ./compiling//icode_generator.nit:48 */
 112   REGB0 = TAG_Int(0);
 113   REGB1 = CALL_analysis___icode_dump___ICodeDumper___indent_level(fra.me.REG[0])(fra.me.REG[0]);
 114   /* ./../lib/standard//kernel.nit:352 */
 115   while(1) {
 116     REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
 117     if (UNTAG_Bool(REGB2)) {
 118     } else {
 119       nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
 120     }
 121     /* ./../lib/standard//kernel.nit:232 */
 122     REGB2 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
 123     /* ./../lib/standard//kernel.nit:352 */
 124     if (UNTAG_Bool(REGB2)) {
 125       /* ./compiling//icode_generator.nit:49 */
 126       REGB2 = TAG_Bool(ATTR_compiling___icode_generator___FileICodeDumper____file(fra.me.REG[0])!=NIT_NULL);
 127       if (UNTAG_Bool(REGB2)) {
 128       } else {
 129         nit_abort("Uninitialized attribute %s", "_file", LOCATE_compiling___icode_generator, 49);
 130       }
 131       fra.me.REG[2] = ATTR_compiling___icode_generator___FileICodeDumper____file(fra.me.REG[0]);
 132       if (!once_value_1) {
 133         fra.me.REG[3] = BOX_NativeString("    ");
 134         REGB2 = TAG_Int(4);
 135         fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB2);
 136         once_value_1 = fra.me.REG[3];
 137         register_static_object(&once_value_1);
 138       } else fra.me.REG[3] = once_value_1;
 139       fra.me.REG[3] = fra.me.REG[3];
 140       CALL_standard___stream___OStream___write(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
 141       /* ./../lib/standard//kernel.nit:354 */
 142       REGB2 = TAG_Int(1);
 143       /* ./../lib/standard//kernel.nit:235 */
 144       REGB2 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB2));
 145       /* ./../lib/standard//kernel.nit:354 */
 146       REGB0 = REGB2;
 147     } else {
 148       /* ./../lib/standard//kernel.nit:352 */
 149       goto label2;
 150     }
 151   }
 152   label2: while(0);
 153   /* ./compiling//icode_generator.nit:51 */
 154   REGB0 = TAG_Bool(ATTR_compiling___icode_generator___FileICodeDumper____file(fra.me.REG[0])!=NIT_NULL);
 155   if (UNTAG_Bool(REGB0)) {
 156   } else {
 157     nit_abort("Uninitialized attribute %s", "_file", LOCATE_compiling___icode_generator, 51);
 158   }
 159   fra.me.REG[3] = ATTR_compiling___icode_generator___FileICodeDumper____file(fra.me.REG[0]);
 160   CALL_standard___stream___OStream___write(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]);
 161   /* ./compiling//icode_generator.nit:52 */
 162   REGB0 = TAG_Bool(ATTR_compiling___icode_generator___FileICodeDumper____file(fra.me.REG[0])!=NIT_NULL);
 163   if (UNTAG_Bool(REGB0)) {
 164   } else {
 165     nit_abort("Uninitialized attribute %s", "_file", LOCATE_compiling___icode_generator, 52);
 166   }
 167   fra.me.REG[0] = ATTR_compiling___icode_generator___FileICodeDumper____file(fra.me.REG[0]);
 168   if (!once_value_3) {
 169     fra.me.REG[1] = BOX_NativeString("\n");
 170     REGB0 = TAG_Int(1);
 171     fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB0);
 172     once_value_3 = fra.me.REG[1];
 173     register_static_object(&once_value_3);
 174   } else fra.me.REG[1] = once_value_3;
 175   fra.me.REG[1] = fra.me.REG[1];
 176   CALL_standard___stream___OStream___write(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
 177   stack_frame_head = fra.me.prev;
 178   return;
 179 }
 180 void compiling___icode_generator___MMLocalClass___generate_icode_file(val_t p0, val_t p1){
 181   struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
 182   val_t REGB0;
 183   val_t REGB1;
 184   val_t tmp;
 185   static val_t once_value_1; /* Once value */
 186   static val_t once_value_2; /* Once value */
 187   static val_t once_value_3; /* Once value */
 188       static val_t once_value_4; /* Once value */
 189       static val_t once_value_5; /* Once value */
 190       static val_t once_value_6; /* Once value */
 191       static val_t once_value_7; /* Once value */
 192   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 193   fra.me.file = LOCATE_compiling___icode_generator;
 194   fra.me.line = 57;
 195   fra.me.meth = LOCATE_compiling___icode_generator___MMLocalClass___generate_icode_file;
 196   fra.me.has_broke = 0;
 197   fra.me.REG_size = 4;
 198   fra.me.nitni_local_ref_head = NULL;
 199   fra.me.REG[0] = NIT_NULL;
 200   fra.me.REG[1] = NIT_NULL;
 201   fra.me.REG[2] = NIT_NULL;
 202   fra.me.REG[3] = NIT_NULL;
 203   fra.me.REG[0] = p0;
 204   fra.me.REG[1] = p1;
 205   /* ./compiling//icode_generator.nit:59 */
 206   REGB0 = TAG_Int(5);
 207   fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
 208   if (!once_value_1) {
 209     fra.me.REG[3] = BOX_NativeString("");
 210     REGB0 = TAG_Int(0);
 211     fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
 212     once_value_1 = fra.me.REG[3];
 213     register_static_object(&once_value_1);
 214   } else fra.me.REG[3] = once_value_1;
 215   fra.me.REG[3] = fra.me.REG[3];
 216   CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
 217   CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
 218   if (!once_value_2) {
 219     fra.me.REG[1] = BOX_NativeString("/");
 220     REGB0 = TAG_Int(1);
 221     fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB0);
 222     once_value_2 = fra.me.REG[1];
 223     register_static_object(&once_value_2);
 224   } else fra.me.REG[1] = once_value_2;
 225   fra.me.REG[1] = fra.me.REG[1];
 226   CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
 227   fra.me.REG[1] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
 228   CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
 229   if (!once_value_3) {
 230     fra.me.REG[1] = BOX_NativeString(".icode");
 231     REGB0 = TAG_Int(6);
 232     fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB0);
 233     once_value_3 = fra.me.REG[1];
 234     register_static_object(&once_value_3);
 235   } else fra.me.REG[1] = once_value_3;
 236   fra.me.REG[1] = fra.me.REG[1];
 237   CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
 238   fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
 239   fra.me.REG[2] = NEW_OFStream_standard___file___OFStream___open(fra.me.REG[2]);
 240   /* ./compiling//icode_generator.nit:60 */
 241   fra.me.REG[1] = CALL_primitive_info___MMLocalClass___primitive_info(fra.me.REG[0])(fra.me.REG[0]);
 242   REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
 243   if (UNTAG_Bool(REGB0)) {
 244   } else {
 245     REGB1 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
 246     if (UNTAG_Bool(REGB1)) {
 247       REGB1 = TAG_Bool(false);
 248       REGB0 = REGB1;
 249     } else {
 250       REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], NIT_NULL);
 251       REGB0 = REGB1;
 252     }
 253   }
 254   if (UNTAG_Bool(REGB0)) {
 255     /* ./compiling//icode_generator.nit:62 */
 256     fra.me.REG[1] = CALL_program___MMLocalClass___init_var_iroutine(fra.me.REG[0])(fra.me.REG[0]);
 257     REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
 258     if (UNTAG_Bool(REGB0)) {
 259     } else {
 260       REGB1 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
 261       if (UNTAG_Bool(REGB1)) {
 262         REGB1 = TAG_Bool(false);
 263         REGB0 = REGB1;
 264       } else {
 265         REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], NIT_NULL);
 266         REGB0 = REGB1;
 267       }
 268     }
 269     REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
 270     if (UNTAG_Bool(REGB0)) {
 271       /* ./compiling//icode_generator.nit:63 */
 272       fra.me.REG[1] = NEW_FileICodeDumper_compiling___icode_generator___FileICodeDumper___init(fra.me.REG[2]);
 273       /* ./compiling//icode_generator.nit:64 */
 274       CALL_analysis___icode_dump___ICodeDumper___indent(fra.me.REG[1])(fra.me.REG[1]);
 275       /* ./compiling//icode_generator.nit:65 */
 276       if (!once_value_4) {
 277         fra.me.REG[3] = BOX_NativeString("Init var iroutine::\n");
 278         REGB0 = TAG_Int(20);
 279         fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
 280         once_value_4 = fra.me.REG[3];
 281         register_static_object(&once_value_4);
 282       } else fra.me.REG[3] = once_value_4;
 283       fra.me.REG[3] = fra.me.REG[3];
 284       CALL_standard___stream___OStream___write(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
 285       /* ./compiling//icode_generator.nit:66 */
 286       fra.me.REG[3] = CALL_program___MMLocalClass___init_var_iroutine(fra.me.REG[0])(fra.me.REG[0]);
 287       REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
 288       if (UNTAG_Bool(REGB0)) {
 289         nit_abort("Reciever is null", NULL, LOCATE_compiling___icode_generator, 66);
 290       }
 291       CALL_analysis___icode_dump___IRoutine___dump(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]);
 292       /* ./compiling//icode_generator.nit:67 */
 293       if (!once_value_5) {
 294         fra.me.REG[1] = BOX_NativeString("\n\n");
 295         REGB0 = TAG_Int(2);
 296         fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB0);
 297         once_value_5 = fra.me.REG[1];
 298         register_static_object(&once_value_5);
 299       } else fra.me.REG[1] = once_value_5;
 300       fra.me.REG[1] = fra.me.REG[1];
 301       CALL_standard___stream___OStream___write(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
 302     }
 303     /* ./compiling//icode_generator.nit:69 */
 304     fra.me.REG[1] = CALL_program___MMLocalClass___checknew_iroutine(fra.me.REG[0])(fra.me.REG[0]);
 305     REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
 306     if (UNTAG_Bool(REGB0)) {
 307     } else {
 308       REGB1 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
 309       if (UNTAG_Bool(REGB1)) {
 310         REGB1 = TAG_Bool(false);
 311         REGB0 = REGB1;
 312       } else {
 313         REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], NIT_NULL);
 314         REGB0 = REGB1;
 315       }
 316     }
 317     REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
 318     if (UNTAG_Bool(REGB0)) {
 319       /* ./compiling//icode_generator.nit:70 */
 320       fra.me.REG[1] = NEW_FileICodeDumper_compiling___icode_generator___FileICodeDumper___init(fra.me.REG[2]);
 321       /* ./compiling//icode_generator.nit:71 */
 322       CALL_analysis___icode_dump___ICodeDumper___indent(fra.me.REG[1])(fra.me.REG[1]);
 323       /* ./compiling//icode_generator.nit:72 */
 324       if (!once_value_6) {
 325         fra.me.REG[3] = BOX_NativeString("Check new instance iroutine::\n");
 326         REGB0 = TAG_Int(30);
 327         fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
 328         once_value_6 = fra.me.REG[3];
 329         register_static_object(&once_value_6);
 330       } else fra.me.REG[3] = once_value_6;
 331       fra.me.REG[3] = fra.me.REG[3];
 332       CALL_standard___stream___OStream___write(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
 333       /* ./compiling//icode_generator.nit:73 */
 334       fra.me.REG[3] = CALL_program___MMLocalClass___checknew_iroutine(fra.me.REG[0])(fra.me.REG[0]);
 335       REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
 336       if (UNTAG_Bool(REGB0)) {
 337         nit_abort("Reciever is null", NULL, LOCATE_compiling___icode_generator, 73);
 338       }
 339       CALL_analysis___icode_dump___IRoutine___dump(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]);
 340       /* ./compiling//icode_generator.nit:74 */
 341       if (!once_value_7) {
 342         fra.me.REG[1] = BOX_NativeString("\n\n");
 343         REGB0 = TAG_Int(2);
 344         fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB0);
 345         once_value_7 = fra.me.REG[1];
 346         register_static_object(&once_value_7);
 347       } else fra.me.REG[1] = once_value_7;
 348       fra.me.REG[1] = fra.me.REG[1];
 349       CALL_standard___stream___OStream___write(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
 350     }
 351     /* ./compiling//icode_generator.nit:78 */
 352     fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMLocalClass___global_properties(fra.me.REG[0])(fra.me.REG[0]);
 353     CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[1])(fra.me.REG[1], (&(fra.me)), ((fun_t)OC_compiling___icode_generator___MMLocalClass___generate_icode_file_8));
 354   }
 355   /* ./compiling//icode_generator.nit:91 */
 356   fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMLocalClass___global_properties(fra.me.REG[0])(fra.me.REG[0]);
 357   CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[1])(fra.me.REG[1], (&(fra.me)), ((fun_t)OC_compiling___icode_generator___MMLocalClass___generate_icode_file_13));
 358   /* ./compiling//icode_generator.nit:97 */
 359   CALL_standard___stream___IOS___close(fra.me.REG[2])(fra.me.REG[2]);
 360   stack_frame_head = fra.me.prev;
 361   return;
 362 }
 363     void OC_compiling___icode_generator___MMLocalClass___generate_icode_file_8(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
 364       struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
 365       val_t REGB0;
 366       fun_t CREG[1];
 367       val_t tmp;
 368       static val_t once_value_10; /* Once value */
 369       static val_t once_value_11; /* Once value */
 370       static val_t once_value_12; /* Once value */
 371       fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 372       fra.me.file = LOCATE_compiling___icode_generator;
 373       fra.me.line = 0;
 374       fra.me.meth = LOCATE_compiling___icode_generator___MMLocalClass___generate_icode_file;
 375       fra.me.has_broke = 0;
 376       fra.me.REG_size = 4;
 377       fra.me.nitni_local_ref_head = NULL;
 378       fra.me.REG[0] = NIT_NULL;
 379       fra.me.REG[1] = NIT_NULL;
 380       fra.me.REG[2] = NIT_NULL;
 381       fra.me.REG[3] = NIT_NULL;
 382       fra.me.closure_ctx = closctx_param;
 383       fra.me.closure_funs = CREG;
 384       fra.me.REG[0] = p0;
 385       CREG[0] = clos_fun0;
 386       /* ./compiling//icode_generator.nit:79 */
 387       REGB0 = CALL_metamodel___abstractmetamodel___MMGlobalProperty___is_init_for(fra.me.REG[0])(fra.me.REG[0], closctx->REG[0]);
 388       REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
 389       if (UNTAG_Bool(REGB0)) {
 390         goto label9;
 391       }
 392       /* ./compiling//icode_generator.nit:80 */
 393       fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMLocalClass_____bra(closctx->REG[0])(closctx->REG[0], fra.me.REG[0]);
 394       /* ./compiling//icode_generator.nit:81 */
 395       REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[0], COLOR_metamodel___abstractmetamodel___MMMethod, ID_metamodel___abstractmetamodel___MMMethod)) /*cast MMMethod*/;
 396       if (UNTAG_Bool(REGB0)) {
 397       } else {
 398         nit_abort("Assert failed", NULL, LOCATE_compiling___icode_generator, 81);
 399       }
 400       /* ./compiling//icode_generator.nit:82 */
 401       fra.me.REG[1] = NEW_FileICodeDumper_compiling___icode_generator___FileICodeDumper___init(closctx->REG[2]);
 402       /* ./compiling//icode_generator.nit:83 */
 403       CALL_analysis___icode_dump___ICodeDumper___indent(fra.me.REG[1])(fra.me.REG[1]);
 404       /* ./compiling//icode_generator.nit:84 */
 405       REGB0 = TAG_Int(3);
 406       fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
 407       if (!once_value_10) {
 408         fra.me.REG[3] = BOX_NativeString("New instance:: ");
 409         REGB0 = TAG_Int(15);
 410         fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
 411         once_value_10 = fra.me.REG[3];
 412         register_static_object(&once_value_10);
 413       } else fra.me.REG[3] = once_value_10;
 414       fra.me.REG[3] = fra.me.REG[3];
 415       CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
 416       fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(fra.me.REG[0])(fra.me.REG[0]);
 417       CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
 418       if (!once_value_11) {
 419         fra.me.REG[3] = BOX_NativeString("\n");
 420         REGB0 = TAG_Int(1);
 421         fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
 422         once_value_11 = fra.me.REG[3];
 423         register_static_object(&once_value_11);
 424       } else fra.me.REG[3] = once_value_11;
 425       fra.me.REG[3] = fra.me.REG[3];
 426       CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
 427       fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
 428       CALL_standard___stream___OStream___write(closctx->REG[2])(closctx->REG[2], fra.me.REG[2]);
 429       /* ./compiling//icode_generator.nit:85 */
 430       fra.me.REG[2] = CALL_program___MMLocalClass___new_instance_iroutine(closctx->REG[0])(closctx->REG[0]);
 431       fra.me.REG[0] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]);
 432       REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
 433       if (UNTAG_Bool(REGB0)) {
 434         nit_abort("Reciever is null", NULL, LOCATE_compiling___icode_generator, 85);
 435       }
 436       CALL_analysis___icode_dump___IRoutine___dump(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
 437       /* ./compiling//icode_generator.nit:86 */
 438       if (!once_value_12) {
 439         fra.me.REG[1] = BOX_NativeString("\n\n");
 440         REGB0 = TAG_Int(2);
 441         fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB0);
 442         once_value_12 = fra.me.REG[1];
 443         register_static_object(&once_value_12);
 444       } else fra.me.REG[1] = once_value_12;
 445       fra.me.REG[1] = fra.me.REG[1];
 446       CALL_standard___stream___OStream___write(closctx->REG[2])(closctx->REG[2], fra.me.REG[1]);
 447       label9: while(0);
 448       stack_frame_head = fra.me.prev;
 449       return;
 450     }
 451   void OC_compiling___icode_generator___MMLocalClass___generate_icode_file_13(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
 452     struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
 453     val_t REGB0;
 454     val_t REGB1;
 455     fun_t CREG[1];
 456     val_t tmp;
 457     fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 458     fra.me.file = LOCATE_compiling___icode_generator;
 459     fra.me.line = 0;
 460     fra.me.meth = LOCATE_compiling___icode_generator___MMLocalClass___generate_icode_file;
 461     fra.me.has_broke = 0;
 462     fra.me.REG_size = 2;
 463     fra.me.nitni_local_ref_head = NULL;
 464     fra.me.REG[0] = NIT_NULL;
 465     fra.me.REG[1] = NIT_NULL;
 466     fra.me.closure_ctx = closctx_param;
 467     fra.me.closure_funs = CREG;
 468     fra.me.REG[0] = p0;
 469     CREG[0] = clos_fun0;
 470     /* ./compiling//icode_generator.nit:92 */
 471     fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMLocalClass_____bra(closctx->REG[0])(closctx->REG[0], fra.me.REG[0]);
 472     /* ./compiling//icode_generator.nit:93 */
 473     fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMLocalProperty___local_class(fra.me.REG[0])(fra.me.REG[0]);
 474     REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[1],closctx->REG[0]));
 475     if (UNTAG_Bool(REGB0)) {
 476     } else {
 477       REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], closctx->REG[0]);
 478       REGB0 = REGB1;
 479     }
 480     if (UNTAG_Bool(REGB0)) {
 481       REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[0], COLOR_metamodel___abstractmetamodel___MMMethod, ID_metamodel___abstractmetamodel___MMMethod)) /*cast MMMethod*/;
 482     } else {
 483       REGB1 = TAG_Bool(false);
 484       REGB0 = REGB1;
 485     }
 486     if (UNTAG_Bool(REGB0)) {
 487       /* ./compiling//icode_generator.nit:94 */
 488       CALL_compiling___icode_generator___MMMethod___generate_icode(fra.me.REG[0])(fra.me.REG[0], closctx->REG[2]);
 489     }
 490     stack_frame_head = fra.me.prev;
 491     return;
 492   }
 493 void compiling___icode_generator___MMMethod___generate_icode(val_t p0, val_t p1){
 494   struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
 495   val_t REGB0;
 496   val_t tmp;
 497   static val_t once_value_1; /* Once value */
 498   static val_t once_value_2; /* Once value */
 499   static val_t once_value_3; /* Once value */
 500   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 501   fra.me.file = LOCATE_compiling___icode_generator;
 502   fra.me.line = 102;
 503   fra.me.meth = LOCATE_compiling___icode_generator___MMMethod___generate_icode;
 504   fra.me.has_broke = 0;
 505   fra.me.REG_size = 5;
 506   fra.me.nitni_local_ref_head = NULL;
 507   fra.me.REG[0] = NIT_NULL;
 508   fra.me.REG[1] = NIT_NULL;
 509   fra.me.REG[2] = NIT_NULL;
 510   fra.me.REG[3] = NIT_NULL;
 511   fra.me.REG[4] = NIT_NULL;
 512   fra.me.REG[0] = p0;
 513   fra.me.REG[1] = p1;
 514   /* ./compiling//icode_generator.nit:104 */
 515   fra.me.REG[2] = NEW_FileICodeDumper_compiling___icode_generator___FileICodeDumper___init(fra.me.REG[1]);
 516   /* ./compiling//icode_generator.nit:105 */
 517   CALL_analysis___icode_dump___ICodeDumper___indent(fra.me.REG[2])(fra.me.REG[2]);
 518   /* ./compiling//icode_generator.nit:106 */
 519   REGB0 = TAG_Int(3);
 520   fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
 521   if (!once_value_1) {
 522     fra.me.REG[4] = BOX_NativeString("Method:: ");
 523     REGB0 = TAG_Int(9);
 524     fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
 525     once_value_1 = fra.me.REG[4];
 526     register_static_object(&once_value_1);
 527   } else fra.me.REG[4] = once_value_1;
 528   fra.me.REG[4] = fra.me.REG[4];
 529   CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
 530   fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(fra.me.REG[0])(fra.me.REG[0]);
 531   CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
 532   if (!once_value_2) {
 533     fra.me.REG[4] = BOX_NativeString("\n");
 534     REGB0 = TAG_Int(1);
 535     fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
 536     once_value_2 = fra.me.REG[4];
 537     register_static_object(&once_value_2);
 538   } else fra.me.REG[4] = once_value_2;
 539   fra.me.REG[4] = fra.me.REG[4];
 540   CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
 541   fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
 542   CALL_standard___stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
 543   /* ./compiling//icode_generator.nit:107 */
 544   fra.me.REG[0] = CALL_icode___icode_base___MMMethod___iroutine(fra.me.REG[0])(fra.me.REG[0]);
 545   REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
 546   if (UNTAG_Bool(REGB0)) {
 547     nit_abort("Reciever is null", NULL, LOCATE_compiling___icode_generator, 107);
 548   }
 549   CALL_analysis___icode_dump___IRoutine___dump(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
 550   /* ./compiling//icode_generator.nit:108 */
 551   if (!once_value_3) {
 552     fra.me.REG[2] = BOX_NativeString("\n\n");
 553     REGB0 = TAG_Int(2);
 554     fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
 555     once_value_3 = fra.me.REG[2];
 556     register_static_object(&once_value_3);
 557   } else fra.me.REG[2] = once_value_3;
 558   fra.me.REG[2] = fra.me.REG[2];
 559   CALL_standard___stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
 560   stack_frame_head = fra.me.prev;
 561   return;
 562 }