- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Int(5);
- fra.me.REG[5] = NEW_Array_array___Array___with_capacity(REGB2);
- /* ./syntax//syntax_base.nit:488 */
- if (!once_value_3) {
- fra.me.REG[7] = BOX_NativeString("Type error: no most general type. Got ");
- REGB2 = TAG_Int(38);
- fra.me.REG[7] = NEW_String_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;
- array___Array___add(fra.me.REG[5], fra.me.REG[7]);
- fra.me.REG[7] = CALL_syntax_base___AExpr___stype(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[7] = CALL_string___Object___to_s(fra.me.REG[7])(fra.me.REG[7]);
- array___Array___add(fra.me.REG[5], fra.me.REG[7]);
- if (!once_value_4) {
- fra.me.REG[7] = BOX_NativeString(" and ");
- REGB2 = TAG_Int(5);
- fra.me.REG[7] = NEW_String_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;
- array___Array___add(fra.me.REG[5], fra.me.REG[7]);
- fra.me.REG[7] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]);
- array___Array___add(fra.me.REG[5], fra.me.REG[7]);
- if (!once_value_5) {
- fra.me.REG[7] = BOX_NativeString(".");
- REGB2 = TAG_Int(1);
- fra.me.REG[7] = NEW_String_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;
- array___Array___add(fra.me.REG[5], fra.me.REG[7]);
- fra.me.REG[5] = CALL_string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_syntax_base___AbsSyntaxVisitor___error(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4], fra.me.REG[5]);
- } else {
- REGB2 = TAG_Int(7);
- fra.me.REG[5] = NEW_Array_array___Array___with_capacity(REGB2);
- /* ./syntax//syntax_base.nit:490 */
- if (!once_value_6) {
- fra.me.REG[7] = BOX_NativeString("Type error: no most general type. Got ");
- REGB2 = TAG_Int(38);
- fra.me.REG[7] = NEW_String_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;
- array___Array___add(fra.me.REG[5], fra.me.REG[7]);
- fra.me.REG[7] = CALL_syntax_base___AExpr___stype(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[7] = CALL_string___Object___to_s(fra.me.REG[7])(fra.me.REG[7]);
- array___Array___add(fra.me.REG[5], fra.me.REG[7]);
- if (!once_value_7) {
- fra.me.REG[7] = BOX_NativeString(" and ");
- REGB2 = TAG_Int(5);
- fra.me.REG[7] = NEW_String_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;
- array___Array___add(fra.me.REG[5], fra.me.REG[7]);
- fra.me.REG[7] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]);
- array___Array___add(fra.me.REG[5], fra.me.REG[7]);
- if (!once_value_8) {
- fra.me.REG[7] = BOX_NativeString(" at ");
- REGB2 = TAG_Int(4);
- fra.me.REG[7] = NEW_String_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;
- array___Array___add(fra.me.REG[5], fra.me.REG[7]);
- REGB2 = TAG_Bool(fra.me.REG[3]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- fprintf(stderr, "Reciever is null");
- fprintf(stderr, " (%s:%d)\n", LOCATE_syntax_base, 490);
- nit_exit(1);
- }
- fra.me.REG[7] = CALL_parser_nodes___ANode___location(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[8] = CALL_parser_nodes___ANode___location(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[8] = CALL_location___Location___relative_to(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- array___Array___add(fra.me.REG[5], fra.me.REG[8]);
- if (!once_value_9) {
- fra.me.REG[8] = BOX_NativeString(".");
- REGB2 = TAG_Int(1);
- fra.me.REG[8] = NEW_String_string___String___with_native(fra.me.REG[8], REGB2);
- once_value_9 = fra.me.REG[8];
- register_static_object(&once_value_9);
- } else fra.me.REG[8] = once_value_9;
- array___Array___add(fra.me.REG[5], fra.me.REG[8]);
- fra.me.REG[5] = CALL_string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_syntax_base___AbsSyntaxVisitor___error(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4], fra.me.REG[5]);
+ }
+ if (UNTAG_Bool(REGB0)) {
+ /* ./syntax//syntax_base.nit:487 */
+ REGB0 = TAG_Int(5);
+ fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0);
+ if (!once_value_5) {
+ fra.me.REG[2] = BOX_NativeString("Type error: no most general type. Got ");
+ REGB0 = TAG_Int(38);
+ fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_5 = fra.me.REG[2];
+ register_static_object(&once_value_5);
+ } else fra.me.REG[2] = once_value_5;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
+ fra.me.REG[2] = CALL_syntax_base___AExpr___stype(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[2] = CALL_string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
+ CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
+ if (!once_value_6) {
+ fra.me.REG[2] = BOX_NativeString(" and ");
+ REGB0 = TAG_Int(5);
+ fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_6 = fra.me.REG[2];
+ register_static_object(&once_value_6);
+ } else fra.me.REG[2] = once_value_6;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
+ fra.me.REG[2] = CALL_string___Object___to_s(closctx->REG[1])(closctx->REG[1]);
+ CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
+ if (!once_value_7) {
+ fra.me.REG[2] = BOX_NativeString(".");
+ REGB0 = TAG_Int(1);
+ fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_7 = fra.me.REG[2];
+ register_static_object(&once_value_7);
+ } else fra.me.REG[2] = once_value_7;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
+ fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]);
+ CALL_syntax_base___AbsSyntaxVisitor___error(closctx->REG[0])(closctx->REG[0], fra.me.REG[0], fra.me.REG[1]);
+ } else {
+ /* ./syntax//syntax_base.nit:489 */
+ REGB0 = TAG_Int(7);
+ fra.me.REG[1] = NEW_Array_array___Array___with_capacity(REGB0);
+ if (!once_value_8) {
+ fra.me.REG[2] = BOX_NativeString("Type error: no most general type. Got ");
+ REGB0 = TAG_Int(38);
+ fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_8 = fra.me.REG[2];
+ register_static_object(&once_value_8);
+ } else fra.me.REG[2] = once_value_8;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
+ fra.me.REG[2] = CALL_syntax_base___AExpr___stype(fra.me.REG[0])(fra.me.REG[0]);
+ fra.me.REG[2] = CALL_string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
+ CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
+ if (!once_value_9) {
+ fra.me.REG[2] = BOX_NativeString(" and ");
+ REGB0 = TAG_Int(5);
+ fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_9 = fra.me.REG[2];
+ register_static_object(&once_value_9);
+ } else fra.me.REG[2] = once_value_9;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
+ fra.me.REG[2] = CALL_string___Object___to_s(closctx->REG[1])(closctx->REG[1]);
+ CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
+ if (!once_value_10) {
+ fra.me.REG[2] = BOX_NativeString(" at ");
+ REGB0 = TAG_Int(4);
+ fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0);
+ once_value_10 = fra.me.REG[2];
+ register_static_object(&once_value_10);
+ } else fra.me.REG[2] = once_value_10;
+ fra.me.REG[2] = fra.me.REG[2];
+ CALL_abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
+ REGB0 = TAG_Bool(closctx->REG[3]==NIT_NULL);
+ if (UNTAG_Bool(REGB0)) {
+ nit_abort("Reciever is null", NULL, LOCATE_syntax_base, 489);