nitlanguage / nit.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
update c_src (now with ffi)
[nit.git] / c_src / compiling._sep.c
diff --git a/c_src/compiling._sep.c b/c_src/compiling._sep.c
index aab5b33..f99178d 100644 (file)
--- a/c_src/compiling._sep.c
+++ b/c_src/compiling._sep.c
@@ -1,5 +1,6 @@
 /* This C file is generated by NIT to compile module compiling. */
 #include "compiling._sep.h"
+static const char LOCATE_compiling___Program___output_format[] = "compiling::Program::output_format";
 val_t compiling___Program___output_format(val_t p0){
   struct {struct stack_frame_t me;} fra;
   val_t REGB0;
@@ -23,6 +24,7 @@ val_t compiling___Program___output_format(val_t p0){
   stack_frame_head = fra.me.prev;
   return fra.me.REG[0];
 }
+static const char LOCATE_compiling___Program___output_format__eq[] = "compiling::Program::output_format=";
 void compiling___Program___output_format__eq(val_t p0, val_t p1){
   struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
   val_t tmp;
@@ -42,6 +44,7 @@ void compiling___Program___output_format__eq(val_t p0, val_t p1){
   stack_frame_head = fra.me.prev;
   return;
 }
+static const char LOCATE_compiling___Program___compile_prog[] = "compiling::Program::compile_prog";
 void compiling___Program___compile_prog(val_t p0){
   struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
   val_t REGB0;
@@ -144,6 +147,7 @@ void compiling___Program___compile_prog(val_t p0){
       stack_frame_head = fra.me.prev;
       return;
     }
+static const char LOCATE_compiling___Program___compile_prog_to_c[] = "compiling::Program::compile_prog_to_c";
 void compiling___Program___compile_prog_to_c(val_t p0){
   struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
   val_t REGB0;
@@ -270,6 +274,7 @@ void compiling___Program___compile_prog_to_c(val_t p0){
     stack_frame_head = fra.me.prev;
     return;
   }
+static const char LOCATE_compiling___Program___compile_main[] = "compiling::Program::compile_main";
 void compiling___Program___compile_main(val_t p0, val_t p1){
   struct {struct stack_frame_t me; val_t MORE_REG[5];} fra;
   val_t REGB0;
@@ -390,10 +395,10 @@ void compiling___Program___compile_main(val_t p0, val_t p1){
   CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[0])(fra.me.REG[0], (&(fra.me)), ((fun_t)OC_compiling___Program___compile_main_7));
   /* compiling/compiling.nit:86 */
   fra.me.REG[1] = CALL_compiling___compiling_base___CompilerVisitor___header_writer(fra.me.REG[2])(fra.me.REG[2]);
-  CALL_compiling___compiling_writer___Writer___write_to_stream(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
+  CALL_compiling_writer___Writer___write_to_stream(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
   /* compiling/compiling.nit:87 */
   fra.me.REG[2] = CALL_compiling___compiling_base___CompilerVisitor___writer(fra.me.REG[2])(fra.me.REG[2]);
-  CALL_compiling___compiling_writer___Writer___write_to_stream(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+  CALL_compiling_writer___Writer___write_to_stream(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
   /* compiling/compiling.nit:88 */
   CALL_standard___stream___IOS___close(fra.me.REG[3])(fra.me.REG[3]);
   stack_frame_head = fra.me.prev;
@@ -448,6 +453,7 @@ void compiling___Program___compile_main(val_t p0, val_t p1){
     stack_frame_head = fra.me.prev;
     return;
   }
+static const char LOCATE_compiling___MMModule___compile_separate_module[] = "compiling::MMModule::compile_separate_module";
 void compiling___MMModule___compile_separate_module(val_t p0, val_t p1){
   struct {struct stack_frame_t me; val_t MORE_REG[9];} fra;
   val_t REGB0;
@@ -469,30 +475,39 @@ void compiling___MMModule___compile_separate_module(val_t p0, val_t p1){
     static val_t once_value_13; /* Once value */
     static val_t once_value_14; /* Once value */
       static val_t once_value_15; /* Once value */
-  static val_t once_value_16; /* Once value */
-  static val_t once_value_17; /* Once value */
-  static val_t once_value_18; /* Once value */
-  static val_t once_value_19; /* Once value */
-  static val_t once_value_20; /* Once value */
-  static val_t once_value_21; /* Once value */
-  static val_t once_value_22; /* Once value */
-  static val_t once_value_23; /* Once value */
-  static val_t once_value_24; /* Once value */
+      static val_t once_value_16; /* Once value */
+      static val_t once_value_17; /* Once value */
+      static val_t once_value_18; /* Once value */
+      static val_t once_value_19; /* Once value */
+      static val_t once_value_20; /* Once value */
+      static val_t once_value_21; /* Once value */
+      static val_t once_value_22; /* Once value */
+      static val_t once_value_23; /* Once value */
+      static val_t once_value_24; /* Once value */
   static val_t once_value_25; /* Once value */
   static val_t once_value_26; /* Once value */
-      static val_t once_value_27; /* Once value */
-      static val_t once_value_28; /* Once value */
+  static val_t once_value_27; /* Once value */
+  static val_t once_value_28; /* Once value */
+  static val_t once_value_29; /* Once value */
   static val_t once_value_30; /* Once value */
   static val_t once_value_31; /* Once value */
   static val_t once_value_32; /* Once value */
   static val_t once_value_33; /* Once value */
   static val_t once_value_34; /* Once value */
   static val_t once_value_35; /* Once value */
-  static val_t once_value_36; /* Once value */
-  static val_t once_value_37; /* Once value */
-  static val_t once_value_38; /* Once value */
+      static val_t once_value_36; /* Once value */
+      static val_t once_value_37; /* Once value */
   static val_t once_value_39; /* Once value */
   static val_t once_value_40; /* Once value */
+  static val_t once_value_41; /* Once value */
+  static val_t once_value_42; /* Once value */
+  static val_t once_value_43; /* Once value */
+  static val_t once_value_44; /* Once value */
+  static val_t once_value_45; /* Once value */
+  static val_t once_value_46; /* Once value */
+  static val_t once_value_47; /* Once value */
+  static val_t once_value_48; /* Once value */
+  static val_t once_value_49; /* Once value */
   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
   fra.me.file = LOCATE_compiling;
   fra.me.line = 93;
@@ -719,179 +734,291 @@ void compiling___MMModule___compile_separate_module(val_t p0, val_t p1){
         CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
       }
     }
+    /* compiling/compiling.nit:118 */
+    REGB0 = CALL_metamodel___abstractmetamodel___MMModule___uses_ffi(fra.me.REG[0])(fra.me.REG[0]);
+    if (UNTAG_Bool(REGB0)) {
+      /* compiling/compiling.nit:119 */
+      REGB0 = TAG_Int(3);
+      fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+      if (!once_value_16) {
+        fra.me.REG[4] = BOX_NativeString("");
+        REGB0 = TAG_Int(0);
+        fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+        once_value_16 = fra.me.REG[4];
+        register_static_object(&once_value_16);
+      } else fra.me.REG[4] = once_value_16;
+      fra.me.REG[4] = fra.me.REG[4];
+      CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
+      fra.me.REG[4] = CALL_compiling___compiling_base___MMModule___cname(fra.me.REG[0])(fra.me.REG[0]);
+      CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
+      if (!once_value_17) {
+        fra.me.REG[4] = BOX_NativeString("._ffi.h");
+        REGB0 = TAG_Int(7);
+        fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+        once_value_17 = fra.me.REG[4];
+        register_static_object(&once_value_17);
+      } else fra.me.REG[4] = once_value_17;
+      fra.me.REG[4] = fra.me.REG[4];
+      CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
+      fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
+      /* compiling/compiling.nit:120 */
+      REGB0 = TAG_Int(3);
+      fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+      if (!once_value_18) {
+        fra.me.REG[2] = BOX_NativeString("#include \"");
+        REGB0 = TAG_Int(10);
+        fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+        once_value_18 = fra.me.REG[2];
+        register_static_object(&once_value_18);
+      } else fra.me.REG[2] = once_value_18;
+      fra.me.REG[2] = fra.me.REG[2];
+      CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
+      CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
+      if (!once_value_19) {
+        fra.me.REG[5] = BOX_NativeString("\"");
+        REGB0 = TAG_Int(1);
+        fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
+        once_value_19 = fra.me.REG[5];
+        register_static_object(&once_value_19);
+      } else fra.me.REG[5] = once_value_19;
+      fra.me.REG[5] = fra.me.REG[5];
+      CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
+      fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
+      CALL_compiling___compiling_base___CompilerVisitor___add_decl(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+      /* compiling/compiling.nit:121 */
+      REGB0 = TAG_Int(3);
+      fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+      if (!once_value_20) {
+        fra.me.REG[5] = BOX_NativeString("");
+        REGB0 = TAG_Int(0);
+        fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
+        once_value_20 = fra.me.REG[5];
+        register_static_object(&once_value_20);
+      } else fra.me.REG[5] = once_value_20;
+      fra.me.REG[5] = fra.me.REG[5];
+      CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
+      fra.me.REG[5] = CALL_compiling___compiling_base___MMModule___cname(fra.me.REG[0])(fra.me.REG[0]);
+      CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
+      if (!once_value_21) {
+        fra.me.REG[5] = BOX_NativeString("._ffi.c");
+        REGB0 = TAG_Int(7);
+        fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
+        once_value_21 = fra.me.REG[5];
+        register_static_object(&once_value_21);
+      } else fra.me.REG[5] = once_value_21;
+      fra.me.REG[5] = fra.me.REG[5];
+      CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
+      fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
+      /* compiling/compiling.nit:122 */
+      fra.me.REG[5] = CALL_compiling___compiling_base___CProgram___files(fra.me.REG[1])(fra.me.REG[1]);
+      REGB0 = TAG_Int(5);
+      fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+      if (!once_value_22) {
+        fra.me.REG[6] = BOX_NativeString("");
+        REGB0 = TAG_Int(0);
+        fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
+        once_value_22 = fra.me.REG[6];
+        register_static_object(&once_value_22);
+      } else fra.me.REG[6] = once_value_22;
+      fra.me.REG[6] = fra.me.REG[6];
+      CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]);
+      fra.me.REG[6] = CALL_compiling___compiling_base___CProgram___compdir(fra.me.REG[1])(fra.me.REG[1]);
+      CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]);
+      if (!once_value_23) {
+        fra.me.REG[6] = BOX_NativeString("/");
+        REGB0 = TAG_Int(1);
+        fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
+        once_value_23 = fra.me.REG[6];
+        register_static_object(&once_value_23);
+      } else fra.me.REG[6] = once_value_23;
+      fra.me.REG[6] = fra.me.REG[6];
+      CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]);
+      CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
+      if (!once_value_24) {
+        fra.me.REG[4] = BOX_NativeString("");
+        REGB0 = TAG_Int(0);
+        fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+        once_value_24 = fra.me.REG[4];
+        register_static_object(&once_value_24);
+      } else fra.me.REG[4] = once_value_24;
+      fra.me.REG[4] = fra.me.REG[4];
+      CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
+      fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
+      CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[2]);
+    }
   }
-  /* compiling/compiling.nit:120 */
+  /* compiling/compiling.nit:126 */
   CALL_compiling___compiling_global___MMModule___declare_class_tables_to_c(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
-  /* compiling/compiling.nit:121 */
+  /* compiling/compiling.nit:127 */
   CALL_compiling___compiling_global___MMModule___compile_mod_to_c(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
-  /* compiling/compiling.nit:123 */
-  fra.me.REG[5] = CALL_compiling___compiling_base___CProgram___module_header_name(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
-  /* compiling/compiling.nit:124 */
+  /* compiling/compiling.nit:129 */
+  fra.me.REG[2] = CALL_compiling___compiling_base___CProgram___module_header_name(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
+  /* compiling/compiling.nit:130 */
   REGB0 = TAG_Int(5);
-  fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
-  if (!once_value_16) {
-    fra.me.REG[2] = BOX_NativeString("");
+  fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+  if (!once_value_25) {
+    fra.me.REG[4] = BOX_NativeString("");
     REGB0 = TAG_Int(0);
-    fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
-    once_value_16 = fra.me.REG[2];
-    register_static_object(&once_value_16);
-  } else fra.me.REG[2] = once_value_16;
-  fra.me.REG[2] = fra.me.REG[2];
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
-  fra.me.REG[2] = CALL_compiling___compiling_base___CProgram___compdir(fra.me.REG[1])(fra.me.REG[1]);
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
-  if (!once_value_17) {
-    fra.me.REG[2] = BOX_NativeString("/");
+    fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+    once_value_25 = fra.me.REG[4];
+    register_static_object(&once_value_25);
+  } else fra.me.REG[4] = once_value_25;
+  fra.me.REG[4] = fra.me.REG[4];
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
+  fra.me.REG[4] = CALL_compiling___compiling_base___CProgram___compdir(fra.me.REG[1])(fra.me.REG[1]);
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
+  if (!once_value_26) {
+    fra.me.REG[4] = BOX_NativeString("/");
     REGB0 = TAG_Int(1);
-    fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
-    once_value_17 = fra.me.REG[2];
-    register_static_object(&once_value_17);
-  } else fra.me.REG[2] = once_value_17;
-  fra.me.REG[2] = fra.me.REG[2];
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
-  if (!once_value_18) {
-    fra.me.REG[2] = BOX_NativeString("");
+    fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+    once_value_26 = fra.me.REG[4];
+    register_static_object(&once_value_26);
+  } else fra.me.REG[4] = once_value_26;
+  fra.me.REG[4] = fra.me.REG[4];
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[2]);
+  if (!once_value_27) {
+    fra.me.REG[4] = BOX_NativeString("");
     REGB0 = TAG_Int(0);
-    fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
-    once_value_18 = fra.me.REG[2];
-    register_static_object(&once_value_18);
-  } else fra.me.REG[2] = once_value_18;
-  fra.me.REG[2] = fra.me.REG[2];
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
-  fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
-  fra.me.REG[4] = NEW_OFStream_standard___file___OFStream___open(fra.me.REG[4]);
-  /* compiling/compiling.nit:125 */
+    fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+    once_value_27 = fra.me.REG[4];
+    register_static_object(&once_value_27);
+  } else fra.me.REG[4] = once_value_27;
+  fra.me.REG[4] = fra.me.REG[4];
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
+  fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
+  fra.me.REG[5] = NEW_OFStream_standard___file___OFStream___open(fra.me.REG[5]);
+  /* compiling/compiling.nit:131 */
   REGB0 = TAG_Int(3);
-  fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
-  if (!once_value_19) {
+  fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+  if (!once_value_28) {
     fra.me.REG[6] = BOX_NativeString("/* This C header file is generated by NIT to compile modules and programs that requires ");
     REGB0 = TAG_Int(88);
     fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
-    once_value_19 = fra.me.REG[6];
-    register_static_object(&once_value_19);
-  } else fra.me.REG[6] = once_value_19;
+    once_value_28 = fra.me.REG[6];
+    register_static_object(&once_value_28);
+  } else fra.me.REG[6] = once_value_28;
   fra.me.REG[6] = fra.me.REG[6];
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]);
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
   fra.me.REG[6] = CALL_metamodel___abstractmetamodel___MMModule___full_name(fra.me.REG[0])(fra.me.REG[0]);
   fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]);
-  if (!once_value_20) {
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
+  if (!once_value_29) {
     fra.me.REG[6] = BOX_NativeString(". */\n");
     REGB0 = TAG_Int(5);
     fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
-    once_value_20 = fra.me.REG[6];
-    register_static_object(&once_value_20);
-  } else fra.me.REG[6] = once_value_20;
+    once_value_29 = fra.me.REG[6];
+    register_static_object(&once_value_29);
+  } else fra.me.REG[6] = once_value_29;
   fra.me.REG[6] = fra.me.REG[6];
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]);
-  fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
-  CALL_standard___stream___OStream___write(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
-  /* compiling/compiling.nit:126 */
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
+  fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
+  CALL_standard___stream___OStream___write(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
+  /* compiling/compiling.nit:132 */
   REGB0 = TAG_Int(5);
-  fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
-  if (!once_value_21) {
+  fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+  if (!once_value_30) {
     fra.me.REG[6] = BOX_NativeString("#ifndef ");
     REGB0 = TAG_Int(8);
     fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
-    once_value_21 = fra.me.REG[6];
-    register_static_object(&once_value_21);
-  } else fra.me.REG[6] = once_value_21;
+    once_value_30 = fra.me.REG[6];
+    register_static_object(&once_value_30);
+  } else fra.me.REG[6] = once_value_30;
   fra.me.REG[6] = fra.me.REG[6];
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]);
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
   fra.me.REG[6] = CALL_compiling___compiling_base___MMModule___cname(fra.me.REG[0])(fra.me.REG[0]);
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]);
-  if (!once_value_22) {
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
+  if (!once_value_31) {
     fra.me.REG[6] = BOX_NativeString("");
     REGB0 = TAG_Int(0);
     fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
-    once_value_22 = fra.me.REG[6];
-    register_static_object(&once_value_22);
-  } else fra.me.REG[6] = once_value_22;
+    once_value_31 = fra.me.REG[6];
+    register_static_object(&once_value_31);
+  } else fra.me.REG[6] = once_value_31;
   fra.me.REG[6] = fra.me.REG[6];
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]);
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
   fra.me.REG[6] = CALL_compiling___compiling_base___CProgram___get_file_ending(fra.me.REG[1])(fra.me.REG[1]);
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]);
-  if (!once_value_23) {
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
+  if (!once_value_32) {
     fra.me.REG[6] = BOX_NativeString("\n");
     REGB0 = TAG_Int(1);
     fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
-    once_value_23 = fra.me.REG[6];
-    register_static_object(&once_value_23);
-  } else fra.me.REG[6] = once_value_23;
+    once_value_32 = fra.me.REG[6];
+    register_static_object(&once_value_32);
+  } else fra.me.REG[6] = once_value_32;
   fra.me.REG[6] = fra.me.REG[6];
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]);
-  fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
-  CALL_standard___stream___OStream___write(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
-  /* compiling/compiling.nit:127 */
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
+  fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
+  CALL_standard___stream___OStream___write(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
+  /* compiling/compiling.nit:133 */
   REGB0 = TAG_Int(5);
-  fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
-  if (!once_value_24) {
+  fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+  if (!once_value_33) {
     fra.me.REG[6] = BOX_NativeString("#define ");
     REGB0 = TAG_Int(8);
     fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
-    once_value_24 = fra.me.REG[6];
-    register_static_object(&once_value_24);
-  } else fra.me.REG[6] = once_value_24;
+    once_value_33 = fra.me.REG[6];
+    register_static_object(&once_value_33);
+  } else fra.me.REG[6] = once_value_33;
   fra.me.REG[6] = fra.me.REG[6];
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]);
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
   fra.me.REG[6] = CALL_compiling___compiling_base___MMModule___cname(fra.me.REG[0])(fra.me.REG[0]);
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]);
-  if (!once_value_25) {
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
+  if (!once_value_34) {
     fra.me.REG[6] = BOX_NativeString("");
     REGB0 = TAG_Int(0);
     fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
-    once_value_25 = fra.me.REG[6];
-    register_static_object(&once_value_25);
-  } else fra.me.REG[6] = once_value_25;
+    once_value_34 = fra.me.REG[6];
+    register_static_object(&once_value_34);
+  } else fra.me.REG[6] = once_value_34;
   fra.me.REG[6] = fra.me.REG[6];
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]);
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
   fra.me.REG[6] = CALL_compiling___compiling_base___CProgram___get_file_ending(fra.me.REG[1])(fra.me.REG[1]);
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]);
-  if (!once_value_26) {
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
+  if (!once_value_35) {
     fra.me.REG[6] = BOX_NativeString("\n");
     REGB0 = TAG_Int(1);
     fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
-    once_value_26 = fra.me.REG[6];
-    register_static_object(&once_value_26);
-  } else fra.me.REG[6] = once_value_26;
+    once_value_35 = fra.me.REG[6];
+    register_static_object(&once_value_35);
+  } else fra.me.REG[6] = once_value_35;
   fra.me.REG[6] = fra.me.REG[6];
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]);
-  fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
-  CALL_standard___stream___OStream___write(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
-  /* compiling/compiling.nit:128 */
-  fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMModule___mhe(fra.me.REG[0])(fra.me.REG[0]);
-  REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
+  fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
+  CALL_standard___stream___OStream___write(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
+  /* compiling/compiling.nit:134 */
+  fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMModule___mhe(fra.me.REG[0])(fra.me.REG[0]);
+  REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
   if (UNTAG_Bool(REGB0)) {
-    nit_abort("Reciever is null", NULL, LOCATE_compiling, 128);
+    nit_abort("Reciever is null", NULL, LOCATE_compiling, 134);
   }
-  fra.me.REG[2] = CALL_metamodel___partial_order___PartialOrderElement___direct_greaters(fra.me.REG[2])(fra.me.REG[2]);
+  fra.me.REG[4] = CALL_metamodel___partial_order___PartialOrderElement___direct_greaters(fra.me.REG[4])(fra.me.REG[4]);
   /* ../lib/standard/collection/array.nit:269 */
   REGB0 = TAG_Int(0);
   /* ../lib/standard/collection/array.nit:270 */
-  REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL);
+  REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4])!=NIT_NULL);
   if (UNTAG_Bool(REGB1)) {
   } else {
     nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 270);
   }
-  REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]);
+  REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4]);
   /* ../lib/standard/collection/array.nit:271 */
-  fra.me.REG[6] = ATTR_standard___collection___array___Array____items(fra.me.REG[2]);
+  fra.me.REG[6] = ATTR_standard___collection___array___Array____items(fra.me.REG[4]);
   /* ../lib/standard/collection/array.nit:272 */
   while(1) {
     /* ../lib/standard/collection/array.nit:24 */
-    REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL);
+    REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4])!=NIT_NULL);
     if (UNTAG_Bool(REGB1)) {
     } else {
       nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
     }
-    REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]);
+    REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4]);
     REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
     if (UNTAG_Bool(REGB2)) {
     } else {
       nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
     }
-    /* ../lib/standard/kernel.nit:232 */
+    /* ../lib/standard/kernel.nit:235 */
     REGB1 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
     /* ../lib/standard/collection/array.nit:272 */
     if (UNTAG_Bool(REGB1)) {
@@ -902,186 +1029,186 @@ void compiling___MMModule___compile_separate_module(val_t p0, val_t p1){
       }
       /* ../lib/standard/collection/array.nit:718 */
       fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[6])->val[UNTAG_Int(REGB0)];
-      /* compiling/compiling.nit:128 */
+      /* compiling/compiling.nit:134 */
       REGB1 = TAG_Int(3);
       fra.me.REG[8] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
-      if (!once_value_27) {
+      if (!once_value_36) {
         fra.me.REG[9] = BOX_NativeString("#include \"");
         REGB1 = TAG_Int(10);
         fra.me.REG[9] = NEW_String_standard___string___String___with_native(fra.me.REG[9], REGB1);
-        once_value_27 = fra.me.REG[9];
-        register_static_object(&once_value_27);
-      } else fra.me.REG[9] = once_value_27;
+        once_value_36 = fra.me.REG[9];
+        register_static_object(&once_value_36);
+      } else fra.me.REG[9] = once_value_36;
       fra.me.REG[9] = fra.me.REG[9];
       CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[9]);
       fra.me.REG[7] = CALL_compiling___compiling_base___CProgram___module_header_name(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[7]);
       CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[7]);
-      if (!once_value_28) {
+      if (!once_value_37) {
         fra.me.REG[7] = BOX_NativeString("\"\n");
         REGB1 = TAG_Int(2);
         fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB1);
-        once_value_28 = fra.me.REG[7];
-        register_static_object(&once_value_28);
-      } else fra.me.REG[7] = once_value_28;
+        once_value_37 = fra.me.REG[7];
+        register_static_object(&once_value_37);
+      } else fra.me.REG[7] = once_value_37;
       fra.me.REG[7] = fra.me.REG[7];
       CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[7]);
       fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]);
-      CALL_standard___stream___OStream___write(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[8]);
+      CALL_standard___stream___OStream___write(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[8]);
       /* ../lib/standard/collection/array.nit:274 */
       REGB1 = TAG_Int(1);
-      /* ../lib/standard/kernel.nit:235 */
+      /* ../lib/standard/kernel.nit:238 */
       REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
       /* ../lib/standard/collection/array.nit:274 */
       REGB0 = REGB1;
     } else {
       /* ../lib/standard/collection/array.nit:272 */
-      goto label29;
+      goto label38;
     }
   }
-  label29: while(0);
-  /* compiling/compiling.nit:129 */
+  label38: while(0);
+  /* compiling/compiling.nit:135 */
   fra.me.REG[6] = CALL_compiling___compiling_base___CompilerVisitor___header_writer(fra.me.REG[3])(fra.me.REG[3]);
-  CALL_compiling___compiling_writer___Writer___write_to_stream(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[4]);
-  /* compiling/compiling.nit:130 */
-  if (!once_value_30) {
+  CALL_compiling_writer___Writer___write_to_stream(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[5]);
+  /* compiling/compiling.nit:136 */
+  if (!once_value_39) {
     fra.me.REG[6] = BOX_NativeString("#endif\n");
     REGB0 = TAG_Int(7);
     fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
-    once_value_30 = fra.me.REG[6];
-    register_static_object(&once_value_30);
-  } else fra.me.REG[6] = once_value_30;
+    once_value_39 = fra.me.REG[6];
+    register_static_object(&once_value_39);
+  } else fra.me.REG[6] = once_value_39;
   fra.me.REG[6] = fra.me.REG[6];
-  CALL_standard___stream___OStream___write(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
-  /* compiling/compiling.nit:131 */
-  CALL_standard___stream___IOS___close(fra.me.REG[4])(fra.me.REG[4]);
-  /* compiling/compiling.nit:133 */
+  CALL_standard___stream___OStream___write(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
+  /* compiling/compiling.nit:137 */
+  CALL_standard___stream___IOS___close(fra.me.REG[5])(fra.me.REG[5]);
+  /* compiling/compiling.nit:139 */
   REGB0 = TAG_Int(7);
   fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
-  if (!once_value_31) {
-    fra.me.REG[2] = BOX_NativeString("");
+  if (!once_value_40) {
+    fra.me.REG[4] = BOX_NativeString("");
     REGB0 = TAG_Int(0);
-    fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
-    once_value_31 = fra.me.REG[2];
-    register_static_object(&once_value_31);
-  } else fra.me.REG[2] = once_value_31;
-  fra.me.REG[2] = fra.me.REG[2];
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]);
-  fra.me.REG[2] = CALL_compiling___compiling_base___CProgram___compdir(fra.me.REG[1])(fra.me.REG[1]);
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]);
-  if (!once_value_32) {
-    fra.me.REG[2] = BOX_NativeString("/");
+    fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+    once_value_40 = fra.me.REG[4];
+    register_static_object(&once_value_40);
+  } else fra.me.REG[4] = once_value_40;
+  fra.me.REG[4] = fra.me.REG[4];
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[4]);
+  fra.me.REG[4] = CALL_compiling___compiling_base___CProgram___compdir(fra.me.REG[1])(fra.me.REG[1]);
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[4]);
+  if (!once_value_41) {
+    fra.me.REG[4] = BOX_NativeString("/");
     REGB0 = TAG_Int(1);
-    fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
-    once_value_32 = fra.me.REG[2];
-    register_static_object(&once_value_32);
-  } else fra.me.REG[2] = once_value_32;
-  fra.me.REG[2] = fra.me.REG[2];
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]);
-  fra.me.REG[2] = CALL_compiling___compiling_base___MMModule___cname(fra.me.REG[0])(fra.me.REG[0]);
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]);
-  if (!once_value_33) {
-    fra.me.REG[2] = BOX_NativeString(".");
+    fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+    once_value_41 = fra.me.REG[4];
+    register_static_object(&once_value_41);
+  } else fra.me.REG[4] = once_value_41;
+  fra.me.REG[4] = fra.me.REG[4];
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[4]);
+  fra.me.REG[4] = CALL_compiling___compiling_base___MMModule___cname(fra.me.REG[0])(fra.me.REG[0]);
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[4]);
+  if (!once_value_42) {
+    fra.me.REG[4] = BOX_NativeString(".");
     REGB0 = TAG_Int(1);
-    fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
-    once_value_33 = fra.me.REG[2];
-    register_static_object(&once_value_33);
-  } else fra.me.REG[2] = once_value_33;
-  fra.me.REG[2] = fra.me.REG[2];
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]);
-  fra.me.REG[2] = CALL_compiling___compiling_base___CProgram___get_file_ending(fra.me.REG[1])(fra.me.REG[1]);
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]);
-  if (!once_value_34) {
-    fra.me.REG[2] = BOX_NativeString(".c");
+    fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+    once_value_42 = fra.me.REG[4];
+    register_static_object(&once_value_42);
+  } else fra.me.REG[4] = once_value_42;
+  fra.me.REG[4] = fra.me.REG[4];
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[4]);
+  fra.me.REG[4] = CALL_compiling___compiling_base___CProgram___get_file_ending(fra.me.REG[1])(fra.me.REG[1]);
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[4]);
+  if (!once_value_43) {
+    fra.me.REG[4] = BOX_NativeString(".c");
     REGB0 = TAG_Int(2);
-    fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
-    once_value_34 = fra.me.REG[2];
-    register_static_object(&once_value_34);
-  } else fra.me.REG[2] = once_value_34;
-  fra.me.REG[2] = fra.me.REG[2];
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]);
+    fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+    once_value_43 = fra.me.REG[4];
+    register_static_object(&once_value_43);
+  } else fra.me.REG[4] = once_value_43;
+  fra.me.REG[4] = fra.me.REG[4];
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[4]);
   fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
-  /* compiling/compiling.nit:134 */
+  /* compiling/compiling.nit:140 */
   fra.me.REG[1] = CALL_compiling___compiling_base___CProgram___files(fra.me.REG[1])(fra.me.REG[1]);
   CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[6]);
-  /* compiling/compiling.nit:135 */
+  /* compiling/compiling.nit:141 */
   REGB0 = TAG_Int(3);
   fra.me.REG[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
-  if (!once_value_35) {
-    fra.me.REG[2] = BOX_NativeString("");
+  if (!once_value_44) {
+    fra.me.REG[4] = BOX_NativeString("");
     REGB0 = TAG_Int(0);
-    fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
-    once_value_35 = fra.me.REG[2];
-    register_static_object(&once_value_35);
-  } else fra.me.REG[2] = once_value_35;
-  fra.me.REG[2] = fra.me.REG[2];
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
+    fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+    once_value_44 = fra.me.REG[4];
+    register_static_object(&once_value_44);
+  } else fra.me.REG[4] = once_value_44;
+  fra.me.REG[4] = fra.me.REG[4];
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
   CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[6]);
-  if (!once_value_36) {
+  if (!once_value_45) {
     fra.me.REG[6] = BOX_NativeString("");
     REGB0 = TAG_Int(0);
     fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
-    once_value_36 = fra.me.REG[6];
-    register_static_object(&once_value_36);
-  } else fra.me.REG[6] = once_value_36;
+    once_value_45 = fra.me.REG[6];
+    register_static_object(&once_value_45);
+  } else fra.me.REG[6] = once_value_45;
   fra.me.REG[6] = fra.me.REG[6];
   CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[6]);
   fra.me.REG[1] = CALL_standard___string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]);
   fra.me.REG[1] = NEW_OFStream_standard___file___OFStream___open(fra.me.REG[1]);
-  fra.me.REG[4] = fra.me.REG[1];
-  /* compiling/compiling.nit:136 */
+  fra.me.REG[5] = fra.me.REG[1];
+  /* compiling/compiling.nit:142 */
   REGB0 = TAG_Int(3);
   fra.me.REG[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
-  if (!once_value_37) {
+  if (!once_value_46) {
     fra.me.REG[6] = BOX_NativeString("/* This C file is generated by NIT to compile module ");
     REGB0 = TAG_Int(53);
     fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
-    once_value_37 = fra.me.REG[6];
-    register_static_object(&once_value_37);
-  } else fra.me.REG[6] = once_value_37;
+    once_value_46 = fra.me.REG[6];
+    register_static_object(&once_value_46);
+  } else fra.me.REG[6] = once_value_46;
   fra.me.REG[6] = fra.me.REG[6];
   CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[6]);
   fra.me.REG[0] = CALL_compiling___compiling_base___MMModule___cname(fra.me.REG[0])(fra.me.REG[0]);
   CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
-  if (!once_value_38) {
+  if (!once_value_47) {
     fra.me.REG[0] = BOX_NativeString(". */\n");
     REGB0 = TAG_Int(5);
     fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
-    once_value_38 = fra.me.REG[0];
-    register_static_object(&once_value_38);
-  } else fra.me.REG[0] = once_value_38;
+    once_value_47 = fra.me.REG[0];
+    register_static_object(&once_value_47);
+  } else fra.me.REG[0] = once_value_47;
   fra.me.REG[0] = fra.me.REG[0];
   CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
   fra.me.REG[1] = CALL_standard___string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]);
-  CALL_standard___stream___OStream___write(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[1]);
-  /* compiling/compiling.nit:137 */
+  CALL_standard___stream___OStream___write(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1]);
+  /* compiling/compiling.nit:143 */
   REGB0 = TAG_Int(3);
   fra.me.REG[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
-  if (!once_value_39) {
+  if (!once_value_48) {
     fra.me.REG[0] = BOX_NativeString("#include \"");
     REGB0 = TAG_Int(10);
     fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
-    once_value_39 = fra.me.REG[0];
-    register_static_object(&once_value_39);
-  } else fra.me.REG[0] = once_value_39;
+    once_value_48 = fra.me.REG[0];
+    register_static_object(&once_value_48);
+  } else fra.me.REG[0] = once_value_48;
   fra.me.REG[0] = fra.me.REG[0];
   CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[5]);
-  if (!once_value_40) {
-    fra.me.REG[5] = BOX_NativeString("\"\n");
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
+  if (!once_value_49) {
+    fra.me.REG[2] = BOX_NativeString("\"\n");
     REGB0 = TAG_Int(2);
-    fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
-    once_value_40 = fra.me.REG[5];
-    register_static_object(&once_value_40);
-  } else fra.me.REG[5] = once_value_40;
-  fra.me.REG[5] = fra.me.REG[5];
-  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[5]);
+    fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+    once_value_49 = fra.me.REG[2];
+    register_static_object(&once_value_49);
+  } else fra.me.REG[2] = once_value_49;
+  fra.me.REG[2] = fra.me.REG[2];
+  CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
   fra.me.REG[1] = CALL_standard___string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]);
-  CALL_standard___stream___OStream___write(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[1]);
-  /* compiling/compiling.nit:138 */
+  CALL_standard___stream___OStream___write(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1]);
+  /* compiling/compiling.nit:144 */
   fra.me.REG[3] = CALL_compiling___compiling_base___CompilerVisitor___top_writer(fra.me.REG[3])(fra.me.REG[3]);
-  CALL_compiling___compiling_writer___Writer___write_to_stream(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
-  /* compiling/compiling.nit:139 */
-  CALL_standard___stream___IOS___close(fra.me.REG[4])(fra.me.REG[4]);
+  CALL_compiling_writer___Writer___write_to_stream(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
+  /* compiling/compiling.nit:145 */
+  CALL_standard___stream___IOS___close(fra.me.REG[5])(fra.me.REG[5]);
   stack_frame_head = fra.me.prev;
   return;
 }
Nit language project; an oo programing language and its tool suite.