void OC_global___instantiated_type_analysis___Program___dump_not_instantiated_types_4(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; val_t REGB0; fun_t CREG[1]; val_t tmp; 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_global___instantiated_type_analysis; fra.me.line = 0; fra.me.meth = LOCATE_global___instantiated_type_analysis___Program___dump_not_instantiated_types; 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; /* global/instantiated_type_analysis.nit:40 */ fra.me.REG[1] = CALL_global___instantiated_type_analysis___Program___ita(closctx->REG[0])(closctx->REG[0]); REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL); if (UNTAG_Bool(REGB0)) { nit_abort("Reciever is null", NULL, LOCATE_global___instantiated_type_analysis, 40); } REGB0 = CALL_global___instantiated_type_analysis___InstantiatedTypeAnalysis___is_class_instantiated(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); if (UNTAG_Bool(REGB0)) { /* global/instantiated_type_analysis.nit:41 */ REGB0 = TAG_Int(3); fra.me.REG[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); if (!once_value_5) { 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_5 = fra.me.REG[2]; register_static_object(&once_value_5); } else fra.me.REG[2] = once_value_5; 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_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_6) { fra.me.REG[0] = BOX_NativeString("\n"); REGB0 = TAG_Int(1); 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[1])(fra.me.REG[1], fra.me.REG[0]); fra.me.REG[1] = CALL_standard___string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); CALL_standard___stream___OStream___write(closctx->REG[2])(closctx->REG[2], fra.me.REG[1]); } stack_frame_head = fra.me.prev; return; }
void OC_global___reachable_method_analysis___Program___dump_unreachable_methods_5(struct stack_frame_t *closctx, val_t p0){ struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; val_t REGB0; val_t tmp; static val_t once_value_6; /* Once value */ static val_t once_value_7; /* Once value */ /* global/reachable_method_analysis.nit:41 */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_global___reachable_method_analysis; fra.me.line = 41; fra.me.meth = LOCATE_global___reachable_method_analysis___Program___dump_unreachable_methods; 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; /* global/reachable_method_analysis.nit:42 */ fra.me.REG[1] = CALL_global___reachable_method_analysis___Program___rma(closctx->REG[0])(closctx->REG[0]); REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL); if (UNTAG_Bool(REGB0)) { nit_abort("Reciever is null", NULL, LOCATE_global___reachable_method_analysis, 42); } REGB0 = CALL_global___reachable_method_analysis___ReachableMethodAnalysis___is_method_reachable(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); if (UNTAG_Bool(REGB0)) { /* global/reachable_method_analysis.nit:43 */ REGB0 = TAG_Int(3); fra.me.REG[1] = 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[1])(fra.me.REG[1], fra.me.REG[2]); fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(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_7) { fra.me.REG[0] = BOX_NativeString("\n"); REGB0 = TAG_Int(1); fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0); once_value_7 = fra.me.REG[0]; register_static_object(&once_value_7); } else fra.me.REG[0] = once_value_7; fra.me.REG[0] = fra.me.REG[0]; CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); fra.me.REG[1] = CALL_standard___string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); CALL_standard___stream___OStream___write(closctx->REG[3])(closctx->REG[3], fra.me.REG[1]); } stack_frame_head = fra.me.prev; return; }
void syntax___SrcModuleLoader___process_metamodel(val_t p0, val_t p1, val_t p2){ 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_syntax; fra.me.line = 60; fra.me.meth = LOCATE_syntax___SrcModuleLoader___process_metamodel; fra.me.has_broke = 0; fra.me.REG_size = 4; 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; fra.me.REG[2] = p2; /* ./syntax//syntax.nit:62 */ CALL_syntax___MMSrcModule___process_supermodules(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); /* ./syntax//syntax.nit:63 */ REGB0 = TAG_Int(3); fra.me.REG[0] = NEW_Array_array___Array___with_capacity(REGB0); if (!once_value_1) { fra.me.REG[3] = BOX_NativeString("Syntax analysis for module: "); REGB0 = TAG_Int(28); fra.me.REG[3] = NEW_String_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_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); fra.me.REG[3] = CALL_abstractmetamodel___MMModule___name(fra.me.REG[2])(fra.me.REG[2]); fra.me.REG[3] = CALL_string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]); CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); if (!once_value_2) { fra.me.REG[3] = BOX_NativeString(""); REGB0 = TAG_Int(0); fra.me.REG[3] = NEW_String_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_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); fra.me.REG[0] = CALL_string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); REGB0 = TAG_Int(2); CALL_mmloader___ToolContext___info(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], REGB0); /* ./syntax//syntax.nit:64 */ CALL_syntax___MMSrcModule___process_syntax(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); stack_frame_head = fra.me.prev; return; }
val_t syntax___SrcModuleLoader___file_type(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_syntax; fra.me.line = 31; fra.me.meth = LOCATE_syntax___SrcModuleLoader___file_type; fra.me.has_broke = 0; fra.me.REG_size = 1; fra.me.REG[0] = NIT_NULL; fra.me.REG[0] = p0; /* ./syntax//syntax.nit:31 */ if (!once_value_1) { fra.me.REG[0] = BOX_NativeString("nit"); REGB0 = TAG_Int(3); fra.me.REG[0] = NEW_String_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]; }
void OC_abstracttool___MMModule___dump_module_info_8(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; val_t REGB0; fun_t CREG[1]; val_t tmp; static val_t once_value_9; /* Once value */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_abstracttool; fra.me.line = 0; fra.me.meth = LOCATE_abstracttool___MMModule___dump_module_info; 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; /* ./abstracttool.nit:108 */ CALL_abstracttool___MMLocalClass___dump_properties(fra.me.REG[0])(fra.me.REG[0], closctx->REG[1]); /* ./abstracttool.nit:109 */ if (!once_value_9) { fra.me.REG[0] = BOX_NativeString("\n"); REGB0 = TAG_Int(1); fra.me.REG[0] = NEW_String_string___String___with_native(fra.me.REG[0], REGB0); once_value_9 = fra.me.REG[0]; register_static_object(&once_value_9); } else fra.me.REG[0] = once_value_9; fra.me.REG[0] = fra.me.REG[0]; CALL_stream___OStream___write(closctx->REG[1])(closctx->REG[1], fra.me.REG[0]); stack_frame_head = fra.me.prev; return; }
val_t nit_version___Object___nit_version(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_nit_version; fra.me.line = 3; fra.me.meth = LOCATE_nit_version___Object___nit_version; 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; /* nit_version.nit:3 */ if (!once_value_1) { fra.me.REG[0] = BOX_NativeString("v0.5-590-g649111c_nc3_dirty"); REGB0 = TAG_Int(27); 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]; }
void OC_global___instantiated_type_analysis___Program___dump_instantiated_types_4(struct stack_frame_t *closctx, val_t p0){ struct {struct stack_frame_t me; val_t MORE_REG[2];} fra; val_t REGB0; val_t tmp; static val_t once_value_5; /* Once value */ static val_t once_value_6; /* Once value */ /* global/instantiated_type_analysis.nit:29 */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_global___instantiated_type_analysis; fra.me.line = 29; fra.me.meth = LOCATE_global___instantiated_type_analysis___Program___dump_instantiated_types; 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; /* global/instantiated_type_analysis.nit:30 */ REGB0 = TAG_Int(3); fra.me.REG[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); if (!once_value_5) { 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_5 = fra.me.REG[2]; register_static_object(&once_value_5); } else fra.me.REG[2] = once_value_5; 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_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_6) { fra.me.REG[0] = BOX_NativeString("\n"); REGB0 = TAG_Int(1); 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[1])(fra.me.REG[1], fra.me.REG[0]); fra.me.REG[1] = CALL_standard___string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); CALL_standard___stream___OStream___write(closctx->REG[2])(closctx->REG[2], fra.me.REG[1]); stack_frame_head = fra.me.prev; return; }
val_t ffi___c___ExternCode___is_c_header(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 */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_ffi___c; fra.me.line = 30; fra.me.meth = LOCATE_ffi___c___ExternCode___is_c_header; 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; /* ffi/c.nit:30 */ fra.me.REG[0] = CALL_ffi___ffi_base___ExternCode___language_lowered(fra.me.REG[0])(fra.me.REG[0]); if (!once_value_1) { fra.me.REG[1] = BOX_NativeString("c header"); REGB0 = TAG_Int(8); fra.me.REG[1] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[1])(fra.me.REG[1], REGB0); once_value_1 = fra.me.REG[1]; register_static_object(&once_value_1); } else fra.me.REG[1] = once_value_1; fra.me.REG[1] = fra.me.REG[1]; REGB0 = TAG_Bool(IS_EQUAL_ON(fra.me.REG[1],fra.me.REG[0])); if (UNTAG_Bool(REGB0)) { } else { 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], fra.me.REG[1]); REGB0 = REGB1; } } goto label2; label2: while(0); stack_frame_head = fra.me.prev; return REGB0; }
val_t symbol___String___to_symbol(val_t p0){ 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 */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_symbol; fra.me.line = 18; fra.me.meth = LOCATE_symbol___String___to_symbol; 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; /* ../lib/symbol.nit:21 */ if (!once_value_1) { fra.me.REG[1] = NEW_HashMap_standard___collection___hash_collection___HashMap___init(); once_value_1 = fra.me.REG[1]; register_static_object(&once_value_1); } else fra.me.REG[1] = once_value_1; fra.me.REG[1] = fra.me.REG[1]; /* ../lib/symbol.nit:22 */ REGB0 = CALL_standard___collection___abstract_collection___MapRead___has_key(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); if (UNTAG_Bool(REGB0)) { /* ../lib/symbol.nit:23 */ fra.me.REG[2] = CALL_standard___collection___abstract_collection___MapRead_____bra(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); goto label2; } else { /* ../lib/symbol.nit:25 */ fra.me.REG[3] = NEW_Symbol_symbol___Symbol___init(fra.me.REG[0]); /* ../lib/symbol.nit:26 */ CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[3]); /* ../lib/symbol.nit:27 */ fra.me.REG[2] = fra.me.REG[3]; goto label2; } label2: while(0); stack_frame_head = fra.me.prev; return fra.me.REG[2]; }
void OC_syntax___extern_type_inheritance___MMLocalClass___extern_type_10(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){ struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; val_t REGB0; fun_t CREG[1]; val_t tmp; static val_t once_value_11; /* Once value */ static val_t once_value_12; /* Once value */ static val_t once_value_13; /* Once value */ /* syntax/extern_type_inheritance.nit:73 */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_syntax___extern_type_inheritance; fra.me.line = 0; fra.me.meth = LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type; 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.closure_ctx = closctx_param; fra.me.closure_funs = CREG; fra.me.REG[0] = p0; CREG[0] = clos_fun0; fra.me.REG[1] = CALL_standard___file___Object___stderr(closctx->REG[0])(closctx->REG[0]); REGB0 = TAG_Int(5); fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); if (!once_value_11) { 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_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[3] = CALL_syntax___extern_inline___MMLocalClass___extern_type(fra.me.REG[0])(fra.me.REG[0]); REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL); if (UNTAG_Bool(REGB0)) { nit_abort("Reciever is null", NULL, LOCATE_syntax___extern_type_inheritance, 73); } fra.me.REG[3] = CALL_syntax___extern_inline___ExternCode___code(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_12) { fra.me.REG[3] = BOX_NativeString(" from "); 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[2])(fra.me.REG[2], 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___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); if (!once_value_13) { fra.me.REG[0] = BOX_NativeString("\n"); REGB0 = TAG_Int(1); fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0); once_value_13 = fra.me.REG[0]; register_static_object(&once_value_13); } else fra.me.REG[0] = once_value_13; 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]); CALL_standard___stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); stack_frame_head = fra.me.prev; return; }
void global___remove_out_of_init_get_test___Program___dump_out_of_init_information(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_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 */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_global___remove_out_of_init_get_test; fra.me.line = 39; fra.me.meth = LOCATE_global___remove_out_of_init_get_test___Program___dump_out_of_init_information; 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; /* global/remove_out_of_init_get_test.nit:41 */ 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(""); 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[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[1] = BOX_NativeString("/"); REGB0 = TAG_Int(1); fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB0); once_value_2 = fra.me.REG[1]; register_static_object(&once_value_2); } else fra.me.REG[1] = once_value_2; 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[1] = CALL_program___Program___main_module(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMModule___name(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]); 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[1] = BOX_NativeString(".out_of_init_opt.log"); REGB0 = TAG_Int(20); fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB0); once_value_3 = fra.me.REG[1]; register_static_object(&once_value_3); } else fra.me.REG[1] = once_value_3; 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[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]); fra.me.REG[2] = NEW_OFStream_standard___file___OFStream___open(fra.me.REG[2]); /* global/remove_out_of_init_get_test.nit:42 */ REGB0 = TAG_Int(0); fra.me.REG[1] = REGB0; CALL_program___Program___with_each_iroutines(fra.me.REG[0])(fra.me.REG[0], (&(fra.me)), ((fun_t)OC_global___remove_out_of_init_get_test___Program___dump_out_of_init_information_4)); /* global/remove_out_of_init_get_test.nit:50 */ 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("Nb. optimized isset: "); REGB0 = TAG_Int(21); 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]); REGB0 = CALL_global___remove_out_of_init_get_test___Program___nb_optimized_isset(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[0] = CALL_standard___string___Object___to_s(REGB0)(REGB0); CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]); if (!once_value_6) { fra.me.REG[0] = BOX_NativeString("\n"); REGB0 = TAG_Int(1); 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[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_standard___stream___OStream___write(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); /* global/remove_out_of_init_get_test.nit:51 */ REGB0 = TAG_Int(3); fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); if (!once_value_7) { fra.me.REG[0] = BOX_NativeString("Nb. not optimized: "); REGB0 = TAG_Int(19); fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0); once_value_7 = fra.me.REG[0]; register_static_object(&once_value_7); } else fra.me.REG[0] = once_value_7; 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[1] = CALL_standard___string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]); if (!once_value_8) { fra.me.REG[1] = BOX_NativeString("\n"); REGB0 = TAG_Int(1); fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB0); once_value_8 = fra.me.REG[1]; register_static_object(&once_value_8); } else fra.me.REG[1] = once_value_8; fra.me.REG[1] = fra.me.REG[1]; CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]); fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]); CALL_standard___stream___OStream___write(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); /* global/remove_out_of_init_get_test.nit:53 */ CALL_standard___stream___IOS___close(fra.me.REG[2])(fra.me.REG[2]); stack_frame_head = fra.me.prev; return; }
val_t standard___environ___String___environ(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_4; /* Once value */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_standard___environ; fra.me.line = 22; fra.me.meth = LOCATE_standard___environ___String___environ; 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; /* ../lib/standard/environ.nit:26 */ fra.me.REG[0] = CALL_standard___string___String___to_cstring(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[0] = CALL_standard___environ___NativeString___get_environ(fra.me.REG[0])(fra.me.REG[0]); /* ../lib/standard/environ.nit:28 */ if (!once_value_1) { if (!once_value_2) { fra.me.REG[1] = BOX_NativeString(""); REGB0 = TAG_Int(0); fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB0); once_value_2 = fra.me.REG[1]; register_static_object(&once_value_2); } else fra.me.REG[1] = once_value_2; fra.me.REG[1] = fra.me.REG[1]; fra.me.REG[1] = CALL_standard___string___String___to_cstring(fra.me.REG[1])(fra.me.REG[1]); fra.me.REG[1] = CALL_standard___environ___NativeString___get_environ(fra.me.REG[1])(fra.me.REG[1]); once_value_1 = fra.me.REG[1]; register_static_object(&once_value_1); } else fra.me.REG[1] = once_value_1; fra.me.REG[1] = fra.me.REG[1]; /* ../lib/standard/environ.nit:29 */ REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[0],fra.me.REG[1])); if (UNTAG_Bool(REGB0)) { } else { REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); REGB0 = REGB1; } REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); if (UNTAG_Bool(REGB0)) { /* ../lib/standard/environ.nit:30 */ fra.me.REG[0] = NEW_String_standard___string___String___from_cstring(fra.me.REG[0]); goto label3; } else { /* ../lib/standard/environ.nit:32 */ if (!once_value_4) { fra.me.REG[1] = BOX_NativeString(""); REGB0 = TAG_Int(0); 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[1] = once_value_4; fra.me.REG[1] = fra.me.REG[1]; fra.me.REG[0] = fra.me.REG[1]; goto label3; } label3: while(0); stack_frame_head = fra.me.prev; return fra.me.REG[0]; }
void OC_abstracttool___MMLocalClass___dump_properties_5(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; val_t REGB0; fun_t CREG[1]; val_t tmp; static val_t once_value_6; /* Once value */ static val_t once_value_7; /* Once value */ static val_t once_value_8; /* Once value */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_abstracttool; fra.me.line = 0; fra.me.meth = LOCATE_abstracttool___MMLocalClass___dump_properties; 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; /* ./abstracttool.nit:125 */ fra.me.REG[0] = CALL_abstractmetamodel___MMLocalClass_____bra(closctx->REG[0])(closctx->REG[0], fra.me.REG[0]); /* ./abstracttool.nit:126 */ REGB0 = TAG_Int(5); fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); if (!once_value_6) { fra.me.REG[2] = BOX_NativeString("\t"); REGB0 = TAG_Int(1); fra.me.REG[2] = NEW_String_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_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); fra.me.REG[2] = CALL_string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); if (!once_value_7) { fra.me.REG[2] = BOX_NativeString(""); REGB0 = TAG_Int(0); fra.me.REG[2] = NEW_String_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_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); fra.me.REG[2] = CALL_static_type___MMLocalClass___get_type(closctx->REG[0])(closctx->REG[0]); fra.me.REG[2] = CALL_static_type___MMLocalProperty___signature_for(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]); fra.me.REG[2] = CALL_string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]); CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); if (!once_value_8) { fra.me.REG[2] = BOX_NativeString("\n"); REGB0 = TAG_Int(1); fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0); once_value_8 = fra.me.REG[2]; register_static_object(&once_value_8); } else fra.me.REG[2] = once_value_8; fra.me.REG[2] = fra.me.REG[2]; CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); CALL_stream___OStream___write(closctx->REG[1])(closctx->REG[1], fra.me.REG[1]); stack_frame_head = fra.me.prev; return; }
val_t utils___Object___cmangle(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 REGB2; 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_utils; fra.me.line = 23; fra.me.meth = LOCATE_utils___Object___cmangle; 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; /* utils.nit:23 */ fra.me.REG[2] = fra.me.REG[0]; REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[1], COLOR_standard___collection___array___Array, ID_standard___collection___array___Array)) /*cast Array[Symbol]*/; if (UNTAG_Bool(REGB0)) { } else { nit_abort("Cast failed", NULL, LOCATE_utils, 23); } /* utils.nit:26 */ if (!once_value_1) { fra.me.REG[2] = CALL_utils___Object___cmangle_table(fra.me.REG[2])(fra.me.REG[2]); 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]; /* utils.nit:27 */ fra.me.REG[0] = NEW_Buffer_standard___string___Buffer___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[1])!=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[1]); /* ../lib/standard/collection/array.nit:271 */ fra.me.REG[3] = ATTR_standard___collection___array___Array____items(fra.me.REG[1]); /* ../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[1])!=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[1]); 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[3]==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[3])->val[UNTAG_Int(REGB0)]; /* utils.nit:29 */ REGB1 = CALL_standard___collection___abstract_collection___Collection___is_empty(fra.me.REG[0])(fra.me.REG[0]); REGB1 = TAG_Bool(!UNTAG_Bool(REGB1)); if (UNTAG_Bool(REGB1)) { /* utils.nit:30 */ REGB1 = TAG_Char('_'); CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], REGB1); /* utils.nit:31 */ REGB1 = TAG_Char('_'); CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], REGB1); /* utils.nit:32 */ REGB1 = TAG_Char('_'); CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], REGB1); } /* utils.nit:34 */ REGB1 = TAG_Bool(0); fra.me.REG[5] = REGB1; /* utils.nit:35 */ REGB1 = TAG_Bool(1); fra.me.REG[6] = REGB1; /* utils.nit:36 */ fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]); CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[4])(fra.me.REG[4], (&(fra.me)), ((fun_t)OC_utils___Object___cmangle_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 label3; } } label3: while(0); /* utils.nit:57 */ fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); goto label4; label4: while(0); stack_frame_head = fra.me.prev; return fra.me.REG[0]; }
val_t ffi___c___ExternCode___is_c_body(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 */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_ffi___c; fra.me.line = 27; fra.me.meth = LOCATE_ffi___c___ExternCode___is_c_body; 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; /* ffi/c.nit:27 */ fra.me.REG[1] = CALL_syntax___extern_inline___ExternCode___language(fra.me.REG[0])(fra.me.REG[0]); 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 { /* ffi/c.nit:28 */ fra.me.REG[1] = CALL_ffi___ffi_base___ExternCode___language_lowered(fra.me.REG[0])(fra.me.REG[0]); if (!once_value_1) { fra.me.REG[2] = BOX_NativeString("c"); REGB1 = TAG_Int(1); fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); 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]; REGB1 = TAG_Bool(IS_EQUAL_ON(fra.me.REG[2],fra.me.REG[1])); 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], fra.me.REG[2]); REGB1 = REGB2; } } /* ffi/c.nit:27 */ REGB0 = REGB1; } if (UNTAG_Bool(REGB0)) { REGB0 = TAG_Bool(1); } else { /* ffi/c.nit:28 */ fra.me.REG[0] = CALL_ffi___ffi_base___ExternCode___language_lowered(fra.me.REG[0])(fra.me.REG[0]); if (!once_value_2) { fra.me.REG[2] = BOX_NativeString("c body"); REGB1 = TAG_Int(6); fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1); 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]; REGB1 = TAG_Bool(IS_EQUAL_ON(fra.me.REG[2],fra.me.REG[0])); if (UNTAG_Bool(REGB1)) { } else { REGB2 = TAG_Bool(fra.me.REG[0]==NIT_NULL); if (UNTAG_Bool(REGB2)) { REGB2 = TAG_Bool(0); REGB1 = REGB2; } else { REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]); REGB1 = REGB2; } } /* ffi/c.nit:27 */ REGB0 = REGB1; } goto label3; label3: while(0); stack_frame_head = fra.me.prev; return REGB0; }
val_t utils___Object___cmangle_table(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 */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_utils; fra.me.line = 60; fra.me.meth = LOCATE_utils___Object___cmangle_table; 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; /* utils.nit:63 */ fra.me.REG[0] = NEW_HashMap_standard___collection___hash_collection___HashMap___init(); /* utils.nit:64 */ REGB0 = TAG_Char('+'); if (!once_value_1) { fra.me.REG[1] = BOX_NativeString("plus"); REGB1 = TAG_Int(4); fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB1); once_value_1 = fra.me.REG[1]; register_static_object(&once_value_1); } else fra.me.REG[1] = once_value_1; fra.me.REG[1] = fra.me.REG[1]; CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]); /* utils.nit:65 */ REGB0 = TAG_Char('-'); if (!once_value_2) { fra.me.REG[1] = BOX_NativeString("minus"); REGB1 = TAG_Int(5); fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB1); once_value_2 = fra.me.REG[1]; register_static_object(&once_value_2); } else fra.me.REG[1] = once_value_2; fra.me.REG[1] = fra.me.REG[1]; CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]); /* utils.nit:66 */ REGB0 = TAG_Char('*'); if (!once_value_3) { fra.me.REG[1] = BOX_NativeString("star"); REGB1 = TAG_Int(4); fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB1); once_value_3 = fra.me.REG[1]; register_static_object(&once_value_3); } else fra.me.REG[1] = once_value_3; fra.me.REG[1] = fra.me.REG[1]; CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]); /* utils.nit:67 */ REGB0 = TAG_Char('/'); if (!once_value_4) { fra.me.REG[1] = BOX_NativeString("slash"); REGB1 = TAG_Int(5); fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB1); once_value_4 = fra.me.REG[1]; 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___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]); /* utils.nit:68 */ REGB0 = TAG_Char('%'); if (!once_value_5) { fra.me.REG[1] = BOX_NativeString("percent"); REGB1 = TAG_Int(7); fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB1); 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___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]); /* utils.nit:69 */ REGB0 = TAG_Char('['); if (!once_value_6) { fra.me.REG[1] = BOX_NativeString("bra"); REGB1 = TAG_Int(3); fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB1); once_value_6 = fra.me.REG[1]; register_static_object(&once_value_6); } else fra.me.REG[1] = once_value_6; fra.me.REG[1] = fra.me.REG[1]; CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]); /* utils.nit:70 */ REGB0 = TAG_Char('='); if (!once_value_7) { fra.me.REG[1] = BOX_NativeString("eq"); REGB1 = TAG_Int(2); fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB1); once_value_7 = fra.me.REG[1]; register_static_object(&once_value_7); } else fra.me.REG[1] = once_value_7; fra.me.REG[1] = fra.me.REG[1]; CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]); /* utils.nit:71 */ REGB0 = TAG_Char('<'); if (!once_value_8) { fra.me.REG[1] = BOX_NativeString("l"); REGB1 = TAG_Int(1); fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB1); once_value_8 = fra.me.REG[1]; register_static_object(&once_value_8); } else fra.me.REG[1] = once_value_8; fra.me.REG[1] = fra.me.REG[1]; CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]); /* utils.nit:72 */ REGB0 = TAG_Char('>'); if (!once_value_9) { fra.me.REG[1] = BOX_NativeString("g"); REGB1 = TAG_Int(1); fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB1); once_value_9 = fra.me.REG[1]; register_static_object(&once_value_9); } else fra.me.REG[1] = once_value_9; fra.me.REG[1] = fra.me.REG[1]; CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]); /* utils.nit:73 */ REGB0 = TAG_Char('!'); if (!once_value_10) { fra.me.REG[1] = BOX_NativeString("n"); REGB1 = TAG_Int(1); fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB1); once_value_10 = fra.me.REG[1]; register_static_object(&once_value_10); } else fra.me.REG[1] = once_value_10; fra.me.REG[1] = fra.me.REG[1]; CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]); /* utils.nit:74 */ REGB0 = TAG_Char('_'); if (!once_value_11) { fra.me.REG[1] = BOX_NativeString("u"); REGB1 = TAG_Int(1); fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB1); once_value_11 = fra.me.REG[1]; register_static_object(&once_value_11); } else fra.me.REG[1] = once_value_11; fra.me.REG[1] = fra.me.REG[1]; CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]); /* utils.nit:75 */ REGB0 = TAG_Char('@'); if (!once_value_12) { fra.me.REG[1] = BOX_NativeString("at"); REGB1 = TAG_Int(2); fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB1); 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___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]); /* utils.nit:76 */ goto label13; label13: while(0); stack_frame_head = fra.me.prev; return fra.me.REG[0]; }
void abstracttool___AbstractCompiler___dump_context_info(val_t p0){ struct {struct stack_frame_t me; val_t MORE_REG[4];} 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 */ static val_t once_value_8; /* Once value */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_abstracttool; fra.me.line = 79; fra.me.meth = LOCATE_abstracttool___AbstractCompiler___dump_context_info; fra.me.has_broke = 0; fra.me.REG_size = 5; 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; /* ./abstracttool.nit:81 */ fra.me.REG[1] = CALL_abstractmetamodel___MMContext___module_hierarchy(fra.me.REG[0])(fra.me.REG[0]); CALL_abstract_collection___Collection___iterate(fra.me.REG[1])(fra.me.REG[1], (&(fra.me)), ((fun_t)OC_abstracttool___AbstractCompiler___dump_context_info_1)); /* ./abstracttool.nit:84 */ fra.me.REG[1] = NEW_Array_array___Array___init(); /* ./abstracttool.nit:85 */ fra.me.REG[2] = CALL_abstractmetamodel___MMContext___module_hierarchy(fra.me.REG[0])(fra.me.REG[0]); CALL_abstract_collection___SimpleCollection___add_all(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); /* ./abstracttool.nit:86 */ fra.me.REG[2] = CALL_abstractmetamodel___MMContext___module_hierarchy(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[1] = CALL_partial_order___PartialOrder___select_smallests(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(1); fra.me.REG[2] = NEW_String_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]; fra.me.REG[2] = CALL_string___Collection___join(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); /* ./abstracttool.nit:88 */ REGB0 = TAG_Int(5); fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); if (!once_value_3) { fra.me.REG[3] = BOX_NativeString(""); REGB0 = TAG_Int(0); fra.me.REG[3] = NEW_String_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_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); fra.me.REG[3] = CALL_mmloader___ToolContext___log_directory(fra.me.REG[0])(fra.me.REG[0]); CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); if (!once_value_4) { fra.me.REG[3] = BOX_NativeString("/"); REGB0 = TAG_Int(1); fra.me.REG[3] = NEW_String_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_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); if (!once_value_5) { fra.me.REG[3] = BOX_NativeString(".full_class_hierarchy.new.dot"); REGB0 = TAG_Int(29); fra.me.REG[3] = NEW_String_string___String___with_native(fra.me.REG[3], REGB0); once_value_5 = fra.me.REG[3]; register_static_object(&once_value_5); } else fra.me.REG[3] = once_value_5; fra.me.REG[3] = fra.me.REG[3]; CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); fra.me.REG[1] = NEW_OFStream_file___OFStream___open(fra.me.REG[1]); /* ./abstracttool.nit:89 */ fra.me.REG[3] = CALL_abstractmetamodel___MMContext___class_hierarchy(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[3] = CALL_partial_order___PartialOrder___to_dot(fra.me.REG[3])(fra.me.REG[3]); CALL_stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); /* ./abstracttool.nit:90 */ CALL_stream___IOS___close(fra.me.REG[1])(fra.me.REG[1]); /* ./abstracttool.nit:92 */ REGB0 = TAG_Int(5); fra.me.REG[3] = NEW_Array_array___Array___with_capacity(REGB0); if (!once_value_6) { fra.me.REG[4] = BOX_NativeString(""); REGB0 = TAG_Int(0); fra.me.REG[4] = NEW_String_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_abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); fra.me.REG[4] = CALL_mmloader___ToolContext___log_directory(fra.me.REG[0])(fra.me.REG[0]); CALL_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("/"); REGB0 = TAG_Int(1); fra.me.REG[4] = NEW_String_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_abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); CALL_abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]); if (!once_value_8) { fra.me.REG[2] = BOX_NativeString(".module_hierarchy.new.dot"); REGB0 = TAG_Int(25); fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0); once_value_8 = fra.me.REG[2]; register_static_object(&once_value_8); } else fra.me.REG[2] = once_value_8; fra.me.REG[2] = fra.me.REG[2]; CALL_abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]); fra.me.REG[3] = CALL_string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]); fra.me.REG[3] = NEW_OFStream_file___OFStream___open(fra.me.REG[3]); fra.me.REG[1] = fra.me.REG[3]; /* ./abstracttool.nit:93 */ fra.me.REG[0] = CALL_abstractmetamodel___MMContext___module_hierarchy(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[0] = CALL_partial_order___PartialOrder___to_dot(fra.me.REG[0])(fra.me.REG[0]); CALL_stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); /* ./abstracttool.nit:94 */ CALL_stream___IOS___close(fra.me.REG[1])(fra.me.REG[1]); stack_frame_head = fra.me.prev; return; }
void OC_global___reachable_as_init___Program___dump_reachable_as_init_methods_5(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; val_t REGB0; fun_t CREG[1]; val_t tmp; static val_t once_value_7; /* Once value */ static val_t once_value_8; /* Once value */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_global___reachable_as_init; fra.me.line = 0; fra.me.meth = LOCATE_global___reachable_as_init___Program___dump_reachable_as_init_methods; 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; /* global/reachable_as_init.nit:32 */ fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMLocalClass_____bra(closctx->REG[1])(closctx->REG[1], fra.me.REG[0]); /* global/reachable_as_init.nit:33 */ fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[0])(fra.me.REG[0]); REGB0 = CALL_metamodel___abstractmetamodel___MMGlobalProperty___is_init_for(fra.me.REG[1])(fra.me.REG[1], closctx->REG[1]); REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); if (UNTAG_Bool(REGB0)) { goto label6; } /* global/reachable_as_init.nit:34 */ REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[0], COLOR_metamodel___abstractmetamodel___MMMethod, ID_metamodel___abstractmetamodel___MMMethod)) /*cast MMMethod*/; if (UNTAG_Bool(REGB0)) { } else { nit_abort("Assert failed", NULL, LOCATE_global___reachable_as_init, 34); } /* global/reachable_as_init.nit:35 */ fra.me.REG[1] = CALL_global___reachable_as_init___Program___rai(closctx->REG[0])(closctx->REG[0]); REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL); if (UNTAG_Bool(REGB0)) { nit_abort("Reciever is null", NULL, LOCATE_global___reachable_as_init, 35); } REGB0 = CALL_global___reachable_as_init___ReachableAsInitAnalysis___is_method_reachable_as_init(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], closctx->REG[1]); if (UNTAG_Bool(REGB0)) { /* global/reachable_as_init.nit:36 */ REGB0 = TAG_Int(3); fra.me.REG[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); if (!once_value_7) { 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_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[1])(fra.me.REG[1], fra.me.REG[2]); fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(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_8) { fra.me.REG[0] = BOX_NativeString("\n"); REGB0 = TAG_Int(1); 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(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]); fra.me.REG[1] = CALL_standard___string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); CALL_standard___stream___OStream___write(closctx->REG[2])(closctx->REG[2], fra.me.REG[1]); } label6: while(0); stack_frame_head = fra.me.prev; return; }
void ffi___ffi_base___MMMethod___accept_ffi_visitor(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 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 */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_ffi___ffi_base; fra.me.line = 55; fra.me.meth = LOCATE_ffi___ffi_base___MMMethod___accept_ffi_visitor; 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; /* ffi/ffi_base.nit:59 */ fra.me.REG[2] = CALL_syntax___extern_inline___MMMethod___extern_implementation(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[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)) { /* ffi/ffi_base.nit:60 */ fra.me.REG[2] = CALL_syntax___extern_inline___MMMethod___extern_implementation(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_ffi___ffi_base, 60); } fra.me.REG[2] = CALL_syntax___extern_inline___ExternCode___language(fra.me.REG[2])(fra.me.REG[2]); /* ffi/ffi_base.nit:61 */ 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; } } REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); if (UNTAG_Bool(REGB0)) { /* ffi/ffi_base.nit:62 */ fra.me.REG[3] = CALL_ffi___ffi_base___FFIVisitor___tc(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_1) { fra.me.REG[5] = BOX_NativeString("language \""); REGB0 = TAG_Int(10); fra.me.REG[5] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[5])(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("\" used to implement "); REGB0 = TAG_Int(20); fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(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[2] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_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[2]); if (!once_value_3) { fra.me.REG[2] = BOX_NativeString(" is unknown."); REGB0 = TAG_Int(12); fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(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[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_toolcontext___ToolContext___warning(fra.me.REG[3])(fra.me.REG[3], NIT_NULL, fra.me.REG[4]); } else { /* ffi/ffi_base.nit:64 */ fra.me.REG[1] = CALL_ffi___ffi_base___FFIVisitor___tc(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_4) { fra.me.REG[3] = BOX_NativeString("please specify a language to implement "); REGB0 = TAG_Int(39); fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(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[4])(fra.me.REG[4], fra.me.REG[3]); fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_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_5) { fra.me.REG[0] = BOX_NativeString("."); REGB0 = TAG_Int(1); fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(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[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]); CALL_toolcontext___ToolContext___warning(fra.me.REG[1])(fra.me.REG[1], NIT_NULL, fra.me.REG[4]); } } stack_frame_head = fra.me.prev; return; }
void global___instantiated_type_analysis___Program___dump_instantiated_types(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 */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_global___instantiated_type_analysis; fra.me.line = 26; fra.me.meth = LOCATE_global___instantiated_type_analysis___Program___dump_instantiated_types; 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; /* global/instantiated_type_analysis.nit:28 */ 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(""); 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[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[1] = BOX_NativeString("/"); REGB0 = TAG_Int(1); fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB0); once_value_2 = fra.me.REG[1]; register_static_object(&once_value_2); } else fra.me.REG[1] = once_value_2; 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[1] = CALL_program___Program___main_module(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMModule___name(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]); 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[1] = BOX_NativeString(".instantiated_types.log"); REGB0 = TAG_Int(23); fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB0); once_value_3 = fra.me.REG[1]; register_static_object(&once_value_3); } else fra.me.REG[1] = once_value_3; 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[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]); fra.me.REG[2] = NEW_OFStream_standard___file___OFStream___open(fra.me.REG[2]); CALL_program___Program___with_each_live_local_classes(fra.me.REG[0])(fra.me.REG[0], (&(fra.me)), ((fun_t)OC_global___instantiated_type_analysis___Program___dump_instantiated_types_4)); /* global/instantiated_type_analysis.nit:32 */ CALL_standard___stream___IOS___close(fra.me.REG[2])(fra.me.REG[2]); stack_frame_head = fra.me.prev; return; }
val_t syntax___extern_type_inheritance___MMLocalClass___extern_type(val_t p0){ struct {struct stack_frame_t me; val_t MORE_REG[6];} fra; val_t REGB0; val_t REGB1; val_t REGB2; 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_7; /* Once value */ static val_t once_value_8; /* Once value */ static val_t once_value_9; /* Once value */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_syntax___extern_type_inheritance; fra.me.line = 41; fra.me.meth = LOCATE_syntax___extern_type_inheritance___MMLocalClass___extern_type; 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; /* syntax/extern_type_inheritance.nit:43 */ 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]); if (UNTAG_Bool(REGB0)) { } else { nit_abort("Assert failed", NULL, LOCATE_syntax___extern_type_inheritance, 43); } /* syntax/extern_type_inheritance.nit:45 */ fra.me.REG[1] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(fra.me.REG[0])(fra.me.REG[0]); 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; } } REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); if (UNTAG_Bool(REGB0)) { fra.me.REG[1] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(fra.me.REG[0])(fra.me.REG[0]); goto label1; } /* syntax/extern_type_inheritance.nit:47 */ fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMGlobalClass___intro(fra.me.REG[2])(fra.me.REG[2]); REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[2],fra.me.REG[0])); if (UNTAG_Bool(REGB0)) { } else { REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]); REGB0 = REGB1; } REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); if (UNTAG_Bool(REGB0)) { /* syntax/extern_type_inheritance.nit:48 */ fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMGlobalClass___intro(fra.me.REG[2])(fra.me.REG[2]); fra.me.REG[2] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(fra.me.REG[2])(fra.me.REG[2]); 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; } } REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); if (UNTAG_Bool(REGB0)) { /* syntax/extern_type_inheritance.nit:49 */ fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMGlobalClass___intro(fra.me.REG[2])(fra.me.REG[2]); fra.me.REG[2] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(fra.me.REG[2])(fra.me.REG[2]); CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache__eq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]); /* syntax/extern_type_inheritance.nit:50 */ CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache__eq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[0]); /* syntax/extern_type_inheritance.nit:51 */ fra.me.REG[2] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[1] = fra.me.REG[2]; goto label1; } } /* syntax/extern_type_inheritance.nit:55 */ fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___name(fra.me.REG[0])(fra.me.REG[0]); if (!once_value_2) { if (!once_value_3) { fra.me.REG[3] = BOX_NativeString("Pointer"); REGB0 = TAG_Int(7); 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]; fra.me.REG[3] = CALL_symbol___String___to_symbol(fra.me.REG[3])(fra.me.REG[3]); 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]; 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; } if (UNTAG_Bool(REGB0)) { /* syntax/extern_type_inheritance.nit:56 */ if (!once_value_4) { fra.me.REG[3] = BOX_NativeString("C"); REGB0 = TAG_Int(1); 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]; if (!once_value_5) { fra.me.REG[2] = BOX_NativeString("void*"); REGB0 = TAG_Int(5); fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0); once_value_5 = fra.me.REG[2]; register_static_object(&once_value_5); } else fra.me.REG[2] = once_value_5; fra.me.REG[2] = fra.me.REG[2]; fra.me.REG[2] = NEW_ExternCode_syntax___extern_inline___ExternCode___init(fra.me.REG[3], fra.me.REG[2], NIT_NULL); CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache__eq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]); /* syntax/extern_type_inheritance.nit:57 */ CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache__eq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[0]); /* syntax/extern_type_inheritance.nit:58 */ fra.me.REG[2] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[1] = fra.me.REG[2]; goto label1; } /* syntax/extern_type_inheritance.nit:62 */ fra.me.REG[2] = NEW_HashSet_standard___collection___hash_collection___HashSet___init(); /* syntax/extern_type_inheritance.nit:63 */ fra.me.REG[3] = fra.me.REG[0]; /* syntax/extern_type_inheritance.nit:64 */ fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalClass___cshe(fra.me.REG[3])(fra.me.REG[3]); fra.me.REG[3] = CALL_metamodel___partial_order___PartialOrderElement___direct_greaters(fra.me.REG[3])(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[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*/; 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[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[5] = ((Nit_NativeArray)fra.me.REG[4])->val[UNTAG_Int(REGB0)]; /* syntax/extern_type_inheritance.nit:65 */ fra.me.REG[6] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[5])(fra.me.REG[5]); REGB1 = CALL_metamodel___abstractmetamodel___MMGlobalClass___is_extern(fra.me.REG[6])(fra.me.REG[6]); if (UNTAG_Bool(REGB1)) { /* syntax/extern_type_inheritance.nit:66 */ fra.me.REG[5] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin(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]); } /* ../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 label6; } } label6: while(0); /* syntax/extern_type_inheritance.nit:71 */ REGB0 = CALL_standard___collection___abstract_collection___Collection___length(fra.me.REG[2])(fra.me.REG[2]); REGB1 = TAG_Int(1); 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:237 */ REGB1 = TAG_Bool(UNTAG_Int(REGB0)>UNTAG_Int(REGB1)); /* syntax/extern_type_inheritance.nit:71 */ if (UNTAG_Bool(REGB1)) { /* syntax/extern_type_inheritance.nit:72 */ fra.me.REG[4] = CALL_standard___file___Object___stderr(fra.me.REG[0])(fra.me.REG[0]); REGB1 = TAG_Int(5); fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1); if (!once_value_7) { fra.me.REG[5] = BOX_NativeString("Error: Extern class "); REGB1 = TAG_Int(20); fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB1); 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]; 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___abstractmetamodel___MMLocalClass___mmmodule(fra.me.REG[0])(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___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]); if (!once_value_8) { fra.me.REG[5] = BOX_NativeString("::"); REGB1 = TAG_Int(2); fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB1); 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[3])(fra.me.REG[3], fra.me.REG[5]); fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalClass___name(fra.me.REG[0])(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___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]); if (!once_value_9) { fra.me.REG[5] = BOX_NativeString(" has ambiguous extern type, found in super classes: \n"); REGB1 = TAG_Int(53); fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB1); 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[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_standard___stream___OStream___write(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]); CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[2])(fra.me.REG[2], (&(fra.me)), ((fun_t)OC_syntax___extern_type_inheritance___MMLocalClass___extern_type_10)); /* syntax/extern_type_inheritance.nit:74 */ REGB1 = TAG_Int(1); CALL_standard___kernel___Object___exit(fra.me.REG[0])(fra.me.REG[0], REGB1); } else { /* syntax/extern_type_inheritance.nit:75 */ REGB1 = CALL_standard___collection___abstract_collection___Collection___length(fra.me.REG[2])(fra.me.REG[2]); REGB0 = TAG_Int(1); REGB2 = TAG_Bool(IS_EQUAL_OO(REGB1,REGB0)); if (UNTAG_Bool(REGB2)) { } else { /* ../lib/standard/kernel.nit:230 */ REGB0 = TAG_Bool((REGB1)==(REGB0)); /* syntax/extern_type_inheritance.nit:75 */ REGB2 = REGB0; } if (UNTAG_Bool(REGB2)) { /* syntax/extern_type_inheritance.nit:76 */ fra.me.REG[2] = CALL_standard___collection___abstract_collection___Collection___first(fra.me.REG[2])(fra.me.REG[2]); /* syntax/extern_type_inheritance.nit:77 */ fra.me.REG[3] = CALL_syntax___extern_inline___MMLocalClass___extern_type(fra.me.REG[2])(fra.me.REG[2]); CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache__eq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); /* syntax/extern_type_inheritance.nit:78 */ CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_origin_cache__eq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]); } else { /* syntax/extern_type_inheritance.nit:81 */ nit_abort("Aborted", NULL, LOCATE_syntax___extern_type_inheritance, 81); } } /* syntax/extern_type_inheritance.nit:84 */ fra.me.REG[0] = CALL_syntax___extern_type_inheritance___MMLocalClass___extern_type_cache(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[1] = fra.me.REG[0]; goto label1; label1: while(0); stack_frame_head = fra.me.prev; return fra.me.REG[1]; }
void abstracttool___MMModule___dump_module_info(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 */ 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_abstracttool; fra.me.line = 99; fra.me.meth = LOCATE_abstracttool___MMModule___dump_module_info; fra.me.has_broke = 0; fra.me.REG_size = 5; 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; /* ./abstracttool.nit:101 */ REGB0 = TAG_Int(5); fra.me.REG[2] = NEW_Array_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_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_abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); CALL_abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); if (!once_value_2) { fra.me.REG[1] = BOX_NativeString("/"); REGB0 = TAG_Int(1); fra.me.REG[1] = NEW_String_string___String___with_native(fra.me.REG[1], REGB0); once_value_2 = fra.me.REG[1]; register_static_object(&once_value_2); } else fra.me.REG[1] = once_value_2; fra.me.REG[1] = fra.me.REG[1]; CALL_abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); fra.me.REG[1] = CALL_abstractmetamodel___MMModule___name(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); CALL_abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); if (!once_value_3) { fra.me.REG[1] = BOX_NativeString(""); REGB0 = TAG_Int(0); fra.me.REG[1] = NEW_String_string___String___with_native(fra.me.REG[1], REGB0); once_value_3 = fra.me.REG[1]; register_static_object(&once_value_3); } else fra.me.REG[1] = once_value_3; fra.me.REG[1] = fra.me.REG[1]; CALL_abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]); fra.me.REG[2] = CALL_string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]); /* ./abstracttool.nit:102 */ REGB0 = TAG_Int(3); fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); if (!once_value_4) { fra.me.REG[3] = BOX_NativeString(""); REGB0 = TAG_Int(0); fra.me.REG[3] = NEW_String_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_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); if (!once_value_5) { fra.me.REG[3] = BOX_NativeString(".class_hierarchy.new.dot"); REGB0 = TAG_Int(24); fra.me.REG[3] = NEW_String_string___String___with_native(fra.me.REG[3], REGB0); once_value_5 = fra.me.REG[3]; register_static_object(&once_value_5); } else fra.me.REG[3] = once_value_5; fra.me.REG[3] = fra.me.REG[3]; CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); fra.me.REG[1] = NEW_OFStream_file___OFStream___open(fra.me.REG[1]); /* ./abstracttool.nit:103 */ fra.me.REG[3] = CALL_abstractmetamodel___MMModule___class_specialization_hierarchy(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[3] = CALL_partial_order___PartialOrder___to_dot(fra.me.REG[3])(fra.me.REG[3]); CALL_stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); /* ./abstracttool.nit:104 */ CALL_stream___IOS___close(fra.me.REG[1])(fra.me.REG[1]); /* ./abstracttool.nit:106 */ REGB0 = TAG_Int(3); fra.me.REG[3] = NEW_Array_array___Array___with_capacity(REGB0); if (!once_value_6) { fra.me.REG[4] = BOX_NativeString(""); REGB0 = TAG_Int(0); fra.me.REG[4] = NEW_String_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_abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); CALL_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(".properties.log"); REGB0 = TAG_Int(15); fra.me.REG[2] = NEW_String_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_abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]); fra.me.REG[3] = CALL_string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]); fra.me.REG[3] = NEW_OFStream_file___OFStream___open(fra.me.REG[3]); fra.me.REG[1] = fra.me.REG[3]; /* ./abstracttool.nit:107 */ fra.me.REG[0] = CALL_abstractmetamodel___MMModule___local_classes(fra.me.REG[0])(fra.me.REG[0]); CALL_abstract_collection___Collection___iterate(fra.me.REG[0])(fra.me.REG[0], (&(fra.me)), ((fun_t)OC_abstracttool___MMModule___dump_module_info_8)); /* ./abstracttool.nit:111 */ CALL_stream___IOS___close(fra.me.REG[1])(fra.me.REG[1]); stack_frame_head = fra.me.prev; return; }
void reachable_method_analysis___Program___dump_reachable_methods(val_t p0, val_t p1, val_t p2){ 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_reachable_method_analysis; fra.me.line = 27; fra.me.meth = LOCATE_reachable_method_analysis___Program___dump_reachable_methods; fra.me.has_broke = 0; fra.me.REG_size = 5; 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; fra.me.REG[2] = p2; /* ./analysis//reachable_method_analysis.nit:29 */ REGB0 = TAG_Int(7); fra.me.REG[3] = NEW_Array_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_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_abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]); CALL_abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]); if (!once_value_2) { fra.me.REG[1] = BOX_NativeString("/"); REGB0 = TAG_Int(1); fra.me.REG[1] = NEW_String_string___String___with_native(fra.me.REG[1], REGB0); once_value_2 = fra.me.REG[1]; register_static_object(&once_value_2); } else fra.me.REG[1] = once_value_2; fra.me.REG[1] = fra.me.REG[1]; CALL_abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]); fra.me.REG[1] = CALL_program___Program___main_module(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[1] = CALL_abstractmetamodel___MMModule___name(fra.me.REG[1])(fra.me.REG[1]); fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); CALL_abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]); if (!once_value_3) { fra.me.REG[1] = BOX_NativeString(".reachable_methods."); REGB0 = TAG_Int(19); fra.me.REG[1] = NEW_String_string___String___with_native(fra.me.REG[1], REGB0); once_value_3 = fra.me.REG[1]; register_static_object(&once_value_3); } else fra.me.REG[1] = once_value_3; fra.me.REG[1] = fra.me.REG[1]; CALL_abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]); CALL_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(".log"); REGB0 = TAG_Int(4); fra.me.REG[2] = NEW_String_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_abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]); fra.me.REG[3] = CALL_string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]); fra.me.REG[3] = NEW_OFStream_file___OFStream___open(fra.me.REG[3]); CALL_program___Program___with_each_methods(fra.me.REG[0])(fra.me.REG[0], (&(fra.me)), ((fun_t)OC_reachable_method_analysis___Program___dump_reachable_methods_5)); /* ./analysis//reachable_method_analysis.nit:35 */ CALL_stream___IOS___close(fra.me.REG[3])(fra.me.REG[3]); stack_frame_head = fra.me.prev; return; }
val_t syntax___SrcModuleLoader___parse_file(val_t p0, val_t p1, val_t p2, val_t p3, val_t p4, val_t p5){ 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_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_syntax; fra.me.line = 33; fra.me.meth = LOCATE_syntax___SrcModuleLoader___parse_file; fra.me.has_broke = 0; fra.me.REG_size = 7; 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; fra.me.REG[4] = p4; fra.me.REG[5] = p5; /* ./syntax//syntax.nit:35 */ fra.me.REG[0] = CALL_string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]); /* ./../lib/standard//collection//array.nit:23 */ REGB0 = TAG_Bool(ATTR_array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL); if (UNTAG_Bool(REGB0)) { } else { nit_abort("Uninitialized attribute %s", "_length", LOCATE_array, 23); } REGB0 = ATTR_array___AbstractArrayRead____length(fra.me.REG[0]); /* ./syntax//syntax.nit:35 */ REGB1 = TAG_Int(0); /* ./../lib/standard//kernel.nit:214 */ REGB1 = TAG_Bool(UNTAG_Int(REGB0)>UNTAG_Int(REGB1)); /* ./syntax//syntax.nit:35 */ if (UNTAG_Bool(REGB1)) { fra.me.REG[0] = CALL_string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]); REGB1 = TAG_Int(0); REGB1 = CALL_abstract_collection___MapRead_____bra(fra.me.REG[0])(fra.me.REG[0], REGB1); REGB1 = CALL_kernel___Char___is_lower(REGB1)(REGB1); } else { REGB0 = TAG_Bool(false); REGB1 = REGB0; } fra.me.REG[0] = REGB1; /* ./syntax//syntax.nit:36 */ fra.me.REG[6] = CALL_string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]); CALL_abstract_collection___Collection___iterate(fra.me.REG[6])(fra.me.REG[6], (&(fra.me)), ((fun_t)OC_syntax___SrcModuleLoader___parse_file_1)); switch ((&(fra.me))->has_broke) { case 0: break; case 1: (&(fra.me))->has_broke = 0; goto label3; } label3: while(0); /* ./syntax//syntax.nit:41 */ REGB1 = TAG_Bool(!UNTAG_Bool(fra.me.REG[0])); if (UNTAG_Bool(REGB1)) { /* ./syntax//syntax.nit:42 */ REGB1 = TAG_Int(5); fra.me.REG[0] = NEW_Array_array___Array___with_capacity(REGB1); if (!once_value_4) { fra.me.REG[6] = BOX_NativeString(""); REGB1 = TAG_Int(0); fra.me.REG[6] = NEW_String_string___String___with_native(fra.me.REG[6], REGB1); 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_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[6]); CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); if (!once_value_5) { fra.me.REG[6] = BOX_NativeString(": Error module name \""); REGB1 = TAG_Int(21); fra.me.REG[6] = NEW_String_string___String___with_native(fra.me.REG[6], REGB1); 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_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[6]); fra.me.REG[6] = CALL_string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]); CALL_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[6]); if (!once_value_6) { fra.me.REG[6] = BOX_NativeString("\", must start with a lower case letter and contain only letters, digits and '_'."); REGB1 = TAG_Int(80); fra.me.REG[6] = NEW_String_string___String___with_native(fra.me.REG[6], REGB1); 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_abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[6]); fra.me.REG[0] = CALL_string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); CALL_mmloader___ToolContext___error(fra.me.REG[1])(fra.me.REG[1], NIT_NULL, fra.me.REG[0]); } /* ./syntax//syntax.nit:45 */ fra.me.REG[2] = NEW_Lexer_lexer___Lexer___init(fra.me.REG[2], fra.me.REG[3]); /* ./syntax//syntax.nit:46 */ fra.me.REG[2] = NEW_Parser_parser___Parser___init(fra.me.REG[2]); /* ./syntax//syntax.nit:47 */ fra.me.REG[2] = CALL_parser___Parser___parse(fra.me.REG[2])(fra.me.REG[2]); /* ./syntax//syntax.nit:48 */ fra.me.REG[0] = CALL_parser_nodes___Start___n_base(fra.me.REG[2])(fra.me.REG[2]); REGB1 = TAG_Bool(fra.me.REG[0]==NIT_NULL); if (UNTAG_Bool(REGB1)) { } else { REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL); if (UNTAG_Bool(REGB0)) { REGB0 = TAG_Bool(false); REGB1 = REGB0; } else { REGB0 = CALL_kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], NIT_NULL); REGB1 = REGB0; } } if (UNTAG_Bool(REGB1)) { /* ./syntax//syntax.nit:49 */ fra.me.REG[0] = CALL_parser_nodes___Start___n_eof(fra.me.REG[2])(fra.me.REG[2]); /* ./syntax//syntax.nit:50 */ REGB1 = TAG_Bool(VAL_ISA(fra.me.REG[0], COLOR_AError, ID_AError)) /*cast AError*/; if (UNTAG_Bool(REGB1)) { } else { nit_abort("Assert failed", NULL, LOCATE_syntax, 50); } /* ./syntax//syntax.nit:51 */ fra.me.REG[6] = CALL_parser_nodes___ANode___location(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[0] = CALL_lexer___AError___message(fra.me.REG[0])(fra.me.REG[0]); CALL_mmloader___ToolContext___fatal_error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[6], fra.me.REG[0]); } /* ./syntax//syntax.nit:53 */ fra.me.REG[2] = CALL_parser_nodes___Start___n_base(fra.me.REG[2])(fra.me.REG[2]); /* ./syntax//syntax.nit:54 */ REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL); if (UNTAG_Bool(REGB1)) { } else { REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL); if (UNTAG_Bool(REGB0)) { REGB0 = TAG_Bool(false); REGB1 = REGB0; } else { REGB0 = CALL_kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL); REGB1 = REGB0; } } REGB1 = TAG_Bool(!UNTAG_Bool(REGB1)); if (UNTAG_Bool(REGB1)) { } else { nit_abort("Assert failed", NULL, LOCATE_syntax, 54); } /* ./syntax//syntax.nit:55 */ fra.me.REG[3] = NEW_Location_location___Location___with_file(fra.me.REG[3]); /* ./syntax//syntax.nit:56 */ fra.me.REG[3] = NEW_MMSrcModule_syntax_base___MMSrcModule___init(fra.me.REG[1], fra.me.REG[2], fra.me.REG[5], fra.me.REG[4], fra.me.REG[3]); /* ./syntax//syntax.nit:57 */ goto label7; label7: while(0); stack_frame_head = fra.me.prev; return fra.me.REG[3]; }
void abstracttool___AbstractCompiler___exec_cmd_line(val_t p0){ struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; val_t REGB0; val_t REGB1; val_t REGB2; val_t REGB3; val_t REGB4; 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 */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_abstracttool; fra.me.line = 40; fra.me.meth = LOCATE_abstracttool___AbstractCompiler___exec_cmd_line; fra.me.has_broke = 0; fra.me.REG_size = 4; 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; /* ./abstracttool.nit:42 */ CALL_mmloader___ToolContext___process_options(fra.me.REG[0])(fra.me.REG[0]); /* ./abstracttool.nit:44 */ fra.me.REG[1] = CALL_mmloader___ToolContext___opt_version(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[1] = CALL_opts___Option___value(fra.me.REG[1])(fra.me.REG[1]); if (UNTAG_Bool(fra.me.REG[1])) { /* ./abstracttool.nit:45 */ REGB0 = TAG_Int(5); fra.me.REG[1] = NEW_Array_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_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_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); fra.me.REG[2] = CALL_abstracttool___AbstractCompiler___tool_name(fra.me.REG[0])(fra.me.REG[0]); CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); if (!once_value_2) { fra.me.REG[2] = BOX_NativeString(" version "); REGB0 = TAG_Int(9); fra.me.REG[2] = NEW_String_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_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); fra.me.REG[2] = CALL_nit_version___Object___nit_version(fra.me.REG[0])(fra.me.REG[0]); CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); if (!once_value_3) { fra.me.REG[2] = BOX_NativeString(""); REGB0 = TAG_Int(0); fra.me.REG[2] = NEW_String_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_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); CALL_file___Object___print(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); /* ./abstracttool.nit:46 */ REGB0 = TAG_Int(0); CALL_kernel___Object___exit(fra.me.REG[0])(fra.me.REG[0], REGB0); } /* ./abstracttool.nit:49 */ fra.me.REG[1] = CALL_mmloader___ToolContext___opt_help(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[1] = CALL_opts___Option___value(fra.me.REG[1])(fra.me.REG[1]); if (UNTAG_Bool(fra.me.REG[1])) { /* ./abstracttool.nit:50 */ REGB0 = TAG_Int(3); fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0); if (!once_value_4) { fra.me.REG[2] = BOX_NativeString("usage: "); REGB0 = TAG_Int(7); fra.me.REG[2] = NEW_String_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_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); fra.me.REG[2] = CALL_abstracttool___AbstractCompiler___tool_name(fra.me.REG[0])(fra.me.REG[0]); CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); if (!once_value_5) { fra.me.REG[2] = BOX_NativeString(" [options] file..."); REGB0 = TAG_Int(18); fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0); once_value_5 = fra.me.REG[2]; register_static_object(&once_value_5); } else fra.me.REG[2] = once_value_5; fra.me.REG[2] = fra.me.REG[2]; CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); CALL_file___Object___print(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); /* ./abstracttool.nit:51 */ fra.me.REG[1] = CALL_mmloader___ToolContext___option_context(fra.me.REG[0])(fra.me.REG[0]); CALL_opts___OptionContext___usage(fra.me.REG[1])(fra.me.REG[1]); /* ./abstracttool.nit:52 */ REGB0 = TAG_Int(0); CALL_kernel___Object___exit(fra.me.REG[0])(fra.me.REG[0], REGB0); } /* ./abstracttool.nit:55 */ fra.me.REG[1] = CALL_mmloader___ToolContext___option_context(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[1] = CALL_opts___OptionContext___rest(fra.me.REG[1])(fra.me.REG[1]); /* ./../lib/standard//collection//array.nit:23 */ REGB0 = TAG_Bool(ATTR_array___AbstractArrayRead____length(fra.me.REG[1])!=NIT_NULL); if (UNTAG_Bool(REGB0)) { } else { nit_abort("Uninitialized attribute %s", "_length", LOCATE_array, 23); } REGB0 = ATTR_array___AbstractArrayRead____length(fra.me.REG[1]); /* ./abstracttool.nit:55 */ REGB1 = TAG_Int(0); REGB2 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB1)); if (UNTAG_Bool(REGB2)) { } else { /* ./../lib/standard//kernel.nit:207 */ REGB1 = TAG_Bool((REGB0)==(REGB1)); /* ./abstracttool.nit:55 */ REGB2 = REGB1; } if (UNTAG_Bool(REGB2)) { /* ./abstracttool.nit:56 */ REGB2 = TAG_Int(3); fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB2); if (!once_value_6) { fra.me.REG[2] = BOX_NativeString("usage: "); REGB2 = TAG_Int(7); fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB2); 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_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); fra.me.REG[2] = CALL_abstracttool___AbstractCompiler___tool_name(fra.me.REG[0])(fra.me.REG[0]); CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); if (!once_value_7) { fra.me.REG[2] = BOX_NativeString(" [options] file..."); REGB2 = TAG_Int(18); fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB2); 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_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]); CALL_file___Object___print(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); /* ./abstracttool.nit:57 */ fra.me.REG[1] = CALL_mmloader___ToolContext___option_context(fra.me.REG[0])(fra.me.REG[0]); CALL_opts___OptionContext___usage(fra.me.REG[1])(fra.me.REG[1]); /* ./abstracttool.nit:58 */ REGB2 = TAG_Int(1); CALL_kernel___Object___exit(fra.me.REG[0])(fra.me.REG[0], REGB2); } /* ./abstracttool.nit:61 */ fra.me.REG[1] = CALL_mmloader___ToolContext___option_context(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[1] = CALL_opts___OptionContext___rest(fra.me.REG[1])(fra.me.REG[1]); /* ./abstracttool.nit:62 */ fra.me.REG[2] = NEW_Array_array___Array___init(); /* ./abstracttool.nit:63 */ if (!once_value_8) { fra.me.REG[3] = BOX_NativeString("Syntax analysis"); REGB2 = TAG_Int(15); fra.me.REG[3] = NEW_String_string___String___with_native(fra.me.REG[3], REGB2); 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]; REGB2 = TAG_Int(1); CALL_mmloader___ToolContext___info(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3], REGB2); /* ./abstracttool.nit:64 */ REGB2 = TAG_Int(0); /* ./../lib/standard//collection//array.nit:23 */ REGB1 = TAG_Bool(ATTR_array___AbstractArrayRead____length(fra.me.REG[1])!=NIT_NULL); if (UNTAG_Bool(REGB1)) { } else { nit_abort("Uninitialized attribute %s", "_length", LOCATE_array, 23); } REGB1 = ATTR_array___AbstractArrayRead____length(fra.me.REG[1]); /* ./../lib/standard//kernel.nit:332 */ while(1) { /* ./../lib/standard//kernel.nit:212 */ REGB0 = TAG_Bool(UNTAG_Int(REGB2)<UNTAG_Int(REGB1)); /* ./../lib/standard//kernel.nit:332 */ if (UNTAG_Bool(REGB0)) { /* ./abstracttool.nit:64 */ REGB0 = REGB2; /* ./../lib/standard//collection//array.nit:243 */ fra.me.REG[3] = fra.me.REG[1]; /* ./../lib/standard//collection//array.nit:245 */ REGB3 = TAG_Int(0); /* ./../lib/standard//kernel.nit:213 */ REGB3 = TAG_Bool(UNTAG_Int(REGB0)>=UNTAG_Int(REGB3)); /* ./../lib/standard//collection//array.nit:245 */ if (UNTAG_Bool(REGB3)) { REGB3 = TAG_Bool(ATTR_array___AbstractArrayRead____length(fra.me.REG[3])!=NIT_NULL); if (UNTAG_Bool(REGB3)) { } else { nit_abort("Uninitialized attribute %s", "_length", LOCATE_array, 245); } REGB3 = ATTR_array___AbstractArrayRead____length(fra.me.REG[3]); /* ./../lib/standard//kernel.nit:212 */ REGB3 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB3)); } else { /* ./../lib/standard//collection//array.nit:245 */ REGB4 = TAG_Bool(false); REGB3 = REGB4; } if (UNTAG_Bool(REGB3)) { } else { nit_abort("Assert %s failed", "'index'", LOCATE_array, 245); } /* ./../lib/standard//collection//array.nit:246 */ fra.me.REG[3] = ATTR_array___Array____items(fra.me.REG[3]); REGB3 = TAG_Bool(fra.me.REG[3]==NIT_NULL); if (UNTAG_Bool(REGB3)) { nit_abort("Reciever is null", NULL, LOCATE_array, 246); } /* ./../lib/standard//collection//array.nit:654 */ fra.me.REG[3] = ((Nit_NativeArray)fra.me.REG[3])->val[UNTAG_Int(REGB0)]; /* ./../lib/standard//collection//array.nit:246 */ goto label9; label9: while(0); /* ./abstracttool.nit:65 */ fra.me.REG[3] = CALL_mmloader___ToolContext___get_module_from_filename(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); /* ./abstracttool.nit:66 */ CALL_abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); /* ./../lib/standard//kernel.nit:334 */ REGB0 = TAG_Int(1); /* ./../lib/standard//kernel.nit:215 */ REGB0 = TAG_Int(UNTAG_Int(REGB2)+UNTAG_Int(REGB0)); /* ./../lib/standard//kernel.nit:334 */ REGB2 = REGB0; } else { /* ./../lib/standard//kernel.nit:332 */ goto label10; } } label10: while(0); /* ./abstracttool.nit:68 */ fra.me.REG[1] = CALL_mmloader___ToolContext___opt_log(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[1] = CALL_opts___Option___value(fra.me.REG[1])(fra.me.REG[1]); if (UNTAG_Bool(fra.me.REG[1])) { /* ./abstracttool.nit:69 */ CALL_abstracttool___AbstractCompiler___dump_context_info(fra.me.REG[0])(fra.me.REG[0]); } /* ./abstracttool.nit:72 */ REGB2 = CALL_abstract_collection___Collection___is_empty(fra.me.REG[2])(fra.me.REG[2]); REGB2 = TAG_Bool(!UNTAG_Bool(REGB2)); if (UNTAG_Bool(REGB2)) { fra.me.REG[1] = CALL_mmloader___ToolContext___opt_only_metamodel(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[1] = CALL_opts___Option___value(fra.me.REG[1])(fra.me.REG[1]); REGB2 = TAG_Bool(!UNTAG_Bool(fra.me.REG[1])); } else { REGB1 = TAG_Bool(false); REGB2 = REGB1; } if (UNTAG_Bool(REGB2)) { fra.me.REG[1] = CALL_mmloader___ToolContext___opt_only_parse(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[1] = CALL_opts___Option___value(fra.me.REG[1])(fra.me.REG[1]); REGB2 = TAG_Bool(!UNTAG_Bool(fra.me.REG[1])); } else { REGB1 = TAG_Bool(false); REGB2 = REGB1; } if (UNTAG_Bool(REGB2)) { /* ./abstracttool.nit:73 */ CALL_abstracttool___AbstractCompiler___perform_work(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]); } stack_frame_head = fra.me.prev; return; }
val_t ffi___c___Location___as_line_pragma(val_t p0){ struct {struct stack_frame_t me; val_t MORE_REG[2];} 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 */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_ffi___c; fra.me.line = 57; fra.me.meth = LOCATE_ffi___c___Location___as_line_pragma; 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; /* ffi/c.nit:59 */ REGB0 = TAG_Int(5); fra.me.REG[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0); if (!once_value_1) { fra.me.REG[2] = BOX_NativeString("#line "); REGB0 = TAG_Int(6); fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(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[1])(fra.me.REG[1], fra.me.REG[2]); REGB0 = CALL_location___Location___line_start(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[2] = CALL_standard___string___Object___to_s(REGB0)(REGB0); CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); if (!once_value_2) { fra.me.REG[2] = BOX_NativeString(" \""); REGB0 = TAG_Int(2); fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(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[1])(fra.me.REG[1], fra.me.REG[2]); fra.me.REG[0] = CALL_location___Location___file(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_ffi___c, 59); } fra.me.REG[0] = CALL_location___SourceFile___filename(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_3) { fra.me.REG[0] = BOX_NativeString("\"\n"); REGB0 = TAG_Int(2); fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(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[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 label4; label4: while(0); stack_frame_head = fra.me.prev; return fra.me.REG[1]; }
void abstracttool___MMLocalClass___dump_properties(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 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_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_abstracttool; fra.me.line = 116; fra.me.meth = LOCATE_abstracttool___MMLocalClass___dump_properties; fra.me.has_broke = 0; fra.me.REG_size = 4; 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; /* ./abstracttool.nit:118 */ REGB0 = TAG_Int(3); fra.me.REG[2] = NEW_Array_array___Array___with_capacity(REGB0); if (!once_value_1) { fra.me.REG[3] = BOX_NativeString("class "); REGB0 = TAG_Int(6); fra.me.REG[3] = NEW_String_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_abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); fra.me.REG[3] = CALL_string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); CALL_abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); if (!once_value_2) { fra.me.REG[3] = BOX_NativeString("\n"); REGB0 = TAG_Int(1); fra.me.REG[3] = NEW_String_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_abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); fra.me.REG[2] = CALL_string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]); CALL_stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); /* ./abstracttool.nit:119 */ fra.me.REG[2] = CALL_abstractmetamodel___MMLocalClass___global(fra.me.REG[0])(fra.me.REG[0]); REGB0 = CALL_abstractmetamodel___MMGlobalClass___visibility_level(fra.me.REG[2])(fra.me.REG[2]); REGB1 = TAG_Int(3); REGB2 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB1)); if (UNTAG_Bool(REGB2)) { } else { /* ./../lib/standard//kernel.nit:207 */ REGB1 = TAG_Bool((REGB0)==(REGB1)); /* ./abstracttool.nit:119 */ REGB2 = REGB1; } if (UNTAG_Bool(REGB2)) { fra.me.REG[2] = CALL_abstractmetamodel___MMLocalClass___global(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[2] = CALL_abstractmetamodel___MMGlobalClass___intro(fra.me.REG[2])(fra.me.REG[2]); REGB2 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[0],fra.me.REG[2])); if (UNTAG_Bool(REGB2)) { } else { REGB1 = CALL_kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]); REGB2 = REGB1; } REGB2 = TAG_Bool(!UNTAG_Bool(REGB2)); } else { REGB1 = TAG_Bool(false); REGB2 = REGB1; } if (UNTAG_Bool(REGB2)) { /* ./abstracttool.nit:120 */ if (!once_value_3) { fra.me.REG[2] = BOX_NativeString("\tclass not visible in this module\n"); REGB2 = TAG_Int(34); fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB2); 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_stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]); } else { /* ./abstracttool.nit:121 */ fra.me.REG[2] = CALL_abstractmetamodel___MMLocalClass___mmmodule(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[3] = CALL_abstractmetamodel___MMLocalClass___global(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[3] = CALL_abstractmetamodel___MMGlobalClass___mmmodule(fra.me.REG[3])(fra.me.REG[3]); REGB2 = CALL_abstractmetamodel___MMModule___visibility_for(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); REGB1 = TAG_Int(0); REGB0 = TAG_Bool(IS_EQUAL_OO(REGB2,REGB1)); if (UNTAG_Bool(REGB0)) { } else { /* ./../lib/standard//kernel.nit:207 */ REGB1 = TAG_Bool((REGB2)==(REGB1)); /* ./abstracttool.nit:121 */ REGB0 = REGB1; } if (UNTAG_Bool(REGB0)) { /* ./abstracttool.nit:122 */ if (!once_value_4) { fra.me.REG[3] = BOX_NativeString("\tclass is defined later in the hierarchy\n"); REGB0 = TAG_Int(41); fra.me.REG[3] = NEW_String_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_stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); } else { /* ./abstracttool.nit:124 */ fra.me.REG[3] = CALL_abstractmetamodel___MMLocalClass___global_properties(fra.me.REG[0])(fra.me.REG[0]); CALL_abstract_collection___Collection___iterate(fra.me.REG[3])(fra.me.REG[3], (&(fra.me)), ((fun_t)OC_abstracttool___MMLocalClass___dump_properties_5)); } } /* ./abstracttool.nit:129 */ REGB0 = TAG_Int(3); fra.me.REG[3] = NEW_Array_array___Array___with_capacity(REGB0); if (!once_value_9) { fra.me.REG[2] = BOX_NativeString("end # "); REGB0 = TAG_Int(6); fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0); once_value_9 = fra.me.REG[2]; register_static_object(&once_value_9); } else fra.me.REG[2] = once_value_9; fra.me.REG[2] = fra.me.REG[2]; CALL_abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]); fra.me.REG[0] = CALL_string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]); CALL_abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]); if (!once_value_10) { fra.me.REG[0] = BOX_NativeString("\n"); REGB0 = TAG_Int(1); fra.me.REG[0] = NEW_String_string___String___with_native(fra.me.REG[0], REGB0); once_value_10 = fra.me.REG[0]; register_static_object(&once_value_10); } else fra.me.REG[0] = once_value_10; fra.me.REG[0] = fra.me.REG[0]; CALL_abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]); fra.me.REG[3] = CALL_string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]); CALL_stream___OStream___write(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); stack_frame_head = fra.me.prev; return; }
void native_interface___MMSrcModule___compile_separate_module(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 */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_native_interface; fra.me.line = 24; fra.me.meth = LOCATE_native_interface___MMSrcModule___compile_separate_module; 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/native_interface.nit:24 */ fra.me.REG[2] = fra.me.REG[0]; fra.me.REG[3] = fra.me.REG[1]; /* native_interface/native_interface.nit:26 */ REGB0 = CALL_metamodel___abstractmetamodel___MMModule___is_extern_hybrid(fra.me.REG[2])(fra.me.REG[2]); if (UNTAG_Bool(REGB0)) { /* native_interface/native_interface.nit:27 */ fra.me.REG[4] = NEW_FrontierVisitor_native_interface___frontier___FrontierVisitor___init(fra.me.REG[2], fra.me.REG[3]); /* native_interface/native_interface.nit:28 */ CALL_native_interface___frontier___MMSrcModule___compile_frontier(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[4]); /* native_interface/native_interface.nit:30 */ CALL_native_interface___frontier___FrontierVisitor___compile_cached(fra.me.REG[4])(fra.me.REG[4]); /* native_interface/native_interface.nit:32 */ 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]); fra.me.REG[3] = CALL_compiling___compiling_base___CProgram___compdir(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]); if (!once_value_2) { 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_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[5])(fra.me.REG[5], fra.me.REG[3]); fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMModule___name(fra.me.REG[2])(fra.me.REG[2]); fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]); CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[2]); 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[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/native_interface.nit:33 */ CALL_native_interface___frontier___FrontierVisitor___write_to_files(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]); } /* native_interface/native_interface.nit:36 */ CALL_SUPER_native_interface___MMSrcModule___compile_separate_module(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]); stack_frame_head = fra.me.prev; return; }
val_t analysis___inline_methods___ICall___is_inlinable(val_t p0){ struct {struct stack_frame_t me; val_t MORE_REG[3];} fra; val_t REGB0; val_t REGB1; val_t REGB2; val_t REGB3; 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 */ fra.me.prev = stack_frame_head; stack_frame_head = &fra.me; fra.me.file = LOCATE_analysis___inline_methods; fra.me.line = 70; fra.me.meth = LOCATE_analysis___inline_methods___ICall___is_inlinable; 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; /* analysis/inline_methods.nit:72 */ fra.me.REG[0] = CALL_icode___icode_base___IAbsCall___property(fra.me.REG[0])(fra.me.REG[0]); /* analysis/inline_methods.nit:73 */ fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMLocalProperty___name(fra.me.REG[0])(fra.me.REG[0]); /* analysis/inline_methods.nit:74 */ fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalProperty___local_class(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalClass___name(fra.me.REG[2])(fra.me.REG[2]); /* analysis/inline_methods.nit:75 */ REGB0 = CALL_metamodel___abstractmetamodel___MMMethod___is_intern(fra.me.REG[0])(fra.me.REG[0]); if (UNTAG_Bool(REGB0)) { if (!once_value_1) { if (!once_value_2) { fra.me.REG[3] = BOX_NativeString("Object"); REGB0 = TAG_Int(6); 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]; fra.me.REG[3] = CALL_standard___symbol___String___to_symbol(fra.me.REG[3])(fra.me.REG[3]); 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]; 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; } REGB0 = TAG_Bool(!UNTAG_Bool(REGB0)); } else { REGB1 = TAG_Bool(false); REGB0 = REGB1; } if (UNTAG_Bool(REGB0)) { REGB0 = TAG_Bool(true); } else { /* analysis/inline_methods.nit:76 */ if (!once_value_3) { if (!once_value_4) { fra.me.REG[3] = BOX_NativeString("Int"); REGB1 = TAG_Int(3); fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB1); 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]; fra.me.REG[3] = CALL_standard___symbol___String___to_symbol(fra.me.REG[3])(fra.me.REG[3]); 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]; REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[2],fra.me.REG[3])); if (UNTAG_Bool(REGB1)) { } else { REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); REGB1 = REGB2; } if (UNTAG_Bool(REGB1)) { if (!once_value_5) { if (!once_value_6) { fra.me.REG[3] = BOX_NativeString("enumerate_to"); REGB1 = TAG_Int(12); 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]; fra.me.REG[3] = CALL_standard___symbol___String___to_symbol(fra.me.REG[3])(fra.me.REG[3]); once_value_5 = fra.me.REG[3]; register_static_object(&once_value_5); } else fra.me.REG[3] = once_value_5; fra.me.REG[3] = fra.me.REG[3]; REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[1],fra.me.REG[3])); if (UNTAG_Bool(REGB1)) { } else { REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); REGB1 = REGB2; } if (UNTAG_Bool(REGB1)) { REGB1 = TAG_Bool(true); } else { if (!once_value_7) { if (!once_value_8) { fra.me.REG[3] = BOX_NativeString("enumerate_before"); REGB2 = TAG_Int(16); fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB2); 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]; fra.me.REG[3] = CALL_standard___symbol___String___to_symbol(fra.me.REG[3])(fra.me.REG[3]); 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]; REGB2 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[1],fra.me.REG[3])); if (UNTAG_Bool(REGB2)) { } else { REGB3 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); REGB2 = REGB3; } REGB1 = REGB2; } } else { REGB2 = TAG_Bool(false); REGB1 = REGB2; } /* analysis/inline_methods.nit:75 */ REGB0 = REGB1; } if (UNTAG_Bool(REGB0)) { REGB0 = TAG_Bool(true); } else { /* analysis/inline_methods.nit:77 */ if (!once_value_9) { if (!once_value_10) { fra.me.REG[3] = BOX_NativeString("Array"); REGB1 = TAG_Int(5); 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]; fra.me.REG[3] = CALL_standard___symbol___String___to_symbol(fra.me.REG[3])(fra.me.REG[3]); 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]; REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[2],fra.me.REG[3])); if (UNTAG_Bool(REGB1)) { } else { REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); REGB1 = REGB2; } if (UNTAG_Bool(REGB1)) { if (!once_value_11) { if (!once_value_12) { fra.me.REG[3] = BOX_NativeString("length"); REGB1 = TAG_Int(6); fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB1); 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]; fra.me.REG[3] = CALL_standard___symbol___String___to_symbol(fra.me.REG[3])(fra.me.REG[3]); 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]; REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[1],fra.me.REG[3])); if (UNTAG_Bool(REGB1)) { } else { REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); REGB1 = REGB2; } if (UNTAG_Bool(REGB1)) { REGB1 = TAG_Bool(true); } else { if (!once_value_13) { if (!once_value_14) { fra.me.REG[3] = BOX_NativeString("[]"); REGB2 = TAG_Int(2); fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB2); once_value_14 = fra.me.REG[3]; register_static_object(&once_value_14); } else fra.me.REG[3] = once_value_14; fra.me.REG[3] = fra.me.REG[3]; fra.me.REG[3] = CALL_standard___symbol___String___to_symbol(fra.me.REG[3])(fra.me.REG[3]); 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]; REGB2 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[1],fra.me.REG[3])); if (UNTAG_Bool(REGB2)) { } else { REGB3 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); REGB2 = REGB3; } REGB1 = REGB2; } if (UNTAG_Bool(REGB1)) { REGB1 = TAG_Bool(true); } else { if (!once_value_15) { if (!once_value_16) { fra.me.REG[3] = BOX_NativeString("iterate"); REGB2 = TAG_Int(7); fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB2); 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]; fra.me.REG[3] = CALL_standard___symbol___String___to_symbol(fra.me.REG[3])(fra.me.REG[3]); 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]; REGB2 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[1],fra.me.REG[3])); if (UNTAG_Bool(REGB2)) { } else { REGB3 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); REGB2 = REGB3; } REGB1 = REGB2; } } else { REGB2 = TAG_Bool(false); REGB1 = REGB2; } /* analysis/inline_methods.nit:75 */ REGB0 = REGB1; } if (UNTAG_Bool(REGB0)) { REGB0 = TAG_Bool(true); } else { /* analysis/inline_methods.nit:78 */ if (!once_value_17) { if (!once_value_18) { fra.me.REG[3] = BOX_NativeString("AbstractArrayRead"); REGB1 = TAG_Int(17); fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB1); once_value_18 = fra.me.REG[3]; register_static_object(&once_value_18); } else fra.me.REG[3] = once_value_18; fra.me.REG[3] = fra.me.REG[3]; fra.me.REG[3] = CALL_standard___symbol___String___to_symbol(fra.me.REG[3])(fra.me.REG[3]); 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]; REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[2],fra.me.REG[3])); if (UNTAG_Bool(REGB1)) { } else { REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]); REGB1 = REGB2; } if (UNTAG_Bool(REGB1)) { if (!once_value_19) { if (!once_value_20) { fra.me.REG[3] = BOX_NativeString("length"); REGB1 = TAG_Int(6); fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB1); once_value_20 = fra.me.REG[3]; register_static_object(&once_value_20); } else fra.me.REG[3] = once_value_20; fra.me.REG[3] = fra.me.REG[3]; fra.me.REG[3] = CALL_standard___symbol___String___to_symbol(fra.me.REG[3])(fra.me.REG[3]); 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]; REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[1],fra.me.REG[3])); if (UNTAG_Bool(REGB1)) { } else { REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); REGB1 = REGB2; } if (UNTAG_Bool(REGB1)) { REGB1 = TAG_Bool(true); } else { if (!once_value_21) { if (!once_value_22) { fra.me.REG[3] = BOX_NativeString("[]"); REGB2 = TAG_Int(2); fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB2); once_value_22 = fra.me.REG[3]; register_static_object(&once_value_22); } else fra.me.REG[3] = once_value_22; fra.me.REG[3] = fra.me.REG[3]; fra.me.REG[3] = CALL_standard___symbol___String___to_symbol(fra.me.REG[3])(fra.me.REG[3]); once_value_21 = fra.me.REG[3]; register_static_object(&once_value_21); } else fra.me.REG[3] = once_value_21; fra.me.REG[3] = fra.me.REG[3]; REGB2 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[1],fra.me.REG[3])); if (UNTAG_Bool(REGB2)) { } else { REGB3 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]); REGB2 = REGB3; } REGB1 = REGB2; } } else { REGB2 = TAG_Bool(false); REGB1 = REGB2; } /* analysis/inline_methods.nit:75 */ REGB0 = REGB1; } if (UNTAG_Bool(REGB0)) { REGB0 = TAG_Bool(true); } else { /* analysis/inline_methods.nit:79 */ fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___intro(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMLocalProperty___local_class(fra.me.REG[0])(fra.me.REG[0]); fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMLocalClass___name(fra.me.REG[0])(fra.me.REG[0]); if (!once_value_23) { if (!once_value_24) { fra.me.REG[3] = BOX_NativeString("Inline__"); REGB1 = TAG_Int(8); fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB1); 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___symbol___String___to_symbol(fra.me.REG[3])(fra.me.REG[3]); 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]; REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[0],fra.me.REG[3])); if (UNTAG_Bool(REGB1)) { } else { REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]); REGB1 = REGB2; } /* analysis/inline_methods.nit:75 */ REGB0 = REGB1; } goto label25; label25: while(0); stack_frame_head = fra.me.prev; return REGB0; }