c_src/program._sep.c

   1 /* This C file is generated by NIT to compile module program. */
   2 #include "program._sep.h"
   3 val_t program___ToolContext___global(val_t p0){
   4   struct {struct stack_frame_t me;} 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_program;
   9   fra.me.line = 26;
  10   fra.me.meth = LOCATE_program___ToolContext___global;
  11   fra.me.has_broke = 0;
  12   fra.me.REG_size = 1;
  13   fra.me.REG[0] = NIT_NULL;
  14   fra.me.REG[0] = p0;
  15   /* ./program.nit:26 */
  16   REGB0 = TAG_Bool(ATTR_program___ToolContext____global(fra.me.REG[0])!=NIT_NULL);
  17   if (UNTAG_Bool(REGB0)) {
  18   } else {
  19     nit_abort("Uninitialized attribute %s", "_global", LOCATE_program, 26);
  20   }
  21   REGB0 = ATTR_program___ToolContext____global(fra.me.REG[0]);
  22   stack_frame_head = fra.me.prev;
  23   return REGB0;
  24 }
  25 void program___ToolContext___global__eq(val_t p0, val_t p1){
  26   struct {struct stack_frame_t me;} fra;
  27   val_t REGB0;
  28   val_t tmp;
  29   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
  30   fra.me.file = LOCATE_program;
  31   fra.me.line = 26;
  32   fra.me.meth = LOCATE_program___ToolContext___global__eq;
  33   fra.me.has_broke = 0;
  34   fra.me.REG_size = 1;
  35   fra.me.REG[0] = NIT_NULL;
  36   fra.me.REG[0] = p0;
  37   REGB0 = p1;
  38   /* ./program.nit:26 */
  39   ATTR_program___ToolContext____global(fra.me.REG[0]) = REGB0;
  40   stack_frame_head = fra.me.prev;
  41   return;
  42 }
  43 void program___ToolContext___use_SFT_optimization__eq(val_t p0, val_t p1){
  44   struct {struct stack_frame_t me;} fra;
  45   val_t REGB0;
  46   val_t tmp;
  47   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
  48   fra.me.file = LOCATE_program;
  49   fra.me.line = 27;
  50   fra.me.meth = LOCATE_program___ToolContext___use_SFT_optimization__eq;
  51   fra.me.has_broke = 0;
  52   fra.me.REG_size = 1;
  53   fra.me.REG[0] = NIT_NULL;
  54   fra.me.REG[0] = p0;
  55   REGB0 = p1;
  56   /* ./program.nit:27 */
  57   ATTR_program___ToolContext____use_SFT_optimization(fra.me.REG[0]) = REGB0;
  58   stack_frame_head = fra.me.prev;
  59   return;
  60 }
  61 val_t program___ToolContext___use_SFT_optimization(val_t p0){
  62   struct {struct stack_frame_t me;} fra;
  63   val_t REGB0;
  64   val_t REGB1;
  65   val_t tmp;
  66   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
  67   fra.me.file = LOCATE_program;
  68   fra.me.line = 29;
  69   fra.me.meth = LOCATE_program___ToolContext___use_SFT_optimization;
  70   fra.me.has_broke = 0;
  71   fra.me.REG_size = 1;
  72   fra.me.REG[0] = NIT_NULL;
  73   fra.me.REG[0] = p0;
  74   /* ./program.nit:31 */
  75   REGB0 = CALL_program___ToolContext___global(fra.me.REG[0])(fra.me.REG[0]);
  76   if (UNTAG_Bool(REGB0)) {
  77     REGB0 = TAG_Bool(ATTR_program___ToolContext____use_SFT_optimization(fra.me.REG[0])!=NIT_NULL);
  78     if (UNTAG_Bool(REGB0)) {
  79     } else {
  80       nit_abort("Uninitialized attribute %s", "_use_SFT_optimization", LOCATE_program, 31);
  81     }
  82     REGB0 = ATTR_program___ToolContext____use_SFT_optimization(fra.me.REG[0]);
  83   } else {
  84     REGB1 = TAG_Bool(false);
  85     REGB0 = REGB1;
  86   }
  87   goto label1;
  88   label1: while(0);
  89   stack_frame_head = fra.me.prev;
  90   return REGB0;
  91 }
  92 val_t program___Program___tc(val_t p0){
  93   struct {struct stack_frame_t me;} fra;
  94   val_t REGB0;
  95   val_t tmp;
  96   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
  97   fra.me.file = LOCATE_program;
  98   fra.me.line = 37;
  99   fra.me.meth = LOCATE_program___Program___tc;
 100   fra.me.has_broke = 0;
 101   fra.me.REG_size = 1;
 102   fra.me.REG[0] = NIT_NULL;
 103   fra.me.REG[0] = p0;
 104   /* ./program.nit:37 */
 105   REGB0 = TAG_Bool(ATTR_program___Program____tc(fra.me.REG[0])!=NIT_NULL);
 106   if (UNTAG_Bool(REGB0)) {
 107   } else {
 108     nit_abort("Uninitialized attribute %s", "_tc", LOCATE_program, 37);
 109   }
 110   fra.me.REG[0] = ATTR_program___Program____tc(fra.me.REG[0]);
 111   stack_frame_head = fra.me.prev;
 112   return fra.me.REG[0];
 113 }
 114 val_t program___Program___main_module(val_t p0){
 115   struct {struct stack_frame_t me;} fra;
 116   val_t REGB0;
 117   val_t tmp;
 118   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 119   fra.me.file = LOCATE_program;
 120   fra.me.line = 41;
 121   fra.me.meth = LOCATE_program___Program___main_module;
 122   fra.me.has_broke = 0;
 123   fra.me.REG_size = 1;
 124   fra.me.REG[0] = NIT_NULL;
 125   fra.me.REG[0] = p0;
 126   /* ./program.nit:41 */
 127   REGB0 = TAG_Bool(ATTR_program___Program____main_module(fra.me.REG[0])!=NIT_NULL);
 128   if (UNTAG_Bool(REGB0)) {
 129   } else {
 130     nit_abort("Uninitialized attribute %s", "_main_module", LOCATE_program, 41);
 131   }
 132   fra.me.REG[0] = ATTR_program___Program____main_module(fra.me.REG[0]);
 133   stack_frame_head = fra.me.prev;
 134   return fra.me.REG[0];
 135 }
 136 val_t program___Program___main_method(val_t p0){
 137   struct {struct stack_frame_t me;} fra;
 138   val_t tmp;
 139   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 140   fra.me.file = LOCATE_program;
 141   fra.me.line = 44;
 142   fra.me.meth = LOCATE_program___Program___main_method;
 143   fra.me.has_broke = 0;
 144   fra.me.REG_size = 1;
 145   fra.me.REG[0] = NIT_NULL;
 146   fra.me.REG[0] = p0;
 147   /* ./program.nit:44 */
 148   fra.me.REG[0] = ATTR_program___Program____main_method(fra.me.REG[0]);
 149   stack_frame_head = fra.me.prev;
 150   return fra.me.REG[0];
 151 }
 152 val_t program___Program___main_class(val_t p0){
 153   struct {struct stack_frame_t me;} fra;
 154   val_t tmp;
 155   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 156   fra.me.file = LOCATE_program;
 157   fra.me.line = 48;
 158   fra.me.meth = LOCATE_program___Program___main_class;
 159   fra.me.has_broke = 0;
 160   fra.me.REG_size = 1;
 161   fra.me.REG[0] = NIT_NULL;
 162   fra.me.REG[0] = p0;
 163   /* ./program.nit:48 */
 164   fra.me.REG[0] = ATTR_program___Program____main_class(fra.me.REG[0]);
 165   stack_frame_head = fra.me.prev;
 166   return fra.me.REG[0];
 167 }
 168 void program___Program___finish_processing_classes(val_t p0){
 169   struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
 170   val_t REGB0;
 171   val_t REGB1;
 172   val_t tmp;
 173   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 174   fra.me.file = LOCATE_program;
 175   fra.me.line = 52;
 176   fra.me.meth = LOCATE_program___Program___finish_processing_classes;
 177   fra.me.has_broke = 0;
 178   fra.me.REG_size = 3;
 179   fra.me.REG[0] = NIT_NULL;
 180   fra.me.REG[1] = NIT_NULL;
 181   fra.me.REG[2] = NIT_NULL;
 182   fra.me.REG[0] = p0;
 183   /* ./program.nit:55 */
 184   fra.me.REG[1] = NEW_Array_array___Array___init();
 185   /* ./program.nit:56 */
 186   fra.me.REG[0] = CALL_program___Program___main_module(fra.me.REG[0])(fra.me.REG[0]);
 187   fra.me.REG[0] = CALL_abstractmetamodel___MMModule___local_classes(fra.me.REG[0])(fra.me.REG[0]);
 188   CALL_abstract_collection___Collection___iterate(fra.me.REG[0])(fra.me.REG[0], (&(fra.me)), ((fun_t)OC_program___Program___finish_processing_classes_1));
 189   /* ./../lib/standard//collection//array.nit:234 */
 190   REGB0 = TAG_Int(0);
 191   /* ./../lib/standard//collection//array.nit:235 */
 192   REGB1 = TAG_Bool(ATTR_array___AbstractArrayRead____length(fra.me.REG[1])!=NIT_NULL);
 193   if (UNTAG_Bool(REGB1)) {
 194   } else {
 195     nit_abort("Uninitialized attribute %s", "_length", LOCATE_array, 235);
 196   }
 197   REGB1 = ATTR_array___AbstractArrayRead____length(fra.me.REG[1]);
 198   /* ./../lib/standard//collection//array.nit:236 */
 199   fra.me.REG[0] = ATTR_array___Array____items(fra.me.REG[1]);
 200   /* ./../lib/standard//collection//array.nit:237 */
 201   while(1) {
 202     /* ./../lib/standard//collection//array.nit:23 */
 203     REGB1 = TAG_Bool(ATTR_array___AbstractArrayRead____length(fra.me.REG[1])!=NIT_NULL);
 204     if (UNTAG_Bool(REGB1)) {
 205     } else {
 206       nit_abort("Uninitialized attribute %s", "_length", LOCATE_array, 23);
 207     }
 208     REGB1 = ATTR_array___AbstractArrayRead____length(fra.me.REG[1]);
 209     /* ./../lib/standard//kernel.nit:212 */
 210     REGB1 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
 211     /* ./../lib/standard//collection//array.nit:237 */
 212     if (UNTAG_Bool(REGB1)) {
 213       /* ./../lib/standard//collection//array.nit:238 */
 214       REGB1 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
 215       if (UNTAG_Bool(REGB1)) {
 216         nit_abort("Reciever is null", NULL, LOCATE_array, 238);
 217       }
 218       /* ./../lib/standard//collection//array.nit:654 */
 219       fra.me.REG[2] = ((Nit_NativeArray)fra.me.REG[0])->val[UNTAG_Int(REGB0)];
 220       /* ./program.nit:62 */
 221       CALL_inheritance___MMLocalClass___compute_ancestors(fra.me.REG[2])(fra.me.REG[2]);
 222       /* ./../lib/standard//collection//array.nit:239 */
 223       REGB1 = TAG_Int(1);
 224       /* ./../lib/standard//kernel.nit:215 */
 225       REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
 226       /* ./../lib/standard//collection//array.nit:239 */
 227       REGB0 = REGB1;
 228     } else {
 229       /* ./../lib/standard//collection//array.nit:237 */
 230       goto label2;
 231     }
 232   }
 233   label2: while(0);
 234   stack_frame_head = fra.me.prev;
 235   return;
 236 }
 237   void OC_program___Program___finish_processing_classes_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
 238     struct {struct stack_frame_t me;} fra;
 239     fun_t CREG[1];
 240     val_t tmp;
 241     fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 242     fra.me.file = LOCATE_program;
 243     fra.me.line = 0;
 244     fra.me.meth = LOCATE_program___Program___finish_processing_classes;
 245     fra.me.has_broke = 0;
 246     fra.me.REG_size = 1;
 247     fra.me.REG[0] = NIT_NULL;
 248     fra.me.closure_ctx = closctx_param;
 249     fra.me.closure_funs = CREG;
 250     fra.me.REG[0] = p0;
 251     CREG[0] = clos_fun0;
 252     /* ./program.nit:57 */
 253     CALL_inheritance___MMLocalClass___compute_super_classes(fra.me.REG[0])(fra.me.REG[0]);
 254     /* ./program.nit:58 */
 255     CALL_abstract_collection___SimpleCollection___add(closctx->REG[1])(closctx->REG[1], fra.me.REG[0]);
 256     stack_frame_head = fra.me.prev;
 257     return;
 258   }
 259 void program___Program___compute_main_method(val_t p0){
 260   struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
 261   val_t REGB0;
 262   val_t tmp;
 263   static val_t once_value_1; /* Once value */
 264     static val_t once_value_2; /* Once value */
 265   static val_t once_value_4; /* Once value */
 266     static val_t once_value_5; /* Once value */
 267   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 268   fra.me.file = LOCATE_program;
 269   fra.me.line = 66;
 270   fra.me.meth = LOCATE_program___Program___compute_main_method;
 271   fra.me.has_broke = 0;
 272   fra.me.REG_size = 3;
 273   fra.me.REG[0] = NIT_NULL;
 274   fra.me.REG[1] = NIT_NULL;
 275   fra.me.REG[2] = NIT_NULL;
 276   fra.me.REG[0] = p0;
 277   /* ./program.nit:68 */
 278   if (!once_value_1) {
 279     if (!once_value_2) {
 280       fra.me.REG[1] = BOX_NativeString("Sys");
 281       REGB0 = TAG_Int(3);
 282       fra.me.REG[1] = NEW_String_string___String___with_native(fra.me.REG[1], REGB0);
 283       once_value_2 = fra.me.REG[1];
 284       register_static_object(&once_value_2);
 285     } else fra.me.REG[1] = once_value_2;
 286     fra.me.REG[1] = fra.me.REG[1];
 287     fra.me.REG[1] = CALL_symbol___String___to_symbol(fra.me.REG[1])(fra.me.REG[1]);
 288     once_value_1 = fra.me.REG[1];
 289     register_static_object(&once_value_1);
 290   } else fra.me.REG[1] = once_value_1;
 291   fra.me.REG[1] = fra.me.REG[1];
 292   /* ./program.nit:69 */
 293   fra.me.REG[2] = CALL_program___Program___main_module(fra.me.REG[0])(fra.me.REG[0]);
 294   REGB0 = CALL_abstractmetamodel___MMModule___has_global_class_named(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
 295   REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
 296   if (UNTAG_Bool(REGB0)) {
 297     goto label3;
 298   }
 299   /* ./program.nit:70 */
 300   fra.me.REG[2] = CALL_program___Program___main_module(fra.me.REG[0])(fra.me.REG[0]);
 301   fra.me.REG[1] = CALL_abstractmetamodel___MMModule___class_by_name(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
 302   /* ./program.nit:73 */
 303   if (!once_value_4) {
 304     if (!once_value_5) {
 305       fra.me.REG[2] = BOX_NativeString("main");
 306       REGB0 = TAG_Int(4);
 307       fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0);
 308       once_value_5 = fra.me.REG[2];
 309       register_static_object(&once_value_5);
 310     } else fra.me.REG[2] = once_value_5;
 311     fra.me.REG[2] = fra.me.REG[2];
 312     fra.me.REG[2] = CALL_symbol___String___to_symbol(fra.me.REG[2])(fra.me.REG[2]);
 313     once_value_4 = fra.me.REG[2];
 314     register_static_object(&once_value_4);
 315   } else fra.me.REG[2] = once_value_4;
 316   fra.me.REG[2] = fra.me.REG[2];
 317   /* ./program.nit:74 */
 318   REGB0 = CALL_abstractmetamodel___MMLocalClass___has_global_property_by_name(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
 319   REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
 320   if (UNTAG_Bool(REGB0)) {
 321     goto label3;
 322   }
 323   /* ./program.nit:76 */
 324   fra.me.REG[2] = CALL_abstractmetamodel___MMLocalClass___select_method(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
 325   ATTR_program___Program____main_method(fra.me.REG[0]) = fra.me.REG[2];
 326   /* ./program.nit:77 */
 327   ATTR_program___Program____main_class(fra.me.REG[0]) = fra.me.REG[1];
 328   label3: while(0);
 329   stack_frame_head = fra.me.prev;
 330   return;
 331 }
 332 void program___Program___generate_allocation_iroutines(val_t p0){
 333   struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
 334   val_t tmp;
 335   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 336   fra.me.file = LOCATE_program;
 337   fra.me.line = 80;
 338   fra.me.meth = LOCATE_program___Program___generate_allocation_iroutines;
 339   fra.me.has_broke = 0;
 340   fra.me.REG_size = 5;
 341   fra.me.REG[0] = NIT_NULL;
 342   fra.me.REG[1] = NIT_NULL;
 343   fra.me.REG[2] = NIT_NULL;
 344   fra.me.REG[3] = NIT_NULL;
 345   fra.me.REG[4] = NIT_NULL;
 346   fra.me.REG[0] = p0;
 347   /* ./program.nit:83 */
 348   fra.me.REG[1] = CALL_program___Program___main_module(fra.me.REG[0])(fra.me.REG[0]);
 349   fra.me.REG[1] = CALL_abstractmetamodel___MMModule___local_classes(fra.me.REG[1])(fra.me.REG[1]);
 350   CALL_abstract_collection___Collection___iterate(fra.me.REG[1])(fra.me.REG[1], (&(fra.me)), ((fun_t)OC_program___Program___generate_allocation_iroutines_1));
 351   stack_frame_head = fra.me.prev;
 352   return;
 353 }
 354   void OC_program___Program___generate_allocation_iroutines_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
 355     struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
 356     val_t REGB0;
 357     val_t REGB1;
 358     fun_t CREG[1];
 359     val_t tmp;
 360     fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 361     fra.me.file = LOCATE_program;
 362     fra.me.line = 0;
 363     fra.me.meth = LOCATE_program___Program___generate_allocation_iroutines;
 364     fra.me.has_broke = 0;
 365     fra.me.REG_size = 2;
 366     fra.me.REG[0] = NIT_NULL;
 367     fra.me.REG[1] = NIT_NULL;
 368     fra.me.closure_ctx = closctx_param;
 369     fra.me.closure_funs = CREG;
 370     fra.me.REG[0] = p0;
 371     CREG[0] = clos_fun0;
 372     closctx->REG[1] = fra.me.REG[0];
 373     /* ./program.nit:84 */
 374     fra.me.REG[0] = CALL_abstractmetamodel___MMLocalClass___global(closctx->REG[1])(closctx->REG[1]);
 375     REGB0 = CALL_abstractmetamodel___MMGlobalClass___is_abstract(fra.me.REG[0])(fra.me.REG[0]);
 376     if (UNTAG_Bool(REGB0)) {
 377       REGB0 = TAG_Bool(true);
 378     } else {
 379       fra.me.REG[0] = CALL_abstractmetamodel___MMLocalClass___global(closctx->REG[1])(closctx->REG[1]);
 380       REGB1 = CALL_abstractmetamodel___MMGlobalClass___is_interface(fra.me.REG[0])(fra.me.REG[0]);
 381       REGB0 = REGB1;
 382     }
 383     if (UNTAG_Bool(REGB0)) {
 384       goto label2;
 385     }
 386     /* ./program.nit:85 */
 387     fra.me.REG[0] = CALL_primitive_info___MMLocalClass___primitive_info(closctx->REG[1])(closctx->REG[1]);
 388     /* ./program.nit:86 */
 389     REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
 390     if (UNTAG_Bool(REGB0)) {
 391     } else {
 392       REGB1 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
 393       if (UNTAG_Bool(REGB1)) {
 394         REGB1 = TAG_Bool(false);
 395         REGB0 = REGB1;
 396       } else {
 397         REGB1 = CALL_kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], NIT_NULL);
 398         REGB0 = REGB1;
 399       }
 400     }
 401     if (UNTAG_Bool(REGB0)) {
 402       /* ./program.nit:89 */
 403       fra.me.REG[0] = CALL_static_type___MMLocalClass___get_type(closctx->REG[1])(closctx->REG[1]);
 404       fra.me.REG[0] = NEW_IRegister_icode_base___IRegister___init(fra.me.REG[0]);
 405       closctx->REG[2] = fra.me.REG[0];
 406       /* ./program.nit:90 */
 407       REGB0 = TAG_Int(1);
 408       fra.me.REG[0] = NEW_Array_array___Array___with_capacity(REGB0);
 409       CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], closctx->REG[2]);
 410       closctx->REG[3] = fra.me.REG[0];
 411       /* ./program.nit:91 */
 412       fra.me.REG[0] = NEW_IRoutine_icode_base___IRoutine___init(closctx->REG[3], NIT_NULL);
 413       /* ./program.nit:92 */
 414       fra.me.REG[1] = CALL_program___Program___main_module(closctx->REG[0])(closctx->REG[0]);
 415       fra.me.REG[1] = NEW_ICodeBuilder_icode_builder___ICodeBuilder___init(fra.me.REG[1], fra.me.REG[0]);
 416       closctx->REG[4] = fra.me.REG[1];
 417       /* ./program.nit:94 */
 418       fra.me.REG[1] = CALL_abstractmetamodel___MMLocalClass___global_properties(closctx->REG[1])(closctx->REG[1]);
 419       CALL_abstract_collection___Collection___iterate(fra.me.REG[1])(fra.me.REG[1], closctx, ((fun_t)OC_program___Program___generate_allocation_iroutines_3));
 420       /* ./program.nit:107 */
 421       CALL_program___MMLocalClass___init_var_iroutine__eq(closctx->REG[1])(closctx->REG[1], fra.me.REG[0]);
 422       /* ./program.nit:111 */
 423       fra.me.REG[0] = CALL_static_type___MMLocalClass___get_type(closctx->REG[1])(closctx->REG[1]);
 424       fra.me.REG[0] = NEW_IRegister_icode_base___IRegister___init(fra.me.REG[0]);
 425       closctx->REG[4] = fra.me.REG[0];
 426       /* ./program.nit:112 */
 427       REGB0 = TAG_Int(1);
 428       fra.me.REG[0] = NEW_Array_array___Array___with_capacity(REGB0);
 429       CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], closctx->REG[4]);
 430       /* ./program.nit:113 */
 431       fra.me.REG[0] = NEW_IRoutine_icode_base___IRoutine___init(fra.me.REG[0], NIT_NULL);
 432       /* ./program.nit:114 */
 433       fra.me.REG[1] = CALL_program___Program___main_module(closctx->REG[0])(closctx->REG[0]);
 434       fra.me.REG[1] = NEW_ICodeBuilder_icode_builder___ICodeBuilder___init(fra.me.REG[1], fra.me.REG[0]);
 435       closctx->REG[2] = fra.me.REG[1];
 436       /* ./program.nit:115 */
 437       fra.me.REG[1] = CALL_abstractmetamodel___MMLocalClass___global_properties(closctx->REG[1])(closctx->REG[1]);
 438       CALL_abstract_collection___Collection___iterate(fra.me.REG[1])(fra.me.REG[1], closctx, ((fun_t)OC_program___Program___generate_allocation_iroutines_5));
 439       /* ./program.nit:124 */
 440       CALL_program___MMLocalClass___checknew_iroutine__eq(closctx->REG[1])(closctx->REG[1], fra.me.REG[0]);
 441       /* ./program.nit:127 */
 442       fra.me.REG[0] = CALL_abstractmetamodel___MMLocalClass___global_properties(closctx->REG[1])(closctx->REG[1]);
 443       CALL_abstract_collection___Collection___iterate(fra.me.REG[0])(fra.me.REG[0], closctx, ((fun_t)OC_program___Program___generate_allocation_iroutines_7));
 444     }
 445     label2: while(0);
 446     stack_frame_head = fra.me.prev;
 447     return;
 448   }
 449       void OC_program___Program___generate_allocation_iroutines_3(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
 450         struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
 451         val_t REGB0;
 452         val_t REGB1;
 453         fun_t CREG[1];
 454         val_t tmp;
 455         fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 456         fra.me.file = LOCATE_program;
 457         fra.me.line = 0;
 458         fra.me.meth = LOCATE_program___Program___generate_allocation_iroutines;
 459         fra.me.has_broke = 0;
 460         fra.me.REG_size = 2;
 461         fra.me.REG[0] = NIT_NULL;
 462         fra.me.REG[1] = NIT_NULL;
 463         fra.me.closure_ctx = closctx_param;
 464         fra.me.closure_funs = CREG;
 465         fra.me.REG[0] = p0;
 466         CREG[0] = clos_fun0;
 467         /* ./program.nit:95 */
 468         fra.me.REG[1] = CALL_abstractmetamodel___MMGlobalProperty___intro(fra.me.REG[0])(fra.me.REG[0]);
 469         REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[1], COLOR_MMAttribute, ID_MMAttribute)) /*cast MMAttribute*/;
 470         REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
 471         if (UNTAG_Bool(REGB0)) {
 472           goto label4;
 473         }
 474         /* ./program.nit:96 */
 475         fra.me.REG[0] = CALL_abstractmetamodel___MMLocalClass_____bra(closctx->REG[1])(closctx->REG[1], fra.me.REG[0]);
 476         /* ./program.nit:97 */
 477         fra.me.REG[1] = CALL_static_type___MMLocalProperty___signature(fra.me.REG[0])(fra.me.REG[0]);
 478         REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
 479         if (UNTAG_Bool(REGB0)) {
 480           nit_abort("Reciever is null", NULL, LOCATE_program, 97);
 481         }
 482         fra.me.REG[1] = CALL_static_type___MMSignature___return_type(fra.me.REG[1])(fra.me.REG[1]);
 483         /* ./program.nit:98 */
 484         REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[0], COLOR_MMAttribute, ID_MMAttribute)) /*cast MMAttribute*/;
 485         if (UNTAG_Bool(REGB0)) {
 486           REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
 487           if (UNTAG_Bool(REGB0)) {
 488           } else {
 489             REGB1 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
 490             if (UNTAG_Bool(REGB1)) {
 491               REGB1 = TAG_Bool(false);
 492               REGB0 = REGB1;
 493             } else {
 494               REGB1 = CALL_kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], NIT_NULL);
 495               REGB0 = REGB1;
 496             }
 497           }
 498           REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
 499         } else {
 500           REGB1 = TAG_Bool(false);
 501           REGB0 = REGB1;
 502         }
 503         if (UNTAG_Bool(REGB0)) {
 504           /* ./program.nit:99 */
 505           fra.me.REG[1] = CALL_icode_base___MMAttribute___iroutine(fra.me.REG[0])(fra.me.REG[0]);
 506           /* ./program.nit:100 */
 507           REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
 508           if (UNTAG_Bool(REGB0)) {
 509           } else {
 510             REGB1 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
 511             if (UNTAG_Bool(REGB1)) {
 512               REGB1 = TAG_Bool(false);
 513               REGB0 = REGB1;
 514             } else {
 515               REGB1 = CALL_kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], NIT_NULL);
 516               REGB0 = REGB1;
 517             }
 518           }
 519           if (UNTAG_Bool(REGB0)) {
 520             goto label4;
 521           }
 522           /* ./program.nit:102 */
 523           fra.me.REG[1] = CALL_icode_tools___ICodeBuilder___inline_routine(closctx->REG[4])(closctx->REG[4], fra.me.REG[1], closctx->REG[3], NIT_NULL);
 524           REGB0 = TAG_Bool((fra.me.REG[1]!=NIT_NULL) && VAL_ISA(fra.me.REG[1], COLOR_IRegister, ID_IRegister)) /*cast IRegister*/;
 525           if (UNTAG_Bool(REGB0)) {
 526           } else {
 527             nit_abort("Cast failed", NULL, LOCATE_program, 102);
 528           }
 529           /* ./program.nit:103 */
 530           fra.me.REG[1] = NEW_IAttrWrite_icode_base___IAttrWrite___init(fra.me.REG[0], closctx->REG[2], fra.me.REG[1]);
 531           CALL_icode_builder___ICodeBuilder___stmt(closctx->REG[4])(closctx->REG[4], fra.me.REG[1]);
 532         }
 533         label4: while(0);
 534         stack_frame_head = fra.me.prev;
 535         return;
 536       }
 537       void OC_program___Program___generate_allocation_iroutines_5(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
 538         struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
 539         val_t REGB0;
 540         val_t REGB1;
 541         fun_t CREG[1];
 542         val_t tmp;
 543         fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 544         fra.me.file = LOCATE_program;
 545         fra.me.line = 0;
 546         fra.me.meth = LOCATE_program___Program___generate_allocation_iroutines;
 547         fra.me.has_broke = 0;
 548         fra.me.REG_size = 2;
 549         fra.me.REG[0] = NIT_NULL;
 550         fra.me.REG[1] = NIT_NULL;
 551         fra.me.closure_ctx = closctx_param;
 552         fra.me.closure_funs = CREG;
 553         fra.me.REG[0] = p0;
 554         CREG[0] = clos_fun0;
 555         /* ./program.nit:116 */
 556         fra.me.REG[1] = CALL_abstractmetamodel___MMGlobalProperty___intro(fra.me.REG[0])(fra.me.REG[0]);
 557         REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[1], COLOR_MMAttribute, ID_MMAttribute)) /*cast MMAttribute*/;
 558         REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
 559         if (UNTAG_Bool(REGB0)) {
 560           goto label6;
 561         }
 562         /* ./program.nit:117 */
 563         fra.me.REG[0] = CALL_abstractmetamodel___MMLocalClass_____bra(closctx->REG[1])(closctx->REG[1], fra.me.REG[0]);
 564         /* ./program.nit:118 */
 565         fra.me.REG[1] = CALL_static_type___MMLocalProperty___signature(fra.me.REG[0])(fra.me.REG[0]);
 566         REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
 567         if (UNTAG_Bool(REGB0)) {
 568           nit_abort("Reciever is null", NULL, LOCATE_program, 118);
 569         }
 570         fra.me.REG[1] = CALL_static_type___MMSignature___return_type(fra.me.REG[1])(fra.me.REG[1]);
 571         /* ./program.nit:119 */
 572         REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[0], COLOR_MMAttribute, ID_MMAttribute)) /*cast MMAttribute*/;
 573         if (UNTAG_Bool(REGB0)) {
 574           REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
 575           if (UNTAG_Bool(REGB0)) {
 576           } else {
 577             REGB1 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
 578             if (UNTAG_Bool(REGB1)) {
 579               REGB1 = TAG_Bool(false);
 580               REGB0 = REGB1;
 581             } else {
 582               REGB1 = CALL_kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], NIT_NULL);
 583               REGB0 = REGB1;
 584             }
 585           }
 586           REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
 587         } else {
 588           REGB1 = TAG_Bool(false);
 589           REGB0 = REGB1;
 590         }
 591         if (UNTAG_Bool(REGB0)) {
 592           REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
 593           if (UNTAG_Bool(REGB0)) {
 594             nit_abort("Reciever is null", NULL, LOCATE_program, 119);
 595           }
 596           REGB0 = CALL_static_type___MMType___is_nullable(fra.me.REG[1])(fra.me.REG[1]);
 597           REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
 598         } else {
 599           REGB1 = TAG_Bool(false);
 600           REGB0 = REGB1;
 601         }
 602         if (UNTAG_Bool(REGB0)) {
 603           /* ./program.nit:120 */
 604           CALL_icode_builder___ICodeBuilder___add_attr_check(closctx->REG[2])(closctx->REG[2], fra.me.REG[0], closctx->REG[4]);
 605         }
 606         label6: while(0);
 607         stack_frame_head = fra.me.prev;
 608         return;
 609       }
 610       void OC_program___Program___generate_allocation_iroutines_7(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
 611         struct {struct stack_frame_t me; val_t MORE_REG[5];} fra;
 612         val_t REGB0;
 613         val_t REGB1;
 614         val_t REGB2;
 615         val_t REGB3;
 616         fun_t CREG[1];
 617         val_t tmp;
 618         fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 619         fra.me.file = LOCATE_program;
 620         fra.me.line = 0;
 621         fra.me.meth = LOCATE_program___Program___generate_allocation_iroutines;
 622         fra.me.has_broke = 0;
 623         fra.me.REG_size = 6;
 624         fra.me.REG[0] = NIT_NULL;
 625         fra.me.REG[1] = NIT_NULL;
 626         fra.me.REG[2] = NIT_NULL;
 627         fra.me.REG[3] = NIT_NULL;
 628         fra.me.REG[4] = NIT_NULL;
 629         fra.me.REG[5] = NIT_NULL;
 630         fra.me.closure_ctx = closctx_param;
 631         fra.me.closure_funs = CREG;
 632         fra.me.REG[0] = p0;
 633         CREG[0] = clos_fun0;
 634         /* ./program.nit:129 */
 635         REGB0 = CALL_abstractmetamodel___MMGlobalProperty___is_init_for(fra.me.REG[0])(fra.me.REG[0], closctx->REG[1]);
 636         REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
 637         if (UNTAG_Bool(REGB0)) {
 638           goto label8;
 639         }
 640         /* ./program.nit:130 */
 641         fra.me.REG[0] = CALL_abstractmetamodel___MMLocalClass_____bra(closctx->REG[1])(closctx->REG[1], fra.me.REG[0]);
 642         /* ./program.nit:131 */
 643         REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[0], COLOR_MMMethod, ID_MMMethod)) /*cast MMMethod*/;
 644         if (UNTAG_Bool(REGB0)) {
 645         } else {
 646           nit_abort("Assert failed", NULL, LOCATE_program, 131);
 647         }
 648         /* ./program.nit:133 */
 649         fra.me.REG[1] = CALL_static_type___MMLocalClass___get_type(closctx->REG[1])(closctx->REG[1]);
 650         fra.me.REG[1] = NEW_IRegister_icode_base___IRegister___init(fra.me.REG[1]);
 651         /* ./program.nit:134 */
 652         fra.me.REG[2] = NEW_Array_array___Array___init();
 653         /* ./program.nit:135 */
 654         REGB0 = TAG_Int(0);
 655         fra.me.REG[3] = CALL_static_type___MMLocalProperty___signature(fra.me.REG[0])(fra.me.REG[0]);
 656         REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
 657         if (UNTAG_Bool(REGB1)) {
 658           nit_abort("Reciever is null", NULL, LOCATE_program, 135);
 659         }
 660         REGB1 = CALL_static_type___MMSignature___arity(fra.me.REG[3])(fra.me.REG[3]);
 661         /* ./../lib/standard//kernel.nit:332 */
 662         while(1) {
 663           /* ./../lib/standard//kernel.nit:212 */
 664           REGB2 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
 665           /* ./../lib/standard//kernel.nit:332 */
 666           if (UNTAG_Bool(REGB2)) {
 667             /* ./program.nit:135 */
 668             REGB2 = REGB0;
 669             fra.me.REG[3] = CALL_static_type___MMLocalProperty___signature(fra.me.REG[0])(fra.me.REG[0]);
 670             REGB3 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
 671             if (UNTAG_Bool(REGB3)) {
 672               nit_abort("Reciever is null", NULL, LOCATE_program, 135);
 673             }
 674             fra.me.REG[3] = CALL_static_type___MMSignature_____bra(fra.me.REG[3])(fra.me.REG[3], REGB2);
 675             fra.me.REG[3] = NEW_IRegister_icode_base___IRegister___init(fra.me.REG[3]);
 676             CALL_abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
 677             /* ./../lib/standard//kernel.nit:334 */
 678             REGB2 = TAG_Int(1);
 679             /* ./../lib/standard//kernel.nit:215 */
 680             REGB2 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB2));
 681             /* ./../lib/standard//kernel.nit:334 */
 682             REGB0 = REGB2;
 683           } else {
 684             /* ./../lib/standard//kernel.nit:332 */
 685             goto label9;
 686           }
 687         }
 688         label9: while(0);
 689         /* ./program.nit:136 */
 690         fra.me.REG[3] = NEW_IRoutine_icode_base___IRoutine___init(fra.me.REG[2], fra.me.REG[1]);
 691         /* ./program.nit:137 */
 692         fra.me.REG[4] = CALL_icode_base___MMMethod___iroutine(fra.me.REG[0])(fra.me.REG[0]);
 693         REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
 694         if (UNTAG_Bool(REGB0)) {
 695           nit_abort("Reciever is null", NULL, LOCATE_program, 137);
 696         }
 697         fra.me.REG[4] = CALL_icode_base___IRoutine___location(fra.me.REG[4])(fra.me.REG[4]);
 698         CALL_icode_base___IRoutine___location__eq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
 699         /* ./program.nit:138 */
 700         fra.me.REG[4] = CALL_program___Program___main_module(closctx->REG[0])(closctx->REG[0]);
 701         fra.me.REG[4] = NEW_ICodeBuilder_icode_builder___ICodeBuilder___init(fra.me.REG[4], fra.me.REG[3]);
 702         /* ./program.nit:140 */
 703         fra.me.REG[5] = CALL_static_type___MMLocalClass___get_type(closctx->REG[1])(closctx->REG[1]);
 704         fra.me.REG[5] = NEW_IAllocateInstance_icode_base___IAllocateInstance___init(fra.me.REG[5]);
 705         /* ./program.nit:141 */
 706         CALL_icode_base___ICode___result__eq(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1]);
 707         /* ./program.nit:142 */
 708         CALL_icode_builder___ICodeBuilder___stmt(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
 709         /* ./program.nit:143 */
 710         REGB0 = TAG_Int(1);
 711         fra.me.REG[5] = NEW_Array_array___Array___with_capacity(REGB0);
 712         CALL_abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1]);
 713         /* ./program.nit:144 */
 714         CALL_abstract_collection___SimpleCollection___add_all(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[2]);
 715         /* ./program.nit:146 */
 716         fra.me.REG[2] = CALL_static_type___MMLocalClass___get_type(closctx->REG[1])(closctx->REG[1]);
 717         fra.me.REG[2] = NEW_IInitAttributes_icode_base___IInitAttributes___init(fra.me.REG[2], fra.me.REG[1]);
 718         CALL_icode_builder___ICodeBuilder___stmt(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
 719         /* ./program.nit:147 */
 720         fra.me.REG[5] = NEW_IStaticCall_icode_base___IStaticCall___init(fra.me.REG[0], fra.me.REG[5]);
 721         CALL_icode_builder___ICodeBuilder___stmt(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
 722         /* ./program.nit:148 */
 723         fra.me.REG[5] = CALL_static_type___MMLocalClass___get_type(closctx->REG[1])(closctx->REG[1]);
 724         fra.me.REG[1] = NEW_ICheckInstance_icode_base___ICheckInstance___init(fra.me.REG[5], fra.me.REG[1]);
 725         CALL_icode_builder___ICodeBuilder___stmt(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[1]);
 726         /* ./program.nit:150 */
 727         fra.me.REG[1] = CALL_program___MMLocalClass___new_instance_iroutine(closctx->REG[1])(closctx->REG[1]);
 728         CALL_abstract_collection___Map_____braeq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[3]);
 729         label8: while(0);
 730         stack_frame_head = fra.me.prev;
 731         return;
 732       }
 733 void program___Program___with_each_iroutines(val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
 734   struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
 735   val_t REGB0;
 736   fun_t CREG[1];
 737   val_t tmp;
 738   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 739   fra.me.file = LOCATE_program;
 740   fra.me.line = 156;
 741   fra.me.meth = LOCATE_program___Program___with_each_iroutines;
 742   fra.me.has_broke = 0;
 743   fra.me.REG_size = 2;
 744   fra.me.REG[0] = NIT_NULL;
 745   fra.me.REG[1] = NIT_NULL;
 746   fra.me.closure_ctx = closctx_param;
 747   fra.me.closure_funs = CREG;
 748   fra.me.REG[0] = p0;
 749   CREG[0] = clos_fun0;
 750   /* ./program.nit:161 */
 751   fra.me.REG[0] = CALL_program___Program___main_module(fra.me.REG[0])(fra.me.REG[0]);
 752   fra.me.REG[0] = CALL_abstractmetamodel___MMModule___mhe(fra.me.REG[0])(fra.me.REG[0]);
 753   REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
 754   if (UNTAG_Bool(REGB0)) {
 755     nit_abort("Reciever is null", NULL, LOCATE_program, 161);
 756   }
 757   fra.me.REG[0] = CALL_partial_order___PartialOrderElement___greaters_and_self(fra.me.REG[0])(fra.me.REG[0]);
 758   CALL_abstract_collection___Collection___iterate(fra.me.REG[0])(fra.me.REG[0], (&(fra.me)), ((fun_t)OC_program___Program___with_each_iroutines_1));
 759   switch ((&(fra.me))->has_broke) {
 760     case 0: break;
 761     case 1: (&(fra.me))->has_broke = 0; goto label9;
 762   }
 763   label9: while(0);
 764   stack_frame_head = fra.me.prev;
 765   return;
 766 }
 767   void OC_program___Program___with_each_iroutines_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
 768     struct {struct stack_frame_t me;} fra;
 769     fun_t CREG[1];
 770     val_t tmp;
 771     fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 772     fra.me.file = LOCATE_program;
 773     fra.me.line = 0;
 774     fra.me.meth = LOCATE_program___Program___with_each_iroutines;
 775     fra.me.has_broke = 0;
 776     fra.me.REG_size = 1;
 777     fra.me.REG[0] = NIT_NULL;
 778     fra.me.closure_ctx = closctx_param;
 779     fra.me.closure_funs = CREG;
 780     fra.me.REG[0] = p0;
 781     CREG[0] = clos_fun0;
 782     closctx->REG[0] = fra.me.REG[0];
 783     /* ./program.nit:162 */
 784     fra.me.REG[0] = CALL_abstractmetamodel___MMModule___local_classes(closctx->REG[0])(closctx->REG[0]);
 785     CALL_abstract_collection___Collection___iterate(fra.me.REG[0])(fra.me.REG[0], closctx, ((fun_t)OC_program___Program___with_each_iroutines_2));
 786     switch (closctx->has_broke) {
 787       case 0: break;
 788       default: goto label8;
 789     }
 790     label8: while(0);
 791     stack_frame_head = fra.me.prev;
 792     return;
 793   }
 794     void OC_program___Program___with_each_iroutines_2(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
 795       struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
 796       val_t REGB0;
 797       val_t REGB1;
 798       fun_t CREG[1];
 799       val_t tmp;
 800       fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 801       fra.me.file = LOCATE_program;
 802       fra.me.line = 0;
 803       fra.me.meth = LOCATE_program___Program___with_each_iroutines;
 804       fra.me.has_broke = 0;
 805       fra.me.REG_size = 2;
 806       fra.me.REG[0] = NIT_NULL;
 807       fra.me.REG[1] = NIT_NULL;
 808       fra.me.closure_ctx = closctx_param;
 809       fra.me.closure_funs = CREG;
 810       fra.me.REG[0] = p0;
 811       CREG[0] = clos_fun0;
 812       /* ./program.nit:163 */
 813       closctx->REG[1] = NIT_NULL;
 814       /* ./program.nit:166 */
 815       fra.me.REG[1] = CALL_abstractmetamodel___MMLocalClass___local_local_properties(fra.me.REG[0])(fra.me.REG[0]);
 816       CALL_abstract_collection___Collection___iterate(fra.me.REG[1])(fra.me.REG[1], closctx, ((fun_t)OC_program___Program___with_each_iroutines_3));
 817       switch (closctx->has_broke) {
 818         case 0: break;
 819         default: goto label5;
 820       }
 821       /* ./program.nit:177 */
 822       fra.me.REG[1] = CALL_program___MMLocalClass___init_var_iroutine(fra.me.REG[0])(fra.me.REG[0]);
 823       closctx->REG[1] = fra.me.REG[1];
 824       /* ./program.nit:178 */
 825       REGB0 = TAG_Bool(closctx->REG[1]==NIT_NULL);
 826       if (UNTAG_Bool(REGB0)) {
 827       } else {
 828         REGB1 = TAG_Bool(closctx->REG[1]==NIT_NULL);
 829         if (UNTAG_Bool(REGB1)) {
 830           REGB1 = TAG_Bool(false);
 831           REGB0 = REGB1;
 832         } else {
 833           REGB1 = CALL_kernel___Object_____eqeq(closctx->REG[1])(closctx->REG[1], NIT_NULL);
 834           REGB0 = REGB1;
 835         }
 836       }
 837       REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
 838       if (UNTAG_Bool(REGB0)) {
 839         /* ./program.nit:179 */
 840         ((void (*)(struct stack_frame_t *, val_t, val_t))(closctx->closure_funs[0]))(closctx->closure_ctx, closctx->REG[1], closctx->REG[0]);
 841         if (closctx->closure_ctx->has_broke) {
 842           closctx->has_broke = 1;
 843           goto label5;
 844         }
 845       }
 846       /* ./program.nit:181 */
 847       fra.me.REG[1] = CALL_program___MMLocalClass___checknew_iroutine(fra.me.REG[0])(fra.me.REG[0]);
 848       closctx->REG[1] = fra.me.REG[1];
 849       /* ./program.nit:182 */
 850       REGB0 = TAG_Bool(closctx->REG[1]==NIT_NULL);
 851       if (UNTAG_Bool(REGB0)) {
 852       } else {
 853         REGB1 = TAG_Bool(closctx->REG[1]==NIT_NULL);
 854         if (UNTAG_Bool(REGB1)) {
 855           REGB1 = TAG_Bool(false);
 856           REGB0 = REGB1;
 857         } else {
 858           REGB1 = CALL_kernel___Object_____eqeq(closctx->REG[1])(closctx->REG[1], NIT_NULL);
 859           REGB0 = REGB1;
 860         }
 861       }
 862       REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
 863       if (UNTAG_Bool(REGB0)) {
 864         /* ./program.nit:183 */
 865         ((void (*)(struct stack_frame_t *, val_t, val_t))(closctx->closure_funs[0]))(closctx->closure_ctx, closctx->REG[1], closctx->REG[0]);
 866         if (closctx->closure_ctx->has_broke) {
 867           closctx->has_broke = 1;
 868           goto label5;
 869         }
 870       }
 871       /* ./program.nit:185 */
 872       fra.me.REG[0] = CALL_program___MMLocalClass___new_instance_iroutine(fra.me.REG[0])(fra.me.REG[0]);
 873       CALL_abstract_collection___Collection___iterate(fra.me.REG[0])(fra.me.REG[0], closctx, ((fun_t)OC_program___Program___with_each_iroutines_6));
 874       switch (closctx->has_broke) {
 875         case 0: break;
 876         default: goto label5;
 877       }
 878       label5: while(0);
 879       stack_frame_head = fra.me.prev;
 880       return;
 881     }
 882       void OC_program___Program___with_each_iroutines_3(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
 883         struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
 884         val_t REGB0;
 885         val_t REGB1;
 886         fun_t CREG[1];
 887         val_t tmp;
 888         fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 889         fra.me.file = LOCATE_program;
 890         fra.me.line = 0;
 891         fra.me.meth = LOCATE_program___Program___with_each_iroutines;
 892         fra.me.has_broke = 0;
 893         fra.me.REG_size = 2;
 894         fra.me.REG[0] = NIT_NULL;
 895         fra.me.REG[1] = NIT_NULL;
 896         fra.me.closure_ctx = closctx_param;
 897         fra.me.closure_funs = CREG;
 898         fra.me.REG[0] = p0;
 899         CREG[0] = clos_fun0;
 900         /* ./program.nit:167 */
 901         REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[0], COLOR_MMAttribute, ID_MMAttribute)) /*cast MMAttribute*/;
 902         if (UNTAG_Bool(REGB0)) {
 903           /* ./program.nit:168 */
 904           fra.me.REG[1] = CALL_icode_base___MMAttribute___iroutine(fra.me.REG[0])(fra.me.REG[0]);
 905           closctx->REG[1] = fra.me.REG[1];
 906         } else {
 907           /* ./program.nit:169 */
 908           REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[0], COLOR_MMMethod, ID_MMMethod)) /*cast MMMethod*/;
 909           if (UNTAG_Bool(REGB0)) {
 910             /* ./program.nit:170 */
 911             fra.me.REG[0] = CALL_icode_base___MMMethod___iroutine(fra.me.REG[0])(fra.me.REG[0]);
 912             closctx->REG[1] = fra.me.REG[0];
 913           }
 914         }
 915         /* ./program.nit:172 */
 916         REGB0 = TAG_Bool(closctx->REG[1]==NIT_NULL);
 917         if (UNTAG_Bool(REGB0)) {
 918         } else {
 919           REGB1 = TAG_Bool(closctx->REG[1]==NIT_NULL);
 920           if (UNTAG_Bool(REGB1)) {
 921             REGB1 = TAG_Bool(false);
 922             REGB0 = REGB1;
 923           } else {
 924             REGB1 = CALL_kernel___Object_____eqeq(closctx->REG[1])(closctx->REG[1], NIT_NULL);
 925             REGB0 = REGB1;
 926           }
 927         }
 928         if (UNTAG_Bool(REGB0)) {
 929           goto label4;
 930         }
 931         /* ./program.nit:173 */
 932         ((void (*)(struct stack_frame_t *, val_t, val_t))(closctx->closure_funs[0]))(closctx->closure_ctx, closctx->REG[1], closctx->REG[0]);
 933         if (closctx->closure_ctx->has_broke) {
 934           closctx->has_broke = 1;
 935           goto label4;
 936         }
 937         label4: while(0);
 938         stack_frame_head = fra.me.prev;
 939         return;
 940       }
 941       void OC_program___Program___with_each_iroutines_6(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
 942         struct {struct stack_frame_t me;} fra;
 943         fun_t CREG[1];
 944         val_t tmp;
 945         fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 946         fra.me.file = LOCATE_program;
 947         fra.me.line = 0;
 948         fra.me.meth = LOCATE_program___Program___with_each_iroutines;
 949         fra.me.has_broke = 0;
 950         fra.me.REG_size = 1;
 951         fra.me.REG[0] = NIT_NULL;
 952         fra.me.closure_ctx = closctx_param;
 953         fra.me.closure_funs = CREG;
 954         fra.me.REG[0] = p0;
 955         CREG[0] = clos_fun0;
 956         /* ./program.nit:186 */
 957         ((void (*)(struct stack_frame_t *, val_t, val_t))(closctx->closure_funs[0]))(closctx->closure_ctx, fra.me.REG[0], closctx->REG[0]);
 958         if (closctx->closure_ctx->has_broke) {
 959           closctx->has_broke = 1;
 960           goto label7;
 961         }
 962         label7: while(0);
 963         stack_frame_head = fra.me.prev;
 964         return;
 965       }
 966 void program___Program___with_each_methods(val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
 967   struct {struct stack_frame_t me;} fra;
 968   val_t REGB0;
 969   fun_t CREG[1];
 970   val_t tmp;
 971   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 972   fra.me.file = LOCATE_program;
 973   fra.me.line = 192;
 974   fra.me.meth = LOCATE_program___Program___with_each_methods;
 975   fra.me.has_broke = 0;
 976   fra.me.REG_size = 1;
 977   fra.me.REG[0] = NIT_NULL;
 978   fra.me.closure_ctx = closctx_param;
 979   fra.me.closure_funs = CREG;
 980   fra.me.REG[0] = p0;
 981   CREG[0] = clos_fun0;
 982   /* ./program.nit:197 */
 983   fra.me.REG[0] = CALL_program___Program___main_module(fra.me.REG[0])(fra.me.REG[0]);
 984   fra.me.REG[0] = CALL_abstractmetamodel___MMModule___mhe(fra.me.REG[0])(fra.me.REG[0]);
 985   REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
 986   if (UNTAG_Bool(REGB0)) {
 987     nit_abort("Reciever is null", NULL, LOCATE_program, 197);
 988   }
 989   fra.me.REG[0] = CALL_partial_order___PartialOrderElement___greaters_and_self(fra.me.REG[0])(fra.me.REG[0]);
 990   CALL_abstract_collection___Collection___iterate(fra.me.REG[0])(fra.me.REG[0], (&(fra.me)), ((fun_t)OC_program___Program___with_each_methods_1));
 991   switch ((&(fra.me))->has_broke) {
 992     case 0: break;
 993     case 1: (&(fra.me))->has_broke = 0; goto label7;
 994   }
 995   label7: while(0);
 996   stack_frame_head = fra.me.prev;
 997   return;
 998 }
 999   void OC_program___Program___with_each_methods_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
1000     struct {struct stack_frame_t me;} fra;
1001     fun_t CREG[1];
1002     val_t tmp;
1003     fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
1004     fra.me.file = LOCATE_program;
1005     fra.me.line = 0;
1006     fra.me.meth = LOCATE_program___Program___with_each_methods;
1007     fra.me.has_broke = 0;
1008     fra.me.REG_size = 1;
1009     fra.me.REG[0] = NIT_NULL;
1010     fra.me.closure_ctx = closctx_param;
1011     fra.me.closure_funs = CREG;
1012     fra.me.REG[0] = p0;
1013     CREG[0] = clos_fun0;
1014     /* ./program.nit:198 */
1015     fra.me.REG[0] = CALL_abstractmetamodel___MMModule___local_classes(fra.me.REG[0])(fra.me.REG[0]);
1016     CALL_abstract_collection___Collection___iterate(fra.me.REG[0])(fra.me.REG[0], closctx, ((fun_t)OC_program___Program___with_each_methods_2));
1017     switch (closctx->has_broke) {
1018       case 0: break;
1019       default: goto label6;
1020     }
1021     label6: while(0);
1022     stack_frame_head = fra.me.prev;
1023     return;
1024   }
1025     void OC_program___Program___with_each_methods_2(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
1026       struct {struct stack_frame_t me;} fra;
1027       fun_t CREG[1];
1028       val_t tmp;
1029       fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
1030       fra.me.file = LOCATE_program;
1031       fra.me.line = 0;
1032       fra.me.meth = LOCATE_program___Program___with_each_methods;
1033       fra.me.has_broke = 0;
1034       fra.me.REG_size = 1;
1035       fra.me.REG[0] = NIT_NULL;
1036       fra.me.closure_ctx = closctx_param;
1037       fra.me.closure_funs = CREG;
1038       fra.me.REG[0] = p0;
1039       CREG[0] = clos_fun0;
1040       /* ./program.nit:200 */
1041       fra.me.REG[0] = CALL_abstractmetamodel___MMLocalClass___local_local_properties(fra.me.REG[0])(fra.me.REG[0]);
1042       CALL_abstract_collection___Collection___iterate(fra.me.REG[0])(fra.me.REG[0], closctx, ((fun_t)OC_program___Program___with_each_methods_3));
1043       switch (closctx->has_broke) {
1044         case 0: break;
1045         default: goto label5;
1046       }
1047       label5: while(0);
1048       stack_frame_head = fra.me.prev;
1049       return;
1050     }
1051       void OC_program___Program___with_each_methods_3(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
1052         struct {struct stack_frame_t me;} fra;
1053         val_t REGB0;
1054         fun_t CREG[1];
1055         val_t tmp;
1056         fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
1057         fra.me.file = LOCATE_program;
1058         fra.me.line = 0;
1059         fra.me.meth = LOCATE_program___Program___with_each_methods;
1060         fra.me.has_broke = 0;
1061         fra.me.REG_size = 1;
1062         fra.me.REG[0] = NIT_NULL;
1063         fra.me.closure_ctx = closctx_param;
1064         fra.me.closure_funs = CREG;
1065         fra.me.REG[0] = p0;
1066         CREG[0] = clos_fun0;
1067         /* ./program.nit:201 */
1068         REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[0], COLOR_MMMethod, ID_MMMethod)) /*cast MMMethod*/;
1069         if (UNTAG_Bool(REGB0)) {
1070           /* ./program.nit:202 */
1071           ((void (*)(struct stack_frame_t *, val_t))(closctx->closure_funs[0]))(closctx->closure_ctx, fra.me.REG[0]);
1072           if (closctx->closure_ctx->has_broke) {
1073             closctx->has_broke = 1;
1074             goto label4;
1075           }
1076         }
1077         label4: while(0);
1078         stack_frame_head = fra.me.prev;
1079         return;
1080       }
1081 void program___Program___with_each_live_local_classes(val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
1082   struct {struct stack_frame_t me;} fra;
1083   fun_t CREG[1];
1084   val_t tmp;
1085   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
1086   fra.me.file = LOCATE_program;
1087   fra.me.line = 209;
1088   fra.me.meth = LOCATE_program___Program___with_each_live_local_classes;
1089   fra.me.has_broke = 0;
1090   fra.me.REG_size = 1;
1091   fra.me.REG[0] = NIT_NULL;
1092   fra.me.closure_ctx = closctx_param;
1093   fra.me.closure_funs = CREG;
1094   fra.me.REG[0] = p0;
1095   CREG[0] = clos_fun0;
1096   /* ./program.nit:214 */
1097   fra.me.REG[0] = CALL_program___Program___main_module(fra.me.REG[0])(fra.me.REG[0]);
1098   fra.me.REG[0] = CALL_abstractmetamodel___MMModule___local_classes(fra.me.REG[0])(fra.me.REG[0]);
1099   CALL_abstract_collection___Collection___iterate(fra.me.REG[0])(fra.me.REG[0], (&(fra.me)), ((fun_t)OC_program___Program___with_each_live_local_classes_1));
1100   switch ((&(fra.me))->has_broke) {
1101     case 0: break;
1102     case 1: (&(fra.me))->has_broke = 0; goto label3;
1103   }
1104   label3: while(0);
1105   stack_frame_head = fra.me.prev;
1106   return;
1107 }
1108   void OC_program___Program___with_each_live_local_classes_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
1109     struct {struct stack_frame_t me;} fra;
1110     fun_t CREG[1];
1111     val_t tmp;
1112     fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
1113     fra.me.file = LOCATE_program;
1114     fra.me.line = 0;
1115     fra.me.meth = LOCATE_program___Program___with_each_live_local_classes;
1116     fra.me.has_broke = 0;
1117     fra.me.REG_size = 1;
1118     fra.me.REG[0] = NIT_NULL;
1119     fra.me.closure_ctx = closctx_param;
1120     fra.me.closure_funs = CREG;
1121     fra.me.REG[0] = p0;
1122     CREG[0] = clos_fun0;
1123     /* ./program.nit:215 */
1124     ((void (*)(struct stack_frame_t *, val_t))(closctx->closure_funs[0]))(closctx->closure_ctx, fra.me.REG[0]);
1125     if (closctx->closure_ctx->has_broke) {
1126       closctx->has_broke = 1;
1127       goto label2;
1128     }
1129     label2: while(0);
1130     stack_frame_head = fra.me.prev;
1131     return;
1132   }
1133 void program___Program___init(val_t p0, val_t p1, val_t p2, int* init_table){
1134   int itpos0 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_Program].i;
1135   struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
1136   val_t tmp;
1137   if (init_table[itpos0]) return;
1138   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
1139   fra.me.file = LOCATE_program;
1140   fra.me.line = 219;
1141   fra.me.meth = LOCATE_program___Program___init;
1142   fra.me.has_broke = 0;
1143   fra.me.REG_size = 3;
1144   fra.me.REG[0] = NIT_NULL;
1145   fra.me.REG[1] = NIT_NULL;
1146   fra.me.REG[2] = NIT_NULL;
1147   fra.me.REG[0] = p0;
1148   fra.me.REG[1] = p1;
1149   fra.me.REG[2] = p2;
1150   /* ./program.nit:220 */
1151   ATTR_program___Program____main_module(fra.me.REG[0]) = fra.me.REG[1];
1152   /* ./program.nit:221 */
1153   ATTR_program___Program____tc(fra.me.REG[0]) = fra.me.REG[2];
1154   /* ./program.nit:222 */
1155   CALL_program___Program___finish_processing_classes(fra.me.REG[0])(fra.me.REG[0]);
1156   stack_frame_head = fra.me.prev;
1157   init_table[itpos0] = 1;
1158   return;
1159 }
1160 val_t program___MMLocalClass___init_var_iroutine(val_t p0){
1161   struct {struct stack_frame_t me;} fra;
1162   val_t tmp;
1163   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
1164   fra.me.file = LOCATE_program;
1165   fra.me.line = 227;
1166   fra.me.meth = LOCATE_program___MMLocalClass___init_var_iroutine;
1167   fra.me.has_broke = 0;
1168   fra.me.REG_size = 1;
1169   fra.me.REG[0] = NIT_NULL;
1170   fra.me.REG[0] = p0;
1171   /* ./program.nit:227 */
1172   fra.me.REG[0] = ATTR_program___MMLocalClass____init_var_iroutine(fra.me.REG[0]);
1173   stack_frame_head = fra.me.prev;
1174   return fra.me.REG[0];
1175 }
1176 void program___MMLocalClass___init_var_iroutine__eq(val_t p0, val_t p1){
1177   struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
1178   val_t tmp;
1179   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
1180   fra.me.file = LOCATE_program;
1181   fra.me.line = 227;
1182   fra.me.meth = LOCATE_program___MMLocalClass___init_var_iroutine__eq;
1183   fra.me.has_broke = 0;
1184   fra.me.REG_size = 2;
1185   fra.me.REG[0] = NIT_NULL;
1186   fra.me.REG[1] = NIT_NULL;
1187   fra.me.REG[0] = p0;
1188   fra.me.REG[1] = p1;
1189   /* ./program.nit:227 */
1190   ATTR_program___MMLocalClass____init_var_iroutine(fra.me.REG[0]) = fra.me.REG[1];
1191   stack_frame_head = fra.me.prev;
1192   return;
1193 }
1194 val_t program___MMLocalClass___checknew_iroutine(val_t p0){
1195   struct {struct stack_frame_t me;} fra;
1196   val_t tmp;
1197   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
1198   fra.me.file = LOCATE_program;
1199   fra.me.line = 229;
1200   fra.me.meth = LOCATE_program___MMLocalClass___checknew_iroutine;
1201   fra.me.has_broke = 0;
1202   fra.me.REG_size = 1;
1203   fra.me.REG[0] = NIT_NULL;
1204   fra.me.REG[0] = p0;
1205   /* ./program.nit:229 */
1206   fra.me.REG[0] = ATTR_program___MMLocalClass____checknew_iroutine(fra.me.REG[0]);
1207   stack_frame_head = fra.me.prev;
1208   return fra.me.REG[0];
1209 }
1210 void program___MMLocalClass___checknew_iroutine__eq(val_t p0, val_t p1){
1211   struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
1212   val_t tmp;
1213   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
1214   fra.me.file = LOCATE_program;
1215   fra.me.line = 229;
1216   fra.me.meth = LOCATE_program___MMLocalClass___checknew_iroutine__eq;
1217   fra.me.has_broke = 0;
1218   fra.me.REG_size = 2;
1219   fra.me.REG[0] = NIT_NULL;
1220   fra.me.REG[1] = NIT_NULL;
1221   fra.me.REG[0] = p0;
1222   fra.me.REG[1] = p1;
1223   /* ./program.nit:229 */
1224   ATTR_program___MMLocalClass____checknew_iroutine(fra.me.REG[0]) = fra.me.REG[1];
1225   stack_frame_head = fra.me.prev;
1226   return;
1227 }
1228 val_t program___MMLocalClass___new_instance_iroutine(val_t p0){
1229   struct {struct stack_frame_t me;} fra;
1230   val_t REGB0;
1231   val_t tmp;
1232   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
1233   fra.me.file = LOCATE_program;
1234   fra.me.line = 231;
1235   fra.me.meth = LOCATE_program___MMLocalClass___new_instance_iroutine;
1236   fra.me.has_broke = 0;
1237   fra.me.REG_size = 1;
1238   fra.me.REG[0] = NIT_NULL;
1239   fra.me.REG[0] = p0;
1240   /* ./program.nit:231 */
1241   REGB0 = TAG_Bool(ATTR_program___MMLocalClass____new_instance_iroutine(fra.me.REG[0])!=NIT_NULL);
1242   if (UNTAG_Bool(REGB0)) {
1243   } else {
1244     nit_abort("Uninitialized attribute %s", "_new_instance_iroutine", LOCATE_program, 231);
1245   }
1246   fra.me.REG[0] = ATTR_program___MMLocalClass____new_instance_iroutine(fra.me.REG[0]);
1247   stack_frame_head = fra.me.prev;
1248   return fra.me.REG[0];
1249 }