+++ /dev/null
-/* This C file is generated by NIT to compile module syntax___typing. */
-#include "syntax___typing._sep.h"
-void syntax___typing___MMSrcModule___do_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 25;
- fra.me.meth = LOCATE_syntax___typing___MMSrcModule___do_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:29 */
- fra.me.REG[1] = NEW_TypingVisitor_syntax___typing___TypingVisitor___init(fra.me.REG[1], fra.me.REG[0]);
- /* syntax/typing.nit:30 */
- fra.me.REG[0] = CALL_syntax___syntax_base___MMSrcModule___node(fra.me.REG[0])(fra.me.REG[0]);
- CALL_parser___parser_prod___Visitor___enter_visit(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___TypingVisitor___visit(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 41;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___visit;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:43 */
- 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(false);
- 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)) {
- REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 43);
- }
- CALL_syntax___typing___ANode___accept_typing(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- }
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___TypingVisitor___scope_ctx(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 46;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___scope_ctx;
- 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;
- /* syntax/typing.nit:46 */
- REGB0 = TAG_Bool(ATTR_syntax___typing___TypingVisitor____scope_ctx(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_scope_ctx", LOCATE_syntax___typing, 46);
- }
- fra.me.REG[0] = ATTR_syntax___typing___TypingVisitor____scope_ctx(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___TypingVisitor___flow_ctx(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 49;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___flow_ctx;
- 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;
- /* syntax/typing.nit:49 */
- fra.me.REG[1] = fra.me.REG[0];
- /* syntax/typing.nit:50 */
- fra.me.REG[1] = ATTR_syntax___typing___TypingVisitor____flow_ctx(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[1]!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 50);
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-void syntax___typing___TypingVisitor___flow_ctx__eq(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 51;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___flow_ctx__eq;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:51 */
- ATTR_syntax___typing___TypingVisitor____flow_ctx(fra.me.REG[0]) = fra.me.REG[1];
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___TypingVisitor___mark_is_set(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 53;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___mark_is_set;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:56 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___flow___FlowContext___is_set(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:57 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[1] = CALL_syntax___flow___FlowContext___sub_setvariable(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
- CALL_syntax___typing___TypingVisitor___flow_ctx__eq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___TypingVisitor___mark_unreash(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 60;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___mark_unreash;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:63 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[1] = CALL_syntax___flow___FlowContext___sub_unreash(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
- CALL_syntax___typing___TypingVisitor___flow_ctx__eq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___TypingVisitor___enter_visit_block(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 66;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___enter_visit_block;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:69 */
- 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(false);
- 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)) {
- goto label1;
- }
- /* syntax/typing.nit:70 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___scope___ScopeContext___push(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
- /* syntax/typing.nit:71 */
- CALL_parser___parser_prod___Visitor___enter_visit(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* syntax/typing.nit:72 */
- fra.me.REG[0] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___scope___ScopeContext___pop(fra.me.REG[0])(fra.me.REG[0]);
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___TypingVisitor___base_flow_ctx(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 75;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___base_flow_ctx;
- 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;
- /* syntax/typing.nit:75 */
- fra.me.REG[1] = fra.me.REG[0];
- /* syntax/typing.nit:76 */
- fra.me.REG[1] = ATTR_syntax___typing___TypingVisitor____base_flow_ctx(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[1]!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 76);
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-void syntax___typing___TypingVisitor___base_flow_ctx__eq(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 77;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___base_flow_ctx__eq;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:77 */
- ATTR_syntax___typing___TypingVisitor____base_flow_ctx(fra.me.REG[0]) = fra.me.REG[1];
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___TypingVisitor___self_var(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 79;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___self_var;
- 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;
- /* syntax/typing.nit:79 */
- fra.me.REG[1] = fra.me.REG[0];
- /* syntax/typing.nit:80 */
- fra.me.REG[1] = ATTR_syntax___typing___TypingVisitor____self_var(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[1]!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 80);
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-void syntax___typing___TypingVisitor___self_var__eq(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 81;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___self_var__eq;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:81 */
- ATTR_syntax___typing___TypingVisitor____self_var(fra.me.REG[0]) = fra.me.REG[1];
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___TypingVisitor___top_block(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 83;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___top_block;
- 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;
- /* syntax/typing.nit:83 */
- fra.me.REG[0] = ATTR_syntax___typing___TypingVisitor____top_block(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void syntax___typing___TypingVisitor___top_block__eq(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 83;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___top_block__eq;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:83 */
- ATTR_syntax___typing___TypingVisitor____top_block(fra.me.REG[0]) = fra.me.REG[1];
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___TypingVisitor___explicit_super_init_calls(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 86;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___explicit_super_init_calls;
- 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;
- /* syntax/typing.nit:86 */
- fra.me.REG[0] = ATTR_syntax___typing___TypingVisitor____explicit_super_init_calls(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void syntax___typing___TypingVisitor___explicit_super_init_calls__eq(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 86;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___explicit_super_init_calls__eq;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:86 */
- ATTR_syntax___typing___TypingVisitor____explicit_super_init_calls(fra.me.REG[0]) = fra.me.REG[1];
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___TypingVisitor___explicit_other_init_call(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 89;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___explicit_other_init_call;
- 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;
- /* syntax/typing.nit:89 */
- REGB0 = TAG_Bool(ATTR_syntax___typing___TypingVisitor____explicit_other_init_call(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_explicit_other_init_call", LOCATE_syntax___typing, 89);
- }
- REGB0 = ATTR_syntax___typing___TypingVisitor____explicit_other_init_call(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-void syntax___typing___TypingVisitor___explicit_other_init_call__eq(val_t p0, val_t p1){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 89;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___explicit_other_init_call__eq;
- 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;
- REGB0 = p1;
- /* syntax/typing.nit:89 */
- ATTR_syntax___typing___TypingVisitor____explicit_other_init_call(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___TypingVisitor___use_if_true_flow_ctx(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 92;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___use_if_true_flow_ctx;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:95 */
- fra.me.REG[1] = CALL_syntax___typing___AExpr___if_true_flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:96 */
- 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(false);
- 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)) {
- CALL_syntax___typing___TypingVisitor___flow_ctx__eq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- }
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___TypingVisitor___use_if_false_flow_ctx(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 99;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___use_if_false_flow_ctx;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:102 */
- fra.me.REG[1] = CALL_syntax___typing___AExpr___if_false_flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:103 */
- 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(false);
- 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)) {
- CALL_syntax___typing___TypingVisitor___flow_ctx__eq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- }
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___TypingVisitor___is_default_closure_definition(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 106;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___is_default_closure_definition;
- 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;
- /* syntax/typing.nit:106 */
- REGB0 = TAG_Bool(ATTR_syntax___typing___TypingVisitor____is_default_closure_definition(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_is_default_closure_definition", LOCATE_syntax___typing, 106);
- }
- REGB0 = ATTR_syntax___typing___TypingVisitor____is_default_closure_definition(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-void syntax___typing___TypingVisitor___is_default_closure_definition__eq(val_t p0, val_t p1){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 106;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___is_default_closure_definition__eq;
- 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;
- REGB0 = p1;
- /* syntax/typing.nit:106 */
- ATTR_syntax___typing___TypingVisitor____is_default_closure_definition(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___TypingVisitor___once_count(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 109;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___once_count;
- 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;
- /* syntax/typing.nit:109 */
- REGB0 = TAG_Bool(ATTR_syntax___typing___TypingVisitor____once_count(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_once_count", LOCATE_syntax___typing, 109);
- }
- REGB0 = ATTR_syntax___typing___TypingVisitor____once_count(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-void syntax___typing___TypingVisitor___once_count__eq(val_t p0, val_t p1){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 109;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___once_count__eq;
- 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;
- REGB0 = p1;
- /* syntax/typing.nit:109 */
- ATTR_syntax___typing___TypingVisitor____once_count(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___TypingVisitor___init(val_t p0, val_t p1, val_t p2, int* init_table){
- int itpos0 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_syntax___typing___TypingVisitor].i;
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t tmp;
- if (init_table[itpos0]) return;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 112;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___init;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- fra.me.REG[2] = p2;
- /* syntax/typing.nit:112 */
- CALL_syntax___syntax_base___AbsSyntaxVisitor___init(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2], init_table);
- stack_frame_head = fra.me.prev;
- init_table[itpos0] = 1;
- return;
-}
-val_t syntax___typing___TypingVisitor___get_default_constructor_for(val_t p0, val_t p1, val_t p2, val_t p3){
- struct {struct stack_frame_t me; val_t MORE_REG[11];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- 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 */
- 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_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 */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 114;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___get_default_constructor_for;
- fra.me.has_broke = 0;
- fra.me.REG_size = 12;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[6] = NIT_NULL;
- fra.me.REG[7] = NIT_NULL;
- fra.me.REG[8] = NIT_NULL;
- fra.me.REG[9] = NIT_NULL;
- fra.me.REG[10] = NIT_NULL;
- fra.me.REG[11] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- fra.me.REG[2] = p2;
- fra.me.REG[3] = p3;
- /* syntax/typing.nit:114 */
- fra.me.REG[4] = fra.me.REG[0];
- /* syntax/typing.nit:116 */
- fra.me.REG[5] = fra.me.REG[4];
- /* syntax/typing.nit:119 */
- fra.me.REG[6] = NEW_Array_standard___collection___array___Array___init();
- /* syntax/typing.nit:120 */
- fra.me.REG[7] = NEW_Array_standard___collection___array___Array___init();
- /* syntax/typing.nit:121 */
- fra.me.REG[8] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[3])(fra.me.REG[3]);
- REGB0 = TAG_Bool(fra.me.REG[8]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 121);
- }
- REGB0 = CALL_metamodel___static_type___MMSignature___arity(fra.me.REG[8])(fra.me.REG[8]);
- fra.me.REG[8] = REGB0;
- /* syntax/typing.nit:122 */
- fra.me.REG[9] = CALL_metamodel___abstractmetamodel___MMLocalClass___global_properties(fra.me.REG[2])(fra.me.REG[2]);
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[9])(fra.me.REG[9], (&(fra.me)), ((fun_t)OC_syntax___typing___TypingVisitor___get_default_constructor_for_1));
- switch ((&(fra.me))->has_broke) {
- case 0: break;
- case 1: (&(fra.me))->has_broke = 0; goto label5;
- }
- /* ../lib/standard/collection/array.nit:24 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6]);
- /* syntax/typing.nit:141 */
- REGB1 = TAG_Int(1);
- REGB2 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB1));
- if (UNTAG_Bool(REGB2)) {
- } else {
- /* ../lib/standard/kernel.nit:227 */
- REGB1 = TAG_Bool((REGB0)==(REGB1));
- /* syntax/typing.nit:141 */
- REGB2 = REGB1;
- }
- if (UNTAG_Bool(REGB2)) {
- /* syntax/typing.nit:142 */
- fra.me.REG[3] = CALL_standard___collection___abstract_collection___Collection___first(fra.me.REG[6])(fra.me.REG[6]);
- fra.me.REG[9] = fra.me.REG[3];
- goto label5;
- } else {
- /* ../lib/standard/collection/array.nit:24 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6]);
- /* syntax/typing.nit:143 */
- REGB1 = TAG_Int(0);
- REGB0 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:234 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB2)>UNTAG_Int(REGB1));
- /* syntax/typing.nit:143 */
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:144 */
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___init();
- /* ../lib/standard/collection/array.nit:269 */
- REGB1 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:270 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 270);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6]);
- /* ../lib/standard/collection/array.nit:271 */
- fra.me.REG[8] = ATTR_standard___collection___array___Array____items(fra.me.REG[6]);
- /* ../lib/standard/collection/array.nit:272 */
- while(1) {
- /* ../lib/standard/collection/array.nit:24 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6]);
- REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB1)<UNTAG_Int(REGB2));
- /* ../lib/standard/collection/array.nit:272 */
- if (UNTAG_Bool(REGB2)) {
- /* ../lib/standard/collection/array.nit:273 */
- REGB2 = TAG_Bool(fra.me.REG[8]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- 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[8])->val[UNTAG_Int(REGB1)];
- /* syntax/typing.nit:146 */
- REGB2 = TAG_Int(5);
- fra.me.REG[10] = NEW_Array_standard___collection___array___Array___with_capacity(REGB2);
- if (!once_value_6) {
- fra.me.REG[11] = BOX_NativeString("");
- REGB2 = TAG_Int(0);
- fra.me.REG[11] = NEW_String_standard___string___String___with_native(fra.me.REG[11], REGB2);
- once_value_6 = fra.me.REG[11];
- register_static_object(&once_value_6);
- } else fra.me.REG[11] = once_value_6;
- fra.me.REG[11] = fra.me.REG[11];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[10])(fra.me.REG[10], fra.me.REG[11]);
- fra.me.REG[11] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[10])(fra.me.REG[10], fra.me.REG[11]);
- if (!once_value_7) {
- fra.me.REG[11] = BOX_NativeString("");
- REGB2 = TAG_Int(0);
- fra.me.REG[11] = NEW_String_standard___string___String___with_native(fra.me.REG[11], REGB2);
- once_value_7 = fra.me.REG[11];
- register_static_object(&once_value_7);
- } else fra.me.REG[11] = once_value_7;
- fra.me.REG[11] = fra.me.REG[11];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[10])(fra.me.REG[10], fra.me.REG[11]);
- fra.me.REG[4] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[4])(fra.me.REG[4]);
- REGB2 = TAG_Bool((fra.me.REG[4]!=NIT_NULL) && VAL_ISA(fra.me.REG[4], COLOR_metamodel___static_type___MMSignature, ID_metamodel___static_type___MMSignature)) /*cast MMSignature*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 146);
- }
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[10])(fra.me.REG[10], fra.me.REG[4]);
- if (!once_value_8) {
- fra.me.REG[4] = BOX_NativeString("");
- REGB2 = TAG_Int(0);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB2);
- once_value_8 = fra.me.REG[4];
- register_static_object(&once_value_8);
- } else fra.me.REG[4] = once_value_8;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[10])(fra.me.REG[10], fra.me.REG[4]);
- fra.me.REG[10] = CALL_standard___string___Object___to_s(fra.me.REG[10])(fra.me.REG[10]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[10]);
- /* ../lib/standard/collection/array.nit:274 */
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:235 */
- REGB2 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB2));
- /* ../lib/standard/collection/array.nit:274 */
- REGB1 = REGB2;
- } else {
- /* ../lib/standard/collection/array.nit:272 */
- goto label9;
- }
- }
- label9: while(0);
- /* syntax/typing.nit:148 */
- REGB1 = TAG_Int(5);
- fra.me.REG[8] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_10) {
- fra.me.REG[6] = BOX_NativeString("Error: Conflicting default constructor to call for ");
- REGB1 = TAG_Int(51);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB1);
- once_value_10 = fra.me.REG[6];
- register_static_object(&once_value_10);
- } else fra.me.REG[6] = once_value_10;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[6]);
- fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[6]);
- if (!once_value_11) {
- fra.me.REG[6] = BOX_NativeString(": ");
- REGB1 = TAG_Int(2);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB1);
- once_value_11 = fra.me.REG[6];
- register_static_object(&once_value_11);
- } else fra.me.REG[6] = once_value_11;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[6]);
- if (!once_value_12) {
- fra.me.REG[6] = BOX_NativeString(", ");
- REGB1 = TAG_Int(2);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB1);
- once_value_12 = fra.me.REG[6];
- register_static_object(&once_value_12);
- } else fra.me.REG[6] = once_value_12;
- fra.me.REG[6] = fra.me.REG[6];
- fra.me.REG[6] = CALL_standard___string___Collection___join(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[6]);
- if (!once_value_13) {
- fra.me.REG[6] = BOX_NativeString(".");
- REGB1 = TAG_Int(1);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB1);
- once_value_13 = fra.me.REG[6];
- register_static_object(&once_value_13);
- } else fra.me.REG[6] = once_value_13;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[6]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1], fra.me.REG[8]);
- /* syntax/typing.nit:149 */
- fra.me.REG[9] = NIT_NULL;
- goto label5;
- } else {
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=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[7]);
- /* syntax/typing.nit:150 */
- REGB2 = TAG_Int(0);
- REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:234 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB1)>UNTAG_Int(REGB2));
- /* syntax/typing.nit:150 */
- if (UNTAG_Bool(REGB2)) {
- /* syntax/typing.nit:151 */
- fra.me.REG[8] = NEW_Array_standard___collection___array___Array___init();
- /* ../lib/standard/collection/array.nit:269 */
- REGB2 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:270 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=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[7]);
- /* ../lib/standard/collection/array.nit:271 */
- fra.me.REG[6] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- /* ../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[7])!=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[7]);
- REGB0 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB2)<UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:272 */
- if (UNTAG_Bool(REGB1)) {
- /* ../lib/standard/collection/array.nit:273 */
- REGB1 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 273);
- }
- /* ../lib/standard/collection/array.nit:718 */
- fra.me.REG[3] = ((Nit_NativeArray)fra.me.REG[6])->val[UNTAG_Int(REGB2)];
- /* syntax/typing.nit:153 */
- REGB1 = TAG_Int(5);
- fra.me.REG[10] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_14) {
- fra.me.REG[4] = BOX_NativeString("");
- REGB1 = TAG_Int(0);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB1);
- once_value_14 = fra.me.REG[4];
- register_static_object(&once_value_14);
- } else fra.me.REG[4] = once_value_14;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[10])(fra.me.REG[10], fra.me.REG[4]);
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___full_name(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[10])(fra.me.REG[10], fra.me.REG[4]);
- if (!once_value_15) {
- fra.me.REG[4] = BOX_NativeString("");
- REGB1 = TAG_Int(0);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB1);
- once_value_15 = fra.me.REG[4];
- register_static_object(&once_value_15);
- } else fra.me.REG[4] = once_value_15;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[10])(fra.me.REG[10], fra.me.REG[4]);
- fra.me.REG[3] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[3])(fra.me.REG[3]);
- REGB1 = TAG_Bool((fra.me.REG[3]!=NIT_NULL) && VAL_ISA(fra.me.REG[3], COLOR_metamodel___static_type___MMSignature, ID_metamodel___static_type___MMSignature)) /*cast MMSignature*/;
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 153);
- }
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[10])(fra.me.REG[10], fra.me.REG[3]);
- if (!once_value_16) {
- fra.me.REG[3] = BOX_NativeString("");
- REGB1 = TAG_Int(0);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB1);
- once_value_16 = fra.me.REG[3];
- register_static_object(&once_value_16);
- } else fra.me.REG[3] = once_value_16;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[10])(fra.me.REG[10], fra.me.REG[3]);
- fra.me.REG[10] = CALL_standard___string___Object___to_s(fra.me.REG[10])(fra.me.REG[10]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[10]);
- /* ../lib/standard/collection/array.nit:274 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:235 */
- REGB1 = TAG_Int(UNTAG_Int(REGB2)+UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:274 */
- REGB2 = REGB1;
- } else {
- /* ../lib/standard/collection/array.nit:272 */
- goto label17;
- }
- }
- label17: while(0);
- /* syntax/typing.nit:155 */
- REGB2 = TAG_Int(5);
- fra.me.REG[0] = NEW_Array_standard___collection___array___Array___with_capacity(REGB2);
- if (!once_value_18) {
- fra.me.REG[6] = BOX_NativeString("Error: there is no available compatible constructor in ");
- REGB2 = TAG_Int(55);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB2);
- once_value_18 = fra.me.REG[6];
- register_static_object(&once_value_18);
- } else fra.me.REG[6] = once_value_18;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[6]);
- fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[6]);
- if (!once_value_19) {
- fra.me.REG[6] = BOX_NativeString(". Discarded candidates are ");
- REGB2 = TAG_Int(27);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB2);
- once_value_19 = fra.me.REG[6];
- register_static_object(&once_value_19);
- } else fra.me.REG[6] = once_value_19;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[6]);
- if (!once_value_20) {
- fra.me.REG[6] = BOX_NativeString(", ");
- REGB2 = TAG_Int(2);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB2);
- once_value_20 = fra.me.REG[6];
- register_static_object(&once_value_20);
- } else fra.me.REG[6] = once_value_20;
- fra.me.REG[6] = fra.me.REG[6];
- fra.me.REG[6] = CALL_standard___string___Collection___join(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[6]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[6]);
- if (!once_value_21) {
- fra.me.REG[6] = BOX_NativeString(".");
- REGB2 = TAG_Int(1);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB2);
- once_value_21 = fra.me.REG[6];
- register_static_object(&once_value_21);
- } else fra.me.REG[6] = once_value_21;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[6]);
- fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1], fra.me.REG[0]);
- /* syntax/typing.nit:156 */
- fra.me.REG[9] = NIT_NULL;
- goto label5;
- } else {
- /* syntax/typing.nit:158 */
- REGB2 = TAG_Int(3);
- fra.me.REG[0] = NEW_Array_standard___collection___array___Array___with_capacity(REGB2);
- if (!once_value_22) {
- fra.me.REG[6] = BOX_NativeString("Error: there is no available compatible constructor in ");
- REGB2 = TAG_Int(55);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB2);
- once_value_22 = fra.me.REG[6];
- register_static_object(&once_value_22);
- } else fra.me.REG[6] = once_value_22;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[6]);
- fra.me.REG[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[0])(fra.me.REG[0], fra.me.REG[2]);
- if (!once_value_23) {
- fra.me.REG[2] = BOX_NativeString(".");
- REGB2 = TAG_Int(1);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB2);
- once_value_23 = fra.me.REG[2];
- register_static_object(&once_value_23);
- } else fra.me.REG[2] = once_value_23;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
- fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1], fra.me.REG[0]);
- /* syntax/typing.nit:159 */
- fra.me.REG[9] = NIT_NULL;
- goto label5;
- }
- }
- }
- label5: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[9];
-}
- void OC_syntax___typing___TypingVisitor___get_default_constructor_for_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- fun_t CREG[1];
- val_t tmp;
- 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_syntax___typing;
- fra.me.line = 0;
- fra.me.meth = LOCATE_syntax___typing___TypingVisitor___get_default_constructor_for;
- 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;
- /* syntax/typing.nit:123 */
- REGB0 = CALL_metamodel___abstractmetamodel___MMGlobalProperty___is_init_for(fra.me.REG[0])(fra.me.REG[0], closctx->REG[2]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- goto label2;
- }
- /* syntax/typing.nit:124 */
- fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMLocalClass_____bra(closctx->REG[2])(closctx->REG[2], fra.me.REG[0]);
- /* syntax/typing.nit:125 */
- fra.me.REG[1] = CALL_metamodel___static_type___MMLocalClass___get_type(closctx->REG[2])(closctx->REG[2]);
- fra.me.REG[1] = CALL_metamodel___static_type___MMLocalProperty___signature_for(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* syntax/typing.nit:126 */
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[0], COLOR_syntax___syntax_base___MMSrcMethod, ID_syntax___syntax_base___MMSrcMethod)) /*cast MMSrcMethod*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_syntax___typing, 126);
- }
- /* syntax/typing.nit:127 */
- REGB0 = CALL_metamodel___static_type___MMSignature___arity(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:128 */
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalProperty___name(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___name(closctx->REG[3])(closctx->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)) {
- /* syntax/typing.nit:129 */
- REGB1 = TAG_Int(0);
- REGB2 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB1));
- if (UNTAG_Bool(REGB2)) {
- } else {
- /* ../lib/standard/kernel.nit:227 */
- REGB1 = TAG_Bool((REGB0)==(REGB1));
- /* syntax/typing.nit:129 */
- REGB2 = REGB1;
- }
- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Bool(true);
- } else {
- REGB1 = TAG_Bool(IS_EQUAL_OO(closctx->REG[8],REGB0));
- if (UNTAG_Bool(REGB1)) {
- } else {
- /* ../lib/standard/kernel.nit:227 */
- REGB3 = TAG_Bool((closctx->REG[8])==(REGB0));
- /* syntax/typing.nit:129 */
- REGB1 = REGB3;
- }
- if (UNTAG_Bool(REGB1)) {
- fra.me.REG[3] = CALL_metamodel___static_type___MMLocalProperty___signature(closctx->REG[3])(closctx->REG[3]);
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 129);
- }
- REGB1 = CALL_metamodel___static_type___MMSignature_____l(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]);
- } else {
- REGB3 = TAG_Bool(false);
- REGB1 = REGB3;
- }
- REGB2 = REGB1;
- }
- if (UNTAG_Bool(REGB2)) {
- /* syntax/typing.nit:130 */
- closctx->REG[9] = fra.me.REG[0];
- closctx->has_broke = 1;
- goto label2;
- } else {
- /* syntax/typing.nit:132 */
- CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx->REG[7])(closctx->REG[7], fra.me.REG[0]);
- }
- } else {
- /* syntax/typing.nit:134 */
- REGB2 = TAG_Int(0);
- REGB1 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB2));
- if (UNTAG_Bool(REGB1)) {
- } else {
- /* ../lib/standard/kernel.nit:227 */
- REGB2 = TAG_Bool((REGB0)==(REGB2));
- /* syntax/typing.nit:134 */
- REGB1 = REGB2;
- }
- if (UNTAG_Bool(REGB1)) {
- fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMLocalProperty___name(fra.me.REG[0])(fra.me.REG[0]);
- if (!once_value_3) {
- if (!once_value_4) {
- fra.me.REG[3] = BOX_NativeString("init");
- REGB1 = TAG_Int(4);
- 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[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;
- }
- } else {
- REGB2 = TAG_Bool(false);
- REGB1 = REGB2;
- }
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:135 */
- CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx->REG[6])(closctx->REG[6], fra.me.REG[0]);
- /* syntax/typing.nit:136 */
- CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx->REG[7])(closctx->REG[7], fra.me.REG[0]);
- } else {
- /* syntax/typing.nit:138 */
- CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx->REG[7])(closctx->REG[7], fra.me.REG[0]);
- }
- }
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return;
- }
-void syntax___typing___ANode___accept_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 168;
- fra.me.meth = LOCATE_syntax___typing___ANode___accept_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:170 */
- CALL_syntax___syntax_base___ANode___accept_abs_syntax_visitor(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* syntax/typing.nit:171 */
- CALL_syntax___typing___ANode___after_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___ANode___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 173;
- fra.me.meth = LOCATE_syntax___typing___ANode___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AClassdef___accept_typing(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 */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 177;
- fra.me.meth = LOCATE_syntax___typing___AClassdef___accept_typing;
- 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;
- /* syntax/typing.nit:177 */
- fra.me.REG[2] = fra.me.REG[0];
- fra.me.REG[3] = fra.me.REG[1];
- /* syntax/typing.nit:179 */
- if (!once_value_1) {
- fra.me.REG[4] = BOX_NativeString("self");
- REGB0 = TAG_Int(4);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_1 = fra.me.REG[4];
- register_static_object(&once_value_1);
- } else fra.me.REG[4] = once_value_1;
- fra.me.REG[4] = fra.me.REG[4];
- fra.me.REG[4] = CALL_standard___symbol___String___to_symbol(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[4] = NEW_ParamVariable_syntax___syntax_base___ParamVariable___init(fra.me.REG[4], fra.me.REG[2]);
- CALL_syntax___typing___TypingVisitor___self_var__eq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- /* syntax/typing.nit:180 */
- fra.me.REG[3] = CALL_syntax___typing___TypingVisitor___self_var(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[2] = CALL_syntax___syntax_base___AClassdef___local_class(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[2] = CALL_metamodel___static_type___MMLocalClass___get_type(fra.me.REG[2])(fra.me.REG[2]);
- CALL_syntax___syntax_base___Variable___stype__eq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- /* syntax/typing.nit:181 */
- CALL_SUPER_syntax___typing___AClassdef___accept_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___APropdef___self_var(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 186;
- fra.me.meth = LOCATE_syntax___typing___APropdef___self_var;
- 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;
- /* syntax/typing.nit:186 */
- fra.me.REG[1] = fra.me.REG[0];
- fra.me.REG[1] = ATTR_syntax___typing___APropdef____self_var(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[1]!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 186);
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-void syntax___typing___AAttrPropdef___accept_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 191;
- fra.me.meth = LOCATE_syntax___typing___AAttrPropdef___accept_typing;
- 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;
- /* syntax/typing.nit:191 */
- fra.me.REG[2] = fra.me.REG[0];
- fra.me.REG[3] = fra.me.REG[1];
- /* syntax/typing.nit:193 */
- fra.me.REG[4] = NEW_RootFlowContext_syntax___flow___RootFlowContext___init(fra.me.REG[3], fra.me.REG[2]);
- CALL_syntax___typing___TypingVisitor___flow_ctx__eq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- /* syntax/typing.nit:194 */
- fra.me.REG[4] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[3])(fra.me.REG[3]);
- CALL_syntax___typing___TypingVisitor___base_flow_ctx__eq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- /* syntax/typing.nit:196 */
- fra.me.REG[4] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[3])(fra.me.REG[3]);
- CALL_syntax___scope___ScopeContext___push(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
- /* syntax/typing.nit:197 */
- fra.me.REG[4] = CALL_syntax___typing___TypingVisitor___self_var(fra.me.REG[3])(fra.me.REG[3]);
- ATTR_syntax___typing___APropdef____self_var(fra.me.REG[2]) = fra.me.REG[4];
- /* syntax/typing.nit:198 */
- CALL_SUPER_syntax___typing___AAttrPropdef___accept_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* syntax/typing.nit:199 */
- fra.me.REG[1] = CALL_parser___parser_nodes___AAttrPropdef___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- 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(false);
- 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)) {
- /* syntax/typing.nit:200 */
- fra.me.REG[1] = CALL_parser___parser_nodes___AAttrPropdef___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool((fra.me.REG[1]!=NIT_NULL) && VAL_ISA(fra.me.REG[1], COLOR_parser___parser_nodes___AExpr, ID_parser___parser_nodes___AExpr)) /*cast AExpr*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 200);
- }
- fra.me.REG[2] = CALL_syntax___syntax_base___AAttrPropdef___prop(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[2] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 200);
- }
- fra.me.REG[2] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool((fra.me.REG[2]!=NIT_NULL) && VAL_ISA(fra.me.REG[2], COLOR_metamodel___static_type___MMType, ID_metamodel___static_type___MMType)) /*cast MMType*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 200);
- }
- CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_expr(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1], fra.me.REG[2]);
- }
- /* syntax/typing.nit:202 */
- fra.me.REG[3] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[3])(fra.me.REG[3]);
- CALL_syntax___scope___ScopeContext___pop(fra.me.REG[3])(fra.me.REG[3]);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AMethPropdef___accept_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 207;
- fra.me.meth = LOCATE_syntax___typing___AMethPropdef___accept_typing;
- 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;
- /* syntax/typing.nit:207 */
- fra.me.REG[2] = fra.me.REG[0];
- fra.me.REG[3] = fra.me.REG[1];
- /* syntax/typing.nit:209 */
- fra.me.REG[4] = NEW_RootFlowContext_syntax___flow___RootFlowContext___init(fra.me.REG[3], fra.me.REG[2]);
- CALL_syntax___typing___TypingVisitor___flow_ctx__eq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- /* syntax/typing.nit:210 */
- fra.me.REG[4] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[3])(fra.me.REG[3]);
- CALL_syntax___typing___TypingVisitor___base_flow_ctx__eq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- /* syntax/typing.nit:212 */
- fra.me.REG[4] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[3])(fra.me.REG[3]);
- CALL_syntax___scope___ScopeContext___push(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
- /* syntax/typing.nit:213 */
- fra.me.REG[4] = CALL_syntax___typing___TypingVisitor___self_var(fra.me.REG[3])(fra.me.REG[3]);
- ATTR_syntax___typing___APropdef____self_var(fra.me.REG[2]) = fra.me.REG[4];
- /* syntax/typing.nit:214 */
- CALL_SUPER_syntax___typing___AMethPropdef___accept_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* syntax/typing.nit:215 */
- fra.me.REG[3] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[3])(fra.me.REG[3]);
- CALL_syntax___scope___ScopeContext___pop(fra.me.REG[3])(fra.me.REG[3]);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AConcreteMethPropdef___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 220;
- fra.me.meth = LOCATE_syntax___typing___AConcreteMethPropdef___after_typing;
- 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;
- /* syntax/typing.nit:220 */
- fra.me.REG[2] = fra.me.REG[0];
- fra.me.REG[3] = fra.me.REG[1];
- /* syntax/typing.nit:222 */
- CALL_SUPER_syntax___typing___AConcreteMethPropdef___after_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* syntax/typing.nit:223 */
- fra.me.REG[1] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[3])(fra.me.REG[3]);
- REGB0 = CALL_syntax___flow___FlowContext___unreash(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- fra.me.REG[1] = CALL_syntax___syntax_base___AMethPropdef___method(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[1] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 223);
- }
- fra.me.REG[1] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- 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));
- } else {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:224 */
- if (!once_value_1) {
- fra.me.REG[1] = BOX_NativeString("Control error: Reached end of function (a 'return' with a value was expected).");
- REGB0 = TAG_Int(78);
- fra.me.REG[1] = NEW_String_standard___string___String___with_native(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];
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2], fra.me.REG[1]);
- }
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AConcreteInitPropdef___accept_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 230;
- fra.me.meth = LOCATE_syntax___typing___AConcreteInitPropdef___accept_typing;
- 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;
- /* syntax/typing.nit:230 */
- fra.me.REG[2] = fra.me.REG[0];
- fra.me.REG[3] = fra.me.REG[1];
- /* syntax/typing.nit:232 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AConcreteMethPropdef___n_block(fra.me.REG[2])(fra.me.REG[2]);
- CALL_syntax___typing___TypingVisitor___top_block__eq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- /* syntax/typing.nit:233 */
- fra.me.REG[2] = CALL_syntax___syntax_base___AConcreteInitPropdef___explicit_super_init_calls(fra.me.REG[2])(fra.me.REG[2]);
- CALL_syntax___typing___TypingVisitor___explicit_super_init_calls__eq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- /* syntax/typing.nit:234 */
- REGB0 = TAG_Bool(false);
- CALL_syntax___typing___TypingVisitor___explicit_other_init_call__eq(fra.me.REG[3])(fra.me.REG[3], REGB0);
- /* syntax/typing.nit:235 */
- CALL_SUPER_syntax___typing___AConcreteInitPropdef___accept_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AConcreteInitPropdef___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[7];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t REGB4;
- val_t REGB5;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 238;
- fra.me.meth = LOCATE_syntax___typing___AConcreteInitPropdef___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 8;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[6] = NIT_NULL;
- fra.me.REG[7] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:238 */
- fra.me.REG[2] = fra.me.REG[0];
- fra.me.REG[3] = fra.me.REG[1];
- /* syntax/typing.nit:240 */
- CALL_SUPER_syntax___typing___AConcreteInitPropdef___after_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* syntax/typing.nit:241 */
- REGB0 = CALL_syntax___typing___TypingVisitor___explicit_other_init_call(fra.me.REG[3])(fra.me.REG[3]);
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(true);
- } else {
- fra.me.REG[1] = CALL_syntax___syntax_base___AMethPropdef___method(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___intro(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[4] = CALL_syntax___syntax_base___AMethPropdef___method(fra.me.REG[2])(fra.me.REG[2]);
- REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[1],fra.me.REG[4]));
- if (UNTAG_Bool(REGB1)) {
- } else {
- REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
- REGB1 = REGB2;
- }
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- } else {
- /* syntax/typing.nit:244 */
- REGB0 = TAG_Int(0);
- /* syntax/typing.nit:245 */
- fra.me.REG[4] = CALL_syntax___syntax_base___AConcreteInitPropdef___explicit_super_init_calls(fra.me.REG[2])(fra.me.REG[2]);
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4]);
- /* syntax/typing.nit:246 */
- fra.me.REG[4] = NIT_NULL;
- /* syntax/typing.nit:247 */
- fra.me.REG[1] = NIT_NULL;
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
- /* syntax/typing.nit:248 */
- if (UNTAG_Bool(REGB2)) {
- /* syntax/typing.nit:249 */
- fra.me.REG[5] = CALL_syntax___syntax_base___AConcreteInitPropdef___explicit_super_init_calls(fra.me.REG[2])(fra.me.REG[2]);
- /* ../lib/standard/collection/array.nit:278 */
- REGB2 = REGB0;
- /* ../lib/standard/collection/array.nit:280 */
- REGB3 = TAG_Int(0);
- REGB4 = TAG_Bool(VAL_ISA(REGB3, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:233 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB2)>=UNTAG_Int(REGB3));
- /* ../lib/standard/collection/array.nit:280 */
- if (UNTAG_Bool(REGB3)) {
- REGB3 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[5])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 280);
- }
- REGB3 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[5]);
- REGB4 = TAG_Bool(VAL_ISA(REGB3, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB2)<UNTAG_Int(REGB3));
- } else {
- /* ../lib/standard/collection/array.nit:280 */
- REGB4 = TAG_Bool(false);
- REGB3 = REGB4;
- }
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 280);
- }
- /* ../lib/standard/collection/array.nit:281 */
- fra.me.REG[5] = ATTR_standard___collection___array___Array____items(fra.me.REG[5]);
- REGB3 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:718 */
- fra.me.REG[5] = ((Nit_NativeArray)fra.me.REG[5])->val[UNTAG_Int(REGB2)];
- /* ../lib/standard/collection/array.nit:281 */
- goto label1;
- label1: while(0);
- /* syntax/typing.nit:249 */
- fra.me.REG[4] = fra.me.REG[5];
- /* syntax/typing.nit:250 */
- REGB2 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 250);
- }
- fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___intro(fra.me.REG[5])(fra.me.REG[5]);
- fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalProperty___local_class(fra.me.REG[5])(fra.me.REG[5]);
- fra.me.REG[6] = CALL_syntax___syntax_base___AbsSyntaxVisitor___mmmodule(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[6] = CALL_metamodel___abstractmetamodel___MMLocalClass___for_module(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
- fra.me.REG[1] = fra.me.REG[6];
- }
- /* syntax/typing.nit:252 */
- REGB2 = TAG_Int(0);
- /* syntax/typing.nit:253 */
- while(1) {
- fra.me.REG[6] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_class(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[6] = CALL_metamodel___abstractmetamodel___MMLocalClass___cshe(fra.me.REG[6])(fra.me.REG[6]);
- fra.me.REG[6] = CALL_metamodel___partial_order___PartialOrderElement___direct_greaters(fra.me.REG[6])(fra.me.REG[6]);
- /* ../lib/standard/collection/array.nit:24 */
- REGB3 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB3 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6]);
- REGB4 = TAG_Bool(VAL_ISA(REGB3, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB2)<UNTAG_Int(REGB3));
- /* syntax/typing.nit:253 */
- if (UNTAG_Bool(REGB3)) {
- /* syntax/typing.nit:254 */
- fra.me.REG[6] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_class(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[6] = CALL_metamodel___abstractmetamodel___MMLocalClass___cshe(fra.me.REG[6])(fra.me.REG[6]);
- fra.me.REG[6] = CALL_metamodel___partial_order___PartialOrderElement___direct_greaters(fra.me.REG[6])(fra.me.REG[6]);
- /* ../lib/standard/collection/array.nit:278 */
- REGB3 = REGB2;
- /* ../lib/standard/collection/array.nit:280 */
- REGB4 = TAG_Int(0);
- REGB5 = TAG_Bool(VAL_ISA(REGB4, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3), VTID_standard___kernel___Comparable___OTHER(REGB3))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB5)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:233 */
- REGB4 = TAG_Bool(UNTAG_Int(REGB3)>=UNTAG_Int(REGB4));
- /* ../lib/standard/collection/array.nit:280 */
- if (UNTAG_Bool(REGB4)) {
- REGB4 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6])!=NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 280);
- }
- REGB4 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6]);
- REGB5 = TAG_Bool(VAL_ISA(REGB4, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3), VTID_standard___kernel___Comparable___OTHER(REGB3))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB5)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB4 = TAG_Bool(UNTAG_Int(REGB3)<UNTAG_Int(REGB4));
- } else {
- /* ../lib/standard/collection/array.nit:280 */
- REGB5 = TAG_Bool(false);
- REGB4 = REGB5;
- }
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 280);
- }
- /* ../lib/standard/collection/array.nit:281 */
- fra.me.REG[6] = ATTR_standard___collection___array___Array____items(fra.me.REG[6]);
- REGB4 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:718 */
- fra.me.REG[6] = ((Nit_NativeArray)fra.me.REG[6])->val[UNTAG_Int(REGB3)];
- /* ../lib/standard/collection/array.nit:281 */
- goto label2;
- label2: while(0);
- /* syntax/typing.nit:255 */
- fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[6])(fra.me.REG[6]);
- REGB3 = CALL_metamodel___abstractmetamodel___MMGlobalClass___is_interface(fra.me.REG[5])(fra.me.REG[5]);
- if (UNTAG_Bool(REGB3)) {
- REGB3 = TAG_Bool(true);
- } else {
- fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[6])(fra.me.REG[6]);
- REGB4 = CALL_metamodel___abstractmetamodel___MMGlobalClass___is_enum(fra.me.REG[5])(fra.me.REG[5]);
- REGB3 = REGB4;
- }
- if (UNTAG_Bool(REGB3)) {
- REGB3 = TAG_Bool(true);
- } else {
- fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[6])(fra.me.REG[6]);
- REGB4 = CALL_metamodel___abstractmetamodel___MMGlobalClass___is_extern(fra.me.REG[5])(fra.me.REG[5]);
- REGB3 = REGB4;
- }
- if (UNTAG_Bool(REGB3)) {
- REGB3 = TAG_Bool(true);
- } else {
- fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[6])(fra.me.REG[6]);
- REGB4 = CALL_metamodel___abstractmetamodel___MMGlobalClass___is_mixin(fra.me.REG[5])(fra.me.REG[5]);
- REGB3 = REGB4;
- }
- if (UNTAG_Bool(REGB3)) {
- /* syntax/typing.nit:256 */
- REGB3 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:235 */
- REGB3 = TAG_Int(UNTAG_Int(REGB2)+UNTAG_Int(REGB3));
- /* syntax/typing.nit:256 */
- REGB2 = REGB3;
- } else {
- /* syntax/typing.nit:257 */
- REGB3 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- REGB4 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- REGB4 = TAG_Bool(false);
- REGB3 = REGB4;
- } else {
- REGB4 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], NIT_NULL);
- REGB3 = REGB4;
- }
- }
- REGB3 = TAG_Bool(!UNTAG_Bool(REGB3));
- if (UNTAG_Bool(REGB3)) {
- fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalClass___cshe(fra.me.REG[6])(fra.me.REG[6]);
- REGB3 = CALL_metamodel___partial_order___PartialOrderElement_____leq(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1]);
- if (UNTAG_Bool(REGB3)) {
- REGB3 = TAG_Bool(true);
- } else {
- REGB4 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 257);
- }
- fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[1])(fra.me.REG[1]);
- REGB4 = CALL_metamodel___abstractmetamodel___MMGlobalClass___is_mixin(fra.me.REG[5])(fra.me.REG[5]);
- REGB3 = REGB4;
- }
- } else {
- REGB4 = TAG_Bool(false);
- REGB3 = REGB4;
- }
- if (UNTAG_Bool(REGB3)) {
- /* syntax/typing.nit:258 */
- REGB3 = TAG_Bool(IS_EQUAL_ON(fra.me.REG[6],fra.me.REG[1]));
- if (UNTAG_Bool(REGB3)) {
- } else {
- REGB4 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[1]);
- REGB3 = REGB4;
- }
- if (UNTAG_Bool(REGB3)) {
- REGB3 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:235 */
- REGB3 = TAG_Int(UNTAG_Int(REGB2)+UNTAG_Int(REGB3));
- /* syntax/typing.nit:258 */
- REGB2 = REGB3;
- }
- /* syntax/typing.nit:259 */
- fra.me.REG[5] = CALL_syntax___syntax_base___AConcreteInitPropdef___super_init_calls(fra.me.REG[2])(fra.me.REG[2]);
- REGB3 = TAG_Bool(fra.me.REG[4]!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 259);
- }
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- /* syntax/typing.nit:260 */
- REGB3 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:235 */
- REGB3 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB3));
- /* syntax/typing.nit:260 */
- REGB0 = REGB3;
- REGB3 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
- /* syntax/typing.nit:261 */
- if (UNTAG_Bool(REGB3)) {
- /* syntax/typing.nit:262 */
- fra.me.REG[5] = CALL_syntax___syntax_base___AConcreteInitPropdef___explicit_super_init_calls(fra.me.REG[2])(fra.me.REG[2]);
- /* ../lib/standard/collection/array.nit:278 */
- REGB3 = REGB0;
- /* ../lib/standard/collection/array.nit:280 */
- REGB4 = TAG_Int(0);
- REGB5 = TAG_Bool(VAL_ISA(REGB4, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3), VTID_standard___kernel___Comparable___OTHER(REGB3))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB5)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:233 */
- REGB4 = TAG_Bool(UNTAG_Int(REGB3)>=UNTAG_Int(REGB4));
- /* ../lib/standard/collection/array.nit:280 */
- if (UNTAG_Bool(REGB4)) {
- REGB4 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[5])!=NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 280);
- }
- REGB4 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[5]);
- REGB5 = TAG_Bool(VAL_ISA(REGB4, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3), VTID_standard___kernel___Comparable___OTHER(REGB3))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB5)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB4 = TAG_Bool(UNTAG_Int(REGB3)<UNTAG_Int(REGB4));
- } else {
- /* ../lib/standard/collection/array.nit:280 */
- REGB5 = TAG_Bool(false);
- REGB4 = REGB5;
- }
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 280);
- }
- /* ../lib/standard/collection/array.nit:281 */
- fra.me.REG[5] = ATTR_standard___collection___array___Array____items(fra.me.REG[5]);
- REGB4 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:718 */
- fra.me.REG[5] = ((Nit_NativeArray)fra.me.REG[5])->val[UNTAG_Int(REGB3)];
- /* ../lib/standard/collection/array.nit:281 */
- goto label3;
- label3: while(0);
- /* syntax/typing.nit:262 */
- fra.me.REG[4] = fra.me.REG[5];
- /* syntax/typing.nit:263 */
- REGB3 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 263);
- }
- fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___intro(fra.me.REG[5])(fra.me.REG[5]);
- fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalProperty___local_class(fra.me.REG[5])(fra.me.REG[5]);
- fra.me.REG[7] = CALL_syntax___syntax_base___AbsSyntaxVisitor___mmmodule(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[7] = CALL_metamodel___abstractmetamodel___MMLocalClass___for_module(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[7]);
- fra.me.REG[1] = fra.me.REG[7];
- } else {
- /* syntax/typing.nit:265 */
- fra.me.REG[4] = NIT_NULL;
- /* syntax/typing.nit:266 */
- fra.me.REG[1] = NIT_NULL;
- }
- } else {
- /* syntax/typing.nit:269 */
- fra.me.REG[7] = CALL_syntax___syntax_base___AMethPropdef___method(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[7] = CALL_syntax___typing___TypingVisitor___get_default_constructor_for(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2], fra.me.REG[6], fra.me.REG[7]);
- /* syntax/typing.nit:270 */
- REGB3 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- REGB4 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- REGB4 = TAG_Bool(false);
- REGB3 = REGB4;
- } else {
- REGB4 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[7])(fra.me.REG[7], NIT_NULL);
- REGB3 = REGB4;
- }
- }
- REGB3 = TAG_Bool(!UNTAG_Bool(REGB3));
- if (UNTAG_Bool(REGB3)) {
- /* syntax/typing.nit:271 */
- fra.me.REG[6] = CALL_syntax___syntax_base___AConcreteInitPropdef___super_init_calls(fra.me.REG[2])(fra.me.REG[2]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
- }
- /* syntax/typing.nit:273 */
- REGB3 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:235 */
- REGB3 = TAG_Int(UNTAG_Int(REGB2)+UNTAG_Int(REGB3));
- /* syntax/typing.nit:273 */
- REGB2 = REGB3;
- }
- }
- } else {
- /* syntax/typing.nit:253 */
- goto label4;
- }
- }
- label4: while(0);
- }
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AExternInitPropdef___accept_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 281;
- fra.me.meth = LOCATE_syntax___typing___AExternInitPropdef___accept_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:281 */
- fra.me.REG[2] = fra.me.REG[1];
- /* syntax/typing.nit:283 */
- REGB0 = TAG_Bool(false);
- CALL_syntax___typing___TypingVisitor___explicit_other_init_call__eq(fra.me.REG[2])(fra.me.REG[2], REGB0);
- /* syntax/typing.nit:284 */
- CALL_SUPER_syntax___typing___AExternInitPropdef___accept_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AExternInitPropdef___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 286;
- fra.me.meth = LOCATE_syntax___typing___AExternInitPropdef___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:288 */
- CALL_SUPER_syntax___typing___AExternInitPropdef___after_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___ASignature___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 293;
- fra.me.meth = LOCATE_syntax___typing___ASignature___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:295 */
- fra.me.REG[2] = CALL_parser___parser_nodes___ASignature___n_opar(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(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- fra.me.REG[2] = CALL_parser___parser_nodes___ASignature___n_params(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_standard___collection___abstract_collection___Collection___is_empty(fra.me.REG[2])(fra.me.REG[2]);
- } else {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:296 */
- if (!once_value_1) {
- fra.me.REG[2] = BOX_NativeString("Warning: superfluous parentheses.");
- REGB0 = TAG_Int(33);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_1 = fra.me.REG[2];
- register_static_object(&once_value_1);
- } else fra.me.REG[2] = once_value_1;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_syntax___syntax_base___AbsSyntaxVisitor___warning(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[2]);
- }
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AParam___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 302;
- fra.me.meth = LOCATE_syntax___typing___AParam___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:304 */
- fra.me.REG[1] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[0] = CALL_syntax___syntax_base___AParam___variable(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___scope___ScopeContext___add_variable(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___AClosureDecl___escapable(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 309;
- fra.me.meth = LOCATE_syntax___typing___AClosureDecl___escapable;
- 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;
- /* syntax/typing.nit:309 */
- fra.me.REG[0] = ATTR_syntax___typing___AClosureDecl____escapable(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void syntax___typing___AClosureDecl___accept_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[9];} 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_syntax___typing;
- fra.me.line = 312;
- fra.me.meth = LOCATE_syntax___typing___AClosureDecl___accept_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 10;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[6] = NIT_NULL;
- fra.me.REG[7] = NIT_NULL;
- fra.me.REG[8] = NIT_NULL;
- fra.me.REG[9] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:312 */
- fra.me.REG[2] = fra.me.REG[0];
- fra.me.REG[3] = fra.me.REG[1];
- /* syntax/typing.nit:315 */
- fra.me.REG[4] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[5] = CALL_syntax___syntax_base___AClosureDecl___variable(fra.me.REG[2])(fra.me.REG[2]);
- CALL_syntax___scope___ScopeContext___add_variable(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- /* syntax/typing.nit:317 */
- fra.me.REG[5] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[3])(fra.me.REG[3]);
- /* syntax/typing.nit:318 */
- fra.me.REG[4] = CALL_syntax___typing___TypingVisitor___base_flow_ctx(fra.me.REG[3])(fra.me.REG[3]);
- /* syntax/typing.nit:319 */
- fra.me.REG[6] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[3])(fra.me.REG[3]);
- CALL_syntax___typing___TypingVisitor___base_flow_ctx__eq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[6]);
- /* syntax/typing.nit:321 */
- fra.me.REG[6] = NIT_NULL;
- /* syntax/typing.nit:322 */
- fra.me.REG[7] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[7] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[7])(fra.me.REG[7]);
- REGB0 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 322);
- }
- fra.me.REG[7] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[7])(fra.me.REG[7]);
- /* syntax/typing.nit:323 */
- REGB0 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[7])(fra.me.REG[7], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- fra.me.REG[8] = NEW_Array_standard___collection___array___Array___init();
- fra.me.REG[6] = fra.me.REG[8];
- }
- /* syntax/typing.nit:324 */
- fra.me.REG[8] = CALL_syntax___syntax_base___AClosureDecl___variable(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[8] = CALL_syntax___syntax_base___ClosureVariable___closure(fra.me.REG[8])(fra.me.REG[8]);
- fra.me.REG[8] = NEW_EscapableClosure_syntax___scope___EscapableClosure___init(fra.me.REG[2], fra.me.REG[8], fra.me.REG[6]);
- /* syntax/typing.nit:325 */
- ATTR_syntax___typing___AClosureDecl____escapable(fra.me.REG[2]) = fra.me.REG[8];
- /* syntax/typing.nit:326 */
- fra.me.REG[9] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[3])(fra.me.REG[3]);
- CALL_syntax___scope___ScopeContext___push_escapable(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[8], NIT_NULL);
- /* syntax/typing.nit:328 */
- REGB0 = TAG_Bool(true);
- CALL_syntax___typing___TypingVisitor___is_default_closure_definition__eq(fra.me.REG[3])(fra.me.REG[3], REGB0);
- /* syntax/typing.nit:330 */
- CALL_SUPER_syntax___typing___AClosureDecl___accept_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* syntax/typing.nit:332 */
- REGB0 = TAG_Bool(false);
- CALL_syntax___typing___TypingVisitor___is_default_closure_definition__eq(fra.me.REG[3])(fra.me.REG[3], REGB0);
- /* syntax/typing.nit:334 */
- fra.me.REG[1] = CALL_parser___parser_nodes___AClosureDecl___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- 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(false);
- 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)) {
- /* syntax/typing.nit:335 */
- fra.me.REG[1] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[3])(fra.me.REG[3]);
- REGB0 = CALL_syntax___flow___FlowContext___unreash(fra.me.REG[1])(fra.me.REG[1]);
- REGB1 = TAG_Bool(false);
- REGB2 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB1));
- if (UNTAG_Bool(REGB2)) {
- } else {
- /* ../lib/standard/kernel.nit:195 */
- REGB1 = TAG_Bool((REGB0)==(REGB1));
- /* syntax/typing.nit:335 */
- REGB2 = REGB1;
- }
- if (UNTAG_Bool(REGB2)) {
- /* syntax/typing.nit:336 */
- fra.me.REG[1] = CALL_syntax___syntax_base___AClosureDecl___variable(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[1] = CALL_syntax___syntax_base___ClosureVariable___closure(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[1] = CALL_metamodel___static_type___MMClosure___signature(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[1] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[1])(fra.me.REG[1]);
- REGB2 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB2 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], NIT_NULL);
- REGB2 = REGB1;
- }
- }
- REGB2 = TAG_Bool(!UNTAG_Bool(REGB2));
- if (UNTAG_Bool(REGB2)) {
- /* syntax/typing.nit:337 */
- if (!once_value_1) {
- fra.me.REG[1] = BOX_NativeString("Control error: Reached end of block (a 'continue' with a value was expected).");
- REGB2 = TAG_Int(77);
- fra.me.REG[1] = NEW_String_standard___string___String___with_native(fra.me.REG[1], REGB2);
- 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_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2], fra.me.REG[1]);
- } else {
- /* syntax/typing.nit:338 */
- fra.me.REG[1] = CALL_syntax___syntax_base___AClosureDecl___variable(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[1] = CALL_syntax___syntax_base___ClosureVariable___closure(fra.me.REG[1])(fra.me.REG[1]);
- REGB2 = CALL_metamodel___static_type___MMClosure___is_break(fra.me.REG[1])(fra.me.REG[1]);
- if (UNTAG_Bool(REGB2)) {
- fra.me.REG[8] = CALL_syntax___scope___EscapableBlock___break_list(fra.me.REG[8])(fra.me.REG[8]);
- REGB2 = TAG_Bool(fra.me.REG[8]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[8]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB2 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[8])(fra.me.REG[8], NIT_NULL);
- REGB2 = REGB1;
- }
- }
- REGB2 = TAG_Bool(!UNTAG_Bool(REGB2));
- } else {
- REGB1 = TAG_Bool(false);
- REGB2 = REGB1;
- }
- if (UNTAG_Bool(REGB2)) {
- /* syntax/typing.nit:339 */
- if (!once_value_2) {
- fra.me.REG[8] = BOX_NativeString("Control error: Reached end of break block (a 'break' with a value was expected).");
- REGB2 = TAG_Int(80);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB2);
- once_value_2 = fra.me.REG[8];
- register_static_object(&once_value_2);
- } else fra.me.REG[8] = once_value_2;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2], fra.me.REG[8]);
- }
- }
- }
- }
- /* syntax/typing.nit:343 */
- REGB2 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB2 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[6])(fra.me.REG[6], NIT_NULL);
- REGB2 = REGB1;
- }
- }
- REGB2 = TAG_Bool(!UNTAG_Bool(REGB2));
- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 343);
- }
- /* ../lib/standard/collection/array.nit:269 */
- REGB2 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:270 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6])!=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[6]);
- /* ../lib/standard/collection/array.nit:271 */
- fra.me.REG[8] = ATTR_standard___collection___array___Array____items(fra.me.REG[6]);
- /* ../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[6])!=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[6]);
- REGB0 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB2)<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[8]==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[2] = ((Nit_NativeArray)fra.me.REG[8])->val[UNTAG_Int(REGB2)];
- /* syntax/typing.nit:344 */
- CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_expr(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2], fra.me.REG[7]);
- /* ../lib/standard/collection/array.nit:274 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:235 */
- REGB1 = TAG_Int(UNTAG_Int(REGB2)+UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:274 */
- REGB2 = REGB1;
- } else {
- /* ../lib/standard/collection/array.nit:272 */
- goto label3;
- }
- }
- label3: while(0);
- }
- /* syntax/typing.nit:347 */
- CALL_syntax___typing___TypingVisitor___flow_ctx__eq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
- /* syntax/typing.nit:348 */
- CALL_syntax___typing___TypingVisitor___base_flow_ctx__eq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- /* syntax/typing.nit:349 */
- fra.me.REG[3] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[3])(fra.me.REG[3]);
- CALL_syntax___scope___ScopeContext___pop(fra.me.REG[3])(fra.me.REG[3]);
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___AType___stype(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 354;
- fra.me.meth = LOCATE_syntax___typing___AType___stype;
- 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;
- /* syntax/typing.nit:354 */
- fra.me.REG[1] = fra.me.REG[0];
- fra.me.REG[1] = ATTR_syntax___typing___AType____stype(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[1]!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 354);
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-val_t syntax___typing___AType___is_typed(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 355;
- fra.me.meth = LOCATE_syntax___typing___AType___is_typed;
- 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;
- /* syntax/typing.nit:355 */
- fra.me.REG[0] = ATTR_syntax___typing___AType____stype(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-void syntax___typing___AType___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 358;
- fra.me.meth = LOCATE_syntax___typing___AType___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:360 */
- fra.me.REG[1] = CALL_syntax___syntax_base___AType___get_stype(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- ATTR_syntax___typing___AType____stype(fra.me.REG[0]) = fra.me.REG[1];
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___AExpr___is_typed(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 365;
- fra.me.meth = LOCATE_syntax___typing___AExpr___is_typed;
- 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;
- /* syntax/typing.nit:365 */
- REGB0 = TAG_Bool(ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_is_typed", LOCATE_syntax___typing, 365);
- }
- REGB0 = ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-val_t syntax___typing___AExpr___is_statement(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 366;
- fra.me.meth = LOCATE_syntax___typing___AExpr___is_statement;
- 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;
- /* syntax/typing.nit:366 */
- fra.me.REG[0] = ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-val_t syntax___typing___AExpr___stype(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 */
- 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_syntax___typing;
- fra.me.line = 367;
- fra.me.meth = LOCATE_syntax___typing___AExpr___stype;
- 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;
- /* syntax/typing.nit:367 */
- fra.me.REG[1] = fra.me.REG[0];
- /* syntax/typing.nit:369 */
- REGB0 = CALL_syntax___syntax_base___AExpr___is_typed(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:370 */
- REGB0 = TAG_Int(3);
- 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]);
- fra.me.REG[3] = CALL_parser___parser_nodes___ANode___location(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- if (!once_value_2) {
- fra.me.REG[3] = BOX_NativeString(": not is_typed");
- REGB0 = TAG_Int(14);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_2 = fra.me.REG[3];
- register_static_object(&once_value_2);
- } else fra.me.REG[3] = once_value_2;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
- CALL_standard___file___Object___print(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* syntax/typing.nit:371 */
- nit_abort("Aborted", NULL, LOCATE_syntax___typing, 371);
- }
- /* syntax/typing.nit:373 */
- REGB0 = CALL_syntax___syntax_base___AExpr___is_statement(fra.me.REG[1])(fra.me.REG[1]);
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:374 */
- REGB0 = TAG_Int(3);
- fra.me.REG[2] = NEW_Array_standard___collection___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_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_3 = fra.me.REG[3];
- register_static_object(&once_value_3);
- } else fra.me.REG[3] = once_value_3;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- fra.me.REG[3] = CALL_parser___parser_nodes___ANode___location(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- if (!once_value_4) {
- fra.me.REG[3] = BOX_NativeString(": is_statement");
- REGB0 = TAG_Int(14);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_4 = fra.me.REG[3];
- register_static_object(&once_value_4);
- } else fra.me.REG[3] = once_value_4;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
- CALL_standard___file___Object___print(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* syntax/typing.nit:375 */
- nit_abort("Aborted", NULL, LOCATE_syntax___typing, 375);
- }
- /* syntax/typing.nit:377 */
- fra.me.REG[1] = ATTR_syntax___typing___AExpr____stype(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[1]!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 377);
- }
- goto label5;
- label5: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-void syntax___typing___AExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 381;
- fra.me.meth = LOCATE_syntax___typing___AExpr___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:384 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___AExpr___is_implicit_self(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 387;
- fra.me.meth = LOCATE_syntax___typing___AExpr___is_implicit_self;
- 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;
- /* syntax/typing.nit:388 */
- REGB0 = TAG_Bool(false);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-val_t syntax___typing___AExpr___is_self(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 390;
- fra.me.meth = LOCATE_syntax___typing___AExpr___is_self;
- 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;
- /* syntax/typing.nit:391 */
- REGB0 = TAG_Bool(false);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-val_t syntax___typing___AExpr___its_variable(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 393;
- fra.me.meth = LOCATE_syntax___typing___AExpr___its_variable;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:394 */
- fra.me.REG[0] = NIT_NULL;
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___AExpr___if_true_flow_ctx(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 396;
- fra.me.meth = LOCATE_syntax___typing___AExpr___if_true_flow_ctx;
- 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;
- /* syntax/typing.nit:396 */
- fra.me.REG[0] = ATTR_syntax___typing___AExpr____if_true_flow_ctx(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___AExpr___if_false_flow_ctx(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 399;
- fra.me.meth = LOCATE_syntax___typing___AExpr___if_false_flow_ctx;
- 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;
- /* syntax/typing.nit:399 */
- fra.me.REG[0] = ATTR_syntax___typing___AExpr____if_false_flow_ctx(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void syntax___typing___AExpr___warn_parentheses(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 402;
- fra.me.meth = LOCATE_syntax___typing___AExpr___warn_parentheses;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AParExpr___warn_parentheses(val_t p0, val_t p1){
- 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 */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 409;
- fra.me.meth = LOCATE_syntax___typing___AParExpr___warn_parentheses;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:411 */
- if (!once_value_1) {
- fra.me.REG[2] = BOX_NativeString("Warning: superfluous parentheses.");
- REGB0 = TAG_Int(33);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_1 = fra.me.REG[2];
- register_static_object(&once_value_1);
- } else fra.me.REG[2] = once_value_1;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_syntax___syntax_base___AbsSyntaxVisitor___warning(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[2]);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AParExprs___after_typing(val_t p0, val_t p1){
- 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 */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 416;
- fra.me.meth = LOCATE_syntax___typing___AParExprs___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:418 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AExprs___n_exprs(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_standard___collection___abstract_collection___Collection___is_empty(fra.me.REG[2])(fra.me.REG[2]);
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:419 */
- if (!once_value_1) {
- fra.me.REG[2] = BOX_NativeString("Warning: superfluous parentheses.");
- REGB0 = TAG_Int(33);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_1 = fra.me.REG[2];
- register_static_object(&once_value_1);
- } else fra.me.REG[2] = once_value_1;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_syntax___syntax_base___AbsSyntaxVisitor___warning(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[2]);
- }
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___AVardeclExpr___variable(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 426;
- fra.me.meth = LOCATE_syntax___typing___AVardeclExpr___variable;
- 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;
- /* syntax/typing.nit:426 */
- fra.me.REG[1] = fra.me.REG[0];
- fra.me.REG[1] = ATTR_syntax___typing___AVardeclExpr____variable(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[1]!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 426);
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-void syntax___typing___AVardeclExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 428;
- fra.me.meth = LOCATE_syntax___typing___AVardeclExpr___after_typing;
- 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;
- /* syntax/typing.nit:430 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AVardeclExpr___n_id(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_syntax___syntax_base___Token___to_symbol(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[3] = CALL_parser___parser_nodes___AVardeclExpr___n_id(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = NEW_VarVariable_syntax___syntax_base___VarVariable___init(fra.me.REG[2], fra.me.REG[3]);
- /* syntax/typing.nit:431 */
- ATTR_syntax___typing___AVardeclExpr____variable(fra.me.REG[0]) = fra.me.REG[3];
- /* syntax/typing.nit:432 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[1])(fra.me.REG[1]);
- CALL_syntax___scope___ScopeContext___add_variable(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- /* syntax/typing.nit:433 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AVardeclExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- /* syntax/typing.nit:434 */
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- CALL_syntax___typing___TypingVisitor___mark_is_set(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- }
- /* syntax/typing.nit:436 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AVardeclExpr___n_type(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:437 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AVardeclExpr___n_type(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 437);
- }
- REGB0 = CALL_syntax___syntax_base___AType___is_typed(fra.me.REG[4])(fra.me.REG[4]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:438 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AVardeclExpr___n_type(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 438);
- }
- fra.me.REG[4] = CALL_syntax___syntax_base___AType___stype(fra.me.REG[4])(fra.me.REG[4]);
- CALL_syntax___syntax_base___Variable___stype__eq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- /* syntax/typing.nit:439 */
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:440 */
- fra.me.REG[4] = CALL_syntax___syntax_base___Variable___stype(fra.me.REG[3])(fra.me.REG[3]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[4]);
- }
- } else {
- /* syntax/typing.nit:442 */
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:443 */
- REGB0 = CALL_syntax___syntax_base___AbsSyntaxVisitor___check_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:444 */
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 444);
- }
- fra.me.REG[2] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[2])(fra.me.REG[2]);
- CALL_syntax___syntax_base___Variable___stype__eq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- } else {
- /* syntax/typing.nit:446 */
- fra.me.REG[1] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_object(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[1] = CALL_metamodel___static_type___MMType___as_nullable(fra.me.REG[1])(fra.me.REG[1]);
- CALL_syntax___syntax_base___Variable___stype__eq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]);
- }
- }
- /* syntax/typing.nit:448 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___ABlockExpr___accept_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 453;
- fra.me.meth = LOCATE_syntax___typing___ABlockExpr___accept_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:455 */
- fra.me.REG[2] = CALL_parser___parser_nodes___ABlockExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[2])(fra.me.REG[2], (&(fra.me)), ((fun_t)OC_syntax___typing___ABlockExpr___accept_typing_1));
- /* syntax/typing.nit:464 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
- void OC_syntax___typing___ABlockExpr___accept_typing_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- fun_t CREG[1];
- val_t tmp;
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 0;
- fra.me.meth = LOCATE_syntax___typing___ABlockExpr___accept_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.closure_ctx = closctx_param;
- fra.me.closure_funs = CREG;
- fra.me.REG[0] = p0;
- CREG[0] = clos_fun0;
- /* syntax/typing.nit:456 */
- fra.me.REG[1] = CALL_syntax___typing___TypingVisitor___flow_ctx(closctx->REG[1])(closctx->REG[1]);
- REGB0 = CALL_syntax___flow___FlowContext___unreash(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:457 */
- CALL_parser___parser_prod___Visitor___enter_visit(closctx->REG[1])(closctx->REG[1], fra.me.REG[0]);
- } else {
- /* syntax/typing.nit:458 */
- fra.me.REG[1] = CALL_syntax___typing___TypingVisitor___flow_ctx(closctx->REG[1])(closctx->REG[1]);
- REGB0 = CALL_syntax___flow___FlowContext___already_unreash(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:459 */
- fra.me.REG[1] = CALL_syntax___typing___TypingVisitor___flow_ctx(closctx->REG[1])(closctx->REG[1]);
- REGB0 = TAG_Bool(true);
- CALL_syntax___flow___FlowContext___already_unreash__eq(fra.me.REG[1])(fra.me.REG[1], REGB0);
- /* syntax/typing.nit:460 */
- if (!once_value_2) {
- fra.me.REG[1] = BOX_NativeString("Error: unreachable statement.");
- REGB0 = TAG_Int(29);
- 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_syntax___syntax_base___AbsSyntaxVisitor___error(closctx->REG[1])(closctx->REG[1], fra.me.REG[0], fra.me.REG[1]);
- }
- }
- stack_frame_head = fra.me.prev;
- return;
- }
-void syntax___typing___AReturnExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_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_syntax___typing;
- fra.me.line = 469;
- fra.me.meth = LOCATE_syntax___typing___AReturnExpr___after_typing;
- 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;
- /* syntax/typing.nit:471 */
- CALL_syntax___typing___TypingVisitor___mark_unreash(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- /* syntax/typing.nit:472 */
- fra.me.REG[2] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[2] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 472);
- }
- fra.me.REG[2] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:474 */
- REGB0 = CALL_syntax___typing___TypingVisitor___is_default_closure_definition(fra.me.REG[1])(fra.me.REG[1]);
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:475 */
- if (!once_value_1) {
- fra.me.REG[3] = BOX_NativeString("Error: 'return' invalid in default closure definitions. Use 'continue' or 'break'.");
- REGB0 = TAG_Int(82);
- 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_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[3]);
- /* syntax/typing.nit:476 */
- goto label2;
- }
- /* syntax/typing.nit:479 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AReturnExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- /* syntax/typing.nit:480 */
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- } else {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:481 */
- if (!once_value_3) {
- fra.me.REG[4] = BOX_NativeString("Error: Return without value in a function.");
- REGB0 = TAG_Int(42);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_3 = fra.me.REG[4];
- register_static_object(&once_value_3);
- } else fra.me.REG[4] = once_value_3;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[4]);
- } else {
- /* syntax/typing.nit:482 */
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- } else {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:483 */
- if (!once_value_4) {
- fra.me.REG[4] = BOX_NativeString("Error: Return with value in a procedure.");
- REGB0 = TAG_Int(40);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_4 = fra.me.REG[4];
- register_static_object(&once_value_4);
- } else fra.me.REG[4] = once_value_4;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[4]);
- } else {
- /* syntax/typing.nit:484 */
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- } else {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:485 */
- CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3], fra.me.REG[2]);
- }
- }
- }
- /* syntax/typing.nit:487 */
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:488 */
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 488);
- }
- CALL_syntax___typing___AExpr___warn_parentheses(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]);
- }
- /* syntax/typing.nit:490 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AContinueExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- static val_t once_value_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_syntax___typing;
- fra.me.line = 495;
- fra.me.meth = LOCATE_syntax___typing___AContinueExpr___after_typing;
- 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;
- /* syntax/typing.nit:497 */
- CALL_syntax___typing___TypingVisitor___mark_unreash(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- /* syntax/typing.nit:498 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[2] = CALL_syntax___scope___AEscapeExpr___compute_escapable_block(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[2]);
- /* syntax/typing.nit:499 */
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:501 */
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 501);
- }
- REGB0 = CALL_syntax___scope___EscapableBlock___is_break_block(fra.me.REG[2])(fra.me.REG[2]);
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:502 */
- if (!once_value_2) {
- fra.me.REG[3] = BOX_NativeString("Error: cannot 'continue', only 'break'.");
- REGB0 = TAG_Int(39);
- 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_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[3]);
- /* syntax/typing.nit:503 */
- goto label1;
- }
- /* syntax/typing.nit:506 */
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 506);
- }
- fra.me.REG[2] = CALL_syntax___scope___EscapableBlock___continue_stype(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:507 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AContinueExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- /* syntax/typing.nit:508 */
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- } else {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:509 */
- if (!once_value_3) {
- fra.me.REG[4] = BOX_NativeString("Error: continue with a value required in this block.");
- REGB0 = TAG_Int(52);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_3 = fra.me.REG[4];
- register_static_object(&once_value_3);
- } else fra.me.REG[4] = once_value_3;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[4]);
- } else {
- /* syntax/typing.nit:510 */
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- } else {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:511 */
- if (!once_value_4) {
- fra.me.REG[4] = BOX_NativeString("Error: continue without value required in this block.");
- REGB0 = TAG_Int(53);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_4 = fra.me.REG[4];
- register_static_object(&once_value_4);
- } else fra.me.REG[4] = once_value_4;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[4]);
- } else {
- /* syntax/typing.nit:512 */
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- } else {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:513 */
- CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3], fra.me.REG[2]);
- }
- }
- }
- /* syntax/typing.nit:515 */
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:516 */
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 516);
- }
- CALL_syntax___typing___AExpr___warn_parentheses(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]);
- }
- /* syntax/typing.nit:518 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___ABreakExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- static val_t once_value_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_syntax___typing;
- fra.me.line = 523;
- fra.me.meth = LOCATE_syntax___typing___ABreakExpr___after_typing;
- 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;
- /* syntax/typing.nit:525 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:526 */
- CALL_syntax___typing___TypingVisitor___mark_unreash(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- /* syntax/typing.nit:527 */
- fra.me.REG[3] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[3] = CALL_syntax___scope___AEscapeExpr___compute_escapable_block(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[3]);
- /* syntax/typing.nit:528 */
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:530 */
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 530);
- }
- fra.me.REG[4] = CALL_syntax___scope___EscapableBlock___break_flow_contexts(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[2]);
- /* syntax/typing.nit:532 */
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 532);
- }
- fra.me.REG[3] = CALL_syntax___scope___EscapableBlock___break_list(fra.me.REG[3])(fra.me.REG[3]);
- /* syntax/typing.nit:533 */
- fra.me.REG[2] = CALL_parser___parser_nodes___ABreakExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- /* syntax/typing.nit:534 */
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- } else {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:535 */
- if (!once_value_2) {
- fra.me.REG[4] = BOX_NativeString("Error: break with a value required in this block.");
- REGB0 = TAG_Int(49);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_2 = fra.me.REG[4];
- register_static_object(&once_value_2);
- } else fra.me.REG[4] = once_value_2;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[4]);
- } else {
- /* syntax/typing.nit:536 */
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- } else {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:537 */
- if (!once_value_3) {
- fra.me.REG[4] = BOX_NativeString("Error: break without value required in this block.");
- REGB0 = TAG_Int(50);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_3 = fra.me.REG[4];
- register_static_object(&once_value_3);
- } else fra.me.REG[4] = once_value_3;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[4]);
- } else {
- /* syntax/typing.nit:538 */
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- } else {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:540 */
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 540);
- }
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- }
- }
- }
- /* syntax/typing.nit:542 */
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:543 */
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 543);
- }
- CALL_syntax___typing___AExpr___warn_parentheses(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1]);
- }
- /* syntax/typing.nit:545 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AAbortExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 550;
- fra.me.meth = LOCATE_syntax___typing___AAbortExpr___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:552 */
- CALL_syntax___typing___TypingVisitor___mark_unreash(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- /* syntax/typing.nit:553 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___AAbsControl___escapable(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 560;
- fra.me.meth = LOCATE_syntax___typing___AAbsControl___escapable;
- 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;
- /* syntax/typing.nit:560 */
- fra.me.REG[0] = ATTR_syntax___typing___AAbsControl____escapable(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void syntax___typing___AAbsControl___process_control(val_t p0, val_t p1, val_t p2, val_t p3, val_t p4){
- struct {struct stack_frame_t me; val_t MORE_REG[6];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 563;
- fra.me.meth = LOCATE_syntax___typing___AAbsControl___process_control;
- fra.me.has_broke = 0;
- fra.me.REG_size = 7;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[6] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- fra.me.REG[2] = p2;
- fra.me.REG[3] = p3;
- REGB0 = p4;
- /* syntax/typing.nit:567 */
- ATTR_syntax___typing___AAbsControl____escapable(fra.me.REG[0]) = fra.me.REG[2];
- /* syntax/typing.nit:568 */
- fra.me.REG[4] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[1])(fra.me.REG[1]);
- CALL_syntax___scope___ScopeContext___push_escapable(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2], fra.me.REG[3]);
- /* syntax/typing.nit:571 */
- fra.me.REG[3] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:572 */
- fra.me.REG[4] = CALL_syntax___typing___TypingVisitor___base_flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:573 */
- if (UNTAG_Bool(REGB0)) {
- fra.me.REG[5] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- CALL_syntax___typing___TypingVisitor___base_flow_ctx__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[5]);
- }
- /* syntax/typing.nit:576 */
- CALL_syntax___typing___AAbsControl___process_control_inside(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* syntax/typing.nit:579 */
- fra.me.REG[5] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- REGB1 = CALL_syntax___flow___FlowContext___unreash(fra.me.REG[5])(fra.me.REG[5]);
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:580 */
- fra.me.REG[5] = CALL_syntax___scope___EscapableBlock___break_flow_contexts(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[6] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
- }
- /* syntax/typing.nit:584 */
- fra.me.REG[6] = CALL_syntax___scope___EscapableBlock___break_flow_contexts(fra.me.REG[2])(fra.me.REG[2]);
- REGB1 = CALL_standard___collection___abstract_collection___Collection___is_empty(fra.me.REG[6])(fra.me.REG[6]);
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:585 */
- CALL_syntax___typing___TypingVisitor___flow_ctx__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- /* syntax/typing.nit:586 */
- CALL_syntax___typing___TypingVisitor___mark_unreash(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- } else {
- /* syntax/typing.nit:588 */
- fra.me.REG[2] = CALL_syntax___scope___EscapableBlock___break_flow_contexts(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[2] = CALL_syntax___flow___FlowContext___merge(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[0], fra.me.REG[2]);
- CALL_syntax___typing___TypingVisitor___flow_ctx__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- }
- /* syntax/typing.nit:591 */
- if (UNTAG_Bool(REGB0)) {
- CALL_syntax___typing___TypingVisitor___base_flow_ctx__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
- }
- /* syntax/typing.nit:592 */
- fra.me.REG[1] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[1])(fra.me.REG[1]);
- CALL_syntax___scope___ScopeContext___pop(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:593 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AAbsControl___process_control_inside(val_t p0, val_t p1){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 596;
- fra.me.meth = LOCATE_syntax___typing___AAbsControl___process_control_inside;
- fra.me.has_broke = 0;
- fra.me.REG_size = 0;
- fra.me.nitni_local_ref_head = NULL;
- /* syntax/typing.nit:596 */
- nit_abort("Deferred method called", NULL, LOCATE_syntax___typing, 596);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___ADoExpr___accept_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 602;
- fra.me.meth = LOCATE_syntax___typing___ADoExpr___accept_typing;
- 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;
- /* syntax/typing.nit:604 */
- fra.me.REG[2] = NEW_BreakOnlyEscapableBlock_syntax___scope___BreakOnlyEscapableBlock___init(fra.me.REG[0]);
- fra.me.REG[3] = CALL_parser___parser_nodes___ALabelable___n_label(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(false);
- CALL_syntax___typing___AAbsControl___process_control(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2], fra.me.REG[3], REGB0);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___ADoExpr___process_control_inside(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 607;
- fra.me.meth = LOCATE_syntax___typing___ADoExpr___process_control_inside;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:609 */
- fra.me.REG[0] = CALL_parser___parser_nodes___ADoExpr___n_block(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___TypingVisitor___enter_visit_block(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AIfExpr___accept_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 614;
- fra.me.meth = LOCATE_syntax___typing___AIfExpr___accept_typing;
- 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;
- /* syntax/typing.nit:616 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AIfExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_parser___parser_prod___Visitor___enter_visit(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* syntax/typing.nit:617 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AIfExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_bool(fra.me.REG[1])(fra.me.REG[1]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[3]);
- /* syntax/typing.nit:619 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AIfExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___AExpr___warn_parentheses(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]);
- /* syntax/typing.nit:622 */
- fra.me.REG[3] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:623 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AIfExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___TypingVisitor___use_if_true_flow_ctx(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* syntax/typing.nit:626 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AIfExpr___n_then(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___TypingVisitor___enter_visit_block(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* syntax/typing.nit:629 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:632 */
- CALL_syntax___typing___TypingVisitor___flow_ctx__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- /* syntax/typing.nit:633 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AIfExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___TypingVisitor___use_if_false_flow_ctx(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- /* syntax/typing.nit:636 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AIfExpr___n_else(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___TypingVisitor___enter_visit_block(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- /* syntax/typing.nit:639 */
- fra.me.REG[3] = CALL_syntax___typing___TypingVisitor___base_flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[4] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[4] = CALL_syntax___flow___FlowContext___merge_reash(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0], fra.me.REG[2], fra.me.REG[4]);
- CALL_syntax___typing___TypingVisitor___flow_ctx__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
- /* syntax/typing.nit:640 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AWhileExpr___accept_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 646;
- fra.me.meth = LOCATE_syntax___typing___AWhileExpr___accept_typing;
- 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;
- /* syntax/typing.nit:648 */
- fra.me.REG[2] = NEW_EscapableBlock_syntax___scope___EscapableBlock___init(fra.me.REG[0]);
- fra.me.REG[3] = CALL_parser___parser_nodes___ALabelable___n_label(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(true);
- CALL_syntax___typing___AAbsControl___process_control(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2], fra.me.REG[3], REGB0);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AWhileExpr___process_control_inside(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 */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 651;
- fra.me.meth = LOCATE_syntax___typing___AWhileExpr___process_control_inside;
- 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;
- /* syntax/typing.nit:653 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:656 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AWhileExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_parser___parser_prod___Visitor___enter_visit(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- /* syntax/typing.nit:657 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AWhileExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_bool(fra.me.REG[1])(fra.me.REG[1]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3], fra.me.REG[4]);
- /* syntax/typing.nit:659 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AWhileExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[4], COLOR_parser___parser_nodes___ATrueExpr, ID_parser___parser_nodes___ATrueExpr)) /*cast ATrueExpr*/;
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:660 */
- if (!once_value_1) {
- fra.me.REG[4] = BOX_NativeString("Warning: use 'loop' instead of 'while true do'.");
- REGB0 = TAG_Int(47);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_1 = fra.me.REG[4];
- register_static_object(&once_value_1);
- } else fra.me.REG[4] = once_value_1;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_syntax___syntax_base___AbsSyntaxVisitor___warning(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[4]);
- } else {
- /* syntax/typing.nit:662 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AWhileExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___AExpr___warn_parentheses(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[1]);
- }
- /* syntax/typing.nit:666 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AWhileExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___TypingVisitor___use_if_true_flow_ctx(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
- /* syntax/typing.nit:669 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AWhileExpr___n_block(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___TypingVisitor___enter_visit_block(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
- /* syntax/typing.nit:672 */
- CALL_syntax___typing___TypingVisitor___flow_ctx__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* syntax/typing.nit:673 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AWhileExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___TypingVisitor___use_if_false_flow_ctx(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* syntax/typing.nit:674 */
- fra.me.REG[0] = CALL_syntax___typing___AAbsControl___escapable(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_syntax___typing, 674);
- }
- fra.me.REG[0] = CALL_syntax___scope___EscapableBlock___break_flow_contexts(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[1] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___ALoopExpr___accept_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 680;
- fra.me.meth = LOCATE_syntax___typing___ALoopExpr___accept_typing;
- 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;
- /* syntax/typing.nit:682 */
- fra.me.REG[2] = NEW_EscapableBlock_syntax___scope___EscapableBlock___init(fra.me.REG[0]);
- fra.me.REG[3] = CALL_parser___parser_nodes___ALabelable___n_label(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(true);
- CALL_syntax___typing___AAbsControl___process_control(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2], fra.me.REG[3], REGB0);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___ALoopExpr___process_control_inside(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 685;
- fra.me.meth = LOCATE_syntax___typing___ALoopExpr___process_control_inside;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:688 */
- fra.me.REG[2] = CALL_parser___parser_nodes___ALoopExpr___n_block(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___TypingVisitor___enter_visit_block(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* syntax/typing.nit:691 */
- CALL_syntax___typing___TypingVisitor___mark_unreash(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___AForExpr___variables(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 698;
- fra.me.meth = LOCATE_syntax___typing___AForExpr___variables;
- 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;
- /* syntax/typing.nit:698 */
- fra.me.REG[1] = fra.me.REG[0];
- fra.me.REG[1] = ATTR_syntax___typing___AForExpr____variables(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[1]!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 698);
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-void syntax___typing___AForExpr___accept_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 700;
- fra.me.meth = LOCATE_syntax___typing___AForExpr___accept_typing;
- 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;
- /* syntax/typing.nit:702 */
- fra.me.REG[2] = NEW_EscapableBlock_syntax___scope___EscapableBlock___init(fra.me.REG[0]);
- fra.me.REG[3] = CALL_parser___parser_nodes___ALabelable___n_label(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(true);
- CALL_syntax___typing___AAbsControl___process_control(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2], fra.me.REG[3], REGB0);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AForExpr___process_control_inside(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 705;
- fra.me.meth = LOCATE_syntax___typing___AForExpr___process_control_inside;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:707 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[1])(fra.me.REG[1]);
- CALL_syntax___scope___ScopeContext___push(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0]);
- /* syntax/typing.nit:708 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:710 */
- CALL_syntax___typing___AForExpr___do_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* syntax/typing.nit:713 */
- fra.me.REG[0] = CALL_parser___parser_nodes___AForExpr___n_block(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___TypingVisitor___enter_visit_block(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- /* syntax/typing.nit:716 */
- CALL_syntax___typing___TypingVisitor___flow_ctx__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* syntax/typing.nit:717 */
- fra.me.REG[1] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[1])(fra.me.REG[1]);
- CALL_syntax___scope___ScopeContext___pop(fra.me.REG[1])(fra.me.REG[1]);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AForExpr___do_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[7];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t REGB4;
- val_t REGB5;
- val_t tmp;
- 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 */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 720;
- fra.me.meth = LOCATE_syntax___typing___AForExpr___do_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 8;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[6] = NIT_NULL;
- fra.me.REG[7] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:723 */
- fra.me.REG[2] = NEW_Array_standard___collection___array___Array___init();
- /* syntax/typing.nit:724 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AForExpr___n_ids(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[3])(fra.me.REG[3], (&(fra.me)), ((fun_t)OC_syntax___typing___AForExpr___do_typing_1));
- /* syntax/typing.nit:729 */
- ATTR_syntax___typing___AForExpr____variables(fra.me.REG[0]) = fra.me.REG[2];
- /* syntax/typing.nit:732 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AForExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_parser___parser_prod___Visitor___enter_visit(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- /* syntax/typing.nit:733 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AForExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___syntax_base___AbsSyntaxVisitor___check_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- goto label2;
- }
- /* syntax/typing.nit:734 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AForExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[3])(fra.me.REG[3]);
- /* syntax/typing.nit:736 */
- REGB0 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[3])(fra.me.REG[3]);
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:737 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AForExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- if (!once_value_3) {
- fra.me.REG[5] = BOX_NativeString("Type error: 'for' on a nullable expression.");
- REGB0 = TAG_Int(43);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_3 = fra.me.REG[5];
- register_static_object(&once_value_3);
- } else fra.me.REG[5] = once_value_3;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4], fra.me.REG[5]);
- /* syntax/typing.nit:738 */
- goto label2;
- }
- /* syntax/typing.nit:740 */
- fra.me.REG[5] = CALL_parser___parser_nodes___AForExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___AExpr___warn_parentheses(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1]);
- /* syntax/typing.nit:743 */
- if (!once_value_4) {
- if (!once_value_5) {
- fra.me.REG[5] = BOX_NativeString("iterate");
- REGB0 = TAG_Int(7);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_5 = fra.me.REG[5];
- register_static_object(&once_value_5);
- } else fra.me.REG[5] = once_value_5;
- fra.me.REG[5] = fra.me.REG[5];
- fra.me.REG[5] = CALL_standard___symbol___String___to_symbol(fra.me.REG[5])(fra.me.REG[5]);
- once_value_4 = fra.me.REG[5];
- register_static_object(&once_value_4);
- } else fra.me.REG[5] = once_value_4;
- fra.me.REG[5] = fra.me.REG[5];
- /* syntax/typing.nit:744 */
- fra.me.REG[4] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[3])(fra.me.REG[3]);
- REGB0 = CALL_metamodel___abstractmetamodel___MMLocalClass___has_global_property_by_name(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:745 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AForExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Int(3);
- fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_6) {
- fra.me.REG[7] = BOX_NativeString("Type error: Expected a type with an 'iterate' method. Found ");
- REGB0 = TAG_Int(60);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_6 = fra.me.REG[7];
- register_static_object(&once_value_6);
- } else fra.me.REG[7] = once_value_6;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
- fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
- if (!once_value_7) {
- fra.me.REG[7] = BOX_NativeString(".");
- REGB0 = TAG_Int(1);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_7 = fra.me.REG[7];
- register_static_object(&once_value_7);
- } else fra.me.REG[7] = once_value_7;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
- fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4], fra.me.REG[6]);
- /* syntax/typing.nit:746 */
- goto label2;
- }
- /* syntax/typing.nit:748 */
- fra.me.REG[6] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalClass___select_method(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[5]);
- /* syntax/typing.nit:749 */
- fra.me.REG[6] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[5])(fra.me.REG[5]);
- fra.me.REG[4] = CALL_syntax___syntax_base___AbsSyntaxVisitor___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[7] = CALL_parser___parser_nodes___AForExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___typing___AExpr___is_self(fra.me.REG[7])(fra.me.REG[7]);
- CALL_syntax___syntax_base___MMGlobalProperty___check_visibility(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[1], fra.me.REG[0], fra.me.REG[4], REGB0);
- /* syntax/typing.nit:750 */
- fra.me.REG[3] = CALL_metamodel___static_type___MMLocalProperty___signature_for(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
- /* syntax/typing.nit:751 */
- fra.me.REG[5] = CALL_parser___parser_nodes___AForExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___typing___AExpr___is_self(fra.me.REG[5])(fra.me.REG[5]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- fra.me.REG[5] = CALL_metamodel___static_type___MMSignature___not_for_self(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[3] = fra.me.REG[5];
- }
- /* syntax/typing.nit:752 */
- REGB0 = CALL_metamodel___static_type___MMSignature___arity(fra.me.REG[3])(fra.me.REG[3]);
- REGB1 = TAG_Int(0);
- REGB2 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB1));
- if (UNTAG_Bool(REGB2)) {
- } else {
- /* ../lib/standard/kernel.nit:227 */
- REGB1 = TAG_Bool((REGB0)==(REGB1));
- /* syntax/typing.nit:752 */
- REGB2 = REGB1;
- }
- REGB2 = TAG_Bool(!UNTAG_Bool(REGB2));
- if (UNTAG_Bool(REGB2)) {
- /* syntax/typing.nit:753 */
- if (!once_value_8) {
- fra.me.REG[5] = BOX_NativeString("Error: 'iterate' incompatible with 'for': require no arguments.");
- REGB2 = TAG_Int(63);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB2);
- 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_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[5]);
- /* syntax/typing.nit:754 */
- goto label2;
- } else {
- /* syntax/typing.nit:755 */
- fra.me.REG[5] = CALL_metamodel___static_type___MMSignature___closures(fra.me.REG[3])(fra.me.REG[3]);
- /* ../lib/standard/collection/array.nit:24 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[5])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[5]);
- /* syntax/typing.nit:755 */
- REGB1 = TAG_Int(1);
- REGB0 = TAG_Bool(IS_EQUAL_OO(REGB2,REGB1));
- if (UNTAG_Bool(REGB0)) {
- } else {
- /* ../lib/standard/kernel.nit:227 */
- REGB1 = TAG_Bool((REGB2)==(REGB1));
- /* syntax/typing.nit:755 */
- REGB0 = REGB1;
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:756 */
- if (!once_value_9) {
- fra.me.REG[5] = BOX_NativeString("Error: 'iterate' incompatible with 'for': require one closure.");
- REGB0 = TAG_Int(62);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_9 = fra.me.REG[5];
- register_static_object(&once_value_9);
- } else fra.me.REG[5] = once_value_9;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[5]);
- /* syntax/typing.nit:757 */
- goto label2;
- }
- }
- /* syntax/typing.nit:759 */
- fra.me.REG[5] = CALL_metamodel___static_type___MMSignature___closures(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[5] = CALL_standard___collection___abstract_collection___Collection___first(fra.me.REG[5])(fra.me.REG[5]);
- REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 759);
- }
- fra.me.REG[5] = CALL_metamodel___static_type___MMClosure___signature(fra.me.REG[5])(fra.me.REG[5]);
- fra.me.REG[3] = fra.me.REG[5];
- /* syntax/typing.nit:760 */
- fra.me.REG[5] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[3])(fra.me.REG[3]);
- REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[5])(fra.me.REG[5], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:761 */
- if (!once_value_10) {
- fra.me.REG[5] = BOX_NativeString("Error: 'iterate' incompatible with 'for': require one procedural closure.");
- REGB0 = TAG_Int(73);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_10 = fra.me.REG[5];
- register_static_object(&once_value_10);
- } else fra.me.REG[5] = once_value_10;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[5]);
- /* syntax/typing.nit:762 */
- goto label2;
- }
- /* ../lib/standard/collection/array.nit:24 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]);
- /* syntax/typing.nit:764 */
- REGB1 = CALL_metamodel___static_type___MMSignature___arity(fra.me.REG[3])(fra.me.REG[3]);
- REGB2 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB1));
- if (UNTAG_Bool(REGB2)) {
- } else {
- /* ../lib/standard/kernel.nit:227 */
- REGB1 = TAG_Bool((REGB0)==(REGB1));
- /* syntax/typing.nit:764 */
- REGB2 = REGB1;
- }
- REGB2 = TAG_Bool(!UNTAG_Bool(REGB2));
- if (UNTAG_Bool(REGB2)) {
- /* syntax/typing.nit:765 */
- REGB2 = CALL_metamodel___static_type___MMSignature___arity(fra.me.REG[3])(fra.me.REG[3]);
- REGB1 = TAG_Int(1);
- REGB0 = TAG_Bool(IS_EQUAL_OO(REGB2,REGB1));
- if (UNTAG_Bool(REGB0)) {
- } else {
- /* ../lib/standard/kernel.nit:227 */
- REGB1 = TAG_Bool((REGB2)==(REGB1));
- /* syntax/typing.nit:765 */
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:766 */
- REGB0 = TAG_Int(7);
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_11) {
- fra.me.REG[4] = BOX_NativeString("Error: Expected ");
- REGB0 = TAG_Int(16);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_11 = fra.me.REG[4];
- register_static_object(&once_value_11);
- } else fra.me.REG[4] = once_value_11;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- REGB0 = CALL_metamodel___static_type___MMSignature___arity(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(REGB0)(REGB0);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- if (!once_value_12) {
- fra.me.REG[4] = BOX_NativeString(" variable ");
- REGB0 = TAG_Int(10);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_12 = fra.me.REG[4];
- register_static_object(&once_value_12);
- } else fra.me.REG[4] = once_value_12;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(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[4]);
- if (!once_value_13) {
- fra.me.REG[4] = BOX_NativeString(", found ");
- REGB0 = TAG_Int(8);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_13 = fra.me.REG[4];
- register_static_object(&once_value_13);
- } else fra.me.REG[4] = once_value_13;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- /* ../lib/standard/collection/array.nit:24 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]);
- /* syntax/typing.nit:766 */
- fra.me.REG[4] = CALL_standard___string___Object___to_s(REGB0)(REGB0);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- if (!once_value_14) {
- fra.me.REG[4] = BOX_NativeString(".");
- REGB0 = TAG_Int(1);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_14 = fra.me.REG[4];
- register_static_object(&once_value_14);
- } else fra.me.REG[4] = once_value_14;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[5]);
- } else {
- /* syntax/typing.nit:768 */
- REGB0 = TAG_Int(7);
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_15) {
- fra.me.REG[4] = BOX_NativeString("Error: Expected ");
- REGB0 = TAG_Int(16);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_15 = fra.me.REG[4];
- register_static_object(&once_value_15);
- } else fra.me.REG[4] = once_value_15;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- REGB0 = CALL_metamodel___static_type___MMSignature___arity(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(REGB0)(REGB0);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- if (!once_value_16) {
- fra.me.REG[4] = BOX_NativeString(" variables ");
- REGB0 = TAG_Int(11);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_16 = fra.me.REG[4];
- register_static_object(&once_value_16);
- } else fra.me.REG[4] = once_value_16;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(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[4]);
- if (!once_value_17) {
- fra.me.REG[4] = BOX_NativeString(", found ");
- REGB0 = TAG_Int(8);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_17 = fra.me.REG[4];
- register_static_object(&once_value_17);
- } else fra.me.REG[4] = once_value_17;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- /* ../lib/standard/collection/array.nit:24 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]);
- /* syntax/typing.nit:768 */
- fra.me.REG[4] = CALL_standard___string___Object___to_s(REGB0)(REGB0);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- if (!once_value_18) {
- fra.me.REG[4] = BOX_NativeString(".");
- REGB0 = TAG_Int(1);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_18 = fra.me.REG[4];
- register_static_object(&once_value_18);
- } else fra.me.REG[4] = once_value_18;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[5]);
- }
- /* syntax/typing.nit:770 */
- goto label2;
- }
- /* syntax/typing.nit:774 */
- REGB0 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]);
- /* ../lib/standard/kernel.nit:352 */
- while(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:232 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
- /* ../lib/standard/kernel.nit:352 */
- if (UNTAG_Bool(REGB2)) {
- /* syntax/typing.nit:774 */
- REGB2 = REGB0;
- /* ../lib/standard/collection/array.nit:278 */
- fra.me.REG[5] = fra.me.REG[2];
- REGB3 = REGB2;
- /* ../lib/standard/collection/array.nit:280 */
- REGB4 = TAG_Int(0);
- REGB5 = TAG_Bool(VAL_ISA(REGB4, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3), VTID_standard___kernel___Comparable___OTHER(REGB3))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB5)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:233 */
- REGB4 = TAG_Bool(UNTAG_Int(REGB3)>=UNTAG_Int(REGB4));
- /* ../lib/standard/collection/array.nit:280 */
- if (UNTAG_Bool(REGB4)) {
- REGB4 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[5])!=NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 280);
- }
- REGB4 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[5]);
- REGB5 = TAG_Bool(VAL_ISA(REGB4, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3), VTID_standard___kernel___Comparable___OTHER(REGB3))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB5)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB4 = TAG_Bool(UNTAG_Int(REGB3)<UNTAG_Int(REGB4));
- } else {
- /* ../lib/standard/collection/array.nit:280 */
- REGB5 = TAG_Bool(false);
- REGB4 = REGB5;
- }
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 280);
- }
- /* ../lib/standard/collection/array.nit:281 */
- fra.me.REG[5] = ATTR_standard___collection___array___Array____items(fra.me.REG[5]);
- REGB4 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:718 */
- fra.me.REG[5] = ((Nit_NativeArray)fra.me.REG[5])->val[UNTAG_Int(REGB3)];
- /* ../lib/standard/collection/array.nit:281 */
- goto label19;
- label19: while(0);
- /* syntax/typing.nit:775 */
- fra.me.REG[0] = CALL_metamodel___static_type___MMSignature_____bra(fra.me.REG[3])(fra.me.REG[3], REGB2);
- REGB2 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 775);
- }
- CALL_syntax___syntax_base___Variable___stype__eq(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[0]);
- /* ../lib/standard/kernel.nit:354 */
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:235 */
- REGB2 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB2));
- /* ../lib/standard/kernel.nit:354 */
- REGB0 = REGB2;
- } else {
- /* ../lib/standard/kernel.nit:352 */
- goto label20;
- }
- }
- label20: while(0);
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
- void OC_syntax___typing___AForExpr___do_typing_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- fun_t CREG[1];
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 0;
- fra.me.meth = LOCATE_syntax___typing___AForExpr___do_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.closure_ctx = closctx_param;
- fra.me.closure_funs = CREG;
- fra.me.REG[0] = p0;
- CREG[0] = clos_fun0;
- /* syntax/typing.nit:725 */
- fra.me.REG[1] = CALL_syntax___syntax_base___Token___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = NEW_AutoVariable_syntax___syntax_base___AutoVariable___init(fra.me.REG[1], fra.me.REG[0]);
- /* syntax/typing.nit:726 */
- fra.me.REG[1] = CALL_syntax___typing___TypingVisitor___scope_ctx(closctx->REG[1])(closctx->REG[1]);
- CALL_syntax___scope___ScopeContext___add_variable(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- /* syntax/typing.nit:727 */
- CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx->REG[2])(closctx->REG[2], fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return;
- }
-void syntax___typing___AAssertExpr___accept_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 781;
- fra.me.meth = LOCATE_syntax___typing___AAssertExpr___accept_typing;
- 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;
- /* syntax/typing.nit:784 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AAssertExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_parser___parser_prod___Visitor___enter_visit(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* syntax/typing.nit:785 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AAssertExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_bool(fra.me.REG[1])(fra.me.REG[1]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[3]);
- /* syntax/typing.nit:786 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AAssertExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___AExpr___warn_parentheses(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]);
- /* syntax/typing.nit:789 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AAssertExpr___n_else(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:790 */
- fra.me.REG[3] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:791 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AAssertExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___TypingVisitor___use_if_false_flow_ctx(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* syntax/typing.nit:792 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AAssertExpr___n_else(fra.me.REG[0])(fra.me.REG[0]);
- CALL_parser___parser_prod___Visitor___enter_visit(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* syntax/typing.nit:793 */
- CALL_syntax___typing___TypingVisitor___flow_ctx__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- }
- /* syntax/typing.nit:797 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AAssertExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___TypingVisitor___use_if_true_flow_ctx(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- /* syntax/typing.nit:798 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___AVarFormExpr___variable(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 804;
- fra.me.meth = LOCATE_syntax___typing___AVarFormExpr___variable;
- 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;
- /* syntax/typing.nit:804 */
- fra.me.REG[1] = fra.me.REG[0];
- fra.me.REG[1] = ATTR_syntax___typing___AVarFormExpr____variable(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[1]!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 804);
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-val_t syntax___typing___AVarExpr___its_variable(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 808;
- fra.me.meth = LOCATE_syntax___typing___AVarExpr___its_variable;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:808 */
- fra.me.REG[0] = CALL_syntax___syntax_base___AVarFormExpr___variable(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void syntax___typing___AVarExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 810;
- fra.me.meth = LOCATE_syntax___typing___AVarExpr___after_typing;
- 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;
- /* syntax/typing.nit:812 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[3] = CALL_syntax___syntax_base___AVarFormExpr___variable(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___flow___FlowContext___check_is_set(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0], fra.me.REG[3]);
- /* syntax/typing.nit:813 */
- fra.me.REG[1] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[3] = CALL_syntax___syntax_base___AVarFormExpr___variable(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_syntax___flow___FlowContext___stype(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[3];
- /* syntax/typing.nit:814 */
- fra.me.REG[3] = ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AVarAssignExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 819;
- fra.me.meth = LOCATE_syntax___typing___AVarAssignExpr___after_typing;
- 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;
- /* syntax/typing.nit:821 */
- fra.me.REG[2] = CALL_syntax___syntax_base___AVarFormExpr___variable(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___TypingVisitor___mark_is_set(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* syntax/typing.nit:824 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___base_flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[3] = CALL_syntax___syntax_base___AVarFormExpr___variable(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_syntax___flow___FlowContext___stype(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- /* syntax/typing.nit:825 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AAssignFormExpr___n_value(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___syntax_base___AbsSyntaxVisitor___check_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:826 */
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- fra.me.REG[2] = CALL_parser___parser_nodes___AAssignFormExpr___n_value(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[3]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- } else {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:829 */
- fra.me.REG[3] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[2] = CALL_syntax___syntax_base___AVarFormExpr___variable(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_parser___parser_nodes___AAssignFormExpr___n_value(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[4] = CALL_syntax___flow___FlowContext___sub_with(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0], fra.me.REG[2], fra.me.REG[4]);
- CALL_syntax___typing___TypingVisitor___flow_ctx__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
- /* syntax/typing.nit:831 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___AReassignFormExpr___do_rvalue_typing(val_t p0, val_t p1, val_t p2){
- struct {struct stack_frame_t me; val_t MORE_REG[7];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- static val_t once_value_2; /* Once value */
- static val_t once_value_3; /* Once value */
- 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___typing;
- fra.me.line = 836;
- fra.me.meth = LOCATE_syntax___typing___AReassignFormExpr___do_rvalue_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 8;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[6] = NIT_NULL;
- fra.me.REG[7] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- fra.me.REG[2] = p2;
- /* syntax/typing.nit:841 */
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:842 */
- fra.me.REG[3] = NIT_NULL;
- goto label1;
- }
- /* syntax/typing.nit:844 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AReassignFormExpr___n_assign_op(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_syntax___typing___AAssignOp___method_name(fra.me.REG[4])(fra.me.REG[4]);
- /* syntax/typing.nit:845 */
- REGB0 = TAG_Bool((fra.me.REG[2]!=NIT_NULL) && VAL_ISA(fra.me.REG[2], COLOR_metamodel___static_type___MMTypeNone, ID_metamodel___static_type___MMTypeNone)) /*cast MMTypeNone*/;
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:846 */
- REGB0 = TAG_Int(3);
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_2) {
- fra.me.REG[6] = BOX_NativeString("Error: Method '");
- REGB0 = TAG_Int(15);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
- once_value_2 = fra.me.REG[6];
- register_static_object(&once_value_2);
- } else fra.me.REG[6] = once_value_2;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
- fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
- if (!once_value_3) {
- fra.me.REG[6] = BOX_NativeString("' call on 'null'.");
- REGB0 = TAG_Int(17);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
- once_value_3 = fra.me.REG[6];
- register_static_object(&once_value_3);
- } else fra.me.REG[6] = once_value_3;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[5]);
- /* syntax/typing.nit:847 */
- fra.me.REG[3] = NIT_NULL;
- goto label1;
- }
- /* syntax/typing.nit:849 */
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 849);
- }
- fra.me.REG[5] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:850 */
- REGB0 = CALL_metamodel___abstractmetamodel___MMLocalClass___has_global_property_by_name(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:851 */
- REGB0 = TAG_Int(5);
- fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_4) {
- fra.me.REG[7] = BOX_NativeString("Error: Method '");
- REGB0 = TAG_Int(15);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_4 = fra.me.REG[7];
- register_static_object(&once_value_4);
- } else fra.me.REG[7] = once_value_4;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
- fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
- if (!once_value_5) {
- fra.me.REG[7] = BOX_NativeString("' doesn't exists in ");
- REGB0 = TAG_Int(20);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_5 = fra.me.REG[7];
- register_static_object(&once_value_5);
- } else fra.me.REG[7] = once_value_5;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
- fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
- if (!once_value_6) {
- fra.me.REG[7] = BOX_NativeString(".");
- REGB0 = TAG_Int(1);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_6 = fra.me.REG[7];
- register_static_object(&once_value_6);
- } else fra.me.REG[7] = once_value_6;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
- fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[6]);
- /* syntax/typing.nit:852 */
- fra.me.REG[3] = NIT_NULL;
- goto label1;
- }
- /* syntax/typing.nit:854 */
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalClass___select_method(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- /* syntax/typing.nit:855 */
- fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[6] = CALL_syntax___syntax_base___AbsSyntaxVisitor___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(false);
- CALL_syntax___syntax_base___MMGlobalProperty___check_visibility(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[1], fra.me.REG[0], fra.me.REG[6], REGB0);
- /* syntax/typing.nit:856 */
- fra.me.REG[2] = CALL_metamodel___static_type___MMLocalProperty___signature_for(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
- /* syntax/typing.nit:857 */
- ATTR_syntax___typing___AReassignFormExpr____assign_method(fra.me.REG[0]) = fra.me.REG[4];
- /* syntax/typing.nit:858 */
- fra.me.REG[0] = CALL_parser___parser_nodes___AReassignFormExpr___n_value(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Int(0);
- fra.me.REG[4] = CALL_metamodel___static_type___MMSignature_____bra(fra.me.REG[2])(fra.me.REG[2], REGB0);
- fra.me.REG[4] = CALL_metamodel___static_type___MMType___not_for_self(fra.me.REG[4])(fra.me.REG[4]);
- REGB0 = CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[4]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- fra.me.REG[3] = NIT_NULL;
- goto label1;
- }
- /* syntax/typing.nit:859 */
- fra.me.REG[2] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 859);
- }
- fra.me.REG[2] = CALL_metamodel___static_type___MMType___not_for_self(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[3] = fra.me.REG[2];
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[3];
-}
-val_t syntax___typing___AReassignFormExpr___assign_method(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 862;
- fra.me.meth = LOCATE_syntax___typing___AReassignFormExpr___assign_method;
- 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;
- /* syntax/typing.nit:862 */
- fra.me.REG[1] = fra.me.REG[0];
- fra.me.REG[1] = ATTR_syntax___typing___AReassignFormExpr____assign_method(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[1]!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 862);
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-void syntax___typing___AVarReassignExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 867;
- fra.me.meth = LOCATE_syntax___typing___AVarReassignExpr___after_typing;
- 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;
- /* syntax/typing.nit:869 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[3] = CALL_syntax___syntax_base___AVarFormExpr___variable(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___flow___FlowContext___check_is_set(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0], fra.me.REG[3]);
- /* syntax/typing.nit:870 */
- fra.me.REG[3] = CALL_syntax___syntax_base___AVarFormExpr___variable(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___TypingVisitor___mark_is_set(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- /* syntax/typing.nit:871 */
- fra.me.REG[3] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[2] = CALL_syntax___syntax_base___AVarFormExpr___variable(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_syntax___flow___FlowContext___stype(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- /* syntax/typing.nit:872 */
- fra.me.REG[2] = CALL_syntax___typing___AReassignFormExpr___do_rvalue_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2]);
- /* syntax/typing.nit:873 */
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:876 */
- fra.me.REG[3] = CALL_syntax___typing___TypingVisitor___base_flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[4] = CALL_syntax___syntax_base___AVarFormExpr___variable(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_syntax___flow___FlowContext___stype(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- /* syntax/typing.nit:877 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AReassignFormExpr___n_value(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___syntax_base___AbsSyntaxVisitor___check_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:878 */
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- fra.me.REG[3] = CALL_parser___parser_nodes___AReassignFormExpr___n_value(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3], fra.me.REG[2], fra.me.REG[4]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- } else {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:881 */
- fra.me.REG[4] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[3] = CALL_syntax___syntax_base___AVarFormExpr___variable(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_syntax___flow___FlowContext___sub_with(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[0], fra.me.REG[3], fra.me.REG[2]);
- CALL_syntax___typing___TypingVisitor___flow_ctx__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* syntax/typing.nit:883 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___AAssignOp___method_name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 888;
- fra.me.meth = LOCATE_syntax___typing___AAssignOp___method_name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 0;
- fra.me.nitni_local_ref_head = NULL;
- /* syntax/typing.nit:888 */
- nit_abort("Deferred method called", NULL, LOCATE_syntax___typing, 888);
- stack_frame_head = fra.me.prev;
- return NIT_NULL;
-}
-val_t syntax___typing___APlusAssignOp___method_name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 891;
- fra.me.meth = LOCATE_syntax___typing___APlusAssignOp___method_name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:891 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString("+");
- REGB0 = TAG_Int(1);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- 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 label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___AMinusAssignOp___method_name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 894;
- fra.me.meth = LOCATE_syntax___typing___AMinusAssignOp___method_name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:894 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString("-");
- REGB0 = TAG_Int(1);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- 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 label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___ASelfExpr___variable(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 899;
- fra.me.meth = LOCATE_syntax___typing___ASelfExpr___variable;
- 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;
- /* syntax/typing.nit:899 */
- fra.me.REG[1] = fra.me.REG[0];
- fra.me.REG[1] = ATTR_syntax___typing___ASelfExpr____variable(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[1]!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 899);
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-val_t syntax___typing___ASelfExpr___its_variable(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 901;
- fra.me.meth = LOCATE_syntax___typing___ASelfExpr___its_variable;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:901 */
- fra.me.REG[0] = CALL_syntax___syntax_base___ASelfExpr___variable(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void syntax___typing___ASelfExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 903;
- fra.me.meth = LOCATE_syntax___typing___ASelfExpr___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:905 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___self_var(fra.me.REG[1])(fra.me.REG[1]);
- ATTR_syntax___typing___ASelfExpr____variable(fra.me.REG[0]) = fra.me.REG[2];
- /* syntax/typing.nit:906 */
- fra.me.REG[1] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[2] = CALL_syntax___syntax_base___ASelfExpr___variable(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_syntax___flow___FlowContext___stype(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[2];
- /* syntax/typing.nit:907 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___ASelfExpr___is_self(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 910;
- fra.me.meth = LOCATE_syntax___typing___ASelfExpr___is_self;
- 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;
- /* syntax/typing.nit:910 */
- REGB0 = TAG_Bool(true);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-val_t syntax___typing___AImplicitSelfExpr___is_implicit_self(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 914;
- fra.me.meth = LOCATE_syntax___typing___AImplicitSelfExpr___is_implicit_self;
- 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;
- /* syntax/typing.nit:914 */
- REGB0 = TAG_Bool(true);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-void syntax___typing___AIfexprExpr___accept_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 918;
- fra.me.meth = LOCATE_syntax___typing___AIfexprExpr___accept_typing;
- 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;
- /* syntax/typing.nit:920 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:923 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AIfexprExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_parser___parser_prod___Visitor___enter_visit(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- /* syntax/typing.nit:924 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AIfexprExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_bool(fra.me.REG[1])(fra.me.REG[1]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3], fra.me.REG[4]);
- /* syntax/typing.nit:927 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AIfexprExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___TypingVisitor___use_if_true_flow_ctx(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
- /* syntax/typing.nit:930 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AIfexprExpr___n_then(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___TypingVisitor___enter_visit_block(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
- /* syntax/typing.nit:933 */
- fra.me.REG[4] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:936 */
- CALL_syntax___typing___TypingVisitor___flow_ctx__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* syntax/typing.nit:937 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AIfexprExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___TypingVisitor___use_if_false_flow_ctx(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* syntax/typing.nit:940 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AIfexprExpr___n_else(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___TypingVisitor___enter_visit_block(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* syntax/typing.nit:943 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___base_flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[3] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[3] = CALL_syntax___flow___FlowContext___merge_reash(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0], fra.me.REG[4], fra.me.REG[3]);
- CALL_syntax___typing___TypingVisitor___flow_ctx__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- /* syntax/typing.nit:945 */
- REGB0 = TAG_Int(2);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- fra.me.REG[4] = CALL_parser___parser_nodes___AIfexprExpr___n_then(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[4] = CALL_parser___parser_nodes___AIfexprExpr___n_else(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[3] = CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_multiexpr(fra.me.REG[1])(fra.me.REG[1], NIT_NULL, fra.me.REG[3]);
- /* syntax/typing.nit:946 */
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:948 */
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[3];
- /* syntax/typing.nit:949 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___ABoolExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 954;
- fra.me.meth = LOCATE_syntax___typing___ABoolExpr___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:956 */
- fra.me.REG[1] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_bool(fra.me.REG[1])(fra.me.REG[1]);
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[1];
- /* syntax/typing.nit:957 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AOrExpr___accept_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 962;
- fra.me.meth = LOCATE_syntax___typing___AOrExpr___accept_typing;
- 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;
- /* syntax/typing.nit:964 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:965 */
- fra.me.REG[3] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_bool(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:966 */
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[3];
- /* syntax/typing.nit:969 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AOrExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_parser___parser_prod___Visitor___enter_visit(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
- /* syntax/typing.nit:972 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AOrExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___TypingVisitor___use_if_false_flow_ctx(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
- /* syntax/typing.nit:975 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AOrExpr___n_expr2(fra.me.REG[0])(fra.me.REG[0]);
- CALL_parser___parser_prod___Visitor___enter_visit(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
- /* syntax/typing.nit:976 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AOrExpr___n_expr2(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_syntax___typing___AExpr___if_false_flow_ctx(fra.me.REG[4])(fra.me.REG[4]);
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:977 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AOrExpr___n_expr2(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_syntax___typing___AExpr___if_false_flow_ctx(fra.me.REG[4])(fra.me.REG[4]);
- ATTR_syntax___typing___AExpr____if_false_flow_ctx(fra.me.REG[0]) = fra.me.REG[4];
- } else {
- /* syntax/typing.nit:979 */
- fra.me.REG[4] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- ATTR_syntax___typing___AExpr____if_false_flow_ctx(fra.me.REG[0]) = fra.me.REG[4];
- }
- /* syntax/typing.nit:982 */
- CALL_syntax___typing___TypingVisitor___flow_ctx__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* syntax/typing.nit:984 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AOrExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[3]);
- /* syntax/typing.nit:985 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AOrExpr___n_expr2(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[3]);
- /* syntax/typing.nit:986 */
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[3];
- /* syntax/typing.nit:987 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AAndExpr___accept_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 992;
- fra.me.meth = LOCATE_syntax___typing___AAndExpr___accept_typing;
- 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;
- /* syntax/typing.nit:994 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:995 */
- fra.me.REG[3] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_bool(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:998 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AAndExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_parser___parser_prod___Visitor___enter_visit(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
- /* syntax/typing.nit:1001 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AAndExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___TypingVisitor___use_if_true_flow_ctx(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
- /* syntax/typing.nit:1004 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AAndExpr___n_expr2(fra.me.REG[0])(fra.me.REG[0]);
- CALL_parser___parser_prod___Visitor___enter_visit(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
- /* syntax/typing.nit:1005 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AAndExpr___n_expr2(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_syntax___typing___AExpr___if_true_flow_ctx(fra.me.REG[4])(fra.me.REG[4]);
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1006 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AAndExpr___n_expr2(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_syntax___typing___AExpr___if_true_flow_ctx(fra.me.REG[4])(fra.me.REG[4]);
- ATTR_syntax___typing___AExpr____if_true_flow_ctx(fra.me.REG[0]) = fra.me.REG[4];
- } else {
- /* syntax/typing.nit:1008 */
- fra.me.REG[4] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- ATTR_syntax___typing___AExpr____if_true_flow_ctx(fra.me.REG[0]) = fra.me.REG[4];
- }
- /* syntax/typing.nit:1011 */
- CALL_syntax___typing___TypingVisitor___flow_ctx__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* syntax/typing.nit:1013 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AAndExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[3]);
- /* syntax/typing.nit:1014 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AAndExpr___n_expr2(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[3]);
- /* syntax/typing.nit:1015 */
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[3];
- /* syntax/typing.nit:1016 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___ANotExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1021;
- fra.me.meth = LOCATE_syntax___typing___ANotExpr___after_typing;
- 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;
- /* syntax/typing.nit:1023 */
- fra.me.REG[2] = CALL_parser___parser_nodes___ANotExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_bool(fra.me.REG[1])(fra.me.REG[1]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[3]);
- /* syntax/typing.nit:1026 */
- fra.me.REG[3] = CALL_parser___parser_nodes___ANotExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = ATTR_syntax___typing___AExpr____if_true_flow_ctx(fra.me.REG[3]);
- ATTR_syntax___typing___AExpr____if_false_flow_ctx(fra.me.REG[0]) = fra.me.REG[3];
- /* syntax/typing.nit:1027 */
- fra.me.REG[3] = CALL_parser___parser_nodes___ANotExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = ATTR_syntax___typing___AExpr____if_false_flow_ctx(fra.me.REG[3]);
- ATTR_syntax___typing___AExpr____if_true_flow_ctx(fra.me.REG[0]) = fra.me.REG[3];
- /* syntax/typing.nit:1029 */
- fra.me.REG[1] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_bool(fra.me.REG[1])(fra.me.REG[1]);
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[1];
- /* syntax/typing.nit:1030 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AOrElseExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[6];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1035;
- fra.me.meth = LOCATE_syntax___typing___AOrElseExpr___after_typing;
- 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;
- /* syntax/typing.nit:1037 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:1040 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AOrElseExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_parser___parser_prod___Visitor___enter_visit(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- /* syntax/typing.nit:1041 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AOrElseExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___check_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- /* syntax/typing.nit:1044 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AOrElseExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[3])(fra.me.REG[3]);
- /* syntax/typing.nit:1045 */
- REGB0 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[3])(fra.me.REG[3]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1046 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AOrElseExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- if (!once_value_1) {
- fra.me.REG[5] = BOX_NativeString("Warning: left operand of a 'or else' is not a nullable type.");
- REGB0 = TAG_Int(60);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_1 = fra.me.REG[5];
- register_static_object(&once_value_1);
- } else fra.me.REG[5] = once_value_1;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_syntax___syntax_base___AbsSyntaxVisitor___warning(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4], fra.me.REG[5]);
- } else {
- /* syntax/typing.nit:1048 */
- fra.me.REG[5] = CALL_metamodel___static_type___MMType___as_notnull(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[3] = fra.me.REG[5];
- }
- /* syntax/typing.nit:1052 */
- fra.me.REG[5] = CALL_parser___parser_nodes___AOrElseExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[5] = CALL_syntax___typing___AExpr___its_variable(fra.me.REG[5])(fra.me.REG[5]);
- /* syntax/typing.nit:1053 */
- REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[5])(fra.me.REG[5], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1054 */
- fra.me.REG[4] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[6] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_none(fra.me.REG[1])(fra.me.REG[1]);
- CALL_syntax___flow___FlowContext___sub_with(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[0], fra.me.REG[5], fra.me.REG[6]);
- }
- /* syntax/typing.nit:1058 */
- fra.me.REG[6] = CALL_parser___parser_nodes___AOrElseExpr___n_expr2(fra.me.REG[0])(fra.me.REG[0]);
- CALL_parser___parser_prod___Visitor___enter_visit(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[6]);
- /* syntax/typing.nit:1059 */
- fra.me.REG[6] = CALL_parser___parser_nodes___AOrElseExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___check_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[6]);
- /* syntax/typing.nit:1062 */
- CALL_syntax___typing___TypingVisitor___flow_ctx__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- /* syntax/typing.nit:1065 */
- REGB0 = TAG_Int(1);
- fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- fra.me.REG[6] = CALL_parser___parser_nodes___AOrElseExpr___n_expr2(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[6]);
- fra.me.REG[2] = CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_multiexpr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3], fra.me.REG[2]);
- /* syntax/typing.nit:1066 */
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- if (UNTAG_Bool(REGB0)) {
- goto label2;
- }
- /* syntax/typing.nit:1068 */
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[2];
- /* syntax/typing.nit:1069 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AIntExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1074;
- fra.me.meth = LOCATE_syntax___typing___AIntExpr___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:1076 */
- fra.me.REG[1] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_int(fra.me.REG[1])(fra.me.REG[1]);
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[1];
- /* syntax/typing.nit:1077 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AFloatExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1082;
- fra.me.meth = LOCATE_syntax___typing___AFloatExpr___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:1084 */
- fra.me.REG[1] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_float(fra.me.REG[1])(fra.me.REG[1]);
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[1];
- /* syntax/typing.nit:1085 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___ACharExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1090;
- fra.me.meth = LOCATE_syntax___typing___ACharExpr___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:1092 */
- fra.me.REG[1] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_char(fra.me.REG[1])(fra.me.REG[1]);
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[1];
- /* syntax/typing.nit:1093 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AStringFormExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1098;
- fra.me.meth = LOCATE_syntax___typing___AStringFormExpr___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:1100 */
- fra.me.REG[1] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_string(fra.me.REG[1])(fra.me.REG[1]);
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[1];
- /* syntax/typing.nit:1101 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___ASuperstringExpr___atype(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1106;
- fra.me.meth = LOCATE_syntax___typing___ASuperstringExpr___atype;
- 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;
- /* syntax/typing.nit:1106 */
- fra.me.REG[1] = fra.me.REG[0];
- fra.me.REG[1] = ATTR_syntax___typing___ASuperstringExpr____atype(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[1]!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 1106);
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-void syntax___typing___ASuperstringExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1108;
- fra.me.meth = LOCATE_syntax___typing___ASuperstringExpr___after_typing;
- 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;
- /* syntax/typing.nit:1110 */
- fra.me.REG[2] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_object(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:1111 */
- fra.me.REG[3] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_string(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:1112 */
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[3];
- /* syntax/typing.nit:1113 */
- fra.me.REG[4] = CALL_parser___parser_nodes___ASuperstringExpr___n_exprs(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[4])(fra.me.REG[4], (&(fra.me)), ((fun_t)OC_syntax___typing___ASuperstringExpr___after_typing_1));
- /* syntax/typing.nit:1114 */
- fra.me.REG[3] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_array(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- /* syntax/typing.nit:1115 */
- ATTR_syntax___typing___ASuperstringExpr____atype(fra.me.REG[0]) = fra.me.REG[3];
- /* syntax/typing.nit:1116 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
- void OC_syntax___typing___ASuperstringExpr___after_typing_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
- struct {struct stack_frame_t me;} fra;
- fun_t CREG[1];
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 0;
- fra.me.meth = LOCATE_syntax___typing___ASuperstringExpr___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.closure_ctx = closctx_param;
- fra.me.closure_funs = CREG;
- fra.me.REG[0] = p0;
- CREG[0] = clos_fun0;
- CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_expr(closctx->REG[1])(closctx->REG[1], fra.me.REG[0], closctx->REG[2]);
- stack_frame_head = fra.me.prev;
- return;
- }
-void syntax___typing___ANullExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1121;
- fra.me.meth = LOCATE_syntax___typing___ANullExpr___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:1123 */
- fra.me.REG[1] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_none(fra.me.REG[1])(fra.me.REG[1]);
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[1];
- /* syntax/typing.nit:1124 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AArrayExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1129;
- fra.me.meth = LOCATE_syntax___typing___AArrayExpr___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:1131 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AArrayExpr___n_exprs(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_parser___parser_nodes___AExprs___n_exprs(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[2] = CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_multiexpr(fra.me.REG[1])(fra.me.REG[1], NIT_NULL, fra.me.REG[2]);
- /* syntax/typing.nit:1132 */
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- CALL_syntax___typing___AArrayExpr___do_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2]);
- }
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AArrayExpr___do_typing(val_t p0, val_t p1, val_t p2){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1135;
- fra.me.meth = LOCATE_syntax___typing___AArrayExpr___do_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- fra.me.REG[2] = p2;
- /* syntax/typing.nit:1137 */
- fra.me.REG[2] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_array(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[2];
- /* syntax/typing.nit:1138 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___ARangeExpr___after_typing(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_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_syntax___typing;
- fra.me.line = 1143;
- fra.me.meth = LOCATE_syntax___typing___ARangeExpr___after_typing;
- 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;
- /* syntax/typing.nit:1145 */
- fra.me.REG[2] = CALL_parser___parser_nodes___ARangeExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___syntax_base___AbsSyntaxVisitor___check_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(true);
- } else {
- fra.me.REG[2] = CALL_parser___parser_nodes___ARangeExpr___n_expr2(fra.me.REG[0])(fra.me.REG[0]);
- REGB1 = CALL_syntax___syntax_base___AbsSyntaxVisitor___check_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:1146 */
- fra.me.REG[2] = CALL_parser___parser_nodes___ARangeExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:1147 */
- fra.me.REG[3] = CALL_parser___parser_nodes___ARangeExpr___n_expr2(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[3])(fra.me.REG[3]);
- /* syntax/typing.nit:1148 */
- REGB0 = CALL_metamodel___static_type___MMType_____l(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1149 */
- fra.me.REG[2] = fra.me.REG[3];
- } else {
- /* syntax/typing.nit:1150 */
- REGB0 = CALL_metamodel___static_type___MMType_____l(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1151 */
- REGB0 = TAG_Int(5);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_2) {
- fra.me.REG[5] = BOX_NativeString("Type error: ");
- REGB0 = TAG_Int(12);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_2 = fra.me.REG[5];
- register_static_object(&once_value_2);
- } else fra.me.REG[5] = once_value_2;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- if (!once_value_3) {
- fra.me.REG[5] = BOX_NativeString(" incompatible with ");
- REGB0 = TAG_Int(19);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_3 = fra.me.REG[5];
- register_static_object(&once_value_3);
- } else fra.me.REG[5] = once_value_3;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- if (!once_value_4) {
- 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_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[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[4]);
- /* syntax/typing.nit:1152 */
- goto label1;
- }
- }
- /* syntax/typing.nit:1154 */
- fra.me.REG[4] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_discrete(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:1155 */
- fra.me.REG[3] = CALL_parser___parser_nodes___ARangeExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3], fra.me.REG[4]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(true);
- } else {
- fra.me.REG[3] = CALL_parser___parser_nodes___ARangeExpr___n_expr2(fra.me.REG[0])(fra.me.REG[0]);
- REGB1 = CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3], fra.me.REG[4]);
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:1156 */
- fra.me.REG[2] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_range(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[2];
- /* syntax/typing.nit:1157 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___ASuperExpr___init_in_superclass(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1162;
- fra.me.meth = LOCATE_syntax___typing___ASuperExpr___init_in_superclass;
- 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;
- /* syntax/typing.nit:1162 */
- fra.me.REG[0] = ATTR_syntax___typing___ASuperExpr____init_in_superclass(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___ASuperExpr___compute_raw_arguments(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1163;
- fra.me.meth = LOCATE_syntax___typing___ASuperExpr___compute_raw_arguments;
- 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;
- /* syntax/typing.nit:1163 */
- fra.me.REG[0] = CALL_parser___parser_nodes___ASuperExpr___n_args(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_syntax___syntax_base___AExprs___to_a(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void syntax___typing___ASuperExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[9];} 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_5; /* Once value */
- static val_t once_value_6; /* Once value */
- static val_t once_value_8; /* Once value */
- static val_t once_value_9; /* Once value */
- static val_t once_value_10; /* Once value */
- static val_t once_value_11; /* Once value */
- static val_t once_value_12; /* Once value */
- static val_t once_value_13; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1164;
- fra.me.meth = LOCATE_syntax___typing___ASuperExpr___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 10;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[6] = NIT_NULL;
- fra.me.REG[7] = NIT_NULL;
- fra.me.REG[8] = NIT_NULL;
- fra.me.REG[9] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:1164 */
- fra.me.REG[2] = fra.me.REG[0];
- /* syntax/typing.nit:1166 */
- fra.me.REG[3] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___prhe(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]);
- /* syntax/typing.nit:1167 */
- REGB0 = CALL_standard___collection___abstract_collection___Collection___is_empty(fra.me.REG[3])(fra.me.REG[3]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1168 */
- fra.me.REG[4] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(true);
- CALL_metamodel___abstractmetamodel___MMLocalProperty___need_super__eq(fra.me.REG[4])(fra.me.REG[4], REGB0);
- } else {
- /* syntax/typing.nit:1169 */
- fra.me.REG[4] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[4])(fra.me.REG[4]);
- REGB0 = CALL_metamodel___abstractmetamodel___MMGlobalProperty___is_init(fra.me.REG[4])(fra.me.REG[4]);
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1170 */
- fra.me.REG[4] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_class(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[5] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalProperty___name(fra.me.REG[5])(fra.me.REG[5]);
- fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalClass___super_methods_named(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- /* ../lib/standard/collection/array.nit:266 */
- fra.me.REG[4] = fra.me.REG[5];
- /* ../lib/standard/collection/array.nit:269 */
- REGB0 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:270 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 270);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4]);
- /* ../lib/standard/collection/array.nit:271 */
- fra.me.REG[6] = ATTR_standard___collection___array___Array____items(fra.me.REG[4]);
- /* ../lib/standard/collection/array.nit:272 */
- while(1) {
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4]);
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:272 */
- if (UNTAG_Bool(REGB1)) {
- /* ../lib/standard/collection/array.nit:273 */
- REGB1 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 273);
- }
- /* ../lib/standard/collection/array.nit:718 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[6])->val[UNTAG_Int(REGB0)];
- /* syntax/typing.nit:1172 */
- fra.me.REG[8] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[7])(fra.me.REG[7]);
- REGB1 = CALL_metamodel___abstractmetamodel___MMGlobalProperty___is_init(fra.me.REG[8])(fra.me.REG[8]);
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:1173 */
- REGB1 = TAG_Int(5);
- fra.me.REG[8] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_1) {
- fra.me.REG[9] = BOX_NativeString("Error: ");
- REGB1 = TAG_Int(7);
- fra.me.REG[9] = NEW_String_standard___string___String___with_native(fra.me.REG[9], REGB1);
- once_value_1 = fra.me.REG[9];
- register_static_object(&once_value_1);
- } else fra.me.REG[9] = once_value_1;
- fra.me.REG[9] = fra.me.REG[9];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[9]);
- fra.me.REG[9] = CALL_metamodel___abstractmetamodel___MMLocalProperty___local_class(fra.me.REG[7])(fra.me.REG[7]);
- fra.me.REG[9] = CALL_standard___string___Object___to_s(fra.me.REG[9])(fra.me.REG[9]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[9]);
- if (!once_value_2) {
- fra.me.REG[9] = BOX_NativeString("::");
- REGB1 = TAG_Int(2);
- fra.me.REG[9] = NEW_String_standard___string___String___with_native(fra.me.REG[9], REGB1);
- once_value_2 = fra.me.REG[9];
- register_static_object(&once_value_2);
- } else fra.me.REG[9] = once_value_2;
- fra.me.REG[9] = fra.me.REG[9];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[9]);
- fra.me.REG[9] = CALL_standard___string___Object___to_s(fra.me.REG[7])(fra.me.REG[7]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[9]);
- if (!once_value_3) {
- fra.me.REG[9] = BOX_NativeString(" is not a constructor.");
- REGB1 = TAG_Int(22);
- fra.me.REG[9] = NEW_String_standard___string___String___with_native(fra.me.REG[9], REGB1);
- once_value_3 = fra.me.REG[9];
- register_static_object(&once_value_3);
- } else fra.me.REG[9] = once_value_3;
- fra.me.REG[9] = fra.me.REG[9];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[9]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[8]);
- } else {
- /* syntax/typing.nit:1175 */
- fra.me.REG[8] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_class(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[7] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[7])(fra.me.REG[7]);
- fra.me.REG[7] = CALL_metamodel___abstractmetamodel___MMLocalClass_____bra(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[7]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[7]);
- }
- /* ../lib/standard/collection/array.nit:274 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:235 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:274 */
- REGB0 = REGB1;
- } else {
- /* ../lib/standard/collection/array.nit:272 */
- goto label4;
- }
- }
- label4: while(0);
- /* syntax/typing.nit:1178 */
- REGB0 = CALL_standard___collection___abstract_collection___Collection___is_empty(fra.me.REG[3])(fra.me.REG[3]);
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1179 */
- REGB0 = TAG_Int(3);
- fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_5) {
- fra.me.REG[4] = BOX_NativeString("Error: No contructor named ");
- REGB0 = TAG_Int(27);
- 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[6])(fra.me.REG[6], fra.me.REG[4]);
- fra.me.REG[4] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___name(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[4]);
- if (!once_value_6) {
- fra.me.REG[4] = BOX_NativeString(" in superclasses.");
- REGB0 = TAG_Int(17);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_6 = fra.me.REG[4];
- register_static_object(&once_value_6);
- } else fra.me.REG[4] = once_value_6;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[4]);
- fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[6]);
- /* syntax/typing.nit:1180 */
- goto label7;
- } else {
- /* ../lib/standard/collection/array.nit:24 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3]);
- /* syntax/typing.nit:1181 */
- 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:234 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)>UNTAG_Int(REGB1));
- /* syntax/typing.nit:1181 */
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:1182 */
- REGB1 = TAG_Int(5);
- fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_8) {
- fra.me.REG[4] = BOX_NativeString("Error: Conflicting contructors named ");
- REGB1 = TAG_Int(37);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB1);
- once_value_8 = fra.me.REG[4];
- register_static_object(&once_value_8);
- } else fra.me.REG[4] = once_value_8;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[4]);
- fra.me.REG[4] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___name(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[4]);
- if (!once_value_9) {
- fra.me.REG[4] = BOX_NativeString(" in superclasses: ");
- REGB1 = TAG_Int(18);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB1);
- once_value_9 = fra.me.REG[4];
- register_static_object(&once_value_9);
- } else fra.me.REG[4] = once_value_9;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[4]);
- if (!once_value_10) {
- fra.me.REG[4] = BOX_NativeString(", ");
- REGB1 = TAG_Int(2);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB1);
- once_value_10 = fra.me.REG[4];
- register_static_object(&once_value_10);
- } else fra.me.REG[4] = once_value_10;
- fra.me.REG[4] = fra.me.REG[4];
- fra.me.REG[4] = CALL_standard___string___Collection___join(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[4]);
- if (!once_value_11) {
- fra.me.REG[4] = BOX_NativeString(".");
- REGB1 = TAG_Int(1);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB1);
- once_value_11 = fra.me.REG[4];
- register_static_object(&once_value_11);
- } else fra.me.REG[4] = once_value_11;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[4]);
- fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[6]);
- /* syntax/typing.nit:1183 */
- goto label7;
- }
- }
- /* syntax/typing.nit:1185 */
- fra.me.REG[5] = CALL_standard___collection___abstract_collection___Collection___first(fra.me.REG[5])(fra.me.REG[5]);
- /* syntax/typing.nit:1186 */
- REGB1 = TAG_Bool(VAL_ISA(fra.me.REG[5], COLOR_metamodel___abstractmetamodel___MMMethod, ID_metamodel___abstractmetamodel___MMMethod)) /*cast MMMethod*/;
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_syntax___typing, 1186);
- }
- /* syntax/typing.nit:1187 */
- ATTR_syntax___typing___ASuperExpr____init_in_superclass(fra.me.REG[2]) = fra.me.REG[5];
- /* syntax/typing.nit:1188 */
- CALL_syntax___typing___ASuperInitCall___register_super_init_call(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1], fra.me.REG[5]);
- /* syntax/typing.nit:1189 */
- fra.me.REG[6] = CALL_parser___parser_nodes___ASuperExpr___n_args(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[6] = CALL_parser___parser_nodes___AExprs___n_exprs(fra.me.REG[6])(fra.me.REG[6]);
- REGB1 = CALL_standard___collection___abstract_collection___Collection___length(fra.me.REG[6])(fra.me.REG[6]);
- REGB0 = TAG_Int(0);
- REGB2 = TAG_Bool(VAL_ISA(REGB0, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:234 */
- REGB0 = TAG_Bool(UNTAG_Int(REGB1)>UNTAG_Int(REGB0));
- /* syntax/typing.nit:1189 */
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1190 */
- fra.me.REG[6] = CALL_syntax___typing___TypingVisitor___self_var(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[6] = CALL_syntax___syntax_base___Variable___stype(fra.me.REG[6])(fra.me.REG[6]);
- REGB0 = TAG_Bool((fra.me.REG[6]!=NIT_NULL) && VAL_ISA(fra.me.REG[6], COLOR_metamodel___static_type___MMType, ID_metamodel___static_type___MMType)) /*cast MMType*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 1190);
- }
- REGB0 = TAG_Bool(true);
- fra.me.REG[6] = CALL_syntax___typing___AAbsSendExpr___get_signature(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1], fra.me.REG[6], fra.me.REG[5], REGB0);
- /* syntax/typing.nit:1191 */
- fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalProperty___name(fra.me.REG[5])(fra.me.REG[5]);
- fra.me.REG[4] = CALL_syntax___typing___AAbsAbsSendExpr___compute_raw_arguments(fra.me.REG[2])(fra.me.REG[2]);
- CALL_syntax___typing___AAbsAbsSendExpr___process_signature(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1], fra.me.REG[6], fra.me.REG[5], fra.me.REG[4]);
- }
- } else {
- /* syntax/typing.nit:1194 */
- REGB0 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_12) {
- fra.me.REG[5] = BOX_NativeString("Error: No super method to call for ");
- REGB0 = TAG_Int(35);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_12 = fra.me.REG[5];
- register_static_object(&once_value_12);
- } else fra.me.REG[5] = once_value_12;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- fra.me.REG[5] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- 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[4])(fra.me.REG[4], fra.me.REG[5]);
- if (!once_value_13) {
- fra.me.REG[5] = BOX_NativeString(".");
- REGB0 = TAG_Int(1);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_13 = fra.me.REG[5];
- register_static_object(&once_value_13);
- } else fra.me.REG[5] = once_value_13;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[4]);
- /* syntax/typing.nit:1195 */
- goto label7;
- }
- }
- /* syntax/typing.nit:1198 */
- fra.me.REG[4] = CALL_standard___collection___abstract_collection___Collection___first(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[5] = CALL_syntax___typing___TypingVisitor___self_var(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[5] = CALL_syntax___syntax_base___Variable___stype(fra.me.REG[5])(fra.me.REG[5]);
- REGB0 = TAG_Bool((fra.me.REG[5]!=NIT_NULL) && VAL_ISA(fra.me.REG[5], COLOR_metamodel___static_type___MMType, ID_metamodel___static_type___MMType)) /*cast MMType*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 1198);
- }
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1198);
- }
- fra.me.REG[5] = CALL_metamodel___static_type___MMLocalProperty___signature_for(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- fra.me.REG[5] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[5])(fra.me.REG[5]);
- REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[5])(fra.me.REG[5], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1199 */
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___init();
- /* syntax/typing.nit:1200 */
- fra.me.REG[4] = NIT_NULL;
- /* ../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[6] = 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:232 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:272 */
- if (UNTAG_Bool(REGB1)) {
- /* ../lib/standard/collection/array.nit:273 */
- REGB1 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 273);
- }
- /* ../lib/standard/collection/array.nit:718 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[6])->val[UNTAG_Int(REGB0)];
- /* syntax/typing.nit:1202 */
- REGB1 = TAG_Bool(VAL_ISA(fra.me.REG[7], COLOR_metamodel___abstractmetamodel___MMMethod, ID_metamodel___abstractmetamodel___MMMethod)) /*cast MMMethod*/;
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_syntax___typing, 1202);
- }
- /* syntax/typing.nit:1203 */
- fra.me.REG[8] = CALL_syntax___typing___TypingVisitor___self_var(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[8] = CALL_syntax___syntax_base___Variable___stype(fra.me.REG[8])(fra.me.REG[8]);
- REGB1 = TAG_Bool((fra.me.REG[8]!=NIT_NULL) && VAL_ISA(fra.me.REG[8], COLOR_metamodel___static_type___MMType, ID_metamodel___static_type___MMType)) /*cast MMType*/;
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 1203);
- }
- fra.me.REG[8] = CALL_metamodel___static_type___MMLocalProperty___signature_for(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- fra.me.REG[8] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[8])(fra.me.REG[8]);
- fra.me.REG[7] = CALL_syntax___syntax_base___AbsSyntaxVisitor___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
- REGB1 = TAG_Bool(fra.me.REG[8]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1203);
- }
- fra.me.REG[7] = CALL_metamodel___static_type___MMType___for_module(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[7]);
- fra.me.REG[8] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[8] = CALL_metamodel___static_type___MMLocalProperty___signature(fra.me.REG[8])(fra.me.REG[8]);
- REGB1 = TAG_Bool(fra.me.REG[8]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1203);
- }
- fra.me.REG[8] = CALL_metamodel___static_type___MMSignature___recv(fra.me.REG[8])(fra.me.REG[8]);
- fra.me.REG[8] = CALL_metamodel___static_type___MMType___adapt_to(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- /* syntax/typing.nit:1204 */
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[8]);
- /* syntax/typing.nit:1205 */
- REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- REGB2 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Bool(false);
- REGB1 = REGB2;
- } else {
- REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], NIT_NULL);
- REGB1 = REGB2;
- }
- }
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(true);
- } else {
- REGB2 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1205);
- }
- REGB2 = CALL_metamodel___static_type___MMType_____l(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[8]);
- REGB1 = REGB2;
- }
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:1206 */
- fra.me.REG[4] = fra.me.REG[8];
- }
- /* ../lib/standard/collection/array.nit:274 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:235 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:274 */
- REGB0 = REGB1;
- } else {
- /* ../lib/standard/collection/array.nit:272 */
- goto label14;
- }
- }
- label14: while(0);
- /* ../lib/standard/collection/array.nit:269 */
- REGB0 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:270 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[5])!=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[5]);
- /* ../lib/standard/collection/array.nit:271 */
- fra.me.REG[6] = ATTR_standard___collection___array___Array____items(fra.me.REG[5]);
- /* ../lib/standard/collection/array.nit:272 */
- while(1) {
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[5])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[5]);
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:272 */
- if (UNTAG_Bool(REGB1)) {
- /* ../lib/standard/collection/array.nit:273 */
- REGB1 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 273);
- }
- /* ../lib/standard/collection/array.nit:718 */
- fra.me.REG[3] = ((Nit_NativeArray)fra.me.REG[6])->val[UNTAG_Int(REGB0)];
- /* syntax/typing.nit:1210 */
- REGB1 = TAG_Bool(fra.me.REG[4]!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 1210);
- }
- CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[3], fra.me.REG[4]);
- /* ../lib/standard/collection/array.nit:274 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:235 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:274 */
- REGB0 = REGB1;
- } else {
- /* ../lib/standard/collection/array.nit:272 */
- goto label15;
- }
- }
- label15: while(0);
- /* syntax/typing.nit:1212 */
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[2]) = fra.me.REG[4];
- }
- /* syntax/typing.nit:1214 */
- fra.me.REG[1] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:1215 */
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[1], COLOR_syntax___syntax_base___MMSrcMethod, ID_syntax___syntax_base___MMSrcMethod)) /*cast MMSrcMethod*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_syntax___typing, 1215);
- }
- /* syntax/typing.nit:1216 */
- ATTR_syntax___typing___AAbsSendExpr____prop(fra.me.REG[2]) = fra.me.REG[1];
- /* syntax/typing.nit:1217 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[2]) = REGB0;
- label7: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___AExternCall___target_class_name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1222;
- fra.me.meth = LOCATE_syntax___typing___AExternCall___target_class_name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1222 */
- fra.me.REG[0] = NIT_NULL;
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___AExternCall___target_method_name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1223;
- fra.me.meth = LOCATE_syntax___typing___AExternCall___target_method_name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 0;
- fra.me.nitni_local_ref_head = NULL;
- /* syntax/typing.nit:1223 */
- nit_abort("Deferred method called", NULL, LOCATE_syntax___typing, 1223);
- stack_frame_head = fra.me.prev;
- return NIT_NULL;
-}
-void syntax___typing___AExternCall___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[7];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t 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 */
- 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_syntax___typing;
- fra.me.line = 1225;
- fra.me.meth = LOCATE_syntax___typing___AExternCall___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 8;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[6] = NIT_NULL;
- fra.me.REG[7] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:1225 */
- fra.me.REG[2] = fra.me.REG[0];
- /* syntax/typing.nit:1227 */
- fra.me.REG[3] = CALL_syntax___typing___AExternCall___target_class_name(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:1228 */
- fra.me.REG[4] = CALL_syntax___typing___AExternCall___target_method_name(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:1235 */
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1236 */
- fra.me.REG[5] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[5] = CALL_metamodel___abstractmetamodel___MMLocalProperty___local_class(fra.me.REG[5])(fra.me.REG[5]);
- } else {
- /* syntax/typing.nit:1238 */
- fra.me.REG[6] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[6] = CALL_metamodel___abstractmetamodel___MMLocalProperty___mmmodule(fra.me.REG[6])(fra.me.REG[6]);
- REGB0 = CALL_metamodel___abstractmetamodel___MMModule___has_global_class_named(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[3]);
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1239 */
- fra.me.REG[6] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[6] = CALL_metamodel___abstractmetamodel___MMLocalProperty___mmmodule(fra.me.REG[6])(fra.me.REG[6]);
- fra.me.REG[6] = CALL_metamodel___abstractmetamodel___MMModule___global_class_named(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[3]);
- /* syntax/typing.nit:1240 */
- fra.me.REG[7] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[7] = CALL_metamodel___abstractmetamodel___MMLocalProperty___mmmodule(fra.me.REG[7])(fra.me.REG[7]);
- fra.me.REG[6] = CALL_metamodel___abstractmetamodel___MMModule_____bra(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[6]);
- fra.me.REG[5] = fra.me.REG[6];
- } else {
- /* syntax/typing.nit:1242 */
- REGB0 = TAG_Int(3);
- fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_1) {
- fra.me.REG[7] = BOX_NativeString("Error: class ");
- REGB0 = TAG_Int(13);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_1 = fra.me.REG[7];
- register_static_object(&once_value_1);
- } else fra.me.REG[7] = once_value_1;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1242);
- }
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[3]);
- if (!once_value_2) {
- fra.me.REG[3] = BOX_NativeString(", not found.");
- REGB0 = TAG_Int(12);
- 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[6])(fra.me.REG[6], fra.me.REG[3]);
- fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[6]);
- /* syntax/typing.nit:1243 */
- goto label3;
- }
- }
- /* syntax/typing.nit:1247 */
- REGB0 = CALL_metamodel___abstractmetamodel___MMLocalClass___has_global_property_by_name(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1248 */
- fra.me.REG[6] = CALL_metamodel___abstractmetamodel___MMLocalClass___get_property_by_name(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- /* syntax/typing.nit:1250 */
- fra.me.REG[6] = CALL_metamodel___abstractmetamodel___MMLocalClass_____bra(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
- /* syntax/typing.nit:1252 */
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[6], COLOR_metamodel___abstractmetamodel___MMMethod, ID_metamodel___abstractmetamodel___MMMethod)) /*cast MMMethod*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- /* syntax/typing.nit:1255 */
- REGB0 = TAG_Int(3);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_4) {
- fra.me.REG[7] = BOX_NativeString("Error: property ");
- REGB0 = TAG_Int(16);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_4 = fra.me.REG[7];
- register_static_object(&once_value_4);
- } else fra.me.REG[7] = once_value_4;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[7]);
- fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[7]);
- if (!once_value_5) {
- fra.me.REG[7] = BOX_NativeString(" is not a method.");
- REGB0 = TAG_Int(17);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_5 = fra.me.REG[7];
- register_static_object(&once_value_5);
- } else fra.me.REG[7] = once_value_5;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[7]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[3]);
- /* syntax/typing.nit:1256 */
- goto label3;
- }
- } else {
- /* syntax/typing.nit:1259 */
- REGB0 = TAG_Int(3);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_6) {
- fra.me.REG[7] = BOX_NativeString("Error: property ");
- REGB0 = TAG_Int(16);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB0);
- once_value_6 = fra.me.REG[7];
- register_static_object(&once_value_6);
- } else fra.me.REG[7] = once_value_6;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[7]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- if (!once_value_7) {
- fra.me.REG[4] = BOX_NativeString(" not found in target class.");
- REGB0 = TAG_Int(27);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_7 = fra.me.REG[4];
- register_static_object(&once_value_7);
- } else fra.me.REG[4] = once_value_7;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[3]);
- /* syntax/typing.nit:1260 */
- goto label3;
- }
- /* syntax/typing.nit:1263 */
- fra.me.REG[6] = NEW_MMExplicitImport_metamodel___abstractmetamodel___MMExplicitImport___init(fra.me.REG[5], fra.me.REG[6]);
- /* syntax/typing.nit:1264 */
- fra.me.REG[1] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[1], COLOR_syntax___syntax_base___MMSrcMethod, ID_syntax___syntax_base___MMSrcMethod)) /*cast MMSrcMethod*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 1264);
- }
- fra.me.REG[1] = CALL_metamodel___abstractmetamodel___MMMethod___explicit_imports(fra.me.REG[1])(fra.me.REG[1]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[6]);
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___ALocalPropExternCall___target_class_name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1269;
- fra.me.meth = LOCATE_syntax___typing___ALocalPropExternCall___target_class_name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1269 */
- fra.me.REG[0] = NIT_NULL;
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___ALocalPropExternCall___target_method_name(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1270;
- fra.me.meth = LOCATE_syntax___typing___ALocalPropExternCall___target_method_name;
- 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;
- /* syntax/typing.nit:1270 */
- fra.me.REG[1] = fra.me.REG[0];
- fra.me.REG[1] = CALL_parser___parser_nodes___ALocalPropExternCall___n_methid(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[1] = CALL_syntax___syntax_base___AMethid___name(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool((fra.me.REG[1]!=NIT_NULL) && VAL_ISA(fra.me.REG[1], COLOR_standard___symbol___Symbol, ID_standard___symbol___Symbol)) /*cast Symbol*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 1270);
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-void syntax___typing___ASuperExternCall___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1274;
- fra.me.meth = LOCATE_syntax___typing___ASuperExternCall___after_typing;
- 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;
- /* syntax/typing.nit:1276 */
- fra.me.REG[2] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[2] = CALL_metamodel___abstractmetamodel___MMLocalProperty___prhe(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[2] = CALL_metamodel___partial_order___PartialOrderElement___direct_greaters(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:1277 */
- REGB0 = CALL_standard___collection___abstract_collection___Collection___is_empty(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1278 */
- fra.me.REG[2] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(true);
- CALL_metamodel___abstractmetamodel___MMLocalProperty___need_super__eq(fra.me.REG[2])(fra.me.REG[2], REGB0);
- } else {
- /* syntax/typing.nit:1280 */
- REGB0 = TAG_Int(3);
- fra.me.REG[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_1) {
- fra.me.REG[3] = BOX_NativeString("Error: No super method to call for ");
- REGB0 = TAG_Int(35);
- 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]);
- fra.me.REG[3] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[2])(fra.me.REG[2], 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[2])(fra.me.REG[2], fra.me.REG[3]);
- fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[2]);
- /* syntax/typing.nit:1281 */
- goto label3;
- }
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___AFullPropExternCall___target_class_name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1287;
- fra.me.meth = LOCATE_syntax___typing___AFullPropExternCall___target_class_name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1287 */
- fra.me.REG[0] = CALL_parser___parser_nodes___AFullPropExternCall___n_classid(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_syntax___syntax_base___Token___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___AFullPropExternCall___target_method_name(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1288;
- fra.me.meth = LOCATE_syntax___typing___AFullPropExternCall___target_method_name;
- 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;
- /* syntax/typing.nit:1288 */
- fra.me.REG[1] = fra.me.REG[0];
- fra.me.REG[1] = CALL_parser___parser_nodes___AFullPropExternCall___n_methid(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[1] = CALL_syntax___syntax_base___AMethid___name(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool((fra.me.REG[1]!=NIT_NULL) && VAL_ISA(fra.me.REG[1], COLOR_standard___symbol___Symbol, ID_standard___symbol___Symbol)) /*cast Symbol*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 1288);
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-val_t syntax___typing___AInitPropExternCall___target_class_name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1292;
- fra.me.meth = LOCATE_syntax___typing___AInitPropExternCall___target_class_name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1292 */
- fra.me.REG[0] = CALL_parser___parser_nodes___AInitPropExternCall___n_classid(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_syntax___syntax_base___Token___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___AInitPropExternCall___target_method_name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1293;
- fra.me.meth = LOCATE_syntax___typing___AInitPropExternCall___target_method_name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1293 */
- if (!once_value_1) {
- fra.me.REG[0] = BOX_NativeString("init");
- REGB0 = TAG_Int(4);
- 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];
- fra.me.REG[0] = CALL_standard___symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- goto label2;
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___ACastExternCall___from_type(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1297;
- fra.me.meth = LOCATE_syntax___typing___ACastExternCall___from_type;
- fra.me.has_broke = 0;
- fra.me.REG_size = 0;
- fra.me.nitni_local_ref_head = NULL;
- /* syntax/typing.nit:1297 */
- nit_abort("Deferred method called", NULL, LOCATE_syntax___typing, 1297);
- stack_frame_head = fra.me.prev;
- return NIT_NULL;
-}
-val_t syntax___typing___ACastExternCall___to_type(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1298;
- fra.me.meth = LOCATE_syntax___typing___ACastExternCall___to_type;
- fra.me.has_broke = 0;
- fra.me.REG_size = 0;
- fra.me.nitni_local_ref_head = NULL;
- /* syntax/typing.nit:1298 */
- nit_abort("Deferred method called", NULL, LOCATE_syntax___typing, 1298);
- stack_frame_head = fra.me.prev;
- return NIT_NULL;
-}
-void syntax___typing___ACastExternCall___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1300;
- fra.me.meth = LOCATE_syntax___typing___ACastExternCall___after_typing;
- 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;
- /* syntax/typing.nit:1302 */
- fra.me.REG[2] = CALL_syntax___typing___ACastExternCall___from_type(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_syntax___typing___ACastExternCall___to_type(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[2],fra.me.REG[3]));
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1304 */
- if (!once_value_1) {
- fra.me.REG[3] = BOX_NativeString("Attepting to cast from and to the same type.");
- REGB0 = TAG_Int(44);
- 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_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[3]);
- }
- /* syntax/typing.nit:1307 */
- fra.me.REG[3] = CALL_syntax___typing___ACastExternCall___from_type(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_syntax___typing___ACastExternCall___to_type(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = NEW_MMImportedCast_metamodel___static_type___MMImportedCast___init(fra.me.REG[3], fra.me.REG[2]);
- /* syntax/typing.nit:1308 */
- fra.me.REG[1] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:1309 */
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[1], COLOR_metamodel___abstractmetamodel___MMMethod, ID_metamodel___abstractmetamodel___MMMethod)) /*cast MMMethod*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_syntax___typing, 1309);
- }
- /* syntax/typing.nit:1310 */
- fra.me.REG[1] = CALL_metamodel___static_type___MMMethod___explicit_casts(fra.me.REG[1])(fra.me.REG[1]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___ACastAsExternCall___from_type(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1315;
- fra.me.meth = LOCATE_syntax___typing___ACastAsExternCall___from_type;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1315 */
- fra.me.REG[0] = CALL_parser___parser_nodes___ACastAsExternCall___n_from_type(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_syntax___syntax_base___AType___stype(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___ACastAsExternCall___to_type(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1316;
- fra.me.meth = LOCATE_syntax___typing___ACastAsExternCall___to_type;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1316 */
- fra.me.REG[0] = CALL_parser___parser_nodes___ACastAsExternCall___n_to_type(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_syntax___syntax_base___AType___stype(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___AAsNullableExternCall___from_type(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1320;
- fra.me.meth = LOCATE_syntax___typing___AAsNullableExternCall___from_type;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1320 */
- fra.me.REG[0] = CALL_parser___parser_nodes___AAsNullableExternCall___n_type(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_syntax___syntax_base___AType___stype(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___AAsNullableExternCall___to_type(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1321;
- fra.me.meth = LOCATE_syntax___typing___AAsNullableExternCall___to_type;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1321 */
- fra.me.REG[0] = CALL_parser___parser_nodes___AAsNullableExternCall___n_type(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_syntax___syntax_base___AType___stype(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_metamodel___static_type___MMType___as_nullable(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___AAsNotNullableExternCall___from_type(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1325;
- fra.me.meth = LOCATE_syntax___typing___AAsNotNullableExternCall___from_type;
- 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;
- /* syntax/typing.nit:1327 */
- fra.me.REG[0] = CALL_parser___parser_nodes___AAsNotNullableExternCall___n_type(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_syntax___syntax_base___AType___stype(fra.me.REG[0])(fra.me.REG[0]);
- /* syntax/typing.nit:1328 */
- REGB0 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[0])(fra.me.REG[0]);
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1330 */
- fra.me.REG[1] = fra.me.REG[0];
- goto label1;
- } else {
- /* syntax/typing.nit:1332 */
- fra.me.REG[0] = CALL_metamodel___static_type___MMType___as_nullable(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];
-}
-val_t syntax___typing___AAsNotNullableExternCall___to_type(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1335;
- fra.me.meth = LOCATE_syntax___typing___AAsNotNullableExternCall___to_type;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1335 */
- fra.me.REG[0] = CALL_parser___parser_nodes___AAsNotNullableExternCall___n_type(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_syntax___syntax_base___AType___stype(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_metamodel___static_type___MMType___as_notnull(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___AAttrFormExpr___prop(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1339;
- fra.me.meth = LOCATE_syntax___typing___AAttrFormExpr___prop;
- 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;
- /* syntax/typing.nit:1339 */
- fra.me.REG[1] = fra.me.REG[0];
- fra.me.REG[1] = ATTR_syntax___typing___AAttrFormExpr____prop(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[1]!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 1339);
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-val_t syntax___typing___AAttrFormExpr___attr_type(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1342;
- fra.me.meth = LOCATE_syntax___typing___AAttrFormExpr___attr_type;
- 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;
- /* syntax/typing.nit:1342 */
- fra.me.REG[1] = fra.me.REG[0];
- fra.me.REG[1] = ATTR_syntax___typing___AAttrFormExpr____attr_type(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[1]!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 1342);
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-void syntax___typing___AAttrFormExpr___do_typing(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_2; /* Once value */
- static val_t once_value_3; /* Once value */
- static val_t once_value_4; /* Once value */
- static val_t once_value_5; /* Once value */
- static val_t once_value_6; /* Once value */
- static val_t once_value_7; /* Once value */
- static val_t once_value_8; /* Once value */
- static val_t once_value_9; /* Once value */
- static val_t once_value_10; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1345;
- fra.me.meth = LOCATE_syntax___typing___AAttrFormExpr___do_typing;
- 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;
- /* syntax/typing.nit:1348 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AAttrFormExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___syntax_base___AbsSyntaxVisitor___check_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:1349 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AAttrFormExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:1350 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AAttrFormExpr___n_id(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_syntax___syntax_base___Token___to_symbol(fra.me.REG[3])(fra.me.REG[3]);
- /* syntax/typing.nit:1351 */
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[2], COLOR_metamodel___static_type___MMTypeNone, ID_metamodel___static_type___MMTypeNone)) /*cast MMTypeNone*/;
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1352 */
- REGB0 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_2) {
- fra.me.REG[5] = BOX_NativeString("Error: Attribute '");
- REGB0 = TAG_Int(18);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_2 = fra.me.REG[5];
- register_static_object(&once_value_2);
- } else fra.me.REG[5] = once_value_2;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- if (!once_value_3) {
- fra.me.REG[5] = BOX_NativeString("' access on 'null'.");
- REGB0 = TAG_Int(19);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_3 = fra.me.REG[5];
- register_static_object(&once_value_3);
- } else fra.me.REG[5] = once_value_3;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[4]);
- /* syntax/typing.nit:1353 */
- goto label1;
- }
- /* syntax/typing.nit:1355 */
- fra.me.REG[4] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:1356 */
- REGB0 = CALL_metamodel___abstractmetamodel___MMLocalClass___has_global_property_by_name(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1357 */
- REGB0 = TAG_Int(5);
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_4) {
- fra.me.REG[6] = BOX_NativeString("Error: Attribute ");
- REGB0 = TAG_Int(17);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
- once_value_4 = fra.me.REG[6];
- register_static_object(&once_value_4);
- } else fra.me.REG[6] = once_value_4;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
- fra.me.REG[6] = CALL_standard___string___Object___to_s(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[6]);
- if (!once_value_5) {
- fra.me.REG[6] = BOX_NativeString(" doesn't exists in ");
- REGB0 = TAG_Int(19);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
- once_value_5 = fra.me.REG[6];
- register_static_object(&once_value_5);
- } else fra.me.REG[6] = once_value_5;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
- fra.me.REG[6] = CALL_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[6]);
- if (!once_value_6) {
- fra.me.REG[6] = BOX_NativeString(".");
- REGB0 = TAG_Int(1);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
- once_value_6 = fra.me.REG[6];
- register_static_object(&once_value_6);
- } else fra.me.REG[6] = once_value_6;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[5]);
- /* syntax/typing.nit:1358 */
- goto label1;
- }
- /* syntax/typing.nit:1360 */
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalClass___select_attribute(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- /* syntax/typing.nit:1361 */
- fra.me.REG[5] = CALL_syntax___syntax_base___AbsSyntaxVisitor___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[6] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[6] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___local_class(fra.me.REG[6])(fra.me.REG[6]);
- fra.me.REG[6] = CALL_metamodel___abstractmetamodel___MMLocalClass___mmmodule(fra.me.REG[6])(fra.me.REG[6]);
- REGB0 = CALL_metamodel___abstractmetamodel___MMModule___visibility_for(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[6]);
- REGB1 = TAG_Int(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:232 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
- /* syntax/typing.nit:1361 */
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:1362 */
- REGB1 = TAG_Int(7);
- fra.me.REG[6] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_7) {
- fra.me.REG[5] = BOX_NativeString("Error: Attribute ");
- REGB1 = TAG_Int(17);
- 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[6])(fra.me.REG[6], fra.me.REG[5]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[3]);
- if (!once_value_8) {
- fra.me.REG[3] = BOX_NativeString(" from ");
- REGB1 = TAG_Int(6);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB1);
- once_value_8 = fra.me.REG[3];
- register_static_object(&once_value_8);
- } else fra.me.REG[3] = once_value_8;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[3]);
- fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___local_class(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalClass___mmmodule(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[3]);
- if (!once_value_9) {
- fra.me.REG[3] = BOX_NativeString(" is invisible in ");
- REGB1 = TAG_Int(17);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB1);
- once_value_9 = fra.me.REG[3];
- register_static_object(&once_value_9);
- } else fra.me.REG[3] = once_value_9;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[3]);
- fra.me.REG[3] = CALL_syntax___syntax_base___AbsSyntaxVisitor___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[3]);
- if (!once_value_10) {
- fra.me.REG[3] = BOX_NativeString("");
- REGB1 = TAG_Int(0);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB1);
- once_value_10 = fra.me.REG[3];
- register_static_object(&once_value_10);
- } else fra.me.REG[3] = once_value_10;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[3]);
- fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[6]);
- }
- /* syntax/typing.nit:1364 */
- ATTR_syntax___typing___AAttrFormExpr____prop(fra.me.REG[0]) = fra.me.REG[4];
- /* syntax/typing.nit:1365 */
- fra.me.REG[2] = CALL_metamodel___static_type___MMLocalProperty___signature_for(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
- fra.me.REG[2] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:1366 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AAttrFormExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- REGB1 = CALL_syntax___typing___AExpr___is_self(fra.me.REG[4])(fra.me.REG[4]);
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1366);
- }
- fra.me.REG[4] = CALL_metamodel___static_type___MMType___not_for_self(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[2] = fra.me.REG[4];
- }
- /* syntax/typing.nit:1367 */
- ATTR_syntax___typing___AAttrFormExpr____attr_type(fra.me.REG[0]) = fra.me.REG[2];
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AAttrExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1372;
- fra.me.meth = LOCATE_syntax___typing___AAttrExpr___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:1374 */
- CALL_syntax___typing___AAttrFormExpr___do_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* syntax/typing.nit:1375 */
- fra.me.REG[1] = ATTR_syntax___typing___AAttrFormExpr____prop(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(false);
- 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)) {
- goto label1;
- }
- /* syntax/typing.nit:1376 */
- fra.me.REG[1] = CALL_syntax___syntax_base___AAttrFormExpr___attr_type(fra.me.REG[0])(fra.me.REG[0]);
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[1];
- /* syntax/typing.nit:1377 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AAttrAssignExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1382;
- fra.me.meth = LOCATE_syntax___typing___AAttrAssignExpr___after_typing;
- 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;
- /* syntax/typing.nit:1384 */
- CALL_syntax___typing___AAttrFormExpr___do_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* syntax/typing.nit:1385 */
- fra.me.REG[2] = ATTR_syntax___typing___AAttrFormExpr____prop(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(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:1386 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AAssignFormExpr___n_value(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_syntax___syntax_base___AAttrFormExpr___attr_type(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[3]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:1387 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AAttrReassignExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1392;
- fra.me.meth = LOCATE_syntax___typing___AAttrReassignExpr___after_typing;
- 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;
- /* syntax/typing.nit:1394 */
- CALL_syntax___typing___AAttrFormExpr___do_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* syntax/typing.nit:1395 */
- fra.me.REG[2] = ATTR_syntax___typing___AAttrFormExpr____prop(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(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:1396 */
- fra.me.REG[2] = CALL_syntax___syntax_base___AAttrFormExpr___attr_type(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_syntax___typing___AReassignFormExpr___do_rvalue_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2]);
- /* syntax/typing.nit:1397 */
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:1398 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AReassignFormExpr___n_value(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[3])(fra.me.REG[3]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[2], fra.me.REG[3]);
- /* syntax/typing.nit:1399 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AIssetAttrExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1404;
- fra.me.meth = LOCATE_syntax___typing___AIssetAttrExpr___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:1406 */
- CALL_syntax___typing___AAttrFormExpr___do_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* syntax/typing.nit:1407 */
- fra.me.REG[2] = ATTR_syntax___typing___AAttrFormExpr____prop(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(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:1408 */
- fra.me.REG[2] = CALL_syntax___syntax_base___AAttrFormExpr___attr_type(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[2])(fra.me.REG[2]);
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1409 */
- if (!once_value_2) {
- fra.me.REG[2] = BOX_NativeString("Error: isset on a nullable attribute.");
- REGB0 = TAG_Int(37);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_2 = fra.me.REG[2];
- register_static_object(&once_value_2);
- } else fra.me.REG[2] = once_value_2;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[2]);
- }
- /* syntax/typing.nit:1411 */
- fra.me.REG[1] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_bool(fra.me.REG[1])(fra.me.REG[1]);
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[1];
- /* syntax/typing.nit:1412 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___AAbsAbsSendExpr___prop_signature(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1417;
- fra.me.meth = LOCATE_syntax___typing___AAbsAbsSendExpr___prop_signature;
- 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;
- /* syntax/typing.nit:1417 */
- fra.me.REG[1] = fra.me.REG[0];
- /* syntax/typing.nit:1418 */
- fra.me.REG[1] = ATTR_syntax___typing___AAbsAbsSendExpr____prop_signature(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[1]!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 1418);
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-val_t syntax___typing___AAbsAbsSendExpr___raw_arguments(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1421;
- fra.me.meth = LOCATE_syntax___typing___AAbsAbsSendExpr___raw_arguments;
- 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;
- /* syntax/typing.nit:1424 */
- fra.me.REG[1] = ATTR_syntax___typing___AAbsAbsSendExpr____raw_arguments_cache(fra.me.REG[0]);
- /* syntax/typing.nit:1425 */
- 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(false);
- 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)) {
- /* syntax/typing.nit:1426 */
- fra.me.REG[2] = fra.me.REG[1];
- goto label1;
- } else {
- /* syntax/typing.nit:1428 */
- fra.me.REG[3] = CALL_syntax___typing___AAbsAbsSendExpr___compute_raw_arguments(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[1] = fra.me.REG[3];
- /* syntax/typing.nit:1429 */
- 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(false);
- 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)) {
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___init();
- fra.me.REG[1] = fra.me.REG[3];
- }
- /* syntax/typing.nit:1430 */
- ATTR_syntax___typing___AAbsAbsSendExpr____raw_arguments_cache(fra.me.REG[0]) = fra.me.REG[1];
- /* syntax/typing.nit:1431 */
- fra.me.REG[2] = fra.me.REG[1];
- goto label1;
- }
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[2];
-}
-val_t syntax___typing___AAbsAbsSendExpr___compute_raw_arguments(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 */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1437;
- fra.me.meth = LOCATE_syntax___typing___AAbsAbsSendExpr___compute_raw_arguments;
- 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;
- /* syntax/typing.nit:1439 */
- REGB0 = TAG_Int(3);
- fra.me.REG[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_1) {
- fra.me.REG[2] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_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]);
- fra.me.REG[2] = CALL_parser___parser_nodes___ANode___location(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- if (!once_value_2) {
- fra.me.REG[2] = BOX_NativeString(" no compute_raw_arguments");
- REGB0 = TAG_Int(25);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_2 = fra.me.REG[2];
- register_static_object(&once_value_2);
- } else fra.me.REG[2] = once_value_2;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- fra.me.REG[1] = CALL_standard___string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]);
- CALL_standard___file___Object___print(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* syntax/typing.nit:1440 */
- fra.me.REG[1] = NIT_NULL;
- goto label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-val_t syntax___typing___AAbsAbsSendExpr___process_signature(val_t p0, val_t p1, val_t p2, val_t p3, val_t p4){
- struct {struct stack_frame_t me; val_t MORE_REG[6];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t REGB4;
- val_t REGB5;
- val_t REGB6;
- val_t REGB7;
- val_t REGB8;
- val_t REGB9;
- val_t REGB10;
- val_t REGB11;
- 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_syntax___typing;
- fra.me.line = 1443;
- fra.me.meth = LOCATE_syntax___typing___AAbsAbsSendExpr___process_signature;
- fra.me.has_broke = 0;
- fra.me.REG_size = 7;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[6] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- fra.me.REG[2] = p2;
- fra.me.REG[3] = p3;
- fra.me.REG[4] = p4;
- /* syntax/typing.nit:1446 */
- REGB0 = CALL_metamodel___vararg___MMSignature___vararg_rank(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:1447 */
- REGB1 = CALL_metamodel___static_type___MMSignature___arity(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:1449 */
- REGB2 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- REGB3 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- REGB3 = TAG_Bool(false);
- REGB2 = REGB3;
- } else {
- REGB3 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], NIT_NULL);
- REGB2 = REGB3;
- }
- }
- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Int(0);
- } else {
- REGB3 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1449);
- }
- /* ../lib/standard/collection/array.nit:24 */
- REGB3 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB3 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4]);
- /* syntax/typing.nit:1449 */
- REGB2 = REGB3;
- }
- REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:234 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB1)>UNTAG_Int(REGB2));
- /* syntax/typing.nit:1450 */
- if (UNTAG_Bool(REGB3)) {
- REGB3 = TAG_Bool(true);
- } else {
- REGB4 = TAG_Bool(IS_EQUAL_OO(REGB1,REGB2));
- if (UNTAG_Bool(REGB4)) {
- } else {
- /* ../lib/standard/kernel.nit:227 */
- REGB5 = TAG_Bool((REGB1)==(REGB2));
- /* syntax/typing.nit:1450 */
- REGB4 = REGB5;
- }
- REGB4 = TAG_Bool(!UNTAG_Bool(REGB4));
- if (UNTAG_Bool(REGB4)) {
- REGB4 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:236 */
- REGB4 = TAG_Int(-UNTAG_Int(REGB4));
- /* syntax/typing.nit:1450 */
- REGB5 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB4));
- if (UNTAG_Bool(REGB5)) {
- } else {
- /* ../lib/standard/kernel.nit:227 */
- REGB4 = TAG_Bool((REGB0)==(REGB4));
- /* syntax/typing.nit:1450 */
- REGB5 = REGB4;
- }
- } else {
- REGB4 = TAG_Bool(false);
- REGB5 = REGB4;
- }
- REGB3 = REGB5;
- }
- if (UNTAG_Bool(REGB3)) {
- /* syntax/typing.nit:1451 */
- REGB3 = TAG_Int(5);
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB3);
- if (!once_value_1) {
- fra.me.REG[6] = BOX_NativeString("Error: arity mismatch; prototype is '");
- REGB3 = TAG_Int(37);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB3);
- 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_standard___string___Object___to_s(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("");
- REGB3 = TAG_Int(0);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB3);
- 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[3] = 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[3]);
- if (!once_value_3) {
- fra.me.REG[3] = BOX_NativeString("'.");
- REGB3 = TAG_Int(2);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB3);
- once_value_3 = fra.me.REG[3];
- register_static_object(&once_value_3);
- } else fra.me.REG[3] = once_value_3;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[5]);
- /* syntax/typing.nit:1452 */
- REGB3 = TAG_Bool(false);
- goto label4;
- }
- /* syntax/typing.nit:1454 */
- REGB5 = TAG_Int(0);
- /* syntax/typing.nit:1455 */
- REGB4 = TAG_Int(0);
- /* ../lib/standard/kernel.nit:347 */
- REGB6 = REGB1;
- /* ../lib/standard/kernel.nit:352 */
- while(1) {
- REGB7 = TAG_Bool(VAL_ISA(REGB6, VTCOLOR_standard___kernel___Comparable___OTHER(REGB4), VTID_standard___kernel___Comparable___OTHER(REGB4))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB7)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB7 = TAG_Bool(UNTAG_Int(REGB4)<UNTAG_Int(REGB6));
- /* ../lib/standard/kernel.nit:352 */
- if (UNTAG_Bool(REGB7)) {
- /* syntax/typing.nit:1455 */
- REGB7 = REGB4;
- /* syntax/typing.nit:1457 */
- fra.me.REG[5] = CALL_metamodel___static_type___MMSignature_____bra(fra.me.REG[2])(fra.me.REG[2], REGB7);
- /* syntax/typing.nit:1458 */
- REGB8 = TAG_Bool(IS_EQUAL_OO(REGB7,REGB0));
- if (UNTAG_Bool(REGB8)) {
- } else {
- /* ../lib/standard/kernel.nit:227 */
- REGB7 = TAG_Bool((REGB7)==(REGB0));
- /* syntax/typing.nit:1458 */
- REGB8 = REGB7;
- }
- if (UNTAG_Bool(REGB8)) {
- /* syntax/typing.nit:1459 */
- REGB8 = TAG_Int(0);
- /* ../lib/standard/kernel.nit:237 */
- REGB7 = TAG_Int(UNTAG_Int(REGB2)-UNTAG_Int(REGB1));
- /* ../lib/standard/kernel.nit:341 */
- while(1) {
- REGB9 = TAG_Bool(VAL_ISA(REGB7, VTCOLOR_standard___kernel___Comparable___OTHER(REGB8), VTID_standard___kernel___Comparable___OTHER(REGB8))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB9)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:231 */
- REGB9 = TAG_Bool(UNTAG_Int(REGB8)<=UNTAG_Int(REGB7));
- /* ../lib/standard/kernel.nit:341 */
- if (UNTAG_Bool(REGB9)) {
- /* syntax/typing.nit:1460 */
- REGB9 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB9)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1460);
- }
- /* ../lib/standard/collection/array.nit:278 */
- fra.me.REG[0] = fra.me.REG[4];
- REGB9 = REGB5;
- /* ../lib/standard/collection/array.nit:280 */
- REGB10 = TAG_Int(0);
- REGB11 = TAG_Bool(VAL_ISA(REGB10, VTCOLOR_standard___kernel___Comparable___OTHER(REGB9), VTID_standard___kernel___Comparable___OTHER(REGB9))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB11)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:233 */
- REGB10 = TAG_Bool(UNTAG_Int(REGB9)>=UNTAG_Int(REGB10));
- /* ../lib/standard/collection/array.nit:280 */
- if (UNTAG_Bool(REGB10)) {
- REGB10 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB10)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 280);
- }
- REGB10 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- REGB11 = TAG_Bool(VAL_ISA(REGB10, VTCOLOR_standard___kernel___Comparable___OTHER(REGB9), VTID_standard___kernel___Comparable___OTHER(REGB9))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB11)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB10 = TAG_Bool(UNTAG_Int(REGB9)<UNTAG_Int(REGB10));
- } else {
- /* ../lib/standard/collection/array.nit:280 */
- REGB11 = TAG_Bool(false);
- REGB10 = REGB11;
- }
- if (UNTAG_Bool(REGB10)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 280);
- }
- /* ../lib/standard/collection/array.nit:281 */
- fra.me.REG[0] = ATTR_standard___collection___array___Array____items(fra.me.REG[0]);
- REGB10 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
- if (UNTAG_Bool(REGB10)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:718 */
- fra.me.REG[0] = ((Nit_NativeArray)fra.me.REG[0])->val[UNTAG_Int(REGB9)];
- /* ../lib/standard/collection/array.nit:281 */
- goto label5;
- label5: while(0);
- /* syntax/typing.nit:1461 */
- CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[5]);
- /* syntax/typing.nit:1462 */
- REGB9 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:235 */
- REGB9 = TAG_Int(UNTAG_Int(REGB5)+UNTAG_Int(REGB9));
- /* syntax/typing.nit:1462 */
- REGB5 = REGB9;
- /* ../lib/standard/kernel.nit:343 */
- REGB9 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:235 */
- REGB9 = TAG_Int(UNTAG_Int(REGB8)+UNTAG_Int(REGB9));
- /* ../lib/standard/kernel.nit:343 */
- REGB8 = REGB9;
- } else {
- /* ../lib/standard/kernel.nit:341 */
- goto label6;
- }
- }
- label6: while(0);
- } else {
- /* syntax/typing.nit:1465 */
- REGB8 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB8)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1465);
- }
- /* ../lib/standard/collection/array.nit:278 */
- fra.me.REG[3] = fra.me.REG[4];
- REGB8 = REGB5;
- /* ../lib/standard/collection/array.nit:280 */
- REGB7 = TAG_Int(0);
- REGB9 = TAG_Bool(VAL_ISA(REGB7, VTCOLOR_standard___kernel___Comparable___OTHER(REGB8), VTID_standard___kernel___Comparable___OTHER(REGB8))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB9)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:233 */
- REGB7 = TAG_Bool(UNTAG_Int(REGB8)>=UNTAG_Int(REGB7));
- /* ../lib/standard/collection/array.nit:280 */
- if (UNTAG_Bool(REGB7)) {
- REGB7 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3])!=NIT_NULL);
- if (UNTAG_Bool(REGB7)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 280);
- }
- REGB7 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3]);
- REGB9 = TAG_Bool(VAL_ISA(REGB7, VTCOLOR_standard___kernel___Comparable___OTHER(REGB8), VTID_standard___kernel___Comparable___OTHER(REGB8))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB9)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB7 = TAG_Bool(UNTAG_Int(REGB8)<UNTAG_Int(REGB7));
- } else {
- /* ../lib/standard/collection/array.nit:280 */
- REGB9 = TAG_Bool(false);
- REGB7 = REGB9;
- }
- if (UNTAG_Bool(REGB7)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 280);
- }
- /* ../lib/standard/collection/array.nit:281 */
- fra.me.REG[3] = ATTR_standard___collection___array___Array____items(fra.me.REG[3]);
- REGB7 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB7)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:718 */
- fra.me.REG[3] = ((Nit_NativeArray)fra.me.REG[3])->val[UNTAG_Int(REGB8)];
- /* ../lib/standard/collection/array.nit:281 */
- goto label7;
- label7: while(0);
- /* syntax/typing.nit:1465 */
- fra.me.REG[0] = fra.me.REG[3];
- /* syntax/typing.nit:1466 */
- CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[5]);
- /* syntax/typing.nit:1467 */
- REGB8 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:235 */
- REGB8 = TAG_Int(UNTAG_Int(REGB5)+UNTAG_Int(REGB8));
- /* syntax/typing.nit:1467 */
- REGB5 = REGB8;
- }
- /* ../lib/standard/kernel.nit:354 */
- REGB8 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:235 */
- REGB8 = TAG_Int(UNTAG_Int(REGB4)+UNTAG_Int(REGB8));
- /* ../lib/standard/kernel.nit:354 */
- REGB4 = REGB8;
- } else {
- /* ../lib/standard/kernel.nit:352 */
- goto label8;
- }
- }
- label8: while(0);
- /* syntax/typing.nit:1470 */
- REGB4 = TAG_Bool(true);
- REGB3 = REGB4;
- goto label4;
- label4: while(0);
- stack_frame_head = fra.me.prev;
- return REGB3;
-}
-val_t syntax___typing___AAbsAbsSendExpr___process_closures(val_t p0, val_t p1, val_t p2, val_t p3, val_t p4){
- struct {struct stack_frame_t me; val_t MORE_REG[16];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t REGB4;
- val_t REGB5;
- 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 */
- 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_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_24; /* Once value */
- static val_t once_value_25; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1473;
- fra.me.meth = LOCATE_syntax___typing___AAbsAbsSendExpr___process_closures;
- fra.me.has_broke = 0;
- fra.me.REG_size = 17;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[6] = NIT_NULL;
- fra.me.REG[7] = NIT_NULL;
- fra.me.REG[8] = NIT_NULL;
- fra.me.REG[9] = NIT_NULL;
- fra.me.REG[10] = NIT_NULL;
- fra.me.REG[11] = NIT_NULL;
- fra.me.REG[12] = NIT_NULL;
- fra.me.REG[13] = NIT_NULL;
- fra.me.REG[14] = NIT_NULL;
- fra.me.REG[15] = NIT_NULL;
- fra.me.REG[16] = 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;
- /* syntax/typing.nit:1476 */
- fra.me.REG[5] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:1477 */
- fra.me.REG[6] = CALL_metamodel___static_type___MMSignature___closures(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:1478 */
- REGB0 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:266 */
- fra.me.REG[7] = fra.me.REG[6];
- /* ../lib/standard/collection/array.nit:269 */
- REGB1 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:270 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 270);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]);
- /* ../lib/standard/collection/array.nit:271 */
- fra.me.REG[8] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- /* ../lib/standard/collection/array.nit:272 */
- while(1) {
- /* ../lib/standard/collection/array.nit:24 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]);
- REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB1)<UNTAG_Int(REGB2));
- /* ../lib/standard/collection/array.nit:272 */
- if (UNTAG_Bool(REGB2)) {
- /* ../lib/standard/collection/array.nit:273 */
- REGB2 = TAG_Bool(fra.me.REG[8]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 273);
- }
- /* ../lib/standard/collection/array.nit:718 */
- fra.me.REG[9] = ((Nit_NativeArray)fra.me.REG[8])->val[UNTAG_Int(REGB1)];
- /* syntax/typing.nit:1480 */
- REGB2 = CALL_metamodel___static_type___MMClosure___is_optional(fra.me.REG[9])(fra.me.REG[9]);
- REGB2 = TAG_Bool(!UNTAG_Bool(REGB2));
- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:235 */
- REGB2 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB2));
- /* syntax/typing.nit:1480 */
- REGB0 = REGB2;
- }
- /* ../lib/standard/collection/array.nit:274 */
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:235 */
- REGB2 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB2));
- /* ../lib/standard/collection/array.nit:274 */
- REGB1 = REGB2;
- } else {
- /* ../lib/standard/collection/array.nit:272 */
- goto label1;
- }
- }
- label1: while(0);
- /* syntax/typing.nit:1482 */
- REGB1 = TAG_Int(0);
- /* syntax/typing.nit:1483 */
- REGB2 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- REGB3 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- REGB3 = TAG_Bool(false);
- REGB2 = REGB3;
- } else {
- REGB3 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], NIT_NULL);
- REGB2 = REGB3;
- }
- }
- REGB2 = TAG_Bool(!UNTAG_Bool(REGB2));
- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1483);
- }
- /* ../lib/standard/collection/array.nit:24 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4]);
- /* syntax/typing.nit:1483 */
- REGB1 = REGB2;
- }
- /* ../lib/standard/collection/array.nit:24 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6]);
- /* syntax/typing.nit:1484 */
- REGB3 = TAG_Int(0);
- REGB4 = TAG_Bool(VAL_ISA(REGB3, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:234 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB2)>UNTAG_Int(REGB3));
- /* syntax/typing.nit:1484 */
- if (UNTAG_Bool(REGB3)) {
- /* syntax/typing.nit:1485 */
- REGB3 = TAG_Int(0);
- REGB2 = TAG_Bool(IS_EQUAL_OO(REGB1,REGB3));
- if (UNTAG_Bool(REGB2)) {
- } else {
- /* ../lib/standard/kernel.nit:227 */
- REGB3 = TAG_Bool((REGB1)==(REGB3));
- /* syntax/typing.nit:1485 */
- REGB2 = REGB3;
- }
- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Int(0);
- REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:234 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB0)>UNTAG_Int(REGB2));
- } else {
- /* syntax/typing.nit:1485 */
- REGB3 = TAG_Bool(false);
- REGB2 = REGB3;
- }
- if (UNTAG_Bool(REGB2)) {
- /* syntax/typing.nit:1486 */
- REGB2 = TAG_Int(5);
- fra.me.REG[8] = NEW_Array_standard___collection___array___Array___with_capacity(REGB2);
- if (!once_value_2) {
- fra.me.REG[7] = BOX_NativeString("Error: ");
- REGB2 = TAG_Int(7);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB2);
- once_value_2 = fra.me.REG[7];
- register_static_object(&once_value_2);
- } else fra.me.REG[7] = once_value_2;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[7]);
- fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[7]);
- if (!once_value_3) {
- fra.me.REG[7] = BOX_NativeString(" requires ");
- REGB2 = TAG_Int(10);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB2);
- once_value_3 = fra.me.REG[7];
- register_static_object(&once_value_3);
- } else fra.me.REG[7] = once_value_3;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[7]);
- /* ../lib/standard/collection/array.nit:24 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6]);
- /* syntax/typing.nit:1486 */
- fra.me.REG[7] = CALL_standard___string___Object___to_s(REGB2)(REGB2);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[7]);
- if (!once_value_4) {
- fra.me.REG[7] = BOX_NativeString(" blocks.");
- REGB2 = TAG_Int(8);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB2);
- once_value_4 = fra.me.REG[7];
- register_static_object(&once_value_4);
- } else fra.me.REG[7] = once_value_4;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[7]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[8]);
- } else {
- /* ../lib/standard/collection/array.nit:24 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6]);
- REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:234 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB1)>UNTAG_Int(REGB2));
- /* syntax/typing.nit:1487 */
- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Bool(true);
- } else {
- REGB3 = TAG_Bool(VAL_ISA(REGB0, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB0 = TAG_Bool(UNTAG_Int(REGB1)<UNTAG_Int(REGB0));
- /* syntax/typing.nit:1487 */
- REGB2 = REGB0;
- }
- if (UNTAG_Bool(REGB2)) {
- /* syntax/typing.nit:1488 */
- REGB2 = TAG_Int(7);
- fra.me.REG[8] = NEW_Array_standard___collection___array___Array___with_capacity(REGB2);
- if (!once_value_5) {
- fra.me.REG[7] = BOX_NativeString("Error: ");
- REGB2 = TAG_Int(7);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB2);
- once_value_5 = fra.me.REG[7];
- register_static_object(&once_value_5);
- } else fra.me.REG[7] = once_value_5;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[7]);
- fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[7]);
- if (!once_value_6) {
- fra.me.REG[7] = BOX_NativeString(" requires ");
- REGB2 = TAG_Int(10);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB2);
- once_value_6 = fra.me.REG[7];
- register_static_object(&once_value_6);
- } else fra.me.REG[7] = once_value_6;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[7]);
- /* ../lib/standard/collection/array.nit:24 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6]);
- /* syntax/typing.nit:1488 */
- fra.me.REG[7] = CALL_standard___string___Object___to_s(REGB2)(REGB2);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[7]);
- if (!once_value_7) {
- fra.me.REG[7] = BOX_NativeString(" blocks, ");
- REGB2 = TAG_Int(9);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB2);
- once_value_7 = fra.me.REG[7];
- register_static_object(&once_value_7);
- } else fra.me.REG[7] = once_value_7;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1488);
- }
- /* ../lib/standard/collection/array.nit:24 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[4]);
- /* syntax/typing.nit:1488 */
- fra.me.REG[7] = CALL_standard___string___Object___to_s(REGB2)(REGB2);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[7]);
- if (!once_value_8) {
- fra.me.REG[7] = BOX_NativeString(" found.");
- REGB2 = TAG_Int(7);
- fra.me.REG[7] = NEW_String_standard___string___String___with_native(fra.me.REG[7], REGB2);
- once_value_8 = fra.me.REG[7];
- register_static_object(&once_value_8);
- } else fra.me.REG[7] = once_value_8;
- fra.me.REG[7] = fra.me.REG[7];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[7]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[8]);
- } else {
- /* syntax/typing.nit:1491 */
- fra.me.REG[8] = NIT_NULL;
- /* syntax/typing.nit:1492 */
- REGB2 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(false);
- REGB2 = REGB0;
- } else {
- REGB0 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[5])(fra.me.REG[5], NIT_NULL);
- REGB2 = REGB0;
- }
- }
- REGB2 = TAG_Bool(!UNTAG_Bool(REGB2));
- if (UNTAG_Bool(REGB2)) {
- fra.me.REG[7] = NEW_Array_standard___collection___array___Array___init();
- fra.me.REG[8] = fra.me.REG[7];
- }
- /* syntax/typing.nit:1495 */
- REGB2 = TAG_Int(0);
- REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:234 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB1)>UNTAG_Int(REGB2));
- /* syntax/typing.nit:1495 */
- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:237 */
- REGB2 = TAG_Int(UNTAG_Int(REGB1)-UNTAG_Int(REGB2));
- /* syntax/typing.nit:1495 */
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1495);
- }
- /* ../lib/standard/collection/array.nit:278 */
- fra.me.REG[7] = fra.me.REG[4];
- /* ../lib/standard/collection/array.nit:280 */
- REGB0 = TAG_Int(0);
- REGB3 = TAG_Bool(VAL_ISA(REGB0, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:233 */
- REGB0 = TAG_Bool(UNTAG_Int(REGB2)>=UNTAG_Int(REGB0));
- /* ../lib/standard/collection/array.nit:280 */
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 280);
- }
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]);
- REGB3 = TAG_Bool(VAL_ISA(REGB0, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB0 = TAG_Bool(UNTAG_Int(REGB2)<UNTAG_Int(REGB0));
- } else {
- /* ../lib/standard/collection/array.nit:280 */
- REGB3 = TAG_Bool(false);
- REGB0 = REGB3;
- }
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 280);
- }
- /* ../lib/standard/collection/array.nit:281 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[7]);
- REGB0 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:718 */
- fra.me.REG[7] = ((Nit_NativeArray)fra.me.REG[7])->val[UNTAG_Int(REGB2)];
- /* ../lib/standard/collection/array.nit:281 */
- goto label9;
- label9: while(0);
- /* syntax/typing.nit:1495 */
- REGB2 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1495);
- }
- fra.me.REG[7] = CALL_parser___parser_nodes___ALabelable___n_label(fra.me.REG[7])(fra.me.REG[7]);
- } else {
- fra.me.REG[7] = NIT_NULL;
- }
- /* syntax/typing.nit:1498 */
- REGB2 = TAG_Int(0);
- /* ../lib/standard/kernel.nit:347 */
- REGB0 = REGB1;
- /* ../lib/standard/kernel.nit:352 */
- while(1) {
- REGB3 = TAG_Bool(VAL_ISA(REGB0, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB2)<UNTAG_Int(REGB0));
- /* ../lib/standard/kernel.nit:352 */
- if (UNTAG_Bool(REGB3)) {
- /* syntax/typing.nit:1498 */
- REGB3 = REGB2;
- /* syntax/typing.nit:1499 */
- REGB4 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1499);
- }
- /* ../lib/standard/collection/array.nit:278 */
- fra.me.REG[9] = fra.me.REG[4];
- /* ../lib/standard/collection/array.nit:280 */
- REGB4 = TAG_Int(0);
- REGB5 = TAG_Bool(VAL_ISA(REGB4, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3), VTID_standard___kernel___Comparable___OTHER(REGB3))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB5)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:233 */
- REGB4 = TAG_Bool(UNTAG_Int(REGB3)>=UNTAG_Int(REGB4));
- /* ../lib/standard/collection/array.nit:280 */
- if (UNTAG_Bool(REGB4)) {
- REGB4 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[9])!=NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 280);
- }
- REGB4 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[9]);
- REGB5 = TAG_Bool(VAL_ISA(REGB4, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3), VTID_standard___kernel___Comparable___OTHER(REGB3))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB5)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB4 = TAG_Bool(UNTAG_Int(REGB3)<UNTAG_Int(REGB4));
- } else {
- /* ../lib/standard/collection/array.nit:280 */
- REGB5 = TAG_Bool(false);
- REGB4 = REGB5;
- }
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 280);
- }
- /* ../lib/standard/collection/array.nit:281 */
- fra.me.REG[9] = ATTR_standard___collection___array___Array____items(fra.me.REG[9]);
- REGB4 = TAG_Bool(fra.me.REG[9]==NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:718 */
- fra.me.REG[9] = ((Nit_NativeArray)fra.me.REG[9])->val[UNTAG_Int(REGB3)];
- /* ../lib/standard/collection/array.nit:281 */
- goto label10;
- label10: while(0);
- /* syntax/typing.nit:1500 */
- fra.me.REG[10] = CALL_parser___parser_nodes___AClosureDef___n_id(fra.me.REG[9])(fra.me.REG[9]);
- fra.me.REG[10] = CALL_syntax___typing___AClosureId___to_symbol(fra.me.REG[10])(fra.me.REG[10]);
- /* syntax/typing.nit:1501 */
- fra.me.REG[11] = CALL_metamodel___static_type___MMSignature___closure_named(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[10]);
- /* syntax/typing.nit:1502 */
- REGB3 = TAG_Bool(fra.me.REG[11]==NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- REGB4 = TAG_Bool(fra.me.REG[11]==NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- REGB4 = TAG_Bool(false);
- REGB3 = REGB4;
- } else {
- REGB4 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[11])(fra.me.REG[11], NIT_NULL);
- REGB3 = REGB4;
- }
- }
- REGB3 = TAG_Bool(!UNTAG_Bool(REGB3));
- if (UNTAG_Bool(REGB3)) {
- /* syntax/typing.nit:1503 */
- fra.me.REG[11] = NEW_EscapableClosure_syntax___scope___EscapableClosure___init(fra.me.REG[9], fra.me.REG[11], fra.me.REG[8]);
- /* syntax/typing.nit:1504 */
- fra.me.REG[12] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[1])(fra.me.REG[1]);
- CALL_syntax___scope___ScopeContext___push_escapable(fra.me.REG[12])(fra.me.REG[12], fra.me.REG[11], fra.me.REG[7]);
- /* syntax/typing.nit:1505 */
- CALL_syntax___typing___AClosureDef___accept_typing2(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[1], fra.me.REG[11]);
- /* syntax/typing.nit:1506 */
- fra.me.REG[11] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[1])(fra.me.REG[1]);
- CALL_syntax___scope___ScopeContext___pop(fra.me.REG[11])(fra.me.REG[11]);
- } else {
- /* ../lib/standard/collection/array.nit:24 */
- REGB3 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB3 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[6]);
- /* syntax/typing.nit:1507 */
- REGB4 = TAG_Int(1);
- REGB5 = TAG_Bool(IS_EQUAL_OO(REGB3,REGB4));
- if (UNTAG_Bool(REGB5)) {
- } else {
- /* ../lib/standard/kernel.nit:227 */
- REGB4 = TAG_Bool((REGB3)==(REGB4));
- /* syntax/typing.nit:1507 */
- REGB5 = REGB4;
- }
- if (UNTAG_Bool(REGB5)) {
- /* syntax/typing.nit:1508 */
- fra.me.REG[11] = CALL_parser___parser_nodes___AClosureDef___n_id(fra.me.REG[9])(fra.me.REG[9]);
- REGB5 = TAG_Int(7);
- fra.me.REG[12] = NEW_Array_standard___collection___array___Array___with_capacity(REGB5);
- if (!once_value_11) {
- fra.me.REG[13] = BOX_NativeString("Error: no closure named '!");
- REGB5 = TAG_Int(26);
- fra.me.REG[13] = NEW_String_standard___string___String___with_native(fra.me.REG[13], REGB5);
- once_value_11 = fra.me.REG[13];
- register_static_object(&once_value_11);
- } else fra.me.REG[13] = once_value_11;
- fra.me.REG[13] = fra.me.REG[13];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[12])(fra.me.REG[12], fra.me.REG[13]);
- fra.me.REG[13] = CALL_standard___string___Object___to_s(fra.me.REG[10])(fra.me.REG[10]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[12])(fra.me.REG[12], fra.me.REG[13]);
- if (!once_value_12) {
- fra.me.REG[13] = BOX_NativeString("' in ");
- REGB5 = TAG_Int(5);
- fra.me.REG[13] = NEW_String_standard___string___String___with_native(fra.me.REG[13], REGB5);
- once_value_12 = fra.me.REG[13];
- register_static_object(&once_value_12);
- } else fra.me.REG[13] = once_value_12;
- fra.me.REG[13] = fra.me.REG[13];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[12])(fra.me.REG[12], fra.me.REG[13]);
- fra.me.REG[13] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[12])(fra.me.REG[12], fra.me.REG[13]);
- if (!once_value_13) {
- fra.me.REG[13] = BOX_NativeString("; only closure is !");
- REGB5 = TAG_Int(19);
- fra.me.REG[13] = NEW_String_standard___string___String___with_native(fra.me.REG[13], REGB5);
- once_value_13 = fra.me.REG[13];
- register_static_object(&once_value_13);
- } else fra.me.REG[13] = once_value_13;
- fra.me.REG[13] = fra.me.REG[13];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[12])(fra.me.REG[12], fra.me.REG[13]);
- fra.me.REG[13] = CALL_standard___collection___abstract_collection___Collection___first(fra.me.REG[6])(fra.me.REG[6]);
- REGB5 = TAG_Bool(fra.me.REG[13]==NIT_NULL);
- if (UNTAG_Bool(REGB5)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1508);
- }
- fra.me.REG[13] = CALL_metamodel___static_type___MMClosure___name(fra.me.REG[13])(fra.me.REG[13]);
- fra.me.REG[13] = CALL_standard___string___Object___to_s(fra.me.REG[13])(fra.me.REG[13]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[12])(fra.me.REG[12], fra.me.REG[13]);
- if (!once_value_14) {
- fra.me.REG[13] = BOX_NativeString(".");
- REGB5 = TAG_Int(1);
- fra.me.REG[13] = NEW_String_standard___string___String___with_native(fra.me.REG[13], REGB5);
- once_value_14 = fra.me.REG[13];
- register_static_object(&once_value_14);
- } else fra.me.REG[13] = once_value_14;
- fra.me.REG[13] = fra.me.REG[13];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[12])(fra.me.REG[12], fra.me.REG[13]);
- fra.me.REG[12] = CALL_standard___string___Object___to_s(fra.me.REG[12])(fra.me.REG[12]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[11], fra.me.REG[12]);
- } else {
- /* syntax/typing.nit:1510 */
- fra.me.REG[12] = NEW_Array_standard___collection___array___Array___init();
- /* ../lib/standard/collection/array.nit:266 */
- fra.me.REG[11] = fra.me.REG[6];
- /* ../lib/standard/collection/array.nit:269 */
- REGB5 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:270 */
- REGB4 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[11])!=NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 270);
- }
- REGB4 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[11]);
- /* ../lib/standard/collection/array.nit:271 */
- fra.me.REG[13] = ATTR_standard___collection___array___Array____items(fra.me.REG[11]);
- /* ../lib/standard/collection/array.nit:272 */
- while(1) {
- /* ../lib/standard/collection/array.nit:24 */
- REGB4 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[11])!=NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB4 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[11]);
- REGB3 = TAG_Bool(VAL_ISA(REGB4, VTCOLOR_standard___kernel___Comparable___OTHER(REGB5), VTID_standard___kernel___Comparable___OTHER(REGB5))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB4 = TAG_Bool(UNTAG_Int(REGB5)<UNTAG_Int(REGB4));
- /* ../lib/standard/collection/array.nit:272 */
- if (UNTAG_Bool(REGB4)) {
- /* ../lib/standard/collection/array.nit:273 */
- REGB4 = TAG_Bool(fra.me.REG[13]==NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 273);
- }
- /* ../lib/standard/collection/array.nit:718 */
- fra.me.REG[14] = ((Nit_NativeArray)fra.me.REG[13])->val[UNTAG_Int(REGB5)];
- /* syntax/typing.nit:1512 */
- REGB4 = TAG_Int(3);
- fra.me.REG[15] = NEW_Array_standard___collection___array___Array___with_capacity(REGB4);
- if (!once_value_15) {
- fra.me.REG[16] = BOX_NativeString("!");
- REGB4 = TAG_Int(1);
- fra.me.REG[16] = NEW_String_standard___string___String___with_native(fra.me.REG[16], REGB4);
- once_value_15 = fra.me.REG[16];
- register_static_object(&once_value_15);
- } else fra.me.REG[16] = once_value_15;
- fra.me.REG[16] = fra.me.REG[16];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[15])(fra.me.REG[15], fra.me.REG[16]);
- fra.me.REG[14] = CALL_metamodel___static_type___MMClosure___name(fra.me.REG[14])(fra.me.REG[14]);
- fra.me.REG[14] = CALL_standard___string___Object___to_s(fra.me.REG[14])(fra.me.REG[14]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[15])(fra.me.REG[15], fra.me.REG[14]);
- if (!once_value_16) {
- fra.me.REG[14] = BOX_NativeString("");
- REGB4 = TAG_Int(0);
- fra.me.REG[14] = NEW_String_standard___string___String___with_native(fra.me.REG[14], REGB4);
- once_value_16 = fra.me.REG[14];
- register_static_object(&once_value_16);
- } else fra.me.REG[14] = once_value_16;
- fra.me.REG[14] = fra.me.REG[14];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[15])(fra.me.REG[15], fra.me.REG[14]);
- fra.me.REG[15] = CALL_standard___string___Object___to_s(fra.me.REG[15])(fra.me.REG[15]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[12])(fra.me.REG[12], fra.me.REG[15]);
- /* ../lib/standard/collection/array.nit:274 */
- REGB4 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:235 */
- REGB4 = TAG_Int(UNTAG_Int(REGB5)+UNTAG_Int(REGB4));
- /* ../lib/standard/collection/array.nit:274 */
- REGB5 = REGB4;
- } else {
- /* ../lib/standard/collection/array.nit:272 */
- goto label17;
- }
- }
- label17: while(0);
- /* syntax/typing.nit:1514 */
- fra.me.REG[9] = CALL_parser___parser_nodes___AClosureDef___n_id(fra.me.REG[9])(fra.me.REG[9]);
- REGB5 = TAG_Int(7);
- fra.me.REG[13] = NEW_Array_standard___collection___array___Array___with_capacity(REGB5);
- if (!once_value_18) {
- fra.me.REG[11] = BOX_NativeString("Error: no closure named '!");
- REGB5 = TAG_Int(26);
- fra.me.REG[11] = NEW_String_standard___string___String___with_native(fra.me.REG[11], REGB5);
- once_value_18 = fra.me.REG[11];
- register_static_object(&once_value_18);
- } else fra.me.REG[11] = once_value_18;
- fra.me.REG[11] = fra.me.REG[11];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[13])(fra.me.REG[13], fra.me.REG[11]);
- fra.me.REG[10] = CALL_standard___string___Object___to_s(fra.me.REG[10])(fra.me.REG[10]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[13])(fra.me.REG[13], fra.me.REG[10]);
- if (!once_value_19) {
- fra.me.REG[10] = BOX_NativeString("' in ");
- REGB5 = TAG_Int(5);
- fra.me.REG[10] = NEW_String_standard___string___String___with_native(fra.me.REG[10], REGB5);
- once_value_19 = fra.me.REG[10];
- register_static_object(&once_value_19);
- } else fra.me.REG[10] = once_value_19;
- fra.me.REG[10] = fra.me.REG[10];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[13])(fra.me.REG[13], fra.me.REG[10]);
- fra.me.REG[10] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[13])(fra.me.REG[13], fra.me.REG[10]);
- if (!once_value_20) {
- fra.me.REG[10] = BOX_NativeString("; only closures are ");
- REGB5 = TAG_Int(20);
- fra.me.REG[10] = NEW_String_standard___string___String___with_native(fra.me.REG[10], REGB5);
- once_value_20 = fra.me.REG[10];
- register_static_object(&once_value_20);
- } else fra.me.REG[10] = once_value_20;
- fra.me.REG[10] = fra.me.REG[10];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[13])(fra.me.REG[13], fra.me.REG[10]);
- if (!once_value_21) {
- fra.me.REG[10] = BOX_NativeString(",");
- REGB5 = TAG_Int(1);
- fra.me.REG[10] = NEW_String_standard___string___String___with_native(fra.me.REG[10], REGB5);
- once_value_21 = fra.me.REG[10];
- register_static_object(&once_value_21);
- } else fra.me.REG[10] = once_value_21;
- fra.me.REG[10] = fra.me.REG[10];
- fra.me.REG[10] = CALL_standard___string___Collection___join(fra.me.REG[12])(fra.me.REG[12], fra.me.REG[10]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[13])(fra.me.REG[13], fra.me.REG[10]);
- if (!once_value_22) {
- fra.me.REG[10] = BOX_NativeString(".");
- REGB5 = TAG_Int(1);
- fra.me.REG[10] = NEW_String_standard___string___String___with_native(fra.me.REG[10], REGB5);
- once_value_22 = fra.me.REG[10];
- register_static_object(&once_value_22);
- } else fra.me.REG[10] = once_value_22;
- fra.me.REG[10] = fra.me.REG[10];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[13])(fra.me.REG[13], fra.me.REG[10]);
- fra.me.REG[13] = CALL_standard___string___Object___to_s(fra.me.REG[13])(fra.me.REG[13]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[9], fra.me.REG[13]);
- }
- }
- /* ../lib/standard/kernel.nit:354 */
- REGB5 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:235 */
- REGB5 = TAG_Int(UNTAG_Int(REGB2)+UNTAG_Int(REGB5));
- /* ../lib/standard/kernel.nit:354 */
- REGB2 = REGB5;
- } else {
- /* ../lib/standard/kernel.nit:352 */
- goto label23;
- }
- }
- label23: while(0);
- /* syntax/typing.nit:1519 */
- REGB2 = TAG_Bool(fra.me.REG[8]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- REGB0 = TAG_Bool(fra.me.REG[8]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(false);
- REGB2 = REGB0;
- } else {
- REGB0 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[8])(fra.me.REG[8], NIT_NULL);
- REGB2 = REGB0;
- }
- }
- REGB2 = TAG_Bool(!UNTAG_Bool(REGB2));
- if (UNTAG_Bool(REGB2)) {
- /* syntax/typing.nit:1520 */
- fra.me.REG[8] = CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform_multiexpr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[5], fra.me.REG[8]);
- fra.me.REG[5] = fra.me.REG[8];
- }
- }
- }
- } else {
- /* syntax/typing.nit:1523 */
- REGB2 = TAG_Int(0);
- REGB0 = TAG_Bool(IS_EQUAL_OO(REGB1,REGB2));
- if (UNTAG_Bool(REGB0)) {
- } else {
- /* ../lib/standard/kernel.nit:227 */
- REGB2 = TAG_Bool((REGB1)==(REGB2));
- /* syntax/typing.nit:1523 */
- REGB0 = REGB2;
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1524 */
- REGB0 = TAG_Int(3);
- fra.me.REG[8] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_24) {
- fra.me.REG[6] = BOX_NativeString("Error: ");
- REGB0 = TAG_Int(7);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB0);
- once_value_24 = fra.me.REG[6];
- register_static_object(&once_value_24);
- } else fra.me.REG[6] = once_value_24;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[6]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[3]);
- if (!once_value_25) {
- fra.me.REG[3] = BOX_NativeString(" does not require blocks.");
- REGB0 = TAG_Int(25);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_25 = fra.me.REG[3];
- register_static_object(&once_value_25);
- } else fra.me.REG[3] = once_value_25;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[3]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[8]);
- }
- }
- /* syntax/typing.nit:1526 */
- goto label26;
- label26: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[5];
-}
-void syntax___typing___AAbsSendExpr___do_typing(val_t p0, val_t p1, val_t p2, val_t p3, val_t p4, val_t p5, val_t p6, val_t p7){
- struct {struct stack_frame_t me; val_t MORE_REG[6];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1531;
- fra.me.meth = LOCATE_syntax___typing___AAbsSendExpr___do_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 7;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[6] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- fra.me.REG[2] = p2;
- REGB0 = p3;
- REGB1 = p4;
- fra.me.REG[3] = p5;
- fra.me.REG[4] = p6;
- fra.me.REG[5] = p7;
- /* syntax/typing.nit:1534 */
- fra.me.REG[3] = CALL_syntax___typing___AAbsSendExpr___get_property(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2], REGB0, fra.me.REG[3]);
- /* syntax/typing.nit:1535 */
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB2 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Bool(false);
- REGB0 = REGB2;
- } else {
- REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB2;
- }
- }
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:1536 */
- fra.me.REG[2] = CALL_syntax___typing___AAbsSendExpr___get_signature(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2], fra.me.REG[3], REGB1);
- /* syntax/typing.nit:1537 */
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1537);
- }
- fra.me.REG[6] = CALL_metamodel___abstractmetamodel___MMLocalProperty___name(fra.me.REG[3])(fra.me.REG[3]);
- REGB1 = CALL_syntax___typing___AAbsAbsSendExpr___process_signature(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2], fra.me.REG[6], fra.me.REG[4]);
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- if (UNTAG_Bool(REGB1)) {
- goto label1;
- }
- /* syntax/typing.nit:1538 */
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1538);
- }
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___name(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[5] = CALL_syntax___typing___AAbsAbsSendExpr___process_closures(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2], fra.me.REG[4], fra.me.REG[5]);
- /* syntax/typing.nit:1539 */
- REGB1 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(false);
- REGB1 = REGB0;
- } else {
- REGB0 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[5])(fra.me.REG[5], NIT_NULL);
- REGB1 = REGB0;
- }
- }
- if (UNTAG_Bool(REGB1)) {
- fra.me.REG[4] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[2])(fra.me.REG[2]);
- REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(false);
- REGB1 = REGB0;
- } else {
- REGB0 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], NIT_NULL);
- REGB1 = REGB0;
- }
- }
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- } else {
- REGB0 = TAG_Bool(false);
- REGB1 = REGB0;
- }
- if (UNTAG_Bool(REGB1)) {
- goto label1;
- }
- /* syntax/typing.nit:1540 */
- ATTR_syntax___typing___AAbsSendExpr____prop(fra.me.REG[0]) = fra.me.REG[3];
- /* syntax/typing.nit:1541 */
- ATTR_syntax___typing___AAbsAbsSendExpr____prop_signature(fra.me.REG[0]) = fra.me.REG[2];
- /* syntax/typing.nit:1542 */
- ATTR_syntax___typing___AAbsSendExpr____return_type(fra.me.REG[0]) = fra.me.REG[5];
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___AAbsSendExpr___get_property(val_t p0, val_t p1, val_t p2, val_t p3, val_t p4){
- struct {struct stack_frame_t me; val_t MORE_REG[9];} 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_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 */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1545;
- fra.me.meth = LOCATE_syntax___typing___AAbsSendExpr___get_property;
- fra.me.has_broke = 0;
- fra.me.REG_size = 10;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[6] = NIT_NULL;
- fra.me.REG[7] = NIT_NULL;
- fra.me.REG[8] = NIT_NULL;
- fra.me.REG[9] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- fra.me.REG[2] = p2;
- REGB0 = p3;
- fra.me.REG[3] = p4;
- /* syntax/typing.nit:1547 */
- REGB1 = TAG_Bool(VAL_ISA(fra.me.REG[2], COLOR_metamodel___static_type___MMTypeNone, ID_metamodel___static_type___MMTypeNone)) /*cast MMTypeNone*/;
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:1548 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[4] = BOX_NativeString("==");
- REGB1 = TAG_Int(2);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB1);
- once_value_2 = fra.me.REG[4];
- register_static_object(&once_value_2);
- } else fra.me.REG[4] = once_value_2;
- fra.me.REG[4] = fra.me.REG[4];
- fra.me.REG[4] = CALL_standard___symbol___String___to_symbol(fra.me.REG[4])(fra.me.REG[4]);
- 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];
- REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[4]));
- if (UNTAG_Bool(REGB1)) {
- } else {
- REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- REGB1 = REGB2;
- }
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(true);
- } else {
- if (!once_value_3) {
- if (!once_value_4) {
- fra.me.REG[4] = BOX_NativeString("!=");
- REGB2 = TAG_Int(2);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB2);
- once_value_4 = fra.me.REG[4];
- register_static_object(&once_value_4);
- } else fra.me.REG[4] = once_value_4;
- fra.me.REG[4] = fra.me.REG[4];
- fra.me.REG[4] = CALL_standard___symbol___String___to_symbol(fra.me.REG[4])(fra.me.REG[4]);
- once_value_3 = fra.me.REG[4];
- register_static_object(&once_value_3);
- } else fra.me.REG[4] = once_value_3;
- fra.me.REG[4] = fra.me.REG[4];
- REGB2 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[3],fra.me.REG[4]));
- if (UNTAG_Bool(REGB2)) {
- } else {
- REGB3 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- REGB2 = REGB3;
- }
- REGB1 = REGB2;
- }
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:1550 */
- fra.me.REG[4] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_object(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[4] = CALL_metamodel___static_type___MMType___as_nullable(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[2] = fra.me.REG[4];
- } else {
- /* syntax/typing.nit:1552 */
- REGB1 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_5) {
- fra.me.REG[5] = BOX_NativeString("Error: Method '");
- REGB1 = TAG_Int(15);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB1);
- once_value_5 = fra.me.REG[5];
- register_static_object(&once_value_5);
- } else fra.me.REG[5] = once_value_5;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- if (!once_value_6) {
- fra.me.REG[5] = BOX_NativeString("' call on 'null'.");
- REGB1 = TAG_Int(17);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB1);
- once_value_6 = fra.me.REG[5];
- register_static_object(&once_value_6);
- } else fra.me.REG[5] = once_value_6;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[4]);
- /* syntax/typing.nit:1553 */
- fra.me.REG[4] = NIT_NULL;
- goto label7;
- }
- }
- /* syntax/typing.nit:1556 */
- fra.me.REG[5] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:1557 */
- fra.me.REG[6] = NIT_NULL;
- /* syntax/typing.nit:1558 */
- REGB1 = CALL_metamodel___abstractmetamodel___MMLocalClass___has_global_property_by_name(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
- if (UNTAG_Bool(REGB1)) {
- fra.me.REG[7] = CALL_metamodel___abstractmetamodel___MMLocalClass___select_method(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
- fra.me.REG[6] = fra.me.REG[7];
- }
- /* syntax/typing.nit:1559 */
- REGB1 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- REGB2 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Bool(false);
- REGB1 = REGB2;
- } else {
- REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[6])(fra.me.REG[6], NIT_NULL);
- REGB1 = REGB2;
- }
- }
- if (UNTAG_Bool(REGB1)) {
- fra.me.REG[7] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[7] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[7])(fra.me.REG[7]);
- REGB1 = CALL_metamodel___abstractmetamodel___MMGlobalProperty___is_init(fra.me.REG[7])(fra.me.REG[7]);
- } else {
- REGB2 = TAG_Bool(false);
- REGB1 = REGB2;
- }
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:1560 */
- fra.me.REG[7] = CALL_metamodel___abstractmetamodel___MMLocalClass___super_methods_named(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[3]);
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=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[7]);
- /* syntax/typing.nit:1561 */
- REGB2 = TAG_Int(1);
- REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:234 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB1)>UNTAG_Int(REGB2));
- /* syntax/typing.nit:1561 */
- if (UNTAG_Bool(REGB2)) {
- /* syntax/typing.nit:1562 */
- REGB2 = TAG_Int(5);
- fra.me.REG[8] = NEW_Array_standard___collection___array___Array___with_capacity(REGB2);
- if (!once_value_8) {
- fra.me.REG[9] = BOX_NativeString("Error: Ambigous method name '");
- REGB2 = TAG_Int(29);
- fra.me.REG[9] = NEW_String_standard___string___String___with_native(fra.me.REG[9], REGB2);
- once_value_8 = fra.me.REG[9];
- register_static_object(&once_value_8);
- } else fra.me.REG[9] = once_value_8;
- fra.me.REG[9] = fra.me.REG[9];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[9]);
- fra.me.REG[9] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[9]);
- if (!once_value_9) {
- fra.me.REG[9] = BOX_NativeString("' for ");
- REGB2 = TAG_Int(6);
- fra.me.REG[9] = NEW_String_standard___string___String___with_native(fra.me.REG[9], REGB2);
- once_value_9 = fra.me.REG[9];
- register_static_object(&once_value_9);
- } else fra.me.REG[9] = once_value_9;
- fra.me.REG[9] = fra.me.REG[9];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[9]);
- if (!once_value_10) {
- fra.me.REG[9] = BOX_NativeString(", ");
- REGB2 = TAG_Int(2);
- fra.me.REG[9] = NEW_String_standard___string___String___with_native(fra.me.REG[9], REGB2);
- once_value_10 = fra.me.REG[9];
- register_static_object(&once_value_10);
- } else fra.me.REG[9] = once_value_10;
- fra.me.REG[9] = fra.me.REG[9];
- fra.me.REG[9] = CALL_standard___string___Collection___join(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[9]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[9]);
- if (!once_value_11) {
- fra.me.REG[9] = BOX_NativeString(". Use explicit designation.");
- REGB2 = TAG_Int(27);
- fra.me.REG[9] = NEW_String_standard___string___String___with_native(fra.me.REG[9], REGB2);
- once_value_11 = fra.me.REG[9];
- register_static_object(&once_value_11);
- } else fra.me.REG[9] = once_value_11;
- fra.me.REG[9] = fra.me.REG[9];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[9]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[8]);
- /* syntax/typing.nit:1563 */
- fra.me.REG[4] = NIT_NULL;
- goto label7;
- } else {
- /* ../lib/standard/collection/array.nit:24 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[7]);
- /* syntax/typing.nit:1564 */
- REGB1 = TAG_Int(1);
- REGB3 = TAG_Bool(IS_EQUAL_OO(REGB2,REGB1));
- if (UNTAG_Bool(REGB3)) {
- } else {
- /* ../lib/standard/kernel.nit:227 */
- REGB1 = TAG_Bool((REGB2)==(REGB1));
- /* syntax/typing.nit:1564 */
- REGB3 = REGB1;
- }
- if (UNTAG_Bool(REGB3)) {
- /* syntax/typing.nit:1565 */
- fra.me.REG[7] = CALL_standard___collection___abstract_collection___Collection___first(fra.me.REG[7])(fra.me.REG[7]);
- REGB3 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1565);
- }
- fra.me.REG[7] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[7])(fra.me.REG[7]);
- fra.me.REG[7] = CALL_metamodel___abstractmetamodel___MMLocalClass_____bra(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[7]);
- /* syntax/typing.nit:1566 */
- REGB3 = TAG_Bool(VAL_ISA(fra.me.REG[7], COLOR_metamodel___abstractmetamodel___MMMethod, ID_metamodel___abstractmetamodel___MMMethod)) /*cast MMMethod*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_syntax___typing, 1566);
- }
- /* syntax/typing.nit:1567 */
- fra.me.REG[6] = fra.me.REG[7];
- }
- }
- }
- /* syntax/typing.nit:1571 */
- REGB3 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB3 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[6])(fra.me.REG[6], NIT_NULL);
- REGB3 = REGB1;
- }
- }
- if (UNTAG_Bool(REGB3)) {
- /* syntax/typing.nit:1572 */
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1573 */
- REGB0 = TAG_Int(5);
- fra.me.REG[7] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_12) {
- fra.me.REG[5] = BOX_NativeString("Error: Method or variable '");
- REGB0 = TAG_Int(27);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_12 = fra.me.REG[5];
- register_static_object(&once_value_12);
- } else fra.me.REG[5] = once_value_12;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[5]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[5]);
- if (!once_value_13) {
- fra.me.REG[5] = BOX_NativeString("' unknown in ");
- REGB0 = TAG_Int(13);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_13 = fra.me.REG[5];
- register_static_object(&once_value_13);
- } else fra.me.REG[5] = once_value_13;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[5]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[5]);
- if (!once_value_14) {
- fra.me.REG[5] = BOX_NativeString(".");
- REGB0 = TAG_Int(1);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_14 = fra.me.REG[5];
- register_static_object(&once_value_14);
- } else fra.me.REG[5] = once_value_14;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[5]);
- fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[7])(fra.me.REG[7]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[7]);
- } else {
- /* syntax/typing.nit:1575 */
- REGB0 = TAG_Int(5);
- fra.me.REG[7] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_15) {
- fra.me.REG[5] = BOX_NativeString("Error: Method '");
- REGB0 = TAG_Int(15);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_15 = fra.me.REG[5];
- register_static_object(&once_value_15);
- } else fra.me.REG[5] = once_value_15;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[5]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[3]);
- if (!once_value_16) {
- fra.me.REG[3] = BOX_NativeString("' doesn't exists in ");
- REGB0 = TAG_Int(20);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_16 = fra.me.REG[3];
- register_static_object(&once_value_16);
- } else fra.me.REG[3] = once_value_16;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[3]);
- 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[7])(fra.me.REG[7], fra.me.REG[2]);
- if (!once_value_17) {
- fra.me.REG[2] = BOX_NativeString(".");
- REGB0 = TAG_Int(1);
- fra.me.REG[2] = NEW_String_standard___string___String___with_native(fra.me.REG[2], REGB0);
- once_value_17 = fra.me.REG[2];
- register_static_object(&once_value_17);
- } else fra.me.REG[2] = once_value_17;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[2]);
- fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[7])(fra.me.REG[7]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[7]);
- }
- /* syntax/typing.nit:1577 */
- fra.me.REG[4] = NIT_NULL;
- goto label7;
- }
- /* syntax/typing.nit:1579 */
- fra.me.REG[4] = fra.me.REG[6];
- goto label7;
- label7: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[4];
-}
-val_t syntax___typing___AAbsSendExpr___get_signature(val_t p0, val_t p1, val_t p2, val_t p3, val_t p4){
- struct {struct stack_frame_t me; val_t MORE_REG[5];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1582;
- fra.me.meth = LOCATE_syntax___typing___AAbsSendExpr___get_signature;
- fra.me.has_broke = 0;
- fra.me.REG_size = 6;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- fra.me.REG[2] = p2;
- fra.me.REG[3] = p3;
- REGB0 = p4;
- /* syntax/typing.nit:1585 */
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[5] = CALL_syntax___syntax_base___AbsSyntaxVisitor___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
- CALL_syntax___syntax_base___MMGlobalProperty___check_visibility(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[1], fra.me.REG[0], fra.me.REG[5], REGB0);
- /* syntax/typing.nit:1586 */
- fra.me.REG[2] = CALL_metamodel___static_type___MMLocalProperty___signature_for(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2]);
- /* syntax/typing.nit:1587 */
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- fra.me.REG[3] = CALL_metamodel___static_type___MMSignature___not_for_self(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[2] = fra.me.REG[3];
- }
- /* syntax/typing.nit:1588 */
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[2];
-}
-val_t syntax___typing___AAbsSendExpr___prop(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1591;
- fra.me.meth = LOCATE_syntax___typing___AAbsSendExpr___prop;
- 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;
- /* syntax/typing.nit:1591 */
- fra.me.REG[1] = fra.me.REG[0];
- /* syntax/typing.nit:1592 */
- fra.me.REG[1] = ATTR_syntax___typing___AAbsSendExpr____prop(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[1]!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 1592);
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-val_t syntax___typing___AAbsSendExpr___return_type(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1595;
- fra.me.meth = LOCATE_syntax___typing___AAbsSendExpr___return_type;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1595 */
- fra.me.REG[0] = ATTR_syntax___typing___AAbsSendExpr____return_type(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void syntax___typing___ASuperInitCall___register_super_init_call(val_t p0, val_t p1, val_t p2){
- struct {struct stack_frame_t me; val_t MORE_REG[10];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- static val_t once_value_3; /* Once value */
- static val_t once_value_4; /* Once value */
- static val_t once_value_5; /* Once value */
- static val_t once_value_6; /* Once value */
- static val_t once_value_7; /* Once value */
- static val_t once_value_8; /* Once value */
- static val_t once_value_9; /* Once value */
- static val_t once_value_10; /* Once value */
- static val_t once_value_11; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1602;
- fra.me.meth = LOCATE_syntax___typing___ASuperInitCall___register_super_init_call;
- fra.me.has_broke = 0;
- fra.me.REG_size = 11;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[6] = NIT_NULL;
- fra.me.REG[7] = NIT_NULL;
- fra.me.REG[8] = NIT_NULL;
- fra.me.REG[9] = NIT_NULL;
- fra.me.REG[10] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- fra.me.REG[2] = p2;
- /* syntax/typing.nit:1602 */
- fra.me.REG[3] = fra.me.REG[0];
- /* syntax/typing.nit:1604 */
- fra.me.REG[4] = CALL_parser___parser_prod___ANode___parent(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[5] = CALL_syntax___typing___TypingVisitor___top_block(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(IS_EQUAL_NN(fra.me.REG[4],fra.me.REG[5]));
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- fra.me.REG[5] = CALL_syntax___typing___TypingVisitor___top_block(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(IS_EQUAL_ON(fra.me.REG[3],fra.me.REG[5]));
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
- REGB0 = REGB1;
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- } else {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1605 */
- REGB0 = TAG_Int(3);
- fra.me.REG[5] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_1) {
- fra.me.REG[4] = BOX_NativeString("Error: Constructor invocation ");
- REGB0 = TAG_Int(30);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_1 = fra.me.REG[4];
- register_static_object(&once_value_1);
- } else fra.me.REG[4] = once_value_1;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- fra.me.REG[4] = 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[4]);
- if (!once_value_2) {
- fra.me.REG[4] = BOX_NativeString(" must not be in nested block.");
- REGB0 = TAG_Int(29);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_2 = fra.me.REG[4];
- register_static_object(&once_value_2);
- } else fra.me.REG[4] = once_value_2;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3], fra.me.REG[5]);
- }
- /* syntax/typing.nit:1607 */
- fra.me.REG[5] = CALL_syntax___syntax_base___AbsSyntaxVisitor___mmmodule(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMGlobalProperty___intro(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___local_class(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMModule_____bra(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- /* syntax/typing.nit:1608 */
- fra.me.REG[5] = NIT_NULL;
- /* syntax/typing.nit:1609 */
- fra.me.REG[6] = CALL_syntax___typing___TypingVisitor___explicit_super_init_calls(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[6]!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 1609);
- }
- /* syntax/typing.nit:1610 */
- REGB0 = CALL_standard___collection___abstract_collection___Collection___is_empty(fra.me.REG[6])(fra.me.REG[6]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1611 */
- fra.me.REG[0] = CALL_standard___collection___abstract_collection___SequenceRead___last(fra.me.REG[6])(fra.me.REG[6]);
- REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1611);
- }
- 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[5] = fra.me.REG[0];
- }
- /* syntax/typing.nit:1613 */
- fra.me.REG[0] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_class(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMLocalClass___cshe(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_metamodel___partial_order___PartialOrderElement___reverse_linear_extension(fra.me.REG[0])(fra.me.REG[0]);
- /* syntax/typing.nit:1614 */
- fra.me.REG[7] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_class(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[4],fra.me.REG[7]));
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[7]);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1615 */
- REGB0 = TAG_Bool(true);
- CALL_syntax___typing___TypingVisitor___explicit_other_init_call__eq(fra.me.REG[1])(fra.me.REG[1], REGB0);
- } else {
- /* syntax/typing.nit:1616 */
- REGB0 = CALL_standard___collection___abstract_collection___Collection___has(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1617 */
- REGB0 = TAG_Int(5);
- fra.me.REG[7] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_3) {
- fra.me.REG[8] = BOX_NativeString("Error: Constructor of class ");
- REGB0 = TAG_Int(28);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
- once_value_3 = fra.me.REG[8];
- register_static_object(&once_value_3);
- } else fra.me.REG[8] = once_value_3;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- if (!once_value_4) {
- fra.me.REG[8] = BOX_NativeString(" must be one in ");
- REGB0 = TAG_Int(16);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
- once_value_4 = fra.me.REG[8];
- register_static_object(&once_value_4);
- } else fra.me.REG[8] = once_value_4;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- if (!once_value_5) {
- fra.me.REG[8] = BOX_NativeString(", ");
- REGB0 = TAG_Int(2);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
- once_value_5 = fra.me.REG[8];
- register_static_object(&once_value_5);
- } else fra.me.REG[8] = once_value_5;
- fra.me.REG[8] = fra.me.REG[8];
- fra.me.REG[8] = CALL_standard___string___Collection___join(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[8]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- if (!once_value_6) {
- fra.me.REG[8] = BOX_NativeString(".");
- REGB0 = TAG_Int(1);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
- once_value_6 = fra.me.REG[8];
- register_static_object(&once_value_6);
- } else fra.me.REG[8] = once_value_6;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[7])(fra.me.REG[7]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3], fra.me.REG[7]);
- } else {
- /* syntax/typing.nit:1618 */
- REGB0 = TAG_Bool(IS_EQUAL_ON(fra.me.REG[4],fra.me.REG[5]));
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1619 */
- REGB0 = TAG_Int(3);
- fra.me.REG[7] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_7) {
- fra.me.REG[8] = BOX_NativeString("Error: Only one super constructor invocation of class ");
- REGB0 = TAG_Int(54);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
- once_value_7 = fra.me.REG[8];
- register_static_object(&once_value_7);
- } else fra.me.REG[8] = once_value_7;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- if (!once_value_8) {
- fra.me.REG[8] = BOX_NativeString(" is allowed.");
- REGB0 = TAG_Int(12);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB0);
- once_value_8 = fra.me.REG[8];
- register_static_object(&once_value_8);
- } else fra.me.REG[8] = once_value_8;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[7])(fra.me.REG[7]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3], fra.me.REG[7]);
- } else {
- /* ../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[0])!=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[0]);
- /* ../lib/standard/collection/array.nit:271 */
- fra.me.REG[7] = ATTR_standard___collection___array___Array____items(fra.me.REG[0]);
- /* ../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[0])!=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[0]);
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:272 */
- if (UNTAG_Bool(REGB1)) {
- /* ../lib/standard/collection/array.nit:273 */
- REGB1 = TAG_Bool(fra.me.REG[7]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 273);
- }
- /* ../lib/standard/collection/array.nit:718 */
- fra.me.REG[8] = ((Nit_NativeArray)fra.me.REG[7])->val[UNTAG_Int(REGB0)];
- /* syntax/typing.nit:1622 */
- REGB1 = TAG_Bool(IS_EQUAL_ON(fra.me.REG[8],fra.me.REG[5]));
- if (UNTAG_Bool(REGB1)) {
- } else {
- REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[5]);
- REGB1 = REGB2;
- }
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:1623 */
- fra.me.REG[5] = NIT_NULL;
- } else {
- /* syntax/typing.nit:1624 */
- REGB1 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[8],fra.me.REG[4]));
- if (UNTAG_Bool(REGB1)) {
- } else {
- REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[4]);
- REGB1 = REGB2;
- }
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:1625 */
- REGB1 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- REGB2 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Bool(false);
- REGB1 = REGB2;
- } else {
- REGB2 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[5])(fra.me.REG[5], NIT_NULL);
- REGB1 = REGB2;
- }
- }
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:1626 */
- REGB1 = TAG_Int(5);
- fra.me.REG[9] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_9) {
- fra.me.REG[10] = BOX_NativeString("Error: Constructor of ");
- REGB1 = TAG_Int(22);
- fra.me.REG[10] = NEW_String_standard___string___String___with_native(fra.me.REG[10], REGB1);
- once_value_9 = fra.me.REG[10];
- register_static_object(&once_value_9);
- } else fra.me.REG[10] = once_value_9;
- fra.me.REG[10] = fra.me.REG[10];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[10]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[8])(fra.me.REG[8]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[8]);
- if (!once_value_10) {
- fra.me.REG[8] = BOX_NativeString(" must be invoked before constructor of ");
- REGB1 = TAG_Int(39);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB1);
- once_value_10 = fra.me.REG[8];
- register_static_object(&once_value_10);
- } else fra.me.REG[8] = once_value_10;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[8]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[8]);
- if (!once_value_11) {
- fra.me.REG[8] = BOX_NativeString("");
- REGB1 = TAG_Int(0);
- fra.me.REG[8] = NEW_String_standard___string___String___with_native(fra.me.REG[8], REGB1);
- once_value_11 = fra.me.REG[8];
- register_static_object(&once_value_11);
- } else fra.me.REG[8] = once_value_11;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[9])(fra.me.REG[9], fra.me.REG[8]);
- fra.me.REG[9] = CALL_standard___string___Object___to_s(fra.me.REG[9])(fra.me.REG[9]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3], fra.me.REG[9]);
- }
- /* syntax/typing.nit:1628 */
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[2]);
- /* syntax/typing.nit:1629 */
- goto label12;
- }
- }
- /* ../lib/standard/collection/array.nit:274 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:235 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/collection/array.nit:274 */
- REGB0 = REGB1;
- } else {
- /* ../lib/standard/collection/array.nit:272 */
- goto label13;
- }
- }
- label13: while(0);
- label12: while(0);
- }
- }
- }
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___ANewExpr___compute_raw_arguments(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1638;
- fra.me.meth = LOCATE_syntax___typing___ANewExpr___compute_raw_arguments;
- 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;
- /* syntax/typing.nit:1638 */
- fra.me.REG[0] = CALL_parser___parser_nodes___ANewExpr___n_args(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_syntax___syntax_base___AExprs___to_a(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void syntax___typing___ANewExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- static val_t once_value_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_syntax___typing;
- fra.me.line = 1639;
- fra.me.meth = LOCATE_syntax___typing___ANewExpr___after_typing;
- 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;
- /* syntax/typing.nit:1641 */
- fra.me.REG[2] = CALL_parser___parser_nodes___ANewExpr___n_type(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___syntax_base___AType___is_typed(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:1642 */
- fra.me.REG[2] = CALL_parser___parser_nodes___ANewExpr___n_type(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_syntax___syntax_base___AType___stype(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:1643 */
- fra.me.REG[3] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalClass___global(fra.me.REG[3])(fra.me.REG[3]);
- REGB0 = CALL_metamodel___abstractmetamodel___MMGlobalClass___is_abstract(fra.me.REG[3])(fra.me.REG[3]);
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1644 */
- REGB0 = TAG_Int(3);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_2) {
- fra.me.REG[4] = BOX_NativeString("Error: try to instantiate abstract class ");
- REGB0 = TAG_Int(41);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_2 = fra.me.REG[4];
- register_static_object(&once_value_2);
- } else fra.me.REG[4] = once_value_2;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[4] = CALL_metamodel___static_type___MMType___local_class(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- if (!once_value_3) {
- fra.me.REG[4] = BOX_NativeString(".");
- REGB0 = TAG_Int(1);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_3 = fra.me.REG[4];
- register_static_object(&once_value_3);
- } else fra.me.REG[4] = once_value_3;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[3]);
- /* syntax/typing.nit:1645 */
- goto label1;
- }
- /* syntax/typing.nit:1648 */
- fra.me.REG[3] = CALL_parser___parser_nodes___ANewExpr___n_id(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1649 */
- if (!once_value_4) {
- if (!once_value_5) {
- fra.me.REG[3] = BOX_NativeString("init");
- REGB0 = TAG_Int(4);
- fra.me.REG[3] = NEW_String_standard___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];
- fra.me.REG[3] = CALL_standard___symbol___String___to_symbol(fra.me.REG[3])(fra.me.REG[3]);
- 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];
- } else {
- /* syntax/typing.nit:1651 */
- fra.me.REG[4] = CALL_parser___parser_nodes___ANewExpr___n_id(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1651);
- }
- fra.me.REG[4] = CALL_syntax___syntax_base___Token___to_symbol(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[3] = fra.me.REG[4];
- }
- /* syntax/typing.nit:1654 */
- REGB0 = TAG_Bool(false);
- REGB1 = TAG_Bool(false);
- fra.me.REG[4] = CALL_syntax___syntax_base___AAbsAbsSendExpr___raw_arguments(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___AAbsSendExpr___do_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2], REGB0, REGB1, fra.me.REG[3], fra.me.REG[4], NIT_NULL);
- /* syntax/typing.nit:1655 */
- fra.me.REG[4] = ATTR_syntax___typing___AAbsSendExpr____prop(fra.me.REG[0]);
- REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(false);
- REGB1 = REGB0;
- } else {
- REGB0 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], NIT_NULL);
- REGB1 = REGB0;
- }
- }
- if (UNTAG_Bool(REGB1)) {
- goto label1;
- }
- /* syntax/typing.nit:1657 */
- fra.me.REG[4] = CALL_syntax___syntax_base___AAbsSendExpr___prop(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[4])(fra.me.REG[4]);
- REGB1 = CALL_metamodel___abstractmetamodel___MMGlobalProperty___is_init(fra.me.REG[4])(fra.me.REG[4]);
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:1658 */
- REGB1 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_6) {
- fra.me.REG[3] = BOX_NativeString("Error: ");
- REGB1 = TAG_Int(7);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB1);
- once_value_6 = fra.me.REG[3];
- register_static_object(&once_value_6);
- } else fra.me.REG[3] = once_value_6;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- fra.me.REG[3] = CALL_syntax___syntax_base___AAbsSendExpr___prop(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- if (!once_value_7) {
- fra.me.REG[3] = BOX_NativeString(" is not a constructor.");
- REGB1 = TAG_Int(22);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB1);
- once_value_7 = fra.me.REG[3];
- register_static_object(&once_value_7);
- } else fra.me.REG[3] = once_value_7;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[4]);
- /* syntax/typing.nit:1659 */
- goto label1;
- }
- /* syntax/typing.nit:1661 */
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[2];
- /* syntax/typing.nit:1662 */
- REGB1 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___ASendExpr___name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1668;
- fra.me.meth = LOCATE_syntax___typing___ASendExpr___name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 0;
- fra.me.nitni_local_ref_head = NULL;
- /* syntax/typing.nit:1668 */
- nit_abort("Deferred method called", NULL, LOCATE_syntax___typing, 1668);
- stack_frame_head = fra.me.prev;
- return NIT_NULL;
-}
-val_t syntax___typing___ASendExpr___closure_defs(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1671;
- fra.me.meth = LOCATE_syntax___typing___ASendExpr___closure_defs;
- 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;
- /* syntax/typing.nit:1672 */
- fra.me.REG[0] = NIT_NULL;
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void syntax___typing___ASendExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1674;
- fra.me.meth = LOCATE_syntax___typing___ASendExpr___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:1676 */
- CALL_syntax___typing___ASendExpr___do_all_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___ASendExpr___do_all_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[6];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- static val_t once_value_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_syntax___typing;
- fra.me.line = 1679;
- fra.me.meth = LOCATE_syntax___typing___ASendExpr___do_all_typing;
- 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;
- /* syntax/typing.nit:1679 */
- fra.me.REG[2] = fra.me.REG[0];
- /* syntax/typing.nit:1681 */
- fra.me.REG[3] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = CALL_syntax___syntax_base___AbsSyntaxVisitor___check_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:1682 */
- fra.me.REG[3] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[3] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[4] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = CALL_syntax___typing___AExpr___is_implicit_self(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[4] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- REGB1 = CALL_syntax___typing___AExpr___is_self(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[4] = CALL_syntax___typing___ASendExpr___name(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[5] = CALL_syntax___syntax_base___AAbsAbsSendExpr___raw_arguments(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[6] = CALL_syntax___syntax_base___ASendExpr___closure_defs(fra.me.REG[2])(fra.me.REG[2]);
- CALL_syntax___typing___AAbsSendExpr___do_typing(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1], fra.me.REG[3], REGB0, REGB1, fra.me.REG[4], fra.me.REG[5], fra.me.REG[6]);
- /* syntax/typing.nit:1683 */
- fra.me.REG[6] = ATTR_syntax___typing___AAbsSendExpr____prop(fra.me.REG[2]);
- REGB1 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- REGB0 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(false);
- REGB1 = REGB0;
- } else {
- REGB0 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[6])(fra.me.REG[6], NIT_NULL);
- REGB1 = REGB0;
- }
- }
- if (UNTAG_Bool(REGB1)) {
- goto label1;
- }
- /* syntax/typing.nit:1684 */
- fra.me.REG[6] = ATTR_syntax___typing___AAbsSendExpr____prop(fra.me.REG[2]);
- REGB1 = TAG_Bool(fra.me.REG[6]!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 1684);
- }
- /* syntax/typing.nit:1686 */
- fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[6])(fra.me.REG[6]);
- REGB1 = CALL_metamodel___abstractmetamodel___MMGlobalProperty___is_init(fra.me.REG[0])(fra.me.REG[0]);
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:1687 */
- fra.me.REG[0] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[0] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[0])(fra.me.REG[0]);
- REGB1 = CALL_metamodel___abstractmetamodel___MMGlobalProperty___is_init(fra.me.REG[0])(fra.me.REG[0]);
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:1688 */
- REGB1 = TAG_Int(3);
- fra.me.REG[0] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_2) {
- fra.me.REG[5] = BOX_NativeString("Error: try to invoke constructor ");
- REGB1 = TAG_Int(33);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB1);
- once_value_2 = fra.me.REG[5];
- register_static_object(&once_value_2);
- } else fra.me.REG[5] = once_value_2;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[5]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[5]);
- if (!once_value_3) {
- fra.me.REG[5] = BOX_NativeString(" in a method.");
- REGB1 = TAG_Int(13);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB1);
- once_value_3 = fra.me.REG[5];
- register_static_object(&once_value_3);
- } else fra.me.REG[5] = once_value_3;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[5]);
- fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[0]);
- } else {
- /* syntax/typing.nit:1689 */
- fra.me.REG[0] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- REGB1 = CALL_syntax___typing___AExpr___is_self(fra.me.REG[0])(fra.me.REG[0]);
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:1690 */
- REGB1 = TAG_Int(3);
- fra.me.REG[0] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_4) {
- fra.me.REG[5] = BOX_NativeString("Error: constructor ");
- REGB1 = TAG_Int(19);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB1);
- once_value_4 = fra.me.REG[5];
- register_static_object(&once_value_4);
- } else fra.me.REG[5] = once_value_4;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[5]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[5]);
- if (!once_value_5) {
- fra.me.REG[5] = BOX_NativeString(" is not invoken on 'self'.");
- REGB1 = TAG_Int(26);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB1);
- once_value_5 = fra.me.REG[5];
- register_static_object(&once_value_5);
- } else fra.me.REG[5] = once_value_5;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[5]);
- fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[0]);
- } else {
- /* syntax/typing.nit:1692 */
- CALL_syntax___typing___ASuperInitCall___register_super_init_call(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1], fra.me.REG[6]);
- }
- }
- }
- /* syntax/typing.nit:1696 */
- fra.me.REG[6] = CALL_syntax___syntax_base___AAbsSendExpr___return_type(fra.me.REG[2])(fra.me.REG[2]);
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[2]) = fra.me.REG[6];
- /* syntax/typing.nit:1697 */
- REGB1 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[2]) = REGB1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___ASendReassignExpr___read_prop(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1702;
- fra.me.meth = LOCATE_syntax___typing___ASendReassignExpr___read_prop;
- 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;
- /* syntax/typing.nit:1702 */
- fra.me.REG[1] = fra.me.REG[0];
- fra.me.REG[1] = ATTR_syntax___typing___ASendReassignExpr____read_prop(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[1]!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 1702);
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-void syntax___typing___ASendReassignExpr___do_all_typing(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_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 */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1704;
- fra.me.meth = LOCATE_syntax___typing___ASendReassignExpr___do_all_typing;
- 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;
- /* syntax/typing.nit:1704 */
- fra.me.REG[2] = fra.me.REG[0];
- /* syntax/typing.nit:1706 */
- fra.me.REG[3] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = CALL_syntax___syntax_base___AbsSyntaxVisitor___check_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:1707 */
- fra.me.REG[3] = CALL_syntax___syntax_base___AAbsAbsSendExpr___raw_arguments(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:1708 */
- fra.me.REG[4] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[4] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[5] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = CALL_syntax___typing___AExpr___is_implicit_self(fra.me.REG[5])(fra.me.REG[5]);
- fra.me.REG[5] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- REGB1 = CALL_syntax___typing___AExpr___is_self(fra.me.REG[5])(fra.me.REG[5]);
- fra.me.REG[5] = CALL_syntax___typing___ASendExpr___name(fra.me.REG[2])(fra.me.REG[2]);
- CALL_syntax___typing___AAbsSendExpr___do_typing(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1], fra.me.REG[4], REGB0, REGB1, fra.me.REG[5], fra.me.REG[3], NIT_NULL);
- /* syntax/typing.nit:1709 */
- fra.me.REG[5] = ATTR_syntax___typing___AAbsSendExpr____prop(fra.me.REG[2]);
- /* syntax/typing.nit:1710 */
- REGB1 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(false);
- REGB1 = REGB0;
- } else {
- REGB0 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[5])(fra.me.REG[5], NIT_NULL);
- REGB1 = REGB0;
- }
- }
- if (UNTAG_Bool(REGB1)) {
- goto label1;
- }
- /* syntax/typing.nit:1711 */
- REGB1 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1711);
- }
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[5])(fra.me.REG[5]);
- REGB1 = CALL_metamodel___abstractmetamodel___MMGlobalProperty___is_init(fra.me.REG[4])(fra.me.REG[4]);
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:1712 */
- fra.me.REG[4] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[4] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[4])(fra.me.REG[4]);
- REGB1 = CALL_metamodel___abstractmetamodel___MMGlobalProperty___is_init(fra.me.REG[4])(fra.me.REG[4]);
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:1713 */
- REGB1 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_2) {
- fra.me.REG[6] = BOX_NativeString("Error: try to invoke constructor ");
- REGB1 = TAG_Int(33);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB1);
- once_value_2 = fra.me.REG[6];
- register_static_object(&once_value_2);
- } else fra.me.REG[6] = once_value_2;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
- fra.me.REG[6] = CALL_standard___string___Object___to_s(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[6]);
- if (!once_value_3) {
- fra.me.REG[6] = BOX_NativeString(" in a method.");
- REGB1 = TAG_Int(13);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB1);
- once_value_3 = fra.me.REG[6];
- register_static_object(&once_value_3);
- } else fra.me.REG[6] = once_value_3;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[4]);
- } else {
- /* syntax/typing.nit:1714 */
- fra.me.REG[4] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- REGB1 = CALL_syntax___typing___AExpr___is_self(fra.me.REG[4])(fra.me.REG[4]);
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:1715 */
- REGB1 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- if (!once_value_4) {
- fra.me.REG[6] = BOX_NativeString("Error: constructor ");
- REGB1 = TAG_Int(19);
- fra.me.REG[6] = NEW_String_standard___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_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
- fra.me.REG[6] = CALL_standard___string___Object___to_s(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[6]);
- if (!once_value_5) {
- fra.me.REG[6] = BOX_NativeString(" is not invoken on 'self'.");
- REGB1 = TAG_Int(26);
- fra.me.REG[6] = NEW_String_standard___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_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[4]);
- }
- }
- }
- /* syntax/typing.nit:1718 */
- fra.me.REG[4] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[4] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[4])(fra.me.REG[4]);
- REGB1 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1718);
- }
- fra.me.REG[4] = CALL_metamodel___static_type___MMLocalProperty___signature_for(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- fra.me.REG[4] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[4])(fra.me.REG[4]);
- REGB1 = TAG_Bool((fra.me.REG[4]!=NIT_NULL) && VAL_ISA(fra.me.REG[4], COLOR_metamodel___static_type___MMType, ID_metamodel___static_type___MMType)) /*cast MMType*/;
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 1718);
- }
- /* syntax/typing.nit:1719 */
- fra.me.REG[0] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- REGB1 = CALL_syntax___typing___AExpr___is_self(fra.me.REG[0])(fra.me.REG[0]);
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- if (UNTAG_Bool(REGB1)) {
- fra.me.REG[0] = CALL_metamodel___static_type___MMType___not_for_self(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[4] = fra.me.REG[0];
- }
- /* syntax/typing.nit:1721 */
- fra.me.REG[4] = CALL_syntax___typing___AReassignFormExpr___do_rvalue_typing(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1], fra.me.REG[4]);
- /* syntax/typing.nit:1722 */
- REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(false);
- REGB1 = REGB0;
- } else {
- REGB0 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], NIT_NULL);
- REGB1 = REGB0;
- }
- }
- if (UNTAG_Bool(REGB1)) {
- goto label1;
- }
- /* syntax/typing.nit:1723 */
- fra.me.REG[0] = CALL_parser___parser_nodes___AReassignFormExpr___n_value(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[0] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___check_conform(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[4], fra.me.REG[0]);
- /* syntax/typing.nit:1725 */
- ATTR_syntax___typing___ASendReassignExpr____read_prop(fra.me.REG[2]) = fra.me.REG[5];
- /* syntax/typing.nit:1726 */
- fra.me.REG[0] = CALL_standard___collection___array___Collection___to_a(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[3] = fra.me.REG[0];
- /* syntax/typing.nit:1727 */
- fra.me.REG[0] = CALL_parser___parser_nodes___AReassignFormExpr___n_value(fra.me.REG[2])(fra.me.REG[2]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[0]);
- /* syntax/typing.nit:1729 */
- fra.me.REG[0] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[0] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- REGB1 = CALL_syntax___typing___AExpr___is_implicit_self(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[4] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = CALL_syntax___typing___AExpr___is_self(fra.me.REG[4])(fra.me.REG[4]);
- REGB2 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB2);
- if (!once_value_6) {
- fra.me.REG[6] = BOX_NativeString("");
- REGB2 = TAG_Int(0);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB2);
- once_value_6 = fra.me.REG[6];
- register_static_object(&once_value_6);
- } else fra.me.REG[6] = once_value_6;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
- fra.me.REG[6] = CALL_syntax___typing___ASendExpr___name(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[6] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
- if (!once_value_7) {
- fra.me.REG[6] = BOX_NativeString("=");
- REGB2 = TAG_Int(1);
- fra.me.REG[6] = NEW_String_standard___string___String___with_native(fra.me.REG[6], REGB2);
- once_value_7 = fra.me.REG[6];
- register_static_object(&once_value_7);
- } else fra.me.REG[6] = once_value_7;
- fra.me.REG[6] = fra.me.REG[6];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[6]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[4] = CALL_standard___symbol___String___to_symbol(fra.me.REG[4])(fra.me.REG[4]);
- CALL_syntax___typing___AAbsSendExpr___do_typing(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[1], fra.me.REG[0], REGB1, REGB0, fra.me.REG[4], fra.me.REG[3], NIT_NULL);
- /* syntax/typing.nit:1730 */
- REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 1730);
- }
- fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[5])(fra.me.REG[5]);
- REGB0 = CALL_metamodel___abstractmetamodel___MMGlobalProperty___is_init(fra.me.REG[3])(fra.me.REG[3]);
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1731 */
- fra.me.REG[3] = CALL_syntax___syntax_base___AbsSyntaxVisitor___local_property(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[3] = CALL_metamodel___abstractmetamodel___MMLocalProperty___global(fra.me.REG[3])(fra.me.REG[3]);
- REGB0 = CALL_metamodel___abstractmetamodel___MMGlobalProperty___is_init(fra.me.REG[3])(fra.me.REG[3]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1732 */
- REGB0 = TAG_Int(3);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_8) {
- fra.me.REG[4] = BOX_NativeString("Error: try to invoke constructor ");
- REGB0 = TAG_Int(33);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_8 = fra.me.REG[4];
- register_static_object(&once_value_8);
- } else fra.me.REG[4] = once_value_8;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[4] = 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[4]);
- if (!once_value_9) {
- fra.me.REG[4] = BOX_NativeString(" in a method.");
- REGB0 = TAG_Int(13);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_9 = fra.me.REG[4];
- register_static_object(&once_value_9);
- } else fra.me.REG[4] = once_value_9;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[3]);
- } else {
- /* syntax/typing.nit:1733 */
- fra.me.REG[3] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = CALL_syntax___typing___AExpr___is_self(fra.me.REG[3])(fra.me.REG[3]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1734 */
- REGB0 = TAG_Int(3);
- fra.me.REG[3] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_10) {
- fra.me.REG[4] = BOX_NativeString("Error: constructor ");
- REGB0 = TAG_Int(19);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_10 = fra.me.REG[4];
- register_static_object(&once_value_10);
- } else fra.me.REG[4] = once_value_10;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- 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_11) {
- fra.me.REG[5] = BOX_NativeString(" is not invoken on 'self'.");
- REGB0 = TAG_Int(26);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_11 = fra.me.REG[5];
- register_static_object(&once_value_11);
- } else fra.me.REG[5] = once_value_11;
- 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_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[3]);
- }
- }
- }
- /* syntax/typing.nit:1738 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[2]) = REGB0;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___ABinopExpr___compute_raw_arguments(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1743;
- fra.me.meth = LOCATE_syntax___typing___ABinopExpr___compute_raw_arguments;
- 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;
- /* syntax/typing.nit:1743 */
- REGB0 = TAG_Int(1);
- fra.me.REG[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- fra.me.REG[0] = CALL_parser___parser_nodes___ABinopExpr___n_expr2(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]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-val_t syntax___typing___AEqExpr___name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1746;
- fra.me.meth = LOCATE_syntax___typing___AEqExpr___name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1746 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString("==");
- REGB0 = TAG_Int(2);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- 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 label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void syntax___typing___AEqExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- 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_syntax___typing;
- fra.me.line = 1747;
- fra.me.meth = LOCATE_syntax___typing___AEqExpr___after_typing;
- 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;
- /* syntax/typing.nit:1747 */
- fra.me.REG[2] = fra.me.REG[0];
- fra.me.REG[3] = fra.me.REG[1];
- /* syntax/typing.nit:1749 */
- CALL_SUPER_syntax___typing___AEqExpr___after_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* syntax/typing.nit:1750 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = CALL_syntax___syntax_base___AExpr___is_typed(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(true);
- } else {
- fra.me.REG[1] = CALL_parser___parser_nodes___ABinopExpr___n_expr2(fra.me.REG[2])(fra.me.REG[2]);
- REGB1 = CALL_syntax___syntax_base___AExpr___is_typed(fra.me.REG[1])(fra.me.REG[1]);
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:1751 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[1] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[1], COLOR_metamodel___static_type___MMTypeNone, ID_metamodel___static_type___MMTypeNone)) /*cast MMTypeNone*/;
- if (UNTAG_Bool(REGB0)) {
- fra.me.REG[1] = CALL_parser___parser_nodes___ABinopExpr___n_expr2(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[1] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- } else {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(true);
- } else {
- /* syntax/typing.nit:1752 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ABinopExpr___n_expr2(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[1] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[1])(fra.me.REG[1]);
- REGB1 = TAG_Bool(VAL_ISA(fra.me.REG[1], COLOR_metamodel___static_type___MMTypeNone, ID_metamodel___static_type___MMTypeNone)) /*cast MMTypeNone*/;
- /* syntax/typing.nit:1751 */
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1752 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[1] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- } else {
- /* syntax/typing.nit:1751 */
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1753 */
- if (!once_value_2) {
- fra.me.REG[1] = BOX_NativeString("Warning: comparaison between null and a non nullable value.");
- REGB0 = TAG_Int(59);
- 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_syntax___syntax_base___AbsSyntaxVisitor___warning(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2], fra.me.REG[1]);
- }
- /* syntax/typing.nit:1756 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[1] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[1], COLOR_metamodel___static_type___MMTypeNone, ID_metamodel___static_type___MMTypeNone)) /*cast MMTypeNone*/;
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1757 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ABinopExpr___n_expr2(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[1] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[1], COLOR_metamodel___static_type___MMTypeNone, ID_metamodel___static_type___MMTypeNone)) /*cast MMTypeNone*/;
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1758 */
- if (!once_value_3) {
- fra.me.REG[1] = BOX_NativeString("Warning: comparaison between two null values.");
- REGB0 = TAG_Int(45);
- 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_syntax___syntax_base___AbsSyntaxVisitor___warning(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2], fra.me.REG[1]);
- } else {
- /* syntax/typing.nit:1760 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ABinopExpr___n_expr2(fra.me.REG[2])(fra.me.REG[2]);
- CALL_syntax___typing___AEqExpr___try_to_isa(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3], fra.me.REG[1]);
- }
- } else {
- /* syntax/typing.nit:1762 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ABinopExpr___n_expr2(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[1] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[1], COLOR_metamodel___static_type___MMTypeNone, ID_metamodel___static_type___MMTypeNone)) /*cast MMTypeNone*/;
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1763 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- CALL_syntax___typing___AEqExpr___try_to_isa(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3], fra.me.REG[1]);
- }
- }
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AEqExpr___try_to_isa(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 REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1767;
- fra.me.meth = LOCATE_syntax___typing___AEqExpr___try_to_isa;
- 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;
- fra.me.REG[2] = p2;
- /* syntax/typing.nit:1769 */
- fra.me.REG[3] = CALL_syntax___typing___AExpr___its_variable(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:1770 */
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- fra.me.REG[4] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[4], COLOR_metamodel___static_type___MMNullableType, ID_metamodel___static_type___MMNullableType)) /*cast MMNullableType*/;
- } else {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1771 */
- fra.me.REG[4] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[2] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[2] = CALL_metamodel___static_type___MMType___as_notnull(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[2] = CALL_syntax___flow___FlowContext___sub_with(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[0], fra.me.REG[3], fra.me.REG[2]);
- ATTR_syntax___typing___AExpr____if_false_flow_ctx(fra.me.REG[0]) = fra.me.REG[2];
- /* syntax/typing.nit:1772 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[1] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_none(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[1] = CALL_syntax___flow___FlowContext___sub_with(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0], fra.me.REG[3], fra.me.REG[1]);
- ATTR_syntax___typing___AExpr____if_true_flow_ctx(fra.me.REG[0]) = fra.me.REG[1];
- }
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___ANeExpr___name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1777;
- fra.me.meth = LOCATE_syntax___typing___ANeExpr___name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1777 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString("!=");
- REGB0 = TAG_Int(2);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- 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 label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void syntax___typing___ANeExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- 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_syntax___typing;
- fra.me.line = 1778;
- fra.me.meth = LOCATE_syntax___typing___ANeExpr___after_typing;
- 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;
- /* syntax/typing.nit:1778 */
- fra.me.REG[2] = fra.me.REG[0];
- fra.me.REG[3] = fra.me.REG[1];
- /* syntax/typing.nit:1780 */
- CALL_SUPER_syntax___typing___ANeExpr___after_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* syntax/typing.nit:1781 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = CALL_syntax___syntax_base___AExpr___is_typed(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(true);
- } else {
- fra.me.REG[1] = CALL_parser___parser_nodes___ABinopExpr___n_expr2(fra.me.REG[2])(fra.me.REG[2]);
- REGB1 = CALL_syntax___syntax_base___AExpr___is_typed(fra.me.REG[1])(fra.me.REG[1]);
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:1782 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[1] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[1], COLOR_metamodel___static_type___MMTypeNone, ID_metamodel___static_type___MMTypeNone)) /*cast MMTypeNone*/;
- if (UNTAG_Bool(REGB0)) {
- fra.me.REG[1] = CALL_parser___parser_nodes___ABinopExpr___n_expr2(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[1] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- } else {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(true);
- } else {
- /* syntax/typing.nit:1783 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ABinopExpr___n_expr2(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[1] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[1])(fra.me.REG[1]);
- REGB1 = TAG_Bool(VAL_ISA(fra.me.REG[1], COLOR_metamodel___static_type___MMTypeNone, ID_metamodel___static_type___MMTypeNone)) /*cast MMTypeNone*/;
- /* syntax/typing.nit:1782 */
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1783 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[1] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- } else {
- /* syntax/typing.nit:1782 */
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1784 */
- if (!once_value_2) {
- fra.me.REG[1] = BOX_NativeString("Warning: comparaison between null and a non nullable value.");
- REGB0 = TAG_Int(59);
- 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_syntax___syntax_base___AbsSyntaxVisitor___warning(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2], fra.me.REG[1]);
- }
- /* syntax/typing.nit:1787 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[1] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[1], COLOR_metamodel___static_type___MMTypeNone, ID_metamodel___static_type___MMTypeNone)) /*cast MMTypeNone*/;
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1788 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ABinopExpr___n_expr2(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[1] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[1], COLOR_metamodel___static_type___MMTypeNone, ID_metamodel___static_type___MMTypeNone)) /*cast MMTypeNone*/;
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1789 */
- if (!once_value_3) {
- fra.me.REG[1] = BOX_NativeString("Warning: comparaison between two null values.");
- REGB0 = TAG_Int(45);
- 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_syntax___syntax_base___AbsSyntaxVisitor___warning(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2], fra.me.REG[1]);
- } else {
- /* syntax/typing.nit:1791 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ABinopExpr___n_expr2(fra.me.REG[2])(fra.me.REG[2]);
- CALL_syntax___typing___ANeExpr___try_to_isa(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3], fra.me.REG[1]);
- }
- } else {
- /* syntax/typing.nit:1793 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ABinopExpr___n_expr2(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[1] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[1], COLOR_metamodel___static_type___MMTypeNone, ID_metamodel___static_type___MMTypeNone)) /*cast MMTypeNone*/;
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1794 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- CALL_syntax___typing___ANeExpr___try_to_isa(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3], fra.me.REG[1]);
- }
- }
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___ANeExpr___try_to_isa(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 REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1798;
- fra.me.meth = LOCATE_syntax___typing___ANeExpr___try_to_isa;
- 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;
- fra.me.REG[2] = p2;
- /* syntax/typing.nit:1800 */
- fra.me.REG[3] = CALL_syntax___typing___AExpr___its_variable(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:1801 */
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- fra.me.REG[4] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[4], COLOR_metamodel___static_type___MMNullableType, ID_metamodel___static_type___MMNullableType)) /*cast MMNullableType*/;
- } else {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1802 */
- fra.me.REG[4] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[2] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[2] = CALL_metamodel___static_type___MMType___as_notnull(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[2] = CALL_syntax___flow___FlowContext___sub_with(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[0], fra.me.REG[3], fra.me.REG[2]);
- ATTR_syntax___typing___AExpr____if_true_flow_ctx(fra.me.REG[0]) = fra.me.REG[2];
- /* syntax/typing.nit:1803 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[1] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_none(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[1] = CALL_syntax___flow___FlowContext___sub_with(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0], fra.me.REG[3], fra.me.REG[1]);
- ATTR_syntax___typing___AExpr____if_false_flow_ctx(fra.me.REG[0]) = fra.me.REG[1];
- }
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___ALtExpr___name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1808;
- fra.me.meth = LOCATE_syntax___typing___ALtExpr___name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1808 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString("<");
- REGB0 = TAG_Int(1);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- 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 label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___ALeExpr___name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1811;
- fra.me.meth = LOCATE_syntax___typing___ALeExpr___name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1811 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString("<=");
- REGB0 = TAG_Int(2);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- 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 label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___ALlExpr___name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1814;
- fra.me.meth = LOCATE_syntax___typing___ALlExpr___name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1814 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString("<<");
- REGB0 = TAG_Int(2);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- 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 label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___AGtExpr___name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1817;
- fra.me.meth = LOCATE_syntax___typing___AGtExpr___name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1817 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString(">");
- REGB0 = TAG_Int(1);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- 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 label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___AGeExpr___name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1820;
- fra.me.meth = LOCATE_syntax___typing___AGeExpr___name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1820 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString(">=");
- REGB0 = TAG_Int(2);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- 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 label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___AGgExpr___name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1823;
- fra.me.meth = LOCATE_syntax___typing___AGgExpr___name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1823 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString(">>");
- REGB0 = TAG_Int(2);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- 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 label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___APlusExpr___name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1826;
- fra.me.meth = LOCATE_syntax___typing___APlusExpr___name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1826 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString("+");
- REGB0 = TAG_Int(1);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- 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 label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___AMinusExpr___name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1829;
- fra.me.meth = LOCATE_syntax___typing___AMinusExpr___name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1829 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString("-");
- REGB0 = TAG_Int(1);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- 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 label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___AStarshipExpr___name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1832;
- fra.me.meth = LOCATE_syntax___typing___AStarshipExpr___name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1832 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString("<=>");
- REGB0 = TAG_Int(3);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- 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 label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___AStarExpr___name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1835;
- fra.me.meth = LOCATE_syntax___typing___AStarExpr___name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1835 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString("*");
- REGB0 = TAG_Int(1);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- 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 label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___ASlashExpr___name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1838;
- fra.me.meth = LOCATE_syntax___typing___ASlashExpr___name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1838 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString("/");
- REGB0 = TAG_Int(1);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- 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 label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___APercentExpr___name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1841;
- fra.me.meth = LOCATE_syntax___typing___APercentExpr___name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1841 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString("%");
- REGB0 = TAG_Int(1);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- 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 label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___AUminusExpr___name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1845;
- fra.me.meth = LOCATE_syntax___typing___AUminusExpr___name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1845 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString("unary -");
- REGB0 = TAG_Int(7);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- 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 label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___AUminusExpr___compute_raw_arguments(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1846;
- fra.me.meth = LOCATE_syntax___typing___AUminusExpr___compute_raw_arguments;
- 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;
- /* syntax/typing.nit:1846 */
- fra.me.REG[0] = NIT_NULL;
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void syntax___typing___ACallFormExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[8];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t 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___typing;
- fra.me.line = 1850;
- fra.me.meth = LOCATE_syntax___typing___ACallFormExpr___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 9;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[6] = NIT_NULL;
- fra.me.REG[7] = NIT_NULL;
- fra.me.REG[8] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:1850 */
- fra.me.REG[2] = fra.me.REG[0];
- fra.me.REG[3] = fra.me.REG[1];
- /* syntax/typing.nit:1852 */
- fra.me.REG[4] = CALL_parser___parser_nodes___ASendExpr___n_expr(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = CALL_syntax___typing___AExpr___is_implicit_self(fra.me.REG[4])(fra.me.REG[4]);
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1853 */
- fra.me.REG[4] = CALL_parser___parser_nodes___ACallFormExpr___n_id(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[4] = CALL_syntax___syntax_base___Token___to_symbol(fra.me.REG[4])(fra.me.REG[4]);
- /* syntax/typing.nit:1854 */
- fra.me.REG[5] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[5] = CALL_syntax___scope___ScopeContext_____bra(fra.me.REG[5])(fra.me.REG[5], fra.me.REG[4]);
- /* syntax/typing.nit:1855 */
- REGB0 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[5]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[5])(fra.me.REG[5], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1857 */
- REGB0 = TAG_Bool((fra.me.REG[5]!=NIT_NULL) && VAL_ISA(fra.me.REG[5], COLOR_syntax___syntax_base___ClosureVariable, ID_syntax___syntax_base___ClosureVariable)) /*cast ClosureVariable*/;
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1858 */
- fra.me.REG[6] = CALL_parser___parser_nodes___ACallFormExpr___n_id(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[7] = CALL_parser___parser_nodes___ACallFormExpr___n_args(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[8] = CALL_parser___parser_nodes___ASendExpr___n_closure_defs(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[8] = NEW_AClosureCallExpr_parser___parser_prod___AClosureCallExpr___init_aclosurecallexpr(fra.me.REG[6], fra.me.REG[7], fra.me.REG[8]);
- /* syntax/typing.nit:1859 */
- ATTR_syntax___typing___AClosureCallExpr____variable(fra.me.REG[8]) = fra.me.REG[5];
- } else {
- /* syntax/typing.nit:1861 */
- fra.me.REG[7] = CALL_parser___parser_nodes___ACallFormExpr___n_args(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[7] = CALL_parser___parser_nodes___AExprs___n_exprs(fra.me.REG[7])(fra.me.REG[7]);
- REGB0 = CALL_standard___collection___abstract_collection___Collection___is_empty(fra.me.REG[7])(fra.me.REG[7]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(true);
- } else {
- fra.me.REG[7] = CALL_parser___parser_nodes___ACallFormExpr___n_args(fra.me.REG[2])(fra.me.REG[2]);
- REGB1 = TAG_Bool(VAL_ISA(fra.me.REG[7], COLOR_parser___parser_nodes___AParExprs, ID_parser___parser_nodes___AParExprs)) /*cast AParExprs*/;
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1862 */
- REGB0 = TAG_Int(3);
- fra.me.REG[7] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_1) {
- fra.me.REG[6] = BOX_NativeString("Error: ");
- REGB0 = TAG_Int(7);
- 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[7])(fra.me.REG[7], fra.me.REG[6]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[4]);
- if (!once_value_2) {
- fra.me.REG[4] = BOX_NativeString(" is variable, not a function.");
- REGB0 = TAG_Int(29);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_2 = fra.me.REG[4];
- register_static_object(&once_value_2);
- } else fra.me.REG[4] = once_value_2;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[4]);
- fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[7])(fra.me.REG[7]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2], fra.me.REG[7]);
- /* syntax/typing.nit:1863 */
- goto label3;
- }
- /* syntax/typing.nit:1865 */
- fra.me.REG[7] = CALL_syntax___typing___ACallFormExpr___variable_create(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[5]);
- fra.me.REG[8] = fra.me.REG[7];
- /* syntax/typing.nit:1866 */
- ATTR_syntax___typing___AVarFormExpr____variable(fra.me.REG[8]) = fra.me.REG[5];
- }
- /* syntax/typing.nit:1868 */
- CALL_parser___parser_prod___ANode___replace_with(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[8]);
- /* syntax/typing.nit:1869 */
- CALL_syntax___typing___ANode___after_typing(fra.me.REG[8])(fra.me.REG[8], fra.me.REG[3]);
- /* syntax/typing.nit:1870 */
- goto label3;
- }
- }
- /* syntax/typing.nit:1874 */
- CALL_SUPER_syntax___typing___ACallFormExpr___after_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___ACallFormExpr___closure_defs(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1877;
- fra.me.meth = LOCATE_syntax___typing___ACallFormExpr___closure_defs;
- 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;
- /* syntax/typing.nit:1879 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ASendExpr___n_closure_defs(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_standard___collection___abstract_collection___Collection___is_empty(fra.me.REG[1])(fra.me.REG[1]);
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1880 */
- fra.me.REG[1] = NIT_NULL;
- goto label1;
- } else {
- /* syntax/typing.nit:1882 */
- fra.me.REG[0] = CALL_parser___parser_nodes___ASendExpr___n_closure_defs(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_standard___collection___array___Collection___to_a(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];
-}
-val_t syntax___typing___ACallFormExpr___variable_create(val_t p0, val_t p1){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1886;
- fra.me.meth = LOCATE_syntax___typing___ACallFormExpr___variable_create;
- fra.me.has_broke = 0;
- fra.me.REG_size = 0;
- fra.me.nitni_local_ref_head = NULL;
- /* syntax/typing.nit:1886 */
- nit_abort("Deferred method called", NULL, LOCATE_syntax___typing, 1886);
- stack_frame_head = fra.me.prev;
- return NIT_NULL;
-}
-val_t syntax___typing___ACallExpr___variable_create(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1891;
- fra.me.meth = LOCATE_syntax___typing___ACallExpr___variable_create;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:1893 */
- fra.me.REG[0] = CALL_parser___parser_nodes___ACallFormExpr___n_id(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = NEW_AVarExpr_parser___parser_prod___AVarExpr___init_avarexpr(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___ACallExpr___name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1896;
- fra.me.meth = LOCATE_syntax___typing___ACallExpr___name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1896 */
- fra.me.REG[0] = CALL_parser___parser_nodes___ACallFormExpr___n_id(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_syntax___syntax_base___Token___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___ACallExpr___compute_raw_arguments(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1897;
- fra.me.meth = LOCATE_syntax___typing___ACallExpr___compute_raw_arguments;
- 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;
- /* syntax/typing.nit:1897 */
- fra.me.REG[0] = CALL_parser___parser_nodes___ACallFormExpr___n_args(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_syntax___syntax_base___AExprs___to_a(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___ACallAssignExpr___variable_create(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1901;
- fra.me.meth = LOCATE_syntax___typing___ACallAssignExpr___variable_create;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:1903 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ACallFormExpr___n_id(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_parser___parser_nodes___AAssignFormExpr___n_assign(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_parser___parser_nodes___AAssignFormExpr___n_value(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = NEW_AVarAssignExpr_parser___parser_prod___AVarAssignExpr___init_avarassignexpr(fra.me.REG[1], fra.me.REG[2], fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___ACallAssignExpr___name(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} 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___typing;
- fra.me.line = 1906;
- fra.me.meth = LOCATE_syntax___typing___ACallAssignExpr___name;
- 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;
- /* syntax/typing.nit:1906 */
- fra.me.REG[0] = CALL_parser___parser_nodes___ACallFormExpr___n_id(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_parser___parser_nodes___Token___text(fra.me.REG[0])(fra.me.REG[0]);
- if (!once_value_1) {
- 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_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];
- fra.me.REG[1] = CALL_standard___string___String_____plus(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- fra.me.REG[1] = CALL_standard___symbol___String___to_symbol(fra.me.REG[1])(fra.me.REG[1]);
- goto label2;
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-val_t syntax___typing___ACallAssignExpr___compute_raw_arguments(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1907;
- fra.me.meth = LOCATE_syntax___typing___ACallAssignExpr___compute_raw_arguments;
- 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;
- /* syntax/typing.nit:1908 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ACallFormExpr___n_args(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[1] = CALL_syntax___syntax_base___AExprs___to_a(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:1909 */
- fra.me.REG[0] = CALL_parser___parser_nodes___AAssignFormExpr___n_value(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]);
- /* syntax/typing.nit:1910 */
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-val_t syntax___typing___ACallReassignExpr___variable_create(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1915;
- fra.me.meth = LOCATE_syntax___typing___ACallReassignExpr___variable_create;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:1917 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ACallFormExpr___n_id(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_parser___parser_nodes___AReassignFormExpr___n_assign_op(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_parser___parser_nodes___AReassignFormExpr___n_value(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = NEW_AVarReassignExpr_parser___parser_prod___AVarReassignExpr___init_avarreassignexpr(fra.me.REG[1], fra.me.REG[2], fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___ACallReassignExpr___name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1920;
- fra.me.meth = LOCATE_syntax___typing___ACallReassignExpr___name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1920 */
- fra.me.REG[0] = CALL_parser___parser_nodes___ACallFormExpr___n_id(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_syntax___syntax_base___Token___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___ACallReassignExpr___compute_raw_arguments(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1921;
- fra.me.meth = LOCATE_syntax___typing___ACallReassignExpr___compute_raw_arguments;
- 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;
- /* syntax/typing.nit:1921 */
- fra.me.REG[0] = CALL_parser___parser_nodes___ACallFormExpr___n_args(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_syntax___syntax_base___AExprs___to_a(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___ABraExpr___name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1925;
- fra.me.meth = LOCATE_syntax___typing___ABraExpr___name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1925 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString("[]");
- REGB0 = TAG_Int(2);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- 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 label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___ABraExpr___compute_raw_arguments(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1926;
- fra.me.meth = LOCATE_syntax___typing___ABraExpr___compute_raw_arguments;
- 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;
- /* syntax/typing.nit:1926 */
- fra.me.REG[0] = CALL_parser___parser_nodes___ABraFormExpr___n_args(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_syntax___syntax_base___AExprs___to_a(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___ABraExpr___closure_defs(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1927;
- fra.me.meth = LOCATE_syntax___typing___ABraExpr___closure_defs;
- 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;
- /* syntax/typing.nit:1929 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ASendExpr___n_closure_defs(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_standard___collection___abstract_collection___Collection___is_empty(fra.me.REG[1])(fra.me.REG[1]);
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:1930 */
- fra.me.REG[1] = NIT_NULL;
- goto label1;
- } else {
- /* syntax/typing.nit:1932 */
- fra.me.REG[0] = CALL_parser___parser_nodes___ASendExpr___n_closure_defs(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_standard___collection___array___Collection___to_a(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];
-}
-val_t syntax___typing___ABraAssignExpr___name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1938;
- fra.me.meth = LOCATE_syntax___typing___ABraAssignExpr___name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1938 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString("[]=");
- REGB0 = TAG_Int(3);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- 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 label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___ABraAssignExpr___compute_raw_arguments(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1939;
- fra.me.meth = LOCATE_syntax___typing___ABraAssignExpr___compute_raw_arguments;
- 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;
- /* syntax/typing.nit:1940 */
- fra.me.REG[1] = CALL_parser___parser_nodes___ABraFormExpr___n_args(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[1] = CALL_syntax___syntax_base___AExprs___to_a(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:1941 */
- fra.me.REG[0] = CALL_parser___parser_nodes___AAssignFormExpr___n_value(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]);
- /* syntax/typing.nit:1942 */
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-val_t syntax___typing___ABraReassignExpr___name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1947;
- fra.me.meth = LOCATE_syntax___typing___ABraReassignExpr___name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1947 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString("[]");
- REGB0 = TAG_Int(2);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- 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 label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___ABraReassignExpr___compute_raw_arguments(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1948;
- fra.me.meth = LOCATE_syntax___typing___ABraReassignExpr___compute_raw_arguments;
- 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;
- /* syntax/typing.nit:1948 */
- fra.me.REG[0] = CALL_parser___parser_nodes___ABraFormExpr___n_args(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_syntax___syntax_base___AExprs___to_a(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___AInitExpr___name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1952;
- fra.me.meth = LOCATE_syntax___typing___AInitExpr___name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:1952 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString("init");
- REGB0 = TAG_Int(4);
- fra.me.REG[0] = NEW_String_standard___string___String___with_native(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___symbol___String___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- 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 label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___AInitExpr___compute_raw_arguments(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1953;
- fra.me.meth = LOCATE_syntax___typing___AInitExpr___compute_raw_arguments;
- 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;
- /* syntax/typing.nit:1953 */
- fra.me.REG[0] = CALL_parser___parser_nodes___AInitExpr___n_args(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_syntax___syntax_base___AExprs___to_a(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___AClosureCallExpr___variable(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1958;
- fra.me.meth = LOCATE_syntax___typing___AClosureCallExpr___variable;
- 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;
- /* syntax/typing.nit:1958 */
- fra.me.REG[1] = fra.me.REG[0];
- fra.me.REG[1] = ATTR_syntax___typing___AClosureCallExpr____variable(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[1]!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 1958);
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-val_t syntax___typing___AClosureCallExpr___compute_raw_arguments(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1959;
- fra.me.meth = LOCATE_syntax___typing___AClosureCallExpr___compute_raw_arguments;
- 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;
- /* syntax/typing.nit:1959 */
- fra.me.REG[0] = CALL_parser___parser_nodes___AClosureCallExpr___n_args(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_syntax___syntax_base___AExprs___to_a(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void syntax___typing___AClosureCallExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1961;
- fra.me.meth = LOCATE_syntax___typing___AClosureCallExpr___after_typing;
- 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;
- /* syntax/typing.nit:1963 */
- fra.me.REG[2] = CALL_syntax___syntax_base___AClosureCallExpr___variable(fra.me.REG[0])(fra.me.REG[0]);
- /* syntax/typing.nit:1964 */
- fra.me.REG[3] = CALL_syntax___syntax_base___ClosureVariable___closure(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = CALL_metamodel___static_type___MMClosure___is_break(fra.me.REG[3])(fra.me.REG[3]);
- if (UNTAG_Bool(REGB0)) {
- CALL_syntax___typing___TypingVisitor___mark_unreash(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- }
- /* syntax/typing.nit:1965 */
- fra.me.REG[2] = CALL_syntax___syntax_base___ClosureVariable___closure(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[2] = CALL_metamodel___static_type___MMClosure___signature(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:1966 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AClosureCallExpr___n_id(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_syntax___syntax_base___Token___to_symbol(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[4] = CALL_syntax___typing___AAbsAbsSendExpr___compute_raw_arguments(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___typing___AAbsAbsSendExpr___process_signature(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2], fra.me.REG[3], fra.me.REG[4]);
- /* syntax/typing.nit:1967 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AClosureCallExpr___n_closure_defs(fra.me.REG[0])(fra.me.REG[0]);
- REGB1 = CALL_standard___collection___abstract_collection___Collection___is_empty(fra.me.REG[4])(fra.me.REG[4]);
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:1968 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AClosureCallExpr___n_id(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_syntax___syntax_base___Token___to_symbol(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[3] = CALL_parser___parser_nodes___AClosureCallExpr___n_closure_defs(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_standard___collection___array___Collection___to_a(fra.me.REG[3])(fra.me.REG[3]);
- CALL_syntax___typing___AAbsAbsSendExpr___process_closures(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2], fra.me.REG[4], fra.me.REG[3]);
- }
- /* syntax/typing.nit:1970 */
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:1971 */
- ATTR_syntax___typing___AAbsAbsSendExpr____prop_signature(fra.me.REG[0]) = fra.me.REG[2];
- /* syntax/typing.nit:1972 */
- fra.me.REG[2] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[2])(fra.me.REG[2]);
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[2];
- /* syntax/typing.nit:1973 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___AClosureId___to_symbol(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1978;
- fra.me.meth = LOCATE_syntax___typing___AClosureId___to_symbol;
- fra.me.has_broke = 0;
- fra.me.REG_size = 0;
- fra.me.nitni_local_ref_head = NULL;
- /* syntax/typing.nit:1978 */
- nit_abort("Deferred method called", NULL, LOCATE_syntax___typing, 1978);
- stack_frame_head = fra.me.prev;
- return NIT_NULL;
-}
-val_t syntax___typing___ASimpleClosureId___to_symbol(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1981;
- fra.me.meth = LOCATE_syntax___typing___ASimpleClosureId___to_symbol;
- 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;
- /* syntax/typing.nit:1981 */
- fra.me.REG[0] = CALL_parser___parser_nodes___ASimpleClosureId___n_id(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_syntax___syntax_base___Token___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___ABreakClosureId___to_symbol(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1984;
- fra.me.meth = LOCATE_syntax___typing___ABreakClosureId___to_symbol;
- 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;
- /* syntax/typing.nit:1984 */
- fra.me.REG[0] = CALL_parser___parser_nodes___ABreakClosureId___n_kwbreak(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_syntax___syntax_base___Token___to_symbol(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-val_t syntax___typing___AClosureDef___closure(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1989;
- fra.me.meth = LOCATE_syntax___typing___AClosureDef___closure;
- 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;
- /* syntax/typing.nit:1989 */
- fra.me.REG[1] = fra.me.REG[0];
- fra.me.REG[1] = ATTR_syntax___typing___AClosureDef____closure(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[1]!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_syntax___typing, 1989);
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-val_t syntax___typing___AClosureDef___escapable(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1991;
- fra.me.meth = LOCATE_syntax___typing___AClosureDef___escapable;
- 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;
- /* syntax/typing.nit:1991 */
- fra.me.REG[0] = ATTR_syntax___typing___AClosureDef____escapable(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void syntax___typing___AClosureDef___accept_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 1995;
- fra.me.meth = LOCATE_syntax___typing___AClosureDef___accept_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:1995 */
- fra.me.REG[2] = fra.me.REG[0];
- /* syntax/typing.nit:1998 */
- REGB0 = TAG_Bool(ATTR_syntax___typing___AClosureDef____accept_typing2(fra.me.REG[2])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_accept_typing2", LOCATE_syntax___typing, 1998);
- }
- REGB0 = ATTR_syntax___typing___AClosureDef____accept_typing2(fra.me.REG[2]);
- if (UNTAG_Bool(REGB0)) {
- CALL_SUPER_syntax___typing___AClosureDef___accept_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- }
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AClosureDef___accept_typing2(val_t p0, val_t p1, val_t p2){
- struct {struct stack_frame_t me; val_t MORE_REG[7];} 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_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_syntax___typing;
- fra.me.line = 2001;
- fra.me.meth = LOCATE_syntax___typing___AClosureDef___accept_typing2;
- fra.me.has_broke = 0;
- fra.me.REG_size = 8;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[6] = NIT_NULL;
- fra.me.REG[7] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- fra.me.REG[2] = p2;
- /* syntax/typing.nit:2003 */
- ATTR_syntax___typing___AClosureDef____escapable(fra.me.REG[0]) = fra.me.REG[2];
- /* syntax/typing.nit:2005 */
- fra.me.REG[3] = CALL_syntax___scope___EscapableClosure___closure(fra.me.REG[2])(fra.me.REG[2]);
- fra.me.REG[3] = CALL_metamodel___static_type___MMClosure___signature(fra.me.REG[3])(fra.me.REG[3]);
- /* syntax/typing.nit:2006 */
- REGB0 = CALL_metamodel___static_type___MMSignature___arity(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[4] = CALL_parser___parser_nodes___AClosureDef___n_ids(fra.me.REG[0])(fra.me.REG[0]);
- REGB1 = CALL_standard___collection___abstract_collection___Collection___length(fra.me.REG[4])(fra.me.REG[4]);
- REGB2 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB1));
- if (UNTAG_Bool(REGB2)) {
- } else {
- /* ../lib/standard/kernel.nit:227 */
- REGB1 = TAG_Bool((REGB0)==(REGB1));
- /* syntax/typing.nit:2006 */
- REGB2 = REGB1;
- }
- REGB2 = TAG_Bool(!UNTAG_Bool(REGB2));
- if (UNTAG_Bool(REGB2)) {
- /* syntax/typing.nit:2007 */
- REGB2 = TAG_Int(5);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB2);
- if (!once_value_1) {
- fra.me.REG[5] = BOX_NativeString("Error: ");
- REGB2 = TAG_Int(7);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB2);
- 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]);
- REGB2 = CALL_metamodel___static_type___MMSignature___arity(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(REGB2)(REGB2);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- if (!once_value_2) {
- fra.me.REG[5] = BOX_NativeString(" automatic variable names expected, ");
- REGB2 = TAG_Int(36);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB2);
- once_value_2 = fra.me.REG[5];
- register_static_object(&once_value_2);
- } else fra.me.REG[5] = once_value_2;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- fra.me.REG[5] = CALL_parser___parser_nodes___AClosureDef___n_ids(fra.me.REG[0])(fra.me.REG[0]);
- REGB2 = CALL_standard___collection___abstract_collection___Collection___length(fra.me.REG[5])(fra.me.REG[5]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(REGB2)(REGB2);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- if (!once_value_3) {
- fra.me.REG[5] = BOX_NativeString(" found.");
- REGB2 = TAG_Int(7);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB2);
- once_value_3 = fra.me.REG[5];
- register_static_object(&once_value_3);
- } else fra.me.REG[5] = once_value_3;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[4]);
- /* syntax/typing.nit:2008 */
- goto label4;
- }
- /* syntax/typing.nit:2011 */
- fra.me.REG[4] = CALL_syntax___scope___EscapableClosure___closure(fra.me.REG[2])(fra.me.REG[2]);
- ATTR_syntax___typing___AClosureDef____closure(fra.me.REG[0]) = fra.me.REG[4];
- /* syntax/typing.nit:2013 */
- fra.me.REG[4] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[1])(fra.me.REG[1]);
- CALL_syntax___scope___ScopeContext___push(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[0]);
- /* syntax/typing.nit:2014 */
- fra.me.REG[4] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:2015 */
- fra.me.REG[5] = CALL_syntax___typing___TypingVisitor___base_flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- /* syntax/typing.nit:2016 */
- fra.me.REG[6] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- CALL_syntax___typing___TypingVisitor___base_flow_ctx__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[6]);
- /* syntax/typing.nit:2017 */
- fra.me.REG[6] = NEW_Array_standard___collection___array___Array___init();
- CALL_syntax___syntax_base___AClosureDef___variables__eq(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[6]);
- /* syntax/typing.nit:2018 */
- REGB2 = TAG_Int(0);
- fra.me.REG[6] = CALL_parser___parser_nodes___AClosureDef___n_ids(fra.me.REG[0])(fra.me.REG[0]);
- REGB1 = CALL_standard___collection___abstract_collection___Collection___length(fra.me.REG[6])(fra.me.REG[6]);
- /* ../lib/standard/kernel.nit:352 */
- while(1) {
- REGB0 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:232 */
- REGB0 = TAG_Bool(UNTAG_Int(REGB2)<UNTAG_Int(REGB1));
- /* ../lib/standard/kernel.nit:352 */
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:2018 */
- REGB0 = REGB2;
- /* syntax/typing.nit:2019 */
- fra.me.REG[6] = CALL_parser___parser_nodes___AClosureDef___n_ids(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[6] = CALL_standard___collection___abstract_collection___SequenceRead_____bra(fra.me.REG[6])(fra.me.REG[6], REGB0);
- REGB3 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 2019);
- }
- fra.me.REG[6] = CALL_syntax___syntax_base___Token___to_symbol(fra.me.REG[6])(fra.me.REG[6]);
- fra.me.REG[7] = CALL_parser___parser_nodes___AClosureDef___n_ids(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[7] = CALL_standard___collection___abstract_collection___SequenceRead_____bra(fra.me.REG[7])(fra.me.REG[7], REGB0);
- fra.me.REG[7] = NEW_AutoVariable_syntax___syntax_base___AutoVariable___init(fra.me.REG[6], fra.me.REG[7]);
- /* syntax/typing.nit:2020 */
- fra.me.REG[6] = CALL_syntax___syntax_base___AClosureDef___variables(fra.me.REG[0])(fra.me.REG[0]);
- REGB3 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- nit_abort("Reciever is null", NULL, LOCATE_syntax___typing, 2020);
- }
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
- /* syntax/typing.nit:2021 */
- fra.me.REG[6] = CALL_metamodel___static_type___MMSignature_____bra(fra.me.REG[3])(fra.me.REG[3], REGB0);
- CALL_syntax___syntax_base___Variable___stype__eq(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[6]);
- /* syntax/typing.nit:2022 */
- fra.me.REG[6] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[1])(fra.me.REG[1]);
- CALL_syntax___scope___ScopeContext___add_variable(fra.me.REG[6])(fra.me.REG[6], fra.me.REG[7]);
- /* ../lib/standard/kernel.nit:354 */
- REGB0 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:235 */
- REGB0 = TAG_Int(UNTAG_Int(REGB2)+UNTAG_Int(REGB0));
- /* ../lib/standard/kernel.nit:354 */
- REGB2 = REGB0;
- } else {
- /* ../lib/standard/kernel.nit:352 */
- goto label5;
- }
- }
- label5: while(0);
- /* syntax/typing.nit:2025 */
- REGB2 = TAG_Bool(true);
- ATTR_syntax___typing___AClosureDef____accept_typing2(fra.me.REG[0]) = REGB2;
- /* syntax/typing.nit:2026 */
- CALL_syntax___typing___ANode___accept_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* syntax/typing.nit:2028 */
- fra.me.REG[3] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- REGB2 = CALL_syntax___flow___FlowContext___unreash(fra.me.REG[3])(fra.me.REG[3]);
- REGB1 = TAG_Bool(false);
- REGB0 = TAG_Bool(IS_EQUAL_OO(REGB2,REGB1));
- if (UNTAG_Bool(REGB0)) {
- } else {
- /* ../lib/standard/kernel.nit:195 */
- REGB1 = TAG_Bool((REGB2)==(REGB1));
- /* syntax/typing.nit:2028 */
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:2029 */
- fra.me.REG[3] = CALL_syntax___syntax_base___AClosureDef___closure(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_metamodel___static_type___MMClosure___signature(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[3] = CALL_metamodel___static_type___MMSignature___return_type(fra.me.REG[3])(fra.me.REG[3]);
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:2030 */
- if (!once_value_6) {
- fra.me.REG[3] = BOX_NativeString("Control error: Reached end of block (a 'continue' with a value was expected).");
- REGB0 = TAG_Int(77);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_6 = fra.me.REG[3];
- register_static_object(&once_value_6);
- } else fra.me.REG[3] = once_value_6;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[3]);
- } else {
- /* syntax/typing.nit:2031 */
- fra.me.REG[3] = CALL_syntax___syntax_base___AClosureDef___closure(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_metamodel___static_type___MMClosure___is_break(fra.me.REG[3])(fra.me.REG[3]);
- if (UNTAG_Bool(REGB0)) {
- fra.me.REG[2] = CALL_syntax___scope___EscapableBlock___break_list(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(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- } else {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:2032 */
- if (!once_value_7) {
- fra.me.REG[2] = BOX_NativeString("Control error: Reached end of break block (a 'break' with a value was expected).");
- REGB0 = TAG_Int(80);
- 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_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[2]);
- }
- }
- }
- /* syntax/typing.nit:2035 */
- CALL_syntax___typing___TypingVisitor___flow_ctx__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[4]);
- /* syntax/typing.nit:2036 */
- CALL_syntax___typing___TypingVisitor___base_flow_ctx__eq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[5]);
- /* syntax/typing.nit:2037 */
- fra.me.REG[1] = CALL_syntax___typing___TypingVisitor___scope_ctx(fra.me.REG[1])(fra.me.REG[1]);
- CALL_syntax___scope___ScopeContext___pop(fra.me.REG[1])(fra.me.REG[1]);
- label4: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___ATypeCheckExpr___check_expr_cast(val_t p0, val_t p1, val_t p2, val_t p3){
- 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_2; /* Once value */
- static val_t once_value_3; /* Once value */
- static val_t once_value_4; /* Once value */
- static val_t once_value_5; /* Once value */
- static val_t once_value_6; /* Once value */
- static val_t once_value_7; /* Once value */
- static val_t once_value_8; /* Once value */
- static val_t once_value_9; /* Once value */
- static val_t once_value_10; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 2043;
- fra.me.meth = LOCATE_syntax___typing___ATypeCheckExpr___check_expr_cast;
- fra.me.has_broke = 0;
- fra.me.REG_size = 6;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- fra.me.REG[2] = p2;
- fra.me.REG[3] = p3;
- /* syntax/typing.nit:2045 */
- REGB0 = CALL_syntax___syntax_base___AbsSyntaxVisitor___check_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:2046 */
- REGB0 = CALL_syntax___syntax_base___AType___is_typed(fra.me.REG[3])(fra.me.REG[3]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:2047 */
- fra.me.REG[2] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:2048 */
- fra.me.REG[3] = CALL_syntax___syntax_base___AType___stype(fra.me.REG[3])(fra.me.REG[3]);
- /* syntax/typing.nit:2049 */
- 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/typing.nit:2050 */
- REGB0 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_2) {
- fra.me.REG[5] = BOX_NativeString("Warning: Expression is already a ");
- REGB0 = TAG_Int(33);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_2 = fra.me.REG[5];
- register_static_object(&once_value_2);
- } else fra.me.REG[5] = once_value_2;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- if (!once_value_3) {
- fra.me.REG[5] = BOX_NativeString(".");
- REGB0 = TAG_Int(1);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_3 = fra.me.REG[5];
- register_static_object(&once_value_3);
- } else fra.me.REG[5] = once_value_3;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___warning(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[4]);
- } else {
- /* syntax/typing.nit:2051 */
- REGB0 = CALL_metamodel___static_type___MMType_____l(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:2052 */
- REGB0 = TAG_Int(5);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_4) {
- fra.me.REG[5] = BOX_NativeString("Warning: Expression is already a ");
- REGB0 = TAG_Int(33);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_4 = fra.me.REG[5];
- register_static_object(&once_value_4);
- } else fra.me.REG[5] = once_value_4;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- if (!once_value_5) {
- fra.me.REG[5] = BOX_NativeString(" since it is a ");
- REGB0 = TAG_Int(15);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_5 = fra.me.REG[5];
- register_static_object(&once_value_5);
- } else fra.me.REG[5] = once_value_5;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- if (!once_value_6) {
- fra.me.REG[5] = BOX_NativeString(".");
- REGB0 = TAG_Int(1);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_6 = fra.me.REG[5];
- register_static_object(&once_value_6);
- } else fra.me.REG[5] = once_value_6;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___warning(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[4]);
- } else {
- /* syntax/typing.nit:2053 */
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[2], COLOR_metamodel___static_type___MMTypeNone, ID_metamodel___static_type___MMTypeNone)) /*cast MMTypeNone*/;
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:2055 */
- REGB0 = TAG_Int(3);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_7) {
- fra.me.REG[5] = BOX_NativeString("Warning: Expression is null therefore cannot be a ");
- REGB0 = TAG_Int(50);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_7 = fra.me.REG[5];
- register_static_object(&once_value_7);
- } else fra.me.REG[5] = once_value_7;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- if (!once_value_8) {
- fra.me.REG[5] = BOX_NativeString(".");
- REGB0 = TAG_Int(1);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_8 = fra.me.REG[5];
- register_static_object(&once_value_8);
- } else fra.me.REG[5] = once_value_8;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___warning(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[4]);
- } else {
- /* syntax/typing.nit:2056 */
- REGB0 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[2])(fra.me.REG[2]);
- if (UNTAG_Bool(REGB0)) {
- fra.me.REG[2] = CALL_metamodel___static_type___MMType___as_notnull(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[2],fra.me.REG[3]));
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[3]);
- REGB0 = REGB1;
- }
- } else {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:2057 */
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[3], COLOR_metamodel___type_formal___MMTypeFormal, ID_metamodel___type_formal___MMTypeFormal)) /*cast MMTypeFormal*/;
- if (UNTAG_Bool(REGB0)) {
- fra.me.REG[3] = CALL_metamodel___type_formal___MMTypeFormal___bound(fra.me.REG[3])(fra.me.REG[3]);
- REGB0 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[3])(fra.me.REG[3]);
- } else {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- } else {
- /* syntax/typing.nit:2063 */
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[0], COLOR_parser___parser_nodes___AIsaExpr, ID_parser___parser_nodes___AIsaExpr)) /*cast AIsaExpr*/;
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:2064 */
- if (!once_value_9) {
- fra.me.REG[3] = BOX_NativeString("Warning: Prefer '!= null'.");
- REGB0 = TAG_Int(26);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_9 = fra.me.REG[3];
- register_static_object(&once_value_9);
- } else fra.me.REG[3] = once_value_9;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_syntax___syntax_base___AbsSyntaxVisitor___warning(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[3]);
- } else {
- /* syntax/typing.nit:2066 */
- if (!once_value_10) {
- fra.me.REG[3] = BOX_NativeString("Warning: Prefer '.as(not null)'.");
- REGB0 = TAG_Int(32);
- fra.me.REG[3] = NEW_String_standard___string___String___with_native(fra.me.REG[3], REGB0);
- once_value_10 = fra.me.REG[3];
- register_static_object(&once_value_10);
- } else fra.me.REG[3] = once_value_10;
- fra.me.REG[3] = fra.me.REG[3];
- CALL_syntax___syntax_base___AbsSyntaxVisitor___warning(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[3]);
- }
- }
- }
- }
- }
- }
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AIsaExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 2074;
- fra.me.meth = LOCATE_syntax___typing___AIsaExpr___after_typing;
- 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;
- /* syntax/typing.nit:2076 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AIsaExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_parser___parser_nodes___AIsaExpr___n_type(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___ATypeCheckExpr___check_expr_cast(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2], fra.me.REG[3]);
- /* syntax/typing.nit:2077 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AIsaExpr___n_type(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___syntax_base___AType___is_typed(fra.me.REG[3])(fra.me.REG[3]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:2078 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AIsaExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_syntax___typing___AExpr___its_variable(fra.me.REG[3])(fra.me.REG[3]);
- /* syntax/typing.nit:2079 */
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:2080 */
- fra.me.REG[2] = CALL_syntax___typing___TypingVisitor___flow_ctx(fra.me.REG[1])(fra.me.REG[1]);
- fra.me.REG[4] = CALL_parser___parser_nodes___AIsaExpr___n_type(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_syntax___syntax_base___AType___stype(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[4] = CALL_syntax___flow___FlowContext___sub_with(fra.me.REG[2])(fra.me.REG[2], fra.me.REG[0], fra.me.REG[3], fra.me.REG[4]);
- ATTR_syntax___typing___AExpr____if_true_flow_ctx(fra.me.REG[0]) = fra.me.REG[4];
- }
- /* syntax/typing.nit:2082 */
- fra.me.REG[1] = CALL_syntax___syntax_base___AbsSyntaxVisitor___type_bool(fra.me.REG[1])(fra.me.REG[1]);
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[1];
- /* syntax/typing.nit:2083 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AAsCastExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 2089;
- fra.me.meth = LOCATE_syntax___typing___AAsCastExpr___after_typing;
- 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;
- /* syntax/typing.nit:2091 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AAsCastExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_parser___parser_nodes___AAsCastExpr___n_type(fra.me.REG[0])(fra.me.REG[0]);
- CALL_syntax___typing___ATypeCheckExpr___check_expr_cast(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2], fra.me.REG[3]);
- /* syntax/typing.nit:2092 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AAsCastExpr___n_type(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___syntax_base___AType___is_typed(fra.me.REG[3])(fra.me.REG[3]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:2093 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AAsCastExpr___n_type(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_syntax___syntax_base___AType___stype(fra.me.REG[3])(fra.me.REG[3]);
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[3];
- /* syntax/typing.nit:2094 */
- fra.me.REG[3] = ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]);
- REGB0 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(false);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[3])(fra.me.REG[3], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AAsNotnullExpr___after_typing(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_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_syntax___typing;
- fra.me.line = 2099;
- fra.me.meth = LOCATE_syntax___typing___AAsNotnullExpr___after_typing;
- 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;
- /* syntax/typing.nit:2101 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AAsNotnullExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___syntax_base___AbsSyntaxVisitor___check_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:2102 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AAsNotnullExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:2103 */
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[2], COLOR_metamodel___static_type___MMTypeNone, ID_metamodel___static_type___MMTypeNone)) /*cast MMTypeNone*/;
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:2104 */
- fra.me.REG[3] = CALL_parser___parser_nodes___AAsNotnullExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- if (!once_value_2) {
- fra.me.REG[4] = BOX_NativeString("Type error: 'as(not null)' on 'null' value.");
- REGB0 = TAG_Int(43);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_2 = fra.me.REG[4];
- register_static_object(&once_value_2);
- } else fra.me.REG[4] = once_value_2;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_syntax___syntax_base___AbsSyntaxVisitor___error(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[3], fra.me.REG[4]);
- /* syntax/typing.nit:2105 */
- goto label1;
- } else {
- /* syntax/typing.nit:2106 */
- REGB0 = CALL_metamodel___static_type___MMType___is_nullable(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:2107 */
- fra.me.REG[2] = CALL_parser___parser_nodes___AAsNotnullExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- if (!once_value_3) {
- fra.me.REG[4] = BOX_NativeString("Warning: 'as(not null)' on non nullable type.");
- REGB0 = TAG_Int(45);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB0);
- once_value_3 = fra.me.REG[4];
- register_static_object(&once_value_3);
- } else fra.me.REG[4] = once_value_3;
- fra.me.REG[4] = fra.me.REG[4];
- CALL_syntax___syntax_base___AbsSyntaxVisitor___warning(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2], fra.me.REG[4]);
- }
- }
- /* syntax/typing.nit:2109 */
- fra.me.REG[4] = CALL_parser___parser_nodes___AAsNotnullExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[4] = CALL_metamodel___static_type___MMType___as_notnull(fra.me.REG[4])(fra.me.REG[4]);
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[4];
- /* syntax/typing.nit:2110 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___AProxyExpr___after_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 2115;
- fra.me.meth = LOCATE_syntax___typing___AProxyExpr___after_typing;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* syntax/typing.nit:2117 */
- fra.me.REG[1] = CALL_parser___parser_nodes___AProxyExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___syntax_base___AExpr___is_typed(fra.me.REG[1])(fra.me.REG[1]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:2118 */
- REGB0 = TAG_Bool(true);
- ATTR_syntax___typing___AExpr____is_typed(fra.me.REG[0]) = REGB0;
- /* syntax/typing.nit:2119 */
- fra.me.REG[1] = CALL_parser___parser_nodes___AProxyExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___syntax_base___AExpr___is_statement(fra.me.REG[1])(fra.me.REG[1]);
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:2120 */
- fra.me.REG[1] = CALL_parser___parser_nodes___AProxyExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[1] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[1])(fra.me.REG[1]);
- ATTR_syntax___typing___AExpr____stype(fra.me.REG[0]) = fra.me.REG[1];
- /* syntax/typing.nit:2121 */
- fra.me.REG[1] = CALL_parser___parser_nodes___AProxyExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[1] = ATTR_syntax___typing___AExpr____if_true_flow_ctx(fra.me.REG[1]);
- ATTR_syntax___typing___AExpr____if_true_flow_ctx(fra.me.REG[0]) = fra.me.REG[1];
- /* syntax/typing.nit:2122 */
- fra.me.REG[1] = CALL_parser___parser_nodes___AProxyExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[1] = ATTR_syntax___typing___AExpr____if_false_flow_ctx(fra.me.REG[1]);
- ATTR_syntax___typing___AExpr____if_false_flow_ctx(fra.me.REG[0]) = fra.me.REG[1];
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-val_t syntax___typing___AProxyExpr___is_self(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 2125;
- fra.me.meth = LOCATE_syntax___typing___AProxyExpr___is_self;
- 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;
- /* syntax/typing.nit:2125 */
- fra.me.REG[0] = CALL_parser___parser_nodes___AProxyExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___typing___AExpr___is_self(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-val_t syntax___typing___AProxyExpr___its_variable(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 2127;
- fra.me.meth = LOCATE_syntax___typing___AProxyExpr___its_variable;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* syntax/typing.nit:2127 */
- fra.me.REG[0] = CALL_parser___parser_nodes___AProxyExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_syntax___typing___AExpr___its_variable(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-void syntax___typing___AOnceExpr___accept_typing(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_syntax___typing;
- fra.me.line = 2131;
- fra.me.meth = LOCATE_syntax___typing___AOnceExpr___accept_typing;
- 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;
- /* syntax/typing.nit:2131 */
- fra.me.REG[2] = fra.me.REG[0];
- fra.me.REG[3] = fra.me.REG[1];
- /* syntax/typing.nit:2133 */
- REGB0 = CALL_syntax___typing___TypingVisitor___once_count(fra.me.REG[3])(fra.me.REG[3]);
- REGB1 = TAG_Int(0);
- 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:234 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)>UNTAG_Int(REGB1));
- /* syntax/typing.nit:2133 */
- if (UNTAG_Bool(REGB1)) {
- /* syntax/typing.nit:2134 */
- if (!once_value_1) {
- fra.me.REG[4] = BOX_NativeString("Useless once in a once expression.");
- REGB1 = TAG_Int(34);
- fra.me.REG[4] = NEW_String_standard___string___String___with_native(fra.me.REG[4], REGB1);
- 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_syntax___syntax_base___AbsSyntaxVisitor___warning(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[2], fra.me.REG[4]);
- }
- /* syntax/typing.nit:2136 */
- REGB1 = CALL_syntax___typing___TypingVisitor___once_count(fra.me.REG[3])(fra.me.REG[3]);
- REGB0 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:235 */
- REGB0 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB0));
- /* syntax/typing.nit:2136 */
- CALL_syntax___typing___TypingVisitor___once_count__eq(fra.me.REG[3])(fra.me.REG[3], REGB0);
- /* syntax/typing.nit:2138 */
- CALL_SUPER_syntax___typing___AOnceExpr___accept_typing(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- /* syntax/typing.nit:2140 */
- REGB0 = CALL_syntax___typing___TypingVisitor___once_count(fra.me.REG[3])(fra.me.REG[3]);
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:237 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)-UNTAG_Int(REGB1));
- /* syntax/typing.nit:2140 */
- CALL_syntax___typing___TypingVisitor___once_count__eq(fra.me.REG[3])(fra.me.REG[3], REGB1);
- stack_frame_head = fra.me.prev;
- return;
-}
-void syntax___typing___ADebugTypeExpr___after_typing(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_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_syntax___typing;
- fra.me.line = 2145;
- fra.me.meth = LOCATE_syntax___typing___ADebugTypeExpr___after_typing;
- 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;
- /* syntax/typing.nit:2147 */
- fra.me.REG[2] = CALL_parser___parser_nodes___ADebugTypeExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___syntax_base___AbsSyntaxVisitor___check_expr(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:2148 */
- fra.me.REG[2] = CALL_parser___parser_nodes___ADebugTypeExpr___n_type(fra.me.REG[0])(fra.me.REG[0]);
- REGB0 = CALL_syntax___syntax_base___AType___is_typed(fra.me.REG[2])(fra.me.REG[2]);
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- goto label1;
- }
- /* syntax/typing.nit:2149 */
- fra.me.REG[2] = CALL_parser___parser_nodes___ADebugTypeExpr___n_expr(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[2] = CALL_syntax___syntax_base___AExpr___stype(fra.me.REG[2])(fra.me.REG[2]);
- /* syntax/typing.nit:2150 */
- fra.me.REG[3] = CALL_parser___parser_nodes___ADebugTypeExpr___n_type(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[3] = CALL_syntax___syntax_base___AType___stype(fra.me.REG[3])(fra.me.REG[3]);
- /* syntax/typing.nit:2151 */
- 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));
- if (UNTAG_Bool(REGB0)) {
- /* syntax/typing.nit:2152 */
- REGB0 = TAG_Int(5);
- fra.me.REG[4] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_2) {
- fra.me.REG[5] = BOX_NativeString("Warning: Expression is a ");
- REGB0 = TAG_Int(25);
- fra.me.REG[5] = NEW_String_standard___string___String___with_native(fra.me.REG[5], REGB0);
- once_value_2 = fra.me.REG[5];
- register_static_object(&once_value_2);
- } else fra.me.REG[5] = once_value_2;
- fra.me.REG[5] = fra.me.REG[5];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[5]);
- 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[4])(fra.me.REG[4], fra.me.REG[2]);
- if (!once_value_3) {
- fra.me.REG[2] = BOX_NativeString(", expected ");
- REGB0 = TAG_Int(11);
- 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[4])(fra.me.REG[4], fra.me.REG[2]);
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[3]);
- if (!once_value_4) {
- 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_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[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_syntax___syntax_base___AbsSyntaxVisitor___warning(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0], fra.me.REG[4]);
- }
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}