/* This C file is generated by NIT to compile module native_interface___frontier. */
#include "native_interface___frontier._sep.h"
-void native_interface___frontier___MMSrcModule___compile_frontier(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[5];} fra;
+static const char LOCATE_native_interface___frontier___NiVariable___ni_from_name[] = "frontier::NiVariable::ni_from_name";
+val_t native_interface___frontier___NiVariable___ni_from_name(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 30;
+ fra.me.meth = LOCATE_native_interface___frontier___NiVariable___ni_from_name;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 0;
+ fra.me.nitni_local_ref_head = NULL;
+ /* native_interface/frontier.nit:30 */
+ nit_abort("Deferred method called", NULL, LOCATE_native_interface___frontier, 30);
+ stack_frame_head = fra.me.prev;
+ return NIT_NULL;
+}
+static const char LOCATE_native_interface___frontier___NiVariable___ni_to_name[] = "frontier::NiVariable::ni_to_name";
+val_t native_interface___frontier___NiVariable___ni_to_name(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 31;
+ fra.me.meth = LOCATE_native_interface___frontier___NiVariable___ni_to_name;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 0;
+ fra.me.nitni_local_ref_head = NULL;
+ /* native_interface/frontier.nit:31 */
+ nit_abort("Deferred method called", NULL, LOCATE_native_interface___frontier, 31);
+ stack_frame_head = fra.me.prev;
+ return NIT_NULL;
+}
+static const char LOCATE_native_interface___frontier___NiVariable___ni_type[] = "frontier::NiVariable::ni_type";
+val_t native_interface___frontier___NiVariable___ni_type(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 32;
+ fra.me.meth = LOCATE_native_interface___frontier___NiVariable___ni_type;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 0;
+ fra.me.nitni_local_ref_head = NULL;
+ /* native_interface/frontier.nit:32 */
+ nit_abort("Deferred method called", NULL, LOCATE_native_interface___frontier, 32);
+ stack_frame_head = fra.me.prev;
+ return NIT_NULL;
+}
+static const char LOCATE_native_interface___frontier___NiVariable___needs_preparation[] = "frontier::NiVariable::needs_preparation";
+val_t native_interface___frontier___NiVariable___needs_preparation(val_t p0){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
val_t REGB0;
+ val_t REGB1;
val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- static val_t once_value_3; /* Once value */
- static val_t once_value_4; /* Once value */
- static val_t once_value_5; /* Once value */
- static val_t once_value_6; /* Once value */
- static val_t once_value_7; /* Once value */
- static val_t once_value_8; /* Once value */
- static val_t once_value_9; /* Once value */
- static val_t once_value_10; /* Once value */
- static val_t once_value_11; /* Once value */
- static val_t once_value_12; /* Once value */
- 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_24; /* Once value */
fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 28;
- fra.me.meth = LOCATE_native_interface___frontier___MMSrcModule___compile_frontier;
+ fra.me.line = 34;
+ fra.me.meth = LOCATE_native_interface___frontier___NiVariable___needs_preparation;
fra.me.has_broke = 0;
- fra.me.REG_size = 6;
+ fra.me.REG_size = 2;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* native_interface/frontier.nit:38 */
+ fra.me.REG[1] = CALL_native_interface___frontier___NiVariable___ni_type(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[1] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[1])(fra.me.REG[1]);
+ fra.me.REG[1] = CALL_primitive_info___MMLocalClass___primitive_info(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ REGB1 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ REGB1 = TAG_Bool(0);
+ REGB0 = REGB1;
+ } else {
+ REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], NIT_NULL);
+ REGB0 = REGB1;
+ }
+ }
+ if (UNTAG_Bool(REGB0)) {
+ REGB0 = TAG_Bool(1);
+ } else {
+ /* native_interface/frontier.nit:39 */
+ fra.me.REG[1] = CALL_native_interface___frontier___NiVariable___ni_type(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[1] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[1])(fra.me.REG[1]);
+ fra.me.REG[1] = CALL_primitive_info___MMLocalClass___primitive_info(fra.me.REG[1])(fra.me.REG[1]);
+ REGB1 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 39);
+ }
+ REGB1 = CALL_primitive_info___PrimitiveInfo___tagged(fra.me.REG[1])(fra.me.REG[1]);
+ /* native_interface/frontier.nit:38 */
+ REGB0 = REGB1;
+ }
+ if (UNTAG_Bool(REGB0)) {
+ REGB0 = TAG_Bool(1);
+ } else {
+ /* native_interface/frontier.nit:40 */
+ fra.me.REG[0] = CALL_native_interface___frontier___NiVariable___ni_type(fra.me.REG[0])(fra.me.REG[0]);
+ REGB1 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[0])(fra.me.REG[0]);
+ /* native_interface/frontier.nit:38 */
+ REGB0 = REGB1;
+ }
+ goto label1;
+ label1: while(0);
+ stack_frame_head = fra.me.prev;
+ return REGB0;
+}
+static const char LOCATE_native_interface___frontier___NiVariable___prepare_for_nit[] = "frontier::NiVariable::prepare_for_nit";
+void native_interface___frontier___NiVariable___prepare_for_nit(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
+ val_t REGB0;
+ val_t tmp;
+ static val_t once_value_1; /* Once value */
+ static val_t once_value_2; /* Once value */
+ static val_t once_value_3; /* Once value */
+ static val_t once_value_4; /* Once value */
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 43;
+ fra.me.meth = LOCATE_native_interface___frontier___NiVariable___prepare_for_nit;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 5;
+ fra.me.nitni_local_ref_head = NULL;
fra.me.REG[0] = NIT_NULL;
fra.me.REG[1] = NIT_NULL;
fra.me.REG[2] = NIT_NULL;
fra.me.REG[3] = NIT_NULL;
fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
fra.me.REG[0] = p0;
fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:32 */
- fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_1) {
- fra.me.REG[4] = BOX_NativeString("#include \"");
- REGB0 = TAG_Int(10);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_1 = fra.me.REG[4];
- register_static_object(&once_value_1);
- } else fra.me.REG[4] = once_value_1;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMModule___name(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- if (!once_value_2) {
- fra.me.REG[4] = BOX_NativeString("._nitni.h\"\n");
- REGB0 = TAG_Int(11);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_2 = fra.me.REG[4];
- register_static_object(&once_value_2);
- } else fra.me.REG[4] = once_value_2;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:35 */
- fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
- if (!once_value_3) {
- fra.me.REG[2] = BOX_NativeString("#include <nit_common.h>\n");
- REGB0 = TAG_Int(24);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_3 = fra.me.REG[2];
- register_static_object(&once_value_3);
- } else fra.me.REG[2] = once_value_3;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- /* ./native_interface//frontier.nit:36 */
- fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_4) {
- fra.me.REG[4] = BOX_NativeString("#include \"");
- REGB0 = TAG_Int(10);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_4 = fra.me.REG[4];
- register_static_object(&once_value_4);
- } else fra.me.REG[4] = once_value_4;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___cprogram(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[4] = CALL_compiling___compiling_base___CProgram___module_header_name(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- if (!once_value_5) {
- fra.me.REG[4] = BOX_NativeString("\"\n");
- REGB0 = TAG_Int(2);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_5 = fra.me.REG[4];
- register_static_object(&once_value_5);
- } else fra.me.REG[4] = once_value_5;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:38 */
- REGB0 = TAG_Int(3);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_6) {
- fra.me.REG[2] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_6 = fra.me.REG[2];
- register_static_object(&once_value_6);
- } else fra.me.REG[2] = once_value_6;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMModule___name(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[2] = CALL_standard___string___AbstractString___to_upper(fra.me.REG[2])(fra.me.REG[2]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- if (!once_value_7) {
- fra.me.REG[2] = BOX_NativeString("_NITNI_H");
- REGB0 = TAG_Int(8);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_7 = fra.me.REG[2];
- register_static_object(&once_value_7);
- } else fra.me.REG[2] = once_value_7;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- /* ./native_interface//frontier.nit:39 */
- fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_8) {
- fra.me.REG[5] = BOX_NativeString("#ifndef ");
- REGB0 = TAG_Int(8);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_8 = fra.me.REG[5];
- register_static_object(&once_value_8);
- } else fra.me.REG[5] = once_value_8;
- 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]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- if (!once_value_9) {
- fra.me.REG[5] = BOX_NativeString("\n");
- REGB0 = TAG_Int(1);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_9 = fra.me.REG[5];
- register_static_object(&once_value_9);
- } else fra.me.REG[5] = once_value_9;
- 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_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
- /* ./native_interface//frontier.nit:40 */
- fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_10) {
- fra.me.REG[5] = BOX_NativeString("#define ");
- REGB0 = TAG_Int(8);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_10 = fra.me.REG[5];
- register_static_object(&once_value_10);
- } else fra.me.REG[5] = once_value_10;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[5]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- if (!once_value_11) {
- fra.me.REG[3] = BOX_NativeString("\n\n");
- REGB0 = TAG_Int(2);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_11 = fra.me.REG[3];
- register_static_object(&once_value_11);
- } else fra.me.REG[3] = once_value_11;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
- /* ./native_interface//frontier.nit:43 */
- REGB0 = TAG_Int(5);
- fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_12) {
- 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_12 = fra.me.REG[4];
- register_static_object(&once_value_12);
- } else fra.me.REG[4] = once_value_12;
- 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[4] = CALL_metamodel___abstractmetamodel___MMModule___directory(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMDirectory___path(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]);
- if (!once_value_13) {
- fra.me.REG[4] = BOX_NativeString("/");
- REGB0 = TAG_Int(1);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_13 = fra.me.REG[4];
- register_static_object(&once_value_13);
- } else fra.me.REG[4] = once_value_13;
- 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[4] = CALL_metamodel___abstractmetamodel___MMModule___name(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
- if (!once_value_14) {
- fra.me.REG[4] = BOX_NativeString(".nit.h");
- REGB0 = TAG_Int(6);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_14 = fra.me.REG[4];
- register_static_object(&once_value_14);
- } else fra.me.REG[4] = once_value_14;
- 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]);
- /* ./native_interface//frontier.nit:44 */
- REGB0 = CALL_standard___file___String___file_exists(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:45 */
- REGB0 = TAG_Int(5);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_15) {
- fra.me.REG[3] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_15 = fra.me.REG[3];
- register_static_object(&once_value_15);
- } else fra.me.REG[3] = once_value_15;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMModule___directory(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMDirectory___path(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- if (!once_value_16) {
- fra.me.REG[3] = BOX_NativeString("/");
- REGB0 = TAG_Int(1);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_16 = fra.me.REG[3];
- register_static_object(&once_value_16);
- } else fra.me.REG[3] = once_value_16;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMModule___name(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- if (!once_value_17) {
- fra.me.REG[3] = BOX_NativeString("_nit.h");
- REGB0 = TAG_Int(6);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_17 = fra.me.REG[3];
- register_static_object(&once_value_17);
- } else fra.me.REG[3] = once_value_17;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[2] = fra.me.REG[4];
- }
- /* ./native_interface//frontier.nit:47 */
- REGB0 = CALL_standard___file___String___file_exists(fra.me.REG[2])(fra.me.REG[2]);
+ /* native_interface/frontier.nit:46 */
+ REGB0 = CALL_native_interface___frontier___NiVariable___needs_preparation(fra.me.REG[0])(fra.me.REG[0]);
if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:48 */
- fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
+ /* native_interface/frontier.nit:47 */
+ fra.me.REG[2] = CALL_native_interface___ni_tools___FunctionCompiler___decls(fra.me.REG[1])(fra.me.REG[1]);
REGB0 = TAG_Int(3);
fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_18) {
- fra.me.REG[5] = BOX_NativeString("#include \"");
- REGB0 = TAG_Int(10);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_18 = fra.me.REG[5];
- register_static_object(&once_value_18);
- } else fra.me.REG[5] = once_value_18;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
- fra.me.REG[5] = CALL_native_interface___frontier___String___path_from_parent(fra.me.REG[2])(fra.me.REG[2]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
- if (!once_value_19) {
- fra.me.REG[5] = BOX_NativeString("\"\n");
+ if (!once_value_1) {
+ fra.me.REG[4] = BOX_NativeString("val_t ");
+ REGB0 = TAG_Int(6);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_1 = fra.me.REG[4];
+ register_static_object(&once_value_1);
+ } else fra.me.REG[4] = once_value_1;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ fra.me.REG[4] = CALL_native_interface___frontier___NiVariable___ni_to_name(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ if (!once_value_2) {
+ fra.me.REG[4] = 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_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[3])(fra.me.REG[3], fra.me.REG[5]);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_2 = fra.me.REG[4];
+ register_static_object(&once_value_2);
+ } else fra.me.REG[4] = once_value_2;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:49 */
- fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ /* native_interface/frontier.nit:48 */
+ fra.me.REG[1] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
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("#include \"");
- REGB0 = TAG_Int(10);
- 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[2] = CALL_native_interface___frontier___String___path_from_parent(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]);
- if (!once_value_21) {
- fra.me.REG[2] = BOX_NativeString("\"\n");
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_3) {
+ fra.me.REG[2] = BOX_NativeString("");
+ REGB0 = TAG_Int(0);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_3 = fra.me.REG[2];
+ register_static_object(&once_value_3);
+ } else fra.me.REG[2] = once_value_3;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ fra.me.REG[2] = CALL_native_interface___frontier___NiVariable___ni_type(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[4] = CALL_native_interface___frontier___NiVariable___ni_to_name(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[0] = CALL_native_interface___frontier___NiVariable___ni_from_name(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[0] = CALL_native_interface___ni_metamodel___MMType___assign_from_friendly(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4], fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
+ if (!once_value_4) {
+ fra.me.REG[0] = BOX_NativeString(";\n");
REGB0 = TAG_Int(2);
+ fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
+ once_value_4 = fra.me.REG[0];
+ register_static_object(&once_value_4);
+ } else fra.me.REG[0] = once_value_4;
+ fra.me.REG[0] = fra.me.REG[0];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
+ }
+ stack_frame_head = fra.me.prev;
+ return;
+}
+static const char LOCATE_native_interface___frontier___NiVariable___prepare_for_c[] = "frontier::NiVariable::prepare_for_c";
+void native_interface___frontier___NiVariable___prepare_for_c(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
+ val_t REGB0;
+ val_t tmp;
+ static val_t once_value_1; /* Once value */
+ static val_t once_value_2; /* Once value */
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 52;
+ fra.me.meth = LOCATE_native_interface___frontier___NiVariable___prepare_for_c;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 5;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[3] = NIT_NULL;
+ fra.me.REG[4] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* native_interface/frontier.nit:54 */
+ REGB0 = CALL_native_interface___frontier___NiVariable___needs_preparation(fra.me.REG[0])(fra.me.REG[0]);
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:55 */
+ fra.me.REG[2] = CALL_native_interface___frontier___NiVariable___ni_type(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[3] = CALL_native_interface___frontier___NiVariable___ni_to_name(fra.me.REG[0])(fra.me.REG[0]);
+ REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[0], COLOR_native_interface___frontier___ReturnVariable, ID_native_interface___frontier___ReturnVariable)) /*cast ReturnVariable*/;
+ REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
+ CALL_native_interface___frontier___MMType___compile_new_local_ref(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3], fra.me.REG[1], REGB0);
+ /* native_interface/frontier.nit:56 */
+ fra.me.REG[1] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_1) {
+ fra.me.REG[2] = BOX_NativeString("");
+ REGB0 = TAG_Int(0);
fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_21 = fra.me.REG[2];
- register_static_object(&once_value_21);
- } else fra.me.REG[2] = once_value_21;
+ once_value_1 = fra.me.REG[2];
+ register_static_object(&once_value_1);
+ } else fra.me.REG[2] = once_value_1;
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]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ fra.me.REG[2] = CALL_native_interface___frontier___NiVariable___ni_type(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[4] = CALL_native_interface___frontier___NiVariable___ni_to_name(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[0] = CALL_native_interface___frontier___NiVariable___ni_from_name(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[0] = CALL_native_interface___ni_metamodel___MMType___assign_to_friendly(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4], fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
+ if (!once_value_2) {
+ fra.me.REG[0] = BOX_NativeString(";\n");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
+ once_value_2 = fra.me.REG[0];
+ register_static_object(&once_value_2);
+ } else fra.me.REG[0] = once_value_2;
+ fra.me.REG[0] = fra.me.REG[0];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
}
- /* ./native_interface//frontier.nit:52 */
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMModule___local_classes(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[4])(fra.me.REG[4], (&(fra.me)), ((fun_t)OC_native_interface___frontier___MMSrcModule___compile_frontier_22));
- /* ./native_interface//frontier.nit:71 */
- fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
- if (!once_value_24) {
- fra.me.REG[0] = BOX_NativeString("#endif\n");
- REGB0 = TAG_Int(7);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_24 = fra.me.REG[0];
- register_static_object(&once_value_24);
- } else fra.me.REG[0] = once_value_24;
- fra.me.REG[0] = fra.me.REG[0];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
stack_frame_head = fra.me.prev;
return;
}
- void OC_native_interface___frontier___MMSrcModule___compile_frontier_22(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- fun_t CREG[1];
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 0;
- fra.me.meth = LOCATE_native_interface___frontier___MMSrcModule___compile_frontier;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.closure_ctx = closctx_param;
- fra.me.closure_funs = CREG;
- fra.me.REG[0] = p0;
- CREG[0] = clos_fun0;
- /* ./native_interface//frontier.nit:54 */
- fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMLocalClass___local_local_properties(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[1])(fra.me.REG[1], closctx, ((fun_t)OC_native_interface___frontier___MMSrcModule___compile_frontier_23));
- /* ./native_interface//frontier.nit:65 */
- fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMGlobalClass___intro(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[1],fra.me.REG[0]));
+static const char LOCATE_native_interface___frontier___NiVariable___as_arg_to_nit[] = "frontier::NiVariable::as_arg_to_nit";
+val_t native_interface___frontier___NiVariable___as_arg_to_nit(val_t p0){
+ struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
+ val_t REGB0;
+ val_t REGB1;
+ val_t tmp;
+ static val_t once_value_2; /* Once value */
+ static val_t once_value_3; /* Once value */
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 60;
+ fra.me.meth = LOCATE_native_interface___frontier___NiVariable___as_arg_to_nit;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 4;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[3] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* native_interface/frontier.nit:63 */
+ REGB0 = CALL_native_interface___frontier___NiVariable___needs_preparation(fra.me.REG[0])(fra.me.REG[0]);
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:64 */
+ fra.me.REG[1] = CALL_native_interface___frontier___NiVariable___ni_to_name(fra.me.REG[0])(fra.me.REG[0]);
+ goto label1;
+ } else {
+ /* native_interface/frontier.nit:65 */
+ fra.me.REG[2] = CALL_native_interface___frontier___NiVariable___ni_type(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[2] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[2])(fra.me.REG[2]);
+ fra.me.REG[2] = CALL_primitive_info___MMLocalClass___primitive_info(fra.me.REG[2])(fra.me.REG[2]);
+ REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
if (UNTAG_Bool(REGB0)) {
} else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
+ REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ REGB1 = TAG_Bool(0);
+ REGB0 = REGB1;
+ } else {
+ REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
+ REGB0 = REGB1;
+ }
+ }
+ REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
+ if (UNTAG_Bool(REGB0)) {
+ REGB0 = TAG_Bool(1);
+ } else {
+ fra.me.REG[2] = CALL_native_interface___frontier___NiVariable___ni_type(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[2] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[2])(fra.me.REG[2]);
+ fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[2])(fra.me.REG[2]);
+ REGB1 = CALL_metamodel___abstractmetamodel___MMGlobalClass___is_extern(fra.me.REG[2])(fra.me.REG[2]);
REGB0 = REGB1;
}
if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:66 */
- fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_metamodel___abstractmetamodel___MMGlobalClass___is_extern(fra.me.REG[1])(fra.me.REG[1]);
+ /* native_interface/frontier.nit:66 */
+ fra.me.REG[2] = CALL_native_interface___frontier___NiVariable___ni_type(fra.me.REG[0])(fra.me.REG[0]);
+ REGB0 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[2])(fra.me.REG[2]);
+ REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
} else {
- /* ./native_interface//frontier.nit:65 */
- REGB1 = TAG_Bool(false);
+ /* native_interface/frontier.nit:65 */
+ REGB1 = TAG_Bool(0);
REGB0 = REGB1;
}
if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:67 */
- CALL_native_interface___frontier___MMLocalClass___compile_defaut_extern_type(fra.me.REG[0])(fra.me.REG[0], closctx->REG[1]);
+ /* native_interface/frontier.nit:67 */
+ fra.me.REG[2] = CALL_native_interface___frontier___NiVariable___ni_type(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[3] = CALL_native_interface___frontier___NiVariable___ni_from_name(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[3] = CALL_primitive_info___MMType___boxtype(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ fra.me.REG[1] = fra.me.REG[3];
+ goto label1;
+ } else {
+ /* native_interface/frontier.nit:69 */
+ REGB0 = TAG_Int(3);
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_2) {
+ fra.me.REG[2] = BOX_NativeString("");
+ REGB0 = TAG_Int(0);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_2 = fra.me.REG[2];
+ register_static_object(&once_value_2);
+ } else fra.me.REG[2] = once_value_2;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ fra.me.REG[0] = CALL_native_interface___frontier___NiVariable___ni_from_name(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
+ if (!once_value_3) {
+ fra.me.REG[0] = BOX_NativeString("->ref.val");
+ REGB0 = TAG_Int(9);
+ fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
+ once_value_3 = fra.me.REG[0];
+ register_static_object(&once_value_3);
+ } else fra.me.REG[0] = once_value_3;
+ fra.me.REG[0] = fra.me.REG[0];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ fra.me.REG[1] = fra.me.REG[3];
+ goto label1;
}
- stack_frame_head = fra.me.prev;
- return;
}
- void OC_native_interface___frontier___MMSrcModule___compile_frontier_23(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- fun_t CREG[1];
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 0;
- fra.me.meth = LOCATE_native_interface___frontier___MMSrcModule___compile_frontier;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.closure_ctx = closctx_param;
- fra.me.closure_funs = CREG;
- fra.me.REG[0] = p0;
- CREG[0] = clos_fun0;
- /* ./native_interface//frontier.nit:57 */
- fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMLocalProperty___mmmodule(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[1],closctx->REG[0]));
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], closctx->REG[0]);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:58 */
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[0], COLOR_syntax___syntax_base___MMSrcMethod, ID_syntax___syntax_base___MMSrcMethod)) /*cast MMSrcMethod*/;
- } else {
- /* ./native_interface//frontier.nit:57 */
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:58 */
- REGB0 = CALL_metamodel___abstractmetamodel___MMMethod___is_extern(fra.me.REG[0])(fra.me.REG[0]);
- } else {
- /* ./native_interface//frontier.nit:57 */
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:59 */
- CALL_native_interface___frontier___MMSrcMethod___compile_extern_to_frontier(fra.me.REG[0])(fra.me.REG[0], closctx->REG[1]);
- }
- stack_frame_head = fra.me.prev;
- return;
- }
-void native_interface___frontier___MMSrcMethod___compile_extern_to_frontier(val_t p0, val_t p1){
+ label1: while(0);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[1];
+}
+static const char LOCATE_native_interface___frontier___NiVariable___as_arg_to_c[] = "frontier::NiVariable::as_arg_to_c";
+val_t native_interface___frontier___NiVariable___as_arg_to_c(val_t p0){
struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
val_t REGB0;
- val_t REGB1;
val_t tmp;
fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 76;
- fra.me.meth = LOCATE_native_interface___frontier___MMSrcMethod___compile_extern_to_frontier;
+ fra.me.line = 73;
+ fra.me.meth = LOCATE_native_interface___frontier___NiVariable___as_arg_to_c;
fra.me.has_broke = 0;
fra.me.REG_size = 3;
+ fra.me.nitni_local_ref_head = NULL;
fra.me.REG[0] = NIT_NULL;
fra.me.REG[1] = NIT_NULL;
fra.me.REG[2] = NIT_NULL;
fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:79 */
- fra.me.REG[2] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
+ /* native_interface/frontier.nit:76 */
+ REGB0 = CALL_native_interface___frontier___NiVariable___needs_preparation(fra.me.REG[0])(fra.me.REG[0]);
if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:77 */
+ fra.me.REG[1] = CALL_native_interface___frontier___NiVariable___ni_to_name(fra.me.REG[0])(fra.me.REG[0]);
+ goto label1;
} else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:80 */
- fra.me.REG[2] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 80);
- }
- CALL_native_interface___frontier___MMSignature___compile_frontier(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
- }
- /* ./native_interface//frontier.nit:83 */
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMMethod___explicit_imports(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[2])(fra.me.REG[2], (&(fra.me)), ((fun_t)OC_native_interface___frontier___MMSrcMethod___compile_extern_to_frontier_1));
- /* ./native_interface//frontier.nit:92 */
- fra.me.REG[2] = CALL_metamodel___static_type___MMMethod___explicit_casts(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[2])(fra.me.REG[2], (&(fra.me)), ((fun_t)OC_native_interface___frontier___MMSrcMethod___compile_extern_to_frontier_2));
- /* ./native_interface//frontier.nit:100 */
- REGB0 = CALL_metamodel___abstractmetamodel___MMLocalProperty___need_super(fra.me.REG[0])(fra.me.REG[0]);
- if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:101 */
- CALL_native_interface___frontier___MMSrcMethod___compile_super_to_frontier(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
+ /* native_interface/frontier.nit:79 */
+ fra.me.REG[2] = CALL_native_interface___frontier___NiVariable___ni_type(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[0] = CALL_native_interface___frontier___NiVariable___ni_from_name(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[0] = CALL_primitive_info___MMType___unboxtype(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]);
+ fra.me.REG[1] = fra.me.REG[0];
+ goto label1;
}
- /* ./native_interface//frontier.nit:105 */
- CALL_native_interface___frontier___MMSrcMethod___compile_out_to_frontier(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
+ label1: while(0);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[1];
+}
+static const char LOCATE_native_interface___frontier___NiVariable___init[] = "frontier::NiVariable::init";
+void native_interface___frontier___NiVariable___init(val_t p0, int* init_table){
+ int itpos0 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_native_interface___frontier___NiVariable].i;
+ struct {struct stack_frame_t me;} fra;
+ val_t tmp;
+ if (init_table[itpos0]) return;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 0;
+ fra.me.meth = LOCATE_native_interface___frontier___NiVariable___init;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 0;
+ fra.me.nitni_local_ref_head = NULL;
stack_frame_head = fra.me.prev;
+ init_table[itpos0] = 1;
return;
}
- void OC_native_interface___frontier___MMSrcMethod___compile_extern_to_frontier_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- fun_t CREG[1];
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 0;
- fra.me.meth = LOCATE_native_interface___frontier___MMSrcMethod___compile_extern_to_frontier;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.closure_ctx = closctx_param;
- fra.me.closure_funs = CREG;
- fra.me.REG[0] = p0;
- CREG[0] = clos_fun0;
- /* ./native_interface//frontier.nit:85 */
- fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___friendlys(closctx->REG[1])(closctx->REG[1]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- /* ./native_interface//frontier.nit:88 */
- fra.me.REG[0] = CALL_metamodel___static_type___MMExplicitImport___signature(fra.me.REG[0])(fra.me.REG[0]);
- CALL_native_interface___frontier___MMSignature___compile_frontier(fra.me.REG[0])(fra.me.REG[0], closctx->REG[1]);
- stack_frame_head = fra.me.prev;
- return;
- }
- void OC_native_interface___frontier___MMSrcMethod___compile_extern_to_frontier_2(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- fun_t CREG[1];
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 0;
- fra.me.meth = LOCATE_native_interface___frontier___MMSrcMethod___compile_extern_to_frontier;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.closure_ctx = closctx_param;
- fra.me.closure_funs = CREG;
- fra.me.REG[0] = p0;
- CREG[0] = clos_fun0;
- /* ./native_interface//frontier.nit:93 */
- fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___casts(closctx->REG[1])(closctx->REG[1]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- /* ./native_interface//frontier.nit:95 */
- fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___types(closctx->REG[1])(closctx->REG[1]);
- fra.me.REG[2] = CALL_metamodel___static_type___MMImportedCast___from(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[2]);
- /* ./native_interface//frontier.nit:96 */
- fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___types(closctx->REG[1])(closctx->REG[1]);
- fra.me.REG[0] = CALL_metamodel___static_type___MMImportedCast___to(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[0]);
- stack_frame_head = fra.me.prev;
- return;
- }
-void native_interface___frontier___MMSrcMethod___compile_super_to_frontier(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[10];} fra;
+static const char LOCATE_native_interface___frontier___MMParam___ni_from_name[] = "frontier::MMParam::(frontier::NiVariable::ni_from_name)";
+val_t native_interface___frontier___MMParam___ni_from_name(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 87;
+ fra.me.meth = LOCATE_native_interface___frontier___MMParam___ni_from_name;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* native_interface/frontier.nit:87 */
+ fra.me.REG[0] = CALL_metamodel___static_type___MMParam___name(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
+ goto label1;
+ label1: while(0);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[0];
+}
+static const char LOCATE_native_interface___frontier___MMParam___ni_to_name[] = "frontier::MMParam::(frontier::NiVariable::ni_to_name)";
+val_t native_interface___frontier___MMParam___ni_to_name(val_t p0){
+ struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
val_t REGB0;
- val_t REGB1;
- val_t REGB2;
val_t tmp;
static val_t once_value_1; /* Once value */
static val_t once_value_2; /* Once value */
- static val_t once_value_3; /* Once value */
- static val_t once_value_4; /* Once value */
- static val_t once_value_5; /* Once value */
- static val_t once_value_6; /* Once value */
- static val_t once_value_7; /* Once value */
- static val_t once_value_8; /* Once value */
- static val_t once_value_9; /* Once value */
- static val_t once_value_10; /* Once value */
- static val_t once_value_11; /* Once value */
- static val_t once_value_12; /* Once value */
- 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_26; /* 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_39; /* Once value */
fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 108;
- fra.me.meth = LOCATE_native_interface___frontier___MMSrcMethod___compile_super_to_frontier;
+ fra.me.line = 88;
+ fra.me.meth = LOCATE_native_interface___frontier___MMParam___ni_to_name;
fra.me.has_broke = 0;
- fra.me.REG_size = 11;
+ fra.me.REG_size = 3;
+ fra.me.nitni_local_ref_head = NULL;
fra.me.REG[0] = NIT_NULL;
fra.me.REG[1] = NIT_NULL;
fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[6] = NIT_NULL;
- fra.me.REG[7] = NIT_NULL;
- fra.me.REG[8] = NIT_NULL;
- fra.me.REG[9] = NIT_NULL;
- fra.me.REG[10] = NIT_NULL;
fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:115 */
- fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
+ /* native_interface/frontier.nit:88 */
REGB0 = TAG_Int(3);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ fra.me.REG[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
if (!once_value_1) {
- fra.me.REG[4] = BOX_NativeString("\n/* friendly for super of ");
- REGB0 = TAG_Int(26);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_1 = fra.me.REG[4];
+ fra.me.REG[2] = BOX_NativeString("trans___");
+ REGB0 = TAG_Int(8);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_1 = fra.me.REG[2];
register_static_object(&once_value_1);
- } else fra.me.REG[4] = once_value_1;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ } else fra.me.REG[2] = once_value_1;
+ 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[0] = CALL_metamodel___static_type___MMParam___name(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[0] = CALL_standard___string___Object___to_s(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_2) {
- fra.me.REG[4] = BOX_NativeString(" */\n");
- REGB0 = TAG_Int(4);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_2 = fra.me.REG[4];
- register_static_object(&once_value_2);
- } else fra.me.REG[4] = once_value_2;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:116 */
- fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_3) {
- fra.me.REG[4] = BOX_NativeString("");
+ fra.me.REG[0] = BOX_NativeString("");
REGB0 = TAG_Int(0);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_3 = fra.me.REG[4];
- register_static_object(&once_value_3);
- } else fra.me.REG[4] = once_value_3;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___mmmodule(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMMethod___frontier_super_csignature_from(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
- if (!once_value_4) {
- fra.me.REG[4] = BOX_NativeString(";\n");
- REGB0 = TAG_Int(2);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_4 = fra.me.REG[4];
- register_static_object(&once_value_4);
- } else fra.me.REG[4] = once_value_4;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[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_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- /* ./native_interface//frontier.nit:119 */
- fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_5) {
- fra.me.REG[4] = BOX_NativeString("#ifndef ");
- REGB0 = TAG_Int(8);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_5 = fra.me.REG[4];
- register_static_object(&once_value_5);
- } else fra.me.REG[4] = once_value_5;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMMethod___friendly_super_cname(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- if (!once_value_6) {
- fra.me.REG[4] = BOX_NativeString("\n");
- REGB0 = TAG_Int(1);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_6 = fra.me.REG[4];
- register_static_object(&once_value_6);
- } else fra.me.REG[4] = once_value_6;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:120 */
- fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header(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_7) {
- fra.me.REG[4] = BOX_NativeString("#define ");
- REGB0 = TAG_Int(8);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_7 = fra.me.REG[4];
- register_static_object(&once_value_7);
- } else fra.me.REG[4] = once_value_7;
- 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[4] = CALL_native_interface___ni_metamodel___MMMethod___friendly_super_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[4]);
- if (!once_value_8) {
- fra.me.REG[4] = BOX_NativeString(" ");
- REGB0 = TAG_Int(1);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_8 = fra.me.REG[4];
- register_static_object(&once_value_8);
- } else fra.me.REG[4] = once_value_8;
- 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[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___mmmodule(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMMethod___local_friendly_super_name_from(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
- if (!once_value_9) {
- fra.me.REG[4] = BOX_NativeString("\n");
- REGB0 = TAG_Int(1);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_9 = fra.me.REG[4];
- register_static_object(&once_value_9);
- } else fra.me.REG[4] = once_value_9;
- 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_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- /* ./native_interface//frontier.nit:121 */
- fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
- if (!once_value_10) {
- fra.me.REG[3] = BOX_NativeString("#endif\n");
- REGB0 = TAG_Int(7);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_10 = fra.me.REG[3];
- register_static_object(&once_value_10);
- } else fra.me.REG[3] = once_value_10;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:124 */
- fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_11) {
- fra.me.REG[4] = BOX_NativeString("\n/* friendly for super of ");
- REGB0 = TAG_Int(26);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_11 = fra.me.REG[4];
- register_static_object(&once_value_11);
- } else fra.me.REG[4] = once_value_11;
- 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[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(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[4]);
- if (!once_value_12) {
- fra.me.REG[4] = BOX_NativeString(" */\n");
+ fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
+ once_value_2 = fra.me.REG[0];
+ register_static_object(&once_value_2);
+ } else fra.me.REG[0] = once_value_2;
+ 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]);
+ goto label3;
+ label3: while(0);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[1];
+}
+static const char LOCATE_native_interface___frontier___MMParam___ni_type[] = "frontier::MMParam::(frontier::NiVariable::ni_type)";
+val_t native_interface___frontier___MMParam___ni_type(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 89;
+ fra.me.meth = LOCATE_native_interface___frontier___MMParam___ni_type;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* native_interface/frontier.nit:89 */
+ fra.me.REG[0] = CALL_metamodel___static_type___MMParam___mmtype(fra.me.REG[0])(fra.me.REG[0]);
+ goto label1;
+ label1: while(0);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[0];
+}
+static const char LOCATE_native_interface___frontier___ReceiverVariable___ni_from_name[] = "frontier::ReceiverVariable::(frontier::NiVariable::ni_from_name)";
+val_t native_interface___frontier___ReceiverVariable___ni_from_name(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t REGB0;
+ val_t tmp;
+ static val_t once_value_1; /* Once value */
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 95;
+ fra.me.meth = LOCATE_native_interface___frontier___ReceiverVariable___ni_from_name;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* native_interface/frontier.nit:95 */
+ if (!once_value_1) {
+ fra.me.REG[0] = BOX_NativeString("recv");
REGB0 = TAG_Int(4);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_12 = fra.me.REG[4];
- register_static_object(&once_value_12);
- } else fra.me.REG[4] = once_value_12;
- 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_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- /* ./native_interface//frontier.nit:125 */
- fra.me.REG[2] = CALL_native_interface___ni_metamodel___MMMethod___friendly_super_csignature(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = NEW_FunctionCompiler_native_interface___ni_tools___FunctionCompiler___init(fra.me.REG[2]);
- /* ./native_interface//frontier.nit:128 */
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___init();
- /* ./native_interface//frontier.nit:131 */
- if (!once_value_13) {
- fra.me.REG[4] = BOX_NativeString("recv___nit");
+ fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
+ once_value_1 = fra.me.REG[0];
+ register_static_object(&once_value_1);
+ } else fra.me.REG[0] = once_value_1;
+ fra.me.REG[0] = fra.me.REG[0];
+ goto label2;
+ label2: while(0);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[0];
+}
+static const char LOCATE_native_interface___frontier___ReceiverVariable___ni_to_name[] = "frontier::ReceiverVariable::(frontier::NiVariable::ni_to_name)";
+val_t native_interface___frontier___ReceiverVariable___ni_to_name(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t REGB0;
+ val_t tmp;
+ static val_t once_value_1; /* Once value */
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 96;
+ fra.me.meth = LOCATE_native_interface___frontier___ReceiverVariable___ni_to_name;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* native_interface/frontier.nit:96 */
+ if (!once_value_1) {
+ fra.me.REG[0] = BOX_NativeString("trans_recv");
REGB0 = TAG_Int(10);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_13 = fra.me.REG[4];
- register_static_object(&once_value_13);
- } else fra.me.REG[4] = once_value_13;
- fra.me.REG[4] = fra.me.REG[4];
- /* ./native_interface//frontier.nit:132 */
- fra.me.REG[5] = CALL_native_interface___ni_tools___FunctionCompiler___decls(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Int(3);
- fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_14) {
- fra.me.REG[7] = BOX_NativeString("val_t ");
- REGB0 = TAG_Int(6);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_14 = fra.me.REG[7];
- register_static_object(&once_value_14);
- } else fra.me.REG[7] = once_value_14;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[4]);
- if (!once_value_15) {
- fra.me.REG[7] = BOX_NativeString(";\n");
- REGB0 = TAG_Int(2);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_15 = fra.me.REG[7];
- register_static_object(&once_value_15);
- } else fra.me.REG[7] = once_value_15;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
- fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
- /* ./native_interface//frontier.nit:133 */
- fra.me.REG[6] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Int(3);
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_16) {
- fra.me.REG[7] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_16 = fra.me.REG[7];
- register_static_object(&once_value_16);
- } else fra.me.REG[7] = once_value_16;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[7]);
- fra.me.REG[7] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
+ fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
+ once_value_1 = fra.me.REG[0];
+ register_static_object(&once_value_1);
+ } else fra.me.REG[0] = once_value_1;
+ fra.me.REG[0] = fra.me.REG[0];
+ goto label2;
+ label2: while(0);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[0];
+}
+static const char LOCATE_native_interface___frontier___ReceiverVariable___ni_type[] = "frontier::ReceiverVariable::(frontier::NiVariable::ni_type)";
+val_t native_interface___frontier___ReceiverVariable___ni_type(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t REGB0;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 98;
+ fra.me.meth = LOCATE_native_interface___frontier___ReceiverVariable___ni_type;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* native_interface/frontier.nit:98 */
+ REGB0 = TAG_Bool(ATTR_native_interface___frontier___ReceiverVariable_____atni_type(fra.me.REG[0])!=NIT_NULL);
if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 133);
+ } else {
+ nit_abort("Uninitialized attribute %s", "@ni_type", LOCATE_native_interface___frontier, 98);
}
- fra.me.REG[7] = CALL_metamodel___static_type___MMSignature___recv(fra.me.REG[7])(fra.me.REG[7]);
- if (!once_value_17) {
- fra.me.REG[8] = BOX_NativeString("recv");
- REGB0 = TAG_Int(4);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
- once_value_17 = fra.me.REG[8];
- register_static_object(&once_value_17);
- } else fra.me.REG[8] = once_value_17;
- fra.me.REG[8] = fra.me.REG[8];
- fra.me.REG[8] = CALL_native_interface___ni_metamodel___MMType___assign_from_friendly(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[4], fra.me.REG[8]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[8]);
- if (!once_value_18) {
- fra.me.REG[8] = BOX_NativeString(";\n");
- REGB0 = TAG_Int(2);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
- once_value_18 = fra.me.REG[8];
- register_static_object(&once_value_18);
- } else fra.me.REG[8] = once_value_18;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[8]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[5]);
- /* ./native_interface//frontier.nit:134 */
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- /* ./native_interface//frontier.nit:137 */
- fra.me.REG[5] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
+ fra.me.REG[0] = ATTR_native_interface___frontier___ReceiverVariable_____atni_type(fra.me.REG[0]);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[0];
+}
+static const char LOCATE_native_interface___frontier___ReceiverVariable___ni_type__eq[] = "frontier::ReceiverVariable::ni_type=";
+void native_interface___frontier___ReceiverVariable___ni_type__eq(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 98;
+ fra.me.meth = LOCATE_native_interface___frontier___ReceiverVariable___ni_type__eq;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 2;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* native_interface/frontier.nit:98 */
+ ATTR_native_interface___frontier___ReceiverVariable_____atni_type(fra.me.REG[0]) = fra.me.REG[1];
+ stack_frame_head = fra.me.prev;
+ return;
+}
+static const char LOCATE_native_interface___frontier___ReceiverVariable___init[] = "frontier::ReceiverVariable::init";
+void native_interface___frontier___ReceiverVariable___init(val_t p0, val_t p1, int* init_table){
+ int itpos1 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_native_interface___frontier___ReceiverVariable].i;
+ struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
+ val_t tmp;
+ if (init_table[itpos1]) return;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 99;
+ fra.me.meth = LOCATE_native_interface___frontier___ReceiverVariable___init;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 3;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* native_interface/frontier.nit:99 */
+ fra.me.REG[2] = fra.me.REG[0];
+ CALL_native_interface___frontier___NiVariable___init(fra.me.REG[0])(fra.me.REG[0], init_table);
+ CALL_native_interface___frontier___ReceiverVariable___ni_type__eq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
+ stack_frame_head = fra.me.prev;
+ init_table[itpos1] = 1;
+ return;
+}
+static const char LOCATE_native_interface___frontier___ReturnVariable___ni_from_name[] = "frontier::ReturnVariable::(frontier::NiVariable::ni_from_name)";
+val_t native_interface___frontier___ReturnVariable___ni_from_name(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t REGB0;
+ val_t tmp;
+ static val_t once_value_1; /* Once value */
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 105;
+ fra.me.meth = LOCATE_native_interface___frontier___ReturnVariable___ni_from_name;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* native_interface/frontier.nit:105 */
+ if (!once_value_1) {
+ fra.me.REG[0] = BOX_NativeString("orig_return");
+ REGB0 = TAG_Int(11);
+ fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
+ once_value_1 = fra.me.REG[0];
+ register_static_object(&once_value_1);
+ } else fra.me.REG[0] = once_value_1;
+ fra.me.REG[0] = fra.me.REG[0];
+ goto label2;
+ label2: while(0);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[0];
+}
+static const char LOCATE_native_interface___frontier___ReturnVariable___ni_to_name[] = "frontier::ReturnVariable::(frontier::NiVariable::ni_to_name)";
+val_t native_interface___frontier___ReturnVariable___ni_to_name(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t REGB0;
+ val_t tmp;
+ static val_t once_value_1; /* Once value */
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 106;
+ fra.me.meth = LOCATE_native_interface___frontier___ReturnVariable___ni_to_name;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* native_interface/frontier.nit:106 */
+ if (!once_value_1) {
+ fra.me.REG[0] = BOX_NativeString("trans_return");
+ REGB0 = TAG_Int(12);
+ fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
+ once_value_1 = fra.me.REG[0];
+ register_static_object(&once_value_1);
+ } else fra.me.REG[0] = once_value_1;
+ fra.me.REG[0] = fra.me.REG[0];
+ goto label2;
+ label2: while(0);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[0];
+}
+static const char LOCATE_native_interface___frontier___ReturnVariable___ni_type[] = "frontier::ReturnVariable::(frontier::NiVariable::ni_type)";
+val_t native_interface___frontier___ReturnVariable___ni_type(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t REGB0;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 108;
+ fra.me.meth = LOCATE_native_interface___frontier___ReturnVariable___ni_type;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* native_interface/frontier.nit:108 */
+ REGB0 = TAG_Bool(ATTR_native_interface___frontier___ReturnVariable_____atni_type(fra.me.REG[0])!=NIT_NULL);
if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 137);
- }
- fra.me.REG[5] = CALL_metamodel___static_type___MMSignature___params(fra.me.REG[5])(fra.me.REG[5]);
- /* ./../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[5])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
} else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 270);
+ nit_abort("Uninitialized attribute %s", "@ni_type", LOCATE_native_interface___frontier, 108);
}
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[5]);
- /* ./../lib/standard//collection//array.nit:271 */
- fra.me.REG[6] = ATTR_standard___collection___array___Array____items(fra.me.REG[5]);
- /* ./../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[5])!=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[5]);
- 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 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
- /* ./../lib/standard//collection//array.nit:272 */
- if (UNTAG_Bool(REGB1)) {
- /* ./../lib/standard//collection//array.nit:273 */
- REGB1 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 273);
- }
- /* ./../lib/standard//collection//array.nit:718 */
- fra.me.REG[8] = ((Nit_NativeArray)fra.me.REG[6])->val[UNTAG_Int(REGB0)];
- /* ./native_interface//frontier.nit:138 */
- REGB1 = TAG_Int(3);
- fra.me.REG[7] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_19) {
- fra.me.REG[9] = BOX_NativeString("");
- REGB1 = TAG_Int(0);
- fra.me.REG[9] = NEW_String_standard___string___String___with_native(fra.me.REG[9], REGB1);
- once_value_19 = fra.me.REG[9];
- register_static_object(&once_value_19);
- } else fra.me.REG[9] = once_value_19;
- fra.me.REG[9] = fra.me.REG[9];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[9]);
- fra.me.REG[9] = CALL_metamodel___static_type___MMParam___name(fra.me.REG[8])(fra.me.REG[8]);
- fra.me.REG[9] = CALL_standard___string___Object___to_s(fra.me.REG[9])(fra.me.REG[9]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[9]);
- if (!once_value_20) {
- fra.me.REG[9] = BOX_NativeString("___nit");
- REGB1 = TAG_Int(6);
- fra.me.REG[9] = NEW_String_standard___string___String___with_native(fra.me.REG[9], REGB1);
- once_value_20 = fra.me.REG[9];
- register_static_object(&once_value_20);
- } else fra.me.REG[9] = once_value_20;
- fra.me.REG[9] = fra.me.REG[9];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[9]);
- fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[7])(fra.me.REG[7]);
- fra.me.REG[4] = fra.me.REG[7];
- /* ./native_interface//frontier.nit:139 */
- fra.me.REG[7] = CALL_native_interface___ni_tools___FunctionCompiler___decls(fra.me.REG[2])(fra.me.REG[2]);
- REGB1 = TAG_Int(3);
- fra.me.REG[9] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_21) {
- fra.me.REG[10] = BOX_NativeString("val_t ");
- REGB1 = TAG_Int(6);
- fra.me.REG[10] = NEW_String_standard___string___String___with_native(fra.me.REG[10], REGB1);
- once_value_21 = fra.me.REG[10];
- register_static_object(&once_value_21);
- } else fra.me.REG[10] = once_value_21;
- fra.me.REG[10] = fra.me.REG[10];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[10]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[4]);
- if (!once_value_22) {
- fra.me.REG[10] = BOX_NativeString(";\n");
- REGB1 = TAG_Int(2);
- fra.me.REG[10] = NEW_String_standard___string___String___with_native(fra.me.REG[10], REGB1);
- once_value_22 = fra.me.REG[10];
- register_static_object(&once_value_22);
- } else fra.me.REG[10] = once_value_22;
- fra.me.REG[10] = fra.me.REG[10];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[10]);
- fra.me.REG[9] = CALL_standard___string___Object___to_s(fra.me.REG[9])(fra.me.REG[9]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[9]);
- /* ./native_interface//frontier.nit:140 */
- fra.me.REG[9] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[2])(fra.me.REG[2]);
- REGB1 = TAG_Int(3);
- fra.me.REG[7] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_23) {
- fra.me.REG[10] = BOX_NativeString("");
- REGB1 = TAG_Int(0);
- fra.me.REG[10] = NEW_String_standard___string___String___with_native(fra.me.REG[10], REGB1);
- once_value_23 = fra.me.REG[10];
- register_static_object(&once_value_23);
- } else fra.me.REG[10] = once_value_23;
- fra.me.REG[10] = fra.me.REG[10];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[10]);
- fra.me.REG[10] = CALL_metamodel___static_type___MMParam___mmtype(fra.me.REG[8])(fra.me.REG[8]);
- fra.me.REG[8] = CALL_metamodel___static_type___MMParam___name(fra.me.REG[8])(fra.me.REG[8]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]);
- fra.me.REG[8] = CALL_native_interface___ni_metamodel___MMType___assign_from_friendly(fra.me.REG[10])(fra.me.REG[10], fra.me.REG[4], fra.me.REG[8]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- if (!once_value_24) {
- fra.me.REG[8] = BOX_NativeString(";\n");
- REGB1 = TAG_Int(2);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB1);
- once_value_24 = fra.me.REG[8];
- register_static_object(&once_value_24);
- } else fra.me.REG[8] = once_value_24;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[7])(fra.me.REG[7]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[7]);
- /* ./native_interface//frontier.nit:141 */
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- /* ./../lib/standard//collection//array.nit:274 */
- REGB1 = TAG_Int(1);
- /* ./../lib/standard//kernel.nit:235 */
- 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 label25;
- }
- }
- label25: while(0);
- /* ./native_interface//frontier.nit:145 */
- fra.me.REG[4] = NIT_NULL;
- /* ./native_interface//frontier.nit:147 */
- fra.me.REG[6] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 147);
- }
- fra.me.REG[6] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[6])(fra.me.REG[6]);
- REGB0 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[6])(fra.me.REG[6], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:148 */
- fra.me.REG[6] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 148);
- }
- fra.me.REG[6] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[6])(fra.me.REG[6]);
- fra.me.REG[4] = fra.me.REG[6];
- }
- /* ./native_interface//frontier.nit:151 */
- fra.me.REG[6] = NEW_Buffer_standard___string___Buffer___init();
- /* ./native_interface//frontier.nit:152 */
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:153 */
- fra.me.REG[5] = CALL_native_interface___ni_tools___FunctionCompiler___decls(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Int(3);
- fra.me.REG[7] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_26) {
- fra.me.REG[9] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[9] = NEW_String_standard___string___String___with_native(fra.me.REG[9], REGB0);
- once_value_26 = fra.me.REG[9];
- register_static_object(&once_value_26);
- } else fra.me.REG[9] = once_value_26;
- fra.me.REG[9] = fra.me.REG[9];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[9]);
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 153);
- }
- fra.me.REG[9] = CALL_native_interface___ni_metamodel___MMType___friendly_extern_name(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[9]);
- if (!once_value_27) {
- fra.me.REG[9] = BOX_NativeString(" return___nitni;\n");
- REGB0 = TAG_Int(17);
- fra.me.REG[9] = NEW_String_standard___string___String___with_native(fra.me.REG[9], REGB0);
- once_value_27 = fra.me.REG[9];
- register_static_object(&once_value_27);
- } else fra.me.REG[9] = once_value_27;
- fra.me.REG[9] = fra.me.REG[9];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[9]);
- fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[7])(fra.me.REG[7]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[7]);
- /* ./native_interface//frontier.nit:154 */
- fra.me.REG[7] = CALL_native_interface___ni_tools___FunctionCompiler___decls(fra.me.REG[2])(fra.me.REG[2]);
- if (!once_value_28) {
- fra.me.REG[5] = BOX_NativeString("val_t return___nit;\n");
- REGB0 = TAG_Int(20);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_28 = fra.me.REG[5];
- register_static_object(&once_value_28);
- } else fra.me.REG[5] = once_value_28;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[5]);
- /* ./native_interface//frontier.nit:155 */
- if (!once_value_29) {
- fra.me.REG[5] = BOX_NativeString("return___nit = ");
- REGB0 = TAG_Int(15);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_29 = fra.me.REG[5];
- register_static_object(&once_value_29);
- } else fra.me.REG[5] = once_value_29;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[5]);
- }
- /* ./native_interface//frontier.nit:158 */
- REGB0 = TAG_Int(3);
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_30) {
- fra.me.REG[7] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_30 = fra.me.REG[7];
- register_static_object(&once_value_30);
- } else fra.me.REG[7] = once_value_30;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[7]);
- fra.me.REG[0] = CALL_compiling___compiling_base___MMLocalProperty___super_meth_call(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[0]);
- if (!once_value_31) {
- fra.me.REG[0] = BOX_NativeString("( recv___nit )");
- REGB0 = TAG_Int(14);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_31 = fra.me.REG[0];
- register_static_object(&once_value_31);
- } else fra.me.REG[0] = once_value_31;
- 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[0]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[5]);
- /* ./native_interface//frontier.nit:160 */
- REGB0 = TAG_Int(3);
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_32) {
- fra.me.REG[0] = BOX_NativeString("( ");
- REGB0 = TAG_Int(2);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_32 = fra.me.REG[0];
- register_static_object(&once_value_32);
- } else fra.me.REG[0] = once_value_32;
- 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[0]);
- if (!once_value_33) {
- fra.me.REG[0] = BOX_NativeString(", ");
- REGB0 = TAG_Int(2);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_33 = fra.me.REG[0];
- register_static_object(&once_value_33);
- } else fra.me.REG[0] = once_value_33;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___string___Collection___join(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[0]);
- if (!once_value_34) {
- fra.me.REG[0] = BOX_NativeString(" );\n");
- REGB0 = TAG_Int(4);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_34 = fra.me.REG[0];
- register_static_object(&once_value_34);
- } else fra.me.REG[0] = once_value_34;
- 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[0]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[5]);
- /* ./native_interface//frontier.nit:162 */
- fra.me.REG[5] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
- /* ./native_interface//frontier.nit:165 */
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:167 */
- fra.me.REG[6] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Int(3);
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_35) {
- fra.me.REG[0] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_35 = fra.me.REG[0];
- register_static_object(&once_value_35);
- } else fra.me.REG[0] = once_value_35;
- 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[0]);
- if (!once_value_36) {
- fra.me.REG[0] = BOX_NativeString("return___nitni");
- REGB0 = TAG_Int(14);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_36 = fra.me.REG[0];
- register_static_object(&once_value_36);
- } else fra.me.REG[0] = once_value_36;
- fra.me.REG[0] = fra.me.REG[0];
- if (!once_value_37) {
- fra.me.REG[3] = BOX_NativeString("return___nit");
- REGB0 = TAG_Int(12);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_37 = fra.me.REG[3];
- register_static_object(&once_value_37);
- } else fra.me.REG[3] = once_value_37;
- fra.me.REG[3] = fra.me.REG[3];
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 167);
- }
- fra.me.REG[3] = CALL_native_interface___ni_metamodel___MMType___assign_to_friendly(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[0], fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
- if (!once_value_38) {
- fra.me.REG[3] = BOX_NativeString(";\n");
- REGB0 = TAG_Int(2);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_38 = fra.me.REG[3];
- register_static_object(&once_value_38);
- } else fra.me.REG[3] = once_value_38;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[5]);
- /* ./native_interface//frontier.nit:168 */
- fra.me.REG[5] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[2])(fra.me.REG[2]);
- if (!once_value_39) {
- fra.me.REG[6] = BOX_NativeString("return return___nitni;\n");
- REGB0 = TAG_Int(23);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
- 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_compiling___compiling_writer___Writer___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
- }
- /* ./native_interface//frontier.nit:171 */
- fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[2] = CALL_native_interface___ni_tools___FunctionCompiler___to_writer(fra.me.REG[2])(fra.me.REG[2]);
- CALL_compiling___compiling_writer___Writer___append(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
+ fra.me.REG[0] = ATTR_native_interface___frontier___ReturnVariable_____atni_type(fra.me.REG[0]);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[0];
+}
+static const char LOCATE_native_interface___frontier___ReturnVariable___ni_type__eq[] = "frontier::ReturnVariable::ni_type=";
+void native_interface___frontier___ReturnVariable___ni_type__eq(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 108;
+ fra.me.meth = LOCATE_native_interface___frontier___ReturnVariable___ni_type__eq;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 2;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* native_interface/frontier.nit:108 */
+ ATTR_native_interface___frontier___ReturnVariable_____atni_type(fra.me.REG[0]) = fra.me.REG[1];
stack_frame_head = fra.me.prev;
return;
}
-void native_interface___frontier___MMSrcMethod___compile_out_to_frontier(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[11];} fra;
+static const char LOCATE_native_interface___frontier___ReturnVariable___init[] = "frontier::ReturnVariable::init";
+void native_interface___frontier___ReturnVariable___init(val_t p0, val_t p1, int* init_table){
+ int itpos2 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_native_interface___frontier___ReturnVariable].i;
+ struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
+ val_t tmp;
+ if (init_table[itpos2]) return;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 109;
+ fra.me.meth = LOCATE_native_interface___frontier___ReturnVariable___init;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 3;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* native_interface/frontier.nit:109 */
+ fra.me.REG[2] = fra.me.REG[0];
+ CALL_native_interface___frontier___NiVariable___init(fra.me.REG[0])(fra.me.REG[0], init_table);
+ CALL_native_interface___frontier___ReturnVariable___ni_type__eq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
+ stack_frame_head = fra.me.prev;
+ init_table[itpos2] = 1;
+ return;
+}
+static const char LOCATE_native_interface___frontier___ReturnVariable___prepare_for_c[] = "frontier::ReturnVariable::(frontier::NiVariable::prepare_for_c)";
+void native_interface___frontier___ReturnVariable___prepare_for_c(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
val_t REGB0;
- val_t REGB1;
- val_t REGB2;
val_t tmp;
static val_t once_value_1; /* Once value */
static val_t once_value_2; /* Once value */
- static val_t once_value_3; /* Once value */
- static val_t once_value_4; /* Once value */
- static val_t once_value_5; /* Once value */
- static val_t once_value_6; /* Once value */
- static val_t once_value_7; /* Once value */
- static val_t once_value_8; /* Once value */
- static val_t once_value_9; /* Once value */
- static val_t once_value_10; /* Once value */
- static val_t once_value_11; /* Once value */
- static val_t once_value_12; /* Once value */
- 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_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_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 */
fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 174;
- fra.me.meth = LOCATE_native_interface___frontier___MMSrcMethod___compile_out_to_frontier;
+ fra.me.line = 111;
+ fra.me.meth = LOCATE_native_interface___frontier___ReturnVariable___prepare_for_c;
fra.me.has_broke = 0;
- fra.me.REG_size = 12;
+ fra.me.REG_size = 5;
+ fra.me.nitni_local_ref_head = NULL;
fra.me.REG[0] = NIT_NULL;
fra.me.REG[1] = NIT_NULL;
fra.me.REG[2] = NIT_NULL;
fra.me.REG[3] = NIT_NULL;
fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[6] = NIT_NULL;
- fra.me.REG[7] = NIT_NULL;
- fra.me.REG[8] = NIT_NULL;
- fra.me.REG[9] = NIT_NULL;
- fra.me.REG[10] = NIT_NULL;
- fra.me.REG[11] = NIT_NULL;
fra.me.REG[0] = p0;
fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:174 */
- fra.me.REG[2] = fra.me.REG[0];
- /* ./native_interface//frontier.nit:180 */
- fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
+ /* native_interface/frontier.nit:114 */
+ fra.me.REG[2] = CALL_native_interface___ni_tools___FunctionCompiler___decls(fra.me.REG[1])(fra.me.REG[1]);
REGB0 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
if (!once_value_1) {
- fra.me.REG[5] = BOX_NativeString("\n/* out/indirect function for ");
- REGB0 = TAG_Int(30);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_1 = fra.me.REG[5];
+ fra.me.REG[4] = BOX_NativeString("val_t ");
+ REGB0 = TAG_Int(6);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_1 = fra.me.REG[4];
register_static_object(&once_value_1);
- } else fra.me.REG[5] = once_value_1;
- 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_metamodel___abstractmetamodel___MMLocalProperty___full_name(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[5]);
+ } else fra.me.REG[4] = once_value_1;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ fra.me.REG[4] = CALL_native_interface___frontier___NiVariable___ni_from_name(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
if (!once_value_2) {
- fra.me.REG[5] = BOX_NativeString(" */\n");
- REGB0 = TAG_Int(4);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_2 = fra.me.REG[5];
+ fra.me.REG[4] = BOX_NativeString(";\n");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_2 = fra.me.REG[4];
register_static_object(&once_value_2);
- } else fra.me.REG[5] = once_value_2;
- 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_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- /* ./native_interface//frontier.nit:181 */
- fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
+ } else fra.me.REG[4] = once_value_2;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ /* native_interface/frontier.nit:115 */
+ fra.me.REG[3] = CALL_native_interface___frontier___NiVariable___ni_type(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[0] = CALL_native_interface___frontier___NiVariable___ni_to_name(fra.me.REG[0])(fra.me.REG[0]);
+ REGB0 = TAG_Bool(1);
+ CALL_native_interface___frontier___MMType___compile_new_local_ref(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0], fra.me.REG[1], REGB0);
+ stack_frame_head = fra.me.prev;
+ return;
+}
+static const char LOCATE_native_interface___frontier___ReturnVariable___prepare_for_nit[] = "frontier::ReturnVariable::(frontier::NiVariable::prepare_for_nit)";
+void native_interface___frontier___ReturnVariable___prepare_for_nit(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
+ val_t REGB0;
+ val_t tmp;
+ static val_t once_value_1; /* Once value */
+ static val_t once_value_2; /* Once value */
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 117;
+ fra.me.meth = LOCATE_native_interface___frontier___ReturnVariable___prepare_for_nit;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 4;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[3] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* native_interface/frontier.nit:119 */
+ fra.me.REG[2] = CALL_native_interface___frontier___NiVariable___ni_type(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[3] = CALL_native_interface___frontier___NiVariable___ni_from_name(fra.me.REG[0])(fra.me.REG[0]);
+ REGB0 = TAG_Bool(0);
+ CALL_native_interface___frontier___MMType___compile_new_local_ref(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3], fra.me.REG[1], REGB0);
+ /* native_interface/frontier.nit:120 */
+ fra.me.REG[1] = CALL_native_interface___ni_tools___FunctionCompiler___decls(fra.me.REG[1])(fra.me.REG[1]);
REGB0 = TAG_Int(3);
fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_3) {
- 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_3 = fra.me.REG[5];
- register_static_object(&once_value_3);
- } else fra.me.REG[5] = once_value_3;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
- fra.me.REG[5] = CALL_native_interface___ni_metamodel___MMMethod___out_csignature(fra.me.REG[2])(fra.me.REG[2]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
- if (!once_value_4) {
- fra.me.REG[5] = BOX_NativeString(";\n");
+ if (!once_value_1) {
+ fra.me.REG[2] = BOX_NativeString("val_t ");
+ REGB0 = TAG_Int(6);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_1 = fra.me.REG[2];
+ register_static_object(&once_value_1);
+ } else fra.me.REG[2] = once_value_1;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ fra.me.REG[0] = CALL_native_interface___frontier___NiVariable___ni_to_name(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
+ if (!once_value_2) {
+ fra.me.REG[0] = 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_4 = fra.me.REG[5];
+ fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
+ once_value_2 = fra.me.REG[0];
+ register_static_object(&once_value_2);
+ } else fra.me.REG[0] = once_value_2;
+ fra.me.REG[0] = fra.me.REG[0];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
+ stack_frame_head = fra.me.prev;
+ return;
+}
+static const char LOCATE_native_interface___frontier___MMSrcModule___compile_frontier[] = "frontier::MMSrcModule::compile_frontier";
+void native_interface___frontier___MMSrcModule___compile_frontier(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[5];} fra;
+ val_t REGB0;
+ val_t tmp;
+ static val_t once_value_1; /* Once value */
+ static val_t once_value_2; /* Once value */
+ static val_t once_value_3; /* Once value */
+ static val_t once_value_4; /* Once value */
+ static val_t once_value_5; /* Once value */
+ static val_t once_value_6; /* Once value */
+ static val_t once_value_7; /* Once value */
+ static val_t once_value_8; /* Once value */
+ static val_t once_value_9; /* Once value */
+ static val_t once_value_10; /* Once value */
+ static val_t once_value_11; /* Once value */
+ static val_t once_value_12; /* Once value */
+ 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_27; /* Once value */
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 125;
+ fra.me.meth = LOCATE_native_interface___frontier___MMSrcModule___compile_frontier;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 6;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[3] = NIT_NULL;
+ fra.me.REG[4] = NIT_NULL;
+ fra.me.REG[5] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* native_interface/frontier.nit:129 */
+ fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_1) {
+ fra.me.REG[4] = BOX_NativeString("#include \"");
+ REGB0 = TAG_Int(10);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_1 = fra.me.REG[4];
+ register_static_object(&once_value_1);
+ } else fra.me.REG[4] = once_value_1;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMModule___name(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ if (!once_value_2) {
+ fra.me.REG[4] = BOX_NativeString("._nitni.h\"\n");
+ REGB0 = TAG_Int(11);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_2 = fra.me.REG[4];
+ register_static_object(&once_value_2);
+ } else fra.me.REG[4] = once_value_2;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ /* native_interface/frontier.nit:132 */
+ fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
+ if (!once_value_3) {
+ fra.me.REG[2] = BOX_NativeString("#include <nit_common.h>\n");
+ REGB0 = TAG_Int(24);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_3 = fra.me.REG[2];
+ register_static_object(&once_value_3);
+ } else fra.me.REG[2] = once_value_3;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ /* native_interface/frontier.nit:133 */
+ fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_4) {
+ fra.me.REG[4] = BOX_NativeString("#include \"");
+ REGB0 = TAG_Int(10);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_4 = fra.me.REG[4];
register_static_object(&once_value_4);
- } else fra.me.REG[5] = once_value_4;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
+ } else fra.me.REG[4] = once_value_4;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___cprogram(fra.me.REG[1])(fra.me.REG[1]);
+ fra.me.REG[4] = CALL_compiling___compiling_base___CProgram___module_header_name(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ if (!once_value_5) {
+ fra.me.REG[4] = BOX_NativeString("\"\n");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_5 = fra.me.REG[4];
+ register_static_object(&once_value_5);
+ } else fra.me.REG[4] = once_value_5;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:184 */
- fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ /* native_interface/frontier.nit:135 */
+ REGB0 = TAG_Int(3);
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_6) {
+ fra.me.REG[2] = BOX_NativeString("");
+ REGB0 = TAG_Int(0);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_6 = fra.me.REG[2];
+ register_static_object(&once_value_6);
+ } else fra.me.REG[2] = once_value_6;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMModule___name(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
+ fra.me.REG[2] = CALL_standard___string___AbstractString___to_upper(fra.me.REG[2])(fra.me.REG[2]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ if (!once_value_7) {
+ fra.me.REG[2] = BOX_NativeString("_NITNI_H");
+ REGB0 = TAG_Int(8);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_7 = fra.me.REG[2];
+ register_static_object(&once_value_7);
+ } else fra.me.REG[2] = once_value_7;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ /* native_interface/frontier.nit:136 */
+ fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
REGB0 = TAG_Int(3);
fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_5) {
- fra.me.REG[5] = BOX_NativeString("/* out/indirect function for ");
- REGB0 = TAG_Int(29);
+ if (!once_value_8) {
+ fra.me.REG[5] = BOX_NativeString("#ifndef ");
+ REGB0 = TAG_Int(8);
fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_5 = fra.me.REG[5];
- register_static_object(&once_value_5);
- } else fra.me.REG[5] = once_value_5;
+ once_value_8 = fra.me.REG[5];
+ register_static_object(&once_value_8);
+ } else fra.me.REG[5] = once_value_8;
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_metamodel___abstractmetamodel___MMLocalProperty___full_name(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[5]);
- if (!once_value_6) {
- fra.me.REG[5] = BOX_NativeString(" */\n");
- REGB0 = TAG_Int(4);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
+ if (!once_value_9) {
+ fra.me.REG[5] = BOX_NativeString("\n");
+ REGB0 = TAG_Int(1);
fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_6 = fra.me.REG[5];
- register_static_object(&once_value_6);
- } else fra.me.REG[5] = once_value_6;
+ once_value_9 = fra.me.REG[5];
+ register_static_object(&once_value_9);
+ } else fra.me.REG[5] = once_value_9;
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_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- /* ./native_interface//frontier.nit:185 */
- fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMMethod___out_csignature(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[4] = NEW_FunctionCompiler_native_interface___ni_tools___FunctionCompiler___init(fra.me.REG[4]);
- /* ./native_interface//frontier.nit:188 */
- fra.me.REG[3] = NEW_List_standard___collection___list___List___init();
- /* ./native_interface//frontier.nit:190 */
- REGB0 = CALL_syntax___syntax_base___MMLocalProperty___is_init(fra.me.REG[2])(fra.me.REG[2]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
+ /* native_interface/frontier.nit:137 */
+ fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_10) {
+ fra.me.REG[5] = BOX_NativeString("#define ");
+ REGB0 = TAG_Int(8);
+ fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
+ once_value_10 = fra.me.REG[5];
+ register_static_object(&once_value_10);
+ } else fra.me.REG[5] = once_value_10;
+ fra.me.REG[5] = fra.me.REG[5];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[5]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ if (!once_value_11) {
+ fra.me.REG[3] = BOX_NativeString("\n\n");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_11 = fra.me.REG[3];
+ register_static_object(&once_value_11);
+ } else fra.me.REG[3] = once_value_11;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
+ /* native_interface/frontier.nit:140 */
+ REGB0 = TAG_Int(5);
+ fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_12) {
+ 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_12 = fra.me.REG[4];
+ register_static_object(&once_value_12);
+ } else fra.me.REG[4] = once_value_12;
+ 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[4] = CALL_metamodel___abstractmetamodel___MMModule___directory(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMDirectory___path(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]);
+ if (!once_value_13) {
+ fra.me.REG[4] = BOX_NativeString("/");
+ REGB0 = TAG_Int(1);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_13 = fra.me.REG[4];
+ register_static_object(&once_value_13);
+ } else fra.me.REG[4] = once_value_13;
+ 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[4] = CALL_metamodel___abstractmetamodel___MMModule___name(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
+ if (!once_value_14) {
+ fra.me.REG[4] = BOX_NativeString(".nit.h");
+ REGB0 = TAG_Int(6);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_14 = fra.me.REG[4];
+ register_static_object(&once_value_14);
+ } else fra.me.REG[4] = once_value_14;
+ 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]);
+ /* native_interface/frontier.nit:141 */
+ REGB0 = CALL_standard___file___String___file_exists(fra.me.REG[2])(fra.me.REG[2]);
REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:191 */
- if (!once_value_7) {
- fra.me.REG[5] = BOX_NativeString("recv___nitni");
- REGB0 = TAG_Int(12);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_7 = fra.me.REG[5];
- register_static_object(&once_value_7);
- } else fra.me.REG[5] = once_value_7;
- fra.me.REG[5] = fra.me.REG[5];
- /* ./native_interface//frontier.nit:192 */
- fra.me.REG[6] = CALL_native_interface___ni_tools___FunctionCompiler___decls(fra.me.REG[4])(fra.me.REG[4]);
+ /* native_interface/frontier.nit:142 */
REGB0 = TAG_Int(5);
- fra.me.REG[7] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_8) {
- fra.me.REG[8] = BOX_NativeString("");
+ fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_15) {
+ fra.me.REG[3] = BOX_NativeString("");
REGB0 = TAG_Int(0);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
- once_value_8 = fra.me.REG[8];
- register_static_object(&once_value_8);
- } else fra.me.REG[8] = once_value_8;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- fra.me.REG[8] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool(fra.me.REG[8]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 192);
- }
- fra.me.REG[8] = CALL_metamodel___static_type___MMSignature___recv(fra.me.REG[8])(fra.me.REG[8]);
- fra.me.REG[8] = CALL_native_interface___ni_metamodel___MMType___friendly_extern_name(fra.me.REG[8])(fra.me.REG[8]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- if (!once_value_9) {
- fra.me.REG[8] = BOX_NativeString(" ");
- REGB0 = TAG_Int(1);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
- once_value_9 = fra.me.REG[8];
- register_static_object(&once_value_9);
- } else fra.me.REG[8] = once_value_9;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[5]);
- if (!once_value_10) {
- fra.me.REG[8] = BOX_NativeString(";\n");
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_15 = fra.me.REG[3];
+ register_static_object(&once_value_15);
+ } else fra.me.REG[3] = once_value_15;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
+ fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMModule___directory(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMDirectory___path(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
+ if (!once_value_16) {
+ fra.me.REG[3] = BOX_NativeString("/");
+ REGB0 = TAG_Int(1);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_16 = fra.me.REG[3];
+ register_static_object(&once_value_16);
+ } else fra.me.REG[3] = once_value_16;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
+ fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMModule___name(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
+ if (!once_value_17) {
+ fra.me.REG[3] = BOX_NativeString("_nit.h");
+ REGB0 = TAG_Int(6);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_17 = fra.me.REG[3];
+ register_static_object(&once_value_17);
+ } else fra.me.REG[3] = once_value_17;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
+ fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
+ fra.me.REG[2] = fra.me.REG[4];
+ }
+ /* native_interface/frontier.nit:144 */
+ REGB0 = CALL_standard___file___String___file_exists(fra.me.REG[2])(fra.me.REG[2]);
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:145 */
+ if (!once_value_18) {
+ fra.me.REG[4] = BOX_NativeString("..");
REGB0 = TAG_Int(2);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
- once_value_10 = fra.me.REG[8];
- register_static_object(&once_value_10);
- } else fra.me.REG[8] = once_value_10;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[7])(fra.me.REG[7]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
- /* ./native_interface//frontier.nit:193 */
- fra.me.REG[7] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[4])(fra.me.REG[4]);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_18 = fra.me.REG[4];
+ register_static_object(&once_value_18);
+ } else fra.me.REG[4] = once_value_18;
+ fra.me.REG[4] = fra.me.REG[4];
+ fra.me.REG[2] = CALL_standard___file___String___join_path(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
+ fra.me.REG[2] = CALL_standard___file___String___simplify_path(fra.me.REG[2])(fra.me.REG[2]);
+ /* native_interface/frontier.nit:146 */
+ fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
REGB0 = TAG_Int(3);
- fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_11) {
- fra.me.REG[8] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
- once_value_11 = fra.me.REG[8];
- register_static_object(&once_value_11);
- } else fra.me.REG[8] = once_value_11;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[8]);
- fra.me.REG[8] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool(fra.me.REG[8]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 193);
- }
- fra.me.REG[8] = CALL_metamodel___static_type___MMSignature___recv(fra.me.REG[8])(fra.me.REG[8]);
- if (!once_value_12) {
- fra.me.REG[9] = BOX_NativeString("recv");
- REGB0 = TAG_Int(4);
- fra.me.REG[9] = NEW_String_standard___string___String___with_native(fra.me.REG[9], REGB0);
- once_value_12 = fra.me.REG[9];
- register_static_object(&once_value_12);
- } else fra.me.REG[9] = once_value_12;
- fra.me.REG[9] = fra.me.REG[9];
- fra.me.REG[9] = CALL_native_interface___ni_metamodel___MMType___assign_to_friendly(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[5], fra.me.REG[9]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[9]);
- if (!once_value_13) {
- fra.me.REG[9] = BOX_NativeString(";\n");
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_19) {
+ fra.me.REG[5] = BOX_NativeString("#include \"");
+ REGB0 = TAG_Int(10);
+ 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[3])(fra.me.REG[3], fra.me.REG[5]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ if (!once_value_20) {
+ fra.me.REG[5] = BOX_NativeString("\"\n");
REGB0 = TAG_Int(2);
- fra.me.REG[9] = NEW_String_standard___string___String___with_native(fra.me.REG[9], REGB0);
- once_value_13 = fra.me.REG[9];
- register_static_object(&once_value_13);
- } else fra.me.REG[9] = once_value_13;
- fra.me.REG[9] = fra.me.REG[9];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[9]);
- fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[6]);
- /* ./native_interface//frontier.nit:194 */
+ 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[3])(fra.me.REG[3], fra.me.REG[5]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
+ /* native_interface/frontier.nit:147 */
+ fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_21) {
+ fra.me.REG[5] = BOX_NativeString("#include \"");
+ REGB0 = TAG_Int(10);
+ 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]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
+ if (!once_value_22) {
+ fra.me.REG[2] = BOX_NativeString("\"\n");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_22 = fra.me.REG[2];
+ register_static_object(&once_value_22);
+ } else fra.me.REG[2] = once_value_22;
+ 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]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
}
- /* ./native_interface//frontier.nit:197 */
- fra.me.REG[5] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
+ /* native_interface/frontier.nit:149 */
+ REGB0 = CALL_metamodel___abstractmetamodel___MMModule___uses_ffi(fra.me.REG[0])(fra.me.REG[0]);
if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 197);
+ /* native_interface/frontier.nit:150 */
+ fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_23) {
+ 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_23 = fra.me.REG[2];
+ register_static_object(&once_value_23);
+ } else fra.me.REG[2] = once_value_23;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], 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[3])(fra.me.REG[3], fra.me.REG[2]);
+ if (!once_value_24) {
+ fra.me.REG[2] = BOX_NativeString("._ffi.h>\n");
+ REGB0 = TAG_Int(9);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_24 = fra.me.REG[2];
+ register_static_object(&once_value_24);
+ } else fra.me.REG[2] = once_value_24;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
}
- fra.me.REG[5] = CALL_metamodel___static_type___MMSignature___params(fra.me.REG[5])(fra.me.REG[5]);
- /* ./../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[5])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 270);
+ /* native_interface/frontier.nit:153 */
+ fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMModule___local_classes(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[3])(fra.me.REG[3], (&(fra.me)), ((fun_t)OC_native_interface___frontier___MMSrcModule___compile_frontier_25));
+ /* native_interface/frontier.nit:165 */
+ CALL_native_interface___frontier___FrontierVisitor___compile_cached(fra.me.REG[1])(fra.me.REG[1]);
+ /* native_interface/frontier.nit:167 */
+ fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
+ if (!once_value_27) {
+ fra.me.REG[0] = BOX_NativeString("#endif\n");
+ REGB0 = TAG_Int(7);
+ fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
+ once_value_27 = fra.me.REG[0];
+ register_static_object(&once_value_27);
+ } else fra.me.REG[0] = once_value_27;
+ fra.me.REG[0] = fra.me.REG[0];
+ CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
+ stack_frame_head = fra.me.prev;
+ return;
+}
+ void OC_native_interface___frontier___MMSrcModule___compile_frontier_25(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
+ struct {struct stack_frame_t me;} fra;
+ fun_t CREG[1];
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 0;
+ fra.me.meth = LOCATE_native_interface___frontier___MMSrcModule___compile_frontier;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.closure_ctx = closctx_param;
+ fra.me.closure_funs = CREG;
+ fra.me.REG[0] = p0;
+ CREG[0] = clos_fun0;
+ /* native_interface/frontier.nit:155 */
+ fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMLocalClass___local_local_properties(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[0])(fra.me.REG[0], closctx, ((fun_t)OC_native_interface___frontier___MMSrcModule___compile_frontier_26));
+ stack_frame_head = fra.me.prev;
+ return;
}
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[5]);
- /* ./../lib/standard//collection//array.nit:271 */
- fra.me.REG[6] = ATTR_standard___collection___array___Array____items(fra.me.REG[5]);
- /* ./../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[5])!=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[5]);
- 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 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
- /* ./../lib/standard//collection//array.nit:272 */
- if (UNTAG_Bool(REGB1)) {
- /* ./../lib/standard//collection//array.nit:273 */
- REGB1 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 273);
+ void OC_native_interface___frontier___MMSrcModule___compile_frontier_26(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
+ val_t REGB0;
+ val_t REGB1;
+ fun_t CREG[1];
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 0;
+ fra.me.meth = LOCATE_native_interface___frontier___MMSrcModule___compile_frontier;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 2;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.closure_ctx = closctx_param;
+ fra.me.closure_funs = CREG;
+ fra.me.REG[0] = p0;
+ CREG[0] = clos_fun0;
+ /* native_interface/frontier.nit:158 */
+ fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMLocalProperty___mmmodule(fra.me.REG[0])(fra.me.REG[0]);
+ REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[1],closctx->REG[0]));
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], closctx->REG[0]);
+ REGB0 = REGB1;
}
- /* ./../lib/standard//collection//array.nit:718 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[6])->val[UNTAG_Int(REGB0)];
- /* ./native_interface//frontier.nit:198 */
- REGB1 = TAG_Int(3);
- fra.me.REG[9] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_14) {
- fra.me.REG[8] = BOX_NativeString("");
- REGB1 = TAG_Int(0);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB1);
- once_value_14 = fra.me.REG[8];
- register_static_object(&once_value_14);
- } else fra.me.REG[8] = once_value_14;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[8]);
- fra.me.REG[8] = CALL_metamodel___static_type___MMParam___name(fra.me.REG[7])(fra.me.REG[7]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[8]);
- if (!once_value_15) {
- fra.me.REG[8] = BOX_NativeString("___nitni");
- REGB1 = TAG_Int(8);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB1);
- once_value_15 = fra.me.REG[8];
- register_static_object(&once_value_15);
- } else fra.me.REG[8] = once_value_15;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[8]);
- fra.me.REG[9] = CALL_standard___string___Object___to_s(fra.me.REG[9])(fra.me.REG[9]);
- /* ./native_interface//frontier.nit:199 */
- fra.me.REG[8] = CALL_native_interface___ni_tools___FunctionCompiler___decls(fra.me.REG[4])(fra.me.REG[4]);
- REGB1 = TAG_Int(5);
- fra.me.REG[10] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_16) {
- fra.me.REG[11] = BOX_NativeString("");
- REGB1 = TAG_Int(0);
- fra.me.REG[11] = NEW_String_standard___string___String___with_native(fra.me.REG[11], REGB1);
- once_value_16 = fra.me.REG[11];
- register_static_object(&once_value_16);
- } else fra.me.REG[11] = once_value_16;
- fra.me.REG[11] = fra.me.REG[11];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[10])(fra.me.REG[10], fra.me.REG[11]);
- fra.me.REG[11] = CALL_metamodel___static_type___MMParam___mmtype(fra.me.REG[7])(fra.me.REG[7]);
- fra.me.REG[11] = CALL_native_interface___ni_metamodel___MMType___friendly_extern_name(fra.me.REG[11])(fra.me.REG[11]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[10])(fra.me.REG[10], fra.me.REG[11]);
- if (!once_value_17) {
- fra.me.REG[11] = BOX_NativeString(" ");
- REGB1 = TAG_Int(1);
- fra.me.REG[11] = NEW_String_standard___string___String___with_native(fra.me.REG[11], REGB1);
- once_value_17 = fra.me.REG[11];
- register_static_object(&once_value_17);
- } else fra.me.REG[11] = once_value_17;
- fra.me.REG[11] = fra.me.REG[11];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[10])(fra.me.REG[10], fra.me.REG[11]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[10])(fra.me.REG[10], fra.me.REG[9]);
- if (!once_value_18) {
- fra.me.REG[11] = BOX_NativeString(";\n");
- REGB1 = TAG_Int(2);
- fra.me.REG[11] = NEW_String_standard___string___String___with_native(fra.me.REG[11], REGB1);
- once_value_18 = fra.me.REG[11];
- register_static_object(&once_value_18);
- } else fra.me.REG[11] = once_value_18;
- fra.me.REG[11] = fra.me.REG[11];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[10])(fra.me.REG[10], fra.me.REG[11]);
- fra.me.REG[10] = CALL_standard___string___Object___to_s(fra.me.REG[10])(fra.me.REG[10]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[10]);
- /* ./native_interface//frontier.nit:200 */
- fra.me.REG[10] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[4])(fra.me.REG[4]);
- REGB1 = TAG_Int(3);
- fra.me.REG[8] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_19) {
- fra.me.REG[11] = BOX_NativeString("");
- REGB1 = TAG_Int(0);
- fra.me.REG[11] = NEW_String_standard___string___String___with_native(fra.me.REG[11], REGB1);
- once_value_19 = fra.me.REG[11];
- register_static_object(&once_value_19);
- } else fra.me.REG[11] = once_value_19;
- fra.me.REG[11] = fra.me.REG[11];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[11]);
- fra.me.REG[11] = CALL_metamodel___static_type___MMParam___mmtype(fra.me.REG[7])(fra.me.REG[7]);
- fra.me.REG[7] = CALL_metamodel___static_type___MMParam___name(fra.me.REG[7])(fra.me.REG[7]);
- fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[7])(fra.me.REG[7]);
- fra.me.REG[7] = CALL_native_interface___ni_metamodel___MMType___assign_to_friendly(fra.me.REG[11])(fra.me.REG[11], fra.me.REG[9], 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_20) {
- 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_20 = fra.me.REG[7];
- register_static_object(&once_value_20);
- } else fra.me.REG[7] = once_value_20;
- 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_compiling___compiling_writer___Writer___add(fra.me.REG[10])(fra.me.REG[10], fra.me.REG[8]);
- /* ./native_interface//frontier.nit:201 */
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[9]);
- /* ./../lib/standard//collection//array.nit:274 */
- REGB1 = TAG_Int(1);
- /* ./../lib/standard//kernel.nit:235 */
- 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 label21;
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:159 */
+ REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[0], COLOR_syntax___syntax_base___MMSrcMethod, ID_syntax___syntax_base___MMSrcMethod)) /*cast MMSrcMethod*/;
+ } else {
+ /* native_interface/frontier.nit:158 */
+ REGB1 = TAG_Bool(0);
+ REGB0 = REGB1;
+ }
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:159 */
+ REGB0 = CALL_metamodel___abstractmetamodel___MMMethod___is_extern(fra.me.REG[0])(fra.me.REG[0]);
+ } else {
+ /* native_interface/frontier.nit:158 */
+ REGB1 = TAG_Bool(0);
+ REGB0 = REGB1;
+ }
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:160 */
+ CALL_native_interface___frontier___MMSrcMethod___compile_extern_to_frontier(fra.me.REG[0])(fra.me.REG[0], closctx->REG[1]);
+ }
+ stack_frame_head = fra.me.prev;
+ return;
}
- }
- label21: while(0);
- /* ./native_interface//frontier.nit:205 */
- fra.me.REG[6] = NIT_NULL;
- /* ./native_interface//frontier.nit:207 */
- fra.me.REG[5] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 207);
- }
- fra.me.REG[5] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[5])(fra.me.REG[5]);
- REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
+static const char LOCATE_native_interface___frontier___MMSrcMethod___compile_extern_to_frontier[] = "frontier::MMSrcMethod::compile_extern_to_frontier";
+void native_interface___frontier___MMSrcMethod___compile_extern_to_frontier(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
+ val_t REGB0;
+ val_t REGB1;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 172;
+ fra.me.meth = LOCATE_native_interface___frontier___MMSrcMethod___compile_extern_to_frontier;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 3;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* native_interface/frontier.nit:175 */
+ fra.me.REG[2] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[0])(fra.me.REG[0]);
+ REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
if (UNTAG_Bool(REGB0)) {
} else {
- REGB1 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
+ REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
+ REGB1 = TAG_Bool(0);
REGB0 = REGB1;
} else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[5])(fra.me.REG[5], NIT_NULL);
+ REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
REGB0 = REGB1;
}
}
REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:208 */
- fra.me.REG[5] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 208);
- }
- fra.me.REG[5] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[5])(fra.me.REG[5]);
- fra.me.REG[6] = fra.me.REG[5];
- } else {
- /* ./native_interface//frontier.nit:209 */
- REGB0 = CALL_syntax___syntax_base___MMLocalProperty___is_init(fra.me.REG[2])(fra.me.REG[2]);
+ /* native_interface/frontier.nit:176 */
+ fra.me.REG[2] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[0])(fra.me.REG[0]);
+ REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:210 */
- fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalProperty___local_class(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[5] = CALL_metamodel___static_type___MMLocalClass___get_type(fra.me.REG[5])(fra.me.REG[5]);
- fra.me.REG[6] = fra.me.REG[5];
- }
- }
- /* ./native_interface//frontier.nit:213 */
- fra.me.REG[5] = NEW_Buffer_standard___string___Buffer___init();
- /* ./native_interface//frontier.nit:214 */
- REGB0 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[6])(fra.me.REG[6], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:215 */
- fra.me.REG[9] = CALL_native_interface___ni_tools___FunctionCompiler___decls(fra.me.REG[4])(fra.me.REG[4]);
- REGB0 = TAG_Int(3);
- fra.me.REG[8] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_22) {
- fra.me.REG[10] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[10] = NEW_String_standard___string___String___with_native(fra.me.REG[10], REGB0);
- once_value_22 = fra.me.REG[10];
- register_static_object(&once_value_22);
- } else fra.me.REG[10] = once_value_22;
- fra.me.REG[10] = fra.me.REG[10];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[10]);
- REGB0 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 215);
- }
- fra.me.REG[10] = CALL_native_interface___ni_metamodel___MMType___friendly_extern_name(fra.me.REG[6])(fra.me.REG[6]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[10]);
- if (!once_value_23) {
- fra.me.REG[10] = BOX_NativeString(" return___nitni;\n");
- REGB0 = TAG_Int(17);
- fra.me.REG[10] = NEW_String_standard___string___String___with_native(fra.me.REG[10], REGB0);
- once_value_23 = fra.me.REG[10];
- register_static_object(&once_value_23);
- } else fra.me.REG[10] = once_value_23;
- fra.me.REG[10] = fra.me.REG[10];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[10]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[8]);
- /* ./native_interface//frontier.nit:216 */
- fra.me.REG[8] = CALL_native_interface___ni_tools___FunctionCompiler___decls(fra.me.REG[4])(fra.me.REG[4]);
- if (!once_value_24) {
- fra.me.REG[9] = BOX_NativeString("val_t return___nit;\n");
- REGB0 = TAG_Int(20);
- fra.me.REG[9] = NEW_String_standard___string___String___with_native(fra.me.REG[9], REGB0);
- once_value_24 = fra.me.REG[9];
- register_static_object(&once_value_24);
- } else fra.me.REG[9] = once_value_24;
- fra.me.REG[9] = fra.me.REG[9];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[9]);
- /* ./native_interface//frontier.nit:217 */
- if (!once_value_25) {
- fra.me.REG[9] = BOX_NativeString("return___nitni = ");
- REGB0 = TAG_Int(17);
- fra.me.REG[9] = NEW_String_standard___string___String___with_native(fra.me.REG[9], REGB0);
- once_value_25 = fra.me.REG[9];
- register_static_object(&once_value_25);
- } else fra.me.REG[9] = once_value_25;
- fra.me.REG[9] = fra.me.REG[9];
- CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[9]);
- }
- /* ./native_interface//frontier.nit:220 */
- REGB0 = TAG_Int(5);
- fra.me.REG[9] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_26) {
- fra.me.REG[8] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
- once_value_26 = fra.me.REG[8];
- register_static_object(&once_value_26);
- } else fra.me.REG[8] = once_value_26;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[8]);
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMMethod___extern_name(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool((fra.me.REG[2]!=NIT_NULL) && VAL_ISA(fra.me.REG[2], COLOR_standard___string___String, ID_standard___string___String)) /*cast String*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_native_interface___frontier, 220);
- }
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[2]);
- if (!once_value_27) {
- fra.me.REG[2] = BOX_NativeString("( ");
- REGB0 = TAG_Int(2);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_27 = fra.me.REG[2];
- register_static_object(&once_value_27);
- } else fra.me.REG[2] = once_value_27;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[2]);
- if (!once_value_28) {
- fra.me.REG[2] = BOX_NativeString(", ");
- REGB0 = TAG_Int(2);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_28 = fra.me.REG[2];
- register_static_object(&once_value_28);
- } else fra.me.REG[2] = once_value_28;
- fra.me.REG[2] = fra.me.REG[2];
- fra.me.REG[2] = CALL_standard___string___Collection___join(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[2]);
- if (!once_value_29) {
- fra.me.REG[2] = BOX_NativeString(" );\n");
- REGB0 = TAG_Int(4);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_29 = fra.me.REG[2];
- register_static_object(&once_value_29);
- } else fra.me.REG[2] = once_value_29;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[2]);
- fra.me.REG[9] = CALL_standard___string___Object___to_s(fra.me.REG[9])(fra.me.REG[9]);
- CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[9]);
- /* ./native_interface//frontier.nit:222 */
- fra.me.REG[9] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[5]);
- /* ./native_interface//frontier.nit:225 */
- REGB0 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[6])(fra.me.REG[6], NIT_NULL);
- REGB0 = REGB1;
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 176);
}
+ CALL_native_interface___frontier___MMSignature___compile_frontier(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
}
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
+ /* native_interface/frontier.nit:179 */
+ fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMMethod___explicit_imports(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[2])(fra.me.REG[2], (&(fra.me)), ((fun_t)OC_native_interface___frontier___MMSrcMethod___compile_extern_to_frontier_1));
+ /* native_interface/frontier.nit:188 */
+ fra.me.REG[2] = CALL_metamodel___static_type___MMMethod___explicit_casts(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[2])(fra.me.REG[2], (&(fra.me)), ((fun_t)OC_native_interface___frontier___MMSrcMethod___compile_extern_to_frontier_2));
+ /* native_interface/frontier.nit:196 */
+ REGB0 = CALL_metamodel___abstractmetamodel___MMLocalProperty___need_super(fra.me.REG[0])(fra.me.REG[0]);
if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:226 */
- fra.me.REG[5] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[4])(fra.me.REG[4]);
- REGB0 = TAG_Int(3);
- fra.me.REG[9] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_30) {
- fra.me.REG[2] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_30 = fra.me.REG[2];
- register_static_object(&once_value_30);
- } else fra.me.REG[2] = once_value_30;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[2]);
- if (!once_value_31) {
- fra.me.REG[2] = BOX_NativeString("return___nit");
- REGB0 = TAG_Int(12);
- 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];
- if (!once_value_32) {
- fra.me.REG[3] = BOX_NativeString("return___nitni");
- REGB0 = TAG_Int(14);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_32 = fra.me.REG[3];
- register_static_object(&once_value_32);
- } else fra.me.REG[3] = once_value_32;
- fra.me.REG[3] = fra.me.REG[3];
- REGB0 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 226);
- }
- fra.me.REG[3] = CALL_native_interface___ni_metamodel___MMType___assign_from_friendly(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2], fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[3]);
- if (!once_value_33) {
- fra.me.REG[3] = BOX_NativeString(";\n");
- REGB0 = TAG_Int(2);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_33 = fra.me.REG[3];
- register_static_object(&once_value_33);
- } else fra.me.REG[3] = once_value_33;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[3]);
- fra.me.REG[9] = CALL_standard___string___Object___to_s(fra.me.REG[9])(fra.me.REG[9]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[9]);
- /* ./native_interface//frontier.nit:227 */
- fra.me.REG[9] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[4])(fra.me.REG[4]);
- if (!once_value_34) {
- fra.me.REG[5] = BOX_NativeString("return return___nit;\n");
- REGB0 = TAG_Int(21);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_34 = fra.me.REG[5];
- register_static_object(&once_value_34);
- } else fra.me.REG[5] = once_value_34;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[5]);
+ /* native_interface/frontier.nit:197 */
+ CALL_native_interface___frontier___MMSrcMethod___compile_super_to_frontier(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
}
- /* ./native_interface//frontier.nit:230 */
- fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[4] = CALL_native_interface___ni_tools___FunctionCompiler___to_writer(fra.me.REG[4])(fra.me.REG[4]);
- CALL_compiling___compiling_writer___Writer___append(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
+ /* native_interface/frontier.nit:201 */
+ CALL_native_interface___frontier___MMSrcMethod___compile_out_to_frontier(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
stack_frame_head = fra.me.prev;
return;
}
-void native_interface___frontier___MMLocalClass___compile_defaut_extern_type(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
+ void OC_native_interface___frontier___MMSrcMethod___compile_extern_to_frontier_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
+ fun_t CREG[1];
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 0;
+ fra.me.meth = LOCATE_native_interface___frontier___MMSrcMethod___compile_extern_to_frontier;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 2;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.closure_ctx = closctx_param;
+ fra.me.closure_funs = CREG;
+ fra.me.REG[0] = p0;
+ CREG[0] = clos_fun0;
+ /* native_interface/frontier.nit:181 */
+ fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___friendlys(closctx->REG[1])(closctx->REG[1]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
+ /* native_interface/frontier.nit:184 */
+ fra.me.REG[0] = CALL_metamodel___static_type___MMExplicitImport___signature(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_native_interface___frontier___MMSignature___compile_frontier(fra.me.REG[0])(fra.me.REG[0], closctx->REG[1]);
+ stack_frame_head = fra.me.prev;
+ return;
+ }
+ void OC_native_interface___frontier___MMSrcMethod___compile_extern_to_frontier_2(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
+ struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
+ fun_t CREG[1];
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 0;
+ fra.me.meth = LOCATE_native_interface___frontier___MMSrcMethod___compile_extern_to_frontier;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 3;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.closure_ctx = closctx_param;
+ fra.me.closure_funs = CREG;
+ fra.me.REG[0] = p0;
+ CREG[0] = clos_fun0;
+ /* native_interface/frontier.nit:189 */
+ fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___casts(closctx->REG[1])(closctx->REG[1]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
+ /* native_interface/frontier.nit:191 */
+ fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___types(closctx->REG[1])(closctx->REG[1]);
+ fra.me.REG[2] = CALL_metamodel___static_type___MMImportedCast___from(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[2] = CALL_metamodel___type_formal___MMType___direct_type(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]);
+ /* native_interface/frontier.nit:192 */
+ fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___types(closctx->REG[1])(closctx->REG[1]);
+ fra.me.REG[0] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[0] = CALL_metamodel___type_formal___MMType___direct_type(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[0]);
+ stack_frame_head = fra.me.prev;
+ return;
+ }
+static const char LOCATE_native_interface___frontier___MMSrcMethod___compile_super_to_frontier[] = "frontier::MMSrcMethod::compile_super_to_frontier";
+void native_interface___frontier___MMSrcMethod___compile_super_to_frontier(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[7];} fra;
val_t REGB0;
+ val_t REGB1;
+ val_t REGB2;
val_t tmp;
static val_t once_value_1; /* Once value */
static val_t once_value_2; /* Once value */
static val_t once_value_3; /* Once value */
static val_t once_value_4; /* Once value */
static val_t once_value_5; /* Once value */
+ static val_t once_value_6; /* Once value */
+ static val_t once_value_7; /* Once value */
+ static val_t once_value_8; /* Once value */
+ static val_t once_value_9; /* Once value */
+ static val_t once_value_10; /* Once value */
+ static val_t once_value_11; /* Once value */
+ static val_t once_value_12; /* Once value */
+ 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_25; /* Once value */
+ static val_t once_value_26; /* Once value */
fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 236;
- fra.me.meth = LOCATE_native_interface___frontier___MMLocalClass___compile_defaut_extern_type;
+ fra.me.line = 204;
+ fra.me.meth = LOCATE_native_interface___frontier___MMSrcMethod___compile_super_to_frontier;
fra.me.has_broke = 0;
- fra.me.REG_size = 5;
+ fra.me.REG_size = 8;
+ fra.me.nitni_local_ref_head = NULL;
fra.me.REG[0] = NIT_NULL;
fra.me.REG[1] = NIT_NULL;
fra.me.REG[2] = NIT_NULL;
fra.me.REG[3] = NIT_NULL;
fra.me.REG[4] = NIT_NULL;
+ fra.me.REG[5] = NIT_NULL;
+ fra.me.REG[6] = NIT_NULL;
+ fra.me.REG[7] = NIT_NULL;
fra.me.REG[0] = p0;
fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:240 */
+ /* native_interface/frontier.nit:211 */
fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
REGB0 = TAG_Int(3);
fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
if (!once_value_1) {
- fra.me.REG[4] = BOX_NativeString("#ifndef ");
- REGB0 = TAG_Int(8);
+ fra.me.REG[4] = BOX_NativeString("\n/* friendly for super of ");
+ REGB0 = TAG_Int(26);
fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
once_value_1 = fra.me.REG[4];
register_static_object(&once_value_1);
} else fra.me.REG[4] = once_value_1;
fra.me.REG[4] = fra.me.REG[4];
CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[4] = CALL_metamodel___static_type___MMLocalClass___get_type(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMType___friendly_extern_name(fra.me.REG[4])(fra.me.REG[4]);
+ fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(fra.me.REG[0])(fra.me.REG[0]);
CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
if (!once_value_2) {
- fra.me.REG[4] = BOX_NativeString("\n");
- REGB0 = TAG_Int(1);
+ fra.me.REG[4] = BOX_NativeString(" */\n");
+ REGB0 = TAG_Int(4);
fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
once_value_2 = fra.me.REG[4];
register_static_object(&once_value_2);
fra.me.REG[4] = fra.me.REG[4];
CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:241 */
+ CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ /* native_interface/frontier.nit:212 */
fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
REGB0 = TAG_Int(3);
fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
if (!once_value_3) {
- fra.me.REG[4] = BOX_NativeString("\ttypedef void* ");
- REGB0 = TAG_Int(15);
+ 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_3 = fra.me.REG[4];
register_static_object(&once_value_3);
} else fra.me.REG[4] = once_value_3;
fra.me.REG[4] = fra.me.REG[4];
CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
- fra.me.REG[0] = CALL_metamodel___static_type___MMLocalClass___get_type(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_native_interface___ni_metamodel___MMType___friendly_extern_name(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[0]);
+ fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___mmmodule(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMMethod___frontier_super_csignature_from(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
if (!once_value_4) {
- fra.me.REG[0] = BOX_NativeString(";\n");
+ fra.me.REG[4] = BOX_NativeString(";\n");
REGB0 = TAG_Int(2);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_4 = fra.me.REG[0];
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_4 = fra.me.REG[4];
register_static_object(&once_value_4);
- } else fra.me.REG[0] = once_value_4;
- 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[0]);
+ } else fra.me.REG[4] = once_value_4;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[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_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- /* ./native_interface//frontier.nit:242 */
- fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ /* native_interface/frontier.nit:215 */
+ fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
if (!once_value_5) {
- fra.me.REG[2] = BOX_NativeString("#endif\n\n");
+ fra.me.REG[4] = BOX_NativeString("#ifndef ");
REGB0 = TAG_Int(8);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_5 = fra.me.REG[2];
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_5 = fra.me.REG[4];
register_static_object(&once_value_5);
- } else fra.me.REG[2] = once_value_5;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- stack_frame_head = fra.me.prev;
- return;
-}
-void native_interface___frontier___MMSignature___compile_frontier(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[5];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 247;
- fra.me.meth = LOCATE_native_interface___frontier___MMSignature___compile_frontier;
- fra.me.has_broke = 0;
- fra.me.REG_size = 6;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:250 */
- fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___types(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[3] = CALL_metamodel___static_type___MMSignature___recv(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:253 */
- fra.me.REG[3] = CALL_metamodel___static_type___MMSignature___params(fra.me.REG[0])(fra.me.REG[0]);
- /* ./../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[3])!=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[3]);
- /* ./../lib/standard//collection//array.nit:271 */
- fra.me.REG[2] = ATTR_standard___collection___array___Array____items(fra.me.REG[3]);
- /* ./../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[3])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
+ } else fra.me.REG[4] = once_value_5;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMMethod___friendly_super_cname(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ if (!once_value_6) {
+ fra.me.REG[4] = BOX_NativeString("\n");
+ REGB0 = TAG_Int(1);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_6 = fra.me.REG[4];
+ register_static_object(&once_value_6);
+ } else fra.me.REG[4] = once_value_6;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ /* native_interface/frontier.nit:216 */
+ fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header(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_7) {
+ fra.me.REG[4] = BOX_NativeString("#define ");
+ REGB0 = TAG_Int(8);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_7 = fra.me.REG[4];
+ register_static_object(&once_value_7);
+ } else fra.me.REG[4] = once_value_7;
+ 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[4] = CALL_native_interface___ni_metamodel___MMMethod___friendly_super_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[4]);
+ if (!once_value_8) {
+ fra.me.REG[4] = BOX_NativeString(" ");
+ REGB0 = TAG_Int(1);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_8 = fra.me.REG[4];
+ register_static_object(&once_value_8);
+ } else fra.me.REG[4] = once_value_8;
+ 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[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___mmmodule(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMMethod___local_friendly_super_name_from(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
+ if (!once_value_9) {
+ fra.me.REG[4] = BOX_NativeString("\n");
+ REGB0 = TAG_Int(1);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_9 = fra.me.REG[4];
+ register_static_object(&once_value_9);
+ } else fra.me.REG[4] = once_value_9;
+ 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_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ /* native_interface/frontier.nit:217 */
+ fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
+ if (!once_value_10) {
+ fra.me.REG[3] = BOX_NativeString("#endif\n");
+ REGB0 = TAG_Int(7);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_10 = fra.me.REG[3];
+ register_static_object(&once_value_10);
+ } else fra.me.REG[3] = once_value_10;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ /* native_interface/frontier.nit:220 */
+ fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_11) {
+ fra.me.REG[4] = BOX_NativeString("\n/* friendly for super of ");
+ REGB0 = TAG_Int(26);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_11 = fra.me.REG[4];
+ register_static_object(&once_value_11);
+ } else fra.me.REG[4] = once_value_11;
+ 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[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(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[4]);
+ if (!once_value_12) {
+ fra.me.REG[4] = BOX_NativeString(" */\n");
+ REGB0 = TAG_Int(4);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_12 = fra.me.REG[4];
+ register_static_object(&once_value_12);
+ } else fra.me.REG[4] = once_value_12;
+ 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_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ /* native_interface/frontier.nit:221 */
+ fra.me.REG[2] = CALL_native_interface___ni_metamodel___MMMethod___friendly_super_csignature(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[2] = NEW_FunctionCompiler_native_interface___ni_tools___FunctionCompiler___init(fra.me.REG[2]);
+ /* native_interface/frontier.nit:224 */
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___init();
+ /* native_interface/frontier.nit:225 */
+ fra.me.REG[4] = CALL_metamodel___static_type___MMLocalProperty___signature(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_native_interface___frontier, 225);
+ }
+ fra.me.REG[4] = CALL_native_interface___frontier___MMSignature___recv_ni_variable(fra.me.REG[4])(fra.me.REG[4]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ /* native_interface/frontier.nit:226 */
+ fra.me.REG[4] = CALL_metamodel___static_type___MMLocalProperty___signature(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_native_interface___frontier, 226);
+ }
+ fra.me.REG[4] = CALL_metamodel___static_type___MMSignature___params(fra.me.REG[4])(fra.me.REG[4]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add_all(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ /* ../lib/standard/collection/array.nit:266 */
+ fra.me.REG[4] = fra.me.REG[3];
+ /* ../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[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[4]);
+ /* ../lib/standard/collection/array.nit:271 */
+ fra.me.REG[5] = 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[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[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:235 */
+ REGB1 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
+ /* ../lib/standard/collection/array.nit:272 */
+ if (UNTAG_Bool(REGB1)) {
+ /* ../lib/standard/collection/array.nit:273 */
+ REGB1 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 273);
+ }
+ /* ../lib/standard/collection/array.nit:718 */
+ fra.me.REG[6] = ((Nit_NativeArray)fra.me.REG[5])->val[UNTAG_Int(REGB0)];
+ /* native_interface/frontier.nit:229 */
+ CALL_native_interface___frontier___NiVariable___prepare_for_nit(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]);
+ /* ../lib/standard/collection/array.nit:274 */
+ REGB1 = TAG_Int(1);
+ /* ../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 label13;
+ }
+ }
+ label13: while(0);
+ /* native_interface/frontier.nit:232 */
+ fra.me.REG[5] = NEW_Array_standard___collection___array___Array___init();
+ /* ../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[3])!=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[3]);
+ /* ../lib/standard/collection/array.nit:271 */
+ fra.me.REG[4] = ATTR_standard___collection___array___Array____items(fra.me.REG[3]);
+ /* ../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[3])!=NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
}
REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3]);
REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
} 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 */
+ /* ../lib/standard/collection/array.nit:272 */
if (UNTAG_Bool(REGB1)) {
- /* ./../lib/standard//collection//array.nit:273 */
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
+ /* ../lib/standard/collection/array.nit:273 */
+ REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
if (UNTAG_Bool(REGB1)) {
nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 273);
}
- /* ./../lib/standard//collection//array.nit:718 */
- fra.me.REG[4] = ((Nit_NativeArray)fra.me.REG[2])->val[UNTAG_Int(REGB0)];
- /* ./native_interface//frontier.nit:253 */
- fra.me.REG[5] = CALL_native_interface___frontier___FrontierVisitor___types(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[4] = CALL_metamodel___static_type___MMParam___mmtype(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]);
- /* ./../lib/standard//collection//array.nit:274 */
+ /* ../lib/standard/collection/array.nit:718 */
+ fra.me.REG[6] = ((Nit_NativeArray)fra.me.REG[4])->val[UNTAG_Int(REGB0)];
+ /* native_interface/frontier.nit:233 */
+ fra.me.REG[6] = CALL_native_interface___frontier___NiVariable___as_arg_to_nit(fra.me.REG[6])(fra.me.REG[6]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
+ /* ../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 */
+ /* ../lib/standard/collection/array.nit:274 */
REGB0 = REGB1;
} else {
- /* ./../lib/standard//collection//array.nit:272 */
- goto label1;
+ /* ../lib/standard/collection/array.nit:272 */
+ goto label14;
}
}
- label1: while(0);
- /* ./native_interface//frontier.nit:256 */
- fra.me.REG[0] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[0])(fra.me.REG[0]);
- /* ./native_interface//frontier.nit:257 */
- REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
+ label14: while(0);
+ /* native_interface/frontier.nit:236 */
+ fra.me.REG[4] = CALL_metamodel___static_type___MMLocalProperty___signature(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_native_interface___frontier, 236);
+ }
+ fra.me.REG[4] = CALL_native_interface___frontier___MMSignature___return_ni_variable(fra.me.REG[4])(fra.me.REG[4]);
+ /* native_interface/frontier.nit:237 */
+ fra.me.REG[3] = NEW_Buffer_standard___string___Buffer___init();
+ /* native_interface/frontier.nit:238 */
+ REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
if (UNTAG_Bool(REGB0)) {
} else {
- REGB1 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
+ REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
+ REGB1 = TAG_Bool(0);
REGB0 = REGB1;
} else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], NIT_NULL);
+ REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], NIT_NULL);
REGB0 = REGB1;
}
}
REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:258 */
- fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___types(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[0]);
+ /* native_interface/frontier.nit:239 */
+ REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 239);
+ }
+ CALL_native_interface___frontier___NiVariable___prepare_for_c(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
+ /* native_interface/frontier.nit:240 */
+ REGB0 = TAG_Int(3);
+ fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_15) {
+ fra.me.REG[7] = BOX_NativeString("");
+ REGB0 = TAG_Int(0);
+ fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
+ once_value_15 = fra.me.REG[7];
+ register_static_object(&once_value_15);
+ } else fra.me.REG[7] = once_value_15;
+ fra.me.REG[7] = fra.me.REG[7];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
+ REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 240);
+ }
+ fra.me.REG[7] = CALL_native_interface___frontier___NiVariable___ni_from_name(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[7]);
+ if (!once_value_16) {
+ fra.me.REG[7] = BOX_NativeString(" = ");
+ REGB0 = TAG_Int(3);
+ fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
+ once_value_16 = fra.me.REG[7];
+ register_static_object(&once_value_16);
+ } else fra.me.REG[7] = once_value_16;
+ fra.me.REG[7] = fra.me.REG[7];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
+ fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
+ CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]);
}
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t native_interface___frontier___FrontierVisitor___header_top(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 266;
- fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___header_top;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ./native_interface//frontier.nit:266 */
- REGB0 = TAG_Bool(ATTR_native_interface___frontier___FrontierVisitor_____atheader_top(fra.me.REG[0])!=NIT_NULL);
+ /* native_interface/frontier.nit:243 */
+ REGB0 = TAG_Int(5);
+ fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_17) {
+ fra.me.REG[7] = BOX_NativeString("");
+ REGB0 = TAG_Int(0);
+ fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
+ once_value_17 = fra.me.REG[7];
+ register_static_object(&once_value_17);
+ } else fra.me.REG[7] = once_value_17;
+ fra.me.REG[7] = fra.me.REG[7];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
+ fra.me.REG[7] = CALL_compiling___compiling_base___MMLocalProperty___super_meth_call(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[7]);
+ if (!once_value_18) {
+ fra.me.REG[7] = BOX_NativeString("( ");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
+ once_value_18 = fra.me.REG[7];
+ register_static_object(&once_value_18);
+ } else fra.me.REG[7] = once_value_18;
+ fra.me.REG[7] = fra.me.REG[7];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
+ fra.me.REG[0] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[0])(fra.me.REG[0]);
+ REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 243);
+ }
+ fra.me.REG[0] = CALL_native_interface___frontier___MMSignature___recv_ni_variable(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[0] = CALL_native_interface___frontier___NiVariable___as_arg_to_nit(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[0]);
+ if (!once_value_19) {
+ fra.me.REG[0] = BOX_NativeString(" )");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
+ once_value_19 = fra.me.REG[0];
+ register_static_object(&once_value_19);
+ } else fra.me.REG[0] = once_value_19;
+ 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[0]);
+ fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
+ CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]);
+ /* native_interface/frontier.nit:244 */
+ REGB0 = TAG_Int(3);
+ fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_20) {
+ fra.me.REG[0] = BOX_NativeString("( ");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
+ once_value_20 = fra.me.REG[0];
+ register_static_object(&once_value_20);
+ } else fra.me.REG[0] = once_value_20;
+ 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[0]);
+ if (!once_value_21) {
+ fra.me.REG[0] = BOX_NativeString(", ");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
+ once_value_21 = fra.me.REG[0];
+ register_static_object(&once_value_21);
+ } else fra.me.REG[0] = once_value_21;
+ fra.me.REG[0] = fra.me.REG[0];
+ fra.me.REG[0] = CALL_standard___string___Collection___join(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[0]);
+ if (!once_value_22) {
+ fra.me.REG[0] = BOX_NativeString(" );\n");
+ REGB0 = TAG_Int(4);
+ fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
+ once_value_22 = fra.me.REG[0];
+ register_static_object(&once_value_22);
+ } else fra.me.REG[0] = once_value_22;
+ 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[0]);
+ fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
+ CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]);
+ /* native_interface/frontier.nit:246 */
+ fra.me.REG[6] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[2])(fra.me.REG[2]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[3]);
+ /* native_interface/frontier.nit:249 */
+ REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
if (UNTAG_Bool(REGB0)) {
} else {
- nit_abort("Uninitialized attribute %s", "@header_top", LOCATE_native_interface___frontier, 266);
+ REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ REGB1 = TAG_Bool(0);
+ REGB0 = REGB1;
+ } else {
+ REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], NIT_NULL);
+ REGB0 = REGB1;
+ }
}
- fra.me.REG[0] = ATTR_native_interface___frontier___FrontierVisitor_____atheader_top(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void native_interface___frontier___FrontierVisitor___header_top__eq(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 266;
- fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___header_top__eq;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:266 */
- ATTR_native_interface___frontier___FrontierVisitor_____atheader_top(fra.me.REG[0]) = fra.me.REG[1];
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t native_interface___frontier___FrontierVisitor___header(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 269;
- fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___header;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ./native_interface//frontier.nit:269 */
- REGB0 = TAG_Bool(ATTR_native_interface___frontier___FrontierVisitor_____atheader(fra.me.REG[0])!=NIT_NULL);
+ REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "@header", LOCATE_native_interface___frontier, 269);
+ /* native_interface/frontier.nit:250 */
+ fra.me.REG[3] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[2])(fra.me.REG[2]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_23) {
+ fra.me.REG[0] = BOX_NativeString("");
+ REGB0 = TAG_Int(0);
+ fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
+ once_value_23 = fra.me.REG[0];
+ register_static_object(&once_value_23);
+ } else fra.me.REG[0] = once_value_23;
+ 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[0]);
+ REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 250);
+ }
+ fra.me.REG[0] = CALL_native_interface___frontier___NiVariable___ni_type(fra.me.REG[4])(fra.me.REG[4]);
+ REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 250);
+ }
+ fra.me.REG[5] = CALL_native_interface___frontier___NiVariable___ni_to_name(fra.me.REG[4])(fra.me.REG[4]);
+ REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 250);
+ }
+ fra.me.REG[7] = CALL_native_interface___frontier___NiVariable___ni_from_name(fra.me.REG[4])(fra.me.REG[4]);
+ fra.me.REG[7] = CALL_native_interface___ni_metamodel___MMType___assign_to_friendly(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[5], fra.me.REG[7]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
+ if (!once_value_24) {
+ fra.me.REG[7] = BOX_NativeString(";\n");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
+ once_value_24 = fra.me.REG[7];
+ register_static_object(&once_value_24);
+ } else fra.me.REG[7] = once_value_24;
+ fra.me.REG[7] = fra.me.REG[7];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
+ fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]);
+ /* native_interface/frontier.nit:251 */
+ fra.me.REG[6] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[2])(fra.me.REG[2]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_25) {
+ fra.me.REG[7] = BOX_NativeString("return ");
+ REGB0 = TAG_Int(7);
+ fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
+ once_value_25 = fra.me.REG[7];
+ register_static_object(&once_value_25);
+ } else fra.me.REG[7] = once_value_25;
+ fra.me.REG[7] = fra.me.REG[7];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[7]);
+ REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 251);
+ }
+ fra.me.REG[4] = CALL_native_interface___frontier___NiVariable___ni_to_name(fra.me.REG[4])(fra.me.REG[4]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ if (!once_value_26) {
+ fra.me.REG[4] = BOX_NativeString(";\n");
+ REGB0 = TAG_Int(2);
+ 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[3])(fra.me.REG[3], fra.me.REG[4]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[3]);
}
- fra.me.REG[0] = ATTR_native_interface___frontier___FrontierVisitor_____atheader(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void native_interface___frontier___FrontierVisitor___header__eq(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 269;
- fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___header__eq;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:269 */
- ATTR_native_interface___frontier___FrontierVisitor_____atheader(fra.me.REG[0]) = fra.me.REG[1];
+ /* native_interface/frontier.nit:254 */
+ fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
+ fra.me.REG[2] = CALL_native_interface___ni_tools___FunctionCompiler___to_writer(fra.me.REG[2])(fra.me.REG[2]);
+ CALL_compiling_writer___Writer___append(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
stack_frame_head = fra.me.prev;
return;
}
-val_t native_interface___frontier___FrontierVisitor___body(val_t p0){
- struct {struct stack_frame_t me;} fra;
+static const char LOCATE_native_interface___frontier___MMSrcMethod___compile_out_to_frontier[] = "frontier::MMSrcMethod::compile_out_to_frontier";
+void native_interface___frontier___MMSrcMethod___compile_out_to_frontier(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[8];} fra;
val_t REGB0;
+ val_t REGB1;
+ val_t REGB2;
val_t tmp;
+ static val_t once_value_1; /* Once value */
+ static val_t once_value_2; /* Once value */
+ static val_t once_value_3; /* Once value */
+ static val_t once_value_4; /* Once value */
+ static val_t once_value_5; /* Once value */
+ static val_t once_value_6; /* Once value */
+ static val_t once_value_9; /* Once value */
+ static val_t once_value_10; /* Once value */
+ static val_t once_value_11; /* Once value */
+ static val_t once_value_12; /* Once value */
+ 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 */
fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 272;
- fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___body;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ./native_interface//frontier.nit:272 */
- REGB0 = TAG_Bool(ATTR_native_interface___frontier___FrontierVisitor_____atbody(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "@body", LOCATE_native_interface___frontier, 272);
- }
- fra.me.REG[0] = ATTR_native_interface___frontier___FrontierVisitor_____atbody(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void native_interface___frontier___FrontierVisitor___body__eq(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 272;
- fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___body__eq;
+ fra.me.line = 257;
+ fra.me.meth = LOCATE_native_interface___frontier___MMSrcMethod___compile_out_to_frontier;
fra.me.has_broke = 0;
- fra.me.REG_size = 2;
+ fra.me.REG_size = 9;
+ fra.me.nitni_local_ref_head = NULL;
fra.me.REG[0] = NIT_NULL;
fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[3] = NIT_NULL;
+ fra.me.REG[4] = NIT_NULL;
+ fra.me.REG[5] = NIT_NULL;
+ fra.me.REG[6] = NIT_NULL;
+ fra.me.REG[7] = NIT_NULL;
+ fra.me.REG[8] = NIT_NULL;
fra.me.REG[0] = p0;
fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:272 */
- ATTR_native_interface___frontier___FrontierVisitor_____atbody(fra.me.REG[0]) = fra.me.REG[1];
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t native_interface___frontier___FrontierVisitor___friendlys(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 275;
- fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___friendlys;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ./native_interface//frontier.nit:275 */
- REGB0 = TAG_Bool(ATTR_native_interface___frontier___FrontierVisitor_____atfriendlys(fra.me.REG[0])!=NIT_NULL);
+ /* native_interface/frontier.nit:257 */
+ fra.me.REG[2] = fra.me.REG[0];
+ /* native_interface/frontier.nit:266 */
+ fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMMethod___explicit_imports(fra.me.REG[2])(fra.me.REG[2]);
+ REGB0 = CALL_standard___collection___abstract_collection___Collection___is_empty(fra.me.REG[3])(fra.me.REG[3]);
if (UNTAG_Bool(REGB0)) {
+ REGB0 = CALL_metamodel___abstractmetamodel___MMLocalProperty___need_super(fra.me.REG[2])(fra.me.REG[2]);
+ REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
} else {
- nit_abort("Uninitialized attribute %s", "@friendlys", LOCATE_native_interface___frontier, 275);
+ REGB1 = TAG_Bool(0);
+ REGB0 = REGB1;
}
- fra.me.REG[0] = ATTR_native_interface___frontier___FrontierVisitor_____atfriendlys(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void native_interface___frontier___FrontierVisitor___friendlys__eq(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 275;
- fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___friendlys__eq;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:275 */
- ATTR_native_interface___frontier___FrontierVisitor_____atfriendlys(fra.me.REG[0]) = fra.me.REG[1];
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t native_interface___frontier___FrontierVisitor___types(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 278;
- fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___types;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ./native_interface//frontier.nit:278 */
- REGB0 = TAG_Bool(ATTR_native_interface___frontier___FrontierVisitor_____attypes(fra.me.REG[0])!=NIT_NULL);
if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:267 */
+ fra.me.REG[3] = CALL_metamodel___static_type___MMMethod___explicit_casts(fra.me.REG[2])(fra.me.REG[2]);
+ REGB0 = CALL_standard___collection___abstract_collection___Collection___is_empty(fra.me.REG[3])(fra.me.REG[3]);
} else {
- nit_abort("Uninitialized attribute %s", "@types", LOCATE_native_interface___frontier, 278);
+ /* native_interface/frontier.nit:266 */
+ REGB1 = TAG_Bool(0);
+ REGB0 = REGB1;
}
- fra.me.REG[0] = ATTR_native_interface___frontier___FrontierVisitor_____attypes(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void native_interface___frontier___FrontierVisitor___types__eq(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 278;
- fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___types__eq;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:278 */
- ATTR_native_interface___frontier___FrontierVisitor_____attypes(fra.me.REG[0]) = fra.me.REG[1];
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t native_interface___frontier___FrontierVisitor___casts(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 281;
- fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___casts;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ./native_interface//frontier.nit:281 */
- REGB0 = TAG_Bool(ATTR_native_interface___frontier___FrontierVisitor_____atcasts(fra.me.REG[0])!=NIT_NULL);
if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:267 */
+ fra.me.REG[3] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[2])(fra.me.REG[2]);
+ REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 267);
+ }
+ fra.me.REG[3] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[3])(fra.me.REG[3]);
+ REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ REGB1 = TAG_Bool(0);
+ REGB0 = REGB1;
+ } else {
+ REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
+ REGB0 = REGB1;
+ }
+ }
+ if (UNTAG_Bool(REGB0)) {
+ REGB0 = TAG_Bool(1);
+ } else {
+ /* native_interface/frontier.nit:268 */
+ fra.me.REG[3] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[2])(fra.me.REG[2]);
+ REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 268);
+ }
+ fra.me.REG[3] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[3])(fra.me.REG[3]);
+ REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 268);
+ }
+ fra.me.REG[3] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[3])(fra.me.REG[3]);
+ fra.me.REG[3] = CALL_primitive_info___MMLocalClass___primitive_info(fra.me.REG[3])(fra.me.REG[3]);
+ REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ } else {
+ REGB2 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB2)) {
+ REGB2 = TAG_Bool(0);
+ REGB1 = REGB2;
+ } else {
+ REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
+ REGB1 = REGB2;
+ }
+ }
+ REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
+ /* native_interface/frontier.nit:267 */
+ REGB0 = REGB1;
+ }
} else {
- nit_abort("Uninitialized attribute %s", "@casts", LOCATE_native_interface___frontier, 281);
+ /* native_interface/frontier.nit:266 */
+ REGB1 = TAG_Bool(0);
+ REGB0 = REGB1;
}
- fra.me.REG[0] = ATTR_native_interface___frontier___FrontierVisitor_____atcasts(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void native_interface___frontier___FrontierVisitor___casts__eq(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 281;
- fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___casts__eq;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:281 */
- ATTR_native_interface___frontier___FrontierVisitor_____atcasts(fra.me.REG[0]) = fra.me.REG[1];
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t native_interface___frontier___FrontierVisitor___mmmodule(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 284;
- fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___mmmodule;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ./native_interface//frontier.nit:284 */
- REGB0 = TAG_Bool(ATTR_native_interface___frontier___FrontierVisitor_____atmmmodule(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "@mmmodule", LOCATE_native_interface___frontier, 284);
- }
- fra.me.REG[0] = ATTR_native_interface___frontier___FrontierVisitor_____atmmmodule(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void native_interface___frontier___FrontierVisitor___mmmodule__eq(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 284;
- fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___mmmodule__eq;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:284 */
- ATTR_native_interface___frontier___FrontierVisitor_____atmmmodule(fra.me.REG[0]) = fra.me.REG[1];
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t native_interface___frontier___FrontierVisitor___cprogram(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 286;
- fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___cprogram;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ./native_interface//frontier.nit:286 */
- REGB0 = TAG_Bool(ATTR_native_interface___frontier___FrontierVisitor_____atcprogram(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "@cprogram", LOCATE_native_interface___frontier, 286);
- }
- fra.me.REG[0] = ATTR_native_interface___frontier___FrontierVisitor_____atcprogram(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void native_interface___frontier___FrontierVisitor___cprogram__eq(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 286;
- fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___cprogram__eq;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:286 */
- ATTR_native_interface___frontier___FrontierVisitor_____atcprogram(fra.me.REG[0]) = fra.me.REG[1];
- stack_frame_head = fra.me.prev;
- return;
-}
-void native_interface___frontier___FrontierVisitor___compile_cached(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 288;
- fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___compile_cached;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ./native_interface//frontier.nit:291 */
- fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___types(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[1])(fra.me.REG[1], (&(fra.me)), ((fun_t)OC_native_interface___frontier___FrontierVisitor___compile_cached_1));
- /* ./native_interface//frontier.nit:294 */
- fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___friendlys(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[1])(fra.me.REG[1], (&(fra.me)), ((fun_t)OC_native_interface___frontier___FrontierVisitor___compile_cached_2));
- /* ./native_interface//frontier.nit:297 */
- fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___casts(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[1])(fra.me.REG[1], (&(fra.me)), ((fun_t)OC_native_interface___frontier___FrontierVisitor___compile_cached_3));
- stack_frame_head = fra.me.prev;
- return;
-}
- void OC_native_interface___frontier___FrontierVisitor___compile_cached_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
- struct {struct stack_frame_t me;} fra;
- fun_t CREG[1];
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 0;
- fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___compile_cached;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.REG[0] = NIT_NULL;
- fra.me.closure_ctx = closctx_param;
- fra.me.closure_funs = CREG;
- fra.me.REG[0] = p0;
- CREG[0] = clos_fun0;
- CALL_native_interface___frontier___MMType___compile_to_frontier(fra.me.REG[0])(fra.me.REG[0], closctx->REG[0]);
- stack_frame_head = fra.me.prev;
- return;
- }
- void OC_native_interface___frontier___FrontierVisitor___compile_cached_2(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
- struct {struct stack_frame_t me;} fra;
- fun_t CREG[1];
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 0;
- fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___compile_cached;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.REG[0] = NIT_NULL;
- fra.me.closure_ctx = closctx_param;
- fra.me.closure_funs = CREG;
- fra.me.REG[0] = p0;
- CREG[0] = clos_fun0;
- CALL_native_interface___frontier___MMExplicitImport___compile_friendly_to_frontier(fra.me.REG[0])(fra.me.REG[0], closctx->REG[0]);
- stack_frame_head = fra.me.prev;
- return;
- }
- void OC_native_interface___frontier___FrontierVisitor___compile_cached_3(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
- struct {struct stack_frame_t me;} fra;
- fun_t CREG[1];
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 0;
- fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___compile_cached;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.REG[0] = NIT_NULL;
- fra.me.closure_ctx = closctx_param;
- fra.me.closure_funs = CREG;
- fra.me.REG[0] = p0;
- CREG[0] = clos_fun0;
- CALL_native_interface___frontier___MMImportedCast___compile_to_frontier(fra.me.REG[0])(fra.me.REG[0], closctx->REG[0]);
- stack_frame_head = fra.me.prev;
- return;
- }
-void native_interface___frontier___FrontierVisitor___write_to_files(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[5];} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- static val_t once_value_3; /* Once value */
- static val_t once_value_4; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 300;
- fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___write_to_files;
- fra.me.has_broke = 0;
- fra.me.REG_size = 6;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:302 */
+ fra.me.REG[3] = REGB0;
+ /* native_interface/frontier.nit:271 */
+ fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
REGB0 = TAG_Int(3);
- fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
if (!once_value_1) {
- fra.me.REG[3] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_1 = fra.me.REG[3];
+ fra.me.REG[6] = BOX_NativeString("\n/* out/indirect function for ");
+ REGB0 = TAG_Int(30);
+ fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
+ once_value_1 = fra.me.REG[6];
register_static_object(&once_value_1);
- } else fra.me.REG[3] = once_value_1;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
+ } else fra.me.REG[6] = once_value_1;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
+ fra.me.REG[6] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(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[6]);
if (!once_value_2) {
- fra.me.REG[3] = BOX_NativeString("._nitni.h");
- REGB0 = TAG_Int(9);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_2 = fra.me.REG[3];
+ fra.me.REG[6] = BOX_NativeString(" */\n");
+ REGB0 = TAG_Int(4);
+ fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
+ once_value_2 = fra.me.REG[6];
register_static_object(&once_value_2);
- } else fra.me.REG[3] = once_value_2;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
- /* ./native_interface//frontier.nit:303 */
- fra.me.REG[3] = NEW_OFStream_standard___file___OFStream___open(fra.me.REG[2]);
- /* ./native_interface//frontier.nit:304 */
- fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[0])(fra.me.REG[0]);
- CALL_compiling___compiling_writer___Writer___write_to_stream(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:305 */
- fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[0])(fra.me.REG[0]);
- CALL_compiling___compiling_writer___Writer___write_to_stream(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:306 */
- CALL_standard___stream___IOS___close(fra.me.REG[3])(fra.me.REG[3]);
- /* ./native_interface//frontier.nit:308 */
+ } else fra.me.REG[6] = once_value_2;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
+ fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
+ /* native_interface/frontier.nit:272 */
+ fra.me.REG[5] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
REGB0 = TAG_Int(3);
fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
if (!once_value_3) {
- fra.me.REG[5] = BOX_NativeString("");
+ fra.me.REG[6] = BOX_NativeString("");
REGB0 = TAG_Int(0);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_3 = fra.me.REG[5];
+ fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
+ once_value_3 = fra.me.REG[6];
register_static_object(&once_value_3);
- } else fra.me.REG[5] = once_value_3;
- 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]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[1]);
+ } else fra.me.REG[6] = once_value_3;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
+ fra.me.REG[6] = CALL_native_interface___ni_metamodel___MMMethod___out_csignature(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[6]);
if (!once_value_4) {
- fra.me.REG[1] = BOX_NativeString("._nitni.c");
- REGB0 = TAG_Int(9);
- fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB0);
- once_value_4 = fra.me.REG[1];
+ fra.me.REG[6] = BOX_NativeString(";\n");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
+ once_value_4 = fra.me.REG[6];
register_static_object(&once_value_4);
- } else fra.me.REG[1] = once_value_4;
- fra.me.REG[1] = fra.me.REG[1];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[1]);
+ } else fra.me.REG[6] = once_value_4;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[2] = fra.me.REG[4];
- /* ./native_interface//frontier.nit:309 */
- fra.me.REG[2] = NEW_OFStream_standard___file___OFStream___open(fra.me.REG[2]);
- fra.me.REG[3] = fra.me.REG[2];
- /* ./native_interface//frontier.nit:310 */
- fra.me.REG[0] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[0])(fra.me.REG[0]);
- CALL_compiling___compiling_writer___Writer___write_to_stream(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:311 */
- CALL_standard___stream___IOS___close(fra.me.REG[3])(fra.me.REG[3]);
- stack_frame_head = fra.me.prev;
- return;
-}
-void native_interface___frontier___FrontierVisitor___init(val_t p0, val_t p1, val_t p2, int* init_table){
- int itpos0 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_native_interface___frontier___FrontierVisitor].i;
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t tmp;
- if (init_table[itpos0]) return;
+ CALL_compiling_writer___Writer___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
+ /* native_interface/frontier.nit:275 */
+ fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_5) {
+ fra.me.REG[6] = BOX_NativeString("/* out/indirect function for ");
+ REGB0 = TAG_Int(29);
+ fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
+ once_value_5 = fra.me.REG[6];
+ register_static_object(&once_value_5);
+ } else fra.me.REG[6] = once_value_5;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
+ fra.me.REG[6] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(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[6]);
+ if (!once_value_6) {
+ fra.me.REG[6] = BOX_NativeString(" */\n");
+ REGB0 = TAG_Int(4);
+ fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
+ once_value_6 = fra.me.REG[6];
+ register_static_object(&once_value_6);
+ } else fra.me.REG[6] = once_value_6;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
+ fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
+ /* native_interface/frontier.nit:276 */
+ fra.me.REG[5] = CALL_native_interface___ni_metamodel___MMMethod___out_csignature(fra.me.REG[2])(fra.me.REG[2]);
+ fra.me.REG[5] = NEW_FunctionCompiler_native_interface___ni_tools___FunctionCompiler___init(fra.me.REG[5]);
+ /* native_interface/frontier.nit:279 */
+ fra.me.REG[4] = NEW_List_standard___collection___list___List___init();
+ /* native_interface/frontier.nit:280 */
+ REGB0 = CALL_syntax___syntax_base___MMLocalProperty___is_init(fra.me.REG[2])(fra.me.REG[2]);
+ REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
+ if (UNTAG_Bool(REGB0)) {
+ fra.me.REG[6] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[2])(fra.me.REG[2]);
+ REGB0 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 280);
+ }
+ fra.me.REG[6] = CALL_native_interface___frontier___MMSignature___recv_ni_variable(fra.me.REG[6])(fra.me.REG[6]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
+ }
+ /* native_interface/frontier.nit:281 */
+ fra.me.REG[6] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[2])(fra.me.REG[2]);
+ REGB0 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 281);
+ }
+ fra.me.REG[6] = CALL_metamodel___static_type___MMSignature___params(fra.me.REG[6])(fra.me.REG[6]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add_all(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
+ /* native_interface/frontier.nit:283 */
+ fra.me.REG[6] = NEW_List_standard___collection___list___List___init();
+ CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[4])(fra.me.REG[4], (&(fra.me)), ((fun_t)OC_native_interface___frontier___MMSrcMethod___compile_out_to_frontier_7));
+ /* native_interface/frontier.nit:295 */
+ fra.me.REG[3] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[2])(fra.me.REG[2]);
+ REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 295);
+ }
+ fra.me.REG[3] = CALL_native_interface___frontier___MMSignature___return_ni_variable(fra.me.REG[3])(fra.me.REG[3]);
+ /* native_interface/frontier.nit:296 */
+ REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ REGB1 = TAG_Bool(0);
+ REGB0 = REGB1;
+ } else {
+ REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
+ REGB0 = REGB1;
+ }
+ }
+ if (UNTAG_Bool(REGB0)) {
+ REGB0 = CALL_syntax___syntax_base___MMLocalProperty___is_init(fra.me.REG[2])(fra.me.REG[2]);
+ } else {
+ REGB1 = TAG_Bool(0);
+ REGB0 = REGB1;
+ }
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:297 */
+ fra.me.REG[4] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[2])(fra.me.REG[2]);
+ REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 297);
+ }
+ fra.me.REG[4] = CALL_metamodel___static_type___MMSignature___recv(fra.me.REG[4])(fra.me.REG[4]);
+ fra.me.REG[4] = NEW_ReturnVariable_native_interface___frontier___ReturnVariable___init(fra.me.REG[4]);
+ fra.me.REG[3] = fra.me.REG[4];
+ }
+ /* native_interface/frontier.nit:300 */
+ fra.me.REG[4] = NEW_Buffer_standard___string___Buffer___init();
+ /* native_interface/frontier.nit:301 */
+ REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ REGB1 = TAG_Bool(0);
+ REGB0 = REGB1;
+ } else {
+ REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
+ REGB0 = REGB1;
+ }
+ }
+ REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:302 */
+ REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 302);
+ }
+ CALL_native_interface___frontier___NiVariable___prepare_for_nit(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
+ /* native_interface/frontier.nit:303 */
+ REGB0 = TAG_Int(3);
+ fra.me.REG[7] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_9) {
+ fra.me.REG[8] = BOX_NativeString("");
+ REGB0 = TAG_Int(0);
+ fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
+ once_value_9 = fra.me.REG[8];
+ register_static_object(&once_value_9);
+ } else fra.me.REG[8] = once_value_9;
+ fra.me.REG[8] = fra.me.REG[8];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
+ REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 303);
+ }
+ fra.me.REG[8] = CALL_native_interface___frontier___NiVariable___ni_from_name(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
+ if (!once_value_10) {
+ fra.me.REG[8] = BOX_NativeString(" = ");
+ REGB0 = TAG_Int(3);
+ fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
+ once_value_10 = fra.me.REG[8];
+ register_static_object(&once_value_10);
+ } else fra.me.REG[8] = once_value_10;
+ fra.me.REG[8] = fra.me.REG[8];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
+ fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[7])(fra.me.REG[7]);
+ CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[7]);
+ }
+ /* native_interface/frontier.nit:306 */
+ REGB0 = TAG_Int(5);
+ fra.me.REG[7] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_11) {
+ fra.me.REG[8] = BOX_NativeString("");
+ REGB0 = TAG_Int(0);
+ fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
+ once_value_11 = fra.me.REG[8];
+ register_static_object(&once_value_11);
+ } else fra.me.REG[8] = once_value_11;
+ fra.me.REG[8] = fra.me.REG[8];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
+ fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMMethod___extern_name(fra.me.REG[2])(fra.me.REG[2]);
+ REGB0 = TAG_Bool((fra.me.REG[2]!=NIT_NULL) && VAL_ISA(fra.me.REG[2], COLOR_standard___string___String, ID_standard___string___String)) /*cast String*/;
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Cast failed", NULL, LOCATE_native_interface___frontier, 306);
+ }
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[2]);
+ if (!once_value_12) {
+ fra.me.REG[2] = BOX_NativeString("( ");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_12 = fra.me.REG[2];
+ register_static_object(&once_value_12);
+ } else fra.me.REG[2] = once_value_12;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[2]);
+ if (!once_value_13) {
+ fra.me.REG[2] = BOX_NativeString(", ");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_13 = fra.me.REG[2];
+ register_static_object(&once_value_13);
+ } else fra.me.REG[2] = once_value_13;
+ fra.me.REG[2] = fra.me.REG[2];
+ fra.me.REG[2] = CALL_standard___string___Collection___join(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[2]);
+ if (!once_value_14) {
+ fra.me.REG[2] = BOX_NativeString(" );\n");
+ REGB0 = TAG_Int(4);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_14 = fra.me.REG[2];
+ register_static_object(&once_value_14);
+ } else fra.me.REG[2] = once_value_14;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[2]);
+ fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[7])(fra.me.REG[7]);
+ CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[7]);
+ /* native_interface/frontier.nit:308 */
+ fra.me.REG[7] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[5])(fra.me.REG[5]);
+ fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[4]);
+ /* native_interface/frontier.nit:310 */
+ REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ REGB1 = TAG_Bool(0);
+ REGB0 = REGB1;
+ } else {
+ REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
+ REGB0 = REGB1;
+ }
+ }
+ REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:311 */
+ fra.me.REG[4] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[5])(fra.me.REG[5]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[7] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_15) {
+ fra.me.REG[2] = BOX_NativeString("");
+ REGB0 = TAG_Int(0);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_15 = fra.me.REG[2];
+ register_static_object(&once_value_15);
+ } else fra.me.REG[2] = once_value_15;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[2]);
+ REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 311);
+ }
+ fra.me.REG[2] = CALL_native_interface___frontier___NiVariable___ni_type(fra.me.REG[3])(fra.me.REG[3]);
+ REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 311);
+ }
+ fra.me.REG[6] = CALL_native_interface___frontier___NiVariable___ni_to_name(fra.me.REG[3])(fra.me.REG[3]);
+ REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 311);
+ }
+ fra.me.REG[0] = CALL_native_interface___frontier___NiVariable___ni_from_name(fra.me.REG[3])(fra.me.REG[3]);
+ fra.me.REG[0] = CALL_native_interface___ni_metamodel___MMType___assign_from_friendly(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6], fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[0]);
+ if (!once_value_16) {
+ fra.me.REG[0] = BOX_NativeString(";\n");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
+ once_value_16 = fra.me.REG[0];
+ register_static_object(&once_value_16);
+ } else fra.me.REG[0] = once_value_16;
+ fra.me.REG[0] = fra.me.REG[0];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[0]);
+ fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[7])(fra.me.REG[7]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[7]);
+ }
+ /* native_interface/frontier.nit:314 */
+ fra.me.REG[7] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[5])(fra.me.REG[5]);
+ if (!once_value_17) {
+ fra.me.REG[4] = BOX_NativeString("nitni_local_ref_clean( );\n");
+ REGB0 = TAG_Int(27);
+ 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_compiling_writer___Writer___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[4]);
+ /* native_interface/frontier.nit:317 */
+ REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ REGB1 = TAG_Bool(0);
+ REGB0 = REGB1;
+ } else {
+ REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
+ REGB0 = REGB1;
+ }
+ }
+ REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:318 */
+ fra.me.REG[4] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[5])(fra.me.REG[5]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[7] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_18) {
+ fra.me.REG[0] = BOX_NativeString("return ");
+ REGB0 = TAG_Int(7);
+ fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
+ once_value_18 = fra.me.REG[0];
+ register_static_object(&once_value_18);
+ } else fra.me.REG[0] = once_value_18;
+ fra.me.REG[0] = fra.me.REG[0];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[0]);
+ REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 318);
+ }
+ fra.me.REG[3] = CALL_native_interface___frontier___NiVariable___ni_to_name(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[3]);
+ if (!once_value_19) {
+ fra.me.REG[3] = BOX_NativeString(";\n");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_19 = fra.me.REG[3];
+ register_static_object(&once_value_19);
+ } else fra.me.REG[3] = once_value_19;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[3]);
+ fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[7])(fra.me.REG[7]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[7]);
+ }
+ /* native_interface/frontier.nit:321 */
+ fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
+ fra.me.REG[5] = CALL_native_interface___ni_tools___FunctionCompiler___to_writer(fra.me.REG[5])(fra.me.REG[5]);
+ CALL_compiling_writer___Writer___append(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[5]);
+ stack_frame_head = fra.me.prev;
+ return;
+}
+ void OC_native_interface___frontier___MMSrcMethod___compile_out_to_frontier_7(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
+ val_t REGB0;
+ val_t REGB1;
+ val_t REGB2;
+ fun_t CREG[1];
+ val_t tmp;
+ static val_t once_value_8; /* Once value */
+ /* native_interface/frontier.nit:285 */
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 0;
+ fra.me.meth = LOCATE_native_interface___frontier___MMSrcMethod___compile_out_to_frontier;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 2;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.closure_ctx = closctx_param;
+ fra.me.closure_funs = CREG;
+ fra.me.REG[0] = p0;
+ CREG[0] = clos_fun0;
+ /* native_interface/frontier.nit:286 */
+ REGB0 = TAG_Bool(!UNTAG_Bool(closctx->REG[3]));
+ if (UNTAG_Bool(REGB0)) {
+ REGB0 = TAG_Bool(1);
+ } else {
+ fra.me.REG[1] = CALL_native_interface___frontier___NiVariable___ni_type(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[1] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[1])(fra.me.REG[1]);
+ fra.me.REG[1] = CALL_primitive_info___MMLocalClass___primitive_info(fra.me.REG[1])(fra.me.REG[1]);
+ REGB1 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ } else {
+ REGB2 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
+ if (UNTAG_Bool(REGB2)) {
+ REGB2 = TAG_Bool(0);
+ REGB1 = REGB2;
+ } else {
+ REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], NIT_NULL);
+ REGB1 = REGB2;
+ }
+ }
+ REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
+ REGB0 = REGB1;
+ }
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:287 */
+ CALL_native_interface___frontier___NiVariable___prepare_for_c(fra.me.REG[0])(fra.me.REG[0], closctx->REG[5]);
+ /* native_interface/frontier.nit:288 */
+ fra.me.REG[0] = CALL_native_interface___frontier___NiVariable___as_arg_to_c(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx->REG[6])(closctx->REG[6], fra.me.REG[0]);
+ } else {
+ /* native_interface/frontier.nit:290 */
+ if (!once_value_8) {
+ fra.me.REG[0] = BOX_NativeString("NULL");
+ REGB0 = TAG_Int(4);
+ fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
+ once_value_8 = fra.me.REG[0];
+ register_static_object(&once_value_8);
+ } else fra.me.REG[0] = once_value_8;
+ fra.me.REG[0] = fra.me.REG[0];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx->REG[6])(closctx->REG[6], fra.me.REG[0]);
+ }
+ stack_frame_head = fra.me.prev;
+ return;
+ }
+static const char LOCATE_native_interface___frontier___MMSignature___recv_ni_variable[] = "frontier::MMSignature::recv_ni_variable";
+val_t native_interface___frontier___MMSignature___recv_ni_variable(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t REGB0;
+ val_t tmp;
fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 0;
- fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___init;
+ fra.me.line = 327;
+ fra.me.meth = LOCATE_native_interface___frontier___MMSignature___recv_ni_variable;
fra.me.has_broke = 0;
- fra.me.REG_size = 3;
+ fra.me.REG_size = 1;
+ fra.me.nitni_local_ref_head = NULL;
fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- fra.me.REG[2] = p2;
- ATTR_native_interface___frontier___FrontierVisitor_____atmmmodule(fra.me.REG[0]) = fra.me.REG[1];
- ATTR_native_interface___frontier___FrontierVisitor_____atcprogram(fra.me.REG[0]) = fra.me.REG[2];
+ /* native_interface/frontier.nit:327 */
+ REGB0 = TAG_Bool(ATTR_native_interface___frontier___MMSignature_____atrecv_ni_variable(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "@recv_ni_variable", LOCATE_native_interface___frontier, 327);
+ }
+ fra.me.REG[0] = ATTR_native_interface___frontier___MMSignature_____atrecv_ni_variable(fra.me.REG[0]);
stack_frame_head = fra.me.prev;
- init_table[itpos0] = 1;
- return;
+ return fra.me.REG[0];
}
-val_t native_interface___frontier___String___path_from_parent(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
+static const char LOCATE_native_interface___frontier___MMSignature___recv_ni_variable__eq[] = "frontier::MMSignature::recv_ni_variable=";
+void native_interface___frontier___MMSignature___recv_ni_variable__eq(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
val_t tmp;
- static val_t once_value_2; /* Once value */
- static val_t once_value_3; /* Once value */
fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 316;
- fra.me.meth = LOCATE_native_interface___frontier___String___path_from_parent;
+ fra.me.line = 327;
+ fra.me.meth = LOCATE_native_interface___frontier___MMSignature___recv_ni_variable__eq;
fra.me.has_broke = 0;
- fra.me.REG_size = 4;
+ fra.me.REG_size = 2;
+ fra.me.nitni_local_ref_head = NULL;
fra.me.REG[0] = NIT_NULL;
fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
fra.me.REG[0] = p0;
- /* ./native_interface//frontier.nit:320 */
- REGB0 = TAG_Int(0);
- REGB0 = CALL_standard___collection___abstract_collection___SequenceRead_____bra(fra.me.REG[0])(fra.me.REG[0], REGB0);
- REGB1 = TAG_Char('/');
- REGB2 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB1));
- if (UNTAG_Bool(REGB2)) {
+ fra.me.REG[1] = p1;
+ /* native_interface/frontier.nit:327 */
+ ATTR_native_interface___frontier___MMSignature_____atrecv_ni_variable(fra.me.REG[0]) = fra.me.REG[1];
+ stack_frame_head = fra.me.prev;
+ return;
+}
+static const char LOCATE_native_interface___frontier___MMSignature___return_ni_variable[] = "frontier::MMSignature::return_ni_variable";
+val_t native_interface___frontier___MMSignature___return_ni_variable(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 328;
+ fra.me.meth = LOCATE_native_interface___frontier___MMSignature___return_ni_variable;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* native_interface/frontier.nit:328 */
+ fra.me.REG[0] = ATTR_native_interface___frontier___MMSignature_____atreturn_ni_variable(fra.me.REG[0]);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[0];
+}
+static const char LOCATE_native_interface___frontier___MMSignature___return_ni_variable__eq[] = "frontier::MMSignature::return_ni_variable=";
+void native_interface___frontier___MMSignature___return_ni_variable__eq(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 328;
+ fra.me.meth = LOCATE_native_interface___frontier___MMSignature___return_ni_variable__eq;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 2;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* native_interface/frontier.nit:328 */
+ ATTR_native_interface___frontier___MMSignature_____atreturn_ni_variable(fra.me.REG[0]) = fra.me.REG[1];
+ stack_frame_head = fra.me.prev;
+ return;
+}
+static const char LOCATE_native_interface___frontier___MMSignature___init[] = "frontier::MMSignature::(static_type::MMSignature::init)";
+void native_interface___frontier___MMSignature___init(val_t p0, val_t p1, val_t p2, val_t p3, int* init_table){
+ int itpos3 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_metamodel___static_type___MMSignature].i;
+ struct {struct stack_frame_t me; val_t MORE_REG[6];} fra;
+ val_t REGB0;
+ val_t REGB1;
+ val_t tmp;
+ if (init_table[itpos3]) return;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 329;
+ fra.me.meth = LOCATE_native_interface___frontier___MMSignature___init;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 7;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[3] = NIT_NULL;
+ fra.me.REG[4] = NIT_NULL;
+ fra.me.REG[5] = NIT_NULL;
+ fra.me.REG[6] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ fra.me.REG[2] = p2;
+ fra.me.REG[3] = p3;
+ /* native_interface/frontier.nit:329 */
+ fra.me.REG[4] = fra.me.REG[0];
+ fra.me.REG[5] = fra.me.REG[2];
+ fra.me.REG[6] = fra.me.REG[3];
+ /* native_interface/frontier.nit:331 */
+ CALL_SUPER_native_interface___frontier___MMSignature___init(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2], fra.me.REG[3], init_table);
+ /* native_interface/frontier.nit:333 */
+ REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
} else {
- /* ./../lib/standard//kernel.nit:378 */
- REGB1 = TAG_Bool((REGB0)==(REGB1));
- /* ./native_interface//frontier.nit:320 */
- REGB2 = REGB1;
+ REGB1 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ REGB1 = TAG_Bool(0);
+ REGB0 = REGB1;
+ } else {
+ REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[5])(fra.me.REG[5], NIT_NULL);
+ REGB0 = REGB1;
+ }
}
- if (UNTAG_Bool(REGB2)) {
- /* ./native_interface//frontier.nit:322 */
- fra.me.REG[1] = fra.me.REG[0];
- goto label1;
+ REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:334 */
+ fra.me.REG[5] = NEW_ReturnVariable_native_interface___frontier___ReturnVariable___init(fra.me.REG[5]);
+ CALL_native_interface___frontier___MMSignature___return_ni_variable__eq(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
} else {
- /* ./native_interface//frontier.nit:324 */
- REGB2 = TAG_Int(3);
- fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB2);
- if (!once_value_2) {
- fra.me.REG[3] = BOX_NativeString("../");
- REGB2 = TAG_Int(3);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB2);
- once_value_2 = fra.me.REG[3];
- register_static_object(&once_value_2);
- } else fra.me.REG[3] = once_value_2;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]);
- if (!once_value_3) {
- fra.me.REG[0] = BOX_NativeString("");
- REGB2 = TAG_Int(0);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB2);
- once_value_3 = fra.me.REG[0];
- register_static_object(&once_value_3);
- } else fra.me.REG[0] = once_value_3;
- 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[0]);
- fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[1] = fra.me.REG[2];
- goto label1;
+ /* native_interface/frontier.nit:336 */
+ CALL_native_interface___frontier___MMSignature___return_ni_variable__eq(fra.me.REG[4])(fra.me.REG[4], NIT_NULL);
}
- label1: while(0);
+ /* native_interface/frontier.nit:338 */
+ fra.me.REG[6] = NEW_ReceiverVariable_native_interface___frontier___ReceiverVariable___init(fra.me.REG[6]);
+ CALL_native_interface___frontier___MMSignature___recv_ni_variable__eq(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
+ init_table[itpos3] = 1;
+ return;
}
-void native_interface___frontier___MMImportedCast___compile_to_frontier(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
+static const char LOCATE_native_interface___frontier___MMSignature___compile_frontier[] = "frontier::MMSignature::compile_frontier";
+void native_interface___frontier___MMSignature___compile_frontier(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[5];} fra;
val_t REGB0;
val_t REGB1;
+ val_t REGB2;
val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- static val_t once_value_3; /* Once value */
- static val_t once_value_4; /* Once value */
- static val_t once_value_5; /* Once value */
- static val_t once_value_6; /* Once value */
- static val_t once_value_7; /* Once value */
- static val_t once_value_8; /* Once value */
- static val_t once_value_9; /* Once value */
- static val_t once_value_10; /* Once value */
- static val_t once_value_11; /* Once value */
- static val_t once_value_12; /* Once value */
- 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 */
fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 331;
- fra.me.meth = LOCATE_native_interface___frontier___MMImportedCast___compile_to_frontier;
+ fra.me.line = 341;
+ fra.me.meth = LOCATE_native_interface___frontier___MMSignature___compile_frontier;
fra.me.has_broke = 0;
- fra.me.REG_size = 5;
+ fra.me.REG_size = 6;
+ fra.me.nitni_local_ref_head = NULL;
fra.me.REG[0] = NIT_NULL;
fra.me.REG[1] = NIT_NULL;
fra.me.REG[2] = NIT_NULL;
fra.me.REG[3] = NIT_NULL;
fra.me.REG[4] = NIT_NULL;
+ fra.me.REG[5] = NIT_NULL;
fra.me.REG[0] = p0;
fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:335 */
- REGB0 = CALL_metamodel___static_type___MMImportedCast___is_about_nullable_only(fra.me.REG[0])(fra.me.REG[0]);
+ /* native_interface/frontier.nit:344 */
+ fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___types(fra.me.REG[1])(fra.me.REG[1]);
+ fra.me.REG[3] = CALL_metamodel___static_type___MMSignature___recv(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[3] = CALL_metamodel___type_formal___MMType___direct_type(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ /* native_interface/frontier.nit:347 */
+ fra.me.REG[3] = CALL_metamodel___static_type___MMSignature___params(fra.me.REG[0])(fra.me.REG[0]);
+ /* ../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[3])!=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[3]);
+ /* ../lib/standard/collection/array.nit:271 */
+ fra.me.REG[2] = ATTR_standard___collection___array___Array____items(fra.me.REG[3]);
+ /* ../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[3])!=NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
+ }
+ REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3]);
+ REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
+ if (UNTAG_Bool(REGB2)) {
+ } else {
+ nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
+ }
+ /* ../lib/standard/kernel.nit:235 */
+ REGB1 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
+ /* ../lib/standard/collection/array.nit:272 */
+ if (UNTAG_Bool(REGB1)) {
+ /* ../lib/standard/collection/array.nit:273 */
+ REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 273);
+ }
+ /* ../lib/standard/collection/array.nit:718 */
+ fra.me.REG[4] = ((Nit_NativeArray)fra.me.REG[2])->val[UNTAG_Int(REGB0)];
+ /* native_interface/frontier.nit:347 */
+ fra.me.REG[5] = CALL_native_interface___frontier___FrontierVisitor___types(fra.me.REG[1])(fra.me.REG[1]);
+ fra.me.REG[4] = CALL_metamodel___static_type___MMParam___mmtype(fra.me.REG[4])(fra.me.REG[4]);
+ fra.me.REG[4] = CALL_metamodel___type_formal___MMType___direct_type(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]);
+ /* ../lib/standard/collection/array.nit:274 */
+ REGB1 = TAG_Int(1);
+ /* ../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 label1;
+ }
+ }
+ label1: while(0);
+ /* native_interface/frontier.nit:350 */
+ fra.me.REG[0] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[0])(fra.me.REG[0]);
+ /* native_interface/frontier.nit:351 */
+ REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
if (UNTAG_Bool(REGB0)) {
- REGB0 = CALL_metamodel___static_type___MMImportedCast___is_not_null_to_nullable(fra.me.REG[0])(fra.me.REG[0]);
} else {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
+ REGB1 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ REGB1 = TAG_Bool(0);
+ REGB0 = REGB1;
+ } else {
+ REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], NIT_NULL);
+ REGB0 = REGB1;
+ }
}
REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:336 */
- fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(5);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_1) {
- fra.me.REG[4] = BOX_NativeString("\n/* Type check for ");
- REGB0 = TAG_Int(19);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_1 = fra.me.REG[4];
- register_static_object(&once_value_1);
- } else fra.me.REG[4] = once_value_1;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[4] = CALL_metamodel___static_type___MMImportedCast___from(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- if (!once_value_2) {
- fra.me.REG[4] = BOX_NativeString(" with ");
- REGB0 = TAG_Int(6);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_2 = fra.me.REG[4];
- register_static_object(&once_value_2);
- } else fra.me.REG[4] = once_value_2;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[4] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- if (!once_value_3) {
- fra.me.REG[4] = BOX_NativeString(" */\n");
- REGB0 = TAG_Int(4);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_3 = fra.me.REG[4];
- register_static_object(&once_value_3);
- } else fra.me.REG[4] = once_value_3;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:337 */
- fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_4) {
- 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_4 = fra.me.REG[4];
- register_static_object(&once_value_4);
- } else fra.me.REG[4] = once_value_4;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
- fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMImportedCast___is_a_local_csignature(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
- if (!once_value_5) {
- fra.me.REG[4] = BOX_NativeString(";\n");
- REGB0 = TAG_Int(2);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_5 = fra.me.REG[4];
- register_static_object(&once_value_5);
- } else fra.me.REG[4] = once_value_5;
- fra.me.REG[4] = fra.me.REG[4];
- 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_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- /* ./native_interface//frontier.nit:339 */
- fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_6) {
- fra.me.REG[4] = BOX_NativeString("#ifndef ");
- REGB0 = TAG_Int(8);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_6 = fra.me.REG[4];
- register_static_object(&once_value_6);
- } else fra.me.REG[4] = once_value_6;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMImportedCast___is_a_friendly_extern_name(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- if (!once_value_7) {
- fra.me.REG[4] = BOX_NativeString("\n");
- REGB0 = TAG_Int(1);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_7 = fra.me.REG[4];
- register_static_object(&once_value_7);
- } else fra.me.REG[4] = once_value_7;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:340 */
- fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header(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_8) {
- fra.me.REG[4] = BOX_NativeString("#define ");
- REGB0 = TAG_Int(8);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_8 = fra.me.REG[4];
- register_static_object(&once_value_8);
- } else fra.me.REG[4] = once_value_8;
- 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[4] = CALL_native_interface___ni_metamodel___MMImportedCast___is_a_friendly_extern_name(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[4]);
- if (!once_value_9) {
- fra.me.REG[4] = BOX_NativeString(" ");
- REGB0 = TAG_Int(1);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_9 = fra.me.REG[4];
- register_static_object(&once_value_9);
- } else fra.me.REG[4] = once_value_9;
- 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[4] = CALL_native_interface___frontier___FrontierVisitor___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMImportedCast___is_a_local_cname(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
- if (!once_value_10) {
- fra.me.REG[4] = BOX_NativeString("\n");
- REGB0 = TAG_Int(1);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_10 = fra.me.REG[4];
- register_static_object(&once_value_10);
- } else fra.me.REG[4] = once_value_10;
- 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_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- /* ./native_interface//frontier.nit:341 */
- fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
- if (!once_value_11) {
- fra.me.REG[3] = BOX_NativeString("#endif\n");
- REGB0 = TAG_Int(7);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_11 = fra.me.REG[3];
- register_static_object(&once_value_11);
- } else fra.me.REG[3] = once_value_11;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:343 */
- fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[3] = CALL_native_interface___frontier___MMImportedCast___compile_is(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:344 */
- fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[3] = CALL_native_interface___ni_tools___FunctionCompiler___to_writer(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___append(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ /* native_interface/frontier.nit:352 */
+ fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___types(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 352);
+ }
+ fra.me.REG[0] = CALL_metamodel___type_formal___MMType___direct_type(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]);
}
- /* ./native_interface//frontier.nit:348 */
- fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header(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_12) {
- fra.me.REG[4] = BOX_NativeString("\n/* Cast for ");
- REGB0 = TAG_Int(13);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_12 = fra.me.REG[4];
- register_static_object(&once_value_12);
- } else fra.me.REG[4] = once_value_12;
- 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[4] = CALL_metamodel___static_type___MMImportedCast___from(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
- if (!once_value_13) {
- fra.me.REG[4] = BOX_NativeString(" to ");
- REGB0 = TAG_Int(4);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_13 = fra.me.REG[4];
- register_static_object(&once_value_13);
- } else fra.me.REG[4] = once_value_13;
- 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[4] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
- if (!once_value_14) {
- fra.me.REG[4] = BOX_NativeString(" */\n");
- REGB0 = TAG_Int(4);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_14 = fra.me.REG[4];
- register_static_object(&once_value_14);
- } else fra.me.REG[4] = once_value_14;
- 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_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- /* ./native_interface//frontier.nit:349 */
- fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_15) {
- 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_15 = fra.me.REG[4];
- register_static_object(&once_value_15);
- } else fra.me.REG[4] = once_value_15;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMImportedCast___as_local_csignature(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- if (!once_value_16) {
- fra.me.REG[4] = BOX_NativeString(";\n");
- REGB0 = TAG_Int(2);
- 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[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:351 */
- fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_17) {
- fra.me.REG[4] = BOX_NativeString("#ifndef ");
- REGB0 = TAG_Int(8);
- 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[2])(fra.me.REG[2], fra.me.REG[4]);
- fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMImportedCast___as_friendly_extern_name(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[4]);
- if (!once_value_18) {
- fra.me.REG[4] = BOX_NativeString("\n");
- REGB0 = TAG_Int(1);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_18 = fra.me.REG[4];
- register_static_object(&once_value_18);
- } else fra.me.REG[4] = once_value_18;
- 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_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- /* ./native_interface//frontier.nit:352 */
- fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(5);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_19) {
- fra.me.REG[4] = BOX_NativeString("#define ");
- REGB0 = TAG_Int(8);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_19 = fra.me.REG[4];
- register_static_object(&once_value_19);
- } else fra.me.REG[4] = once_value_19;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMImportedCast___as_friendly_extern_name(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- if (!once_value_20) {
- fra.me.REG[4] = BOX_NativeString(" ");
- REGB0 = TAG_Int(1);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_20 = fra.me.REG[4];
- register_static_object(&once_value_20);
- } else fra.me.REG[4] = once_value_20;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMImportedCast___as_local_cname(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- if (!once_value_21) {
- fra.me.REG[4] = BOX_NativeString("\n");
- REGB0 = TAG_Int(1);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_21 = fra.me.REG[4];
- register_static_object(&once_value_21);
- } else fra.me.REG[4] = once_value_21;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:353 */
- fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
- if (!once_value_22) {
- fra.me.REG[2] = BOX_NativeString("#endif\n");
- REGB0 = TAG_Int(7);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_22 = fra.me.REG[2];
- register_static_object(&once_value_22);
- } else fra.me.REG[2] = once_value_22;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- /* ./native_interface//frontier.nit:355 */
- fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[2] = CALL_native_interface___frontier___MMImportedCast___compile_as(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
- /* ./native_interface//frontier.nit:356 */
- fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[2] = CALL_native_interface___ni_tools___FunctionCompiler___to_writer(fra.me.REG[2])(fra.me.REG[2]);
- CALL_compiling___compiling_writer___Writer___append(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
stack_frame_head = fra.me.prev;
return;
}
-val_t native_interface___frontier___MMImportedCast___compile_as(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[7];} fra;
+static const char LOCATE_native_interface___frontier___FrontierVisitor___header_top[] = "frontier::FrontierVisitor::header_top";
+val_t native_interface___frontier___FrontierVisitor___header_top(val_t p0){
+ struct {struct stack_frame_t me;} fra;
val_t REGB0;
val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- static val_t once_value_3; /* Once value */
- static val_t once_value_4; /* Once value */
- static val_t once_value_5; /* Once value */
- static val_t once_value_6; /* Once value */
- static val_t once_value_7; /* Once value */
- static val_t once_value_8; /* Once value */
- static val_t once_value_9; /* Once value */
- static val_t once_value_10; /* Once value */
- static val_t once_value_11; /* Once value */
- static val_t once_value_12; /* Once value */
- static val_t once_value_13; /* Once value */
fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 359;
- fra.me.meth = LOCATE_native_interface___frontier___MMImportedCast___compile_as;
+ fra.me.line = 360;
+ fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___header_top;
fra.me.has_broke = 0;
- fra.me.REG_size = 8;
+ fra.me.REG_size = 1;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* native_interface/frontier.nit:360 */
+ REGB0 = TAG_Bool(ATTR_native_interface___frontier___FrontierVisitor_____atheader_top(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "@header_top", LOCATE_native_interface___frontier, 360);
+ }
+ fra.me.REG[0] = ATTR_native_interface___frontier___FrontierVisitor_____atheader_top(fra.me.REG[0]);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[0];
+}
+static const char LOCATE_native_interface___frontier___FrontierVisitor___header_top__eq[] = "frontier::FrontierVisitor::header_top=";
+void native_interface___frontier___FrontierVisitor___header_top__eq(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 360;
+ fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___header_top__eq;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 2;
+ fra.me.nitni_local_ref_head = NULL;
fra.me.REG[0] = NIT_NULL;
fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[6] = NIT_NULL;
- fra.me.REG[7] = NIT_NULL;
fra.me.REG[0] = p0;
fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:363 */
- fra.me.REG[1] = CALL_native_interface___ni_metamodel___MMImportedCast___as_local_csignature(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- fra.me.REG[1] = NEW_FunctionCompiler_native_interface___ni_tools___FunctionCompiler___init(fra.me.REG[1]);
- /* ./native_interface//frontier.nit:365 */
- if (!once_value_1) {
- fra.me.REG[2] = BOX_NativeString("out");
- REGB0 = TAG_Int(3);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_1 = fra.me.REG[2];
- register_static_object(&once_value_1);
- } else fra.me.REG[2] = once_value_1;
- fra.me.REG[2] = fra.me.REG[2];
- /* ./native_interface//frontier.nit:366 */
- if (!once_value_2) {
- fra.me.REG[3] = BOX_NativeString("temp");
- REGB0 = TAG_Int(4);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_2 = fra.me.REG[3];
- register_static_object(&once_value_2);
- } else fra.me.REG[3] = once_value_2;
- fra.me.REG[3] = fra.me.REG[3];
- /* ./native_interface//frontier.nit:368 */
- fra.me.REG[4] = CALL_native_interface___ni_tools___FunctionCompiler___decls(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_3) {
- fra.me.REG[6] = BOX_NativeString("val_t ");
- REGB0 = TAG_Int(6);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
- once_value_3 = fra.me.REG[6];
- register_static_object(&once_value_3);
- } else fra.me.REG[6] = once_value_3;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
- if (!once_value_4) {
- fra.me.REG[6] = BOX_NativeString(";\n");
- REGB0 = TAG_Int(2);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
- once_value_4 = fra.me.REG[6];
- register_static_object(&once_value_4);
- } else fra.me.REG[6] = once_value_4;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- /* ./native_interface//frontier.nit:369 */
- fra.me.REG[5] = CALL_native_interface___ni_tools___FunctionCompiler___decls(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(5);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_5) {
- 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_5 = fra.me.REG[6];
- register_static_object(&once_value_5);
- } else fra.me.REG[6] = once_value_5;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
- fra.me.REG[6] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[6] = CALL_native_interface___ni_metamodel___MMType___friendly_extern_name(fra.me.REG[6])(fra.me.REG[6]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
- if (!once_value_6) {
- 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_6 = fra.me.REG[6];
- register_static_object(&once_value_6);
- } else fra.me.REG[6] = once_value_6;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
- if (!once_value_7) {
- fra.me.REG[6] = BOX_NativeString(";\n");
- REGB0 = TAG_Int(2);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
- once_value_7 = fra.me.REG[6];
- register_static_object(&once_value_7);
- } else fra.me.REG[6] = once_value_7;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- /* ./native_interface//frontier.nit:371 */
- fra.me.REG[4] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_8) {
- 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_8 = fra.me.REG[6];
- register_static_object(&once_value_8);
- } else fra.me.REG[6] = once_value_8;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
- fra.me.REG[6] = CALL_metamodel___static_type___MMImportedCast___from(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[7] = CALL_native_interface___ni_metamodel___MMImportedCast___in_name(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[7] = CALL_native_interface___ni_metamodel___MMType___assign_from_friendly(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[3], fra.me.REG[7]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[7]);
- if (!once_value_9) {
- fra.me.REG[7] = BOX_NativeString(";\n");
- REGB0 = TAG_Int(2);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_9 = fra.me.REG[7];
- register_static_object(&once_value_9);
- } else fra.me.REG[7] = once_value_9;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[7]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- /* ./native_interface//frontier.nit:374 */
- fra.me.REG[5] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[5])(fra.me.REG[5]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
+ /* native_interface/frontier.nit:360 */
+ ATTR_native_interface___frontier___FrontierVisitor_____atheader_top(fra.me.REG[0]) = fra.me.REG[1];
+ stack_frame_head = fra.me.prev;
+ return;
+}
+static const char LOCATE_native_interface___frontier___FrontierVisitor___header[] = "frontier::FrontierVisitor::header";
+val_t native_interface___frontier___FrontierVisitor___header(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t REGB0;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 363;
+ fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___header;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* native_interface/frontier.nit:363 */
+ REGB0 = TAG_Bool(ATTR_native_interface___frontier___FrontierVisitor_____atheader(fra.me.REG[0])!=NIT_NULL);
if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:375 */
- CALL_native_interface___frontier___MMImportedCast___compile_check_is_not_null(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[3]);
+ } else {
+ nit_abort("Uninitialized attribute %s", "@header", LOCATE_native_interface___frontier, 363);
}
- /* ./native_interface//frontier.nit:379 */
- REGB0 = CALL_metamodel___static_type___MMImportedCast___is_about_nullable_only(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
+ fra.me.REG[0] = ATTR_native_interface___frontier___FrontierVisitor_____atheader(fra.me.REG[0]);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[0];
+}
+static const char LOCATE_native_interface___frontier___FrontierVisitor___header__eq[] = "frontier::FrontierVisitor::header=";
+void native_interface___frontier___FrontierVisitor___header__eq(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 363;
+ fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___header__eq;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 2;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* native_interface/frontier.nit:363 */
+ ATTR_native_interface___frontier___FrontierVisitor_____atheader(fra.me.REG[0]) = fra.me.REG[1];
+ stack_frame_head = fra.me.prev;
+ return;
+}
+static const char LOCATE_native_interface___frontier___FrontierVisitor___body[] = "frontier::FrontierVisitor::body";
+val_t native_interface___frontier___FrontierVisitor___body(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t REGB0;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 366;
+ fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___body;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* native_interface/frontier.nit:366 */
+ REGB0 = TAG_Bool(ATTR_native_interface___frontier___FrontierVisitor_____atbody(fra.me.REG[0])!=NIT_NULL);
if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:380 */
- fra.me.REG[5] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[0])(fra.me.REG[0]);
- CALL_native_interface___frontier___MMType___compile_check_isa(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1], fra.me.REG[3]);
+ } else {
+ nit_abort("Uninitialized attribute %s", "@body", LOCATE_native_interface___frontier, 366);
}
- /* ./native_interface//frontier.nit:383 */
- fra.me.REG[5] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_10) {
- fra.me.REG[7] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_10 = fra.me.REG[7];
- register_static_object(&once_value_10);
- } else fra.me.REG[7] = once_value_10;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[7]);
- fra.me.REG[0] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_native_interface___ni_metamodel___MMType___assign_to_friendly(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2], fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- if (!once_value_11) {
- fra.me.REG[3] = BOX_NativeString(";\n");
- REGB0 = TAG_Int(2);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_11 = fra.me.REG[3];
- register_static_object(&once_value_11);
- } else fra.me.REG[3] = once_value_11;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- /* ./native_interface//frontier.nit:385 */
- fra.me.REG[4] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_12) {
- fra.me.REG[3] = BOX_NativeString("return ");
- REGB0 = TAG_Int(7);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_12 = fra.me.REG[3];
- register_static_object(&once_value_12);
- } else fra.me.REG[3] = once_value_12;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[2]);
- if (!once_value_13) {
- fra.me.REG[2] = BOX_NativeString(";\n");
- REGB0 = TAG_Int(2);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_13 = fra.me.REG[2];
- register_static_object(&once_value_13);
- } else fra.me.REG[2] = once_value_13;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[2]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- /* ./native_interface//frontier.nit:387 */
- goto label14;
- label14: while(0);
+ fra.me.REG[0] = ATTR_native_interface___frontier___FrontierVisitor_____atbody(fra.me.REG[0]);
stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
+ return fra.me.REG[0];
}
-val_t native_interface___frontier___MMImportedCast___compile_is(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[6];} fra;
+static const char LOCATE_native_interface___frontier___FrontierVisitor___body__eq[] = "frontier::FrontierVisitor::body=";
+void native_interface___frontier___FrontierVisitor___body__eq(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 366;
+ fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___body__eq;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 2;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* native_interface/frontier.nit:366 */
+ ATTR_native_interface___frontier___FrontierVisitor_____atbody(fra.me.REG[0]) = fra.me.REG[1];
+ stack_frame_head = fra.me.prev;
+ return;
+}
+static const char LOCATE_native_interface___frontier___FrontierVisitor___friendlys[] = "frontier::FrontierVisitor::friendlys";
+val_t native_interface___frontier___FrontierVisitor___friendlys(val_t p0){
+ struct {struct stack_frame_t me;} fra;
val_t REGB0;
val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- static val_t once_value_3; /* Once value */
- static val_t once_value_4; /* Once value */
- static val_t once_value_5; /* Once value */
- static val_t once_value_6; /* Once value */
- static val_t once_value_7; /* Once value */
- static val_t once_value_8; /* Once value */
- static val_t once_value_9; /* Once value */
- static val_t once_value_10; /* Once value */
- static val_t once_value_11; /* Once value */
- static val_t once_value_12; /* Once value */
fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 390;
- fra.me.meth = LOCATE_native_interface___frontier___MMImportedCast___compile_is;
+ fra.me.line = 369;
+ fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___friendlys;
fra.me.has_broke = 0;
- fra.me.REG_size = 7;
+ fra.me.REG_size = 1;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* native_interface/frontier.nit:369 */
+ REGB0 = TAG_Bool(ATTR_native_interface___frontier___FrontierVisitor_____atfriendlys(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "@friendlys", LOCATE_native_interface___frontier, 369);
+ }
+ fra.me.REG[0] = ATTR_native_interface___frontier___FrontierVisitor_____atfriendlys(fra.me.REG[0]);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[0];
+}
+static const char LOCATE_native_interface___frontier___FrontierVisitor___friendlys__eq[] = "frontier::FrontierVisitor::friendlys=";
+void native_interface___frontier___FrontierVisitor___friendlys__eq(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 369;
+ fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___friendlys__eq;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 2;
+ fra.me.nitni_local_ref_head = NULL;
fra.me.REG[0] = NIT_NULL;
fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[6] = NIT_NULL;
fra.me.REG[0] = p0;
fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:394 */
- fra.me.REG[1] = CALL_native_interface___ni_metamodel___MMImportedCast___is_a_local_csignature(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- fra.me.REG[1] = NEW_FunctionCompiler_native_interface___ni_tools___FunctionCompiler___init(fra.me.REG[1]);
- /* ./native_interface//frontier.nit:396 */
- if (!once_value_1) {
- fra.me.REG[2] = BOX_NativeString("temp");
- REGB0 = TAG_Int(4);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_1 = fra.me.REG[2];
- register_static_object(&once_value_1);
- } else fra.me.REG[2] = once_value_1;
- fra.me.REG[2] = fra.me.REG[2];
- /* ./native_interface//frontier.nit:397 */
- fra.me.REG[3] = CALL_native_interface___ni_tools___FunctionCompiler___decls(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_2) {
- fra.me.REG[5] = BOX_NativeString("val_t ");
- REGB0 = TAG_Int(6);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_2 = fra.me.REG[5];
- register_static_object(&once_value_2);
- } else fra.me.REG[5] = once_value_2;
- 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]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
- if (!once_value_3) {
- fra.me.REG[5] = 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_3 = fra.me.REG[5];
- register_static_object(&once_value_3);
- } else fra.me.REG[5] = once_value_3;
- 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_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- /* ./native_interface//frontier.nit:399 */
- fra.me.REG[4] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_4) {
- 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_4 = fra.me.REG[5];
- register_static_object(&once_value_4);
- } else fra.me.REG[5] = once_value_4;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
- fra.me.REG[5] = CALL_metamodel___static_type___MMImportedCast___from(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[6] = CALL_native_interface___ni_metamodel___MMImportedCast___in_name(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[6] = CALL_native_interface___ni_metamodel___MMType___assign_from_friendly(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[2], fra.me.REG[6]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]);
- if (!once_value_5) {
- fra.me.REG[6] = BOX_NativeString(";\n");
- REGB0 = TAG_Int(2);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
- once_value_5 = fra.me.REG[6];
- register_static_object(&once_value_5);
- } else fra.me.REG[6] = once_value_5;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:401 */
- REGB0 = CALL_metamodel___static_type___MMImportedCast___is_nullable_to_not_null(fra.me.REG[0])(fra.me.REG[0]);
- if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:402 */
- REGB0 = CALL_metamodel___static_type___MMImportedCast___is_about_nullable_only(fra.me.REG[0])(fra.me.REG[0]);
- if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:403 */
- fra.me.REG[3] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_6) {
- fra.me.REG[6] = BOX_NativeString("if ( ! ISNULL(");
- REGB0 = TAG_Int(14);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
- once_value_6 = fra.me.REG[6];
- register_static_object(&once_value_6);
- } else fra.me.REG[6] = once_value_6;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
- if (!once_value_7) {
- fra.me.REG[6] = BOX_NativeString(") ) return 0;\n");
- REGB0 = TAG_Int(14);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
- once_value_7 = fra.me.REG[6];
- register_static_object(&once_value_7);
- } else fra.me.REG[6] = once_value_7;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- } else {
- /* ./native_interface//frontier.nit:405 */
- fra.me.REG[4] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_8) {
- fra.me.REG[6] = BOX_NativeString("if ( ISNULL(");
- REGB0 = TAG_Int(12);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
- once_value_8 = fra.me.REG[6];
- register_static_object(&once_value_8);
- } else fra.me.REG[6] = once_value_8;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- if (!once_value_9) {
- fra.me.REG[6] = BOX_NativeString(") ) return 0;\n");
- REGB0 = TAG_Int(14);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
- once_value_9 = fra.me.REG[6];
- register_static_object(&once_value_9);
- } else fra.me.REG[6] = once_value_9;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- }
- }
- /* ./native_interface//frontier.nit:409 */
- REGB0 = CALL_metamodel___static_type___MMImportedCast___is_about_nullable_only(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
+ /* native_interface/frontier.nit:369 */
+ ATTR_native_interface___frontier___FrontierVisitor_____atfriendlys(fra.me.REG[0]) = fra.me.REG[1];
+ stack_frame_head = fra.me.prev;
+ return;
+}
+static const char LOCATE_native_interface___frontier___FrontierVisitor___types[] = "frontier::FrontierVisitor::types";
+val_t native_interface___frontier___FrontierVisitor___types(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t REGB0;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 372;
+ fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___types;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* native_interface/frontier.nit:372 */
+ REGB0 = TAG_Bool(ATTR_native_interface___frontier___FrontierVisitor_____attypes(fra.me.REG[0])!=NIT_NULL);
if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:410 */
- fra.me.REG[3] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_10) {
- fra.me.REG[6] = BOX_NativeString("if ( ! ");
- REGB0 = TAG_Int(7);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
- once_value_10 = fra.me.REG[6];
- register_static_object(&once_value_10);
- } else fra.me.REG[6] = once_value_10;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
- fra.me.REG[0] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_native_interface___frontier___MMType___compile_condition_isa(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
- if (!once_value_11) {
- fra.me.REG[2] = BOX_NativeString(" ) return 0;\n");
- REGB0 = TAG_Int(13);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_11 = fra.me.REG[2];
- register_static_object(&once_value_11);
- } else fra.me.REG[2] = once_value_11;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[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]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ } else {
+ nit_abort("Uninitialized attribute %s", "@types", LOCATE_native_interface___frontier, 372);
}
- /* ./native_interface//frontier.nit:413 */
- fra.me.REG[4] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
- if (!once_value_12) {
- fra.me.REG[3] = BOX_NativeString("return 1;\n");
- REGB0 = TAG_Int(10);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_12 = fra.me.REG[3];
- register_static_object(&once_value_12);
- } else fra.me.REG[3] = once_value_12;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:415 */
- goto label13;
- label13: while(0);
+ fra.me.REG[0] = ATTR_native_interface___frontier___FrontierVisitor_____attypes(fra.me.REG[0]);
stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
+ return fra.me.REG[0];
}
-void native_interface___frontier___MMImportedCast___compile_check_is_not_null(val_t p0, val_t p1, val_t p2){
- struct {struct stack_frame_t me; val_t MORE_REG[5];} fra;
- val_t REGB0;
+static const char LOCATE_native_interface___frontier___FrontierVisitor___types__eq[] = "frontier::FrontierVisitor::types=";
+void native_interface___frontier___FrontierVisitor___types__eq(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- static val_t once_value_3; /* Once value */
- static val_t once_value_4; /* Once value */
- static val_t once_value_5; /* Once value */
- static val_t once_value_6; /* Once value */
- static val_t once_value_7; /* Once value */
fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 418;
- fra.me.meth = LOCATE_native_interface___frontier___MMImportedCast___compile_check_is_not_null;
+ fra.me.line = 372;
+ fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___types__eq;
fra.me.has_broke = 0;
- fra.me.REG_size = 6;
+ fra.me.REG_size = 2;
+ fra.me.nitni_local_ref_head = NULL;
fra.me.REG[0] = NIT_NULL;
fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
fra.me.REG[0] = p0;
fra.me.REG[1] = p1;
- fra.me.REG[2] = p2;
- /* ./native_interface//frontier.nit:422 */
- fra.me.REG[3] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_1) {
- fra.me.REG[5] = BOX_NativeString("if ( ISNULL(");
- REGB0 = TAG_Int(12);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_1 = fra.me.REG[5];
- register_static_object(&once_value_1);
- } else fra.me.REG[5] = once_value_1;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
- if (!once_value_2) {
- fra.me.REG[2] = BOX_NativeString(") ){");
- REGB0 = TAG_Int(4);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_2 = fra.me.REG[2];
- register_static_object(&once_value_2);
- } else fra.me.REG[2] = once_value_2;
- 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]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- /* ./native_interface//frontier.nit:423 */
- fra.me.REG[4] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(5);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_3) {
- fra.me.REG[2] = BOX_NativeString("\tfprintf( stderr, \"Casting from ");
- REGB0 = TAG_Int(32);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_3 = fra.me.REG[2];
- register_static_object(&once_value_3);
- } else fra.me.REG[2] = once_value_3;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- fra.me.REG[2] = CALL_metamodel___static_type___MMImportedCast___from(fra.me.REG[0])(fra.me.REG[0]);
- 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[3])(fra.me.REG[3], fra.me.REG[2]);
- if (!once_value_4) {
- fra.me.REG[2] = BOX_NativeString(" to ");
- REGB0 = TAG_Int(4);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_4 = fra.me.REG[2];
- register_static_object(&once_value_4);
- } else fra.me.REG[2] = once_value_4;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- fra.me.REG[0] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
- if (!once_value_5) {
- fra.me.REG[0] = BOX_NativeString(" failed because value is null.\" );\n");
- REGB0 = TAG_Int(35);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_5 = fra.me.REG[0];
- register_static_object(&once_value_5);
- } else fra.me.REG[0] = once_value_5;
- fra.me.REG[0] = fra.me.REG[0];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:424 */
- fra.me.REG[3] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
- if (!once_value_6) {
- fra.me.REG[4] = BOX_NativeString("\tabort();\n");
- REGB0 = TAG_Int(10);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_6 = fra.me.REG[4];
- register_static_object(&once_value_6);
- } else fra.me.REG[4] = once_value_6;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- /* ./native_interface//frontier.nit:425 */
- fra.me.REG[1] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
- if (!once_value_7) {
- fra.me.REG[4] = BOX_NativeString("}");
- REGB0 = TAG_Int(1);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_7 = fra.me.REG[4];
- register_static_object(&once_value_7);
- } else fra.me.REG[4] = once_value_7;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
+ /* native_interface/frontier.nit:372 */
+ ATTR_native_interface___frontier___FrontierVisitor_____attypes(fra.me.REG[0]) = fra.me.REG[1];
stack_frame_head = fra.me.prev;
return;
}
-val_t native_interface___frontier___MMImportedCast_____eqeq(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
+static const char LOCATE_native_interface___frontier___FrontierVisitor___casts[] = "frontier::FrontierVisitor::casts";
+val_t native_interface___frontier___FrontierVisitor___casts(val_t p0){
+ struct {struct stack_frame_t me;} fra;
val_t REGB0;
- val_t REGB1;
val_t tmp;
fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 428;
- fra.me.meth = LOCATE_native_interface___frontier___MMImportedCast_____eqeq;
+ fra.me.line = 375;
+ fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___casts;
fra.me.has_broke = 0;
- fra.me.REG_size = 4;
+ fra.me.REG_size = 1;
+ fra.me.nitni_local_ref_head = NULL;
fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:430 */
- REGB0 = TAG_Bool((fra.me.REG[1]!=NIT_NULL) && VAL_ISA(fra.me.REG[1], COLOR_metamodel___static_type___MMImportedCast, ID_metamodel___static_type___MMImportedCast)) /*cast MMImportedCast*/;
+ /* native_interface/frontier.nit:375 */
+ REGB0 = TAG_Bool(ATTR_native_interface___frontier___FrontierVisitor_____atcasts(fra.me.REG[0])!=NIT_NULL);
if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:431 */
- REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 431);
- }
- fra.me.REG[2] = CALL_metamodel___static_type___MMImportedCast___from(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[3] = CALL_metamodel___static_type___MMImportedCast___from(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[2],fra.me.REG[3]));
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- REGB0 = REGB1;
- }
} else {
- /* ./native_interface//frontier.nit:430 */
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
+ nit_abort("Uninitialized attribute %s", "@casts", LOCATE_native_interface___frontier, 375);
}
+ fra.me.REG[0] = ATTR_native_interface___frontier___FrontierVisitor_____atcasts(fra.me.REG[0]);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[0];
+}
+static const char LOCATE_native_interface___frontier___FrontierVisitor___casts__eq[] = "frontier::FrontierVisitor::casts=";
+void native_interface___frontier___FrontierVisitor___casts__eq(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 375;
+ fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___casts__eq;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 2;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* native_interface/frontier.nit:375 */
+ ATTR_native_interface___frontier___FrontierVisitor_____atcasts(fra.me.REG[0]) = fra.me.REG[1];
+ stack_frame_head = fra.me.prev;
+ return;
+}
+static const char LOCATE_native_interface___frontier___FrontierVisitor___mmmodule[] = "frontier::FrontierVisitor::mmmodule";
+val_t native_interface___frontier___FrontierVisitor___mmmodule(val_t p0){
+ struct {struct stack_frame_t me;} fra;
+ val_t REGB0;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 378;
+ fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___mmmodule;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* native_interface/frontier.nit:378 */
+ REGB0 = TAG_Bool(ATTR_native_interface___frontier___FrontierVisitor_____atmmmodule(fra.me.REG[0])!=NIT_NULL);
if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:431 */
- REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 431);
- }
- fra.me.REG[1] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[0] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[1],fra.me.REG[0]));
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- REGB0 = REGB1;
- }
} else {
- /* ./native_interface//frontier.nit:430 */
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
+ nit_abort("Uninitialized attribute %s", "@mmmodule", LOCATE_native_interface___frontier, 378);
}
- goto label1;
- label1: while(0);
+ fra.me.REG[0] = ATTR_native_interface___frontier___FrontierVisitor_____atmmmodule(fra.me.REG[0]);
stack_frame_head = fra.me.prev;
- return REGB0;
+ return fra.me.REG[0];
}
-val_t native_interface___frontier___MMImportedCast___hash(val_t p0){
+static const char LOCATE_native_interface___frontier___FrontierVisitor___mmmodule__eq[] = "frontier::FrontierVisitor::mmmodule=";
+void native_interface___frontier___FrontierVisitor___mmmodule__eq(val_t p0, val_t p1){
struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 378;
+ fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___mmmodule__eq;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 2;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* native_interface/frontier.nit:378 */
+ ATTR_native_interface___frontier___FrontierVisitor_____atmmmodule(fra.me.REG[0]) = fra.me.REG[1];
+ stack_frame_head = fra.me.prev;
+ return;
+}
+static const char LOCATE_native_interface___frontier___FrontierVisitor___cprogram[] = "frontier::FrontierVisitor::cprogram";
+val_t native_interface___frontier___FrontierVisitor___cprogram(val_t p0){
+ struct {struct stack_frame_t me;} fra;
val_t REGB0;
- val_t REGB1;
val_t tmp;
fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 433;
- fra.me.meth = LOCATE_native_interface___frontier___MMImportedCast___hash;
+ fra.me.line = 380;
+ fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___cprogram;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* native_interface/frontier.nit:380 */
+ REGB0 = TAG_Bool(ATTR_native_interface___frontier___FrontierVisitor_____atcprogram(fra.me.REG[0])!=NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "@cprogram", LOCATE_native_interface___frontier, 380);
+ }
+ fra.me.REG[0] = ATTR_native_interface___frontier___FrontierVisitor_____atcprogram(fra.me.REG[0]);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[0];
+}
+static const char LOCATE_native_interface___frontier___FrontierVisitor___cprogram__eq[] = "frontier::FrontierVisitor::cprogram=";
+void native_interface___frontier___FrontierVisitor___cprogram__eq(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 380;
+ fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___cprogram__eq;
fra.me.has_broke = 0;
fra.me.REG_size = 2;
+ fra.me.nitni_local_ref_head = NULL;
fra.me.REG[0] = NIT_NULL;
fra.me.REG[1] = NIT_NULL;
fra.me.REG[0] = p0;
- /* ./native_interface//frontier.nit:435 */
- fra.me.REG[1] = CALL_metamodel___static_type___MMImportedCast___from(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_standard___hash___Object___hash(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[0] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[0])(fra.me.REG[0]);
- REGB1 = CALL_standard___hash___Object___hash(fra.me.REG[0])(fra.me.REG[0]);
- /* ./../lib/standard//kernel.nit:235 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ./native_interface//frontier.nit:435 */
- goto label1;
- label1: while(0);
+ fra.me.REG[1] = p1;
+ /* native_interface/frontier.nit:380 */
+ ATTR_native_interface___frontier___FrontierVisitor_____atcprogram(fra.me.REG[0]) = fra.me.REG[1];
stack_frame_head = fra.me.prev;
- return REGB1;
+ return;
}
-void native_interface___frontier___MMType___compile_check_isa(val_t p0, val_t p1, val_t p2){
+static const char LOCATE_native_interface___frontier___FrontierVisitor___compile_cached[] = "frontier::FrontierVisitor::compile_cached";
+void native_interface___frontier___FrontierVisitor___compile_cached(val_t p0){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 382;
+ fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___compile_cached;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 2;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* native_interface/frontier.nit:386 */
+ fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___types(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[1])(fra.me.REG[1], (&(fra.me)), ((fun_t)OC_native_interface___frontier___FrontierVisitor___compile_cached_1));
+ /* native_interface/frontier.nit:389 */
+ fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___friendlys(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[1])(fra.me.REG[1], (&(fra.me)), ((fun_t)OC_native_interface___frontier___FrontierVisitor___compile_cached_2));
+ /* native_interface/frontier.nit:392 */
+ fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___casts(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[1])(fra.me.REG[1], (&(fra.me)), ((fun_t)OC_native_interface___frontier___FrontierVisitor___compile_cached_3));
+ stack_frame_head = fra.me.prev;
+ return;
+}
+ void OC_native_interface___frontier___FrontierVisitor___compile_cached_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
+ struct {struct stack_frame_t me;} fra;
+ fun_t CREG[1];
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 0;
+ fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___compile_cached;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.closure_ctx = closctx_param;
+ fra.me.closure_funs = CREG;
+ fra.me.REG[0] = p0;
+ CREG[0] = clos_fun0;
+ CALL_native_interface___frontier___MMType___compile_to_frontier(fra.me.REG[0])(fra.me.REG[0], closctx->REG[0]);
+ stack_frame_head = fra.me.prev;
+ return;
+ }
+ void OC_native_interface___frontier___FrontierVisitor___compile_cached_2(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
+ struct {struct stack_frame_t me;} fra;
+ fun_t CREG[1];
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 0;
+ fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___compile_cached;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.closure_ctx = closctx_param;
+ fra.me.closure_funs = CREG;
+ fra.me.REG[0] = p0;
+ CREG[0] = clos_fun0;
+ CALL_native_interface___frontier___MMExplicitImport___compile_friendly_to_frontier(fra.me.REG[0])(fra.me.REG[0], closctx->REG[0]);
+ stack_frame_head = fra.me.prev;
+ return;
+ }
+ void OC_native_interface___frontier___FrontierVisitor___compile_cached_3(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
+ struct {struct stack_frame_t me;} fra;
+ fun_t CREG[1];
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 0;
+ fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___compile_cached;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 1;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.closure_ctx = closctx_param;
+ fra.me.closure_funs = CREG;
+ fra.me.REG[0] = p0;
+ CREG[0] = clos_fun0;
+ CALL_native_interface___frontier___MMImportedCast___compile_to_frontier(fra.me.REG[0])(fra.me.REG[0], closctx->REG[0]);
+ stack_frame_head = fra.me.prev;
+ return;
+ }
+static const char LOCATE_native_interface___frontier___FrontierVisitor___write_to_files[] = "frontier::FrontierVisitor::write_to_files";
+void native_interface___frontier___FrontierVisitor___write_to_files(val_t p0, val_t p1){
struct {struct stack_frame_t me; val_t MORE_REG[5];} fra;
val_t REGB0;
val_t tmp;
static val_t once_value_2; /* Once value */
static val_t once_value_3; /* Once value */
static val_t once_value_4; /* Once value */
- static val_t once_value_5; /* Once value */
- static val_t once_value_6; /* Once value */
- static val_t once_value_7; /* Once value */
fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 440;
- fra.me.meth = LOCATE_native_interface___frontier___MMType___compile_check_isa;
+ fra.me.line = 395;
+ fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___write_to_files;
fra.me.has_broke = 0;
fra.me.REG_size = 6;
+ fra.me.nitni_local_ref_head = NULL;
fra.me.REG[0] = NIT_NULL;
fra.me.REG[1] = NIT_NULL;
fra.me.REG[2] = NIT_NULL;
fra.me.REG[5] = NIT_NULL;
fra.me.REG[0] = p0;
fra.me.REG[1] = p1;
- fra.me.REG[2] = p2;
- /* ./native_interface//frontier.nit:446 */
- fra.me.REG[3] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
+ /* native_interface/frontier.nit:397 */
REGB0 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
if (!once_value_1) {
- fra.me.REG[5] = BOX_NativeString("if ( ! ");
- REGB0 = TAG_Int(7);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_1 = fra.me.REG[5];
+ fra.me.REG[3] = BOX_NativeString("");
+ REGB0 = TAG_Int(0);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_1 = fra.me.REG[3];
register_static_object(&once_value_1);
- } else fra.me.REG[5] = once_value_1;
- 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[2] = CALL_native_interface___frontier___MMType___compile_condition_isa(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
+ } else fra.me.REG[3] = once_value_1;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
if (!once_value_2) {
- fra.me.REG[2] = BOX_NativeString(" ){");
- REGB0 = TAG_Int(3);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_2 = fra.me.REG[2];
+ fra.me.REG[3] = BOX_NativeString("._nitni.h");
+ REGB0 = TAG_Int(9);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_2 = fra.me.REG[3];
register_static_object(&once_value_2);
- } else fra.me.REG[2] = once_value_2;
- 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]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- /* ./native_interface//frontier.nit:447 */
- fra.me.REG[4] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(5);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ } else fra.me.REG[3] = once_value_2;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
+ /* native_interface/frontier.nit:398 */
+ fra.me.REG[3] = NEW_OFStream_standard___file___OFStream___open(fra.me.REG[2]);
+ /* native_interface/frontier.nit:399 */
+ fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_compiling_writer___Writer___write_to_stream(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
+ /* native_interface/frontier.nit:400 */
+ fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_compiling_writer___Writer___write_to_stream(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
+ /* native_interface/frontier.nit:401 */
+ CALL_standard___stream___IOS___close(fra.me.REG[3])(fra.me.REG[3]);
+ /* native_interface/frontier.nit:403 */
+ REGB0 = TAG_Int(3);
+ fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
if (!once_value_3) {
- fra.me.REG[2] = BOX_NativeString("\tfprintf( stderr, \"Casting to ");
- REGB0 = TAG_Int(30);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_3 = fra.me.REG[2];
+ 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_3 = fra.me.REG[5];
register_static_object(&once_value_3);
- } else fra.me.REG[2] = once_value_3;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ } else fra.me.REG[5] = once_value_3;
+ 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]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[1]);
if (!once_value_4) {
- fra.me.REG[2] = BOX_NativeString(" failed because value is not a ");
- REGB0 = TAG_Int(31);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_4 = fra.me.REG[2];
+ fra.me.REG[1] = BOX_NativeString("._nitni.c");
+ REGB0 = TAG_Int(9);
+ fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB0);
+ once_value_4 = fra.me.REG[1];
register_static_object(&once_value_4);
- } else fra.me.REG[2] = once_value_4;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
- if (!once_value_5) {
- fra.me.REG[0] = BOX_NativeString(".\" );\n");
- REGB0 = TAG_Int(6);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_5 = fra.me.REG[0];
- register_static_object(&once_value_5);
- } else fra.me.REG[0] = once_value_5;
- fra.me.REG[0] = fra.me.REG[0];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:448 */
- fra.me.REG[3] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
- if (!once_value_6) {
- fra.me.REG[4] = BOX_NativeString("\tabort();\n");
- REGB0 = TAG_Int(10);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_6 = fra.me.REG[4];
- register_static_object(&once_value_6);
- } else fra.me.REG[4] = once_value_6;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- /* ./native_interface//frontier.nit:449 */
- fra.me.REG[1] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
- if (!once_value_7) {
- fra.me.REG[4] = BOX_NativeString("}");
- REGB0 = TAG_Int(1);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_7 = fra.me.REG[4];
- register_static_object(&once_value_7);
- } else fra.me.REG[4] = once_value_7;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
+ } else fra.me.REG[1] = once_value_4;
+ fra.me.REG[1] = fra.me.REG[1];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[1]);
+ fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
+ fra.me.REG[2] = fra.me.REG[4];
+ /* native_interface/frontier.nit:404 */
+ fra.me.REG[2] = NEW_OFStream_standard___file___OFStream___open(fra.me.REG[2]);
+ fra.me.REG[3] = fra.me.REG[2];
+ /* native_interface/frontier.nit:405 */
+ fra.me.REG[0] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_compiling_writer___Writer___write_to_stream(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
+ /* native_interface/frontier.nit:406 */
+ CALL_standard___stream___IOS___close(fra.me.REG[3])(fra.me.REG[3]);
stack_frame_head = fra.me.prev;
return;
}
-val_t native_interface___frontier___MMType___compile_condition_isa(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
+static const char LOCATE_native_interface___frontier___FrontierVisitor___init[] = "frontier::FrontierVisitor::init";
+void native_interface___frontier___FrontierVisitor___init(val_t p0, val_t p1, val_t p2, int* init_table){
+ int itpos4 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_native_interface___frontier___FrontierVisitor].i;
+ struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
+ val_t tmp;
+ if (init_table[itpos4]) return;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 0;
+ fra.me.meth = LOCATE_native_interface___frontier___FrontierVisitor___init;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 3;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ fra.me.REG[2] = p2;
+ ATTR_native_interface___frontier___FrontierVisitor_____atmmmodule(fra.me.REG[0]) = fra.me.REG[1];
+ ATTR_native_interface___frontier___FrontierVisitor_____atcprogram(fra.me.REG[0]) = fra.me.REG[2];
+ stack_frame_head = fra.me.prev;
+ init_table[itpos4] = 1;
+ return;
+}
+static const char LOCATE_native_interface___frontier___MMImportedCast___compile_to_frontier[] = "frontier::MMImportedCast::compile_to_frontier";
+void native_interface___frontier___MMImportedCast___compile_to_frontier(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
val_t REGB0;
+ val_t REGB1;
val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- static val_t once_value_3; /* Once value */
- static val_t once_value_4; /* Once value */
- static val_t once_value_5; /* Once value */
- static val_t once_value_6; /* Once value */
+ static val_t once_value_1; /* Once value */
+ static val_t once_value_2; /* Once value */
+ static val_t once_value_3; /* Once value */
+ static val_t once_value_4; /* Once value */
+ static val_t once_value_5; /* Once value */
+ static val_t once_value_6; /* Once value */
+ static val_t once_value_7; /* Once value */
+ static val_t once_value_8; /* Once value */
+ static val_t once_value_9; /* Once value */
+ static val_t once_value_10; /* Once value */
+ static val_t once_value_11; /* Once value */
+ static val_t once_value_12; /* Once value */
+ 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 */
fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 452;
- fra.me.meth = LOCATE_native_interface___frontier___MMType___compile_condition_isa;
+ fra.me.line = 411;
+ fra.me.meth = LOCATE_native_interface___frontier___MMImportedCast___compile_to_frontier;
fra.me.has_broke = 0;
- fra.me.REG_size = 4;
+ fra.me.REG_size = 5;
+ fra.me.nitni_local_ref_head = NULL;
fra.me.REG[0] = NIT_NULL;
fra.me.REG[1] = NIT_NULL;
fra.me.REG[2] = NIT_NULL;
fra.me.REG[3] = NIT_NULL;
+ fra.me.REG[4] = NIT_NULL;
fra.me.REG[0] = p0;
fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:456 */
- REGB0 = TAG_Int(11);
+ /* native_interface/frontier.nit:415 */
+ REGB0 = CALL_metamodel___static_type___MMImportedCast___is_about_nullable_only(fra.me.REG[0])(fra.me.REG[0]);
+ if (UNTAG_Bool(REGB0)) {
+ REGB0 = CALL_metamodel___static_type___MMImportedCast___is_not_null_to_nullable(fra.me.REG[0])(fra.me.REG[0]);
+ } else {
+ REGB1 = TAG_Bool(0);
+ REGB0 = REGB1;
+ }
+ REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:416 */
+ fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(5);
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_1) {
+ fra.me.REG[4] = BOX_NativeString("\n/* Type check for ");
+ REGB0 = TAG_Int(19);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_1 = fra.me.REG[4];
+ register_static_object(&once_value_1);
+ } else fra.me.REG[4] = once_value_1;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ fra.me.REG[4] = CALL_metamodel___static_type___MMImportedCast___from(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ if (!once_value_2) {
+ fra.me.REG[4] = BOX_NativeString(" with ");
+ REGB0 = TAG_Int(6);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_2 = fra.me.REG[4];
+ register_static_object(&once_value_2);
+ } else fra.me.REG[4] = once_value_2;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ fra.me.REG[4] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ if (!once_value_3) {
+ fra.me.REG[4] = BOX_NativeString(" */\n");
+ REGB0 = TAG_Int(4);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_3 = fra.me.REG[4];
+ register_static_object(&once_value_3);
+ } else fra.me.REG[4] = once_value_3;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ /* native_interface/frontier.nit:417 */
+ fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_4) {
+ 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_4 = fra.me.REG[4];
+ register_static_object(&once_value_4);
+ } else fra.me.REG[4] = once_value_4;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
+ fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
+ fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMImportedCast___is_a_local_csignature(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
+ if (!once_value_5) {
+ fra.me.REG[4] = BOX_NativeString(";\n");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_5 = fra.me.REG[4];
+ register_static_object(&once_value_5);
+ } else fra.me.REG[4] = once_value_5;
+ fra.me.REG[4] = fra.me.REG[4];
+ 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_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ /* native_interface/frontier.nit:419 */
+ fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_6) {
+ fra.me.REG[4] = BOX_NativeString("#ifndef ");
+ REGB0 = TAG_Int(8);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_6 = fra.me.REG[4];
+ register_static_object(&once_value_6);
+ } else fra.me.REG[4] = once_value_6;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMImportedCast___is_a_friendly_extern_name(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ if (!once_value_7) {
+ fra.me.REG[4] = BOX_NativeString("\n");
+ REGB0 = TAG_Int(1);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_7 = fra.me.REG[4];
+ register_static_object(&once_value_7);
+ } else fra.me.REG[4] = once_value_7;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ /* native_interface/frontier.nit:420 */
+ fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header(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_8) {
+ fra.me.REG[4] = BOX_NativeString("#define ");
+ REGB0 = TAG_Int(8);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_8 = fra.me.REG[4];
+ register_static_object(&once_value_8);
+ } else fra.me.REG[4] = once_value_8;
+ 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[4] = CALL_native_interface___ni_metamodel___MMImportedCast___is_a_friendly_extern_name(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[4]);
+ if (!once_value_9) {
+ fra.me.REG[4] = BOX_NativeString(" ");
+ REGB0 = TAG_Int(1);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_9 = fra.me.REG[4];
+ register_static_object(&once_value_9);
+ } else fra.me.REG[4] = once_value_9;
+ 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[4] = CALL_native_interface___frontier___FrontierVisitor___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
+ fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMImportedCast___is_a_local_cname(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
+ if (!once_value_10) {
+ fra.me.REG[4] = BOX_NativeString("\n");
+ REGB0 = TAG_Int(1);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_10 = fra.me.REG[4];
+ register_static_object(&once_value_10);
+ } else fra.me.REG[4] = once_value_10;
+ 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_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ /* native_interface/frontier.nit:421 */
+ fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
+ if (!once_value_11) {
+ fra.me.REG[3] = BOX_NativeString("#endif\n");
+ REGB0 = TAG_Int(7);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_11 = fra.me.REG[3];
+ register_static_object(&once_value_11);
+ } else fra.me.REG[3] = once_value_11;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ /* native_interface/frontier.nit:423 */
+ fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
+ fra.me.REG[3] = CALL_native_interface___frontier___MMImportedCast___compile_is(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
+ /* native_interface/frontier.nit:424 */
+ fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
+ fra.me.REG[3] = CALL_native_interface___ni_tools___FunctionCompiler___to_writer(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_compiling_writer___Writer___append(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ }
+ /* native_interface/frontier.nit:428 */
+ fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header(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_1) {
- fra.me.REG[3] = BOX_NativeString("( ISOBJ( ");
- REGB0 = TAG_Int(9);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_1 = fra.me.REG[3];
+ if (!once_value_12) {
+ fra.me.REG[4] = BOX_NativeString("\n/* Cast for ");
+ REGB0 = TAG_Int(13);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_12 = fra.me.REG[4];
+ register_static_object(&once_value_12);
+ } else fra.me.REG[4] = once_value_12;
+ 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[4] = CALL_metamodel___static_type___MMImportedCast___from(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
+ if (!once_value_13) {
+ fra.me.REG[4] = BOX_NativeString(" to ");
+ REGB0 = TAG_Int(4);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_13 = fra.me.REG[4];
+ register_static_object(&once_value_13);
+ } else fra.me.REG[4] = once_value_13;
+ 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[4] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
+ if (!once_value_14) {
+ fra.me.REG[4] = BOX_NativeString(" */\n");
+ REGB0 = TAG_Int(4);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_14 = fra.me.REG[4];
+ register_static_object(&once_value_14);
+ } else fra.me.REG[4] = once_value_14;
+ 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_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ /* native_interface/frontier.nit:429 */
+ fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_15) {
+ 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_15 = fra.me.REG[4];
+ register_static_object(&once_value_15);
+ } else fra.me.REG[4] = once_value_15;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
+ fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMImportedCast___as_local_csignature(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ if (!once_value_16) {
+ fra.me.REG[4] = BOX_NativeString(";\n");
+ REGB0 = TAG_Int(2);
+ 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[3])(fra.me.REG[3], fra.me.REG[4]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ /* native_interface/frontier.nit:431 */
+ fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_17) {
+ fra.me.REG[4] = BOX_NativeString("#ifndef ");
+ REGB0 = TAG_Int(8);
+ 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[2])(fra.me.REG[2], fra.me.REG[4]);
+ fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMImportedCast___as_friendly_extern_name(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[4]);
+ if (!once_value_18) {
+ fra.me.REG[4] = BOX_NativeString("\n");
+ REGB0 = TAG_Int(1);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_18 = fra.me.REG[4];
+ register_static_object(&once_value_18);
+ } else fra.me.REG[4] = once_value_18;
+ 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_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ /* native_interface/frontier.nit:432 */
+ fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(5);
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_19) {
+ fra.me.REG[4] = BOX_NativeString("#define ");
+ REGB0 = TAG_Int(8);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_19 = fra.me.REG[4];
+ register_static_object(&once_value_19);
+ } else fra.me.REG[4] = once_value_19;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMImportedCast___as_friendly_extern_name(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ if (!once_value_20) {
+ fra.me.REG[4] = BOX_NativeString(" ");
+ REGB0 = TAG_Int(1);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_20 = fra.me.REG[4];
+ register_static_object(&once_value_20);
+ } else fra.me.REG[4] = once_value_20;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
+ fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMImportedCast___as_local_cname(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ if (!once_value_21) {
+ fra.me.REG[4] = BOX_NativeString("\n");
+ REGB0 = TAG_Int(1);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_21 = fra.me.REG[4];
+ register_static_object(&once_value_21);
+ } else fra.me.REG[4] = once_value_21;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ /* native_interface/frontier.nit:433 */
+ fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
+ if (!once_value_22) {
+ fra.me.REG[2] = BOX_NativeString("#endif\n");
+ REGB0 = TAG_Int(7);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_22 = fra.me.REG[2];
+ register_static_object(&once_value_22);
+ } else fra.me.REG[2] = once_value_22;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ /* native_interface/frontier.nit:435 */
+ fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
+ fra.me.REG[2] = CALL_native_interface___frontier___MMImportedCast___compile_as(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
+ /* native_interface/frontier.nit:436 */
+ fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
+ fra.me.REG[2] = CALL_native_interface___ni_tools___FunctionCompiler___to_writer(fra.me.REG[2])(fra.me.REG[2]);
+ CALL_compiling_writer___Writer___append(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
+ stack_frame_head = fra.me.prev;
+ return;
+}
+static const char LOCATE_native_interface___frontier___MMImportedCast___compile_as[] = "frontier::MMImportedCast::compile_as";
+val_t native_interface___frontier___MMImportedCast___compile_as(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[7];} fra;
+ val_t REGB0;
+ val_t tmp;
+ static val_t once_value_1; /* Once value */
+ static val_t once_value_2; /* Once value */
+ static val_t once_value_3; /* Once value */
+ static val_t once_value_4; /* Once value */
+ static val_t once_value_5; /* Once value */
+ static val_t once_value_6; /* Once value */
+ static val_t once_value_7; /* Once value */
+ static val_t once_value_8; /* Once value */
+ static val_t once_value_9; /* Once value */
+ static val_t once_value_10; /* Once value */
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 439;
+ fra.me.meth = LOCATE_native_interface___frontier___MMImportedCast___compile_as;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 8;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[3] = NIT_NULL;
+ fra.me.REG[4] = NIT_NULL;
+ fra.me.REG[5] = NIT_NULL;
+ fra.me.REG[6] = NIT_NULL;
+ fra.me.REG[7] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* native_interface/frontier.nit:443 */
+ fra.me.REG[1] = CALL_native_interface___ni_metamodel___MMImportedCast___as_local_csignature(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
+ fra.me.REG[1] = NEW_FunctionCompiler_native_interface___ni_tools___FunctionCompiler___init(fra.me.REG[1]);
+ /* native_interface/frontier.nit:445 */
+ if (!once_value_1) {
+ fra.me.REG[2] = BOX_NativeString("out");
+ REGB0 = TAG_Int(3);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_1 = fra.me.REG[2];
register_static_object(&once_value_1);
- } else fra.me.REG[3] = once_value_1;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
+ } else fra.me.REG[2] = once_value_1;
+ fra.me.REG[2] = fra.me.REG[2];
+ /* native_interface/frontier.nit:446 */
if (!once_value_2) {
- fra.me.REG[3] = BOX_NativeString(" ) ? OBJISA( ");
- REGB0 = TAG_Int(13);
+ fra.me.REG[3] = BOX_NativeString("temp");
+ REGB0 = TAG_Int(4);
fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
once_value_2 = fra.me.REG[3];
register_static_object(&once_value_2);
} else fra.me.REG[3] = once_value_2;
fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
+ /* native_interface/frontier.nit:448 */
+ fra.me.REG[4] = CALL_native_interface___ni_tools___FunctionCompiler___decls(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
if (!once_value_3) {
- fra.me.REG[3] = BOX_NativeString(", ");
- REGB0 = TAG_Int(2);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_3 = fra.me.REG[3];
+ fra.me.REG[6] = BOX_NativeString("val_t ");
+ REGB0 = TAG_Int(6);
+ fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
+ once_value_3 = fra.me.REG[6];
register_static_object(&once_value_3);
- } else fra.me.REG[3] = once_value_3;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- fra.me.REG[3] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_compiling___compiling_base___MMLocalClass___cname(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ } else fra.me.REG[6] = once_value_3;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
if (!once_value_4) {
- fra.me.REG[3] = BOX_NativeString(" ): VALISA( ");
- REGB0 = TAG_Int(12);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_4 = fra.me.REG[3];
+ fra.me.REG[6] = BOX_NativeString(";\n");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
+ once_value_4 = fra.me.REG[6];
register_static_object(&once_value_4);
- } else fra.me.REG[3] = once_value_4;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
+ } else fra.me.REG[6] = once_value_4;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
+ fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
+ /* native_interface/frontier.nit:449 */
+ fra.me.REG[5] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[0])(fra.me.REG[0]);
+ REGB0 = TAG_Bool(1);
+ CALL_native_interface___frontier___MMType___compile_new_local_ref(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[2], fra.me.REG[1], REGB0);
+ /* native_interface/frontier.nit:451 */
+ fra.me.REG[5] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
if (!once_value_5) {
- fra.me.REG[1] = BOX_NativeString(", ");
- REGB0 = TAG_Int(2);
- fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB0);
- once_value_5 = fra.me.REG[1];
+ 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_5 = fra.me.REG[6];
register_static_object(&once_value_5);
- } else fra.me.REG[1] = once_value_5;
- fra.me.REG[1] = fra.me.REG[1];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
- fra.me.REG[0] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_compiling___compiling_base___MMLocalClass___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[0]);
+ } else fra.me.REG[6] = once_value_5;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
+ fra.me.REG[6] = CALL_metamodel___static_type___MMImportedCast___from(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[7] = CALL_native_interface___ni_metamodel___MMImportedCast___in_name(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[7] = CALL_native_interface___ni_metamodel___MMType___assign_from_friendly(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[3], fra.me.REG[7]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[7]);
if (!once_value_6) {
- fra.me.REG[0] = BOX_NativeString(" ) )");
- REGB0 = TAG_Int(4);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_6 = fra.me.REG[0];
+ fra.me.REG[7] = BOX_NativeString(";\n");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
+ once_value_6 = fra.me.REG[7];
register_static_object(&once_value_6);
- } else fra.me.REG[0] = once_value_6;
- 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[0]);
+ } else fra.me.REG[7] = once_value_6;
+ fra.me.REG[7] = fra.me.REG[7];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[7]);
+ fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
+ /* native_interface/frontier.nit:454 */
+ fra.me.REG[4] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[0])(fra.me.REG[0]);
+ REGB0 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[4])(fra.me.REG[4]);
+ REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:455 */
+ CALL_native_interface___frontier___MMImportedCast___compile_check_is_not_null(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[3]);
+ }
+ /* native_interface/frontier.nit:459 */
+ REGB0 = CALL_metamodel___static_type___MMImportedCast___is_about_nullable_only(fra.me.REG[0])(fra.me.REG[0]);
+ REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:460 */
+ fra.me.REG[4] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_native_interface___frontier___MMType___compile_check_isa(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[1], fra.me.REG[3]);
+ }
+ /* native_interface/frontier.nit:463 */
+ fra.me.REG[4] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_7) {
+ fra.me.REG[7] = BOX_NativeString("");
+ REGB0 = TAG_Int(0);
+ fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
+ once_value_7 = fra.me.REG[7];
+ register_static_object(&once_value_7);
+ } else fra.me.REG[7] = once_value_7;
+ fra.me.REG[7] = fra.me.REG[7];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[7]);
+ fra.me.REG[0] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[3] = CALL_native_interface___ni_metamodel___MMType___assign_to_friendly(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2], fra.me.REG[3]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
+ if (!once_value_8) {
+ fra.me.REG[3] = BOX_NativeString(";\n");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_8 = fra.me.REG[3];
+ register_static_object(&once_value_8);
+ } else fra.me.REG[3] = once_value_8;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
+ fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
+ /* native_interface/frontier.nit:465 */
+ fra.me.REG[5] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_9) {
+ fra.me.REG[3] = BOX_NativeString("return ");
+ REGB0 = TAG_Int(7);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_9 = fra.me.REG[3];
+ register_static_object(&once_value_9);
+ } else fra.me.REG[3] = once_value_9;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
+ if (!once_value_10) {
+ fra.me.REG[2] = BOX_NativeString(";\n");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_10 = fra.me.REG[2];
+ register_static_object(&once_value_10);
+ } else fra.me.REG[2] = once_value_10;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[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]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
+ /* native_interface/frontier.nit:467 */
+ goto label11;
+ label11: while(0);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[1];
+}
+static const char LOCATE_native_interface___frontier___MMImportedCast___compile_is[] = "frontier::MMImportedCast::compile_is";
+val_t native_interface___frontier___MMImportedCast___compile_is(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[6];} fra;
+ val_t REGB0;
+ val_t tmp;
+ static val_t once_value_1; /* Once value */
+ static val_t once_value_2; /* Once value */
+ static val_t once_value_3; /* Once value */
+ static val_t once_value_4; /* Once value */
+ static val_t once_value_5; /* Once value */
+ static val_t once_value_6; /* Once value */
+ static val_t once_value_7; /* Once value */
+ static val_t once_value_8; /* Once value */
+ static val_t once_value_9; /* Once value */
+ static val_t once_value_10; /* Once value */
+ static val_t once_value_11; /* Once value */
+ static val_t once_value_12; /* Once value */
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 470;
+ fra.me.meth = LOCATE_native_interface___frontier___MMImportedCast___compile_is;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 7;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[3] = NIT_NULL;
+ fra.me.REG[4] = NIT_NULL;
+ fra.me.REG[5] = NIT_NULL;
+ fra.me.REG[6] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* native_interface/frontier.nit:474 */
+ fra.me.REG[1] = CALL_native_interface___ni_metamodel___MMImportedCast___is_a_local_csignature(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
+ fra.me.REG[1] = NEW_FunctionCompiler_native_interface___ni_tools___FunctionCompiler___init(fra.me.REG[1]);
+ /* native_interface/frontier.nit:476 */
+ if (!once_value_1) {
+ fra.me.REG[2] = BOX_NativeString("temp");
+ REGB0 = TAG_Int(4);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_1 = fra.me.REG[2];
+ register_static_object(&once_value_1);
+ } else fra.me.REG[2] = once_value_1;
+ fra.me.REG[2] = fra.me.REG[2];
+ /* native_interface/frontier.nit:477 */
+ fra.me.REG[3] = CALL_native_interface___ni_tools___FunctionCompiler___decls(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_2) {
+ fra.me.REG[5] = BOX_NativeString("val_t ");
+ REGB0 = TAG_Int(6);
+ fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
+ once_value_2 = fra.me.REG[5];
+ register_static_object(&once_value_2);
+ } else fra.me.REG[5] = once_value_2;
+ 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]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
+ if (!once_value_3) {
+ fra.me.REG[5] = 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_3 = fra.me.REG[5];
+ register_static_object(&once_value_3);
+ } else fra.me.REG[5] = once_value_3;
+ 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_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ /* native_interface/frontier.nit:479 */
+ fra.me.REG[4] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_4) {
+ 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_4 = fra.me.REG[5];
+ register_static_object(&once_value_4);
+ } else fra.me.REG[5] = once_value_4;
+ fra.me.REG[5] = fra.me.REG[5];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
+ fra.me.REG[5] = CALL_metamodel___static_type___MMImportedCast___from(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[6] = CALL_native_interface___ni_metamodel___MMImportedCast___in_name(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[6] = CALL_native_interface___ni_metamodel___MMType___assign_from_friendly(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[2], fra.me.REG[6]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]);
+ if (!once_value_5) {
+ fra.me.REG[6] = BOX_NativeString(";\n");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
+ once_value_5 = fra.me.REG[6];
+ register_static_object(&once_value_5);
+ } else fra.me.REG[6] = once_value_5;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
+ /* native_interface/frontier.nit:481 */
+ REGB0 = CALL_metamodel___static_type___MMImportedCast___is_nullable_to_not_null(fra.me.REG[0])(fra.me.REG[0]);
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:482 */
+ REGB0 = CALL_metamodel___static_type___MMImportedCast___is_about_nullable_only(fra.me.REG[0])(fra.me.REG[0]);
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:483 */
+ fra.me.REG[3] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_6) {
+ fra.me.REG[6] = BOX_NativeString("if ( ! ISNULL(");
+ REGB0 = TAG_Int(14);
+ fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
+ once_value_6 = fra.me.REG[6];
+ register_static_object(&once_value_6);
+ } else fra.me.REG[6] = once_value_6;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
+ if (!once_value_7) {
+ fra.me.REG[6] = BOX_NativeString(") ) return 0;\n");
+ REGB0 = TAG_Int(14);
+ fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
+ once_value_7 = fra.me.REG[6];
+ register_static_object(&once_value_7);
+ } else fra.me.REG[6] = once_value_7;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
+ fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ } else {
+ /* native_interface/frontier.nit:485 */
+ fra.me.REG[4] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_8) {
+ fra.me.REG[6] = BOX_NativeString("if ( ISNULL(");
+ REGB0 = TAG_Int(12);
+ fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
+ once_value_8 = fra.me.REG[6];
+ register_static_object(&once_value_8);
+ } else fra.me.REG[6] = once_value_8;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ if (!once_value_9) {
+ fra.me.REG[6] = BOX_NativeString(") ) return 0;\n");
+ REGB0 = TAG_Int(14);
+ fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
+ once_value_9 = fra.me.REG[6];
+ register_static_object(&once_value_9);
+ } else fra.me.REG[6] = once_value_9;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
+ }
+ }
+ /* native_interface/frontier.nit:489 */
+ REGB0 = CALL_metamodel___static_type___MMImportedCast___is_about_nullable_only(fra.me.REG[0])(fra.me.REG[0]);
+ REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:490 */
+ fra.me.REG[3] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_10) {
+ fra.me.REG[6] = BOX_NativeString("if ( ! ");
+ REGB0 = TAG_Int(7);
+ fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
+ once_value_10 = fra.me.REG[6];
+ register_static_object(&once_value_10);
+ } else fra.me.REG[6] = once_value_10;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
+ fra.me.REG[0] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[2] = CALL_native_interface___frontier___MMType___compile_condition_isa(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
+ if (!once_value_11) {
+ fra.me.REG[2] = BOX_NativeString(" ) return 0;\n");
+ REGB0 = TAG_Int(13);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_11 = fra.me.REG[2];
+ register_static_object(&once_value_11);
+ } else fra.me.REG[2] = once_value_11;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[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]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ }
+ /* native_interface/frontier.nit:493 */
+ fra.me.REG[4] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
+ if (!once_value_12) {
+ fra.me.REG[3] = BOX_NativeString("return 1;\n");
+ REGB0 = TAG_Int(10);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_12 = fra.me.REG[3];
+ register_static_object(&once_value_12);
+ } else fra.me.REG[3] = once_value_12;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
+ /* native_interface/frontier.nit:495 */
+ goto label13;
+ label13: while(0);
+ stack_frame_head = fra.me.prev;
+ return fra.me.REG[1];
+}
+static const char LOCATE_native_interface___frontier___MMImportedCast___compile_check_is_not_null[] = "frontier::MMImportedCast::compile_check_is_not_null";
+void native_interface___frontier___MMImportedCast___compile_check_is_not_null(val_t p0, val_t p1, val_t p2){
+ struct {struct stack_frame_t me; val_t MORE_REG[5];} fra;
+ val_t REGB0;
+ val_t tmp;
+ static val_t once_value_1; /* Once value */
+ static val_t once_value_2; /* Once value */
+ static val_t once_value_3; /* Once value */
+ static val_t once_value_4; /* Once value */
+ static val_t once_value_5; /* Once value */
+ static val_t once_value_6; /* Once value */
+ static val_t once_value_7; /* Once value */
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 498;
+ fra.me.meth = LOCATE_native_interface___frontier___MMImportedCast___compile_check_is_not_null;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 6;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[3] = NIT_NULL;
+ fra.me.REG[4] = NIT_NULL;
+ fra.me.REG[5] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ fra.me.REG[2] = p2;
+ /* native_interface/frontier.nit:502 */
+ fra.me.REG[3] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_1) {
+ fra.me.REG[5] = BOX_NativeString("if ( ISNULL(");
+ REGB0 = TAG_Int(12);
+ fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
+ once_value_1 = fra.me.REG[5];
+ register_static_object(&once_value_1);
+ } else fra.me.REG[5] = once_value_1;
+ fra.me.REG[5] = fra.me.REG[5];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
+ if (!once_value_2) {
+ fra.me.REG[2] = BOX_NativeString(") ){");
+ REGB0 = TAG_Int(4);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_2 = fra.me.REG[2];
+ register_static_object(&once_value_2);
+ } else fra.me.REG[2] = once_value_2;
+ 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]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ /* native_interface/frontier.nit:503 */
+ fra.me.REG[4] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(5);
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_3) {
+ fra.me.REG[2] = BOX_NativeString("\tfprintf( stderr, \"Casting from ");
+ REGB0 = TAG_Int(32);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_3 = fra.me.REG[2];
+ register_static_object(&once_value_3);
+ } else fra.me.REG[2] = once_value_3;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ fra.me.REG[2] = CALL_metamodel___static_type___MMImportedCast___from(fra.me.REG[0])(fra.me.REG[0]);
+ 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[3])(fra.me.REG[3], fra.me.REG[2]);
+ if (!once_value_4) {
+ fra.me.REG[2] = BOX_NativeString(" to ");
+ REGB0 = TAG_Int(4);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_4 = fra.me.REG[2];
+ register_static_object(&once_value_4);
+ } else fra.me.REG[2] = once_value_4;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ fra.me.REG[0] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
+ if (!once_value_5) {
+ fra.me.REG[0] = BOX_NativeString(" failed because value is null.\" );\n");
+ REGB0 = TAG_Int(35);
+ fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
+ once_value_5 = fra.me.REG[0];
+ register_static_object(&once_value_5);
+ } else fra.me.REG[0] = once_value_5;
+ fra.me.REG[0] = fra.me.REG[0];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
+ /* native_interface/frontier.nit:504 */
+ fra.me.REG[3] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
+ if (!once_value_6) {
+ fra.me.REG[4] = BOX_NativeString("\tabort();\n");
+ REGB0 = TAG_Int(10);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_6 = fra.me.REG[4];
+ register_static_object(&once_value_6);
+ } else fra.me.REG[4] = once_value_6;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ /* native_interface/frontier.nit:505 */
+ fra.me.REG[1] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
+ if (!once_value_7) {
+ fra.me.REG[4] = BOX_NativeString("}");
+ REGB0 = TAG_Int(1);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_7 = fra.me.REG[4];
+ register_static_object(&once_value_7);
+ } else fra.me.REG[4] = once_value_7;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
+ stack_frame_head = fra.me.prev;
+ return;
+}
+static const char LOCATE_native_interface___frontier___MMImportedCast_____eqeq[] = "frontier::MMImportedCast::(kernel::Object::==)";
+val_t native_interface___frontier___MMImportedCast_____eqeq(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
+ val_t REGB0;
+ val_t REGB1;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 508;
+ fra.me.meth = LOCATE_native_interface___frontier___MMImportedCast_____eqeq;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 4;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[3] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* native_interface/frontier.nit:510 */
+ REGB0 = TAG_Bool((fra.me.REG[1]!=NIT_NULL) && VAL_ISA(fra.me.REG[1], COLOR_metamodel___static_type___MMImportedCast, ID_metamodel___static_type___MMImportedCast)) /*cast MMImportedCast*/;
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:511 */
+ REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 511);
+ }
+ fra.me.REG[2] = CALL_metamodel___static_type___MMImportedCast___from(fra.me.REG[1])(fra.me.REG[1]);
+ fra.me.REG[3] = CALL_metamodel___static_type___MMImportedCast___from(fra.me.REG[0])(fra.me.REG[0]);
+ REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[2],fra.me.REG[3]));
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ REGB0 = REGB1;
+ }
+ } else {
+ /* native_interface/frontier.nit:510 */
+ REGB1 = TAG_Bool(0);
+ REGB0 = REGB1;
+ }
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:511 */
+ REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 511);
+ }
+ fra.me.REG[1] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[1])(fra.me.REG[1]);
+ fra.me.REG[0] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[0])(fra.me.REG[0]);
+ REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[1],fra.me.REG[0]));
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
+ REGB0 = REGB1;
+ }
+ } else {
+ /* native_interface/frontier.nit:510 */
+ REGB1 = TAG_Bool(0);
+ REGB0 = REGB1;
+ }
+ goto label1;
+ label1: while(0);
+ stack_frame_head = fra.me.prev;
+ return REGB0;
+}
+static const char LOCATE_native_interface___frontier___MMImportedCast___hash[] = "frontier::MMImportedCast::(hash::Object::hash)";
+val_t native_interface___frontier___MMImportedCast___hash(val_t p0){
+ struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
+ val_t REGB0;
+ val_t REGB1;
+ val_t tmp;
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 513;
+ fra.me.meth = LOCATE_native_interface___frontier___MMImportedCast___hash;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 2;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ /* native_interface/frontier.nit:515 */
+ fra.me.REG[1] = CALL_metamodel___static_type___MMImportedCast___from(fra.me.REG[0])(fra.me.REG[0]);
+ REGB0 = CALL_standard___hash___Object___hash(fra.me.REG[1])(fra.me.REG[1]);
+ fra.me.REG[0] = CALL_metamodel___static_type___MMImportedCast___to(fra.me.REG[0])(fra.me.REG[0]);
+ REGB1 = CALL_standard___hash___Object___hash(fra.me.REG[0])(fra.me.REG[0]);
+ /* ../lib/standard/kernel.nit:238 */
+ REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
+ /* native_interface/frontier.nit:515 */
+ goto label1;
+ label1: while(0);
+ stack_frame_head = fra.me.prev;
+ return REGB1;
+}
+static const char LOCATE_native_interface___frontier___MMType___compile_check_isa[] = "frontier::MMType::compile_check_isa";
+void native_interface___frontier___MMType___compile_check_isa(val_t p0, val_t p1, val_t p2){
+ struct {struct stack_frame_t me; val_t MORE_REG[5];} fra;
+ val_t REGB0;
+ val_t tmp;
+ static val_t once_value_1; /* Once value */
+ static val_t once_value_2; /* Once value */
+ static val_t once_value_3; /* Once value */
+ static val_t once_value_4; /* Once value */
+ static val_t once_value_5; /* Once value */
+ static val_t once_value_6; /* Once value */
+ static val_t once_value_7; /* Once value */
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 520;
+ fra.me.meth = LOCATE_native_interface___frontier___MMType___compile_check_isa;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 6;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[3] = NIT_NULL;
+ fra.me.REG[4] = NIT_NULL;
+ fra.me.REG[5] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ fra.me.REG[2] = p2;
+ /* native_interface/frontier.nit:526 */
+ fra.me.REG[3] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_1) {
+ fra.me.REG[5] = BOX_NativeString("if ( ! ");
+ REGB0 = TAG_Int(7);
+ fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
+ once_value_1 = fra.me.REG[5];
+ register_static_object(&once_value_1);
+ } else fra.me.REG[5] = once_value_1;
+ fra.me.REG[5] = fra.me.REG[5];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
+ fra.me.REG[2] = CALL_native_interface___frontier___MMType___compile_condition_isa(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
+ if (!once_value_2) {
+ fra.me.REG[2] = BOX_NativeString(" ){\n");
+ REGB0 = TAG_Int(4);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_2 = fra.me.REG[2];
+ register_static_object(&once_value_2);
+ } else fra.me.REG[2] = once_value_2;
+ 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]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ /* native_interface/frontier.nit:527 */
+ fra.me.REG[4] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(5);
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_3) {
+ fra.me.REG[2] = BOX_NativeString("\tfprintf( stderr, \"Casting to ");
+ REGB0 = TAG_Int(30);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_3 = fra.me.REG[2];
+ register_static_object(&once_value_3);
+ } else fra.me.REG[2] = once_value_3;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ if (!once_value_4) {
+ fra.me.REG[2] = BOX_NativeString(" failed because value is not a ");
+ REGB0 = TAG_Int(31);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_4 = fra.me.REG[2];
+ register_static_object(&once_value_4);
+ } else fra.me.REG[2] = once_value_4;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
+ if (!once_value_5) {
+ fra.me.REG[0] = BOX_NativeString(".\" );\n");
+ REGB0 = TAG_Int(6);
+ fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
+ once_value_5 = fra.me.REG[0];
+ register_static_object(&once_value_5);
+ } else fra.me.REG[0] = once_value_5;
+ fra.me.REG[0] = fra.me.REG[0];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
+ /* native_interface/frontier.nit:528 */
+ fra.me.REG[3] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
+ if (!once_value_6) {
+ fra.me.REG[4] = BOX_NativeString("\tabort();\n");
+ REGB0 = TAG_Int(10);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_6 = fra.me.REG[4];
+ register_static_object(&once_value_6);
+ } else fra.me.REG[4] = once_value_6;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ /* native_interface/frontier.nit:529 */
+ fra.me.REG[1] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[1])(fra.me.REG[1]);
+ if (!once_value_7) {
+ fra.me.REG[4] = BOX_NativeString("}\n");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_7 = fra.me.REG[4];
+ register_static_object(&once_value_7);
+ } else fra.me.REG[4] = once_value_7;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
+ stack_frame_head = fra.me.prev;
+ return;
+}
+static const char LOCATE_native_interface___frontier___MMType___compile_condition_isa[] = "frontier::MMType::compile_condition_isa";
+val_t native_interface___frontier___MMType___compile_condition_isa(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
+ val_t REGB0;
+ val_t tmp;
+ static val_t once_value_1; /* Once value */
+ static val_t once_value_2; /* Once value */
+ static val_t once_value_3; /* Once value */
+ static val_t once_value_4; /* Once value */
+ static val_t once_value_5; /* Once value */
+ static val_t once_value_6; /* Once value */
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 532;
+ fra.me.meth = LOCATE_native_interface___frontier___MMType___compile_condition_isa;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 4;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[3] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* native_interface/frontier.nit:536 */
+ REGB0 = TAG_Int(11);
+ fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_1) {
+ fra.me.REG[3] = BOX_NativeString("( ISOBJ( ");
+ REGB0 = TAG_Int(9);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_1 = fra.me.REG[3];
+ register_static_object(&once_value_1);
+ } else fra.me.REG[3] = once_value_1;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
+ if (!once_value_2) {
+ fra.me.REG[3] = BOX_NativeString(" ) ? OBJISA( ");
+ REGB0 = TAG_Int(13);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_2 = fra.me.REG[3];
+ register_static_object(&once_value_2);
+ } else fra.me.REG[3] = once_value_2;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
+ if (!once_value_3) {
+ fra.me.REG[3] = BOX_NativeString(", ");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_3 = fra.me.REG[3];
+ register_static_object(&once_value_3);
+ } else fra.me.REG[3] = once_value_3;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ fra.me.REG[3] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[3] = CALL_compiling___compiling_base___MMLocalClass___cname(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ if (!once_value_4) {
+ fra.me.REG[3] = BOX_NativeString(" ): VALISA( ");
+ REGB0 = TAG_Int(12);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_4 = fra.me.REG[3];
+ register_static_object(&once_value_4);
+ } else fra.me.REG[3] = once_value_4;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
+ if (!once_value_5) {
+ fra.me.REG[1] = BOX_NativeString(", ");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB0);
+ once_value_5 = fra.me.REG[1];
+ register_static_object(&once_value_5);
+ } else fra.me.REG[1] = once_value_5;
+ fra.me.REG[1] = fra.me.REG[1];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
+ fra.me.REG[0] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[0] = CALL_compiling___compiling_base___MMLocalClass___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[0]);
+ if (!once_value_6) {
+ fra.me.REG[0] = BOX_NativeString(" ) )");
+ REGB0 = TAG_Int(4);
+ fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
+ once_value_6 = fra.me.REG[0];
+ register_static_object(&once_value_6);
+ } else fra.me.REG[0] = once_value_6;
+ 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[0]);
fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
goto label7;
label7: while(0);
stack_frame_head = fra.me.prev;
- return fra.me.REG[2];
+ return fra.me.REG[2];
+}
+static const char LOCATE_native_interface___frontier___MMType___compile_to_frontier[] = "frontier::MMType::compile_to_frontier";
+void native_interface___frontier___MMType___compile_to_frontier(val_t p0, val_t p1){
+ struct {struct stack_frame_t me; val_t MORE_REG[6];} fra;
+ val_t REGB0;
+ val_t REGB1;
+ val_t tmp;
+ static val_t once_value_1; /* Once value */
+ static val_t once_value_2; /* Once value */
+ static val_t once_value_3; /* Once value */
+ static val_t once_value_4; /* Once value */
+ static val_t once_value_5; /* Once value */
+ static val_t once_value_6; /* Once value */
+ static val_t once_value_7; /* Once value */
+ static val_t once_value_8; /* Once value */
+ static val_t once_value_9; /* Once value */
+ static val_t once_value_10; /* Once value */
+ static val_t once_value_11; /* Once value */
+ static val_t once_value_12; /* Once value */
+ 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_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_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 */
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 539;
+ fra.me.meth = LOCATE_native_interface___frontier___MMType___compile_to_frontier;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 7;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[3] = NIT_NULL;
+ fra.me.REG[4] = NIT_NULL;
+ fra.me.REG[5] = NIT_NULL;
+ fra.me.REG[6] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ /* native_interface/frontier.nit:543 */
+ fra.me.REG[2] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[2] = CALL_primitive_info___MMLocalClass___primitive_info(fra.me.REG[2])(fra.me.REG[2]);
+ /* native_interface/frontier.nit:544 */
+ REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ } else {
+ REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ REGB1 = TAG_Bool(0);
+ REGB0 = REGB1;
+ } else {
+ REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
+ REGB0 = REGB1;
+ }
+ }
+ if (UNTAG_Bool(REGB0)) {
+ REGB0 = TAG_Bool(1);
+ } else {
+ REGB1 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[0])(fra.me.REG[0]);
+ REGB0 = REGB1;
+ }
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:545 */
+ fra.me.REG[2] = CALL_native_interface___ni_metamodel___MMType___friendly_extern_name(fra.me.REG[0])(fra.me.REG[0]);
+ /* native_interface/frontier.nit:546 */
+ REGB0 = TAG_Int(3);
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_1) {
+ 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_1 = fra.me.REG[4];
+ register_static_object(&once_value_1);
+ } else fra.me.REG[4] = once_value_1;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
+ fra.me.REG[4] = CALL_standard___string___AbstractString___to_upper(fra.me.REG[4])(fra.me.REG[4]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ if (!once_value_2) {
+ fra.me.REG[4] = BOX_NativeString("_TYPE");
+ REGB0 = TAG_Int(5);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_2 = fra.me.REG[4];
+ register_static_object(&once_value_2);
+ } else fra.me.REG[4] = once_value_2;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ /* native_interface/frontier.nit:549 */
+ fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_3) {
+ 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_3 = fra.me.REG[6];
+ register_static_object(&once_value_3);
+ } else fra.me.REG[6] = once_value_3;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
+ if (!once_value_4) {
+ 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_4 = fra.me.REG[6];
+ register_static_object(&once_value_4);
+ } else fra.me.REG[6] = once_value_4;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
+ fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
+ /* native_interface/frontier.nit:550 */
+ fra.me.REG[5] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_5) {
+ 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_5 = fra.me.REG[6];
+ register_static_object(&once_value_5);
+ } else fra.me.REG[6] = once_value_5;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
+ if (!once_value_6) {
+ fra.me.REG[3] = BOX_NativeString("\n");
+ REGB0 = TAG_Int(1);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_6 = fra.me.REG[3];
+ register_static_object(&once_value_6);
+ } else fra.me.REG[3] = once_value_6;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
+ fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
+ /* native_interface/frontier.nit:551 */
+ fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_7) {
+ fra.me.REG[3] = BOX_NativeString("struct s_");
+ REGB0 = TAG_Int(9);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_7 = fra.me.REG[3];
+ register_static_object(&once_value_7);
+ } else fra.me.REG[3] = once_value_7;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[2]);
+ if (!once_value_8) {
+ fra.me.REG[3] = BOX_NativeString("{\n");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_8 = fra.me.REG[3];
+ register_static_object(&once_value_8);
+ } else fra.me.REG[3] = once_value_8;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
+ fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
+ /* native_interface/frontier.nit:552 */
+ fra.me.REG[5] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
+ if (!once_value_9) {
+ fra.me.REG[4] = BOX_NativeString("\t\tstruct nitni_ref ref; /* real ref struct, must be first */\n");
+ REGB0 = TAG_Int(61);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_9 = fra.me.REG[4];
+ register_static_object(&once_value_9);
+ } else fra.me.REG[4] = once_value_9;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_compiling_writer___Writer___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
+ /* native_interface/frontier.nit:553 */
+ fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
+ if (!once_value_10) {
+ fra.me.REG[5] = BOX_NativeString("};\n");
+ REGB0 = TAG_Int(3);
+ fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
+ once_value_10 = fra.me.REG[5];
+ register_static_object(&once_value_10);
+ } else fra.me.REG[5] = once_value_10;
+ fra.me.REG[5] = fra.me.REG[5];
+ CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
+ /* native_interface/frontier.nit:554 */
+ fra.me.REG[5] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(5);
+ fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_11) {
+ fra.me.REG[3] = BOX_NativeString("typedef struct s_");
+ REGB0 = TAG_Int(17);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_11 = fra.me.REG[3];
+ register_static_object(&once_value_11);
+ } else fra.me.REG[3] = once_value_11;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
+ if (!once_value_12) {
+ fra.me.REG[3] = BOX_NativeString(" *");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_12 = fra.me.REG[3];
+ register_static_object(&once_value_12);
+ } else fra.me.REG[3] = once_value_12;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
+ if (!once_value_13) {
+ fra.me.REG[3] = BOX_NativeString(";\n");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_13 = fra.me.REG[3];
+ register_static_object(&once_value_13);
+ } else fra.me.REG[3] = once_value_13;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
+ fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
+ /* native_interface/frontier.nit:557 */
+ REGB0 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[0])(fra.me.REG[0]);
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:558 */
+ fra.me.REG[4] = CALL_metamodel___static_type___MMType___mmmodule(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMType___local_friendly_null_getter_from(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]);
+ /* native_interface/frontier.nit:560 */
+ fra.me.REG[5] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_14) {
+ 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_14 = fra.me.REG[6];
+ register_static_object(&once_value_14);
+ } else fra.me.REG[6] = once_value_14;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]);
+ fra.me.REG[6] = CALL_native_interface___ni_metamodel___MMType___friendly_null_getter(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]);
+ if (!once_value_15) {
+ 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_15 = fra.me.REG[6];
+ register_static_object(&once_value_15);
+ } else fra.me.REG[6] = once_value_15;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]);
+ fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
+ /* native_interface/frontier.nit:561 */
+ fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(5);
+ fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_16) {
+ 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_16 = fra.me.REG[6];
+ register_static_object(&once_value_16);
+ } else fra.me.REG[6] = once_value_16;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
+ fra.me.REG[6] = CALL_native_interface___ni_metamodel___MMType___friendly_null_getter(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[6]);
+ if (!once_value_17) {
+ 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_17 = fra.me.REG[6];
+ register_static_object(&once_value_17);
+ } else fra.me.REG[6] = once_value_17;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
+ if (!once_value_18) {
+ 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_18 = fra.me.REG[6];
+ register_static_object(&once_value_18);
+ } else fra.me.REG[6] = once_value_18;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
+ fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
+ /* native_interface/frontier.nit:562 */
+ fra.me.REG[5] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
+ if (!once_value_19) {
+ fra.me.REG[3] = BOX_NativeString("#endif\n");
+ REGB0 = TAG_Int(7);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_19 = fra.me.REG[3];
+ register_static_object(&once_value_19);
+ } else fra.me.REG[3] = once_value_19;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_compiling_writer___Writer___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
+ /* native_interface/frontier.nit:564 */
+ fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(5);
+ fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_20) {
+ 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_20 = fra.me.REG[6];
+ register_static_object(&once_value_20);
+ } else fra.me.REG[6] = once_value_20;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[2]);
+ if (!once_value_21) {
+ 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_21 = fra.me.REG[6];
+ register_static_object(&once_value_21);
+ } else fra.me.REG[6] = once_value_21;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
+ if (!once_value_22) {
+ fra.me.REG[6] = BOX_NativeString("();\n");
+ REGB0 = TAG_Int(4);
+ 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[5])(fra.me.REG[5], fra.me.REG[6]);
+ fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
+ /* native_interface/frontier.nit:566 */
+ REGB0 = TAG_Int(5);
+ fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_23) {
+ fra.me.REG[3] = BOX_NativeString("");
+ REGB0 = TAG_Int(0);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_23 = fra.me.REG[3];
+ register_static_object(&once_value_23);
+ } else fra.me.REG[3] = once_value_23;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[2]);
+ if (!once_value_24) {
+ fra.me.REG[2] = BOX_NativeString(" ");
+ REGB0 = TAG_Int(1);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_24 = fra.me.REG[2];
+ register_static_object(&once_value_24);
+ } else fra.me.REG[2] = once_value_24;
+ 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]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
+ if (!once_value_25) {
+ fra.me.REG[4] = BOX_NativeString("()");
+ REGB0 = TAG_Int(2);
+ 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[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
+ fra.me.REG[5] = NEW_FunctionCompiler_native_interface___ni_tools___FunctionCompiler___init(fra.me.REG[5]);
+ /* native_interface/frontier.nit:567 */
+ if (!once_value_26) {
+ fra.me.REG[4] = BOX_NativeString("n");
+ REGB0 = TAG_Int(1);
+ 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];
+ REGB0 = TAG_Bool(1);
+ CALL_native_interface___frontier___MMType___compile_new_local_ref(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4], fra.me.REG[5], REGB0);
+ /* native_interface/frontier.nit:568 */
+ fra.me.REG[4] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[5])(fra.me.REG[5]);
+ if (!once_value_27) {
+ fra.me.REG[2] = BOX_NativeString("return n;\n");
+ REGB0 = TAG_Int(10);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_27 = fra.me.REG[2];
+ register_static_object(&once_value_27);
+ } else fra.me.REG[2] = once_value_27;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
+ /* native_interface/frontier.nit:569 */
+ fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
+ fra.me.REG[5] = CALL_native_interface___ni_tools___FunctionCompiler___to_writer(fra.me.REG[5])(fra.me.REG[5]);
+ CALL_compiling_writer___Writer___append(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[5]);
+ }
+ /* native_interface/frontier.nit:573 */
+ REGB0 = TAG_Int(3);
+ fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_28) {
+ fra.me.REG[2] = BOX_NativeString("");
+ REGB0 = TAG_Int(0);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_28 = fra.me.REG[2];
+ register_static_object(&once_value_28);
+ } else fra.me.REG[2] = once_value_28;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[2]);
+ fra.me.REG[2] = CALL_metamodel___static_type___MMType___as_notnull(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[2] = CALL_native_interface___ni_metamodel___MMType___mangled_name(fra.me.REG[2])(fra.me.REG[2]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[2]);
+ if (!once_value_29) {
+ fra.me.REG[2] = BOX_NativeString("_incr_ref");
+ REGB0 = TAG_Int(9);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_29 = fra.me.REG[2];
+ register_static_object(&once_value_29);
+ } else fra.me.REG[2] = once_value_29;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[2]);
+ fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
+ /* native_interface/frontier.nit:574 */
+ fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_30) {
+ fra.me.REG[3] = BOX_NativeString("#define ");
+ REGB0 = TAG_Int(8);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_30 = fra.me.REG[3];
+ register_static_object(&once_value_30);
+ } else fra.me.REG[3] = once_value_30;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
+ if (!once_value_31) {
+ fra.me.REG[5] = BOX_NativeString("( x ) nitni_global_ref_incr( (struct nitni_ref*)(x) )\n");
+ REGB0 = TAG_Int(54);
+ fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
+ once_value_31 = fra.me.REG[5];
+ register_static_object(&once_value_31);
+ } else fra.me.REG[5] = once_value_31;
+ 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_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
+ /* native_interface/frontier.nit:577 */
+ REGB0 = TAG_Int(3);
+ fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_32) {
+ fra.me.REG[2] = BOX_NativeString("");
+ REGB0 = TAG_Int(0);
+ 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[4])(fra.me.REG[4], fra.me.REG[2]);
+ fra.me.REG[0] = CALL_metamodel___static_type___MMType___as_notnull(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[0] = CALL_native_interface___ni_metamodel___MMType___mangled_name(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[0]);
+ if (!once_value_33) {
+ fra.me.REG[0] = BOX_NativeString("_decr_ref");
+ REGB0 = TAG_Int(9);
+ fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
+ once_value_33 = fra.me.REG[0];
+ register_static_object(&once_value_33);
+ } else fra.me.REG[0] = once_value_33;
+ 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[0]);
+ fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
+ /* native_interface/frontier.nit:578 */
+ fra.me.REG[0] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
+ REGB0 = TAG_Int(3);
+ fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_34) {
+ fra.me.REG[5] = BOX_NativeString("#define ");
+ REGB0 = TAG_Int(8);
+ fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
+ once_value_34 = fra.me.REG[5];
+ register_static_object(&once_value_34);
+ } else fra.me.REG[5] = once_value_34;
+ fra.me.REG[5] = fra.me.REG[5];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[5]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]);
+ if (!once_value_35) {
+ fra.me.REG[4] = BOX_NativeString("( x ) nitni_global_ref_decr( (struct nitni_ref*)(x) )\n");
+ REGB0 = TAG_Int(54);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_35 = fra.me.REG[4];
+ register_static_object(&once_value_35);
+ } else fra.me.REG[4] = once_value_35;
+ 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_compiling_writer___Writer___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
+ /* native_interface/frontier.nit:580 */
+ fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
+ if (!once_value_36) {
+ fra.me.REG[2] = BOX_NativeString("#endif\n");
+ REGB0 = TAG_Int(7);
+ fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_36 = fra.me.REG[2];
+ register_static_object(&once_value_36);
+ } else fra.me.REG[2] = once_value_36;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
+ }
+ stack_frame_head = fra.me.prev;
+ return;
}
-void native_interface___frontier___MMType___compile_to_frontier(val_t p0, val_t p1){
+static const char LOCATE_native_interface___frontier___MMType___compile_new_local_ref[] = "frontier::MMType::compile_new_local_ref";
+void native_interface___frontier___MMType___compile_new_local_ref(val_t p0, val_t p1, val_t p2, val_t p3){
struct {struct stack_frame_t me; val_t MORE_REG[6];} fra;
val_t REGB0;
val_t REGB1;
val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- static val_t once_value_3; /* Once value */
+ static val_t once_value_1; /* Once value */
+ static val_t once_value_2; /* Once value */
+ static val_t once_value_3; /* Once value */
static val_t once_value_4; /* Once value */
static val_t once_value_5; /* Once value */
static val_t once_value_6; /* Once value */
static val_t once_value_8; /* Once value */
static val_t once_value_9; /* Once value */
static val_t once_value_10; /* Once value */
- static val_t once_value_11; /* Once value */
- static val_t once_value_12; /* Once value */
- 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_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_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_11; /* Once value */
+ static val_t once_value_12; /* Once value */
fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 459;
- fra.me.meth = LOCATE_native_interface___frontier___MMType___compile_to_frontier;
+ fra.me.line = 584;
+ fra.me.meth = LOCATE_native_interface___frontier___MMType___compile_new_local_ref;
fra.me.has_broke = 0;
fra.me.REG_size = 7;
+ fra.me.nitni_local_ref_head = NULL;
fra.me.REG[0] = NIT_NULL;
fra.me.REG[1] = NIT_NULL;
fra.me.REG[2] = NIT_NULL;
fra.me.REG[6] = NIT_NULL;
fra.me.REG[0] = p0;
fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:463 */
- fra.me.REG[2] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_primitive_info___MMLocalClass___primitive_info(fra.me.REG[2])(fra.me.REG[2]);
- /* ./native_interface//frontier.nit:464 */
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(true);
- } else {
- REGB1 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:465 */
- fra.me.REG[2] = CALL_native_interface___ni_metamodel___MMType___friendly_extern_name(fra.me.REG[0])(fra.me.REG[0]);
- /* ./native_interface//frontier.nit:466 */
- REGB0 = TAG_Int(3);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_1) {
- 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_1 = fra.me.REG[4];
- register_static_object(&once_value_1);
- } else fra.me.REG[4] = once_value_1;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[4] = CALL_standard___string___AbstractString___to_upper(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- if (!once_value_2) {
- fra.me.REG[4] = BOX_NativeString("_TYPE");
- REGB0 = TAG_Int(5);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_2 = fra.me.REG[4];
- register_static_object(&once_value_2);
- } else fra.me.REG[4] = once_value_2;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- /* ./native_interface//frontier.nit:469 */
- fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_3) {
- 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_3 = fra.me.REG[6];
- register_static_object(&once_value_3);
- } else fra.me.REG[6] = once_value_3;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
+ fra.me.REG[2] = p2;
+ REGB0 = p3;
+ /* native_interface/frontier.nit:586 */
+ fra.me.REG[3] = CALL_native_interface___ni_metamodel___MMType___friendly_extern_name(fra.me.REG[0])(fra.me.REG[0]);
+ /* native_interface/frontier.nit:588 */
+ fra.me.REG[4] = CALL_native_interface___ni_tools___FunctionCompiler___decls(fra.me.REG[2])(fra.me.REG[2]);
+ REGB1 = TAG_Int(5);
+ fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
+ if (!once_value_1) {
+ fra.me.REG[6] = BOX_NativeString("");
+ REGB1 = TAG_Int(0);
+ fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB1);
+ once_value_1 = fra.me.REG[6];
+ register_static_object(&once_value_1);
+ } else fra.me.REG[6] = once_value_1;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
+ if (!once_value_2) {
+ fra.me.REG[6] = BOX_NativeString(" ");
+ REGB1 = TAG_Int(1);
+ fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB1);
+ once_value_2 = fra.me.REG[6];
+ register_static_object(&once_value_2);
+ } else fra.me.REG[6] = once_value_2;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1]);
+ if (!once_value_3) {
+ fra.me.REG[6] = BOX_NativeString(";\n");
+ REGB1 = TAG_Int(2);
+ fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB1);
+ once_value_3 = fra.me.REG[6];
+ register_static_object(&once_value_3);
+ } else fra.me.REG[6] = once_value_3;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
+ fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
+ /* native_interface/frontier.nit:589 */
+ REGB1 = CALL_native_interface___ni_metamodel___MMType___uses_nitni_ref(fra.me.REG[0])(fra.me.REG[0]);
+ if (UNTAG_Bool(REGB1)) {
+ /* native_interface/frontier.nit:590 */
+ fra.me.REG[0] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[2])(fra.me.REG[2]);
+ REGB1 = TAG_Int(5);
+ fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
if (!once_value_4) {
- 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_4 = fra.me.REG[6];
+ fra.me.REG[4] = BOX_NativeString("");
+ REGB1 = TAG_Int(0);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB1);
+ once_value_4 = fra.me.REG[4];
register_static_object(&once_value_4);
- } else fra.me.REG[6] = once_value_4;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- /* ./native_interface//frontier.nit:470 */
- fra.me.REG[5] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ } else fra.me.REG[4] = once_value_4;
+ fra.me.REG[4] = fra.me.REG[4];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[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[1]);
if (!once_value_5) {
- 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_5 = fra.me.REG[6];
+ fra.me.REG[4] = BOX_NativeString(" = malloc( sizeof( struct s_");
+ REGB1 = TAG_Int(28);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB1);
+ once_value_5 = fra.me.REG[4];
register_static_object(&once_value_5);
- } else fra.me.REG[6] = once_value_5;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
+ } else fra.me.REG[4] = once_value_5;
+ 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[3]);
if (!once_value_6) {
- fra.me.REG[3] = BOX_NativeString("\n");
- REGB0 = TAG_Int(1);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ fra.me.REG[3] = BOX_NativeString(" ) );\n");
+ REGB1 = TAG_Int(6);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB1);
once_value_6 = fra.me.REG[3];
register_static_object(&once_value_6);
} else fra.me.REG[3] = once_value_6;
fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- /* ./native_interface//frontier.nit:471 */
- fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
+ fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[5]);
+ /* native_interface/frontier.nit:591 */
+ fra.me.REG[5] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[2])(fra.me.REG[2]);
+ REGB1 = TAG_Int(3);
+ fra.me.REG[0] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
if (!once_value_7) {
- fra.me.REG[3] = BOX_NativeString("typedef struct s_");
- REGB0 = TAG_Int(17);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ fra.me.REG[3] = BOX_NativeString("");
+ REGB1 = TAG_Int(0);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB1);
once_value_7 = fra.me.REG[3];
register_static_object(&once_value_7);
} else fra.me.REG[3] = once_value_7;
fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[2]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
if (!once_value_8) {
- fra.me.REG[3] = BOX_NativeString("{\n");
- REGB0 = TAG_Int(2);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ fra.me.REG[3] = BOX_NativeString("->ref.val = NIT_NULL;\n");
+ REGB1 = TAG_Int(22);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB1);
once_value_8 = fra.me.REG[3];
register_static_object(&once_value_8);
} else fra.me.REG[3] = once_value_8;
fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- /* ./native_interface//frontier.nit:472 */
- fra.me.REG[5] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
- if (!once_value_9) {
- fra.me.REG[4] = BOX_NativeString("\tval_t v;\n");
- REGB0 = TAG_Int(10);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_9 = fra.me.REG[4];
- register_static_object(&once_value_9);
- } else fra.me.REG[4] = once_value_9;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- /* ./native_interface//frontier.nit:473 */
- fra.me.REG[4] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_10) {
- fra.me.REG[3] = BOX_NativeString("} ");
- REGB0 = TAG_Int(2);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_10 = fra.me.REG[3];
- register_static_object(&once_value_10);
- } else fra.me.REG[3] = once_value_10;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[2]);
- if (!once_value_11) {
- fra.me.REG[3] = BOX_NativeString(";\n");
- REGB0 = TAG_Int(2);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_11 = fra.me.REG[3];
- register_static_object(&once_value_11);
- } else fra.me.REG[3] = once_value_11;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- /* ./native_interface//frontier.nit:474 */
- fra.me.REG[5] = CALL_native_interface___frontier___FrontierVisitor___header_top(fra.me.REG[1])(fra.me.REG[1]);
- if (!once_value_12) {
- fra.me.REG[4] = BOX_NativeString("#endif\n\n");
- REGB0 = TAG_Int(8);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_12 = fra.me.REG[4];
- register_static_object(&once_value_12);
- } else fra.me.REG[4] = once_value_12;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- /* ./native_interface//frontier.nit:477 */
- REGB0 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[0])(fra.me.REG[0]);
- if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:478 */
- REGB0 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_13) {
- fra.me.REG[5] = BOX_NativeString("null_");
- REGB0 = TAG_Int(5);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_13 = fra.me.REG[5];
- register_static_object(&once_value_13);
- } else fra.me.REG[5] = once_value_13;
- 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_metamodel___static_type___MMType___as_notnull(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[5] = CALL_native_interface___ni_metamodel___MMType___friendly_extern_name(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]);
- if (!once_value_14) {
- 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_14 = fra.me.REG[5];
- register_static_object(&once_value_14);
- } else fra.me.REG[5] = once_value_14;
- 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]);
- /* ./native_interface//frontier.nit:479 */
- REGB0 = TAG_Int(5);
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_15) {
- fra.me.REG[3] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_15 = fra.me.REG[3];
- register_static_object(&once_value_15);
- } else fra.me.REG[3] = once_value_15;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
- fra.me.REG[0] = CALL_metamodel___static_type___MMType___mmmodule(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_standard___string___Object___to_s(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[0]);
- if (!once_value_16) {
- fra.me.REG[0] = BOX_NativeString("_");
- REGB0 = TAG_Int(1);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_16 = fra.me.REG[0];
- register_static_object(&once_value_16);
- } else fra.me.REG[0] = once_value_16;
- 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[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[0] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_17 = fra.me.REG[0];
- register_static_object(&once_value_17);
- } else fra.me.REG[0] = once_value_17;
- 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[0]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- /* ./native_interface//frontier.nit:481 */
- fra.me.REG[0] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(5);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_18) {
- 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_18 = fra.me.REG[6];
- register_static_object(&once_value_18);
- } else fra.me.REG[6] = once_value_18;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- if (!once_value_19) {
- 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_19 = fra.me.REG[6];
- register_static_object(&once_value_19);
- } else fra.me.REG[6] = once_value_19;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
- if (!once_value_20) {
- fra.me.REG[6] = BOX_NativeString("();\n");
- REGB0 = TAG_Int(4);
- 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;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:483 */
- fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
+ fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[0]);
+ /* native_interface/frontier.nit:592 */
+ fra.me.REG[0] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[2])(fra.me.REG[2]);
+ REGB1 = TAG_Int(3);
+ fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
+ if (!once_value_9) {
+ fra.me.REG[3] = BOX_NativeString("");
+ REGB1 = TAG_Int(0);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB1);
+ once_value_9 = fra.me.REG[3];
+ register_static_object(&once_value_9);
+ } else fra.me.REG[3] = once_value_9;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1]);
+ if (!once_value_10) {
+ fra.me.REG[3] = BOX_NativeString("->ref.count = 0;\n");
+ REGB1 = TAG_Int(17);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB1);
+ once_value_10 = fra.me.REG[3];
+ register_static_object(&once_value_10);
+ } else fra.me.REG[3] = once_value_10;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
+ fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[5]);
+ /* native_interface/frontier.nit:593 */
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:594 */
+ fra.me.REG[2] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[2])(fra.me.REG[2]);
REGB0 = TAG_Int(3);
- fra.me.REG[0] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_21) {
- 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;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[6]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]);
- if (!once_value_22) {
- 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_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[0])(fra.me.REG[0], fra.me.REG[6]);
- fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
- /* ./native_interface//frontier.nit:484 */
- fra.me.REG[0] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(5);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_23) {
- 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_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[3])(fra.me.REG[3], fra.me.REG[6]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- if (!once_value_24) {
- fra.me.REG[4] = BOX_NativeString(" ");
- REGB0 = TAG_Int(1);
- 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[3])(fra.me.REG[3], fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
- if (!once_value_25) {
- fra.me.REG[4] = BOX_NativeString("\n");
- REGB0 = TAG_Int(1);
- 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[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:485 */
- fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
- if (!once_value_26) {
- fra.me.REG[0] = BOX_NativeString("#endif\n\n");
- REGB0 = TAG_Int(8);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_26 = fra.me.REG[0];
- register_static_object(&once_value_26);
- } else fra.me.REG[0] = once_value_26;
- fra.me.REG[0] = fra.me.REG[0];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
- /* ./native_interface//frontier.nit:487 */
- fra.me.REG[0] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(5);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_27) {
- 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_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[3])(fra.me.REG[3], fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- if (!once_value_28) {
- fra.me.REG[4] = BOX_NativeString(" ");
- REGB0 = TAG_Int(1);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_28 = fra.me.REG[4];
- register_static_object(&once_value_28);
- } else fra.me.REG[4] = once_value_28;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
- if (!once_value_29) {
- fra.me.REG[5] = BOX_NativeString("()\n");
- REGB0 = TAG_Int(3);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_29 = fra.me.REG[5];
- register_static_object(&once_value_29);
- } else fra.me.REG[5] = once_value_29;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:488 */
- fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
- if (!once_value_30) {
- fra.me.REG[0] = BOX_NativeString("{\n");
- REGB0 = TAG_Int(2);
+ fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_11) {
+ fra.me.REG[0] = BOX_NativeString("nitni_local_ref_add( (struct nitni_ref *)");
+ REGB0 = TAG_Int(41);
fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_30 = fra.me.REG[0];
- register_static_object(&once_value_30);
- } else fra.me.REG[0] = once_value_30;
+ once_value_11 = fra.me.REG[0];
+ register_static_object(&once_value_11);
+ } else fra.me.REG[0] = once_value_11;
fra.me.REG[0] = fra.me.REG[0];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
- /* ./native_interface//frontier.nit:489 */
- fra.me.REG[0] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Int(3);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_31) {
- fra.me.REG[5] = BOX_NativeString("\t");
- REGB0 = TAG_Int(1);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_31 = fra.me.REG[5];
- register_static_object(&once_value_31);
- } else fra.me.REG[5] = once_value_31;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- if (!once_value_32) {
- fra.me.REG[2] = BOX_NativeString(" n;\n");
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1]);
+ if (!once_value_12) {
+ fra.me.REG[1] = BOX_NativeString(" );\n");
REGB0 = TAG_Int(4);
- 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[3])(fra.me.REG[3], fra.me.REG[2]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:490 */
- fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
- if (!once_value_33) {
- fra.me.REG[0] = BOX_NativeString("\tn.v = NIT_NULL;\n");
- REGB0 = TAG_Int(17);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_33 = fra.me.REG[0];
- register_static_object(&once_value_33);
- } else fra.me.REG[0] = once_value_33;
- fra.me.REG[0] = fra.me.REG[0];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
- /* ./native_interface//frontier.nit:491 */
- fra.me.REG[0] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
- if (!once_value_34) {
- fra.me.REG[3] = BOX_NativeString("\treturn n;\n");
- REGB0 = TAG_Int(11);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_34 = fra.me.REG[3];
- register_static_object(&once_value_34);
- } else fra.me.REG[3] = once_value_34;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:492 */
- fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
- if (!once_value_35) {
- fra.me.REG[3] = BOX_NativeString("}\n\n");
- REGB0 = TAG_Int(3);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_35 = fra.me.REG[3];
- register_static_object(&once_value_35);
- } else fra.me.REG[3] = once_value_35;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
+ fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB0);
+ once_value_12 = fra.me.REG[1];
+ register_static_object(&once_value_12);
+ } else fra.me.REG[1] = once_value_12;
+ fra.me.REG[1] = fra.me.REG[1];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1]);
+ fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[5]);
}
}
stack_frame_head = fra.me.prev;
return;
}
+static const char LOCATE_native_interface___frontier___MMType___compile_stub_local_ref[] = "frontier::MMType::compile_stub_local_ref";
+void native_interface___frontier___MMType___compile_stub_local_ref(val_t p0, val_t p1, val_t p2){
+ struct {struct stack_frame_t me; val_t MORE_REG[6];} fra;
+ val_t REGB0;
+ val_t tmp;
+ static val_t once_value_1; /* Once value */
+ static val_t once_value_2; /* Once value */
+ static val_t once_value_3; /* Once value */
+ static val_t once_value_4; /* Once value */
+ static val_t once_value_5; /* Once value */
+ static val_t once_value_6; /* Once value */
+ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+ fra.me.file = LOCATE_native_interface___frontier;
+ fra.me.line = 599;
+ fra.me.meth = LOCATE_native_interface___frontier___MMType___compile_stub_local_ref;
+ fra.me.has_broke = 0;
+ fra.me.REG_size = 7;
+ fra.me.nitni_local_ref_head = NULL;
+ fra.me.REG[0] = NIT_NULL;
+ fra.me.REG[1] = NIT_NULL;
+ fra.me.REG[2] = NIT_NULL;
+ fra.me.REG[3] = NIT_NULL;
+ fra.me.REG[4] = NIT_NULL;
+ fra.me.REG[5] = NIT_NULL;
+ fra.me.REG[6] = NIT_NULL;
+ fra.me.REG[0] = p0;
+ fra.me.REG[1] = p1;
+ fra.me.REG[2] = p2;
+ /* native_interface/frontier.nit:603 */
+ fra.me.REG[3] = CALL_native_interface___ni_metamodel___MMType___friendly_extern_name(fra.me.REG[0])(fra.me.REG[0]);
+ /* native_interface/frontier.nit:604 */
+ fra.me.REG[4] = CALL_native_interface___ni_tools___FunctionCompiler___decls(fra.me.REG[2])(fra.me.REG[2]);
+ REGB0 = TAG_Int(5);
+ fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_1) {
+ 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_1 = fra.me.REG[6];
+ register_static_object(&once_value_1);
+ } else fra.me.REG[6] = once_value_1;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
+ if (!once_value_2) {
+ 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_2 = fra.me.REG[6];
+ register_static_object(&once_value_2);
+ } else fra.me.REG[6] = once_value_2;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1]);
+ if (!once_value_3) {
+ fra.me.REG[6] = BOX_NativeString(";\n");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
+ once_value_3 = fra.me.REG[6];
+ register_static_object(&once_value_3);
+ } else fra.me.REG[6] = once_value_3;
+ fra.me.REG[6] = fra.me.REG[6];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
+ fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
+ /* native_interface/frontier.nit:605 */
+ REGB0 = CALL_native_interface___ni_metamodel___MMType___uses_nitni_ref(fra.me.REG[0])(fra.me.REG[0]);
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:606 */
+ fra.me.REG[2] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[2])(fra.me.REG[2]);
+ REGB0 = TAG_Int(5);
+ fra.me.REG[0] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_4) {
+ 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_4 = fra.me.REG[5];
+ register_static_object(&once_value_4);
+ } else fra.me.REG[5] = once_value_4;
+ fra.me.REG[5] = fra.me.REG[5];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[5]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
+ if (!once_value_5) {
+ fra.me.REG[1] = BOX_NativeString(" = (");
+ REGB0 = TAG_Int(4);
+ fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB0);
+ once_value_5 = fra.me.REG[1];
+ register_static_object(&once_value_5);
+ } else fra.me.REG[1] = once_value_5;
+ fra.me.REG[1] = fra.me.REG[1];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
+ if (!once_value_6) {
+ fra.me.REG[3] = BOX_NativeString(")NULL;\n");
+ REGB0 = TAG_Int(7);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_6 = fra.me.REG[3];
+ register_static_object(&once_value_6);
+ } else fra.me.REG[3] = once_value_6;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
+ fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]);
+ }
+ stack_frame_head = fra.me.prev;
+ return;
+}
+static const char LOCATE_native_interface___frontier___MMExplicitImport___compile_friendly_to_frontier[] = "frontier::MMExplicitImport::compile_friendly_to_frontier";
void native_interface___frontier___MMExplicitImport___compile_friendly_to_frontier(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[10];} fra;
+ struct {struct stack_frame_t me; val_t MORE_REG[7];} fra;
val_t REGB0;
val_t REGB1;
val_t REGB2;
static val_t once_value_10; /* Once value */
static val_t once_value_11; /* Once value */
static val_t once_value_12; /* Once value */
- 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_19; /* Once value */
+ static val_t once_value_20; /* Once value */
+ static val_t once_value_21; /* 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_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_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 */
fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 499;
+ fra.me.line = 612;
fra.me.meth = LOCATE_native_interface___frontier___MMExplicitImport___compile_friendly_to_frontier;
fra.me.has_broke = 0;
- fra.me.REG_size = 11;
+ fra.me.REG_size = 8;
+ fra.me.nitni_local_ref_head = NULL;
fra.me.REG[0] = NIT_NULL;
fra.me.REG[1] = NIT_NULL;
fra.me.REG[2] = NIT_NULL;
fra.me.REG[5] = NIT_NULL;
fra.me.REG[6] = NIT_NULL;
fra.me.REG[7] = NIT_NULL;
- fra.me.REG[8] = NIT_NULL;
- fra.me.REG[9] = NIT_NULL;
- fra.me.REG[10] = NIT_NULL;
fra.me.REG[0] = p0;
fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:502 */
+ /* native_interface/frontier.nit:615 */
fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
REGB0 = TAG_Int(3);
fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
fra.me.REG[4] = fra.me.REG[4];
CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:503 */
+ CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ /* native_interface/frontier.nit:616 */
fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
REGB0 = TAG_Int(3);
fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
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_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- /* ./native_interface//frontier.nit:507 */
+ CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ /* native_interface/frontier.nit:620 */
fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
REGB0 = TAG_Int(3);
fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
fra.me.REG[5] = fra.me.REG[5];
CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:508 */
+ CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ /* native_interface/frontier.nit:621 */
fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___header(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);
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_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- /* ./native_interface//frontier.nit:509 */
+ CALL_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ /* native_interface/frontier.nit:622 */
fra.me.REG[2] = CALL_native_interface___frontier___FrontierVisitor___header(fra.me.REG[1])(fra.me.REG[1]);
if (!once_value_10) {
fra.me.REG[3] = BOX_NativeString("#endif\n");
register_static_object(&once_value_10);
} else fra.me.REG[3] = once_value_10;
fra.me.REG[3] = fra.me.REG[3];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:512 */
+ CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
+ /* native_interface/frontier.nit:625 */
fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
REGB0 = TAG_Int(3);
fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_11) {
- fra.me.REG[4] = BOX_NativeString("/* friendly for ");
- REGB0 = TAG_Int(16);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_11 = fra.me.REG[4];
- register_static_object(&once_value_11);
- } else fra.me.REG[4] = once_value_11;
- 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[4] = CALL_metamodel___abstractmetamodel___MMExplicitImport___method(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(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]);
- if (!once_value_12) {
- fra.me.REG[4] = BOX_NativeString(" */\n");
- REGB0 = TAG_Int(4);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_12 = fra.me.REG[4];
- register_static_object(&once_value_12);
- } else fra.me.REG[4] = once_value_12;
- 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_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- /* ./native_interface//frontier.nit:514 */
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMExplicitImport___method(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMExplicitImport___local_class(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMMethod___frontier_csignature_from(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[4] = NEW_FunctionCompiler_native_interface___ni_tools___FunctionCompiler___init(fra.me.REG[4]);
- /* ./native_interface//frontier.nit:517 */
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___init();
- /* ./native_interface//frontier.nit:520 */
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMExplicitImport___method(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___syntax_base___MMLocalProperty___is_init(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:521 */
- if (!once_value_13) {
- fra.me.REG[2] = BOX_NativeString("recv___nit");
- REGB0 = TAG_Int(10);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_13 = fra.me.REG[2];
- register_static_object(&once_value_13);
- } else fra.me.REG[2] = once_value_13;
- fra.me.REG[2] = fra.me.REG[2];
- /* ./native_interface//frontier.nit:522 */
- fra.me.REG[5] = CALL_native_interface___ni_tools___FunctionCompiler___decls(fra.me.REG[4])(fra.me.REG[4]);
- REGB0 = TAG_Int(3);
- fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_14) {
- fra.me.REG[7] = BOX_NativeString("val_t ");
- REGB0 = TAG_Int(6);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_14 = fra.me.REG[7];
- register_static_object(&once_value_14);
- } else fra.me.REG[7] = once_value_14;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]);
- if (!once_value_15) {
- fra.me.REG[7] = BOX_NativeString(";\n");
- REGB0 = TAG_Int(2);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_15 = fra.me.REG[7];
- register_static_object(&once_value_15);
- } else fra.me.REG[7] = once_value_15;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
- fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
- /* ./native_interface//frontier.nit:523 */
- fra.me.REG[6] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[4])(fra.me.REG[4]);
- REGB0 = TAG_Int(3);
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_16) {
- fra.me.REG[7] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_16 = fra.me.REG[7];
- register_static_object(&once_value_16);
- } else fra.me.REG[7] = once_value_16;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[7]);
- fra.me.REG[7] = CALL_metamodel___static_type___MMExplicitImport___signature(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[7] = CALL_metamodel___static_type___MMSignature___recv(fra.me.REG[7])(fra.me.REG[7]);
- if (!once_value_17) {
- fra.me.REG[8] = BOX_NativeString("recv");
- REGB0 = TAG_Int(4);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
- once_value_17 = fra.me.REG[8];
- register_static_object(&once_value_17);
- } else fra.me.REG[8] = once_value_17;
- fra.me.REG[8] = fra.me.REG[8];
- fra.me.REG[8] = CALL_native_interface___ni_metamodel___MMType___assign_from_friendly(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[2], fra.me.REG[8]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[8]);
- if (!once_value_18) {
- fra.me.REG[8] = BOX_NativeString(";\n");
- REGB0 = TAG_Int(2);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
- once_value_18 = fra.me.REG[8];
- register_static_object(&once_value_18);
- } else fra.me.REG[8] = once_value_18;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[8]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[5]);
- /* ./native_interface//frontier.nit:524 */
+ if (!once_value_11) {
+ fra.me.REG[4] = BOX_NativeString("/* friendly for ");
+ REGB0 = TAG_Int(16);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_11 = fra.me.REG[4];
+ register_static_object(&once_value_11);
+ } else fra.me.REG[4] = once_value_11;
+ 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[4] = CALL_metamodel___abstractmetamodel___MMExplicitImport___method(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(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]);
+ if (!once_value_12) {
+ fra.me.REG[4] = BOX_NativeString(" */\n");
+ REGB0 = TAG_Int(4);
+ fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
+ once_value_12 = fra.me.REG[4];
+ register_static_object(&once_value_12);
+ } else fra.me.REG[4] = once_value_12;
+ 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_compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ /* native_interface/frontier.nit:627 */
+ fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMExplicitImport___method(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[3] = CALL_native_interface___frontier___FrontierVisitor___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
+ fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMExplicitImport___local_class(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[4] = CALL_native_interface___ni_metamodel___MMMethod___frontier_csignature_from(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3], fra.me.REG[4]);
+ fra.me.REG[4] = NEW_FunctionCompiler_native_interface___ni_tools___FunctionCompiler___init(fra.me.REG[4]);
+ /* native_interface/frontier.nit:630 */
+ fra.me.REG[3] = NEW_Array_standard___collection___array___Array___init();
+ /* native_interface/frontier.nit:631 */
+ fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMExplicitImport___method(fra.me.REG[0])(fra.me.REG[0]);
+ REGB0 = CALL_syntax___syntax_base___MMLocalProperty___is_init(fra.me.REG[2])(fra.me.REG[2]);
+ REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
+ if (UNTAG_Bool(REGB0)) {
+ fra.me.REG[2] = CALL_metamodel___static_type___MMExplicitImport___signature(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[2] = CALL_native_interface___frontier___MMSignature___recv_ni_variable(fra.me.REG[2])(fra.me.REG[2]);
CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
}
- /* ./native_interface//frontier.nit:527 */
+ /* native_interface/frontier.nit:632 */
fra.me.REG[2] = CALL_metamodel___static_type___MMExplicitImport___signature(fra.me.REG[0])(fra.me.REG[0]);
fra.me.REG[2] = CALL_metamodel___static_type___MMSignature___params(fra.me.REG[2])(fra.me.REG[2]);
- /* ./../lib/standard//collection//array.nit:269 */
+ CALL_standard___collection___abstract_collection___SimpleCollection___add_all(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
+ /* ../lib/standard/collection/array.nit:266 */
+ fra.me.REG[2] = fra.me.REG[3];
+ /* ../lib/standard/collection/array.nit:269 */
REGB0 = TAG_Int(0);
- /* ./../lib/standard//collection//array.nit:270 */
+ /* ../lib/standard/collection/array.nit:270 */
REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL);
if (UNTAG_Bool(REGB1)) {
} else {
nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 270);
}
REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]);
- /* ./../lib/standard//collection//array.nit:271 */
+ /* ../lib/standard/collection/array.nit:271 */
fra.me.REG[5] = ATTR_standard___collection___array___Array____items(fra.me.REG[2]);
- /* ./../lib/standard//collection//array.nit:272 */
+ /* ../lib/standard/collection/array.nit:272 */
while(1) {
- /* ./../lib/standard//collection//array.nit:24 */
+ /* ../lib/standard/collection/array.nit:24 */
REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL);
if (UNTAG_Bool(REGB1)) {
} else {
} 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 */
+ /* ../lib/standard/collection/array.nit:272 */
if (UNTAG_Bool(REGB1)) {
- /* ./../lib/standard//collection//array.nit:273 */
+ /* ../lib/standard/collection/array.nit:273 */
REGB1 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
if (UNTAG_Bool(REGB1)) {
nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 273);
}
- /* ./../lib/standard//collection//array.nit:718 */
+ /* ../lib/standard/collection/array.nit:718 */
fra.me.REG[6] = ((Nit_NativeArray)fra.me.REG[5])->val[UNTAG_Int(REGB0)];
- /* ./native_interface//frontier.nit:528 */
- REGB1 = TAG_Int(3);
- fra.me.REG[8] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_19) {
- fra.me.REG[7] = BOX_NativeString("");
- REGB1 = TAG_Int(0);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB1);
- once_value_19 = fra.me.REG[7];
- register_static_object(&once_value_19);
- } else fra.me.REG[7] = once_value_19;
- 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[7] = CALL_metamodel___static_type___MMParam___name(fra.me.REG[6])(fra.me.REG[6]);
- fra.me.REG[7] = CALL_standard___string___Object___to_s(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]);
- if (!once_value_20) {
- fra.me.REG[7] = BOX_NativeString("___nit");
- REGB1 = TAG_Int(6);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB1);
- once_value_20 = fra.me.REG[7];
- register_static_object(&once_value_20);
- } else fra.me.REG[7] = once_value_20;
- 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]);
- /* ./native_interface//frontier.nit:529 */
- fra.me.REG[7] = CALL_native_interface___ni_tools___FunctionCompiler___decls(fra.me.REG[4])(fra.me.REG[4]);
- REGB1 = TAG_Int(3);
- fra.me.REG[9] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_21) {
- fra.me.REG[10] = BOX_NativeString("val_t ");
- REGB1 = TAG_Int(6);
- fra.me.REG[10] = NEW_String_standard___string___String___with_native(fra.me.REG[10], REGB1);
- once_value_21 = fra.me.REG[10];
- register_static_object(&once_value_21);
- } else fra.me.REG[10] = once_value_21;
- fra.me.REG[10] = fra.me.REG[10];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[10]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[8]);
- if (!once_value_22) {
- fra.me.REG[10] = BOX_NativeString(";\n");
- REGB1 = TAG_Int(2);
- fra.me.REG[10] = NEW_String_standard___string___String___with_native(fra.me.REG[10], REGB1);
- once_value_22 = fra.me.REG[10];
- register_static_object(&once_value_22);
- } else fra.me.REG[10] = once_value_22;
- fra.me.REG[10] = fra.me.REG[10];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[10]);
- fra.me.REG[9] = CALL_standard___string___Object___to_s(fra.me.REG[9])(fra.me.REG[9]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[9]);
- /* ./native_interface//frontier.nit:530 */
- fra.me.REG[9] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[4])(fra.me.REG[4]);
- REGB1 = TAG_Int(3);
- fra.me.REG[7] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_23) {
- fra.me.REG[10] = BOX_NativeString("");
- REGB1 = TAG_Int(0);
- fra.me.REG[10] = NEW_String_standard___string___String___with_native(fra.me.REG[10], REGB1);
- once_value_23 = fra.me.REG[10];
- register_static_object(&once_value_23);
- } else fra.me.REG[10] = once_value_23;
- fra.me.REG[10] = fra.me.REG[10];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[10]);
- fra.me.REG[10] = CALL_metamodel___static_type___MMParam___mmtype(fra.me.REG[6])(fra.me.REG[6]);
- fra.me.REG[6] = CALL_metamodel___static_type___MMParam___name(fra.me.REG[6])(fra.me.REG[6]);
- fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
- fra.me.REG[6] = CALL_native_interface___ni_metamodel___MMType___assign_from_friendly(fra.me.REG[10])(fra.me.REG[10], fra.me.REG[8], fra.me.REG[6]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[6]);
- if (!once_value_24) {
- fra.me.REG[6] = BOX_NativeString(";\n");
- REGB1 = TAG_Int(2);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB1);
- once_value_24 = fra.me.REG[6];
- register_static_object(&once_value_24);
- } else fra.me.REG[6] = once_value_24;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[6]);
- fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[7])(fra.me.REG[7]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[7]);
- /* ./native_interface//frontier.nit:531 */
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[8]);
- /* ./../lib/standard//collection//array.nit:274 */
+ /* native_interface/frontier.nit:634 */
+ CALL_native_interface___frontier___NiVariable___prepare_for_nit(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[4]);
+ /* ../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 */
+ /* ../lib/standard/collection/array.nit:274 */
REGB0 = REGB1;
} else {
- /* ./../lib/standard//collection//array.nit:272 */
- goto label25;
+ /* ../lib/standard/collection/array.nit:272 */
+ goto label13;
}
}
- label25: while(0);
- /* ./native_interface//frontier.nit:535 */
- fra.me.REG[5] = NIT_NULL;
- /* ./native_interface//frontier.nit:538 */
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMExplicitImport___method(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 538);
- }
- fra.me.REG[2] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
+ label13: while(0);
+ /* native_interface/frontier.nit:637 */
+ fra.me.REG[5] = CALL_metamodel___static_type___MMExplicitImport___signature(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[5] = CALL_native_interface___frontier___MMSignature___return_ni_variable(fra.me.REG[5])(fra.me.REG[5]);
+ /* native_interface/frontier.nit:638 */
+ REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
if (UNTAG_Bool(REGB0)) {
} else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
+ REGB1 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
+ REGB1 = TAG_Bool(0);
REGB0 = REGB1;
} else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
+ REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[5])(fra.me.REG[5], NIT_NULL);
REGB0 = REGB1;
}
}
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:539 */
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMExplicitImport___method(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 539);
- }
- fra.me.REG[2] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[5] = fra.me.REG[2];
- } else {
- /* ./native_interface//frontier.nit:540 */
fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMExplicitImport___method(fra.me.REG[0])(fra.me.REG[0]);
REGB0 = CALL_syntax___syntax_base___MMLocalProperty___is_init(fra.me.REG[2])(fra.me.REG[2]);
- if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:541 */
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMExplicitImport___method(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalProperty___local_class(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[2] = CALL_metamodel___static_type___MMLocalClass___get_type(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[5] = fra.me.REG[2];
- }
+ } else {
+ REGB1 = TAG_Bool(0);
+ REGB0 = REGB1;
}
- /* ./native_interface//frontier.nit:544 */
+ if (UNTAG_Bool(REGB0)) {
+ /* native_interface/frontier.nit:639 */
+ fra.me.REG[2] = CALL_metamodel___static_type___MMExplicitImport___signature(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[2] = CALL_metamodel___static_type___MMSignature___recv(fra.me.REG[2])(fra.me.REG[2]);
+ fra.me.REG[2] = NEW_ReturnVariable_native_interface___frontier___ReturnVariable___init(fra.me.REG[2]);
+ fra.me.REG[5] = fra.me.REG[2];
+ }
+ /* native_interface/frontier.nit:641 */
fra.me.REG[2] = NEW_Buffer_standard___string___Buffer___init();
- /* ./native_interface//frontier.nit:545 */
+ /* native_interface/frontier.nit:642 */
REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
if (UNTAG_Bool(REGB0)) {
} else {
REGB1 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
+ REGB1 = TAG_Bool(0);
REGB0 = REGB1;
} else {
REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[5])(fra.me.REG[5], NIT_NULL);
}
REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:546 */
- fra.me.REG[8] = CALL_native_interface___ni_tools___FunctionCompiler___decls(fra.me.REG[4])(fra.me.REG[4]);
+ /* native_interface/frontier.nit:643 */
+ REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 643);
+ }
+ CALL_native_interface___frontier___NiVariable___prepare_for_c(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
+ /* native_interface/frontier.nit:644 */
REGB0 = TAG_Int(3);
- fra.me.REG[7] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_26) {
- fra.me.REG[9] = BOX_NativeString("");
+ fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_14) {
+ fra.me.REG[7] = BOX_NativeString("");
REGB0 = TAG_Int(0);
- fra.me.REG[9] = NEW_String_standard___string___String___with_native(fra.me.REG[9], REGB0);
- once_value_26 = fra.me.REG[9];
- register_static_object(&once_value_26);
- } else fra.me.REG[9] = once_value_26;
- fra.me.REG[9] = fra.me.REG[9];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[9]);
+ fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
+ once_value_14 = fra.me.REG[7];
+ register_static_object(&once_value_14);
+ } else fra.me.REG[7] = once_value_14;
+ fra.me.REG[7] = fra.me.REG[7];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 546);
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 644);
}
- fra.me.REG[9] = CALL_native_interface___ni_metamodel___MMType___friendly_extern_name(fra.me.REG[5])(fra.me.REG[5]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[9]);
- if (!once_value_27) {
- fra.me.REG[9] = BOX_NativeString(" result___nitni;\n");
- REGB0 = TAG_Int(17);
- fra.me.REG[9] = NEW_String_standard___string___String___with_native(fra.me.REG[9], REGB0);
- once_value_27 = fra.me.REG[9];
- register_static_object(&once_value_27);
- } else fra.me.REG[9] = once_value_27;
- fra.me.REG[9] = fra.me.REG[9];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[9]);
- fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[7])(fra.me.REG[7]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[7]);
- /* ./native_interface//frontier.nit:547 */
- fra.me.REG[7] = CALL_native_interface___ni_tools___FunctionCompiler___decls(fra.me.REG[4])(fra.me.REG[4]);
- if (!once_value_28) {
- fra.me.REG[8] = BOX_NativeString("val_t result___nit;\n");
- REGB0 = TAG_Int(20);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
- once_value_28 = fra.me.REG[8];
- register_static_object(&once_value_28);
- } else fra.me.REG[8] = once_value_28;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- /* ./native_interface//frontier.nit:548 */
- if (!once_value_29) {
- fra.me.REG[8] = BOX_NativeString("result___nit = ");
- REGB0 = TAG_Int(15);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
- once_value_29 = fra.me.REG[8];
- register_static_object(&once_value_29);
- } else fra.me.REG[8] = once_value_29;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[8]);
+ fra.me.REG[7] = CALL_native_interface___frontier___NiVariable___ni_from_name(fra.me.REG[5])(fra.me.REG[5]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
+ if (!once_value_15) {
+ fra.me.REG[7] = BOX_NativeString(" = ");
+ REGB0 = TAG_Int(3);
+ fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
+ once_value_15 = fra.me.REG[7];
+ register_static_object(&once_value_15);
+ } else fra.me.REG[7] = once_value_15;
+ fra.me.REG[7] = fra.me.REG[7];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
+ fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
+ CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]);
}
- /* ./native_interface//frontier.nit:552 */
- fra.me.REG[8] = CALL_metamodel___abstractmetamodel___MMExplicitImport___method(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___syntax_base___MMLocalProperty___is_init(fra.me.REG[8])(fra.me.REG[8]);
+ /* native_interface/frontier.nit:648 */
+ fra.me.REG[6] = CALL_metamodel___abstractmetamodel___MMExplicitImport___method(fra.me.REG[0])(fra.me.REG[0]);
+ REGB0 = CALL_syntax___syntax_base___MMLocalProperty___is_init(fra.me.REG[6])(fra.me.REG[6]);
if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:553 */
+ /* native_interface/frontier.nit:649 */
REGB0 = TAG_Int(5);
- fra.me.REG[8] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_30) {
+ fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_16) {
fra.me.REG[7] = BOX_NativeString("NEW_");
REGB0 = TAG_Int(4);
fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_30 = fra.me.REG[7];
- register_static_object(&once_value_30);
- } else fra.me.REG[7] = once_value_30;
+ once_value_16 = fra.me.REG[7];
+ register_static_object(&once_value_16);
+ } else fra.me.REG[7] = once_value_16;
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]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
fra.me.REG[7] = CALL_metamodel___abstractmetamodel___MMExplicitImport___local_class(fra.me.REG[0])(fra.me.REG[0]);
fra.me.REG[7] = CALL_standard___string___Object___to_s(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]);
- if (!once_value_31) {
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
+ if (!once_value_17) {
fra.me.REG[7] = BOX_NativeString("_");
REGB0 = TAG_Int(1);
fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_31 = fra.me.REG[7];
- register_static_object(&once_value_31);
- } else fra.me.REG[7] = once_value_31;
+ once_value_17 = fra.me.REG[7];
+ register_static_object(&once_value_17);
+ } else fra.me.REG[7] = once_value_17;
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]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
fra.me.REG[7] = CALL_metamodel___abstractmetamodel___MMExplicitImport___method(fra.me.REG[0])(fra.me.REG[0]);
fra.me.REG[7] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[7])(fra.me.REG[7]);
fra.me.REG[7] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___intro(fra.me.REG[7])(fra.me.REG[7]);
fra.me.REG[7] = CALL_compiling___compiling_base___MMLocalProperty___cname(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]);
- if (!once_value_32) {
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
+ if (!once_value_18) {
fra.me.REG[7] = BOX_NativeString("");
REGB0 = TAG_Int(0);
fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_32 = fra.me.REG[7];
- register_static_object(&once_value_32);
- } else fra.me.REG[7] = once_value_32;
+ once_value_18 = fra.me.REG[7];
+ register_static_object(&once_value_18);
+ } else fra.me.REG[7] = once_value_18;
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___collection___abstract_collection___Sequence___append(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[8]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
+ fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
+ CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]);
} else {
- /* ./native_interface//frontier.nit:555 */
- REGB0 = TAG_Int(3);
- fra.me.REG[8] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_33) {
+ /* native_interface/frontier.nit:651 */
+ REGB0 = TAG_Int(5);
+ fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_19) {
fra.me.REG[7] = BOX_NativeString("");
REGB0 = TAG_Int(0);
fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_33 = fra.me.REG[7];
- register_static_object(&once_value_33);
- } else fra.me.REG[7] = once_value_33;
+ once_value_19 = fra.me.REG[7];
+ register_static_object(&once_value_19);
+ } else fra.me.REG[7] = once_value_19;
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[0] = CALL_metamodel___abstractmetamodel___MMExplicitImport___method(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_compiling___compiling_base___MMGlobalProperty___meth_call(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[0]);
- if (!once_value_34) {
- fra.me.REG[0] = BOX_NativeString("( recv___nit )");
- REGB0 = TAG_Int(14);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
+ fra.me.REG[7] = CALL_metamodel___abstractmetamodel___MMExplicitImport___method(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[7] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[7])(fra.me.REG[7]);
+ fra.me.REG[7] = CALL_compiling___compiling_base___MMGlobalProperty___meth_call(fra.me.REG[7])(fra.me.REG[7]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
+ if (!once_value_20) {
+ fra.me.REG[7] = BOX_NativeString("( ");
+ REGB0 = TAG_Int(2);
+ fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
+ once_value_20 = fra.me.REG[7];
+ register_static_object(&once_value_20);
+ } else fra.me.REG[7] = once_value_20;
+ fra.me.REG[7] = fra.me.REG[7];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
+ fra.me.REG[0] = CALL_metamodel___static_type___MMExplicitImport___signature(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[0] = CALL_native_interface___frontier___MMSignature___recv_ni_variable(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[0] = CALL_native_interface___frontier___NiVariable___as_arg_to_nit(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[0]);
+ if (!once_value_21) {
+ fra.me.REG[0] = BOX_NativeString(" )");
+ REGB0 = TAG_Int(2);
fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_34 = fra.me.REG[0];
- register_static_object(&once_value_34);
- } else fra.me.REG[0] = once_value_34;
+ once_value_21 = fra.me.REG[0];
+ register_static_object(&once_value_21);
+ } else fra.me.REG[0] = once_value_21;
fra.me.REG[0] = fra.me.REG[0];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[0]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]);
- CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[8]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], 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___Sequence___append(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]);
+ }
+ /* native_interface/frontier.nit:654 */
+ fra.me.REG[6] = NEW_Array_standard___collection___array___Array___init();
+ /* ../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[3])!=NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 270);
}
- /* ./native_interface//frontier.nit:558 */
+ REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3]);
+ /* ../lib/standard/collection/array.nit:271 */
+ fra.me.REG[0] = ATTR_standard___collection___array___Array____items(fra.me.REG[3]);
+ /* ../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[3])!=NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ } else {
+ nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
+ }
+ REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3]);
+ REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
+ if (UNTAG_Bool(REGB2)) {
+ } else {
+ nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
+ }
+ /* ../lib/standard/kernel.nit:235 */
+ REGB1 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
+ /* ../lib/standard/collection/array.nit:272 */
+ if (UNTAG_Bool(REGB1)) {
+ /* ../lib/standard/collection/array.nit:273 */
+ REGB1 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
+ if (UNTAG_Bool(REGB1)) {
+ nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 273);
+ }
+ /* ../lib/standard/collection/array.nit:718 */
+ fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[0])->val[UNTAG_Int(REGB0)];
+ /* native_interface/frontier.nit:655 */
+ fra.me.REG[7] = CALL_native_interface___frontier___NiVariable___as_arg_to_nit(fra.me.REG[7])(fra.me.REG[7]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
+ /* ../lib/standard/collection/array.nit:274 */
+ REGB1 = TAG_Int(1);
+ /* ../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 label22;
+ }
+ }
+ label22: while(0);
+ /* native_interface/frontier.nit:657 */
REGB0 = TAG_Int(3);
- fra.me.REG[8] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_35) {
- fra.me.REG[0] = BOX_NativeString("( ");
+ fra.me.REG[0] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_23) {
+ fra.me.REG[3] = BOX_NativeString("( ");
REGB0 = TAG_Int(2);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_35 = fra.me.REG[0];
- register_static_object(&once_value_35);
- } else fra.me.REG[0] = once_value_35;
- fra.me.REG[0] = fra.me.REG[0];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[0]);
- if (!once_value_36) {
- fra.me.REG[0] = BOX_NativeString(", ");
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_23 = fra.me.REG[3];
+ register_static_object(&once_value_23);
+ } else fra.me.REG[3] = once_value_23;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
+ if (!once_value_24) {
+ fra.me.REG[3] = BOX_NativeString(", ");
REGB0 = TAG_Int(2);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_36 = fra.me.REG[0];
- register_static_object(&once_value_36);
- } else fra.me.REG[0] = once_value_36;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___string___Collection___join(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[0]);
- if (!once_value_37) {
- fra.me.REG[0] = BOX_NativeString(" );\n");
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_24 = fra.me.REG[3];
+ register_static_object(&once_value_24);
+ } else fra.me.REG[3] = once_value_24;
+ fra.me.REG[3] = fra.me.REG[3];
+ fra.me.REG[3] = CALL_standard___string___Collection___join(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[3]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
+ if (!once_value_25) {
+ fra.me.REG[3] = BOX_NativeString(" );\n");
REGB0 = TAG_Int(4);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_37 = fra.me.REG[0];
- register_static_object(&once_value_37);
- } else fra.me.REG[0] = once_value_37;
- fra.me.REG[0] = fra.me.REG[0];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[0]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]);
- CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[8]);
- /* ./native_interface//frontier.nit:560 */
- fra.me.REG[8] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[4])(fra.me.REG[4]);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_25 = fra.me.REG[3];
+ register_static_object(&once_value_25);
+ } else fra.me.REG[3] = once_value_25;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
+ fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]);
+ /* native_interface/frontier.nit:659 */
+ fra.me.REG[0] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[4])(fra.me.REG[4]);
fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[2]);
- /* ./native_interface//frontier.nit:563 */
+ CALL_compiling_writer___Writer___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
+ /* native_interface/frontier.nit:662 */
REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
if (UNTAG_Bool(REGB0)) {
} else {
REGB1 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
+ REGB1 = TAG_Bool(0);
REGB0 = REGB1;
} else {
REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[5])(fra.me.REG[5], NIT_NULL);
}
REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:564 */
- if (!once_value_38) {
- fra.me.REG[2] = BOX_NativeString("result___nitni");
- REGB0 = TAG_Int(14);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_38 = fra.me.REG[2];
- register_static_object(&once_value_38);
- } else fra.me.REG[2] = once_value_38;
- fra.me.REG[2] = fra.me.REG[2];
- /* ./native_interface//frontier.nit:565 */
- if (!once_value_39) {
- fra.me.REG[8] = BOX_NativeString("result___nit");
- REGB0 = TAG_Int(12);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
- once_value_39 = fra.me.REG[8];
- register_static_object(&once_value_39);
- } else fra.me.REG[8] = once_value_39;
- fra.me.REG[8] = fra.me.REG[8];
- /* ./native_interface//frontier.nit:567 */
- fra.me.REG[0] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[4])(fra.me.REG[4]);
+ /* native_interface/frontier.nit:663 */
+ fra.me.REG[2] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[4])(fra.me.REG[4]);
REGB0 = TAG_Int(3);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_40) {
- fra.me.REG[7] = BOX_NativeString("");
+ fra.me.REG[0] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_26) {
+ fra.me.REG[3] = BOX_NativeString("");
REGB0 = TAG_Int(0);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_40 = fra.me.REG[7];
- register_static_object(&once_value_40);
- } else fra.me.REG[7] = once_value_40;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[7]);
+ fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
+ once_value_26 = fra.me.REG[3];
+ register_static_object(&once_value_26);
+ } else fra.me.REG[3] = once_value_26;
+ fra.me.REG[3] = fra.me.REG[3];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
+ REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 663);
+ }
+ fra.me.REG[3] = CALL_native_interface___frontier___NiVariable___ni_type(fra.me.REG[5])(fra.me.REG[5]);
+ REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 663);
+ }
+ fra.me.REG[6] = CALL_native_interface___frontier___NiVariable___ni_to_name(fra.me.REG[5])(fra.me.REG[5]);
REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 567);
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 663);
}
- fra.me.REG[8] = CALL_native_interface___ni_metamodel___MMType___assign_to_friendly(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[2], fra.me.REG[8]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[8]);
- if (!once_value_41) {
- fra.me.REG[8] = BOX_NativeString(";\n");
+ fra.me.REG[7] = CALL_native_interface___frontier___NiVariable___ni_from_name(fra.me.REG[5])(fra.me.REG[5]);
+ fra.me.REG[7] = CALL_native_interface___ni_metamodel___MMType___assign_to_friendly(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6], fra.me.REG[7]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[7]);
+ if (!once_value_27) {
+ fra.me.REG[7] = BOX_NativeString(";\n");
REGB0 = TAG_Int(2);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
- once_value_41 = fra.me.REG[8];
- register_static_object(&once_value_41);
- } else fra.me.REG[8] = once_value_41;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[8]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
- /* ./native_interface//frontier.nit:568 */
- fra.me.REG[3] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[4])(fra.me.REG[4]);
+ fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
+ once_value_27 = fra.me.REG[7];
+ register_static_object(&once_value_27);
+ } else fra.me.REG[7] = once_value_27;
+ fra.me.REG[7] = fra.me.REG[7];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[7]);
+ fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]);
+ /* native_interface/frontier.nit:664 */
+ fra.me.REG[0] = CALL_native_interface___ni_tools___FunctionCompiler___exprs(fra.me.REG[4])(fra.me.REG[4]);
REGB0 = TAG_Int(3);
- fra.me.REG[0] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_42) {
- fra.me.REG[8] = BOX_NativeString("return ");
+ fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
+ if (!once_value_28) {
+ fra.me.REG[7] = BOX_NativeString("return ");
REGB0 = TAG_Int(7);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
- once_value_42 = fra.me.REG[8];
- register_static_object(&once_value_42);
- } else fra.me.REG[8] = once_value_42;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[8]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
- if (!once_value_43) {
- fra.me.REG[2] = BOX_NativeString(";\n");
+ fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
+ once_value_28 = fra.me.REG[7];
+ register_static_object(&once_value_28);
+ } else fra.me.REG[7] = once_value_28;
+ fra.me.REG[7] = fra.me.REG[7];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[7]);
+ REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 664);
+ }
+ fra.me.REG[5] = CALL_native_interface___frontier___NiVariable___ni_to_name(fra.me.REG[5])(fra.me.REG[5]);
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[5]);
+ if (!once_value_29) {
+ fra.me.REG[5] = BOX_NativeString(";\n");
REGB0 = TAG_Int(2);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_43 = fra.me.REG[2];
- register_static_object(&once_value_43);
- } else fra.me.REG[2] = once_value_43;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
- fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
- CALL_compiling___compiling_writer___Writer___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
+ fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
+ once_value_29 = fra.me.REG[5];
+ register_static_object(&once_value_29);
+ } else fra.me.REG[5] = once_value_29;
+ fra.me.REG[5] = fra.me.REG[5];
+ CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[5]);
+ fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
+ CALL_compiling_writer___Writer___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
}
- /* ./native_interface//frontier.nit:571 */
+ /* native_interface/frontier.nit:667 */
fra.me.REG[1] = CALL_native_interface___frontier___FrontierVisitor___body(fra.me.REG[1])(fra.me.REG[1]);
fra.me.REG[4] = CALL_native_interface___ni_tools___FunctionCompiler___to_writer(fra.me.REG[4])(fra.me.REG[4]);
- CALL_compiling___compiling_writer___Writer___append(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
+ CALL_compiling_writer___Writer___append(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
stack_frame_head = fra.me.prev;
return;
}
+static const char LOCATE_native_interface___frontier___MMExplicitImport___hash[] = "frontier::MMExplicitImport::(hash::Object::hash)";
val_t native_interface___frontier___MMExplicitImport___hash(val_t p0){
struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
val_t REGB0;
val_t tmp;
fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 574;
+ fra.me.line = 670;
fra.me.meth = LOCATE_native_interface___frontier___MMExplicitImport___hash;
fra.me.has_broke = 0;
fra.me.REG_size = 2;
+ fra.me.nitni_local_ref_head = NULL;
fra.me.REG[0] = NIT_NULL;
fra.me.REG[1] = NIT_NULL;
fra.me.REG[0] = p0;
- /* ./native_interface//frontier.nit:576 */
+ /* native_interface/frontier.nit:672 */
fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMExplicitImport___method(fra.me.REG[0])(fra.me.REG[0]);
fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[1])(fra.me.REG[1]);
fra.me.REG[1] = CALL_standard___string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]);
fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMExplicitImport___local_class(fra.me.REG[0])(fra.me.REG[0]);
fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
REGB1 = CALL_standard___hash___Object___hash(fra.me.REG[0])(fra.me.REG[0]);
- /* ./../lib/standard//kernel.nit:235 */
+ /* ../lib/standard/kernel.nit:238 */
REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ./native_interface//frontier.nit:576 */
+ /* native_interface/frontier.nit:672 */
goto label1;
label1: while(0);
stack_frame_head = fra.me.prev;
return REGB1;
}
+static const char LOCATE_native_interface___frontier___MMExplicitImport_____eqeq[] = "frontier::MMExplicitImport::(kernel::Object::==)";
val_t native_interface___frontier___MMExplicitImport_____eqeq(val_t p0, val_t p1){
struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
val_t REGB0;
val_t tmp;
fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
fra.me.file = LOCATE_native_interface___frontier;
- fra.me.line = 578;
+ fra.me.line = 674;
fra.me.meth = LOCATE_native_interface___frontier___MMExplicitImport_____eqeq;
fra.me.has_broke = 0;
fra.me.REG_size = 4;
+ fra.me.nitni_local_ref_head = NULL;
fra.me.REG[0] = NIT_NULL;
fra.me.REG[1] = NIT_NULL;
fra.me.REG[2] = NIT_NULL;
fra.me.REG[3] = NIT_NULL;
fra.me.REG[0] = p0;
fra.me.REG[1] = p1;
- /* ./native_interface//frontier.nit:580 */
+ /* native_interface/frontier.nit:676 */
REGB0 = TAG_Bool((fra.me.REG[1]!=NIT_NULL) && VAL_ISA(fra.me.REG[1], COLOR_metamodel___abstractmetamodel___MMExplicitImport, ID_metamodel___abstractmetamodel___MMExplicitImport)) /*cast MMExplicitImport*/;
if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:581 */
+ /* native_interface/frontier.nit:677 */
fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMExplicitImport___method(fra.me.REG[0])(fra.me.REG[0]);
REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 581);
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 677);
}
fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMExplicitImport___method(fra.me.REG[1])(fra.me.REG[1]);
REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[2],fra.me.REG[3]));
REGB0 = REGB1;
}
} else {
- /* ./native_interface//frontier.nit:580 */
- REGB1 = TAG_Bool(false);
+ /* native_interface/frontier.nit:676 */
+ REGB1 = TAG_Bool(0);
REGB0 = REGB1;
}
if (UNTAG_Bool(REGB0)) {
- /* ./native_interface//frontier.nit:581 */
+ /* native_interface/frontier.nit:677 */
fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMExplicitImport___local_class(fra.me.REG[0])(fra.me.REG[0]);
REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 581);
+ nit_abort("Reciever is null", NULL, LOCATE_native_interface___frontier, 677);
}
fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMExplicitImport___local_class(fra.me.REG[1])(fra.me.REG[1]);
REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[0],fra.me.REG[1]));
REGB0 = REGB1;
}
} else {
- /* ./native_interface//frontier.nit:580 */
- REGB1 = TAG_Bool(false);
+ /* native_interface/frontier.nit:676 */
+ REGB1 = TAG_Bool(0);
REGB0 = REGB1;
}
goto label1;