diff --git a/mrbgems/mruby-compiler/core/codegen.c b/mrbgems/mruby-compiler/core/codegen.c index 1539f4587..08b7675ed 100644 --- a/mrbgems/mruby-compiler/core/codegen.c +++ b/mrbgems/mruby-compiler/core/codegen.c @@ -160,6 +160,10 @@ static void gen_call_assign_var(codegen_scope *s, node *varnode, node *rhs, int static void codegen(codegen_scope *s, node *tree, int val); static void raise_error(codegen_scope *s, const char *msg); +/* Forward declarations for helper functions */ +static enum node_type get_node_type(node *n); +static struct mrb_ast_var_header* get_var_header(node *n); + /* * Reports a compilation error encountered during code generation. * @@ -2198,6 +2202,11 @@ node_len(node *tree) { int n = 0; + /* Validate pointer before using it */ + if (!tree || ((uintptr_t)tree < 0x1000)) { + return 0; + } + while (tree) { n++; tree = tree->cdr; @@ -2461,11 +2470,9 @@ lambda_body(codegen_scope *s, node *locals, struct mrb_ast_args *args, node *bod node *n = margs; pos = 1; /* Start from register 1 (after self). */ while (n) { - if (node_to_int(n->car->car) == NODE_VARIABLE) { - if (VAR_NODE_TYPE(n->car->cdr) == NODE_MASGN) { /* If the argument is a mass assignment (e.g., |(a,b)| ). */ - struct mrb_ast_masgn_node *masgn_n = (struct mrb_ast_masgn_node*)n->car->cdr; - gen_massignment(s, masgn_n->lhs, pos, NOVAL); - } + if (get_node_type(n->car) == NODE_MASGN) { /* If the argument is a mass assignment (e.g., |(a,b)| ). */ + struct mrb_ast_masgn_node *masgn_n = (struct mrb_ast_masgn_node*)n->car; + gen_massignment(s, masgn_n->lhs, pos, NOVAL); } pos++; n = n->cdr; @@ -2475,11 +2482,9 @@ lambda_body(codegen_scope *s, node *locals, struct mrb_ast_args *args, node *bod node *n = pargs; pos = ma+oa+ra+1; /* Calculate starting register for post-mandatory args. */ while (n) { - if (node_to_int(n->car->car) == NODE_VARIABLE) { - if (VAR_NODE_TYPE(n->car->cdr) == NODE_MASGN) { /* If argument is a mass assignment. */ - struct mrb_ast_masgn_node *masgn_n = (struct mrb_ast_masgn_node*)n->car->cdr; - gen_massignment(s, masgn_n->lhs, pos, NOVAL); - } + if (get_node_type(n->car) == NODE_MASGN) { /* If argument is a mass assignment. */ + struct mrb_ast_masgn_node *masgn_n = (struct mrb_ast_masgn_node*)n->car; + gen_massignment(s, masgn_n->lhs, pos, NOVAL); } pos++; n = n->cdr; @@ -2547,12 +2552,32 @@ scope_body(codegen_scope *s, node *locals, node *body, int val) return s->irep->rlen - 1; } +/* Helper functions for node type checking - works with variable-sized nodes */ +static enum node_type +get_node_type(node *n) +{ + if (!n) return (enum node_type)0; + + /* Try to interpret as variable-sized node first */ + struct mrb_ast_var_header *header = (struct mrb_ast_var_header*)n; + return (enum node_type)header->node_type; +} + +static struct mrb_ast_var_header* +get_var_header(node *n) +{ + if (!n) return NULL; + + /* Try to interpret as variable-sized node */ + struct mrb_ast_var_header *header = (struct mrb_ast_var_header*)n; + return header; +} + /* Helper to detect splat nodes in variable-sized format */ static mrb_bool is_splat_node(node *n) { - return (node_to_int(n->car) == NODE_VARIABLE && - VAR_NODE_TYPE(n->cdr) == NODE_SPLAT); + return (get_node_type(n) == NODE_SPLAT); } static mrb_bool @@ -2786,7 +2811,7 @@ gen_colon3_assign(codegen_scope *s, node *varnode, node *rhs, int sp, int val) static void gen_xvar_assignment(codegen_scope *s, node *tree, node *rhs, int sp, int val, uint8_t op) { - struct mrb_ast_var_node *var = var_node(tree->cdr); + struct mrb_ast_var_node *var = (struct mrb_ast_var_node*)tree; if (rhs) { codegen(s, rhs, VAL); pop(); @@ -2809,103 +2834,68 @@ static void gen_assignment(codegen_scope *s, node *tree, node *rhs, int sp, int val) { int idx; - int type = node_to_int(tree->car); - switch (type) { + /* Check if this is a variable-sized node first */ + enum node_type var_type = get_node_type(tree); + switch (var_type) { case NODE_NIL: if (rhs) { codegen(s, rhs, VAL); pop(); sp = cursp(); } + /* NODE_NIL assignment is complete - just break (splat without assignment) */ break; - - case NODE_CALL: - /* keep evaluation order */ + case NODE_COLON2: + gen_colon2_assign(s, tree, rhs, sp, val); + return; + case NODE_COLON3: + gen_colon3_assign(s, tree, rhs, sp, val); + return; + case NODE_GVAR: + gen_xvar_assignment(s, tree, rhs, sp, val, OP_SETGV); break; - - case NODE_VARIABLE: - /* Handle variable-sized nodes completely here */ + case NODE_IVAR: + gen_xvar_assignment(s, tree, rhs, sp, val, OP_SETIV); + break; + case NODE_CVAR: + gen_xvar_assignment(s, tree, rhs, sp, val, OP_SETCV); + break; + case NODE_CONST: + gen_xvar_assignment(s, tree, rhs, sp, val, OP_SETCONST); + break; + case NODE_MASGN: + gen_masgn_var(s, tree, rhs, sp, val); + return; + case NODE_LVAR: { - enum node_type var_type = VAR_NODE_TYPE(tree->cdr); - switch (var_type) { - case NODE_NIL: - if (rhs) { - codegen(s, rhs, VAL); - pop(); - sp = cursp(); + mrb_sym sym = VAR_NODE_SYMBOL(tree); + if (rhs) { + codegen(s, rhs, VAL); + pop(); + sp = cursp(); + } + idx = lv_idx(s, sym); + if (idx > 0) { + if (idx != sp) { + gen_move(s, idx, sp, val); } - /* NODE_NIL assignment is complete - just break (splat without assignment) */ - break; - case NODE_COLON2: - gen_colon2_assign(s, tree->cdr, rhs, sp, val); - return; - case NODE_COLON3: - gen_colon3_assign(s, tree->cdr, rhs, sp, val); - return; - case NODE_GVAR: - gen_xvar_assignment(s, tree, rhs, sp, val, OP_SETGV); - break; - case NODE_IVAR: - gen_xvar_assignment(s, tree, rhs, sp, val, OP_SETIV); - break; - case NODE_CVAR: - gen_xvar_assignment(s, tree, rhs, sp, val, OP_SETCV); - break; - case NODE_CONST: - gen_xvar_assignment(s, tree, rhs, sp, val, OP_SETCONST); - break; - case NODE_MASGN: - gen_masgn_var(s, tree->cdr, rhs, sp, val); - return; - case NODE_LVAR: - { - mrb_sym sym = VAR_NODE_SYMBOL(tree->cdr); - if (rhs) { - codegen(s, rhs, VAL); - pop(); - sp = cursp(); - } - idx = lv_idx(s, sym); - if (idx > 0) { - if (idx != sp) { - gen_move(s, idx, sp, val); - } - break; - } - else { - gen_setupvar(s, sp, sym); - } - } - break; - case NODE_CALL: - gen_call_assign_var(s, tree->cdr, rhs, sp, val); - return; - default: - codegen_error(s, "unsupported variable-sized lhs"); break; } - /* Variable-sized node handling is complete - skip second switch */ - if (val) push(); - return; + else { + gen_setupvar(s, sp, sym); + } } - - default: - codegen_error(s, "unknown lhs"); break; - } - - tree = tree->cdr; - switch (type) { - /* splat without assignment */ - case NODE_NIL: - break; - + case NODE_CALL: + gen_call_assign_var(s, tree, rhs, sp, val); + return; default: - codegen_error(s, "unknown lhs"); + codegen_error(s, "unsupported variable-sized lhs"); break; } if (val) push(); + return; } static void @@ -3115,21 +3105,14 @@ gen_retval(codegen_scope *s, node *tree) static mrb_bool true_always(node *tree) { - switch (node_to_int(tree->car)) { + /* Check if this is a variable-sized node first */ + enum node_type var_type = get_node_type(tree); + switch (var_type) { case NODE_INT: - case NODE_SYM: + case NODE_BIGINT: + case NODE_FLOAT: + case NODE_TRUE: return TRUE; - case NODE_VARIABLE: - /* Check variable-sized nodes that are always true */ - switch (VAR_NODE_TYPE(tree->cdr)) { - case NODE_INT: - case NODE_BIGINT: - case NODE_FLOAT: - case NODE_TRUE: - return TRUE; - default: - return FALSE; - } default: return FALSE; } @@ -3138,17 +3121,14 @@ true_always(node *tree) static mrb_bool false_always(node *tree) { - if (node_to_int(tree->car) == NODE_VARIABLE) { - /* Check variable-sized nodes that are always false */ - switch (VAR_NODE_TYPE(tree->cdr)) { - case NODE_FALSE: - case NODE_NIL: - return TRUE; - default: - return FALSE; - } + /* Check variable-sized nodes that are always false */ + switch (get_node_type(tree)) { + case NODE_FALSE: + case NODE_NIL: + return TRUE; + default: + return FALSE; } - return FALSE; } static void @@ -3455,9 +3435,7 @@ gen_call_var(codegen_scope *s, node *varnode, int val) else if (sym == MRB_OPSYM_2(s->mrb, aset)) opt_op = OP_SETIDX; } - if (!call->receiver || (opt_op == OP_NOP && - node_to_int(call->receiver->car) == NODE_VARIABLE && - VAR_NODE_TYPE(call->receiver->cdr) == NODE_SELF)) { + if (!call->receiver || (opt_op == OP_NOP && get_node_type(call->receiver) == NODE_SELF)) { noself = 1; push(); } @@ -3812,20 +3790,10 @@ gen_if_var(codegen_scope *s, node *varnode, int val) return; } - /* Check for nil? optimization - handle both traditional and variable-sized nodes */ - if (NODE_TYPE(condition) == NODE_CALL) { - /* Traditional cons-list NODE_CALL */ - node *n = condition->cdr; - mrb_sym mid = node_to_sym(n->cdr->car); - mrb_sym sym_nil_p = MRB_SYM_Q_2(s->mrb, nil); - if (mid == sym_nil_p && n->cdr->cdr->car == NULL) { - nil_p = TRUE; - codegen(s, n->car, VAL); - } - } - else if (NODE_TYPE(condition) == NODE_VARIABLE && VAR_NODE_TYPE(condition->cdr) == NODE_CALL) { - /* Variable-sized NODE_CALL wrapped in NODE_VARIABLE */ - struct mrb_ast_call_node *call_n = (struct mrb_ast_call_node*)condition->cdr; + /* Check for nil? optimization */ + if (get_node_type(condition) == NODE_CALL) { + /* Variable-sized NODE_CALL */ + struct mrb_ast_call_node *call_n = (struct mrb_ast_call_node*)condition; mrb_sym sym_nil_p = MRB_SYM_Q_2(s->mrb, nil); if (call_n->method_name == sym_nil_p && call_n->argc == 0) { nil_p = TRUE; @@ -5236,15 +5204,18 @@ gen_negate_var(codegen_scope *s, node *varnode, int val) { struct mrb_ast_negate_node *n = (struct mrb_ast_negate_node*)varnode; node *tree = n->operand; - int nt = node_to_int(tree->car); - switch (nt) { + /* Check if the operand is a variable-sized node */ + enum node_type vnt = get_node_type(tree); + switch (vnt) { #ifndef MRB_NO_FLOAT case NODE_FLOAT: if (val) { - char *p = (char*)tree->cdr; + struct mrb_ast_float_node *float_n = (struct mrb_ast_float_node*)tree; + const char *value = float_n->value; double f; - mrb_read_float(p, NULL, &f); + + mrb_read_float(value, NULL, &f); int off = new_lit_float(s, (mrb_float)-f); gen_load_lit(s, off); @@ -5253,63 +5224,32 @@ gen_negate_var(codegen_scope *s, node *varnode, int val) #endif case NODE_INT: - /* This case should not occur since NODE_INT is now always variable-sized */ + if (val) { + int32_t value = INT_NODE_VALUE(tree); + if (value == INT32_MIN) { + /* -INT32_MIN overflows, use bigint */ + int off = new_litbint(s, "2147483648", -10); + genop_2(s, OP_LOADL, cursp(), off); + } + else { + gen_int(s, cursp(), -value); + } + push(); + } break; - case NODE_VARIABLE: - { - enum node_type vnt = VAR_NODE_TYPE(tree->cdr); - switch (vnt) { -#ifndef MRB_NO_FLOAT - case NODE_FLOAT: - if (val) { - struct mrb_ast_float_node *float_n = (struct mrb_ast_float_node*)tree->cdr; - const char *value = float_n->value; - double f; - - mrb_read_float(value, NULL, &f); - int off = new_lit_float(s, (mrb_float)-f); - - gen_load_lit(s, off); - } - break; -#endif - - case NODE_INT: - if (val) { - int32_t value = INT_NODE_VALUE(tree->cdr); - if (value == INT32_MIN) { - /* -INT32_MIN overflows, use bigint */ - int off = new_litbint(s, "2147483648", -10); - genop_2(s, OP_LOADL, cursp(), off); - } - else { - gen_int(s, cursp(), -value); - } - push(); - } - break; - - case NODE_BIGINT: - if (val) { - char *str = BIGINT_NODE_STRING(tree->cdr); - int base = BIGINT_NODE_BASE(tree->cdr); - /* Negate base to indicate negative number */ - int off = new_litbint(s, str, -base); - genop_2(s, OP_LOADL, cursp(), off); - push(); - } - break; - - default: - /* Fall through to default case */ - goto default_negate; - } - break; + case NODE_BIGINT: + if (val) { + char *str = BIGINT_NODE_STRING(tree); + int base = BIGINT_NODE_BASE(tree); + /* Negate base to indicate negative number */ + int off = new_litbint(s, str, -base); + genop_2(s, OP_LOADL, cursp(), off); + push(); } + break; default: - default_negate: codegen(s, tree, VAL); pop(); push_n(2);pop_n(2); /* space for receiver&block */ @@ -5542,16 +5482,10 @@ is_empty_stmts(node *stmt_node) { if (!stmt_node) return TRUE; - if (node_to_int(stmt_node->car) == NODE_VARIABLE) { + if (get_node_type(stmt_node) == NODE_STMTS) { /* Variable-sized NODE_STMTS with internal cons-list */ - if (NODE_TYPE(stmt_node) == NODE_STMTS) { - struct mrb_ast_stmts_node *stmts = stmts_node(NODE_VAR_NODE_PTR(stmt_node)); - return STMTS_NODE_STMTS(stmts) == NULL; - } - } - else if (node_to_int(stmt_node->car) == NODE_STMTS) { - /* Traditional cons-list NODE_STMTS */ - return stmt_node->cdr == NULL; + struct mrb_ast_stmts_node *stmts = (struct mrb_ast_stmts_node*)stmt_node; + return stmts->stmts == NULL; } return FALSE; @@ -5611,7 +5545,6 @@ gen_sdef_var(codegen_scope *s, const node *varnode, int val) static void codegen(codegen_scope *s, node *tree, int val) { - int nt; int rlev = s->rlev; if (!tree) { @@ -5622,346 +5555,343 @@ codegen(codegen_scope *s, node *tree, int val) return; } - nt = node_to_int(tree->car); - s->rlev++; if (s->rlev > MRB_CODEGEN_LEVEL_MAX) { codegen_error(s, "too complex expression"); } - if (nt == NODE_VARIABLE) { - /* For variable-sized nodes, get filename/lineno from the variable node header */ - struct mrb_ast_var_header *var_head = (struct mrb_ast_var_header*)tree->cdr; + /* Check if this is a variable-sized node */ + /* For variable-sized nodes, get filename/lineno from the variable node header */ + struct mrb_ast_var_header *var_head = get_var_header(tree); - if (s->irep && s->filename_index != var_head->filename_index) { - mrb_sym fname = mrb_parser_get_filename(s->parser, s->filename_index); - const char *filename = mrb_sym_name_len(s->mrb, fname, NULL); + if (s->irep && s->filename_index != var_head->filename_index) { + mrb_sym fname = mrb_parser_get_filename(s->parser, s->filename_index); + const char *filename = mrb_sym_name_len(s->mrb, fname, NULL); - if (filename) { - mrb_debug_info_append_file(s->mrb, s->irep->debug_info, - filename, s->lines, s->debug_start_pos, s->pc); - } - s->debug_start_pos = s->pc; - s->filename_index = var_head->filename_index; - s->filename_sym = mrb_parser_get_filename(s->parser, var_head->filename_index); + if (filename) { + mrb_debug_info_append_file(s->mrb, s->irep->debug_info, + filename, s->lines, s->debug_start_pos, s->pc); } - s->lineno = var_head->lineno; - tree = tree->cdr; - /* Inlined codegen_variable_node() logic */ - enum node_type var_type = VAR_NODE_TYPE(tree); - - switch (var_type) { - case NODE_INT: - if (val) { - gen_int(s, cursp(), INT_NODE_VALUE(tree)); - push(); - } - break; - - case NODE_BIGINT: - if (val) { - char *str = BIGINT_NODE_STRING(tree); - int base = BIGINT_NODE_BASE(tree); - int off = new_litbint(s, str, base); - genop_2(s, OP_LOADL, cursp(), off); - push(); - } - break; - - case NODE_SYM: - { - int i = new_sym(s, SYM_NODE_VALUE(tree)); - gen_load_op2(s, OP_LOADSYM, i, val); - } - break; - - case NODE_LVAR: - gen_lvar(s, VAR_NODE_SYMBOL(tree), val); - break; - - case NODE_GVAR: - gen_xvar(s, VAR_NODE_SYMBOL(tree), val, OP_GETGV); - break; - - case NODE_IVAR: - gen_xvar(s, VAR_NODE_SYMBOL(tree), val, OP_GETIV); - break; - - case NODE_CVAR: - gen_xvar(s, VAR_NODE_SYMBOL(tree), val, OP_GETCV); - break; - - case NODE_CALL: - gen_call_var(s, tree, val); - break; - - case NODE_ARRAY: - gen_array_var(s, tree, val); - break; - - case NODE_HASH: - gen_hash_var(s, tree, val); - break; - - case NODE_IF: - gen_if_var(s, tree, val); - break; - - case NODE_WHILE: - gen_while_var(s, tree, val); - break; - - case NODE_UNTIL: - gen_until_var(s, tree, val); - break; - - case NODE_FOR: - gen_for_var(s, tree, val); - break; - - case NODE_CASE: - gen_case_var(s, tree, val); - break; - - case NODE_DEF: - gen_def_var(s, tree, val); - break; - - case NODE_CLASS: - gen_class_var(s, tree, val); - break; - - case NODE_MODULE: - gen_module_var(s, tree, val); - break; - - case NODE_SCLASS: - gen_sclass_var(s, tree, val); - break; - - case NODE_ASGN: - gen_asgn_var(s, tree, val); - break; - - case NODE_MASGN: - gen_masgn_var(s, tree, NULL, 0, val); - break; - - case NODE_OP_ASGN: - gen_op_asgn_var(s, tree, val); - break; - - case NODE_AND: - gen_and_var(s, tree, val); - break; - - case NODE_OR: - gen_or_var(s, tree, val); - break; - - case NODE_RETURN: - gen_return_var(s, tree, val); - break; - - case NODE_YIELD: - gen_yield_var(s, tree, val); - break; - - case NODE_SUPER: - gen_super_var(s, tree, val); - break; - - case NODE_STR: - gen_str_var(s, tree, val); - break; - - case NODE_REGX: - gen_regx_var(s, tree, val); - break; - - case NODE_DOT2: - gen_dot2_var(s, tree, val); - break; - - case NODE_DOT3: - gen_dot3_var(s, tree, val); - break; - - case NODE_FLOAT: - gen_float_var(s, tree, val); - break; - - case NODE_SELF: - gen_self_var(s, tree, val); - break; - - case NODE_NIL: - gen_nil_var(s, tree, val); - break; - - case NODE_TRUE: - gen_true_var(s, tree, val); - break; - - case NODE_FALSE: - gen_false_var(s, tree, val); - break; - - case NODE_CONST: - gen_const_var(s, tree, val); - break; - - case NODE_RESCUE: - gen_rescue_var(s, tree, val); - break; - - case NODE_BLOCK: - gen_block_var(s, tree, val); - break; - - case NODE_BREAK: - gen_break_var(s, tree, val); - break; - - case NODE_NEXT: - gen_next_var(s, tree, val); - break; - - case NODE_REDO: - gen_redo_var(s, tree, val); - break; - - case NODE_RETRY: - gen_retry_var(s, tree, val); - break; - - case NODE_WHILE_MOD: - gen_while_mod_var(s, tree, val); - break; - - case NODE_UNTIL_MOD: - gen_until_mod_var(s, tree, val); - break; - - case NODE_XSTR: - gen_xstr_var(s, tree, val); - break; - - case NODE_DREGX: - gen_dregx_var(s, tree, val); - break; - - case NODE_HEREDOC: - gen_heredoc_var(s, tree, val); - break; - - case NODE_DSYM: - gen_dsym_var(s, tree, val); - break; - - case NODE_NTH_REF: - gen_nth_ref_var(s, tree, val); - break; - - case NODE_BACK_REF: - gen_back_ref_var(s, tree, val); - break; - - case NODE_NVAR: - gen_nvar_var(s, tree, val); - break; - - case NODE_DVAR: - gen_dvar_var(s, tree, val); - break; - - case NODE_MATCH: - gen_match_var(s, tree, val); - break; - - case NODE_NOT: - gen_not_var(s, tree, val); - break; - - case NODE_NEGATE: - gen_negate_var(s, tree, val); - break; - - case NODE_COLON2: - gen_colon2_var(s, tree, val); - break; - - case NODE_COLON3: - gen_colon3_var(s, tree, val); - break; - - case NODE_DEFINED: - gen_defined_var(s, tree, val); - break; - - case NODE_ZSUPER: - gen_zsuper_var(s, tree, val); - break; - - case NODE_LAMBDA: - gen_lambda_var(s, tree, val); - break; - - case NODE_WORDS: - gen_words_var(s, tree, val); - break; - - case NODE_SYMBOLS: - gen_symbols_var(s, tree, val); - break; - - case NODE_SPLAT: - gen_splat_var(s, tree, val); - break; - - case NODE_BLOCK_ARG: - gen_block_arg_var(s, tree, val); - break; - - case NODE_SCOPE: - gen_scope_var(s, tree, val); - break; - - case NODE_BEGIN: - gen_begin_var(s, tree, val); - break; - - case NODE_ENSURE: - gen_ensure_var(s, tree, val); - break; - - case NODE_STMTS: - gen_stmts_var(s, tree, val); - break; - - case NODE_ALIAS: - gen_alias_var(s, tree, val); - break; - - case NODE_UNDEF: - gen_undef_var(s, tree, val); - break; - - case NODE_POSTEXE: - { - struct mrb_ast_postexe_node *postexe = postexe_node(tree); - codegen(s, postexe->body, NOVAL); - } - break; - - case NODE_SDEF: - gen_sdef_var(s, tree, val); - break; - - default: - /* Unhandled node type - should not occur with current AST */ - break; + s->debug_start_pos = s->pc; + s->filename_index = var_head->filename_index; + s->filename_sym = mrb_parser_get_filename(s->parser, var_head->filename_index); + } + s->lineno = var_head->lineno; + + /* Process variable-sized node directly */ + enum node_type var_type = var_head->node_type; + + switch (var_type) { + case NODE_INT: + if (val) { + gen_int(s, cursp(), INT_NODE_VALUE(tree)); + push(); } + break; + + case NODE_BIGINT: + if (val) { + char *str = BIGINT_NODE_STRING(tree); + int base = BIGINT_NODE_BASE(tree); + int off = new_litbint(s, str, base); + genop_2(s, OP_LOADL, cursp(), off); + push(); + } + break; + + case NODE_SYM: + { + int i = new_sym(s, SYM_NODE_VALUE(tree)); + gen_load_op2(s, OP_LOADSYM, i, val); + } + break; + + case NODE_LVAR: + gen_lvar(s, VAR_NODE_SYMBOL(tree), val); + break; + + case NODE_GVAR: + gen_xvar(s, VAR_NODE_SYMBOL(tree), val, OP_GETGV); + break; + + case NODE_IVAR: + gen_xvar(s, VAR_NODE_SYMBOL(tree), val, OP_GETIV); + break; + + case NODE_CVAR: + gen_xvar(s, VAR_NODE_SYMBOL(tree), val, OP_GETCV); + break; + + case NODE_CALL: + gen_call_var(s, tree, val); + break; + + case NODE_ARRAY: + gen_array_var(s, tree, val); + break; + + case NODE_HASH: + gen_hash_var(s, tree, val); + break; + + case NODE_IF: + gen_if_var(s, tree, val); + break; + + case NODE_WHILE: + gen_while_var(s, tree, val); + break; + + case NODE_UNTIL: + gen_until_var(s, tree, val); + break; + + case NODE_FOR: + gen_for_var(s, tree, val); + break; + + case NODE_CASE: + gen_case_var(s, tree, val); + break; + + case NODE_DEF: + gen_def_var(s, tree, val); + break; + + case NODE_CLASS: + gen_class_var(s, tree, val); + break; + + case NODE_MODULE: + gen_module_var(s, tree, val); + break; + + case NODE_SCLASS: + gen_sclass_var(s, tree, val); + break; + + case NODE_ASGN: + gen_asgn_var(s, tree, val); + break; + + case NODE_MASGN: + gen_masgn_var(s, tree, NULL, 0, val); + break; + + case NODE_OP_ASGN: + gen_op_asgn_var(s, tree, val); + break; + + case NODE_AND: + gen_and_var(s, tree, val); + break; + + case NODE_OR: + gen_or_var(s, tree, val); + break; + + case NODE_RETURN: + gen_return_var(s, tree, val); + break; + + case NODE_YIELD: + gen_yield_var(s, tree, val); + break; + + case NODE_SUPER: + gen_super_var(s, tree, val); + break; + + case NODE_STR: + gen_str_var(s, tree, val); + break; + + case NODE_REGX: + gen_regx_var(s, tree, val); + break; + + case NODE_DOT2: + gen_dot2_var(s, tree, val); + break; + + case NODE_DOT3: + gen_dot3_var(s, tree, val); + break; + + case NODE_FLOAT: + gen_float_var(s, tree, val); + break; + + case NODE_SELF: + gen_self_var(s, tree, val); + break; + + case NODE_NIL: + gen_nil_var(s, tree, val); + break; + + case NODE_TRUE: + gen_true_var(s, tree, val); + break; + + case NODE_FALSE: + gen_false_var(s, tree, val); + break; + + case NODE_CONST: + gen_const_var(s, tree, val); + break; + + case NODE_RESCUE: + gen_rescue_var(s, tree, val); + break; + + case NODE_BLOCK: + gen_block_var(s, tree, val); + break; + + case NODE_BREAK: + gen_break_var(s, tree, val); + break; + + case NODE_NEXT: + gen_next_var(s, tree, val); + break; + + case NODE_REDO: + gen_redo_var(s, tree, val); + break; + + case NODE_RETRY: + gen_retry_var(s, tree, val); + break; + + case NODE_WHILE_MOD: + gen_while_mod_var(s, tree, val); + break; + + case NODE_UNTIL_MOD: + gen_until_mod_var(s, tree, val); + break; + + case NODE_XSTR: + gen_xstr_var(s, tree, val); + break; + + case NODE_DREGX: + gen_dregx_var(s, tree, val); + break; + + case NODE_HEREDOC: + gen_heredoc_var(s, tree, val); + break; + + case NODE_DSYM: + gen_dsym_var(s, tree, val); + break; + + case NODE_NTH_REF: + gen_nth_ref_var(s, tree, val); + break; + + case NODE_BACK_REF: + gen_back_ref_var(s, tree, val); + break; + + case NODE_NVAR: + gen_nvar_var(s, tree, val); + break; + + case NODE_DVAR: + gen_dvar_var(s, tree, val); + break; + + case NODE_MATCH: + gen_match_var(s, tree, val); + break; + + case NODE_NOT: + gen_not_var(s, tree, val); + break; + + case NODE_NEGATE: + gen_negate_var(s, tree, val); + break; + + case NODE_COLON2: + gen_colon2_var(s, tree, val); + break; + + case NODE_COLON3: + gen_colon3_var(s, tree, val); + break; + + case NODE_DEFINED: + gen_defined_var(s, tree, val); + break; + + case NODE_ZSUPER: + gen_zsuper_var(s, tree, val); + break; + + case NODE_LAMBDA: + gen_lambda_var(s, tree, val); + break; + + case NODE_WORDS: + gen_words_var(s, tree, val); + break; + + case NODE_SYMBOLS: + gen_symbols_var(s, tree, val); + break; + + case NODE_SPLAT: + gen_splat_var(s, tree, val); + break; + + case NODE_BLOCK_ARG: + gen_block_arg_var(s, tree, val); + break; + + case NODE_SCOPE: + gen_scope_var(s, tree, val); + break; + + case NODE_BEGIN: + gen_begin_var(s, tree, val); + break; + + case NODE_ENSURE: + gen_ensure_var(s, tree, val); + break; + + case NODE_STMTS: + gen_stmts_var(s, tree, val); + break; + + case NODE_ALIAS: + gen_alias_var(s, tree, val); + break; + + case NODE_UNDEF: + gen_undef_var(s, tree, val); + break; + + case NODE_POSTEXE: + { + struct mrb_ast_postexe_node *postexe = postexe_node(tree); + codegen(s, postexe->body, NOVAL); + } + break; + + case NODE_SDEF: + gen_sdef_var(s, tree, val); + break; + + default: + /* Unhandled variable-sized node type - should not occur with current AST */ + break; } s->rlev = rlev; } @@ -6026,7 +5956,7 @@ scope_new(mrb_state *mrb, codegen_scope *prev, node *nlv) s->syms = (mrb_sym*)mrbc_malloc(sizeof(mrb_sym)*s->scapa); s->lv = nlv; - s->sp += node_len(nlv)+1; /* add self */ + s->sp += (nlv ? node_len(nlv) : 0) + 1; /* add self */ s->nlocals = s->nregs = s->sp; if (nlv) { mrb_sym *lv; diff --git a/mrbgems/mruby-compiler/core/node.h b/mrbgems/mruby-compiler/core/node.h index d62ce039c..9b51d92b4 100644 --- a/mrbgems/mruby-compiler/core/node.h +++ b/mrbgems/mruby-compiler/core/node.h @@ -85,7 +85,6 @@ enum node_type { NODE_HEREDOC, NODE_WORDS, NODE_SYMBOLS, - NODE_VARIABLE, NODE_LAST }; @@ -359,10 +358,6 @@ struct mrb_ast_super_node { #define node_to_type(x) ((enum node_type)(intptr_t)(x)) #define node_to_char(x) ((char)(intptr_t)(x)) -// Macros for variable-sized nodes -#define NODE_TYPE(n) ((enum node_type)(intptr_t)((n)->car)) -#define NODE_VAR_NODE_PTR(n) ((struct mrb_ast_var_header*)((n)->cdr)) - /* Phase 1 node casting macros */ #define sym_node(n) ((struct mrb_ast_sym_node*)(n)) #define str_node(n) ((struct mrb_ast_str_node*)(n)) diff --git a/mrbgems/mruby-compiler/core/parse.y b/mrbgems/mruby-compiler/core/parse.y index 3ea8e129e..4e3c579f3 100644 --- a/mrbgems/mruby-compiler/core/parse.y +++ b/mrbgems/mruby-compiler/core/parse.y @@ -72,7 +72,7 @@ typedef unsigned int stack_type; #define CMDARG_LEXPOP() BITSTACK_LEXPOP(p->cmdarg_stack) #define CMDARG_P() BITSTACK_SET_P(p->cmdarg_stack) -#define SET_LINENO(c,n) (((struct mrb_ast_var_header*)(c)->cdr)->lineno = (n)) +#define SET_LINENO(c,n) (((struct mrb_ast_var_header*)(c))->lineno = (n)) #define NUM_SUFFIX_R (1<<0) #define NUM_SUFFIX_I (1<<1) @@ -151,7 +151,6 @@ init_var_header(struct mrb_ast_var_header *header, parser_state *p, enum node_ty header->lineno = p->lineno; header->filename_index = p->current_filename_index; header->node_type = (uint8_t)type; - header->flags = 0; /* Handle file boundary edge case */ if (p->lineno == 0 && p->current_filename_index > 0) { @@ -349,13 +348,20 @@ node_type_p(node *n, enum node_type type) { if (!n) return FALSE; - /* Check traditional cons-list nodes */ - if (node_to_int(n->car) == type) return TRUE; + /* Check if this is a variable-sized node */ + struct mrb_ast_var_header *header = (struct mrb_ast_var_header*)n; + return ((enum node_type)header->node_type == type); +} - /* Check variable-sized nodes */ - if (n->car == (node*)NODE_VARIABLE && VAR_NODE_TYPE(n->cdr) == type) return TRUE; +/* Helper functions for variable-sized node detection */ +static enum node_type +get_node_type(node *n) +{ + if (!n) return (enum node_type)0; - return FALSE; + /* Try to interpret as variable-sized node first */ + struct mrb_ast_var_header *header = (struct mrb_ast_var_header*)n; + return (enum node_type)header->node_type; } static void @@ -381,10 +387,10 @@ static node* new_scope(parser_state *p, node *body) { struct mrb_ast_scope_node *scope_node = (struct mrb_ast_scope_node*)parser_palloc(p, sizeof(struct mrb_ast_scope_node)); - init_var_header(&scope_node->hdr, p, NODE_SCOPE); + init_var_header(&scope_node->header, p, NODE_SCOPE); scope_node->locals = locals_node(p); scope_node->body = body; - return cons((node*)NODE_VARIABLE, (node*)scope_node); + return (node*)scope_node; } /* (:begin prog...) */ @@ -393,10 +399,10 @@ new_stmts(parser_state *p, node *body) { struct mrb_ast_stmts_node *n = (struct mrb_ast_stmts_node*)parser_palloc(p, sizeof(struct mrb_ast_stmts_node)); - init_var_header(&n->hdr, p, NODE_STMTS); + init_var_header(&n->header, p, NODE_STMTS); n->stmts = body ? list1(body) : 0; /* Wrap single statement in cons-list */ - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:begin body) - Always use variable-sized nodes */ @@ -404,9 +410,9 @@ static node* new_begin(parser_state *p, node *body) { struct mrb_ast_begin_node *begin_node = (struct mrb_ast_begin_node*)parser_palloc(p, sizeof(struct mrb_ast_begin_node)); - init_var_header(&begin_node->hdr, p, NODE_BEGIN); + init_var_header(&begin_node->header, p, NODE_BEGIN); begin_node->body = body; - return cons((node*)NODE_VARIABLE, (node*)begin_node); + return (node*)begin_node; } #define newline_node(n) (n) @@ -416,12 +422,12 @@ static node* new_rescue(parser_state *p, node *body, node *resq, node *els) { struct mrb_ast_rescue_node *n = (struct mrb_ast_rescue_node*)parser_palloc(p, sizeof(struct mrb_ast_rescue_node)); - init_var_header(&n->hdr, p, NODE_RESCUE); + init_var_header(&n->header, p, NODE_RESCUE); n->body = body; n->rescue_clauses = resq; n->else_clause = els; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } static node* @@ -435,10 +441,10 @@ static node* new_ensure(parser_state *p, node *a, node *b) { struct mrb_ast_ensure_node *ensure_node = (struct mrb_ast_ensure_node*)parser_palloc(p, sizeof(struct mrb_ast_ensure_node)); - init_var_header(&ensure_node->hdr, p, NODE_ENSURE); + init_var_header(&ensure_node->header, p, NODE_ENSURE); ensure_node->body = a; ensure_node->ensure_clause = b; - return cons((node*)NODE_VARIABLE, (node*)ensure_node); + return (node*)ensure_node; } /* (:nil) */ @@ -446,9 +452,9 @@ static node* new_nil(parser_state *p) { struct mrb_ast_nil_node *n = (struct mrb_ast_nil_node*)parser_palloc(p, sizeof(struct mrb_ast_nil_node)); - init_var_header(&n->hdr, p, NODE_NIL); + init_var_header(&n->header, p, NODE_NIL); - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:true) */ @@ -456,9 +462,9 @@ static node* new_true(parser_state *p) { struct mrb_ast_true_node *n = (struct mrb_ast_true_node*)parser_palloc(p, sizeof(struct mrb_ast_true_node)); - init_var_header(&n->hdr, p, NODE_TRUE); + init_var_header(&n->header, p, NODE_TRUE); - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:false) */ @@ -466,9 +472,9 @@ static node* new_false(parser_state *p) { struct mrb_ast_false_node *n = (struct mrb_ast_false_node*)parser_palloc(p, sizeof(struct mrb_ast_false_node)); - init_var_header(&n->hdr, p, NODE_FALSE); + init_var_header(&n->header, p, NODE_FALSE); - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:alias new old) */ @@ -476,10 +482,10 @@ static node* new_alias(parser_state *p, mrb_sym a, mrb_sym b) { struct mrb_ast_alias_node *alias_node = (struct mrb_ast_alias_node*)parser_palloc(p, sizeof(struct mrb_ast_alias_node)); - init_var_header(&alias_node->hdr, p, NODE_ALIAS); + init_var_header(&alias_node->header, p, NODE_ALIAS); alias_node->new_name = a; alias_node->old_name = b; - return cons((node*)NODE_VARIABLE, (node*)alias_node); + return (node*)alias_node; } /* (:if cond then else) */ @@ -496,7 +502,7 @@ new_if(parser_state *p, node *condition, node *then_body, node *else_body) n->then_body = then_body; n->else_body = else_body; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:while cond body) */ @@ -512,7 +518,7 @@ new_while(parser_state *p, node *condition, node *body) n->condition = condition; n->body = body; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:until cond body) */ @@ -528,7 +534,7 @@ new_until(parser_state *p, node *condition, node *body) n->condition = condition; n->body = body; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:while_mod cond body) */ @@ -536,7 +542,7 @@ static node* new_while_mod(parser_state *p, node *condition, node *body) { node *while_node = new_while(p, condition, body); - struct mrb_ast_while_node *n = (struct mrb_ast_while_node*)NODE_VAR_NODE_PTR(while_node); + struct mrb_ast_while_node *n = (struct mrb_ast_while_node*)while_node; n->header.node_type = NODE_WHILE_MOD; return while_node; } @@ -546,7 +552,7 @@ static node* new_until_mod(parser_state *p, node *a, node *b) { node *until_node = new_until(p, a, b); - struct mrb_ast_until_node *n = (struct mrb_ast_until_node*)NODE_VAR_NODE_PTR(until_node); + struct mrb_ast_until_node *n = (struct mrb_ast_until_node*)until_node; n->header.node_type = NODE_UNTIL_MOD; return until_node; } @@ -563,7 +569,7 @@ new_for(parser_state *p, node *v, node *o, node *b) n->iterable = o; n->body = b; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:case a ((when ...) body) ((when...) body)) */ @@ -578,7 +584,7 @@ new_case(parser_state *p, node *a, node *b) n->value = a; n->body = b; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:postexe a) */ @@ -586,9 +592,9 @@ static node* new_postexe(parser_state *p, node *a) { struct mrb_ast_postexe_node *postexe_node = (struct mrb_ast_postexe_node*)parser_palloc(p, sizeof(struct mrb_ast_postexe_node)); - init_var_header(&postexe_node->hdr, p, NODE_POSTEXE); + init_var_header(&postexe_node->header, p, NODE_POSTEXE); postexe_node->body = a; - return cons((node*)NODE_VARIABLE, (node*)postexe_node); + return (node*)postexe_node; } /* (:self) */ @@ -596,9 +602,9 @@ static node* new_self(parser_state *p) { struct mrb_ast_self_node *n = (struct mrb_ast_self_node*)parser_palloc(p, sizeof(struct mrb_ast_self_node)); - init_var_header(&n->hdr, p, NODE_SELF); + init_var_header(&n->header, p, NODE_SELF); - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:call a b c) */ @@ -630,7 +636,7 @@ new_call(parser_state *p, node *receiver, mrb_sym method, node *args, int pass) n->args = args; void_expr_error(p, receiver); - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:fcall self mid args) */ @@ -664,7 +670,7 @@ new_super(parser_state *p, node *c) init_var_header(&n->header, p, NODE_SUPER); n->args = c; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:zsuper) */ @@ -674,7 +680,7 @@ new_zsuper(parser_state *p) struct mrb_ast_super_node *n = (struct mrb_ast_super_node*)parser_palloc(p, sizeof(struct mrb_ast_super_node)); init_var_header(&n->header, p, NODE_ZSUPER); n->args = NULL; /* zsuper initially has no args, but may be added by call_with_block */ - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:yield . c) */ @@ -691,7 +697,7 @@ new_yield(parser_state *p, node *c) init_var_header(&n->header, p, NODE_YIELD); n->args = c; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:return . c) */ @@ -702,7 +708,7 @@ new_return(parser_state *p, node *c) init_var_header(&n->header, p, NODE_RETURN); n->args = c; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:break . c) */ @@ -710,9 +716,9 @@ static node* new_break(parser_state *p, node *c) { struct mrb_ast_break_node *n = (struct mrb_ast_break_node*)parser_palloc(p, sizeof(struct mrb_ast_break_node)); - init_var_header(&n->hdr, p, NODE_BREAK); + init_var_header(&n->header, p, NODE_BREAK); n->value = c; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:next . c) */ @@ -720,9 +726,9 @@ static node* new_next(parser_state *p, node *c) { struct mrb_ast_next_node *n = (struct mrb_ast_next_node*)parser_palloc(p, sizeof(struct mrb_ast_next_node)); - init_var_header(&n->hdr, p, NODE_NEXT); + init_var_header(&n->header, p, NODE_NEXT); n->value = c; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:redo) */ @@ -730,8 +736,8 @@ static node* new_redo(parser_state *p) { struct mrb_ast_redo_node *n = (struct mrb_ast_redo_node*)parser_palloc(p, sizeof(struct mrb_ast_redo_node)); - init_var_header(&n->hdr, p, NODE_REDO); - return cons((node*)NODE_VARIABLE, (node*)n); + init_var_header(&n->header, p, NODE_REDO); + return (node*)n; } /* (:retry) */ @@ -739,8 +745,8 @@ static node* new_retry(parser_state *p) { struct mrb_ast_retry_node *n = (struct mrb_ast_retry_node*)parser_palloc(p, sizeof(struct mrb_ast_retry_node)); - init_var_header(&n->hdr, p, NODE_RETRY); - return cons((node*)NODE_VARIABLE, (node*)n); + init_var_header(&n->header, p, NODE_RETRY); + return (node*)n; } /* (:dot2 a b) */ @@ -748,11 +754,11 @@ static node* new_dot2(parser_state *p, node *a, node *b) { struct mrb_ast_dot2_node *n = (struct mrb_ast_dot2_node*)parser_palloc(p, sizeof(struct mrb_ast_dot2_node)); - init_var_header(&n->hdr, p, NODE_DOT2); + init_var_header(&n->header, p, NODE_DOT2); n->left = a; n->right = b; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:dot3 a b) */ @@ -760,11 +766,11 @@ static node* new_dot3(parser_state *p, node *a, node *b) { struct mrb_ast_dot3_node *n = (struct mrb_ast_dot3_node*)parser_palloc(p, sizeof(struct mrb_ast_dot3_node)); - init_var_header(&n->hdr, p, NODE_DOT3); + init_var_header(&n->header, p, NODE_DOT3); n->left = a; n->right = b; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:colon2 b c) */ @@ -774,10 +780,10 @@ new_colon2(parser_state *p, node *b, mrb_sym c) void_expr_error(p, b); struct mrb_ast_colon2_node *colon2_node = (struct mrb_ast_colon2_node*)parser_palloc(p, sizeof(struct mrb_ast_colon2_node)); - init_var_header(&colon2_node->hdr, p, NODE_COLON2); + init_var_header(&colon2_node->header, p, NODE_COLON2); colon2_node->base = b; colon2_node->name = c; - return cons((node*)NODE_VARIABLE, (node*)colon2_node); + return (node*)colon2_node; } /* (:colon3 . c) */ @@ -785,9 +791,9 @@ static node* new_colon3(parser_state *p, mrb_sym c) { struct mrb_ast_colon3_node *colon3_node = (struct mrb_ast_colon3_node*)parser_palloc(p, sizeof(struct mrb_ast_colon3_node)); - init_var_header(&colon3_node->hdr, p, NODE_COLON3); + init_var_header(&colon3_node->header, p, NODE_COLON3); colon3_node->name = c; - return cons((node*)NODE_VARIABLE, (node*)colon3_node); + return (node*)colon3_node; } /* (:and a b) */ @@ -801,7 +807,7 @@ new_and(parser_state *p, node *a, node *b) n->left = a; n->right = b; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:or a b) */ @@ -815,7 +821,7 @@ new_or(parser_state *p, node *a, node *b) n->left = a; n->right = b; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:array a...) */ @@ -827,7 +833,7 @@ new_array(parser_state *p, node *a) init_var_header(&n->header, p, NODE_ARRAY); n->elements = a; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:splat . a) */ @@ -837,9 +843,9 @@ new_splat(parser_state *p, node *a) void_expr_error(p, a); struct mrb_ast_splat_node *splat_node = (struct mrb_ast_splat_node*)parser_palloc(p, sizeof(struct mrb_ast_splat_node)); - init_var_header(&splat_node->hdr, p, NODE_SPLAT); + init_var_header(&splat_node->header, p, NODE_SPLAT); splat_node->value = a; - return cons((node*)NODE_VARIABLE, (node*)splat_node); + return (node*)splat_node; } /* (:hash (k . v) (k . v)...) */ @@ -851,7 +857,7 @@ new_hash(parser_state *p, node *a) init_var_header(&n->header, p, NODE_HASH); n->pairs = a; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:sym . a) */ @@ -866,7 +872,7 @@ new_sym(parser_state *p, mrb_sym sym) init_var_header(&n->header, p, NODE_SYM); n->symbol = sym; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } static node* @@ -879,7 +885,7 @@ new_xvar(parser_state *p, mrb_sym sym, enum node_type type) init_var_header(&n->header, p, type); n->symbol = sym; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } #define new_lvar(p, sym) new_xvar(p, sym, NODE_LVAR) @@ -920,9 +926,9 @@ new_nvar(parser_state *p, int num) p->nvars->car = int_to_node(nvar > num ? nvar : num); } struct mrb_ast_nvar_node *n = (struct mrb_ast_nvar_node*)parser_palloc(p, sizeof(struct mrb_ast_nvar_node)); - init_var_header(&n->hdr, p, NODE_NVAR); + init_var_header(&n->header, p, NODE_NVAR); n->num = num; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:const . a) */ @@ -930,10 +936,10 @@ static node* new_const(parser_state *p, mrb_sym sym) { struct mrb_ast_const_node *n = (struct mrb_ast_const_node*)parser_palloc(p, sizeof(struct mrb_ast_const_node)); - init_var_header(&n->hdr, p, NODE_CONST); + init_var_header(&n->header, p, NODE_CONST); n->symbol = sym; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:undef a...) */ @@ -941,9 +947,9 @@ static node* new_undef(parser_state *p, node *syms) { struct mrb_ast_undef_node *undef_node = (struct mrb_ast_undef_node*)parser_palloc(p, sizeof(struct mrb_ast_undef_node)); - init_var_header(&undef_node->hdr, p, NODE_UNDEF); + init_var_header(&undef_node->header, p, NODE_UNDEF); undef_node->syms = syms; - return cons((node*)NODE_VARIABLE, (node*)undef_node); + return (node*)undef_node; } /* (:class class super body) */ @@ -958,7 +964,7 @@ new_class(parser_state *p, node *c, node *s, node *b) n->superclass = s; n->body = cons(locals_node(p), b); - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:sclass obj body) */ @@ -972,7 +978,7 @@ new_sclass(parser_state *p, node *o, node *b) n->obj = o; n->body = cons(locals_node(p), b); - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:module module body) */ @@ -984,7 +990,7 @@ new_module(parser_state *p, node *m, node *b) n->name = m; n->body = cons(locals_node(p), b); - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:def m lv (arg . body)) */ @@ -998,13 +1004,13 @@ new_def(parser_state *p, mrb_sym name) n->locals = local_switch(p); n->body = NULL; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } static void defn_setup(parser_state *p, node *d, node *a, node *b) { - struct mrb_ast_def_node *n = def_node(d->cdr); + struct mrb_ast_def_node *n = def_node(d); node *locals = n->locals; n->locals = locals_node(p); @@ -1027,35 +1033,33 @@ new_sdef(parser_state *p, node *o, mrb_sym name) sdef_node->args = (struct mrb_ast_args *)int_to_node(p->cmdarg_stack); sdef_node->locals = local_switch(p); sdef_node->body = NULL; - return cons((node*)NODE_VARIABLE, (node*)sdef_node); + return (node*)sdef_node; } static void local_add_margs(parser_state *p, node *n) { while (n) { - if (node_to_type(n->car->car) == NODE_VARIABLE) { - if (VAR_NODE_TYPE(n->car->cdr) == NODE_MASGN) { - struct mrb_ast_masgn_node *masgn_n = (struct mrb_ast_masgn_node*)n->car->cdr; - node *lhs = masgn_n->lhs; - node *rhs = masgn_n->rhs; + if (get_node_type(n->car) == NODE_MASGN) { + struct mrb_ast_masgn_node *masgn_n = (struct mrb_ast_masgn_node*)n->car; + node *lhs = masgn_n->lhs; + node *rhs = masgn_n->rhs; - /* For parameter destructuring, rhs contains the locals */ - if (rhs) { - node *t = rhs; - while (t) { - local_add_f(p, node_to_sym(t->car)); - t = t->cdr; - } + /* For parameter destructuring, rhs contains the locals */ + if (rhs) { + node *t = rhs; + while (t) { + local_add_f(p, node_to_sym(t->car)); + t = t->cdr; } + } - /* Process nested destructuring in lhs */ - if (lhs && lhs->car) { - local_add_margs(p, lhs->car); - } - if (lhs && lhs->cdr && lhs->cdr->cdr && lhs->cdr->cdr->car) { - local_add_margs(p, lhs->cdr->cdr->car); - } + /* Process nested destructuring in lhs */ + if (lhs && lhs->car) { + local_add_margs(p, lhs->car); + } + if (lhs && lhs->cdr && lhs->cdr->cdr && lhs->cdr->cdr->car) { + local_add_margs(p, lhs->cdr->cdr->car); } } n = n->cdr; @@ -1182,9 +1186,9 @@ static node* new_block_arg(parser_state *p, node *a) { struct mrb_ast_block_arg_node *block_arg_node = (struct mrb_ast_block_arg_node*)parser_palloc(p, sizeof(struct mrb_ast_block_arg_node)); - init_var_header(&block_arg_node->hdr, p, NODE_BLOCK_ARG); + init_var_header(&block_arg_node->header, p, NODE_BLOCK_ARG); block_arg_node->value = a; - return cons((node*)NODE_VARIABLE, (node*)block_arg_node); + return (node*)block_arg_node; } static node* @@ -1224,12 +1228,12 @@ static node* new_block(parser_state *p, node *a, node *b) { a = setup_numparams(p, a); struct mrb_ast_block_node *n = (struct mrb_ast_block_node*)parser_palloc(p, sizeof(struct mrb_ast_block_node)); - init_var_header(&n->hdr, p, NODE_BLOCK); + init_var_header(&n->header, p, NODE_BLOCK); n->locals = locals_node(p); n->args = (struct mrb_ast_args *)a; n->body = b; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:lambda arg body) */ @@ -1237,11 +1241,11 @@ static node* new_lambda(parser_state *p, node *a, node *b) { a = setup_numparams(p, a); struct mrb_ast_lambda_node *lambda_node = (struct mrb_ast_lambda_node*)parser_palloc(p, sizeof(struct mrb_ast_lambda_node)); - init_var_header(&lambda_node->hdr, p, NODE_LAMBDA); + init_var_header(&lambda_node->header, p, NODE_LAMBDA); lambda_node->locals = locals_node(p); lambda_node->args = (struct mrb_ast_args *)a; lambda_node->body = b; - return cons((node*)NODE_VARIABLE, (node*)lambda_node); + return (node*)lambda_node; } /* (:asgn lhs rhs) */ @@ -1255,7 +1259,7 @@ new_asgn(parser_state *p, node *a, node *b) n->lhs = a; n->rhs = b; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:masgn mlhs=(pre rest post) mrhs) */ @@ -1269,7 +1273,7 @@ new_masgn(parser_state *p, node *a, node *b) n->lhs = a; n->rhs = b; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:masgn mlhs mrhs) no check */ @@ -1281,7 +1285,7 @@ new_masgn_param(parser_state *p, node *a, node *b) n->lhs = a; n->rhs = b; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:asgn lhs rhs) */ @@ -1295,7 +1299,7 @@ new_op_asgn(parser_state *p, node *a, mrb_sym op, node *b) n->lhs = a; n->op = op; n->rhs = b; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } static node* @@ -1307,7 +1311,7 @@ new_int_n(parser_state *p, int32_t val) init_var_header(&n->header, p, NODE_INT); n->value = val; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } static node* @@ -1417,7 +1421,7 @@ new_int(parser_state *p, const char *s, int base, int suffix) n->string = strdup(s); n->base = base; - result = cons((node*)NODE_VARIABLE, (node*)n); + result = (node*)n; } /* Handle suffix modifiers */ @@ -1437,10 +1441,10 @@ static node* new_float(parser_state *p, const char *s, int suffix) { struct mrb_ast_float_node *n = (struct mrb_ast_float_node*)parser_palloc(p, sizeof(struct mrb_ast_float_node)); - init_var_header(&n->hdr, p, NODE_FLOAT); + init_var_header(&n->header, p, NODE_FLOAT); n->value = strdup(s); - node* result = cons((node*)NODE_VARIABLE, (node*)n); + node* result = (node*)n; if (suffix & NUM_SUFFIX_R) { result = new_rational(p, result); @@ -1458,10 +1462,10 @@ static node* new_str(parser_state *p, node *a) { struct mrb_ast_str_node *n = (struct mrb_ast_str_node*)parser_palloc(p, sizeof(struct mrb_ast_str_node)); - init_var_header(&n->hdr, p, NODE_STR); + init_var_header(&n->header, p, NODE_STR); n->list = a; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:xstr . a) */ @@ -1469,9 +1473,9 @@ static node* new_xstr(parser_state *p, node *a) { struct mrb_ast_xstr_node *n = (struct mrb_ast_xstr_node*)parser_palloc(p, sizeof(struct mrb_ast_xstr_node)); - init_var_header(&n->hdr, p, NODE_XSTR); + init_var_header(&n->header, p, NODE_XSTR); n->list = a; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:dsym . a) */ @@ -1479,9 +1483,9 @@ static node* new_dsym(parser_state *p, node *a) { struct mrb_ast_dsym_node *n = (struct mrb_ast_dsym_node*)parser_palloc(p, sizeof(struct mrb_ast_dsym_node)); - init_var_header(&n->hdr, p, NODE_DSYM); + init_var_header(&n->header, p, NODE_DSYM); n->list = a; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:dregx . (list . (flags . encoding))) */ @@ -1489,11 +1493,11 @@ static node* new_dregx(parser_state *p, node *list, const char *flags, const char *encoding) { struct mrb_ast_dregx_node *n = (struct mrb_ast_dregx_node*)parser_palloc(p, sizeof(struct mrb_ast_dregx_node)); - init_var_header(&n->hdr, p, NODE_DREGX); + init_var_header(&n->header, p, NODE_DREGX); n->list = list; n->flags = flags; n->encoding = encoding; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:backref . n) */ @@ -1501,9 +1505,9 @@ static node* new_back_ref(parser_state *p, int n) { struct mrb_ast_back_ref_node *backref_node = (struct mrb_ast_back_ref_node*)parser_palloc(p, sizeof(struct mrb_ast_back_ref_node)); - init_var_header(&backref_node->hdr, p, NODE_BACK_REF); + init_var_header(&backref_node->header, p, NODE_BACK_REF); backref_node->type = n; - return cons((node*)NODE_VARIABLE, (node*)backref_node); + return (node*)backref_node; } /* (:nthref . n) */ @@ -1511,9 +1515,9 @@ static node* new_nth_ref(parser_state *p, int n) { struct mrb_ast_nth_ref_node *nthref_node = (struct mrb_ast_nth_ref_node*)parser_palloc(p, sizeof(struct mrb_ast_nth_ref_node)); - init_var_header(&nthref_node->hdr, p, NODE_NTH_REF); + init_var_header(&nthref_node->header, p, NODE_NTH_REF); nthref_node->nth = n; - return cons((node*)NODE_VARIABLE, (node*)nthref_node); + return (node*)nthref_node; } /* (:heredoc . a) */ @@ -1521,7 +1525,7 @@ static node* new_heredoc(parser_state *p, struct mrb_parser_heredoc_info **infop) { struct mrb_ast_heredoc_node *n = (struct mrb_ast_heredoc_node*)parser_palloc(p, sizeof(struct mrb_ast_heredoc_node)); - init_var_header(&n->hdr, p, NODE_HEREDOC); + init_var_header(&n->header, p, NODE_HEREDOC); /* Initialize embedded heredoc info struct */ n->info.allow_indent = FALSE; @@ -1537,7 +1541,7 @@ new_heredoc(parser_state *p, struct mrb_parser_heredoc_info **infop) /* Return pointer to embedded info if requested */ *infop = &n->info; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } static void @@ -1577,9 +1581,9 @@ static node* new_words(parser_state *p, node *a) { struct mrb_ast_words_node *words_node = (struct mrb_ast_words_node*)parser_palloc(p, sizeof(struct mrb_ast_words_node)); - init_var_header(&words_node->hdr, p, NODE_WORDS); + init_var_header(&words_node->header, p, NODE_WORDS); words_node->args = a; - return cons((node*)NODE_VARIABLE, (node*)words_node); + return (node*)words_node; } /* (:symbols . a) */ @@ -1587,9 +1591,9 @@ static node* new_symbols(parser_state *p, node *a) { struct mrb_ast_symbols_node *symbols_node = (struct mrb_ast_symbols_node*)parser_palloc(p, sizeof(struct mrb_ast_symbols_node)); - init_var_header(&symbols_node->hdr, p, NODE_SYMBOLS); + init_var_header(&symbols_node->header, p, NODE_SYMBOLS); symbols_node->args = a; - return cons((node*)NODE_VARIABLE, (node*)symbols_node); + return (node*)symbols_node; } /* xxx ----------------------------- */ @@ -1625,7 +1629,8 @@ args_with_block(parser_state *p, node *a, node *b) static void endless_method_name(parser_state *p, node *defn) { - mrb_sym sym = node_to_sym(defn->cdr->car); + struct mrb_ast_def_node *def = (struct mrb_ast_def_node*)defn; + mrb_sym sym = def->name; mrb_int len; const char *name = mrb_sym_name_len(p->mrb, sym, &len); @@ -1640,18 +1645,18 @@ endless_method_name(parser_state *p, node *defn) static void call_with_block(parser_state *p, node *a, node *b) { - /* Only handle variable-sized nodes wrapped in NODE_VARIABLE */ - if (node_to_type(a->car) != NODE_VARIABLE) { - return; - } + if (!a) return; - enum node_type var_type = VAR_NODE_TYPE(a->cdr); + /* Handle direct variable-sized nodes */ + struct mrb_ast_var_header *header = (struct mrb_ast_var_header*)a; + + enum node_type var_type = (enum node_type)header->node_type; switch (var_type) { case NODE_SUPER: case NODE_ZSUPER: /* For variable-sized super/zsuper nodes, update the args field directly */ { - struct mrb_ast_super_node *super_n = super_node(a->cdr); + struct mrb_ast_super_node *super_n = super_node(a); if (!super_n->args) { super_n->args = new_callargs(p, 0, 0, b); } @@ -1667,7 +1672,7 @@ call_with_block(parser_state *p, node *a, node *b) case NODE_RETURN: /* Variable-sized return nodes - recursively call with args */ { - struct mrb_ast_return_node *return_n = return_node(a->cdr); + struct mrb_ast_return_node *return_n = return_node(a); if (return_n->args != NULL) { call_with_block(p, return_n->args, b); } @@ -1676,7 +1681,7 @@ call_with_block(parser_state *p, node *a, node *b) case NODE_BREAK: /* Variable-sized break nodes - recursively call with value */ { - struct mrb_ast_break_node *break_n = (struct mrb_ast_break_node*)a->cdr; + struct mrb_ast_break_node *break_n = (struct mrb_ast_break_node*)a; if (break_n->value != NULL) { call_with_block(p, break_n->value, b); } @@ -1685,7 +1690,7 @@ call_with_block(parser_state *p, node *a, node *b) case NODE_NEXT: /* Variable-sized next nodes - recursively call with value */ { - struct mrb_ast_next_node *next_n = (struct mrb_ast_next_node*)a->cdr; + struct mrb_ast_next_node *next_n = (struct mrb_ast_next_node*)a; if (next_n->value != NULL) { call_with_block(p, next_n->value, b); } @@ -1694,7 +1699,7 @@ call_with_block(parser_state *p, node *a, node *b) case NODE_CALL: /* Variable-sized call nodes - add block to existing args */ { - struct mrb_ast_call_node *call = call_node(a->cdr); + struct mrb_ast_call_node *call = call_node(a); if (call->has_block) { yyerror(NULL, p, "both block arg and actual block given"); @@ -1723,9 +1728,9 @@ static node* new_negate(parser_state *p, node *n) { struct mrb_ast_negate_node *negate_node = (struct mrb_ast_negate_node*)parser_palloc(p, sizeof(struct mrb_ast_negate_node)); - init_var_header(&negate_node->hdr, p, NODE_NEGATE); + init_var_header(&negate_node->header, p, NODE_NEGATE); negate_node->operand = n; - return cons((node*)NODE_VARIABLE, (node*)negate_node); + return (node*)negate_node; } static node* @@ -1751,35 +1756,30 @@ ret_args(parser_state *p, node *n) static void assignable(parser_state *p, node *lhs) { - if (node_to_int(lhs->car) == NODE_VARIABLE) { - node *var_node = lhs->cdr; - switch (VAR_NODE_TYPE(var_node)) { - case NODE_LVAR: - local_add(p, VAR_NODE_SYMBOL(var_node)); - break; - case NODE_CONST: - if (p->in_def) - yyerror(NULL, p, "dynamic constant assignment"); - break; - default: - /* Other node types don't need special handling in assignable */ - break; - } + switch (get_node_type(lhs)) { + case NODE_LVAR: + local_add(p, VAR_NODE_SYMBOL(lhs)); + break; + case NODE_CONST: + if (p->in_def) + yyerror(NULL, p, "dynamic constant assignment"); + break; + default: + /* Other node types don't need special handling in assignable */ + break; } } static node* var_reference(parser_state *p, node *lhs) { - if (node_to_int(lhs->car) == NODE_VARIABLE) { - node *var_node = lhs->cdr; - if (VAR_NODE_TYPE(var_node) == NODE_LVAR) { - mrb_sym sym = VAR_NODE_SYMBOL(var_node); - if (!local_var_p(p, sym)) { - node *n = new_fcall(p, sym, 0); - /* Don't free variable-sized nodes - they're managed by the parser allocator */ - return n; - } + /* Check if this is a variable-sized node */ + if (node_type_p(lhs, NODE_LVAR)) { + mrb_sym sym = VAR_NODE_SYMBOL(lhs); + if (!local_var_p(p, sym)) { + node *n = new_fcall(p, sym, 0); + /* Don't free variable-sized nodes - they're managed by the parser allocator */ + return n; } } return lhs; @@ -1853,9 +1853,9 @@ parsing_heredoc_info(parser_state *p) node *nd = p->parsing_heredoc; if (nd == NULL) return NULL; /* mrb_assert(nd->car->car == NODE_HEREDOC); */ - if (nd->car->car == (node*)NODE_VARIABLE) { + if (get_node_type(nd->car) == NODE_HEREDOC) { /* Variable-sized heredoc node - return address of embedded info struct */ - struct mrb_ast_heredoc_node *heredoc = heredoc_node(NODE_VAR_NODE_PTR(nd->car)); + struct mrb_ast_heredoc_node *heredoc = (struct mrb_ast_heredoc_node*)nd->car; return &heredoc->info; } return (parser_heredoc_info*)nd->car->cdr; @@ -1895,7 +1895,8 @@ prohibit_literals(parser_state *p, node *n) yyerror(NULL, p, "can't define singleton method for ()."); } else { - switch (node_to_type(n->car)) { + enum node_type nt = get_node_type(n); + switch (nt) { case NODE_INT: case NODE_STR: case NODE_XSTR: @@ -2183,7 +2184,7 @@ stmts : none | stmts terms stmt { /* Update the cons-list inside the existing variable-sized node */ - STMTS_NODE_STMTS($1->cdr) = push(STMTS_NODE_STMTS($1->cdr), newline_node($3)); + STMTS_NODE_STMTS($1) = push(STMTS_NODE_STMTS($1), newline_node($3)); $$ = $1; } | error stmt @@ -4718,45 +4719,56 @@ backref_error(parser_state *p, node *n) static void void_expr_error(parser_state *p, node *n) { - int c; - if (n == NULL) return; - c = node_to_int(n->car); - switch (c) { - case NODE_VARIABLE: + + /* Check if this is a variable-sized node first */ + struct mrb_ast_var_header *header = (struct mrb_ast_var_header*)n; + if (header && header->node_type >= NODE_SCOPE && header->node_type <= NODE_NEGATE) { /* Handle variable-sized nodes */ - switch (VAR_NODE_TYPE(n->cdr)) { + switch ((enum node_type)header->node_type) { case NODE_BREAK: case NODE_RETURN: case NODE_NEXT: case NODE_REDO: case NODE_RETRY: yyerror(NULL, p, "void value expression"); - break; + return; case NODE_AND: case NODE_OR: { - struct mrb_ast_and_node *and_n = (struct mrb_ast_and_node*)n->cdr; + struct mrb_ast_and_node *and_n = (struct mrb_ast_and_node*)n; void_expr_error(p, (node*)and_n->left); void_expr_error(p, (node*)and_n->right); } - break; - default: - break; - } - break; - case NODE_STMTS: - case NODE_BEGIN: - if (n->cdr) { - while (n->cdr) { - n = n->cdr; + return; + case NODE_STMTS: + { + struct mrb_ast_stmts_node *stmts = (struct mrb_ast_stmts_node*)n; + node *last = stmts->stmts; + if (last) { + /* Find the last statement in the cons list */ + while (last->cdr) { + last = last->cdr; + } + void_expr_error(p, last->car); + } } - void_expr_error(p, n->car); + return; + case NODE_BEGIN: + { + struct mrb_ast_begin_node *begin_n = (struct mrb_ast_begin_node*)n; + if (begin_n->body) { + void_expr_error(p, (node*)begin_n->body); + } + } + return; + default: + /* Other variable-sized nodes are OK */ + return; } - break; - default: - break; } + + /* Should not reach here - all nodes should be variable-sized now */ } static void pushback(parser_state *p, int c); @@ -7068,7 +7080,7 @@ parser_update_cxt(parser_state *p, mrb_ccontext *cxt) if (!node_type_p(p->tree, NODE_SCOPE)) return; /* Extract locals from variable-sized NODE_SCOPE */ - struct mrb_ast_scope_node *scope = scope_node(p->tree->cdr); + struct mrb_ast_scope_node *scope = scope_node(p->tree); n0 = n = scope->locals; while (n) { i++; @@ -8242,43 +8254,6 @@ mrb_parser_dump(mrb_state *mrb, node *tree, int offset) dump_recur(mrb, ((parser_heredoc_info*)tree)->doc, offset+1); break; - case NODE_VARIABLE: - /* Handle variable-sized nodes wrapped in NODE_VARIABLE */ - { - enum node_type var_type = VAR_NODE_TYPE(tree); - switch (var_type) { - case NODE_SCOPE: - printf("NODE_SCOPE:\n"); - { - struct mrb_ast_scope_node *scope = scope_node(tree); - node *n2 = scope->locals; - mrb_bool first_lval = TRUE; - - if (n2 && (n2->car || n2->cdr)) { - dump_prefix(tree, offset+1); - printf("local variables:\n"); - dump_prefix(tree, offset+2); - while (n2) { - if (n2->car) { - if (!first_lval) printf(", "); - printf("%s", mrb_sym_name(mrb, node_to_sym(n2->car))); - first_lval = FALSE; - } - n2 = n2->cdr; - } - printf("\n"); - } - } - tree = scope_node(tree)->body; - offset++; - goto again; - - default: - printf("NODE_VARIABLE (unsupported type: %d)\n", var_type); - break; - } - } - break; default: printf("node type: %d (0x%x)\n", nodetype, (unsigned)nodetype); @@ -8296,7 +8271,7 @@ mrb_parser_foreach_top_variable(mrb_state *mrb, struct mrb_parser_state *p, mrb_ const mrb_ast_node *n = p->tree; if (node_type_p((node*)n, NODE_SCOPE)) { /* Extract locals from variable-sized NODE_SCOPE */ - struct mrb_ast_scope_node *scope = scope_node(n->cdr); + struct mrb_ast_scope_node *scope = scope_node(n); n = scope->locals; for (; n; n = n->cdr) { mrb_sym sym = node_to_sym(n->car); diff --git a/mrbgems/mruby-compiler/core/y.tab.c b/mrbgems/mruby-compiler/core/y.tab.c index e07ae07c9..a1d0c73c2 100644 --- a/mrbgems/mruby-compiler/core/y.tab.c +++ b/mrbgems/mruby-compiler/core/y.tab.c @@ -134,7 +134,7 @@ typedef unsigned int stack_type; #define CMDARG_LEXPOP() BITSTACK_LEXPOP(p->cmdarg_stack) #define CMDARG_P() BITSTACK_SET_P(p->cmdarg_stack) -#define SET_LINENO(c,n) (((struct mrb_ast_var_header*)(c)->cdr)->lineno = (n)) +#define SET_LINENO(c,n) (((struct mrb_ast_var_header*)(c))->lineno = (n)) #define NUM_SUFFIX_R (1<<0) #define NUM_SUFFIX_I (1<<1) @@ -410,13 +410,20 @@ node_type_p(node *n, enum node_type type) { if (!n) return FALSE; - /* Check traditional cons-list nodes */ - if (node_to_int(n->car) == type) return TRUE; + /* Check if this is a variable-sized node */ + struct mrb_ast_var_header *header = (struct mrb_ast_var_header*)n; + return ((enum node_type)header->node_type == type); +} - /* Check variable-sized nodes */ - if (n->car == (node*)NODE_VARIABLE && VAR_NODE_TYPE(n->cdr) == type) return TRUE; +/* Helper functions for variable-sized node detection */ +static enum node_type +get_node_type(node *n) +{ + if (!n) return (enum node_type)0; - return FALSE; + /* Try to interpret as variable-sized node first */ + struct mrb_ast_var_header *header = (struct mrb_ast_var_header*)n; + return (enum node_type)header->node_type; } static void @@ -445,7 +452,7 @@ new_scope(parser_state *p, node *body) init_var_header(&scope_node->header, p, NODE_SCOPE); scope_node->locals = locals_node(p); scope_node->body = body; - return cons((node*)NODE_VARIABLE, (node*)scope_node); + return (node*)scope_node; } /* (:begin prog...) */ @@ -457,7 +464,7 @@ new_stmts(parser_state *p, node *body) init_var_header(&n->header, p, NODE_STMTS); n->stmts = body ? list1(body) : 0; /* Wrap single statement in cons-list */ - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:begin body) - Always use variable-sized nodes */ @@ -467,7 +474,7 @@ new_begin(parser_state *p, node *body) struct mrb_ast_begin_node *begin_node = (struct mrb_ast_begin_node*)parser_palloc(p, sizeof(struct mrb_ast_begin_node)); init_var_header(&begin_node->header, p, NODE_BEGIN); begin_node->body = body; - return cons((node*)NODE_VARIABLE, (node*)begin_node); + return (node*)begin_node; } #define newline_node(n) (n) @@ -482,7 +489,7 @@ new_rescue(parser_state *p, node *body, node *resq, node *els) n->rescue_clauses = resq; n->else_clause = els; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } static node* @@ -499,7 +506,7 @@ new_ensure(parser_state *p, node *a, node *b) init_var_header(&ensure_node->header, p, NODE_ENSURE); ensure_node->body = a; ensure_node->ensure_clause = b; - return cons((node*)NODE_VARIABLE, (node*)ensure_node); + return (node*)ensure_node; } /* (:nil) */ @@ -509,7 +516,7 @@ new_nil(parser_state *p) struct mrb_ast_nil_node *n = (struct mrb_ast_nil_node*)parser_palloc(p, sizeof(struct mrb_ast_nil_node)); init_var_header(&n->header, p, NODE_NIL); - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:true) */ @@ -519,7 +526,7 @@ new_true(parser_state *p) struct mrb_ast_true_node *n = (struct mrb_ast_true_node*)parser_palloc(p, sizeof(struct mrb_ast_true_node)); init_var_header(&n->header, p, NODE_TRUE); - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:false) */ @@ -529,7 +536,7 @@ new_false(parser_state *p) struct mrb_ast_false_node *n = (struct mrb_ast_false_node*)parser_palloc(p, sizeof(struct mrb_ast_false_node)); init_var_header(&n->header, p, NODE_FALSE); - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:alias new old) */ @@ -540,7 +547,7 @@ new_alias(parser_state *p, mrb_sym a, mrb_sym b) init_var_header(&alias_node->header, p, NODE_ALIAS); alias_node->new_name = a; alias_node->old_name = b; - return cons((node*)NODE_VARIABLE, (node*)alias_node); + return (node*)alias_node; } /* (:if cond then else) */ @@ -557,7 +564,7 @@ new_if(parser_state *p, node *condition, node *then_body, node *else_body) n->then_body = then_body; n->else_body = else_body; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:while cond body) */ @@ -573,7 +580,7 @@ new_while(parser_state *p, node *condition, node *body) n->condition = condition; n->body = body; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:until cond body) */ @@ -589,7 +596,7 @@ new_until(parser_state *p, node *condition, node *body) n->condition = condition; n->body = body; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:while_mod cond body) */ @@ -597,7 +604,7 @@ static node* new_while_mod(parser_state *p, node *condition, node *body) { node *while_node = new_while(p, condition, body); - struct mrb_ast_while_node *n = (struct mrb_ast_while_node*)NODE_VAR_NODE_PTR(while_node); + struct mrb_ast_while_node *n = (struct mrb_ast_while_node*)while_node; n->header.node_type = NODE_WHILE_MOD; return while_node; } @@ -607,7 +614,7 @@ static node* new_until_mod(parser_state *p, node *a, node *b) { node *until_node = new_until(p, a, b); - struct mrb_ast_until_node *n = (struct mrb_ast_until_node*)NODE_VAR_NODE_PTR(until_node); + struct mrb_ast_until_node *n = (struct mrb_ast_until_node*)until_node; n->header.node_type = NODE_UNTIL_MOD; return until_node; } @@ -624,7 +631,7 @@ new_for(parser_state *p, node *v, node *o, node *b) n->iterable = o; n->body = b; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:case a ((when ...) body) ((when...) body)) */ @@ -639,7 +646,7 @@ new_case(parser_state *p, node *a, node *b) n->value = a; n->body = b; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:postexe a) */ @@ -649,7 +656,7 @@ new_postexe(parser_state *p, node *a) struct mrb_ast_postexe_node *postexe_node = (struct mrb_ast_postexe_node*)parser_palloc(p, sizeof(struct mrb_ast_postexe_node)); init_var_header(&postexe_node->header, p, NODE_POSTEXE); postexe_node->body = a; - return cons((node*)NODE_VARIABLE, (node*)postexe_node); + return (node*)postexe_node; } /* (:self) */ @@ -659,7 +666,7 @@ new_self(parser_state *p) struct mrb_ast_self_node *n = (struct mrb_ast_self_node*)parser_palloc(p, sizeof(struct mrb_ast_self_node)); init_var_header(&n->header, p, NODE_SELF); - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:call a b c) */ @@ -691,7 +698,7 @@ new_call(parser_state *p, node *receiver, mrb_sym method, node *args, int pass) n->args = args; void_expr_error(p, receiver); - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:fcall self mid args) */ @@ -725,7 +732,7 @@ new_super(parser_state *p, node *c) init_var_header(&n->header, p, NODE_SUPER); n->args = c; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:zsuper) */ @@ -735,7 +742,7 @@ new_zsuper(parser_state *p) struct mrb_ast_super_node *n = (struct mrb_ast_super_node*)parser_palloc(p, sizeof(struct mrb_ast_super_node)); init_var_header(&n->header, p, NODE_ZSUPER); n->args = NULL; /* zsuper initially has no args, but may be added by call_with_block */ - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:yield . c) */ @@ -752,7 +759,7 @@ new_yield(parser_state *p, node *c) init_var_header(&n->header, p, NODE_YIELD); n->args = c; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:return . c) */ @@ -763,7 +770,7 @@ new_return(parser_state *p, node *c) init_var_header(&n->header, p, NODE_RETURN); n->args = c; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:break . c) */ @@ -773,7 +780,7 @@ new_break(parser_state *p, node *c) struct mrb_ast_break_node *n = (struct mrb_ast_break_node*)parser_palloc(p, sizeof(struct mrb_ast_break_node)); init_var_header(&n->header, p, NODE_BREAK); n->value = c; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:next . c) */ @@ -783,7 +790,7 @@ new_next(parser_state *p, node *c) struct mrb_ast_next_node *n = (struct mrb_ast_next_node*)parser_palloc(p, sizeof(struct mrb_ast_next_node)); init_var_header(&n->header, p, NODE_NEXT); n->value = c; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:redo) */ @@ -792,7 +799,7 @@ new_redo(parser_state *p) { struct mrb_ast_redo_node *n = (struct mrb_ast_redo_node*)parser_palloc(p, sizeof(struct mrb_ast_redo_node)); init_var_header(&n->header, p, NODE_REDO); - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:retry) */ @@ -801,7 +808,7 @@ new_retry(parser_state *p) { struct mrb_ast_retry_node *n = (struct mrb_ast_retry_node*)parser_palloc(p, sizeof(struct mrb_ast_retry_node)); init_var_header(&n->header, p, NODE_RETRY); - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:dot2 a b) */ @@ -813,7 +820,7 @@ new_dot2(parser_state *p, node *a, node *b) n->left = a; n->right = b; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:dot3 a b) */ @@ -825,7 +832,7 @@ new_dot3(parser_state *p, node *a, node *b) n->left = a; n->right = b; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:colon2 b c) */ @@ -838,7 +845,7 @@ new_colon2(parser_state *p, node *b, mrb_sym c) init_var_header(&colon2_node->header, p, NODE_COLON2); colon2_node->base = b; colon2_node->name = c; - return cons((node*)NODE_VARIABLE, (node*)colon2_node); + return (node*)colon2_node; } /* (:colon3 . c) */ @@ -848,7 +855,7 @@ new_colon3(parser_state *p, mrb_sym c) struct mrb_ast_colon3_node *colon3_node = (struct mrb_ast_colon3_node*)parser_palloc(p, sizeof(struct mrb_ast_colon3_node)); init_var_header(&colon3_node->header, p, NODE_COLON3); colon3_node->name = c; - return cons((node*)NODE_VARIABLE, (node*)colon3_node); + return (node*)colon3_node; } /* (:and a b) */ @@ -862,7 +869,7 @@ new_and(parser_state *p, node *a, node *b) n->left = a; n->right = b; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:or a b) */ @@ -876,7 +883,7 @@ new_or(parser_state *p, node *a, node *b) n->left = a; n->right = b; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:array a...) */ @@ -888,7 +895,7 @@ new_array(parser_state *p, node *a) init_var_header(&n->header, p, NODE_ARRAY); n->elements = a; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:splat . a) */ @@ -900,7 +907,7 @@ new_splat(parser_state *p, node *a) struct mrb_ast_splat_node *splat_node = (struct mrb_ast_splat_node*)parser_palloc(p, sizeof(struct mrb_ast_splat_node)); init_var_header(&splat_node->header, p, NODE_SPLAT); splat_node->value = a; - return cons((node*)NODE_VARIABLE, (node*)splat_node); + return (node*)splat_node; } /* (:hash (k . v) (k . v)...) */ @@ -912,7 +919,7 @@ new_hash(parser_state *p, node *a) init_var_header(&n->header, p, NODE_HASH); n->pairs = a; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:sym . a) */ @@ -927,7 +934,7 @@ new_sym(parser_state *p, mrb_sym sym) init_var_header(&n->header, p, NODE_SYM); n->symbol = sym; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } static node* @@ -940,7 +947,7 @@ new_xvar(parser_state *p, mrb_sym sym, enum node_type type) init_var_header(&n->header, p, type); n->symbol = sym; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } #define new_lvar(p, sym) new_xvar(p, sym, NODE_LVAR) @@ -983,7 +990,7 @@ new_nvar(parser_state *p, int num) struct mrb_ast_nvar_node *n = (struct mrb_ast_nvar_node*)parser_palloc(p, sizeof(struct mrb_ast_nvar_node)); init_var_header(&n->header, p, NODE_NVAR); n->num = num; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:const . a) */ @@ -994,7 +1001,7 @@ new_const(parser_state *p, mrb_sym sym) init_var_header(&n->header, p, NODE_CONST); n->symbol = sym; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:undef a...) */ @@ -1004,7 +1011,7 @@ new_undef(parser_state *p, node *syms) struct mrb_ast_undef_node *undef_node = (struct mrb_ast_undef_node*)parser_palloc(p, sizeof(struct mrb_ast_undef_node)); init_var_header(&undef_node->header, p, NODE_UNDEF); undef_node->syms = syms; - return cons((node*)NODE_VARIABLE, (node*)undef_node); + return (node*)undef_node; } /* (:class class super body) */ @@ -1019,7 +1026,7 @@ new_class(parser_state *p, node *c, node *s, node *b) n->superclass = s; n->body = cons(locals_node(p), b); - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:sclass obj body) */ @@ -1033,7 +1040,7 @@ new_sclass(parser_state *p, node *o, node *b) n->obj = o; n->body = cons(locals_node(p), b); - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:module module body) */ @@ -1045,7 +1052,7 @@ new_module(parser_state *p, node *m, node *b) n->name = m; n->body = cons(locals_node(p), b); - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:def m lv (arg . body)) */ @@ -1059,13 +1066,13 @@ new_def(parser_state *p, mrb_sym name) n->locals = local_switch(p); n->body = NULL; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } static void defn_setup(parser_state *p, node *d, node *a, node *b) { - struct mrb_ast_def_node *n = def_node(d->cdr); + struct mrb_ast_def_node *n = def_node(d); node *locals = n->locals; n->locals = locals_node(p); @@ -1088,35 +1095,33 @@ new_sdef(parser_state *p, node *o, mrb_sym name) sdef_node->args = (struct mrb_ast_args *)int_to_node(p->cmdarg_stack); sdef_node->locals = local_switch(p); sdef_node->body = NULL; - return cons((node*)NODE_VARIABLE, (node*)sdef_node); + return (node*)sdef_node; } static void local_add_margs(parser_state *p, node *n) { while (n) { - if (node_to_type(n->car->car) == NODE_VARIABLE) { - if (VAR_NODE_TYPE(n->car->cdr) == NODE_MASGN) { - struct mrb_ast_masgn_node *masgn_n = (struct mrb_ast_masgn_node*)n->car->cdr; - node *lhs = masgn_n->lhs; - node *rhs = masgn_n->rhs; + if (get_node_type(n->car) == NODE_MASGN) { + struct mrb_ast_masgn_node *masgn_n = (struct mrb_ast_masgn_node*)n->car; + node *lhs = masgn_n->lhs; + node *rhs = masgn_n->rhs; - /* For parameter destructuring, rhs contains the locals */ - if (rhs) { - node *t = rhs; - while (t) { - local_add_f(p, node_to_sym(t->car)); - t = t->cdr; - } + /* For parameter destructuring, rhs contains the locals */ + if (rhs) { + node *t = rhs; + while (t) { + local_add_f(p, node_to_sym(t->car)); + t = t->cdr; } + } - /* Process nested destructuring in lhs */ - if (lhs && lhs->car) { - local_add_margs(p, lhs->car); - } - if (lhs && lhs->cdr && lhs->cdr->cdr && lhs->cdr->cdr->car) { - local_add_margs(p, lhs->cdr->cdr->car); - } + /* Process nested destructuring in lhs */ + if (lhs && lhs->car) { + local_add_margs(p, lhs->car); + } + if (lhs && lhs->cdr && lhs->cdr->cdr && lhs->cdr->cdr->car) { + local_add_margs(p, lhs->cdr->cdr->car); } } n = n->cdr; @@ -1245,7 +1250,7 @@ new_block_arg(parser_state *p, node *a) struct mrb_ast_block_arg_node *block_arg_node = (struct mrb_ast_block_arg_node*)parser_palloc(p, sizeof(struct mrb_ast_block_arg_node)); init_var_header(&block_arg_node->header, p, NODE_BLOCK_ARG); block_arg_node->value = a; - return cons((node*)NODE_VARIABLE, (node*)block_arg_node); + return (node*)block_arg_node; } static node* @@ -1290,7 +1295,7 @@ new_block(parser_state *p, node *a, node *b) n->args = (struct mrb_ast_args *)a; n->body = b; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:lambda arg body) */ @@ -1302,7 +1307,7 @@ new_lambda(parser_state *p, node *a, node *b) lambda_node->locals = locals_node(p); lambda_node->args = (struct mrb_ast_args *)a; lambda_node->body = b; - return cons((node*)NODE_VARIABLE, (node*)lambda_node); + return (node*)lambda_node; } /* (:asgn lhs rhs) */ @@ -1316,7 +1321,7 @@ new_asgn(parser_state *p, node *a, node *b) n->lhs = a; n->rhs = b; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:masgn mlhs=(pre rest post) mrhs) */ @@ -1330,7 +1335,7 @@ new_masgn(parser_state *p, node *a, node *b) n->lhs = a; n->rhs = b; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:masgn mlhs mrhs) no check */ @@ -1342,7 +1347,7 @@ new_masgn_param(parser_state *p, node *a, node *b) n->lhs = a; n->rhs = b; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:asgn lhs rhs) */ @@ -1356,7 +1361,7 @@ new_op_asgn(parser_state *p, node *a, mrb_sym op, node *b) n->lhs = a; n->op = op; n->rhs = b; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } static node* @@ -1368,7 +1373,7 @@ new_int_n(parser_state *p, int32_t val) init_var_header(&n->header, p, NODE_INT); n->value = val; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } static node* @@ -1478,7 +1483,7 @@ new_int(parser_state *p, const char *s, int base, int suffix) n->string = strdup(s); n->base = base; - result = cons((node*)NODE_VARIABLE, (node*)n); + result = (node*)n; } /* Handle suffix modifiers */ @@ -1501,7 +1506,7 @@ new_float(parser_state *p, const char *s, int suffix) init_var_header(&n->header, p, NODE_FLOAT); n->value = strdup(s); - node* result = cons((node*)NODE_VARIABLE, (node*)n); + node* result = (node*)n; if (suffix & NUM_SUFFIX_R) { result = new_rational(p, result); @@ -1522,7 +1527,7 @@ new_str(parser_state *p, node *a) init_var_header(&n->header, p, NODE_STR); n->list = a; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:xstr . a) */ @@ -1532,7 +1537,7 @@ new_xstr(parser_state *p, node *a) struct mrb_ast_xstr_node *n = (struct mrb_ast_xstr_node*)parser_palloc(p, sizeof(struct mrb_ast_xstr_node)); init_var_header(&n->header, p, NODE_XSTR); n->list = a; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:dsym . a) */ @@ -1542,7 +1547,7 @@ new_dsym(parser_state *p, node *a) struct mrb_ast_dsym_node *n = (struct mrb_ast_dsym_node*)parser_palloc(p, sizeof(struct mrb_ast_dsym_node)); init_var_header(&n->header, p, NODE_DSYM); n->list = a; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:dregx . (list . (flags . encoding))) */ @@ -1554,7 +1559,7 @@ new_dregx(parser_state *p, node *list, const char *flags, const char *encoding) n->list = list; n->flags = flags; n->encoding = encoding; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } /* (:backref . n) */ @@ -1564,7 +1569,7 @@ new_back_ref(parser_state *p, int n) struct mrb_ast_back_ref_node *backref_node = (struct mrb_ast_back_ref_node*)parser_palloc(p, sizeof(struct mrb_ast_back_ref_node)); init_var_header(&backref_node->header, p, NODE_BACK_REF); backref_node->type = n; - return cons((node*)NODE_VARIABLE, (node*)backref_node); + return (node*)backref_node; } /* (:nthref . n) */ @@ -1574,7 +1579,7 @@ new_nth_ref(parser_state *p, int n) struct mrb_ast_nth_ref_node *nthref_node = (struct mrb_ast_nth_ref_node*)parser_palloc(p, sizeof(struct mrb_ast_nth_ref_node)); init_var_header(&nthref_node->header, p, NODE_NTH_REF); nthref_node->nth = n; - return cons((node*)NODE_VARIABLE, (node*)nthref_node); + return (node*)nthref_node; } /* (:heredoc . a) */ @@ -1598,7 +1603,7 @@ new_heredoc(parser_state *p, struct mrb_parser_heredoc_info **infop) /* Return pointer to embedded info if requested */ *infop = &n->info; - return cons((node*)NODE_VARIABLE, (node*)n); + return (node*)n; } static void @@ -1640,7 +1645,7 @@ new_words(parser_state *p, node *a) struct mrb_ast_words_node *words_node = (struct mrb_ast_words_node*)parser_palloc(p, sizeof(struct mrb_ast_words_node)); init_var_header(&words_node->header, p, NODE_WORDS); words_node->args = a; - return cons((node*)NODE_VARIABLE, (node*)words_node); + return (node*)words_node; } /* (:symbols . a) */ @@ -1650,7 +1655,7 @@ new_symbols(parser_state *p, node *a) struct mrb_ast_symbols_node *symbols_node = (struct mrb_ast_symbols_node*)parser_palloc(p, sizeof(struct mrb_ast_symbols_node)); init_var_header(&symbols_node->header, p, NODE_SYMBOLS); symbols_node->args = a; - return cons((node*)NODE_VARIABLE, (node*)symbols_node); + return (node*)symbols_node; } /* xxx ----------------------------- */ @@ -1686,7 +1691,8 @@ args_with_block(parser_state *p, node *a, node *b) static void endless_method_name(parser_state *p, node *defn) { - mrb_sym sym = node_to_sym(defn->cdr->car); + struct mrb_ast_def_node *def = (struct mrb_ast_def_node*)defn; + mrb_sym sym = def->name; mrb_int len; const char *name = mrb_sym_name_len(p->mrb, sym, &len); @@ -1701,18 +1707,18 @@ endless_method_name(parser_state *p, node *defn) static void call_with_block(parser_state *p, node *a, node *b) { - /* Only handle variable-sized nodes wrapped in NODE_VARIABLE */ - if (node_to_type(a->car) != NODE_VARIABLE) { - return; - } + if (!a) return; - enum node_type var_type = VAR_NODE_TYPE(a->cdr); + /* Handle direct variable-sized nodes */ + struct mrb_ast_var_header *header = (struct mrb_ast_var_header*)a; + + enum node_type var_type = (enum node_type)header->node_type; switch (var_type) { case NODE_SUPER: case NODE_ZSUPER: /* For variable-sized super/zsuper nodes, update the args field directly */ { - struct mrb_ast_super_node *super_n = super_node(a->cdr); + struct mrb_ast_super_node *super_n = super_node(a); if (!super_n->args) { super_n->args = new_callargs(p, 0, 0, b); } @@ -1728,7 +1734,7 @@ call_with_block(parser_state *p, node *a, node *b) case NODE_RETURN: /* Variable-sized return nodes - recursively call with args */ { - struct mrb_ast_return_node *return_n = return_node(a->cdr); + struct mrb_ast_return_node *return_n = return_node(a); if (return_n->args != NULL) { call_with_block(p, return_n->args, b); } @@ -1737,7 +1743,7 @@ call_with_block(parser_state *p, node *a, node *b) case NODE_BREAK: /* Variable-sized break nodes - recursively call with value */ { - struct mrb_ast_break_node *break_n = (struct mrb_ast_break_node*)a->cdr; + struct mrb_ast_break_node *break_n = (struct mrb_ast_break_node*)a; if (break_n->value != NULL) { call_with_block(p, break_n->value, b); } @@ -1746,7 +1752,7 @@ call_with_block(parser_state *p, node *a, node *b) case NODE_NEXT: /* Variable-sized next nodes - recursively call with value */ { - struct mrb_ast_next_node *next_n = (struct mrb_ast_next_node*)a->cdr; + struct mrb_ast_next_node *next_n = (struct mrb_ast_next_node*)a; if (next_n->value != NULL) { call_with_block(p, next_n->value, b); } @@ -1755,7 +1761,7 @@ call_with_block(parser_state *p, node *a, node *b) case NODE_CALL: /* Variable-sized call nodes - add block to existing args */ { - struct mrb_ast_call_node *call = call_node(a->cdr); + struct mrb_ast_call_node *call = call_node(a); if (call->has_block) { yyerror(NULL, p, "both block arg and actual block given"); @@ -1786,7 +1792,7 @@ new_negate(parser_state *p, node *n) struct mrb_ast_negate_node *negate_node = (struct mrb_ast_negate_node*)parser_palloc(p, sizeof(struct mrb_ast_negate_node)); init_var_header(&negate_node->header, p, NODE_NEGATE); negate_node->operand = n; - return cons((node*)NODE_VARIABLE, (node*)negate_node); + return (node*)negate_node; } static node* @@ -1812,35 +1818,30 @@ ret_args(parser_state *p, node *n) static void assignable(parser_state *p, node *lhs) { - if (node_to_int(lhs->car) == NODE_VARIABLE) { - node *var_node = lhs->cdr; - switch (VAR_NODE_TYPE(var_node)) { - case NODE_LVAR: - local_add(p, VAR_NODE_SYMBOL(var_node)); - break; - case NODE_CONST: - if (p->in_def) - yyerror(NULL, p, "dynamic constant assignment"); - break; - default: - /* Other node types don't need special handling in assignable */ - break; - } + switch (get_node_type(lhs)) { + case NODE_LVAR: + local_add(p, VAR_NODE_SYMBOL(lhs)); + break; + case NODE_CONST: + if (p->in_def) + yyerror(NULL, p, "dynamic constant assignment"); + break; + default: + /* Other node types don't need special handling in assignable */ + break; } } static node* var_reference(parser_state *p, node *lhs) { - if (node_to_int(lhs->car) == NODE_VARIABLE) { - node *var_node = lhs->cdr; - if (VAR_NODE_TYPE(var_node) == NODE_LVAR) { - mrb_sym sym = VAR_NODE_SYMBOL(var_node); - if (!local_var_p(p, sym)) { - node *n = new_fcall(p, sym, 0); - /* Don't free variable-sized nodes - they're managed by the parser allocator */ - return n; - } + /* Check if this is a variable-sized node */ + if (node_type_p(lhs, NODE_LVAR)) { + mrb_sym sym = VAR_NODE_SYMBOL(lhs); + if (!local_var_p(p, sym)) { + node *n = new_fcall(p, sym, 0); + /* Don't free variable-sized nodes - they're managed by the parser allocator */ + return n; } } return lhs; @@ -1914,9 +1915,9 @@ parsing_heredoc_info(parser_state *p) node *nd = p->parsing_heredoc; if (nd == NULL) return NULL; /* mrb_assert(nd->car->car == NODE_HEREDOC); */ - if (nd->car->car == (node*)NODE_VARIABLE) { + if (get_node_type(nd->car) == NODE_HEREDOC) { /* Variable-sized heredoc node - return address of embedded info struct */ - struct mrb_ast_heredoc_node *heredoc = heredoc_node(NODE_VAR_NODE_PTR(nd->car)); + struct mrb_ast_heredoc_node *heredoc = (struct mrb_ast_heredoc_node*)nd->car; return &heredoc->info; } return (parser_heredoc_info*)nd->car->cdr; @@ -1956,7 +1957,8 @@ prohibit_literals(parser_state *p, node *n) yyerror(NULL, p, "can't define singleton method for ()."); } else { - switch (node_to_type(n->car)) { + enum node_type nt = get_node_type(n); + switch (nt) { case NODE_INT: case NODE_STR: case NODE_XSTR: @@ -1975,7 +1977,7 @@ prohibit_literals(parser_state *p, node *n) /* xxx ----------------------------- */ -#line 1980 "mrbgems/mruby-compiler/core/y.tab.c" +#line 1981 "mrbgems/mruby-compiler/core/y.tab.c" # ifndef YY_CAST # ifdef __cplusplus @@ -2146,7 +2148,7 @@ extern int yydebug; #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED union YYSTYPE { -#line 1923 "mrbgems/mruby-compiler/core/parse.y" +#line 1924 "mrbgems/mruby-compiler/core/parse.y" node *nd; mrb_sym id; @@ -2154,7 +2156,7 @@ union YYSTYPE stack_type stack; const struct vtable *vars; -#line 2159 "mrbgems/mruby-compiler/core/y.tab.c" +#line 2160 "mrbgems/mruby-compiler/core/y.tab.c" }; typedef union YYSTYPE YYSTYPE; @@ -2913,69 +2915,69 @@ static const yytype_uint8 yytranslate[] = /* YYRLINE[YYN] -- Source line where rule number YYN was defined. */ static const yytype_int16 yyrline[] = { - 0, 2094, 2094, 2094, 2104, 2110, 2114, 2118, 2122, 2128, - 2130, 2129, 2143, 2169, 2175, 2179, 2183, 2189, 2195, 2195, - 2199, 2203, 2207, 2211, 2220, 2229, 2233, 2238, 2239, 2243, - 2247, 2251, 2255, 2261, 2264, 2268, 2272, 2276, 2280, 2284, - 2289, 2293, 2302, 2311, 2320, 2329, 2336, 2337, 2341, 2344, - 2345, 2349, 2353, 2357, 2361, 2364, 2374, 2373, 2388, 2397, - 2398, 2401, 2402, 2409, 2408, 2423, 2427, 2432, 2436, 2441, - 2445, 2450, 2454, 2458, 2462, 2466, 2472, 2476, 2482, 2483, - 2489, 2493, 2497, 2501, 2505, 2509, 2513, 2517, 2521, 2525, - 2531, 2532, 2538, 2542, 2548, 2552, 2558, 2562, 2566, 2570, - 2574, 2578, 2584, 2590, 2597, 2601, 2605, 2609, 2613, 2617, - 2623, 2629, 2634, 2640, 2644, 2647, 2651, 2655, 2662, 2663, - 2664, 2665, 2670, 2677, 2678, 2681, 2685, 2685, 2691, 2692, - 2693, 2694, 2695, 2696, 2697, 2698, 2699, 2700, 2701, 2702, - 2703, 2704, 2705, 2706, 2707, 2708, 2709, 2710, 2711, 2712, - 2713, 2714, 2715, 2716, 2717, 2718, 2719, 2720, 2723, 2723, - 2723, 2724, 2724, 2725, 2725, 2725, 2726, 2726, 2726, 2726, - 2727, 2727, 2727, 2728, 2728, 2728, 2729, 2729, 2729, 2729, - 2730, 2730, 2730, 2730, 2731, 2731, 2731, 2731, 2732, 2732, - 2732, 2732, 2733, 2733, 2733, 2733, 2734, 2734, 2737, 2741, - 2745, 2749, 2753, 2757, 2761, 2766, 2771, 2776, 2780, 2784, - 2788, 2792, 2796, 2800, 2804, 2808, 2812, 2816, 2820, 2824, - 2828, 2832, 2836, 2840, 2844, 2848, 2852, 2856, 2860, 2864, - 2868, 2872, 2876, 2880, 2884, 2888, 2892, 2896, 2900, 2904, - 2908, 2912, 2916, 2920, 2924, 2933, 2942, 2951, 2960, 2966, - 2967, 2971, 2975, 2981, 2985, 2992, 2996, 3005, 3022, 3023, - 3026, 3027, 3028, 3032, 3036, 3042, 3047, 3051, 3055, 3059, - 3065, 3065, 3076, 3080, 3086, 3090, 3096, 3099, 3104, 3108, - 3112, 3117, 3121, 3127, 3132, 3136, 3142, 3143, 3147, 3151, - 3152, 3153, 3154, 3155, 3160, 3159, 3171, 3175, 3170, 3180, - 3180, 3184, 3188, 3192, 3196, 3200, 3204, 3208, 3212, 3216, - 3220, 3224, 3225, 3231, 3238, 3230, 3251, 3259, 3267, 3267, - 3267, 3274, 3274, 3274, 3281, 3287, 3292, 3294, 3291, 3303, - 3301, 3319, 3324, 3317, 3341, 3339, 3355, 3365, 3376, 3380, - 3384, 3388, 3394, 3401, 3402, 3403, 3406, 3407, 3410, 3411, - 3419, 3420, 3426, 3430, 3433, 3437, 3441, 3445, 3450, 3454, - 3458, 3462, 3468, 3467, 3477, 3481, 3485, 3489, 3495, 3500, - 3505, 3509, 3513, 3517, 3521, 3525, 3529, 3533, 3537, 3541, - 3545, 3549, 3553, 3557, 3561, 3567, 3572, 3579, 3579, 3583, - 3588, 3594, 3598, 3604, 3605, 3608, 3613, 3616, 3620, 3626, - 3630, 3637, 3636, 3653, 3658, 3662, 3667, 3674, 3678, 3682, - 3686, 3690, 3694, 3698, 3702, 3706, 3713, 3712, 3727, 3726, - 3742, 3750, 3759, 3762, 3769, 3772, 3776, 3777, 3780, 3784, - 3787, 3791, 3794, 3795, 3796, 3797, 3800, 3801, 3807, 3812, - 3817, 3822, 3828, 3829, 3835, 3841, 3840, 3852, 3856, 3862, - 3866, 3872, 3881, 3892, 3895, 3896, 3899, 3905, 3911, 3912, - 3915, 3922, 3921, 3936, 3940, 3948, 3952, 3964, 3971, 3978, - 3979, 3980, 3981, 3982, 3986, 3992, 3996, 4004, 4005, 4006, - 4010, 4016, 4020, 4024, 4028, 4032, 4038, 4042, 4048, 4052, - 4056, 4060, 4064, 4068, 4072, 4080, 4087, 4093, 4094, 4098, - 4102, 4101, 4118, 4119, 4122, 4128, 4132, 4138, 4139, 4143, - 4147, 4153, 4157, 4163, 4169, 4176, 4182, 4189, 4193, 4199, - 4203, 4209, 4210, 4213, 4217, 4223, 4227, 4231, 4235, 4241, - 4246, 4251, 4255, 4259, 4263, 4267, 4271, 4275, 4279, 4283, - 4287, 4291, 4295, 4299, 4303, 4308, 4314, 4319, 4324, 4329, - 4334, 4341, 4345, 4352, 4357, 4356, 4368, 4372, 4378, 4386, - 4394, 4402, 4406, 4412, 4416, 4422, 4423, 4426, 4431, 4438, - 4439, 4442, 4446, 4452, 4456, 4462, 4468, 4468, 4475, 4476, - 4482, 4486, 4492, 4498, 4503, 4507, 4512, 4517, 4533, 4538, - 4544, 4545, 4546, 4549, 4550, 4551, 4552, 4555, 4556, 4557, - 4560, 4561, 4564, 4568, 4574, 4575, 4581, 4582, 4585, 4586, - 4589, 4592, 4593, 4594, 4597, 4598, 4601, 4606, 4609, 4610, - 4614 + 0, 2095, 2095, 2095, 2105, 2111, 2115, 2119, 2123, 2129, + 2131, 2130, 2144, 2170, 2176, 2180, 2184, 2190, 2196, 2196, + 2200, 2204, 2208, 2212, 2221, 2230, 2234, 2239, 2240, 2244, + 2248, 2252, 2256, 2262, 2265, 2269, 2273, 2277, 2281, 2285, + 2290, 2294, 2303, 2312, 2321, 2330, 2337, 2338, 2342, 2345, + 2346, 2350, 2354, 2358, 2362, 2365, 2375, 2374, 2389, 2398, + 2399, 2402, 2403, 2410, 2409, 2424, 2428, 2433, 2437, 2442, + 2446, 2451, 2455, 2459, 2463, 2467, 2473, 2477, 2483, 2484, + 2490, 2494, 2498, 2502, 2506, 2510, 2514, 2518, 2522, 2526, + 2532, 2533, 2539, 2543, 2549, 2553, 2559, 2563, 2567, 2571, + 2575, 2579, 2585, 2591, 2598, 2602, 2606, 2610, 2614, 2618, + 2624, 2630, 2635, 2641, 2645, 2648, 2652, 2656, 2663, 2664, + 2665, 2666, 2671, 2678, 2679, 2682, 2686, 2686, 2692, 2693, + 2694, 2695, 2696, 2697, 2698, 2699, 2700, 2701, 2702, 2703, + 2704, 2705, 2706, 2707, 2708, 2709, 2710, 2711, 2712, 2713, + 2714, 2715, 2716, 2717, 2718, 2719, 2720, 2721, 2724, 2724, + 2724, 2725, 2725, 2726, 2726, 2726, 2727, 2727, 2727, 2727, + 2728, 2728, 2728, 2729, 2729, 2729, 2730, 2730, 2730, 2730, + 2731, 2731, 2731, 2731, 2732, 2732, 2732, 2732, 2733, 2733, + 2733, 2733, 2734, 2734, 2734, 2734, 2735, 2735, 2738, 2742, + 2746, 2750, 2754, 2758, 2762, 2767, 2772, 2777, 2781, 2785, + 2789, 2793, 2797, 2801, 2805, 2809, 2813, 2817, 2821, 2825, + 2829, 2833, 2837, 2841, 2845, 2849, 2853, 2857, 2861, 2865, + 2869, 2873, 2877, 2881, 2885, 2889, 2893, 2897, 2901, 2905, + 2909, 2913, 2917, 2921, 2925, 2934, 2943, 2952, 2961, 2967, + 2968, 2972, 2976, 2982, 2986, 2993, 2997, 3006, 3023, 3024, + 3027, 3028, 3029, 3033, 3037, 3043, 3048, 3052, 3056, 3060, + 3066, 3066, 3077, 3081, 3087, 3091, 3097, 3100, 3105, 3109, + 3113, 3118, 3122, 3128, 3133, 3137, 3143, 3144, 3148, 3152, + 3153, 3154, 3155, 3156, 3161, 3160, 3172, 3176, 3171, 3181, + 3181, 3185, 3189, 3193, 3197, 3201, 3205, 3209, 3213, 3217, + 3221, 3225, 3226, 3232, 3239, 3231, 3252, 3260, 3268, 3268, + 3268, 3275, 3275, 3275, 3282, 3288, 3293, 3295, 3292, 3304, + 3302, 3320, 3325, 3318, 3342, 3340, 3356, 3366, 3377, 3381, + 3385, 3389, 3395, 3402, 3403, 3404, 3407, 3408, 3411, 3412, + 3420, 3421, 3427, 3431, 3434, 3438, 3442, 3446, 3451, 3455, + 3459, 3463, 3469, 3468, 3478, 3482, 3486, 3490, 3496, 3501, + 3506, 3510, 3514, 3518, 3522, 3526, 3530, 3534, 3538, 3542, + 3546, 3550, 3554, 3558, 3562, 3568, 3573, 3580, 3580, 3584, + 3589, 3595, 3599, 3605, 3606, 3609, 3614, 3617, 3621, 3627, + 3631, 3638, 3637, 3654, 3659, 3663, 3668, 3675, 3679, 3683, + 3687, 3691, 3695, 3699, 3703, 3707, 3714, 3713, 3728, 3727, + 3743, 3751, 3760, 3763, 3770, 3773, 3777, 3778, 3781, 3785, + 3788, 3792, 3795, 3796, 3797, 3798, 3801, 3802, 3808, 3813, + 3818, 3823, 3829, 3830, 3836, 3842, 3841, 3853, 3857, 3863, + 3867, 3873, 3882, 3893, 3896, 3897, 3900, 3906, 3912, 3913, + 3916, 3923, 3922, 3937, 3941, 3949, 3953, 3965, 3972, 3979, + 3980, 3981, 3982, 3983, 3987, 3993, 3997, 4005, 4006, 4007, + 4011, 4017, 4021, 4025, 4029, 4033, 4039, 4043, 4049, 4053, + 4057, 4061, 4065, 4069, 4073, 4081, 4088, 4094, 4095, 4099, + 4103, 4102, 4119, 4120, 4123, 4129, 4133, 4139, 4140, 4144, + 4148, 4154, 4158, 4164, 4170, 4177, 4183, 4190, 4194, 4200, + 4204, 4210, 4211, 4214, 4218, 4224, 4228, 4232, 4236, 4242, + 4247, 4252, 4256, 4260, 4264, 4268, 4272, 4276, 4280, 4284, + 4288, 4292, 4296, 4300, 4304, 4309, 4315, 4320, 4325, 4330, + 4335, 4342, 4346, 4353, 4358, 4357, 4369, 4373, 4379, 4387, + 4395, 4403, 4407, 4413, 4417, 4423, 4424, 4427, 4432, 4439, + 4440, 4443, 4447, 4453, 4457, 4463, 4469, 4469, 4476, 4477, + 4483, 4487, 4493, 4499, 4504, 4508, 4513, 4518, 4534, 4539, + 4545, 4546, 4547, 4550, 4551, 4552, 4553, 4556, 4557, 4558, + 4561, 4562, 4565, 4569, 4575, 4576, 4582, 4583, 4586, 4587, + 4590, 4593, 4594, 4595, 4598, 4599, 4602, 4607, 4610, 4611, + 4615 }; #endif @@ -6952,7 +6954,7 @@ YYLTYPE yylloc = yyloc_default; -#line 6957 "mrbgems/mruby-compiler/core/y.tab.c" +#line 6958 "mrbgems/mruby-compiler/core/y.tab.c" yylsp[0] = yylloc; goto yysetstate; @@ -7165,84 +7167,84 @@ yyreduce: switch (yyn) { case 2: /* $@1: %empty */ -#line 2094 "mrbgems/mruby-compiler/core/parse.y" +#line 2095 "mrbgems/mruby-compiler/core/parse.y" { p->lstate = EXPR_BEG; if (!p->locals) p->locals = cons(0,0); } -#line 7175 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7176 "mrbgems/mruby-compiler/core/y.tab.c" break; case 3: /* program: $@1 top_compstmt */ -#line 2099 "mrbgems/mruby-compiler/core/parse.y" +#line 2100 "mrbgems/mruby-compiler/core/parse.y" { p->tree = new_scope(p, (yyvsp[0].nd)); } -#line 7183 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7184 "mrbgems/mruby-compiler/core/y.tab.c" break; case 4: /* top_compstmt: top_stmts opt_terms */ -#line 2105 "mrbgems/mruby-compiler/core/parse.y" +#line 2106 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-1].nd); } -#line 7191 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7192 "mrbgems/mruby-compiler/core/y.tab.c" break; case 5: /* top_stmts: none */ -#line 2111 "mrbgems/mruby-compiler/core/parse.y" +#line 2112 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_stmts(p, 0); } -#line 7199 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7200 "mrbgems/mruby-compiler/core/y.tab.c" break; case 6: /* top_stmts: top_stmt */ -#line 2115 "mrbgems/mruby-compiler/core/parse.y" +#line 2116 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_stmts(p, (yyvsp[0].nd)); } -#line 7207 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7208 "mrbgems/mruby-compiler/core/y.tab.c" break; case 7: /* top_stmts: top_stmts terms top_stmt */ -#line 2119 "mrbgems/mruby-compiler/core/parse.y" +#line 2120 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = push((yyvsp[-2].nd), newline_node((yyvsp[0].nd))); } -#line 7215 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7216 "mrbgems/mruby-compiler/core/y.tab.c" break; case 8: /* top_stmts: error top_stmt */ -#line 2123 "mrbgems/mruby-compiler/core/parse.y" +#line 2124 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_stmts(p, 0); } -#line 7223 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7224 "mrbgems/mruby-compiler/core/y.tab.c" break; case 10: /* @2: %empty */ -#line 2130 "mrbgems/mruby-compiler/core/parse.y" +#line 2131 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = local_switch(p); nvars_block(p); } -#line 7232 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7233 "mrbgems/mruby-compiler/core/y.tab.c" break; case 11: /* top_stmt: "'BEGIN'" @2 '{' top_compstmt '}' */ -#line 2135 "mrbgems/mruby-compiler/core/parse.y" +#line 2136 "mrbgems/mruby-compiler/core/parse.y" { yyerror(&(yylsp[-4]), p, "BEGIN not supported"); local_resume(p, (yyvsp[-3].nd)); nvars_unnest(p); (yyval.nd) = 0; } -#line 7243 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7244 "mrbgems/mruby-compiler/core/y.tab.c" break; case 12: /* bodystmt: compstmt opt_rescue opt_else opt_ensure */ -#line 2147 "mrbgems/mruby-compiler/core/parse.y" +#line 2148 "mrbgems/mruby-compiler/core/parse.y" { if ((yyvsp[-2].nd)) { (yyval.nd) = new_rescue(p, (yyvsp[-3].nd), (yyvsp[-2].nd), (yyvsp[-1].nd)); @@ -7263,91 +7265,91 @@ yyreduce: } } } -#line 7268 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7269 "mrbgems/mruby-compiler/core/y.tab.c" break; case 13: /* compstmt: stmts opt_terms */ -#line 2170 "mrbgems/mruby-compiler/core/parse.y" +#line 2171 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-1].nd); } -#line 7276 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7277 "mrbgems/mruby-compiler/core/y.tab.c" break; case 14: /* stmts: none */ -#line 2176 "mrbgems/mruby-compiler/core/parse.y" +#line 2177 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_stmts(p, 0); } -#line 7284 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7285 "mrbgems/mruby-compiler/core/y.tab.c" break; case 15: /* stmts: stmt */ -#line 2180 "mrbgems/mruby-compiler/core/parse.y" +#line 2181 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_stmts(p, (yyvsp[0].nd)); } -#line 7292 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7293 "mrbgems/mruby-compiler/core/y.tab.c" break; case 16: /* stmts: stmts terms stmt */ -#line 2184 "mrbgems/mruby-compiler/core/parse.y" +#line 2185 "mrbgems/mruby-compiler/core/parse.y" { /* Update the cons-list inside the existing variable-sized node */ - STMTS_NODE_STMTS((yyvsp[-2].nd)->cdr) = push(STMTS_NODE_STMTS((yyvsp[-2].nd)->cdr), newline_node((yyvsp[0].nd))); + STMTS_NODE_STMTS((yyvsp[-2].nd)) = push(STMTS_NODE_STMTS((yyvsp[-2].nd)), newline_node((yyvsp[0].nd))); (yyval.nd) = (yyvsp[-2].nd); } -#line 7302 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7303 "mrbgems/mruby-compiler/core/y.tab.c" break; case 17: /* stmts: error stmt */ -#line 2190 "mrbgems/mruby-compiler/core/parse.y" +#line 2191 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_stmts(p, (yyvsp[0].nd)); } -#line 7310 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7311 "mrbgems/mruby-compiler/core/y.tab.c" break; case 18: /* $@3: %empty */ -#line 2195 "mrbgems/mruby-compiler/core/parse.y" +#line 2196 "mrbgems/mruby-compiler/core/parse.y" {p->lstate = EXPR_FNAME;} -#line 7316 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7317 "mrbgems/mruby-compiler/core/y.tab.c" break; case 19: /* stmt: "'alias'" fsym $@3 fsym */ -#line 2196 "mrbgems/mruby-compiler/core/parse.y" +#line 2197 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_alias(p, (yyvsp[-2].id), (yyvsp[0].id)); } -#line 7324 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7325 "mrbgems/mruby-compiler/core/y.tab.c" break; case 20: /* stmt: "'undef'" undef_list */ -#line 2200 "mrbgems/mruby-compiler/core/parse.y" +#line 2201 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_undef(p, (yyvsp[0].nd)); } -#line 7332 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7333 "mrbgems/mruby-compiler/core/y.tab.c" break; case 21: /* stmt: stmt "'if' modifier" expr_value */ -#line 2204 "mrbgems/mruby-compiler/core/parse.y" +#line 2205 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_if(p, cond((yyvsp[0].nd)), (yyvsp[-2].nd), 0); } -#line 7340 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7341 "mrbgems/mruby-compiler/core/y.tab.c" break; case 22: /* stmt: stmt "'unless' modifier" expr_value */ -#line 2208 "mrbgems/mruby-compiler/core/parse.y" +#line 2209 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_if(p, cond((yyvsp[0].nd)), 0, (yyvsp[-2].nd)); } -#line 7348 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7349 "mrbgems/mruby-compiler/core/y.tab.c" break; case 23: /* stmt: stmt "'while' modifier" expr_value */ -#line 2212 "mrbgems/mruby-compiler/core/parse.y" +#line 2213 "mrbgems/mruby-compiler/core/parse.y" { if ((yyvsp[-2].nd) && node_type_p((yyvsp[-2].nd), NODE_BEGIN)) { (yyval.nd) = new_while_mod(p, cond((yyvsp[0].nd)), (yyvsp[-2].nd)); @@ -7356,11 +7358,11 @@ yyreduce: (yyval.nd) = new_while(p, cond((yyvsp[0].nd)), (yyvsp[-2].nd)); } } -#line 7361 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7362 "mrbgems/mruby-compiler/core/y.tab.c" break; case 24: /* stmt: stmt "'until' modifier" expr_value */ -#line 2221 "mrbgems/mruby-compiler/core/parse.y" +#line 2222 "mrbgems/mruby-compiler/core/parse.y" { if ((yyvsp[-2].nd) && node_type_p((yyvsp[-2].nd), NODE_BEGIN)) { (yyval.nd) = new_until_mod(p, cond((yyvsp[0].nd)), (yyvsp[-2].nd)); @@ -7369,127 +7371,127 @@ yyreduce: (yyval.nd) = new_until(p, cond((yyvsp[0].nd)), (yyvsp[-2].nd)); } } -#line 7374 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7375 "mrbgems/mruby-compiler/core/y.tab.c" break; case 25: /* stmt: stmt "'rescue' modifier" stmt */ -#line 2230 "mrbgems/mruby-compiler/core/parse.y" +#line 2231 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_mod_rescue(p, (yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 7382 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7383 "mrbgems/mruby-compiler/core/y.tab.c" break; case 26: /* stmt: "'END'" '{' compstmt '}' */ -#line 2234 "mrbgems/mruby-compiler/core/parse.y" +#line 2235 "mrbgems/mruby-compiler/core/parse.y" { yyerror(&(yylsp[-3]), p, "END not supported"); (yyval.nd) = new_postexe(p, (yyvsp[-1].nd)); } -#line 7391 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7392 "mrbgems/mruby-compiler/core/y.tab.c" break; case 28: /* stmt: mlhs '=' command_call */ -#line 2240 "mrbgems/mruby-compiler/core/parse.y" +#line 2241 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_masgn(p, (yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 7399 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7400 "mrbgems/mruby-compiler/core/y.tab.c" break; case 29: /* stmt: lhs '=' mrhs */ -#line 2244 "mrbgems/mruby-compiler/core/parse.y" +#line 2245 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_asgn(p, (yyvsp[-2].nd), new_array(p, (yyvsp[0].nd))); } -#line 7407 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7408 "mrbgems/mruby-compiler/core/y.tab.c" break; case 30: /* stmt: mlhs '=' arg */ -#line 2248 "mrbgems/mruby-compiler/core/parse.y" +#line 2249 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_masgn(p, (yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 7415 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7416 "mrbgems/mruby-compiler/core/y.tab.c" break; case 31: /* stmt: mlhs '=' mrhs */ -#line 2252 "mrbgems/mruby-compiler/core/parse.y" +#line 2253 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_masgn(p, (yyvsp[-2].nd), new_array(p, (yyvsp[0].nd))); } -#line 7423 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7424 "mrbgems/mruby-compiler/core/y.tab.c" break; case 32: /* stmt: arg "=>" "local variable or method" */ -#line 2256 "mrbgems/mruby-compiler/core/parse.y" +#line 2257 "mrbgems/mruby-compiler/core/parse.y" { node *lhs = new_lvar(p, (yyvsp[0].id)); assignable(p, lhs); (yyval.nd) = new_asgn(p, lhs, (yyvsp[-2].nd)); } -#line 7433 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7434 "mrbgems/mruby-compiler/core/y.tab.c" break; case 34: /* command_asgn: lhs '=' command_rhs */ -#line 2265 "mrbgems/mruby-compiler/core/parse.y" +#line 2266 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_asgn(p, (yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 7441 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7442 "mrbgems/mruby-compiler/core/y.tab.c" break; case 35: /* command_asgn: var_lhs tOP_ASGN command_rhs */ -#line 2269 "mrbgems/mruby-compiler/core/parse.y" +#line 2270 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_op_asgn(p, (yyvsp[-2].nd), (yyvsp[-1].id), (yyvsp[0].nd)); } -#line 7449 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7450 "mrbgems/mruby-compiler/core/y.tab.c" break; case 36: /* command_asgn: primary_value '[' opt_call_args ']' tOP_ASGN command_rhs */ -#line 2273 "mrbgems/mruby-compiler/core/parse.y" +#line 2274 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_op_asgn(p, new_call(p, (yyvsp[-5].nd), intern_op(aref), (yyvsp[-3].nd), '.'), (yyvsp[-1].id), (yyvsp[0].nd)); } -#line 7457 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7458 "mrbgems/mruby-compiler/core/y.tab.c" break; case 37: /* command_asgn: primary_value call_op "local variable or method" tOP_ASGN command_rhs */ -#line 2277 "mrbgems/mruby-compiler/core/parse.y" +#line 2278 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_op_asgn(p, new_call(p, (yyvsp[-4].nd), (yyvsp[-2].id), 0, (yyvsp[-3].num)), (yyvsp[-1].id), (yyvsp[0].nd)); } -#line 7465 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7466 "mrbgems/mruby-compiler/core/y.tab.c" break; case 38: /* command_asgn: primary_value call_op "constant" tOP_ASGN command_rhs */ -#line 2281 "mrbgems/mruby-compiler/core/parse.y" +#line 2282 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_op_asgn(p, new_call(p, (yyvsp[-4].nd), (yyvsp[-2].id), 0, (yyvsp[-3].num)), (yyvsp[-1].id), (yyvsp[0].nd)); } -#line 7473 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7474 "mrbgems/mruby-compiler/core/y.tab.c" break; case 39: /* command_asgn: primary_value "::" "constant" tOP_ASGN command_call */ -#line 2285 "mrbgems/mruby-compiler/core/parse.y" +#line 2286 "mrbgems/mruby-compiler/core/parse.y" { yyerror(&(yylsp[-4]), p, "constant re-assignment"); (yyval.nd) = 0; } -#line 7482 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7483 "mrbgems/mruby-compiler/core/y.tab.c" break; case 40: /* command_asgn: primary_value "::" "local variable or method" tOP_ASGN command_rhs */ -#line 2290 "mrbgems/mruby-compiler/core/parse.y" +#line 2291 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_op_asgn(p, new_call(p, (yyvsp[-4].nd), (yyvsp[-2].id), 0, tCOLON2), (yyvsp[-1].id), (yyvsp[0].nd)); } -#line 7490 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7491 "mrbgems/mruby-compiler/core/y.tab.c" break; case 41: /* command_asgn: defn_head f_opt_arglist_paren '=' command */ -#line 2294 "mrbgems/mruby-compiler/core/parse.y" +#line 2295 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-3].nd); endless_method_name(p, (yyvsp[-3].nd)); @@ -7498,11 +7500,11 @@ yyreduce: nvars_unnest(p); p->in_def--; } -#line 7503 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7504 "mrbgems/mruby-compiler/core/y.tab.c" break; case 42: /* command_asgn: defn_head f_opt_arglist_paren '=' command "'rescue' modifier" arg */ -#line 2303 "mrbgems/mruby-compiler/core/parse.y" +#line 2304 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-5].nd); endless_method_name(p, (yyvsp[-5].nd)); @@ -7511,11 +7513,11 @@ yyreduce: nvars_unnest(p); p->in_def--; } -#line 7516 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7517 "mrbgems/mruby-compiler/core/y.tab.c" break; case 43: /* command_asgn: defs_head f_opt_arglist_paren '=' command */ -#line 2312 "mrbgems/mruby-compiler/core/parse.y" +#line 2313 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-3].nd); void_expr_error(p, (yyvsp[0].nd)); @@ -7524,11 +7526,11 @@ yyreduce: p->in_def--; p->in_single--; } -#line 7529 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7530 "mrbgems/mruby-compiler/core/y.tab.c" break; case 44: /* command_asgn: defs_head f_opt_arglist_paren '=' command "'rescue' modifier" arg */ -#line 2321 "mrbgems/mruby-compiler/core/parse.y" +#line 2322 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-5].nd); void_expr_error(p, (yyvsp[-2].nd)); @@ -7537,79 +7539,79 @@ yyreduce: p->in_def--; p->in_single--; } -#line 7542 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7543 "mrbgems/mruby-compiler/core/y.tab.c" break; case 45: /* command_asgn: backref tOP_ASGN command_rhs */ -#line 2330 "mrbgems/mruby-compiler/core/parse.y" +#line 2331 "mrbgems/mruby-compiler/core/parse.y" { backref_error(p, (yyvsp[-2].nd)); (yyval.nd) = new_stmts(p, 0); } -#line 7551 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7552 "mrbgems/mruby-compiler/core/y.tab.c" break; case 47: /* command_rhs: command_call "'rescue' modifier" stmt */ -#line 2338 "mrbgems/mruby-compiler/core/parse.y" +#line 2339 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_mod_rescue(p, (yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 7559 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7560 "mrbgems/mruby-compiler/core/y.tab.c" break; case 50: /* expr: expr "'and'" expr */ -#line 2346 "mrbgems/mruby-compiler/core/parse.y" +#line 2347 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_and(p, (yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 7567 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7568 "mrbgems/mruby-compiler/core/y.tab.c" break; case 51: /* expr: expr "'or'" expr */ -#line 2350 "mrbgems/mruby-compiler/core/parse.y" +#line 2351 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_or(p, (yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 7575 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7576 "mrbgems/mruby-compiler/core/y.tab.c" break; case 52: /* expr: "'not'" opt_nl expr */ -#line 2354 "mrbgems/mruby-compiler/core/parse.y" +#line 2355 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_uni_op(p, cond((yyvsp[0].nd)), "!"); } -#line 7583 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7584 "mrbgems/mruby-compiler/core/y.tab.c" break; case 53: /* expr: '!' command_call */ -#line 2358 "mrbgems/mruby-compiler/core/parse.y" +#line 2359 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_uni_op(p, cond((yyvsp[0].nd)), "!"); } -#line 7591 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7592 "mrbgems/mruby-compiler/core/y.tab.c" break; case 55: /* defn_head: "'def'" fname */ -#line 2365 "mrbgems/mruby-compiler/core/parse.y" +#line 2366 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_def(p, (yyvsp[0].id)); p->cmdarg_stack = 0; p->in_def++; nvars_block(p); } -#line 7602 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7603 "mrbgems/mruby-compiler/core/y.tab.c" break; case 56: /* $@4: %empty */ -#line 2374 "mrbgems/mruby-compiler/core/parse.y" +#line 2375 "mrbgems/mruby-compiler/core/parse.y" { p->lstate = EXPR_FNAME; } -#line 7610 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7611 "mrbgems/mruby-compiler/core/y.tab.c" break; case 57: /* defs_head: "'def'" singleton dot_or_colon $@4 fname */ -#line 2378 "mrbgems/mruby-compiler/core/parse.y" +#line 2379 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_sdef(p, (yyvsp[-3].nd), (yyvsp[0].id)); p->cmdarg_stack = 0; @@ -7618,1054 +7620,1054 @@ yyreduce: nvars_block(p); p->lstate = EXPR_ENDFN; /* force for args */ } -#line 7623 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7624 "mrbgems/mruby-compiler/core/y.tab.c" break; case 58: /* expr_value: expr */ -#line 2389 "mrbgems/mruby-compiler/core/parse.y" +#line 2390 "mrbgems/mruby-compiler/core/parse.y" { if (!(yyvsp[0].nd)) (yyval.nd) = new_nil(p); else { (yyval.nd) = (yyvsp[0].nd); } } -#line 7634 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7635 "mrbgems/mruby-compiler/core/y.tab.c" break; case 62: /* block_command: block_call call_op2 operation2 command_args */ -#line 2403 "mrbgems/mruby-compiler/core/parse.y" +#line 2404 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_call(p, (yyvsp[-3].nd), (yyvsp[-1].id), (yyvsp[0].nd), (yyvsp[-2].num)); } -#line 7642 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7643 "mrbgems/mruby-compiler/core/y.tab.c" break; case 63: /* $@5: %empty */ -#line 2409 "mrbgems/mruby-compiler/core/parse.y" +#line 2410 "mrbgems/mruby-compiler/core/parse.y" { local_nest(p); nvars_nest(p); } -#line 7651 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7652 "mrbgems/mruby-compiler/core/y.tab.c" break; case 64: /* cmd_brace_block: "{" $@5 opt_block_param compstmt '}' */ -#line 2416 "mrbgems/mruby-compiler/core/parse.y" +#line 2417 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_block(p, (yyvsp[-2].nd), (yyvsp[-1].nd)); local_unnest(p); nvars_unnest(p); } -#line 7661 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7662 "mrbgems/mruby-compiler/core/y.tab.c" break; case 65: /* command: operation command_args */ -#line 2424 "mrbgems/mruby-compiler/core/parse.y" +#line 2425 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_fcall(p, (yyvsp[-1].id), (yyvsp[0].nd)); } -#line 7669 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7670 "mrbgems/mruby-compiler/core/y.tab.c" break; case 66: /* command: operation command_args cmd_brace_block */ -#line 2428 "mrbgems/mruby-compiler/core/parse.y" +#line 2429 "mrbgems/mruby-compiler/core/parse.y" { args_with_block(p, (yyvsp[-1].nd), (yyvsp[0].nd)); (yyval.nd) = new_fcall(p, (yyvsp[-2].id), (yyvsp[-1].nd)); } -#line 7678 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7679 "mrbgems/mruby-compiler/core/y.tab.c" break; case 67: /* command: primary_value call_op operation2 command_args */ -#line 2433 "mrbgems/mruby-compiler/core/parse.y" +#line 2434 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_call(p, (yyvsp[-3].nd), (yyvsp[-1].id), (yyvsp[0].nd), (yyvsp[-2].num)); } -#line 7686 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7687 "mrbgems/mruby-compiler/core/y.tab.c" break; case 68: /* command: primary_value call_op operation2 command_args cmd_brace_block */ -#line 2437 "mrbgems/mruby-compiler/core/parse.y" +#line 2438 "mrbgems/mruby-compiler/core/parse.y" { args_with_block(p, (yyvsp[-1].nd), (yyvsp[0].nd)); (yyval.nd) = new_call(p, (yyvsp[-4].nd), (yyvsp[-2].id), (yyvsp[-1].nd), (yyvsp[-3].num)); } -#line 7695 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7696 "mrbgems/mruby-compiler/core/y.tab.c" break; case 69: /* command: primary_value "::" operation2 command_args */ -#line 2442 "mrbgems/mruby-compiler/core/parse.y" +#line 2443 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_call(p, (yyvsp[-3].nd), (yyvsp[-1].id), (yyvsp[0].nd), tCOLON2); } -#line 7703 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7704 "mrbgems/mruby-compiler/core/y.tab.c" break; case 70: /* command: primary_value "::" operation2 command_args cmd_brace_block */ -#line 2446 "mrbgems/mruby-compiler/core/parse.y" +#line 2447 "mrbgems/mruby-compiler/core/parse.y" { args_with_block(p, (yyvsp[-1].nd), (yyvsp[0].nd)); (yyval.nd) = new_call(p, (yyvsp[-4].nd), (yyvsp[-2].id), (yyvsp[-1].nd), tCOLON2); } -#line 7712 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7713 "mrbgems/mruby-compiler/core/y.tab.c" break; case 71: /* command: "'super'" command_args */ -#line 2451 "mrbgems/mruby-compiler/core/parse.y" +#line 2452 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_super(p, (yyvsp[0].nd)); } -#line 7720 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7721 "mrbgems/mruby-compiler/core/y.tab.c" break; case 72: /* command: "'yield'" command_args */ -#line 2455 "mrbgems/mruby-compiler/core/parse.y" +#line 2456 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_yield(p, (yyvsp[0].nd)); } -#line 7728 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7729 "mrbgems/mruby-compiler/core/y.tab.c" break; case 73: /* command: "'return'" call_args */ -#line 2459 "mrbgems/mruby-compiler/core/parse.y" +#line 2460 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_return(p, ret_args(p, (yyvsp[0].nd))); } -#line 7736 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7737 "mrbgems/mruby-compiler/core/y.tab.c" break; case 74: /* command: "'break'" call_args */ -#line 2463 "mrbgems/mruby-compiler/core/parse.y" +#line 2464 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_break(p, ret_args(p, (yyvsp[0].nd))); } -#line 7744 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7745 "mrbgems/mruby-compiler/core/y.tab.c" break; case 75: /* command: "'next'" call_args */ -#line 2467 "mrbgems/mruby-compiler/core/parse.y" +#line 2468 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_next(p, ret_args(p, (yyvsp[0].nd))); } -#line 7752 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7753 "mrbgems/mruby-compiler/core/y.tab.c" break; case 76: /* mlhs: mlhs_basic */ -#line 2473 "mrbgems/mruby-compiler/core/parse.y" +#line 2474 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[0].nd); } -#line 7760 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7761 "mrbgems/mruby-compiler/core/y.tab.c" break; case 77: /* mlhs: tLPAREN mlhs_inner rparen */ -#line 2477 "mrbgems/mruby-compiler/core/parse.y" +#line 2478 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-1].nd); } -#line 7768 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7769 "mrbgems/mruby-compiler/core/y.tab.c" break; case 79: /* mlhs_inner: tLPAREN mlhs_inner rparen */ -#line 2484 "mrbgems/mruby-compiler/core/parse.y" +#line 2485 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-1].nd); } -#line 7776 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7777 "mrbgems/mruby-compiler/core/y.tab.c" break; case 80: /* mlhs_basic: mlhs_list */ -#line 2490 "mrbgems/mruby-compiler/core/parse.y" +#line 2491 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list1((yyvsp[0].nd)); } -#line 7784 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7785 "mrbgems/mruby-compiler/core/y.tab.c" break; case 81: /* mlhs_basic: mlhs_list mlhs_item */ -#line 2494 "mrbgems/mruby-compiler/core/parse.y" +#line 2495 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list1(push((yyvsp[-1].nd),(yyvsp[0].nd))); } -#line 7792 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7793 "mrbgems/mruby-compiler/core/y.tab.c" break; case 82: /* mlhs_basic: mlhs_list "*" mlhs_node */ -#line 2498 "mrbgems/mruby-compiler/core/parse.y" +#line 2499 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list2((yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 7800 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7801 "mrbgems/mruby-compiler/core/y.tab.c" break; case 83: /* mlhs_basic: mlhs_list "*" mlhs_node ',' mlhs_post */ -#line 2502 "mrbgems/mruby-compiler/core/parse.y" +#line 2503 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list3((yyvsp[-4].nd), (yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 7808 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7809 "mrbgems/mruby-compiler/core/y.tab.c" break; case 84: /* mlhs_basic: mlhs_list "*" */ -#line 2506 "mrbgems/mruby-compiler/core/parse.y" +#line 2507 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list2((yyvsp[-1].nd), new_nil(p)); } -#line 7816 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7817 "mrbgems/mruby-compiler/core/y.tab.c" break; case 85: /* mlhs_basic: mlhs_list "*" ',' mlhs_post */ -#line 2510 "mrbgems/mruby-compiler/core/parse.y" +#line 2511 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list3((yyvsp[-3].nd), new_nil(p), (yyvsp[0].nd)); } -#line 7824 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7825 "mrbgems/mruby-compiler/core/y.tab.c" break; case 86: /* mlhs_basic: "*" mlhs_node */ -#line 2514 "mrbgems/mruby-compiler/core/parse.y" +#line 2515 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list2(0, (yyvsp[0].nd)); } -#line 7832 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7833 "mrbgems/mruby-compiler/core/y.tab.c" break; case 87: /* mlhs_basic: "*" mlhs_node ',' mlhs_post */ -#line 2518 "mrbgems/mruby-compiler/core/parse.y" +#line 2519 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list3(0, (yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 7840 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7841 "mrbgems/mruby-compiler/core/y.tab.c" break; case 88: /* mlhs_basic: "*" */ -#line 2522 "mrbgems/mruby-compiler/core/parse.y" +#line 2523 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list2(0, new_nil(p)); } -#line 7848 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7849 "mrbgems/mruby-compiler/core/y.tab.c" break; case 89: /* mlhs_basic: "*" ',' mlhs_post */ -#line 2526 "mrbgems/mruby-compiler/core/parse.y" +#line 2527 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list3(0, new_nil(p), (yyvsp[0].nd)); } -#line 7856 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7857 "mrbgems/mruby-compiler/core/y.tab.c" break; case 91: /* mlhs_item: tLPAREN mlhs_inner rparen */ -#line 2533 "mrbgems/mruby-compiler/core/parse.y" +#line 2534 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_masgn(p, (yyvsp[-1].nd), NULL); } -#line 7864 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7865 "mrbgems/mruby-compiler/core/y.tab.c" break; case 92: /* mlhs_list: mlhs_item ',' */ -#line 2539 "mrbgems/mruby-compiler/core/parse.y" +#line 2540 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list1((yyvsp[-1].nd)); } -#line 7872 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7873 "mrbgems/mruby-compiler/core/y.tab.c" break; case 93: /* mlhs_list: mlhs_list mlhs_item ',' */ -#line 2543 "mrbgems/mruby-compiler/core/parse.y" +#line 2544 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = push((yyvsp[-2].nd), (yyvsp[-1].nd)); } -#line 7880 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7881 "mrbgems/mruby-compiler/core/y.tab.c" break; case 94: /* mlhs_post: mlhs_item */ -#line 2549 "mrbgems/mruby-compiler/core/parse.y" +#line 2550 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list1((yyvsp[0].nd)); } -#line 7888 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7889 "mrbgems/mruby-compiler/core/y.tab.c" break; case 95: /* mlhs_post: mlhs_list mlhs_item */ -#line 2553 "mrbgems/mruby-compiler/core/parse.y" +#line 2554 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = push((yyvsp[-1].nd), (yyvsp[0].nd)); } -#line 7896 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7897 "mrbgems/mruby-compiler/core/y.tab.c" break; case 96: /* mlhs_node: variable */ -#line 2559 "mrbgems/mruby-compiler/core/parse.y" +#line 2560 "mrbgems/mruby-compiler/core/parse.y" { assignable(p, (yyvsp[0].nd)); } -#line 7904 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7905 "mrbgems/mruby-compiler/core/y.tab.c" break; case 97: /* mlhs_node: primary_value '[' opt_call_args ']' */ -#line 2563 "mrbgems/mruby-compiler/core/parse.y" +#line 2564 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_call(p, (yyvsp[-3].nd), intern_op(aref), (yyvsp[-1].nd), '.'); } -#line 7912 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7913 "mrbgems/mruby-compiler/core/y.tab.c" break; case 98: /* mlhs_node: primary_value call_op "local variable or method" */ -#line 2567 "mrbgems/mruby-compiler/core/parse.y" +#line 2568 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_call(p, (yyvsp[-2].nd), (yyvsp[0].id), 0, (yyvsp[-1].num)); } -#line 7920 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7921 "mrbgems/mruby-compiler/core/y.tab.c" break; case 99: /* mlhs_node: primary_value "::" "local variable or method" */ -#line 2571 "mrbgems/mruby-compiler/core/parse.y" +#line 2572 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_call(p, (yyvsp[-2].nd), (yyvsp[0].id), 0, tCOLON2); } -#line 7928 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7929 "mrbgems/mruby-compiler/core/y.tab.c" break; case 100: /* mlhs_node: primary_value call_op "constant" */ -#line 2575 "mrbgems/mruby-compiler/core/parse.y" +#line 2576 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_call(p, (yyvsp[-2].nd), (yyvsp[0].id), 0, (yyvsp[-1].num)); } -#line 7936 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7937 "mrbgems/mruby-compiler/core/y.tab.c" break; case 101: /* mlhs_node: primary_value "::" "constant" */ -#line 2579 "mrbgems/mruby-compiler/core/parse.y" +#line 2580 "mrbgems/mruby-compiler/core/parse.y" { if (p->in_def || p->in_single) yyerror(&(yylsp[-2]), p, "dynamic constant assignment"); (yyval.nd) = new_colon2(p, (yyvsp[-2].nd), (yyvsp[0].id)); } -#line 7946 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7947 "mrbgems/mruby-compiler/core/y.tab.c" break; case 102: /* mlhs_node: tCOLON3 "constant" */ -#line 2585 "mrbgems/mruby-compiler/core/parse.y" +#line 2586 "mrbgems/mruby-compiler/core/parse.y" { if (p->in_def || p->in_single) yyerror(&(yylsp[-1]), p, "dynamic constant assignment"); (yyval.nd) = new_colon3(p, (yyvsp[0].id)); } -#line 7956 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7957 "mrbgems/mruby-compiler/core/y.tab.c" break; case 103: /* mlhs_node: backref */ -#line 2591 "mrbgems/mruby-compiler/core/parse.y" +#line 2592 "mrbgems/mruby-compiler/core/parse.y" { backref_error(p, (yyvsp[0].nd)); (yyval.nd) = 0; } -#line 7965 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7966 "mrbgems/mruby-compiler/core/y.tab.c" break; case 104: /* lhs: variable */ -#line 2598 "mrbgems/mruby-compiler/core/parse.y" +#line 2599 "mrbgems/mruby-compiler/core/parse.y" { assignable(p, (yyvsp[0].nd)); } -#line 7973 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7974 "mrbgems/mruby-compiler/core/y.tab.c" break; case 105: /* lhs: primary_value '[' opt_call_args ']' */ -#line 2602 "mrbgems/mruby-compiler/core/parse.y" +#line 2603 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_call(p, (yyvsp[-3].nd), intern_op(aref), (yyvsp[-1].nd), '.'); } -#line 7981 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7982 "mrbgems/mruby-compiler/core/y.tab.c" break; case 106: /* lhs: primary_value call_op "local variable or method" */ -#line 2606 "mrbgems/mruby-compiler/core/parse.y" +#line 2607 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_call(p, (yyvsp[-2].nd), (yyvsp[0].id), 0, (yyvsp[-1].num)); } -#line 7989 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7990 "mrbgems/mruby-compiler/core/y.tab.c" break; case 107: /* lhs: primary_value "::" "local variable or method" */ -#line 2610 "mrbgems/mruby-compiler/core/parse.y" +#line 2611 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_call(p, (yyvsp[-2].nd), (yyvsp[0].id), 0, tCOLON2); } -#line 7997 "mrbgems/mruby-compiler/core/y.tab.c" +#line 7998 "mrbgems/mruby-compiler/core/y.tab.c" break; case 108: /* lhs: primary_value call_op "constant" */ -#line 2614 "mrbgems/mruby-compiler/core/parse.y" +#line 2615 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_call(p, (yyvsp[-2].nd), (yyvsp[0].id), 0, (yyvsp[-1].num)); } -#line 8005 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8006 "mrbgems/mruby-compiler/core/y.tab.c" break; case 109: /* lhs: primary_value "::" "constant" */ -#line 2618 "mrbgems/mruby-compiler/core/parse.y" +#line 2619 "mrbgems/mruby-compiler/core/parse.y" { if (p->in_def || p->in_single) yyerror(&(yylsp[-2]), p, "dynamic constant assignment"); (yyval.nd) = new_colon2(p, (yyvsp[-2].nd), (yyvsp[0].id)); } -#line 8015 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8016 "mrbgems/mruby-compiler/core/y.tab.c" break; case 110: /* lhs: tCOLON3 "constant" */ -#line 2624 "mrbgems/mruby-compiler/core/parse.y" +#line 2625 "mrbgems/mruby-compiler/core/parse.y" { if (p->in_def || p->in_single) yyerror(&(yylsp[-1]), p, "dynamic constant assignment"); (yyval.nd) = new_colon3(p, (yyvsp[0].id)); } -#line 8025 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8026 "mrbgems/mruby-compiler/core/y.tab.c" break; case 111: /* lhs: backref */ -#line 2630 "mrbgems/mruby-compiler/core/parse.y" +#line 2631 "mrbgems/mruby-compiler/core/parse.y" { backref_error(p, (yyvsp[0].nd)); (yyval.nd) = 0; } -#line 8034 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8035 "mrbgems/mruby-compiler/core/y.tab.c" break; case 112: /* lhs: "numbered parameter" */ -#line 2635 "mrbgems/mruby-compiler/core/parse.y" +#line 2636 "mrbgems/mruby-compiler/core/parse.y" { yyerror(&(yylsp[0]), p, "can't assign to numbered parameter"); } -#line 8042 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8043 "mrbgems/mruby-compiler/core/y.tab.c" break; case 113: /* cname: "local variable or method" */ -#line 2641 "mrbgems/mruby-compiler/core/parse.y" +#line 2642 "mrbgems/mruby-compiler/core/parse.y" { yyerror(&(yylsp[0]), p, "class/module name must be CONSTANT"); } -#line 8050 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8051 "mrbgems/mruby-compiler/core/y.tab.c" break; case 115: /* cpath: tCOLON3 cname */ -#line 2648 "mrbgems/mruby-compiler/core/parse.y" +#line 2649 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = cons(int_to_node(1), sym_to_node((yyvsp[0].id))); } -#line 8058 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8059 "mrbgems/mruby-compiler/core/y.tab.c" break; case 116: /* cpath: cname */ -#line 2652 "mrbgems/mruby-compiler/core/parse.y" +#line 2653 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = cons(int_to_node(0), sym_to_node((yyvsp[0].id))); } -#line 8066 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8067 "mrbgems/mruby-compiler/core/y.tab.c" break; case 117: /* cpath: primary_value "::" cname */ -#line 2656 "mrbgems/mruby-compiler/core/parse.y" +#line 2657 "mrbgems/mruby-compiler/core/parse.y" { void_expr_error(p, (yyvsp[-2].nd)); (yyval.nd) = cons((yyvsp[-2].nd), sym_to_node((yyvsp[0].id))); } -#line 8075 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8076 "mrbgems/mruby-compiler/core/y.tab.c" break; case 121: /* fname: op */ -#line 2666 "mrbgems/mruby-compiler/core/parse.y" +#line 2667 "mrbgems/mruby-compiler/core/parse.y" { p->lstate = EXPR_ENDFN; (yyval.id) = (yyvsp[0].id); } -#line 8084 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8085 "mrbgems/mruby-compiler/core/y.tab.c" break; case 122: /* fname: reswords */ -#line 2671 "mrbgems/mruby-compiler/core/parse.y" +#line 2672 "mrbgems/mruby-compiler/core/parse.y" { p->lstate = EXPR_ENDFN; (yyval.id) = (yyvsp[0].id); } -#line 8093 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8094 "mrbgems/mruby-compiler/core/y.tab.c" break; case 125: /* undef_list: fsym */ -#line 2682 "mrbgems/mruby-compiler/core/parse.y" +#line 2683 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = cons(sym_to_node((yyvsp[0].id)), 0); } -#line 8101 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8102 "mrbgems/mruby-compiler/core/y.tab.c" break; case 126: /* $@6: %empty */ -#line 2685 "mrbgems/mruby-compiler/core/parse.y" +#line 2686 "mrbgems/mruby-compiler/core/parse.y" {p->lstate = EXPR_FNAME;} -#line 8107 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8108 "mrbgems/mruby-compiler/core/y.tab.c" break; case 127: /* undef_list: undef_list ',' $@6 fsym */ -#line 2686 "mrbgems/mruby-compiler/core/parse.y" +#line 2687 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = push((yyvsp[-3].nd), sym_to_node((yyvsp[0].id))); } -#line 8115 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8116 "mrbgems/mruby-compiler/core/y.tab.c" break; case 128: /* op: '|' */ -#line 2691 "mrbgems/mruby-compiler/core/parse.y" +#line 2692 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(or); } -#line 8121 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8122 "mrbgems/mruby-compiler/core/y.tab.c" break; case 129: /* op: '^' */ -#line 2692 "mrbgems/mruby-compiler/core/parse.y" +#line 2693 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(xor); } -#line 8127 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8128 "mrbgems/mruby-compiler/core/y.tab.c" break; case 130: /* op: '&' */ -#line 2693 "mrbgems/mruby-compiler/core/parse.y" +#line 2694 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(and); } -#line 8133 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8134 "mrbgems/mruby-compiler/core/y.tab.c" break; case 131: /* op: "<=>" */ -#line 2694 "mrbgems/mruby-compiler/core/parse.y" +#line 2695 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(cmp); } -#line 8139 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8140 "mrbgems/mruby-compiler/core/y.tab.c" break; case 132: /* op: "==" */ -#line 2695 "mrbgems/mruby-compiler/core/parse.y" +#line 2696 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(eq); } -#line 8145 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8146 "mrbgems/mruby-compiler/core/y.tab.c" break; case 133: /* op: "===" */ -#line 2696 "mrbgems/mruby-compiler/core/parse.y" +#line 2697 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(eqq); } -#line 8151 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8152 "mrbgems/mruby-compiler/core/y.tab.c" break; case 134: /* op: "=~" */ -#line 2697 "mrbgems/mruby-compiler/core/parse.y" +#line 2698 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(match); } -#line 8157 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8158 "mrbgems/mruby-compiler/core/y.tab.c" break; case 135: /* op: "!~" */ -#line 2698 "mrbgems/mruby-compiler/core/parse.y" +#line 2699 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(nmatch); } -#line 8163 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8164 "mrbgems/mruby-compiler/core/y.tab.c" break; case 136: /* op: '>' */ -#line 2699 "mrbgems/mruby-compiler/core/parse.y" +#line 2700 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(gt); } -#line 8169 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8170 "mrbgems/mruby-compiler/core/y.tab.c" break; case 137: /* op: ">=" */ -#line 2700 "mrbgems/mruby-compiler/core/parse.y" +#line 2701 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(ge); } -#line 8175 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8176 "mrbgems/mruby-compiler/core/y.tab.c" break; case 138: /* op: '<' */ -#line 2701 "mrbgems/mruby-compiler/core/parse.y" +#line 2702 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(lt); } -#line 8181 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8182 "mrbgems/mruby-compiler/core/y.tab.c" break; case 139: /* op: "<=" */ -#line 2702 "mrbgems/mruby-compiler/core/parse.y" +#line 2703 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(le); } -#line 8187 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8188 "mrbgems/mruby-compiler/core/y.tab.c" break; case 140: /* op: "!=" */ -#line 2703 "mrbgems/mruby-compiler/core/parse.y" +#line 2704 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(neq); } -#line 8193 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8194 "mrbgems/mruby-compiler/core/y.tab.c" break; case 141: /* op: "<<" */ -#line 2704 "mrbgems/mruby-compiler/core/parse.y" +#line 2705 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(lshift); } -#line 8199 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8200 "mrbgems/mruby-compiler/core/y.tab.c" break; case 142: /* op: ">>" */ -#line 2705 "mrbgems/mruby-compiler/core/parse.y" +#line 2706 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(rshift); } -#line 8205 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8206 "mrbgems/mruby-compiler/core/y.tab.c" break; case 143: /* op: '+' */ -#line 2706 "mrbgems/mruby-compiler/core/parse.y" +#line 2707 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(add); } -#line 8211 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8212 "mrbgems/mruby-compiler/core/y.tab.c" break; case 144: /* op: '-' */ -#line 2707 "mrbgems/mruby-compiler/core/parse.y" +#line 2708 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(sub); } -#line 8217 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8218 "mrbgems/mruby-compiler/core/y.tab.c" break; case 145: /* op: '*' */ -#line 2708 "mrbgems/mruby-compiler/core/parse.y" +#line 2709 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(mul); } -#line 8223 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8224 "mrbgems/mruby-compiler/core/y.tab.c" break; case 146: /* op: "*" */ -#line 2709 "mrbgems/mruby-compiler/core/parse.y" +#line 2710 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(mul); } -#line 8229 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8230 "mrbgems/mruby-compiler/core/y.tab.c" break; case 147: /* op: '/' */ -#line 2710 "mrbgems/mruby-compiler/core/parse.y" +#line 2711 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(div); } -#line 8235 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8236 "mrbgems/mruby-compiler/core/y.tab.c" break; case 148: /* op: '%' */ -#line 2711 "mrbgems/mruby-compiler/core/parse.y" +#line 2712 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(mod); } -#line 8241 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8242 "mrbgems/mruby-compiler/core/y.tab.c" break; case 149: /* op: tPOW */ -#line 2712 "mrbgems/mruby-compiler/core/parse.y" +#line 2713 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(pow); } -#line 8247 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8248 "mrbgems/mruby-compiler/core/y.tab.c" break; case 150: /* op: "**" */ -#line 2713 "mrbgems/mruby-compiler/core/parse.y" +#line 2714 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(pow); } -#line 8253 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8254 "mrbgems/mruby-compiler/core/y.tab.c" break; case 151: /* op: '!' */ -#line 2714 "mrbgems/mruby-compiler/core/parse.y" +#line 2715 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(not); } -#line 8259 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8260 "mrbgems/mruby-compiler/core/y.tab.c" break; case 152: /* op: '~' */ -#line 2715 "mrbgems/mruby-compiler/core/parse.y" +#line 2716 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(neg); } -#line 8265 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8266 "mrbgems/mruby-compiler/core/y.tab.c" break; case 153: /* op: "unary plus" */ -#line 2716 "mrbgems/mruby-compiler/core/parse.y" +#line 2717 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(plus); } -#line 8271 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8272 "mrbgems/mruby-compiler/core/y.tab.c" break; case 154: /* op: "unary minus" */ -#line 2717 "mrbgems/mruby-compiler/core/parse.y" +#line 2718 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(minus); } -#line 8277 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8278 "mrbgems/mruby-compiler/core/y.tab.c" break; case 155: /* op: tAREF */ -#line 2718 "mrbgems/mruby-compiler/core/parse.y" +#line 2719 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(aref); } -#line 8283 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8284 "mrbgems/mruby-compiler/core/y.tab.c" break; case 156: /* op: tASET */ -#line 2719 "mrbgems/mruby-compiler/core/parse.y" +#line 2720 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(aset); } -#line 8289 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8290 "mrbgems/mruby-compiler/core/y.tab.c" break; case 157: /* op: '`' */ -#line 2720 "mrbgems/mruby-compiler/core/parse.y" +#line 2721 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(tick); } -#line 8295 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8296 "mrbgems/mruby-compiler/core/y.tab.c" break; case 198: /* arg: lhs '=' arg_rhs */ -#line 2738 "mrbgems/mruby-compiler/core/parse.y" +#line 2739 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_asgn(p, (yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 8303 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8304 "mrbgems/mruby-compiler/core/y.tab.c" break; case 199: /* arg: var_lhs tOP_ASGN arg_rhs */ -#line 2742 "mrbgems/mruby-compiler/core/parse.y" +#line 2743 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_op_asgn(p, (yyvsp[-2].nd), (yyvsp[-1].id), (yyvsp[0].nd)); } -#line 8311 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8312 "mrbgems/mruby-compiler/core/y.tab.c" break; case 200: /* arg: primary_value '[' opt_call_args ']' tOP_ASGN arg_rhs */ -#line 2746 "mrbgems/mruby-compiler/core/parse.y" +#line 2747 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_op_asgn(p, new_call(p, (yyvsp[-5].nd), intern_op(aref), (yyvsp[-3].nd), '.'), (yyvsp[-1].id), (yyvsp[0].nd)); } -#line 8319 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8320 "mrbgems/mruby-compiler/core/y.tab.c" break; case 201: /* arg: primary_value call_op "local variable or method" tOP_ASGN arg_rhs */ -#line 2750 "mrbgems/mruby-compiler/core/parse.y" +#line 2751 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_op_asgn(p, new_call(p, (yyvsp[-4].nd), (yyvsp[-2].id), 0, (yyvsp[-3].num)), (yyvsp[-1].id), (yyvsp[0].nd)); } -#line 8327 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8328 "mrbgems/mruby-compiler/core/y.tab.c" break; case 202: /* arg: primary_value call_op "constant" tOP_ASGN arg_rhs */ -#line 2754 "mrbgems/mruby-compiler/core/parse.y" +#line 2755 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_op_asgn(p, new_call(p, (yyvsp[-4].nd), (yyvsp[-2].id), 0, (yyvsp[-3].num)), (yyvsp[-1].id), (yyvsp[0].nd)); } -#line 8335 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8336 "mrbgems/mruby-compiler/core/y.tab.c" break; case 203: /* arg: primary_value "::" "local variable or method" tOP_ASGN arg_rhs */ -#line 2758 "mrbgems/mruby-compiler/core/parse.y" +#line 2759 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_op_asgn(p, new_call(p, (yyvsp[-4].nd), (yyvsp[-2].id), 0, tCOLON2), (yyvsp[-1].id), (yyvsp[0].nd)); } -#line 8343 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8344 "mrbgems/mruby-compiler/core/y.tab.c" break; case 204: /* arg: primary_value "::" "constant" tOP_ASGN arg_rhs */ -#line 2762 "mrbgems/mruby-compiler/core/parse.y" +#line 2763 "mrbgems/mruby-compiler/core/parse.y" { yyerror(&(yylsp[-4]), p, "constant re-assignment"); (yyval.nd) = new_stmts(p, 0); } -#line 8352 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8353 "mrbgems/mruby-compiler/core/y.tab.c" break; case 205: /* arg: tCOLON3 "constant" tOP_ASGN arg_rhs */ -#line 2767 "mrbgems/mruby-compiler/core/parse.y" +#line 2768 "mrbgems/mruby-compiler/core/parse.y" { yyerror(&(yylsp[-3]), p, "constant re-assignment"); (yyval.nd) = new_stmts(p, 0); } -#line 8361 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8362 "mrbgems/mruby-compiler/core/y.tab.c" break; case 206: /* arg: backref tOP_ASGN arg_rhs */ -#line 2772 "mrbgems/mruby-compiler/core/parse.y" +#line 2773 "mrbgems/mruby-compiler/core/parse.y" { backref_error(p, (yyvsp[-2].nd)); (yyval.nd) = new_stmts(p, 0); } -#line 8370 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8371 "mrbgems/mruby-compiler/core/y.tab.c" break; case 207: /* arg: arg ".." arg */ -#line 2777 "mrbgems/mruby-compiler/core/parse.y" +#line 2778 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_dot2(p, (yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 8378 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8379 "mrbgems/mruby-compiler/core/y.tab.c" break; case 208: /* arg: arg ".." */ -#line 2781 "mrbgems/mruby-compiler/core/parse.y" +#line 2782 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_dot2(p, (yyvsp[-1].nd), new_nil(p)); } -#line 8386 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8387 "mrbgems/mruby-compiler/core/y.tab.c" break; case 209: /* arg: tBDOT2 arg */ -#line 2785 "mrbgems/mruby-compiler/core/parse.y" +#line 2786 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_dot2(p, new_nil(p), (yyvsp[0].nd)); } -#line 8394 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8395 "mrbgems/mruby-compiler/core/y.tab.c" break; case 210: /* arg: arg "..." arg */ -#line 2789 "mrbgems/mruby-compiler/core/parse.y" +#line 2790 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_dot3(p, (yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 8402 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8403 "mrbgems/mruby-compiler/core/y.tab.c" break; case 211: /* arg: arg "..." */ -#line 2793 "mrbgems/mruby-compiler/core/parse.y" +#line 2794 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_dot3(p, (yyvsp[-1].nd), new_nil(p)); } -#line 8410 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8411 "mrbgems/mruby-compiler/core/y.tab.c" break; case 212: /* arg: tBDOT3 arg */ -#line 2797 "mrbgems/mruby-compiler/core/parse.y" +#line 2798 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_dot3(p, new_nil(p), (yyvsp[0].nd)); } -#line 8418 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8419 "mrbgems/mruby-compiler/core/y.tab.c" break; case 213: /* arg: arg '+' arg */ -#line 2801 "mrbgems/mruby-compiler/core/parse.y" +#line 2802 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_bin_op(p, (yyvsp[-2].nd), "+", (yyvsp[0].nd)); } -#line 8426 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8427 "mrbgems/mruby-compiler/core/y.tab.c" break; case 214: /* arg: arg '-' arg */ -#line 2805 "mrbgems/mruby-compiler/core/parse.y" +#line 2806 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_bin_op(p, (yyvsp[-2].nd), "-", (yyvsp[0].nd)); } -#line 8434 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8435 "mrbgems/mruby-compiler/core/y.tab.c" break; case 215: /* arg: arg '*' arg */ -#line 2809 "mrbgems/mruby-compiler/core/parse.y" +#line 2810 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_bin_op(p, (yyvsp[-2].nd), "*", (yyvsp[0].nd)); } -#line 8442 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8443 "mrbgems/mruby-compiler/core/y.tab.c" break; case 216: /* arg: arg '/' arg */ -#line 2813 "mrbgems/mruby-compiler/core/parse.y" +#line 2814 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_bin_op(p, (yyvsp[-2].nd), "/", (yyvsp[0].nd)); } -#line 8450 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8451 "mrbgems/mruby-compiler/core/y.tab.c" break; case 217: /* arg: arg '%' arg */ -#line 2817 "mrbgems/mruby-compiler/core/parse.y" +#line 2818 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_bin_op(p, (yyvsp[-2].nd), "%", (yyvsp[0].nd)); } -#line 8458 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8459 "mrbgems/mruby-compiler/core/y.tab.c" break; case 218: /* arg: arg tPOW arg */ -#line 2821 "mrbgems/mruby-compiler/core/parse.y" +#line 2822 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_bin_op(p, (yyvsp[-2].nd), "**", (yyvsp[0].nd)); } -#line 8466 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8467 "mrbgems/mruby-compiler/core/y.tab.c" break; case 219: /* arg: tUMINUS_NUM "integer literal" tPOW arg */ -#line 2825 "mrbgems/mruby-compiler/core/parse.y" +#line 2826 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_negate(p, call_bin_op(p, (yyvsp[-2].nd), "**", (yyvsp[0].nd))); } -#line 8474 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8475 "mrbgems/mruby-compiler/core/y.tab.c" break; case 220: /* arg: tUMINUS_NUM "float literal" tPOW arg */ -#line 2829 "mrbgems/mruby-compiler/core/parse.y" +#line 2830 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_negate(p, call_bin_op(p, (yyvsp[-2].nd), "**", (yyvsp[0].nd))); } -#line 8482 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8483 "mrbgems/mruby-compiler/core/y.tab.c" break; case 221: /* arg: "unary plus" arg */ -#line 2833 "mrbgems/mruby-compiler/core/parse.y" +#line 2834 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_uni_op(p, (yyvsp[0].nd), "+@"); } -#line 8490 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8491 "mrbgems/mruby-compiler/core/y.tab.c" break; case 222: /* arg: "unary minus" arg */ -#line 2837 "mrbgems/mruby-compiler/core/parse.y" +#line 2838 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_negate(p, (yyvsp[0].nd)); } -#line 8498 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8499 "mrbgems/mruby-compiler/core/y.tab.c" break; case 223: /* arg: arg '|' arg */ -#line 2841 "mrbgems/mruby-compiler/core/parse.y" +#line 2842 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_bin_op(p, (yyvsp[-2].nd), "|", (yyvsp[0].nd)); } -#line 8506 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8507 "mrbgems/mruby-compiler/core/y.tab.c" break; case 224: /* arg: arg '^' arg */ -#line 2845 "mrbgems/mruby-compiler/core/parse.y" +#line 2846 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_bin_op(p, (yyvsp[-2].nd), "^", (yyvsp[0].nd)); } -#line 8514 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8515 "mrbgems/mruby-compiler/core/y.tab.c" break; case 225: /* arg: arg '&' arg */ -#line 2849 "mrbgems/mruby-compiler/core/parse.y" +#line 2850 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_bin_op(p, (yyvsp[-2].nd), "&", (yyvsp[0].nd)); } -#line 8522 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8523 "mrbgems/mruby-compiler/core/y.tab.c" break; case 226: /* arg: arg "<=>" arg */ -#line 2853 "mrbgems/mruby-compiler/core/parse.y" +#line 2854 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_bin_op(p, (yyvsp[-2].nd), "<=>", (yyvsp[0].nd)); } -#line 8530 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8531 "mrbgems/mruby-compiler/core/y.tab.c" break; case 227: /* arg: arg '>' arg */ -#line 2857 "mrbgems/mruby-compiler/core/parse.y" +#line 2858 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_bin_op(p, (yyvsp[-2].nd), ">", (yyvsp[0].nd)); } -#line 8538 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8539 "mrbgems/mruby-compiler/core/y.tab.c" break; case 228: /* arg: arg ">=" arg */ -#line 2861 "mrbgems/mruby-compiler/core/parse.y" +#line 2862 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_bin_op(p, (yyvsp[-2].nd), ">=", (yyvsp[0].nd)); } -#line 8546 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8547 "mrbgems/mruby-compiler/core/y.tab.c" break; case 229: /* arg: arg '<' arg */ -#line 2865 "mrbgems/mruby-compiler/core/parse.y" +#line 2866 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_bin_op(p, (yyvsp[-2].nd), "<", (yyvsp[0].nd)); } -#line 8554 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8555 "mrbgems/mruby-compiler/core/y.tab.c" break; case 230: /* arg: arg "<=" arg */ -#line 2869 "mrbgems/mruby-compiler/core/parse.y" +#line 2870 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_bin_op(p, (yyvsp[-2].nd), "<=", (yyvsp[0].nd)); } -#line 8562 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8563 "mrbgems/mruby-compiler/core/y.tab.c" break; case 231: /* arg: arg "==" arg */ -#line 2873 "mrbgems/mruby-compiler/core/parse.y" +#line 2874 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_bin_op(p, (yyvsp[-2].nd), "==", (yyvsp[0].nd)); } -#line 8570 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8571 "mrbgems/mruby-compiler/core/y.tab.c" break; case 232: /* arg: arg "===" arg */ -#line 2877 "mrbgems/mruby-compiler/core/parse.y" +#line 2878 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_bin_op(p, (yyvsp[-2].nd), "===", (yyvsp[0].nd)); } -#line 8578 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8579 "mrbgems/mruby-compiler/core/y.tab.c" break; case 233: /* arg: arg "!=" arg */ -#line 2881 "mrbgems/mruby-compiler/core/parse.y" +#line 2882 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_bin_op(p, (yyvsp[-2].nd), "!=", (yyvsp[0].nd)); } -#line 8586 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8587 "mrbgems/mruby-compiler/core/y.tab.c" break; case 234: /* arg: arg "=~" arg */ -#line 2885 "mrbgems/mruby-compiler/core/parse.y" +#line 2886 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_bin_op(p, (yyvsp[-2].nd), "=~", (yyvsp[0].nd)); } -#line 8594 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8595 "mrbgems/mruby-compiler/core/y.tab.c" break; case 235: /* arg: arg "!~" arg */ -#line 2889 "mrbgems/mruby-compiler/core/parse.y" +#line 2890 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_bin_op(p, (yyvsp[-2].nd), "!~", (yyvsp[0].nd)); } -#line 8602 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8603 "mrbgems/mruby-compiler/core/y.tab.c" break; case 236: /* arg: '!' arg */ -#line 2893 "mrbgems/mruby-compiler/core/parse.y" +#line 2894 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_uni_op(p, cond((yyvsp[0].nd)), "!"); } -#line 8610 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8611 "mrbgems/mruby-compiler/core/y.tab.c" break; case 237: /* arg: '~' arg */ -#line 2897 "mrbgems/mruby-compiler/core/parse.y" +#line 2898 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_uni_op(p, cond((yyvsp[0].nd)), "~"); } -#line 8618 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8619 "mrbgems/mruby-compiler/core/y.tab.c" break; case 238: /* arg: arg "<<" arg */ -#line 2901 "mrbgems/mruby-compiler/core/parse.y" +#line 2902 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_bin_op(p, (yyvsp[-2].nd), "<<", (yyvsp[0].nd)); } -#line 8626 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8627 "mrbgems/mruby-compiler/core/y.tab.c" break; case 239: /* arg: arg ">>" arg */ -#line 2905 "mrbgems/mruby-compiler/core/parse.y" +#line 2906 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_bin_op(p, (yyvsp[-2].nd), ">>", (yyvsp[0].nd)); } -#line 8634 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8635 "mrbgems/mruby-compiler/core/y.tab.c" break; case 240: /* arg: arg "&&" arg */ -#line 2909 "mrbgems/mruby-compiler/core/parse.y" +#line 2910 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_and(p, (yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 8642 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8643 "mrbgems/mruby-compiler/core/y.tab.c" break; case 241: /* arg: arg "||" arg */ -#line 2913 "mrbgems/mruby-compiler/core/parse.y" +#line 2914 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_or(p, (yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 8650 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8651 "mrbgems/mruby-compiler/core/y.tab.c" break; case 242: /* arg: arg '?' arg opt_nl ':' arg */ -#line 2917 "mrbgems/mruby-compiler/core/parse.y" +#line 2918 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_if(p, cond((yyvsp[-5].nd)), (yyvsp[-3].nd), (yyvsp[0].nd)); } -#line 8658 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8659 "mrbgems/mruby-compiler/core/y.tab.c" break; case 243: /* arg: arg '?' arg opt_nl "label" arg */ -#line 2921 "mrbgems/mruby-compiler/core/parse.y" +#line 2922 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_if(p, cond((yyvsp[-5].nd)), (yyvsp[-3].nd), (yyvsp[0].nd)); } -#line 8666 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8667 "mrbgems/mruby-compiler/core/y.tab.c" break; case 244: /* arg: defn_head f_opt_arglist_paren '=' arg */ -#line 2925 "mrbgems/mruby-compiler/core/parse.y" +#line 2926 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-3].nd); endless_method_name(p, (yyvsp[-3].nd)); @@ -8674,11 +8676,11 @@ yyreduce: nvars_unnest(p); p->in_def--; } -#line 8679 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8680 "mrbgems/mruby-compiler/core/y.tab.c" break; case 245: /* arg: defn_head f_opt_arglist_paren '=' arg "'rescue' modifier" arg */ -#line 2934 "mrbgems/mruby-compiler/core/parse.y" +#line 2935 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-5].nd); endless_method_name(p, (yyvsp[-5].nd)); @@ -8687,11 +8689,11 @@ yyreduce: nvars_unnest(p); p->in_def--; } -#line 8692 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8693 "mrbgems/mruby-compiler/core/y.tab.c" break; case 246: /* arg: defs_head f_opt_arglist_paren '=' arg */ -#line 2943 "mrbgems/mruby-compiler/core/parse.y" +#line 2944 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-3].nd); void_expr_error(p, (yyvsp[0].nd)); @@ -8700,11 +8702,11 @@ yyreduce: p->in_def--; p->in_single--; } -#line 8705 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8706 "mrbgems/mruby-compiler/core/y.tab.c" break; case 247: /* arg: defs_head f_opt_arglist_paren '=' arg "'rescue' modifier" arg */ -#line 2952 "mrbgems/mruby-compiler/core/parse.y" +#line 2953 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-5].nd); void_expr_error(p, (yyvsp[-2].nd)); @@ -8713,68 +8715,68 @@ yyreduce: p->in_def--; p->in_single--; } -#line 8718 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8719 "mrbgems/mruby-compiler/core/y.tab.c" break; case 248: /* arg: primary */ -#line 2961 "mrbgems/mruby-compiler/core/parse.y" +#line 2962 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[0].nd); } -#line 8726 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8727 "mrbgems/mruby-compiler/core/y.tab.c" break; case 250: /* aref_args: args trailer */ -#line 2968 "mrbgems/mruby-compiler/core/parse.y" +#line 2969 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-1].nd); } -#line 8734 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8735 "mrbgems/mruby-compiler/core/y.tab.c" break; case 251: /* aref_args: args comma assocs trailer */ -#line 2972 "mrbgems/mruby-compiler/core/parse.y" +#line 2973 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = push((yyvsp[-3].nd), new_hash(p, (yyvsp[-1].nd))); } -#line 8742 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8743 "mrbgems/mruby-compiler/core/y.tab.c" break; case 252: /* aref_args: assocs trailer */ -#line 2976 "mrbgems/mruby-compiler/core/parse.y" +#line 2977 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = cons(new_hash(p, (yyvsp[-1].nd)), 0); } -#line 8750 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8751 "mrbgems/mruby-compiler/core/y.tab.c" break; case 253: /* arg_rhs: arg */ -#line 2982 "mrbgems/mruby-compiler/core/parse.y" +#line 2983 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[0].nd); } -#line 8758 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8759 "mrbgems/mruby-compiler/core/y.tab.c" break; case 254: /* arg_rhs: arg "'rescue' modifier" arg */ -#line 2986 "mrbgems/mruby-compiler/core/parse.y" +#line 2987 "mrbgems/mruby-compiler/core/parse.y" { void_expr_error(p, (yyvsp[-2].nd)); (yyval.nd) = new_mod_rescue(p, (yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 8767 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8768 "mrbgems/mruby-compiler/core/y.tab.c" break; case 255: /* paren_args: '(' opt_call_args ')' */ -#line 2993 "mrbgems/mruby-compiler/core/parse.y" +#line 2994 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-1].nd); } -#line 8775 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8776 "mrbgems/mruby-compiler/core/y.tab.c" break; case 256: /* paren_args: '(' args comma tBDOT3 rparen */ -#line 2997 "mrbgems/mruby-compiler/core/parse.y" +#line 2998 "mrbgems/mruby-compiler/core/parse.y" { mrb_sym r = intern_op(mul); mrb_sym k = intern_op(pow); @@ -8783,11 +8785,11 @@ yyreduce: list1(cons(new_kw_rest_args(p, 0), new_lvar(p, k))), new_block_arg(p, new_lvar(p, b))); } -#line 8788 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8789 "mrbgems/mruby-compiler/core/y.tab.c" break; case 257: /* paren_args: '(' tBDOT3 rparen */ -#line 3006 "mrbgems/mruby-compiler/core/parse.y" +#line 3007 "mrbgems/mruby-compiler/core/parse.y" { mrb_sym r = intern_op(mul); mrb_sym k = intern_op(pow); @@ -8802,390 +8804,390 @@ yyreduce: (yyval.nd) = 0; } } -#line 8807 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8808 "mrbgems/mruby-compiler/core/y.tab.c" break; case 262: /* opt_call_args: args comma */ -#line 3029 "mrbgems/mruby-compiler/core/parse.y" +#line 3030 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_callargs(p,(yyvsp[-1].nd),0,0); } -#line 8815 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8816 "mrbgems/mruby-compiler/core/y.tab.c" break; case 263: /* opt_call_args: args comma assocs comma */ -#line 3033 "mrbgems/mruby-compiler/core/parse.y" +#line 3034 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_callargs(p,(yyvsp[-3].nd),(yyvsp[-1].nd),0); } -#line 8823 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8824 "mrbgems/mruby-compiler/core/y.tab.c" break; case 264: /* opt_call_args: assocs comma */ -#line 3037 "mrbgems/mruby-compiler/core/parse.y" +#line 3038 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_callargs(p,0,(yyvsp[-1].nd),0); } -#line 8831 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8832 "mrbgems/mruby-compiler/core/y.tab.c" break; case 265: /* call_args: command */ -#line 3043 "mrbgems/mruby-compiler/core/parse.y" +#line 3044 "mrbgems/mruby-compiler/core/parse.y" { void_expr_error(p, (yyvsp[0].nd)); (yyval.nd) = new_callargs(p, list1((yyvsp[0].nd)), 0, 0); } -#line 8840 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8841 "mrbgems/mruby-compiler/core/y.tab.c" break; case 266: /* call_args: args opt_block_arg */ -#line 3048 "mrbgems/mruby-compiler/core/parse.y" +#line 3049 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_callargs(p, (yyvsp[-1].nd), 0, (yyvsp[0].nd)); } -#line 8848 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8849 "mrbgems/mruby-compiler/core/y.tab.c" break; case 267: /* call_args: assocs opt_block_arg */ -#line 3052 "mrbgems/mruby-compiler/core/parse.y" +#line 3053 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_callargs(p, 0, (yyvsp[-1].nd), (yyvsp[0].nd)); } -#line 8856 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8857 "mrbgems/mruby-compiler/core/y.tab.c" break; case 268: /* call_args: args comma assocs opt_block_arg */ -#line 3056 "mrbgems/mruby-compiler/core/parse.y" +#line 3057 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_callargs(p, (yyvsp[-3].nd), (yyvsp[-1].nd), (yyvsp[0].nd)); } -#line 8864 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8865 "mrbgems/mruby-compiler/core/y.tab.c" break; case 269: /* call_args: block_arg */ -#line 3060 "mrbgems/mruby-compiler/core/parse.y" +#line 3061 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_callargs(p, 0, 0, (yyvsp[0].nd)); } -#line 8872 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8873 "mrbgems/mruby-compiler/core/y.tab.c" break; case 270: /* @7: %empty */ -#line 3065 "mrbgems/mruby-compiler/core/parse.y" +#line 3066 "mrbgems/mruby-compiler/core/parse.y" { (yyval.stack) = p->cmdarg_stack; CMDARG_PUSH(1); } -#line 8881 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8882 "mrbgems/mruby-compiler/core/y.tab.c" break; case 271: /* command_args: @7 call_args */ -#line 3070 "mrbgems/mruby-compiler/core/parse.y" +#line 3071 "mrbgems/mruby-compiler/core/parse.y" { p->cmdarg_stack = (yyvsp[-1].stack); (yyval.nd) = (yyvsp[0].nd); } -#line 8890 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8891 "mrbgems/mruby-compiler/core/y.tab.c" break; case 272: /* block_arg: "&" arg */ -#line 3077 "mrbgems/mruby-compiler/core/parse.y" +#line 3078 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_block_arg(p, (yyvsp[0].nd)); } -#line 8898 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8899 "mrbgems/mruby-compiler/core/y.tab.c" break; case 273: /* block_arg: "&" */ -#line 3081 "mrbgems/mruby-compiler/core/parse.y" +#line 3082 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_block_arg(p, 0); } -#line 8906 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8907 "mrbgems/mruby-compiler/core/y.tab.c" break; case 274: /* opt_block_arg: comma block_arg */ -#line 3087 "mrbgems/mruby-compiler/core/parse.y" +#line 3088 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[0].nd); } -#line 8914 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8915 "mrbgems/mruby-compiler/core/y.tab.c" break; case 275: /* opt_block_arg: none */ -#line 3091 "mrbgems/mruby-compiler/core/parse.y" +#line 3092 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = 0; } -#line 8922 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8923 "mrbgems/mruby-compiler/core/y.tab.c" break; case 277: /* args: arg */ -#line 3100 "mrbgems/mruby-compiler/core/parse.y" +#line 3101 "mrbgems/mruby-compiler/core/parse.y" { void_expr_error(p, (yyvsp[0].nd)); (yyval.nd) = list1((yyvsp[0].nd)); } -#line 8931 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8932 "mrbgems/mruby-compiler/core/y.tab.c" break; case 278: /* args: "*" */ -#line 3105 "mrbgems/mruby-compiler/core/parse.y" +#line 3106 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list1(new_splat(p, new_lvar(p, intern_op(mul)))); } -#line 8939 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8940 "mrbgems/mruby-compiler/core/y.tab.c" break; case 279: /* args: "*" arg */ -#line 3109 "mrbgems/mruby-compiler/core/parse.y" +#line 3110 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list1(new_splat(p, (yyvsp[0].nd))); } -#line 8947 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8948 "mrbgems/mruby-compiler/core/y.tab.c" break; case 280: /* args: args comma arg */ -#line 3113 "mrbgems/mruby-compiler/core/parse.y" +#line 3114 "mrbgems/mruby-compiler/core/parse.y" { void_expr_error(p, (yyvsp[0].nd)); (yyval.nd) = push((yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 8956 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8957 "mrbgems/mruby-compiler/core/y.tab.c" break; case 281: /* args: args comma "*" */ -#line 3118 "mrbgems/mruby-compiler/core/parse.y" +#line 3119 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = push((yyvsp[-2].nd), new_splat(p, new_lvar(p, intern_op(mul)))); } -#line 8964 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8965 "mrbgems/mruby-compiler/core/y.tab.c" break; case 282: /* args: args comma "*" arg */ -#line 3122 "mrbgems/mruby-compiler/core/parse.y" +#line 3123 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = push((yyvsp[-3].nd), new_splat(p, (yyvsp[0].nd))); } -#line 8972 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8973 "mrbgems/mruby-compiler/core/y.tab.c" break; case 283: /* mrhs: args comma arg */ -#line 3128 "mrbgems/mruby-compiler/core/parse.y" +#line 3129 "mrbgems/mruby-compiler/core/parse.y" { void_expr_error(p, (yyvsp[0].nd)); (yyval.nd) = push((yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 8981 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8982 "mrbgems/mruby-compiler/core/y.tab.c" break; case 284: /* mrhs: args comma "*" arg */ -#line 3133 "mrbgems/mruby-compiler/core/parse.y" +#line 3134 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = push((yyvsp[-3].nd), new_splat(p, (yyvsp[0].nd))); } -#line 8989 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8990 "mrbgems/mruby-compiler/core/y.tab.c" break; case 285: /* mrhs: "*" arg */ -#line 3137 "mrbgems/mruby-compiler/core/parse.y" +#line 3138 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list1(new_splat(p, (yyvsp[0].nd))); } -#line 8997 "mrbgems/mruby-compiler/core/y.tab.c" +#line 8998 "mrbgems/mruby-compiler/core/y.tab.c" break; case 287: /* primary: string */ -#line 3144 "mrbgems/mruby-compiler/core/parse.y" +#line 3145 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_str(p, (yyvsp[0].nd)); } -#line 9005 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9006 "mrbgems/mruby-compiler/core/y.tab.c" break; case 288: /* primary: xstring */ -#line 3148 "mrbgems/mruby-compiler/core/parse.y" +#line 3149 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_xstr(p, (yyvsp[0].nd)); } -#line 9013 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9014 "mrbgems/mruby-compiler/core/y.tab.c" break; case 293: /* primary: "method" */ -#line 3156 "mrbgems/mruby-compiler/core/parse.y" +#line 3157 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_fcall(p, (yyvsp[0].id), 0); } -#line 9021 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9022 "mrbgems/mruby-compiler/core/y.tab.c" break; case 294: /* @8: %empty */ -#line 3160 "mrbgems/mruby-compiler/core/parse.y" +#line 3161 "mrbgems/mruby-compiler/core/parse.y" { (yyval.stack) = p->cmdarg_stack; p->cmdarg_stack = 0; } -#line 9030 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9031 "mrbgems/mruby-compiler/core/y.tab.c" break; case 295: /* primary: "'begin'" @8 bodystmt "'end'" */ -#line 3166 "mrbgems/mruby-compiler/core/parse.y" +#line 3167 "mrbgems/mruby-compiler/core/parse.y" { p->cmdarg_stack = (yyvsp[-2].stack); (yyval.nd) = new_begin(p, (yyvsp[-1].nd)); } -#line 9039 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9040 "mrbgems/mruby-compiler/core/y.tab.c" break; case 296: /* @9: %empty */ -#line 3171 "mrbgems/mruby-compiler/core/parse.y" +#line 3172 "mrbgems/mruby-compiler/core/parse.y" { (yyval.stack) = p->cmdarg_stack; p->cmdarg_stack = 0; } -#line 9048 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9049 "mrbgems/mruby-compiler/core/y.tab.c" break; case 297: /* $@10: %empty */ -#line 3175 "mrbgems/mruby-compiler/core/parse.y" +#line 3176 "mrbgems/mruby-compiler/core/parse.y" {p->lstate = EXPR_ENDARG;} -#line 9054 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9055 "mrbgems/mruby-compiler/core/y.tab.c" break; case 298: /* primary: "(" @9 stmt $@10 rparen */ -#line 3176 "mrbgems/mruby-compiler/core/parse.y" +#line 3177 "mrbgems/mruby-compiler/core/parse.y" { p->cmdarg_stack = (yyvsp[-3].stack); (yyval.nd) = (yyvsp[-2].nd); } -#line 9063 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9064 "mrbgems/mruby-compiler/core/y.tab.c" break; case 299: /* $@11: %empty */ -#line 3180 "mrbgems/mruby-compiler/core/parse.y" +#line 3181 "mrbgems/mruby-compiler/core/parse.y" {p->lstate = EXPR_ENDARG;} -#line 9069 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9070 "mrbgems/mruby-compiler/core/y.tab.c" break; case 300: /* primary: "(" $@11 rparen */ -#line 3181 "mrbgems/mruby-compiler/core/parse.y" +#line 3182 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_nil(p); } -#line 9077 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9078 "mrbgems/mruby-compiler/core/y.tab.c" break; case 301: /* primary: tLPAREN compstmt ')' */ -#line 3185 "mrbgems/mruby-compiler/core/parse.y" +#line 3186 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-1].nd); } -#line 9085 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9086 "mrbgems/mruby-compiler/core/y.tab.c" break; case 302: /* primary: primary_value "::" "constant" */ -#line 3189 "mrbgems/mruby-compiler/core/parse.y" +#line 3190 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_colon2(p, (yyvsp[-2].nd), (yyvsp[0].id)); } -#line 9093 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9094 "mrbgems/mruby-compiler/core/y.tab.c" break; case 303: /* primary: tCOLON3 "constant" */ -#line 3193 "mrbgems/mruby-compiler/core/parse.y" +#line 3194 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_colon3(p, (yyvsp[0].id)); } -#line 9101 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9102 "mrbgems/mruby-compiler/core/y.tab.c" break; case 304: /* primary: "[" aref_args ']' */ -#line 3197 "mrbgems/mruby-compiler/core/parse.y" +#line 3198 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_array(p, (yyvsp[-1].nd)); } -#line 9109 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9110 "mrbgems/mruby-compiler/core/y.tab.c" break; case 305: /* primary: tLBRACE assoc_list '}' */ -#line 3201 "mrbgems/mruby-compiler/core/parse.y" +#line 3202 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_hash(p, (yyvsp[-1].nd)); } -#line 9117 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9118 "mrbgems/mruby-compiler/core/y.tab.c" break; case 306: /* primary: "'return'" */ -#line 3205 "mrbgems/mruby-compiler/core/parse.y" +#line 3206 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_return(p, 0); } -#line 9125 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9126 "mrbgems/mruby-compiler/core/y.tab.c" break; case 307: /* primary: "'yield'" opt_paren_args */ -#line 3209 "mrbgems/mruby-compiler/core/parse.y" +#line 3210 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_yield(p, (yyvsp[0].nd)); } -#line 9133 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9134 "mrbgems/mruby-compiler/core/y.tab.c" break; case 308: /* primary: "'not'" '(' expr rparen */ -#line 3213 "mrbgems/mruby-compiler/core/parse.y" +#line 3214 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_uni_op(p, cond((yyvsp[-1].nd)), "!"); } -#line 9141 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9142 "mrbgems/mruby-compiler/core/y.tab.c" break; case 309: /* primary: "'not'" '(' rparen */ -#line 3217 "mrbgems/mruby-compiler/core/parse.y" +#line 3218 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = call_uni_op(p, new_nil(p), "!"); } -#line 9149 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9150 "mrbgems/mruby-compiler/core/y.tab.c" break; case 310: /* primary: operation brace_block */ -#line 3221 "mrbgems/mruby-compiler/core/parse.y" +#line 3222 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_fcall(p, (yyvsp[-1].id), new_callargs(p, 0, 0, (yyvsp[0].nd))); } -#line 9157 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9158 "mrbgems/mruby-compiler/core/y.tab.c" break; case 312: /* primary: method_call brace_block */ -#line 3226 "mrbgems/mruby-compiler/core/parse.y" +#line 3227 "mrbgems/mruby-compiler/core/parse.y" { call_with_block(p, (yyvsp[-1].nd), (yyvsp[0].nd)); (yyval.nd) = (yyvsp[-1].nd); } -#line 9166 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9167 "mrbgems/mruby-compiler/core/y.tab.c" break; case 313: /* @12: %empty */ -#line 3231 "mrbgems/mruby-compiler/core/parse.y" +#line 3232 "mrbgems/mruby-compiler/core/parse.y" { local_nest(p); nvars_nest(p); (yyval.num) = p->lpar_beg; p->lpar_beg = ++p->paren_nest; } -#line 9177 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9178 "mrbgems/mruby-compiler/core/y.tab.c" break; case 314: /* @13: %empty */ -#line 3238 "mrbgems/mruby-compiler/core/parse.y" +#line 3239 "mrbgems/mruby-compiler/core/parse.y" { (yyval.stack) = p->cmdarg_stack; p->cmdarg_stack = 0; } -#line 9186 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9187 "mrbgems/mruby-compiler/core/y.tab.c" break; case 315: /* primary: "->" @12 f_larglist @13 lambda_body */ -#line 3243 "mrbgems/mruby-compiler/core/parse.y" +#line 3244 "mrbgems/mruby-compiler/core/parse.y" { p->lpar_beg = (yyvsp[-3].num); (yyval.nd) = new_lambda(p, (yyvsp[-2].nd), (yyvsp[0].nd)); @@ -9194,149 +9196,149 @@ yyreduce: p->cmdarg_stack = (yyvsp[-1].stack); CMDARG_LEXPOP(); } -#line 9199 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9200 "mrbgems/mruby-compiler/core/y.tab.c" break; case 316: /* primary: "'if'" expr_value then compstmt if_tail "'end'" */ -#line 3255 "mrbgems/mruby-compiler/core/parse.y" +#line 3256 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_if(p, cond((yyvsp[-4].nd)), (yyvsp[-2].nd), (yyvsp[-1].nd)); SET_LINENO((yyval.nd), (yyvsp[-5].num)); } -#line 9208 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9209 "mrbgems/mruby-compiler/core/y.tab.c" break; case 317: /* primary: "'unless'" expr_value then compstmt opt_else "'end'" */ -#line 3263 "mrbgems/mruby-compiler/core/parse.y" +#line 3264 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_if(p, cond((yyvsp[-4].nd)), (yyvsp[-1].nd), (yyvsp[-2].nd)); SET_LINENO((yyval.nd), (yyvsp[-5].num)); } -#line 9217 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9218 "mrbgems/mruby-compiler/core/y.tab.c" break; case 318: /* $@14: %empty */ -#line 3267 "mrbgems/mruby-compiler/core/parse.y" +#line 3268 "mrbgems/mruby-compiler/core/parse.y" {COND_PUSH(1);} -#line 9223 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9224 "mrbgems/mruby-compiler/core/y.tab.c" break; case 319: /* $@15: %empty */ -#line 3267 "mrbgems/mruby-compiler/core/parse.y" +#line 3268 "mrbgems/mruby-compiler/core/parse.y" {COND_POP();} -#line 9229 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9230 "mrbgems/mruby-compiler/core/y.tab.c" break; case 320: /* primary: "'while'" $@14 expr_value do $@15 compstmt "'end'" */ -#line 3270 "mrbgems/mruby-compiler/core/parse.y" +#line 3271 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_while(p, cond((yyvsp[-4].nd)), (yyvsp[-1].nd)); SET_LINENO((yyval.nd), (yyvsp[-6].num)); } -#line 9238 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9239 "mrbgems/mruby-compiler/core/y.tab.c" break; case 321: /* $@16: %empty */ -#line 3274 "mrbgems/mruby-compiler/core/parse.y" +#line 3275 "mrbgems/mruby-compiler/core/parse.y" {COND_PUSH(1);} -#line 9244 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9245 "mrbgems/mruby-compiler/core/y.tab.c" break; case 322: /* $@17: %empty */ -#line 3274 "mrbgems/mruby-compiler/core/parse.y" +#line 3275 "mrbgems/mruby-compiler/core/parse.y" {COND_POP();} -#line 9250 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9251 "mrbgems/mruby-compiler/core/y.tab.c" break; case 323: /* primary: "'until'" $@16 expr_value do $@17 compstmt "'end'" */ -#line 3277 "mrbgems/mruby-compiler/core/parse.y" +#line 3278 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_until(p, cond((yyvsp[-4].nd)), (yyvsp[-1].nd)); SET_LINENO((yyval.nd), (yyvsp[-6].num)); } -#line 9259 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9260 "mrbgems/mruby-compiler/core/y.tab.c" break; case 324: /* primary: "'case'" expr_value opt_terms case_body "'end'" */ -#line 3284 "mrbgems/mruby-compiler/core/parse.y" +#line 3285 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_case(p, (yyvsp[-3].nd), (yyvsp[-1].nd)); } -#line 9267 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9268 "mrbgems/mruby-compiler/core/y.tab.c" break; case 325: /* primary: "'case'" opt_terms case_body "'end'" */ -#line 3288 "mrbgems/mruby-compiler/core/parse.y" +#line 3289 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_case(p, 0, (yyvsp[-1].nd)); } -#line 9275 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9276 "mrbgems/mruby-compiler/core/y.tab.c" break; case 326: /* $@18: %empty */ -#line 3292 "mrbgems/mruby-compiler/core/parse.y" +#line 3293 "mrbgems/mruby-compiler/core/parse.y" {COND_PUSH(1);} -#line 9281 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9282 "mrbgems/mruby-compiler/core/y.tab.c" break; case 327: /* $@19: %empty */ -#line 3294 "mrbgems/mruby-compiler/core/parse.y" +#line 3295 "mrbgems/mruby-compiler/core/parse.y" {COND_POP();} -#line 9287 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9288 "mrbgems/mruby-compiler/core/y.tab.c" break; case 328: /* primary: "'for'" for_var "'in'" $@18 expr_value do $@19 compstmt "'end'" */ -#line 3297 "mrbgems/mruby-compiler/core/parse.y" +#line 3298 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_for(p, (yyvsp[-7].nd), (yyvsp[-4].nd), (yyvsp[-1].nd)); SET_LINENO((yyval.nd), (yyvsp[-8].num)); } -#line 9296 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9297 "mrbgems/mruby-compiler/core/y.tab.c" break; case 329: /* @20: %empty */ -#line 3303 "mrbgems/mruby-compiler/core/parse.y" +#line 3304 "mrbgems/mruby-compiler/core/parse.y" { if (p->in_def || p->in_single) yyerror(&(yylsp[-2]), p, "class definition in method body"); (yyval.nd) = local_switch(p); nvars_block(p); } -#line 9307 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9308 "mrbgems/mruby-compiler/core/y.tab.c" break; case 330: /* primary: "'class'" cpath superclass @20 bodystmt "'end'" */ -#line 3311 "mrbgems/mruby-compiler/core/parse.y" +#line 3312 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_class(p, (yyvsp[-4].nd), (yyvsp[-3].nd), (yyvsp[-1].nd)); SET_LINENO((yyval.nd), (yyvsp[-5].num)); local_resume(p, (yyvsp[-2].nd)); nvars_unnest(p); } -#line 9318 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9319 "mrbgems/mruby-compiler/core/y.tab.c" break; case 331: /* @21: %empty */ -#line 3319 "mrbgems/mruby-compiler/core/parse.y" +#line 3320 "mrbgems/mruby-compiler/core/parse.y" { (yyval.num) = p->in_def; p->in_def = 0; } -#line 9327 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9328 "mrbgems/mruby-compiler/core/y.tab.c" break; case 332: /* @22: %empty */ -#line 3324 "mrbgems/mruby-compiler/core/parse.y" +#line 3325 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = cons(local_switch(p), int_to_node(p->in_single)); nvars_block(p); p->in_single = 0; } -#line 9337 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9338 "mrbgems/mruby-compiler/core/y.tab.c" break; case 333: /* primary: "'class'" "<<" expr @21 term @22 bodystmt "'end'" */ -#line 3331 "mrbgems/mruby-compiler/core/parse.y" +#line 3332 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_sclass(p, (yyvsp[-5].nd), (yyvsp[-1].nd)); SET_LINENO((yyval.nd), (yyvsp[-7].num)); @@ -9345,44 +9347,44 @@ yyreduce: p->in_def = (yyvsp[-4].num); p->in_single = node_to_int((yyvsp[-2].nd)->cdr); } -#line 9350 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9351 "mrbgems/mruby-compiler/core/y.tab.c" break; case 334: /* @23: %empty */ -#line 3341 "mrbgems/mruby-compiler/core/parse.y" +#line 3342 "mrbgems/mruby-compiler/core/parse.y" { if (p->in_def || p->in_single) yyerror(&(yylsp[-1]), p, "module definition in method body"); (yyval.nd) = local_switch(p); nvars_block(p); } -#line 9361 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9362 "mrbgems/mruby-compiler/core/y.tab.c" break; case 335: /* primary: "'module'" cpath @23 bodystmt "'end'" */ -#line 3349 "mrbgems/mruby-compiler/core/parse.y" +#line 3350 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_module(p, (yyvsp[-3].nd), (yyvsp[-1].nd)); SET_LINENO((yyval.nd), (yyvsp[-4].num)); local_resume(p, (yyvsp[-2].nd)); nvars_unnest(p); } -#line 9372 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9373 "mrbgems/mruby-compiler/core/y.tab.c" break; case 336: /* primary: defn_head f_arglist bodystmt "'end'" */ -#line 3359 "mrbgems/mruby-compiler/core/parse.y" +#line 3360 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-3].nd); defn_setup(p, (yyval.nd), (yyvsp[-2].nd), (yyvsp[-1].nd)); nvars_unnest(p); p->in_def--; } -#line 9383 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9384 "mrbgems/mruby-compiler/core/y.tab.c" break; case 337: /* primary: defs_head f_arglist bodystmt "'end'" */ -#line 3369 "mrbgems/mruby-compiler/core/parse.y" +#line 3370 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-3].nd); defn_setup(p, (yyval.nd), (yyvsp[-2].nd), (yyvsp[-1].nd)); @@ -9390,610 +9392,610 @@ yyreduce: p->in_def--; p->in_single--; } -#line 9395 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9396 "mrbgems/mruby-compiler/core/y.tab.c" break; case 338: /* primary: "'break'" */ -#line 3377 "mrbgems/mruby-compiler/core/parse.y" +#line 3378 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_break(p, 0); } -#line 9403 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9404 "mrbgems/mruby-compiler/core/y.tab.c" break; case 339: /* primary: "'next'" */ -#line 3381 "mrbgems/mruby-compiler/core/parse.y" +#line 3382 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_next(p, 0); } -#line 9411 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9412 "mrbgems/mruby-compiler/core/y.tab.c" break; case 340: /* primary: "'redo'" */ -#line 3385 "mrbgems/mruby-compiler/core/parse.y" +#line 3386 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_redo(p); } -#line 9419 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9420 "mrbgems/mruby-compiler/core/y.tab.c" break; case 341: /* primary: "'retry'" */ -#line 3389 "mrbgems/mruby-compiler/core/parse.y" +#line 3390 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_retry(p); } -#line 9427 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9428 "mrbgems/mruby-compiler/core/y.tab.c" break; case 342: /* primary_value: primary */ -#line 3395 "mrbgems/mruby-compiler/core/parse.y" +#line 3396 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[0].nd); if (!(yyval.nd)) (yyval.nd) = new_nil(p); } -#line 9436 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9437 "mrbgems/mruby-compiler/core/y.tab.c" break; case 349: /* if_tail: "'elsif'" expr_value then compstmt if_tail */ -#line 3414 "mrbgems/mruby-compiler/core/parse.y" +#line 3415 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_if(p, cond((yyvsp[-3].nd)), (yyvsp[-1].nd), (yyvsp[0].nd)); } -#line 9444 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9445 "mrbgems/mruby-compiler/core/y.tab.c" break; case 351: /* opt_else: "'else'" compstmt */ -#line 3421 "mrbgems/mruby-compiler/core/parse.y" +#line 3422 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[0].nd); } -#line 9452 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9453 "mrbgems/mruby-compiler/core/y.tab.c" break; case 352: /* for_var: lhs */ -#line 3427 "mrbgems/mruby-compiler/core/parse.y" +#line 3428 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list1(list1((yyvsp[0].nd))); } -#line 9460 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9461 "mrbgems/mruby-compiler/core/y.tab.c" break; case 354: /* f_margs: f_arg */ -#line 3434 "mrbgems/mruby-compiler/core/parse.y" +#line 3435 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list3((yyvsp[0].nd),0,0); } -#line 9468 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9469 "mrbgems/mruby-compiler/core/y.tab.c" break; case 355: /* f_margs: f_arg ',' "*" f_norm_arg */ -#line 3438 "mrbgems/mruby-compiler/core/parse.y" +#line 3439 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list3((yyvsp[-3].nd), new_lvar(p, (yyvsp[0].id)), 0); } -#line 9476 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9477 "mrbgems/mruby-compiler/core/y.tab.c" break; case 356: /* f_margs: f_arg ',' "*" f_norm_arg ',' f_arg */ -#line 3442 "mrbgems/mruby-compiler/core/parse.y" +#line 3443 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list3((yyvsp[-5].nd), new_lvar(p, (yyvsp[-2].id)), (yyvsp[0].nd)); } -#line 9484 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9485 "mrbgems/mruby-compiler/core/y.tab.c" break; case 357: /* f_margs: f_arg ',' "*" */ -#line 3446 "mrbgems/mruby-compiler/core/parse.y" +#line 3447 "mrbgems/mruby-compiler/core/parse.y" { local_add_f(p, intern_op(mul)); (yyval.nd) = list3((yyvsp[-2].nd), int_to_node(-1), 0); } -#line 9493 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9494 "mrbgems/mruby-compiler/core/y.tab.c" break; case 358: /* f_margs: f_arg ',' "*" ',' f_arg */ -#line 3451 "mrbgems/mruby-compiler/core/parse.y" +#line 3452 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list3((yyvsp[-4].nd), int_to_node(-1), (yyvsp[0].nd)); } -#line 9501 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9502 "mrbgems/mruby-compiler/core/y.tab.c" break; case 359: /* f_margs: "*" f_norm_arg */ -#line 3455 "mrbgems/mruby-compiler/core/parse.y" +#line 3456 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list3(0, new_lvar(p, (yyvsp[0].id)), 0); } -#line 9509 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9510 "mrbgems/mruby-compiler/core/y.tab.c" break; case 360: /* f_margs: "*" f_norm_arg ',' f_arg */ -#line 3459 "mrbgems/mruby-compiler/core/parse.y" +#line 3460 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list3(0, new_lvar(p, (yyvsp[-2].id)), (yyvsp[0].nd)); } -#line 9517 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9518 "mrbgems/mruby-compiler/core/y.tab.c" break; case 361: /* f_margs: "*" */ -#line 3463 "mrbgems/mruby-compiler/core/parse.y" +#line 3464 "mrbgems/mruby-compiler/core/parse.y" { local_add_f(p, intern_op(mul)); (yyval.nd) = list3(0, int_to_node(-1), 0); } -#line 9526 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9527 "mrbgems/mruby-compiler/core/y.tab.c" break; case 362: /* $@24: %empty */ -#line 3468 "mrbgems/mruby-compiler/core/parse.y" +#line 3469 "mrbgems/mruby-compiler/core/parse.y" { local_add_f(p, intern_op(mul)); } -#line 9534 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9535 "mrbgems/mruby-compiler/core/y.tab.c" break; case 363: /* f_margs: "*" ',' $@24 f_arg */ -#line 3472 "mrbgems/mruby-compiler/core/parse.y" +#line 3473 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list3(0, int_to_node(-1), (yyvsp[0].nd)); } -#line 9542 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9543 "mrbgems/mruby-compiler/core/y.tab.c" break; case 364: /* block_args_tail: f_block_kwarg ',' f_kwrest opt_f_block_arg */ -#line 3478 "mrbgems/mruby-compiler/core/parse.y" +#line 3479 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args_tail(p, (yyvsp[-3].nd), (yyvsp[-1].id), (yyvsp[0].id)); } -#line 9550 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9551 "mrbgems/mruby-compiler/core/y.tab.c" break; case 365: /* block_args_tail: f_block_kwarg opt_f_block_arg */ -#line 3482 "mrbgems/mruby-compiler/core/parse.y" +#line 3483 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args_tail(p, (yyvsp[-1].nd), 0, (yyvsp[0].id)); } -#line 9558 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9559 "mrbgems/mruby-compiler/core/y.tab.c" break; case 366: /* block_args_tail: f_kwrest opt_f_block_arg */ -#line 3486 "mrbgems/mruby-compiler/core/parse.y" +#line 3487 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args_tail(p, 0, (yyvsp[-1].id), (yyvsp[0].id)); } -#line 9566 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9567 "mrbgems/mruby-compiler/core/y.tab.c" break; case 367: /* block_args_tail: f_block_arg */ -#line 3490 "mrbgems/mruby-compiler/core/parse.y" +#line 3491 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args_tail(p, 0, 0, (yyvsp[0].id)); } -#line 9574 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9575 "mrbgems/mruby-compiler/core/y.tab.c" break; case 368: /* opt_block_args_tail: ',' block_args_tail */ -#line 3496 "mrbgems/mruby-compiler/core/parse.y" +#line 3497 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[0].nd); } -#line 9582 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9583 "mrbgems/mruby-compiler/core/y.tab.c" break; case 369: /* opt_block_args_tail: %empty */ -#line 3500 "mrbgems/mruby-compiler/core/parse.y" +#line 3501 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args_tail(p, 0, 0, 0); } -#line 9590 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9591 "mrbgems/mruby-compiler/core/y.tab.c" break; case 370: /* block_param: f_arg ',' f_block_optarg ',' f_rest_arg opt_block_args_tail */ -#line 3506 "mrbgems/mruby-compiler/core/parse.y" +#line 3507 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, (yyvsp[-5].nd), (yyvsp[-3].nd), (yyvsp[-1].id), 0, (yyvsp[0].nd)); } -#line 9598 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9599 "mrbgems/mruby-compiler/core/y.tab.c" break; case 371: /* block_param: f_arg ',' f_block_optarg ',' f_rest_arg ',' f_arg opt_block_args_tail */ -#line 3510 "mrbgems/mruby-compiler/core/parse.y" +#line 3511 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, (yyvsp[-7].nd), (yyvsp[-5].nd), (yyvsp[-3].id), (yyvsp[-1].nd), (yyvsp[0].nd)); } -#line 9606 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9607 "mrbgems/mruby-compiler/core/y.tab.c" break; case 372: /* block_param: f_arg ',' f_block_optarg opt_block_args_tail */ -#line 3514 "mrbgems/mruby-compiler/core/parse.y" +#line 3515 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, (yyvsp[-3].nd), (yyvsp[-1].nd), 0, 0, (yyvsp[0].nd)); } -#line 9614 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9615 "mrbgems/mruby-compiler/core/y.tab.c" break; case 373: /* block_param: f_arg ',' f_block_optarg ',' f_arg opt_block_args_tail */ -#line 3518 "mrbgems/mruby-compiler/core/parse.y" +#line 3519 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, (yyvsp[-5].nd), (yyvsp[-3].nd), 0, (yyvsp[-1].nd), (yyvsp[0].nd)); } -#line 9622 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9623 "mrbgems/mruby-compiler/core/y.tab.c" break; case 374: /* block_param: f_arg ',' f_rest_arg opt_block_args_tail */ -#line 3522 "mrbgems/mruby-compiler/core/parse.y" +#line 3523 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, (yyvsp[-3].nd), 0, (yyvsp[-1].id), 0, (yyvsp[0].nd)); } -#line 9630 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9631 "mrbgems/mruby-compiler/core/y.tab.c" break; case 375: /* block_param: f_arg ',' opt_block_args_tail */ -#line 3526 "mrbgems/mruby-compiler/core/parse.y" +#line 3527 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, (yyvsp[-2].nd), 0, 0, 0, (yyvsp[0].nd)); } -#line 9638 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9639 "mrbgems/mruby-compiler/core/y.tab.c" break; case 376: /* block_param: f_arg ',' f_rest_arg ',' f_arg opt_block_args_tail */ -#line 3530 "mrbgems/mruby-compiler/core/parse.y" +#line 3531 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, (yyvsp[-5].nd), 0, (yyvsp[-3].id), (yyvsp[-1].nd), (yyvsp[0].nd)); } -#line 9646 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9647 "mrbgems/mruby-compiler/core/y.tab.c" break; case 377: /* block_param: f_arg opt_block_args_tail */ -#line 3534 "mrbgems/mruby-compiler/core/parse.y" +#line 3535 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, (yyvsp[-1].nd), 0, 0, 0, (yyvsp[0].nd)); } -#line 9654 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9655 "mrbgems/mruby-compiler/core/y.tab.c" break; case 378: /* block_param: f_block_optarg ',' f_rest_arg opt_block_args_tail */ -#line 3538 "mrbgems/mruby-compiler/core/parse.y" +#line 3539 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, 0, (yyvsp[-3].nd), (yyvsp[-1].id), 0, (yyvsp[0].nd)); } -#line 9662 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9663 "mrbgems/mruby-compiler/core/y.tab.c" break; case 379: /* block_param: f_block_optarg ',' f_rest_arg ',' f_arg opt_block_args_tail */ -#line 3542 "mrbgems/mruby-compiler/core/parse.y" +#line 3543 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, 0, (yyvsp[-5].nd), (yyvsp[-3].id), (yyvsp[-1].nd), (yyvsp[0].nd)); } -#line 9670 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9671 "mrbgems/mruby-compiler/core/y.tab.c" break; case 380: /* block_param: f_block_optarg opt_block_args_tail */ -#line 3546 "mrbgems/mruby-compiler/core/parse.y" +#line 3547 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, 0, (yyvsp[-1].nd), 0, 0, (yyvsp[0].nd)); } -#line 9678 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9679 "mrbgems/mruby-compiler/core/y.tab.c" break; case 381: /* block_param: f_block_optarg ',' f_arg opt_block_args_tail */ -#line 3550 "mrbgems/mruby-compiler/core/parse.y" +#line 3551 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, 0, (yyvsp[-3].nd), 0, (yyvsp[-1].nd), (yyvsp[0].nd)); } -#line 9686 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9687 "mrbgems/mruby-compiler/core/y.tab.c" break; case 382: /* block_param: f_rest_arg opt_block_args_tail */ -#line 3554 "mrbgems/mruby-compiler/core/parse.y" +#line 3555 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, 0, 0, (yyvsp[-1].id), 0, (yyvsp[0].nd)); } -#line 9694 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9695 "mrbgems/mruby-compiler/core/y.tab.c" break; case 383: /* block_param: f_rest_arg ',' f_arg opt_block_args_tail */ -#line 3558 "mrbgems/mruby-compiler/core/parse.y" +#line 3559 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, 0, 0, (yyvsp[-3].id), (yyvsp[-1].nd), (yyvsp[0].nd)); } -#line 9702 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9703 "mrbgems/mruby-compiler/core/y.tab.c" break; case 384: /* block_param: block_args_tail */ -#line 3562 "mrbgems/mruby-compiler/core/parse.y" +#line 3563 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, 0, 0, 0, 0, (yyvsp[0].nd)); } -#line 9710 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9711 "mrbgems/mruby-compiler/core/y.tab.c" break; case 385: /* opt_block_param: none */ -#line 3568 "mrbgems/mruby-compiler/core/parse.y" +#line 3569 "mrbgems/mruby-compiler/core/parse.y" { local_add_blk(p); (yyval.nd) = 0; } -#line 9719 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9720 "mrbgems/mruby-compiler/core/y.tab.c" break; case 386: /* opt_block_param: block_param_def */ -#line 3573 "mrbgems/mruby-compiler/core/parse.y" +#line 3574 "mrbgems/mruby-compiler/core/parse.y" { p->cmd_start = TRUE; (yyval.nd) = (yyvsp[0].nd); } -#line 9728 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9729 "mrbgems/mruby-compiler/core/y.tab.c" break; case 387: /* $@25: %empty */ -#line 3579 "mrbgems/mruby-compiler/core/parse.y" +#line 3580 "mrbgems/mruby-compiler/core/parse.y" {local_add_blk(p);} -#line 9734 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9735 "mrbgems/mruby-compiler/core/y.tab.c" break; case 388: /* block_param_def: '|' $@25 opt_bv_decl '|' */ -#line 3580 "mrbgems/mruby-compiler/core/parse.y" +#line 3581 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = 0; } -#line 9742 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9743 "mrbgems/mruby-compiler/core/y.tab.c" break; case 389: /* block_param_def: "||" */ -#line 3584 "mrbgems/mruby-compiler/core/parse.y" +#line 3585 "mrbgems/mruby-compiler/core/parse.y" { local_add_blk(p); (yyval.nd) = 0; } -#line 9751 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9752 "mrbgems/mruby-compiler/core/y.tab.c" break; case 390: /* block_param_def: '|' block_param opt_bv_decl '|' */ -#line 3589 "mrbgems/mruby-compiler/core/parse.y" +#line 3590 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-2].nd); } -#line 9759 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9760 "mrbgems/mruby-compiler/core/y.tab.c" break; case 391: /* opt_bv_decl: opt_nl */ -#line 3595 "mrbgems/mruby-compiler/core/parse.y" +#line 3596 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = 0; } -#line 9767 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9768 "mrbgems/mruby-compiler/core/y.tab.c" break; case 392: /* opt_bv_decl: opt_nl ';' bv_decls opt_nl */ -#line 3599 "mrbgems/mruby-compiler/core/parse.y" +#line 3600 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = 0; } -#line 9775 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9776 "mrbgems/mruby-compiler/core/y.tab.c" break; case 395: /* bvar: "local variable or method" */ -#line 3609 "mrbgems/mruby-compiler/core/parse.y" +#line 3610 "mrbgems/mruby-compiler/core/parse.y" { local_add_f(p, (yyvsp[0].id)); new_bv(p, (yyvsp[0].id)); } -#line 9784 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9785 "mrbgems/mruby-compiler/core/y.tab.c" break; case 397: /* f_larglist: '(' f_args opt_bv_decl ')' */ -#line 3617 "mrbgems/mruby-compiler/core/parse.y" +#line 3618 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-2].nd); } -#line 9792 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9793 "mrbgems/mruby-compiler/core/y.tab.c" break; case 398: /* f_larglist: f_args */ -#line 3621 "mrbgems/mruby-compiler/core/parse.y" +#line 3622 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[0].nd); } -#line 9800 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9801 "mrbgems/mruby-compiler/core/y.tab.c" break; case 399: /* lambda_body: tLAMBEG compstmt '}' */ -#line 3627 "mrbgems/mruby-compiler/core/parse.y" +#line 3628 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-1].nd); } -#line 9808 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9809 "mrbgems/mruby-compiler/core/y.tab.c" break; case 400: /* lambda_body: "'do' for lambda" bodystmt "'end'" */ -#line 3631 "mrbgems/mruby-compiler/core/parse.y" +#line 3632 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-1].nd); } -#line 9816 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9817 "mrbgems/mruby-compiler/core/y.tab.c" break; case 401: /* @26: %empty */ -#line 3637 "mrbgems/mruby-compiler/core/parse.y" +#line 3638 "mrbgems/mruby-compiler/core/parse.y" { local_nest(p); nvars_nest(p); (yyval.num) = p->lineno; } -#line 9826 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9827 "mrbgems/mruby-compiler/core/y.tab.c" break; case 402: /* do_block: "'do' for block" @26 opt_block_param bodystmt "'end'" */ -#line 3645 "mrbgems/mruby-compiler/core/parse.y" +#line 3646 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_block(p,(yyvsp[-2].nd),(yyvsp[-1].nd)); SET_LINENO((yyval.nd), (yyvsp[-3].num)); local_unnest(p); nvars_unnest(p); } -#line 9837 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9838 "mrbgems/mruby-compiler/core/y.tab.c" break; case 403: /* block_call: command do_block */ -#line 3654 "mrbgems/mruby-compiler/core/parse.y" +#line 3655 "mrbgems/mruby-compiler/core/parse.y" { call_with_block(p, (yyvsp[-1].nd), (yyvsp[0].nd)); (yyval.nd) = (yyvsp[-1].nd); } -#line 9846 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9847 "mrbgems/mruby-compiler/core/y.tab.c" break; case 404: /* block_call: block_call call_op2 operation2 opt_paren_args */ -#line 3659 "mrbgems/mruby-compiler/core/parse.y" +#line 3660 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_call(p, (yyvsp[-3].nd), (yyvsp[-1].id), (yyvsp[0].nd), (yyvsp[-2].num)); } -#line 9854 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9855 "mrbgems/mruby-compiler/core/y.tab.c" break; case 405: /* block_call: block_call call_op2 operation2 opt_paren_args brace_block */ -#line 3663 "mrbgems/mruby-compiler/core/parse.y" +#line 3664 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_call(p, (yyvsp[-4].nd), (yyvsp[-2].id), (yyvsp[-1].nd), (yyvsp[-3].num)); call_with_block(p, (yyval.nd), (yyvsp[0].nd)); } -#line 9863 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9864 "mrbgems/mruby-compiler/core/y.tab.c" break; case 406: /* block_call: block_call call_op2 operation2 command_args do_block */ -#line 3668 "mrbgems/mruby-compiler/core/parse.y" +#line 3669 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_call(p, (yyvsp[-4].nd), (yyvsp[-2].id), (yyvsp[-1].nd), (yyvsp[-3].num)); call_with_block(p, (yyval.nd), (yyvsp[0].nd)); } -#line 9872 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9873 "mrbgems/mruby-compiler/core/y.tab.c" break; case 407: /* method_call: operation paren_args */ -#line 3675 "mrbgems/mruby-compiler/core/parse.y" +#line 3676 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_fcall(p, (yyvsp[-1].id), (yyvsp[0].nd)); } -#line 9880 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9881 "mrbgems/mruby-compiler/core/y.tab.c" break; case 408: /* method_call: primary_value call_op operation2 opt_paren_args */ -#line 3679 "mrbgems/mruby-compiler/core/parse.y" +#line 3680 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_call(p, (yyvsp[-3].nd), (yyvsp[-1].id), (yyvsp[0].nd), (yyvsp[-2].num)); } -#line 9888 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9889 "mrbgems/mruby-compiler/core/y.tab.c" break; case 409: /* method_call: primary_value "::" operation2 paren_args */ -#line 3683 "mrbgems/mruby-compiler/core/parse.y" +#line 3684 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_call(p, (yyvsp[-3].nd), (yyvsp[-1].id), (yyvsp[0].nd), tCOLON2); } -#line 9896 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9897 "mrbgems/mruby-compiler/core/y.tab.c" break; case 410: /* method_call: primary_value "::" operation3 */ -#line 3687 "mrbgems/mruby-compiler/core/parse.y" +#line 3688 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_call(p, (yyvsp[-2].nd), (yyvsp[0].id), 0, tCOLON2); } -#line 9904 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9905 "mrbgems/mruby-compiler/core/y.tab.c" break; case 411: /* method_call: primary_value call_op paren_args */ -#line 3691 "mrbgems/mruby-compiler/core/parse.y" +#line 3692 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_call(p, (yyvsp[-2].nd), MRB_SYM_2(p->mrb, call), (yyvsp[0].nd), (yyvsp[-1].num)); } -#line 9912 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9913 "mrbgems/mruby-compiler/core/y.tab.c" break; case 412: /* method_call: primary_value "::" paren_args */ -#line 3695 "mrbgems/mruby-compiler/core/parse.y" +#line 3696 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_call(p, (yyvsp[-2].nd), MRB_SYM_2(p->mrb, call), (yyvsp[0].nd), tCOLON2); } -#line 9920 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9921 "mrbgems/mruby-compiler/core/y.tab.c" break; case 413: /* method_call: "'super'" paren_args */ -#line 3699 "mrbgems/mruby-compiler/core/parse.y" +#line 3700 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_super(p, (yyvsp[0].nd)); } -#line 9928 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9929 "mrbgems/mruby-compiler/core/y.tab.c" break; case 414: /* method_call: "'super'" */ -#line 3703 "mrbgems/mruby-compiler/core/parse.y" +#line 3704 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_zsuper(p); } -#line 9936 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9937 "mrbgems/mruby-compiler/core/y.tab.c" break; case 415: /* method_call: primary_value '[' opt_call_args ']' */ -#line 3707 "mrbgems/mruby-compiler/core/parse.y" +#line 3708 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_call(p, (yyvsp[-3].nd), intern_op(aref), (yyvsp[-1].nd), '.'); } -#line 9944 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9945 "mrbgems/mruby-compiler/core/y.tab.c" break; case 416: /* @27: %empty */ -#line 3713 "mrbgems/mruby-compiler/core/parse.y" +#line 3714 "mrbgems/mruby-compiler/core/parse.y" { local_nest(p); nvars_nest(p); (yyval.num) = p->lineno; } -#line 9954 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9955 "mrbgems/mruby-compiler/core/y.tab.c" break; case 417: /* brace_block: '{' @27 opt_block_param compstmt '}' */ -#line 3720 "mrbgems/mruby-compiler/core/parse.y" +#line 3721 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_block(p,(yyvsp[-2].nd),(yyvsp[-1].nd)); SET_LINENO((yyval.nd), (yyvsp[-3].num)); local_unnest(p); nvars_unnest(p); } -#line 9965 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9966 "mrbgems/mruby-compiler/core/y.tab.c" break; case 418: /* @28: %empty */ -#line 3727 "mrbgems/mruby-compiler/core/parse.y" +#line 3728 "mrbgems/mruby-compiler/core/parse.y" { local_nest(p); nvars_nest(p); (yyval.num) = p->lineno; } -#line 9975 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9976 "mrbgems/mruby-compiler/core/y.tab.c" break; case 419: /* brace_block: "'do'" @28 opt_block_param bodystmt "'end'" */ -#line 3734 "mrbgems/mruby-compiler/core/parse.y" +#line 3735 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_block(p,(yyvsp[-2].nd),(yyvsp[-1].nd)); SET_LINENO((yyval.nd), (yyvsp[-3].num)); local_unnest(p); nvars_unnest(p); } -#line 9986 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9987 "mrbgems/mruby-compiler/core/y.tab.c" break; case 420: /* case_body: "'when'" args then compstmt cases */ -#line 3745 "mrbgems/mruby-compiler/core/parse.y" +#line 3746 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = cons(cons((yyvsp[-3].nd), (yyvsp[-1].nd)), (yyvsp[0].nd)); } -#line 9994 "mrbgems/mruby-compiler/core/y.tab.c" +#line 9995 "mrbgems/mruby-compiler/core/y.tab.c" break; case 421: /* cases: opt_else */ -#line 3751 "mrbgems/mruby-compiler/core/parse.y" +#line 3752 "mrbgems/mruby-compiler/core/parse.y" { if ((yyvsp[0].nd)) { (yyval.nd) = cons(cons(0, (yyvsp[0].nd)), 0); @@ -10002,155 +10004,155 @@ yyreduce: (yyval.nd) = 0; } } -#line 10007 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10008 "mrbgems/mruby-compiler/core/y.tab.c" break; case 423: /* opt_rescue: "'rescue'" exc_list exc_var then compstmt opt_rescue */ -#line 3765 "mrbgems/mruby-compiler/core/parse.y" +#line 3766 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list1(list3((yyvsp[-4].nd), (yyvsp[-3].nd), (yyvsp[-1].nd))); if ((yyvsp[0].nd)) (yyval.nd) = append((yyval.nd), (yyvsp[0].nd)); } -#line 10016 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10017 "mrbgems/mruby-compiler/core/y.tab.c" break; case 425: /* exc_list: arg */ -#line 3773 "mrbgems/mruby-compiler/core/parse.y" +#line 3774 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list1((yyvsp[0].nd)); } -#line 10024 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10025 "mrbgems/mruby-compiler/core/y.tab.c" break; case 428: /* exc_var: "=>" lhs */ -#line 3781 "mrbgems/mruby-compiler/core/parse.y" +#line 3782 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[0].nd); } -#line 10032 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10033 "mrbgems/mruby-compiler/core/y.tab.c" break; case 430: /* opt_ensure: "'ensure'" compstmt */ -#line 3788 "mrbgems/mruby-compiler/core/parse.y" +#line 3789 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[0].nd); } -#line 10040 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10041 "mrbgems/mruby-compiler/core/y.tab.c" break; case 437: /* string: string string_fragment */ -#line 3802 "mrbgems/mruby-compiler/core/parse.y" +#line 3803 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = append((yyvsp[-1].nd), (yyvsp[0].nd)); } -#line 10048 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10049 "mrbgems/mruby-compiler/core/y.tab.c" break; case 438: /* string_fragment: "character literal" */ -#line 3808 "mrbgems/mruby-compiler/core/parse.y" +#line 3809 "mrbgems/mruby-compiler/core/parse.y" { /* tCHAR is (len . str), wrap as cons list */ (yyval.nd) = list1((yyvsp[0].nd)); } -#line 10057 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10058 "mrbgems/mruby-compiler/core/y.tab.c" break; case 439: /* string_fragment: tSTRING */ -#line 3813 "mrbgems/mruby-compiler/core/parse.y" +#line 3814 "mrbgems/mruby-compiler/core/parse.y" { /* tSTRING is (len . str), wrap as cons list */ (yyval.nd) = list1((yyvsp[0].nd)); } -#line 10066 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10067 "mrbgems/mruby-compiler/core/y.tab.c" break; case 440: /* string_fragment: "string literal" tSTRING */ -#line 3818 "mrbgems/mruby-compiler/core/parse.y" +#line 3819 "mrbgems/mruby-compiler/core/parse.y" { /* $2 is (len . str), wrap as cons list */ (yyval.nd) = list1((yyvsp[0].nd)); } -#line 10075 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10076 "mrbgems/mruby-compiler/core/y.tab.c" break; case 441: /* string_fragment: "string literal" string_rep tSTRING */ -#line 3823 "mrbgems/mruby-compiler/core/parse.y" +#line 3824 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = push((yyvsp[-1].nd), (yyvsp[0].nd)); } -#line 10083 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10084 "mrbgems/mruby-compiler/core/y.tab.c" break; case 443: /* string_rep: string_rep string_interp */ -#line 3830 "mrbgems/mruby-compiler/core/parse.y" +#line 3831 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = append((yyvsp[-1].nd), (yyvsp[0].nd)); } -#line 10091 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10092 "mrbgems/mruby-compiler/core/y.tab.c" break; case 444: /* string_interp: tSTRING_MID */ -#line 3836 "mrbgems/mruby-compiler/core/parse.y" +#line 3837 "mrbgems/mruby-compiler/core/parse.y" { /* $1 is already in (len . str) format */ (yyval.nd) = list1((yyvsp[0].nd)); } -#line 10100 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10101 "mrbgems/mruby-compiler/core/y.tab.c" break; case 445: /* @29: %empty */ -#line 3841 "mrbgems/mruby-compiler/core/parse.y" +#line 3842 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = push_strterm(p); } -#line 10108 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10109 "mrbgems/mruby-compiler/core/y.tab.c" break; case 446: /* string_interp: tSTRING_PART @29 compstmt '}' */ -#line 3846 "mrbgems/mruby-compiler/core/parse.y" +#line 3847 "mrbgems/mruby-compiler/core/parse.y" { pop_strterm(p,(yyvsp[-2].nd)); /* $1 is already in (len . str) format, create (-1 . node) for expression */ node *expr_elem = cons(int_to_node(-1), (yyvsp[-1].nd)); (yyval.nd) = list2((yyvsp[-3].nd), expr_elem); } -#line 10119 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10120 "mrbgems/mruby-compiler/core/y.tab.c" break; case 447: /* string_interp: tLITERAL_DELIM */ -#line 3853 "mrbgems/mruby-compiler/core/parse.y" +#line 3854 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list1(new_literal_delim(p)); } -#line 10127 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10128 "mrbgems/mruby-compiler/core/y.tab.c" break; case 448: /* string_interp: tHD_LITERAL_DELIM heredoc_bodies */ -#line 3857 "mrbgems/mruby-compiler/core/parse.y" +#line 3858 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list1(new_literal_delim(p)); } -#line 10135 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10136 "mrbgems/mruby-compiler/core/y.tab.c" break; case 449: /* xstring: tXSTRING_BEG tXSTRING */ -#line 3863 "mrbgems/mruby-compiler/core/parse.y" +#line 3864 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = cons((yyvsp[0].nd), (node*)NULL); } -#line 10143 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10144 "mrbgems/mruby-compiler/core/y.tab.c" break; case 450: /* xstring: tXSTRING_BEG string_rep tXSTRING */ -#line 3867 "mrbgems/mruby-compiler/core/parse.y" +#line 3868 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = push((yyvsp[-1].nd), (yyvsp[0].nd)); } -#line 10151 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10152 "mrbgems/mruby-compiler/core/y.tab.c" break; case 451: /* regexp: tREGEXP_BEG tREGEXP */ -#line 3873 "mrbgems/mruby-compiler/core/parse.y" +#line 3874 "mrbgems/mruby-compiler/core/parse.y" { node *data = (yyvsp[0].nd); /* ((len . pattern) . (flags . encoding)) */ const char *flags = (const char*)data->cdr->car; @@ -10159,11 +10161,11 @@ yyreduce: node *pattern_list = cons(data->car, (node*)NULL); (yyval.nd) = new_dregx(p, pattern_list, flags, encoding); } -#line 10164 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10165 "mrbgems/mruby-compiler/core/y.tab.c" break; case 452: /* regexp: tREGEXP_BEG string_rep tREGEXP */ -#line 3882 "mrbgems/mruby-compiler/core/parse.y" +#line 3883 "mrbgems/mruby-compiler/core/parse.y" { node *data = (yyvsp[0].nd); /* ((len . pattern) . (flags . encoding)) */ const char *flags = (const char*)data->cdr->car; @@ -10172,47 +10174,47 @@ yyreduce: node *complete_list = push((yyvsp[-1].nd), data->car); (yyval.nd) = new_dregx(p, complete_list, flags, encoding); } -#line 10177 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10178 "mrbgems/mruby-compiler/core/y.tab.c" break; case 456: /* heredoc_body: tHEREDOC_END */ -#line 3900 "mrbgems/mruby-compiler/core/parse.y" +#line 3901 "mrbgems/mruby-compiler/core/parse.y" { parser_heredoc_info *info = parsing_heredoc_info(p); info->doc = push(info->doc, new_str_empty(p)); heredoc_end(p); } -#line 10187 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10188 "mrbgems/mruby-compiler/core/y.tab.c" break; case 457: /* heredoc_body: heredoc_string_rep tHEREDOC_END */ -#line 3906 "mrbgems/mruby-compiler/core/parse.y" +#line 3907 "mrbgems/mruby-compiler/core/parse.y" { heredoc_end(p); } -#line 10195 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10196 "mrbgems/mruby-compiler/core/y.tab.c" break; case 460: /* heredoc_string_interp: tHD_STRING_MID */ -#line 3916 "mrbgems/mruby-compiler/core/parse.y" +#line 3917 "mrbgems/mruby-compiler/core/parse.y" { parser_heredoc_info *info = parsing_heredoc_info(p); info->doc = push(info->doc, (yyvsp[0].nd)); heredoc_treat_nextline(p); } -#line 10205 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10206 "mrbgems/mruby-compiler/core/y.tab.c" break; case 461: /* @30: %empty */ -#line 3922 "mrbgems/mruby-compiler/core/parse.y" +#line 3923 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = push_strterm(p); } -#line 10213 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10214 "mrbgems/mruby-compiler/core/y.tab.c" break; case 462: /* heredoc_string_interp: tHD_STRING_PART @30 compstmt '}' */ -#line 3927 "mrbgems/mruby-compiler/core/parse.y" +#line 3928 "mrbgems/mruby-compiler/core/parse.y" { pop_strterm(p, (yyvsp[-2].nd)); parser_heredoc_info *info = parsing_heredoc_info(p); @@ -10220,37 +10222,37 @@ yyreduce: node *expr_elem = cons(int_to_node(-1), (yyvsp[-1].nd)); info->doc = push(push(info->doc, (yyvsp[-3].nd)), expr_elem); } -#line 10225 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10226 "mrbgems/mruby-compiler/core/y.tab.c" break; case 463: /* words: tWORDS_BEG tSTRING */ -#line 3937 "mrbgems/mruby-compiler/core/parse.y" +#line 3938 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_words(p, list1((yyvsp[0].nd))); } -#line 10233 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10234 "mrbgems/mruby-compiler/core/y.tab.c" break; case 464: /* words: tWORDS_BEG string_rep tSTRING */ -#line 3941 "mrbgems/mruby-compiler/core/parse.y" +#line 3942 "mrbgems/mruby-compiler/core/parse.y" { node *n = (yyvsp[-1].nd); n = push(n, (yyvsp[0].nd)); (yyval.nd) = new_words(p, n); } -#line 10243 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10244 "mrbgems/mruby-compiler/core/y.tab.c" break; case 465: /* symbol: basic_symbol */ -#line 3949 "mrbgems/mruby-compiler/core/parse.y" +#line 3950 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_sym(p, (yyvsp[0].id)); } -#line 10251 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10252 "mrbgems/mruby-compiler/core/y.tab.c" break; case 466: /* symbol: "symbol" "string literal" string_rep tSTRING */ -#line 3953 "mrbgems/mruby-compiler/core/parse.y" +#line 3954 "mrbgems/mruby-compiler/core/parse.y" { node *n = (yyvsp[-1].nd); p->lstate = EXPR_ENDARG; @@ -10262,183 +10264,183 @@ yyreduce: } (yyval.nd) = new_dsym(p, new_str(p, n)); } -#line 10267 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10268 "mrbgems/mruby-compiler/core/y.tab.c" break; case 467: /* symbol: "symbol" "numbered parameter" */ -#line 3965 "mrbgems/mruby-compiler/core/parse.y" +#line 3966 "mrbgems/mruby-compiler/core/parse.y" { mrb_sym sym = intern_numparam((yyvsp[0].num)); (yyval.nd) = new_sym(p, sym); } -#line 10276 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10277 "mrbgems/mruby-compiler/core/y.tab.c" break; case 468: /* basic_symbol: "symbol" sym */ -#line 3972 "mrbgems/mruby-compiler/core/parse.y" +#line 3973 "mrbgems/mruby-compiler/core/parse.y" { p->lstate = EXPR_END; (yyval.id) = (yyvsp[0].id); } -#line 10285 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10286 "mrbgems/mruby-compiler/core/y.tab.c" break; case 473: /* sym: tSTRING */ -#line 3983 "mrbgems/mruby-compiler/core/parse.y" +#line 3984 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = new_strsym(p, (yyvsp[0].nd)); } -#line 10293 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10294 "mrbgems/mruby-compiler/core/y.tab.c" break; case 474: /* sym: "string literal" tSTRING */ -#line 3987 "mrbgems/mruby-compiler/core/parse.y" +#line 3988 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = new_strsym(p, (yyvsp[0].nd)); } -#line 10301 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10302 "mrbgems/mruby-compiler/core/y.tab.c" break; case 475: /* symbols: tSYMBOLS_BEG tSTRING */ -#line 3993 "mrbgems/mruby-compiler/core/parse.y" +#line 3994 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_symbols(p, list1((yyvsp[0].nd))); } -#line 10309 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10310 "mrbgems/mruby-compiler/core/y.tab.c" break; case 476: /* symbols: tSYMBOLS_BEG string_rep tSTRING */ -#line 3997 "mrbgems/mruby-compiler/core/parse.y" +#line 3998 "mrbgems/mruby-compiler/core/parse.y" { node *n = (yyvsp[-1].nd); n = push(n, (yyvsp[0].nd)); (yyval.nd) = new_symbols(p, n); } -#line 10319 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10320 "mrbgems/mruby-compiler/core/y.tab.c" break; case 479: /* numeric: tUMINUS_NUM "integer literal" */ -#line 4007 "mrbgems/mruby-compiler/core/parse.y" +#line 4008 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_negate(p, (yyvsp[0].nd)); } -#line 10327 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10328 "mrbgems/mruby-compiler/core/y.tab.c" break; case 480: /* numeric: tUMINUS_NUM "float literal" */ -#line 4011 "mrbgems/mruby-compiler/core/parse.y" +#line 4012 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_negate(p, (yyvsp[0].nd)); } -#line 10335 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10336 "mrbgems/mruby-compiler/core/y.tab.c" break; case 481: /* variable: "local variable or method" */ -#line 4017 "mrbgems/mruby-compiler/core/parse.y" +#line 4018 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_lvar(p, (yyvsp[0].id)); } -#line 10343 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10344 "mrbgems/mruby-compiler/core/y.tab.c" break; case 482: /* variable: "instance variable" */ -#line 4021 "mrbgems/mruby-compiler/core/parse.y" +#line 4022 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_ivar(p, (yyvsp[0].id)); } -#line 10351 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10352 "mrbgems/mruby-compiler/core/y.tab.c" break; case 483: /* variable: "global variable" */ -#line 4025 "mrbgems/mruby-compiler/core/parse.y" +#line 4026 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_gvar(p, (yyvsp[0].id)); } -#line 10359 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10360 "mrbgems/mruby-compiler/core/y.tab.c" break; case 484: /* variable: "class variable" */ -#line 4029 "mrbgems/mruby-compiler/core/parse.y" +#line 4030 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_cvar(p, (yyvsp[0].id)); } -#line 10367 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10368 "mrbgems/mruby-compiler/core/y.tab.c" break; case 485: /* variable: "constant" */ -#line 4033 "mrbgems/mruby-compiler/core/parse.y" +#line 4034 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_const(p, (yyvsp[0].id)); } -#line 10375 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10376 "mrbgems/mruby-compiler/core/y.tab.c" break; case 486: /* var_lhs: variable */ -#line 4039 "mrbgems/mruby-compiler/core/parse.y" +#line 4040 "mrbgems/mruby-compiler/core/parse.y" { assignable(p, (yyvsp[0].nd)); } -#line 10383 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10384 "mrbgems/mruby-compiler/core/y.tab.c" break; case 487: /* var_lhs: "numbered parameter" */ -#line 4043 "mrbgems/mruby-compiler/core/parse.y" +#line 4044 "mrbgems/mruby-compiler/core/parse.y" { yyerror(&(yylsp[0]), p, "can't assign to numbered parameter"); } -#line 10391 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10392 "mrbgems/mruby-compiler/core/y.tab.c" break; case 488: /* var_ref: variable */ -#line 4049 "mrbgems/mruby-compiler/core/parse.y" +#line 4050 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = var_reference(p, (yyvsp[0].nd)); } -#line 10399 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10400 "mrbgems/mruby-compiler/core/y.tab.c" break; case 489: /* var_ref: "numbered parameter" */ -#line 4053 "mrbgems/mruby-compiler/core/parse.y" +#line 4054 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_nvar(p, (yyvsp[0].num)); } -#line 10407 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10408 "mrbgems/mruby-compiler/core/y.tab.c" break; case 490: /* var_ref: "'nil'" */ -#line 4057 "mrbgems/mruby-compiler/core/parse.y" +#line 4058 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_nil(p); } -#line 10415 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10416 "mrbgems/mruby-compiler/core/y.tab.c" break; case 491: /* var_ref: "'self'" */ -#line 4061 "mrbgems/mruby-compiler/core/parse.y" +#line 4062 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_self(p); } -#line 10423 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10424 "mrbgems/mruby-compiler/core/y.tab.c" break; case 492: /* var_ref: "'true'" */ -#line 4065 "mrbgems/mruby-compiler/core/parse.y" +#line 4066 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_true(p); } -#line 10431 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10432 "mrbgems/mruby-compiler/core/y.tab.c" break; case 493: /* var_ref: "'false'" */ -#line 4069 "mrbgems/mruby-compiler/core/parse.y" +#line 4070 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_false(p); } -#line 10439 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10440 "mrbgems/mruby-compiler/core/y.tab.c" break; case 494: /* var_ref: "'__FILE__'" */ -#line 4073 "mrbgems/mruby-compiler/core/parse.y" +#line 4074 "mrbgems/mruby-compiler/core/parse.y" { const char *fn = mrb_sym_name_len(p->mrb, p->filename_sym, NULL); if (!fn) { @@ -10446,686 +10448,686 @@ yyreduce: } (yyval.nd) = new_str(p, cons(cons(int_to_node(strlen(fn)), (node*)fn), (node*)NULL)); } -#line 10451 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10452 "mrbgems/mruby-compiler/core/y.tab.c" break; case 495: /* var_ref: "'__LINE__'" */ -#line 4081 "mrbgems/mruby-compiler/core/parse.y" +#line 4082 "mrbgems/mruby-compiler/core/parse.y" { char buf[16]; dump_int(p->lineno, buf); (yyval.nd) = new_int(p, buf, 10, 0); } -#line 10462 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10463 "mrbgems/mruby-compiler/core/y.tab.c" break; case 496: /* var_ref: "'__ENCODING__'" */ -#line 4088 "mrbgems/mruby-compiler/core/parse.y" +#line 4089 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_fcall(p, MRB_SYM_2(p->mrb, __ENCODING__), 0); } -#line 10470 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10471 "mrbgems/mruby-compiler/core/y.tab.c" break; case 499: /* superclass: %empty */ -#line 4098 "mrbgems/mruby-compiler/core/parse.y" +#line 4099 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = 0; } -#line 10478 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10479 "mrbgems/mruby-compiler/core/y.tab.c" break; case 500: /* $@31: %empty */ -#line 4102 "mrbgems/mruby-compiler/core/parse.y" +#line 4103 "mrbgems/mruby-compiler/core/parse.y" { p->lstate = EXPR_BEG; p->cmd_start = TRUE; } -#line 10487 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10488 "mrbgems/mruby-compiler/core/y.tab.c" break; case 501: /* superclass: '<' $@31 expr_value term */ -#line 4107 "mrbgems/mruby-compiler/core/parse.y" +#line 4108 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-1].nd); } -#line 10495 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10496 "mrbgems/mruby-compiler/core/y.tab.c" break; case 504: /* f_arglist_paren: '(' f_args rparen */ -#line 4123 "mrbgems/mruby-compiler/core/parse.y" +#line 4124 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-1].nd); p->lstate = EXPR_BEG; p->cmd_start = TRUE; } -#line 10505 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10506 "mrbgems/mruby-compiler/core/y.tab.c" break; case 505: /* f_arglist_paren: '(' f_arg ',' tBDOT3 rparen */ -#line 4129 "mrbgems/mruby-compiler/core/parse.y" +#line 4130 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args_dots(p, (yyvsp[-3].nd)); } -#line 10513 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10514 "mrbgems/mruby-compiler/core/y.tab.c" break; case 506: /* f_arglist_paren: '(' tBDOT3 rparen */ -#line 4133 "mrbgems/mruby-compiler/core/parse.y" +#line 4134 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args_dots(p, 0); } -#line 10521 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10522 "mrbgems/mruby-compiler/core/y.tab.c" break; case 508: /* f_arglist: f_args term */ -#line 4140 "mrbgems/mruby-compiler/core/parse.y" +#line 4141 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-1].nd); } -#line 10529 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10530 "mrbgems/mruby-compiler/core/y.tab.c" break; case 509: /* f_arglist: f_arg ',' tBDOT3 term */ -#line 4144 "mrbgems/mruby-compiler/core/parse.y" +#line 4145 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args_dots(p, (yyvsp[-3].nd)); } -#line 10537 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10538 "mrbgems/mruby-compiler/core/y.tab.c" break; case 510: /* f_arglist: "..." term */ -#line 4148 "mrbgems/mruby-compiler/core/parse.y" +#line 4149 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args_dots(p, 0); } -#line 10545 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10546 "mrbgems/mruby-compiler/core/y.tab.c" break; case 511: /* f_label: "local variable or method" "label" */ -#line 4154 "mrbgems/mruby-compiler/core/parse.y" +#line 4155 "mrbgems/mruby-compiler/core/parse.y" { local_nest(p); } -#line 10553 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10554 "mrbgems/mruby-compiler/core/y.tab.c" break; case 512: /* f_label: "numbered parameter" "label" */ -#line 4158 "mrbgems/mruby-compiler/core/parse.y" +#line 4159 "mrbgems/mruby-compiler/core/parse.y" { local_nest(p); } -#line 10561 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10562 "mrbgems/mruby-compiler/core/y.tab.c" break; case 513: /* f_kw: f_label arg */ -#line 4164 "mrbgems/mruby-compiler/core/parse.y" +#line 4165 "mrbgems/mruby-compiler/core/parse.y" { void_expr_error(p, (yyvsp[0].nd)); (yyval.nd) = new_kw_arg(p, (yyvsp[-1].id), cons((yyvsp[0].nd), locals_node(p))); local_unnest(p); } -#line 10571 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10572 "mrbgems/mruby-compiler/core/y.tab.c" break; case 514: /* f_kw: f_label */ -#line 4170 "mrbgems/mruby-compiler/core/parse.y" +#line 4171 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_kw_arg(p, (yyvsp[0].id), 0); local_unnest(p); } -#line 10580 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10581 "mrbgems/mruby-compiler/core/y.tab.c" break; case 515: /* f_block_kw: f_label primary_value */ -#line 4177 "mrbgems/mruby-compiler/core/parse.y" +#line 4178 "mrbgems/mruby-compiler/core/parse.y" { void_expr_error(p, (yyvsp[0].nd)); (yyval.nd) = new_kw_arg(p, (yyvsp[-1].id), cons((yyvsp[0].nd), locals_node(p))); local_unnest(p); } -#line 10590 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10591 "mrbgems/mruby-compiler/core/y.tab.c" break; case 516: /* f_block_kw: f_label */ -#line 4183 "mrbgems/mruby-compiler/core/parse.y" +#line 4184 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_kw_arg(p, (yyvsp[0].id), 0); local_unnest(p); } -#line 10599 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10600 "mrbgems/mruby-compiler/core/y.tab.c" break; case 517: /* f_block_kwarg: f_block_kw */ -#line 4190 "mrbgems/mruby-compiler/core/parse.y" +#line 4191 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list1((yyvsp[0].nd)); } -#line 10607 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10608 "mrbgems/mruby-compiler/core/y.tab.c" break; case 518: /* f_block_kwarg: f_block_kwarg ',' f_block_kw */ -#line 4194 "mrbgems/mruby-compiler/core/parse.y" +#line 4195 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = push((yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 10615 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10616 "mrbgems/mruby-compiler/core/y.tab.c" break; case 519: /* f_kwarg: f_kw */ -#line 4200 "mrbgems/mruby-compiler/core/parse.y" +#line 4201 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list1((yyvsp[0].nd)); } -#line 10623 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10624 "mrbgems/mruby-compiler/core/y.tab.c" break; case 520: /* f_kwarg: f_kwarg ',' f_kw */ -#line 4204 "mrbgems/mruby-compiler/core/parse.y" +#line 4205 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = push((yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 10631 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10632 "mrbgems/mruby-compiler/core/y.tab.c" break; case 523: /* f_kwrest: kwrest_mark "local variable or method" */ -#line 4214 "mrbgems/mruby-compiler/core/parse.y" +#line 4215 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = (yyvsp[0].id); } -#line 10639 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10640 "mrbgems/mruby-compiler/core/y.tab.c" break; case 524: /* f_kwrest: kwrest_mark */ -#line 4218 "mrbgems/mruby-compiler/core/parse.y" +#line 4219 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(pow); } -#line 10647 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10648 "mrbgems/mruby-compiler/core/y.tab.c" break; case 525: /* args_tail: f_kwarg ',' f_kwrest opt_f_block_arg */ -#line 4224 "mrbgems/mruby-compiler/core/parse.y" +#line 4225 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args_tail(p, (yyvsp[-3].nd), (yyvsp[-1].id), (yyvsp[0].id)); } -#line 10655 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10656 "mrbgems/mruby-compiler/core/y.tab.c" break; case 526: /* args_tail: f_kwarg opt_f_block_arg */ -#line 4228 "mrbgems/mruby-compiler/core/parse.y" +#line 4229 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args_tail(p, (yyvsp[-1].nd), 0, (yyvsp[0].id)); } -#line 10663 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10664 "mrbgems/mruby-compiler/core/y.tab.c" break; case 527: /* args_tail: f_kwrest opt_f_block_arg */ -#line 4232 "mrbgems/mruby-compiler/core/parse.y" +#line 4233 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args_tail(p, 0, (yyvsp[-1].id), (yyvsp[0].id)); } -#line 10671 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10672 "mrbgems/mruby-compiler/core/y.tab.c" break; case 528: /* args_tail: f_block_arg */ -#line 4236 "mrbgems/mruby-compiler/core/parse.y" +#line 4237 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args_tail(p, 0, 0, (yyvsp[0].id)); } -#line 10679 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10680 "mrbgems/mruby-compiler/core/y.tab.c" break; case 529: /* opt_args_tail: ',' args_tail */ -#line 4242 "mrbgems/mruby-compiler/core/parse.y" +#line 4243 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[0].nd); } -#line 10687 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10688 "mrbgems/mruby-compiler/core/y.tab.c" break; case 530: /* opt_args_tail: %empty */ -#line 4246 "mrbgems/mruby-compiler/core/parse.y" +#line 4247 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args_tail(p, 0, 0, 0); } -#line 10695 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10696 "mrbgems/mruby-compiler/core/y.tab.c" break; case 531: /* f_args: f_arg ',' f_optarg ',' f_rest_arg opt_args_tail */ -#line 4252 "mrbgems/mruby-compiler/core/parse.y" +#line 4253 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, (yyvsp[-5].nd), (yyvsp[-3].nd), (yyvsp[-1].id), 0, (yyvsp[0].nd)); } -#line 10703 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10704 "mrbgems/mruby-compiler/core/y.tab.c" break; case 532: /* f_args: f_arg ',' f_optarg ',' f_rest_arg ',' f_arg opt_args_tail */ -#line 4256 "mrbgems/mruby-compiler/core/parse.y" +#line 4257 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, (yyvsp[-7].nd), (yyvsp[-5].nd), (yyvsp[-3].id), (yyvsp[-1].nd), (yyvsp[0].nd)); } -#line 10711 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10712 "mrbgems/mruby-compiler/core/y.tab.c" break; case 533: /* f_args: f_arg ',' f_optarg opt_args_tail */ -#line 4260 "mrbgems/mruby-compiler/core/parse.y" +#line 4261 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, (yyvsp[-3].nd), (yyvsp[-1].nd), 0, 0, (yyvsp[0].nd)); } -#line 10719 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10720 "mrbgems/mruby-compiler/core/y.tab.c" break; case 534: /* f_args: f_arg ',' f_optarg ',' f_arg opt_args_tail */ -#line 4264 "mrbgems/mruby-compiler/core/parse.y" +#line 4265 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, (yyvsp[-5].nd), (yyvsp[-3].nd), 0, (yyvsp[-1].nd), (yyvsp[0].nd)); } -#line 10727 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10728 "mrbgems/mruby-compiler/core/y.tab.c" break; case 535: /* f_args: f_arg ',' f_rest_arg opt_args_tail */ -#line 4268 "mrbgems/mruby-compiler/core/parse.y" +#line 4269 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, (yyvsp[-3].nd), 0, (yyvsp[-1].id), 0, (yyvsp[0].nd)); } -#line 10735 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10736 "mrbgems/mruby-compiler/core/y.tab.c" break; case 536: /* f_args: f_arg ',' f_rest_arg ',' f_arg opt_args_tail */ -#line 4272 "mrbgems/mruby-compiler/core/parse.y" +#line 4273 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, (yyvsp[-5].nd), 0, (yyvsp[-3].id), (yyvsp[-1].nd), (yyvsp[0].nd)); } -#line 10743 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10744 "mrbgems/mruby-compiler/core/y.tab.c" break; case 537: /* f_args: f_arg opt_args_tail */ -#line 4276 "mrbgems/mruby-compiler/core/parse.y" +#line 4277 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, (yyvsp[-1].nd), 0, 0, 0, (yyvsp[0].nd)); } -#line 10751 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10752 "mrbgems/mruby-compiler/core/y.tab.c" break; case 538: /* f_args: f_optarg ',' f_rest_arg opt_args_tail */ -#line 4280 "mrbgems/mruby-compiler/core/parse.y" +#line 4281 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, 0, (yyvsp[-3].nd), (yyvsp[-1].id), 0, (yyvsp[0].nd)); } -#line 10759 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10760 "mrbgems/mruby-compiler/core/y.tab.c" break; case 539: /* f_args: f_optarg ',' f_rest_arg ',' f_arg opt_args_tail */ -#line 4284 "mrbgems/mruby-compiler/core/parse.y" +#line 4285 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, 0, (yyvsp[-5].nd), (yyvsp[-3].id), (yyvsp[-1].nd), (yyvsp[0].nd)); } -#line 10767 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10768 "mrbgems/mruby-compiler/core/y.tab.c" break; case 540: /* f_args: f_optarg opt_args_tail */ -#line 4288 "mrbgems/mruby-compiler/core/parse.y" +#line 4289 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, 0, (yyvsp[-1].nd), 0, 0, (yyvsp[0].nd)); } -#line 10775 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10776 "mrbgems/mruby-compiler/core/y.tab.c" break; case 541: /* f_args: f_optarg ',' f_arg opt_args_tail */ -#line 4292 "mrbgems/mruby-compiler/core/parse.y" +#line 4293 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, 0, (yyvsp[-3].nd), 0, (yyvsp[-1].nd), (yyvsp[0].nd)); } -#line 10783 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10784 "mrbgems/mruby-compiler/core/y.tab.c" break; case 542: /* f_args: f_rest_arg opt_args_tail */ -#line 4296 "mrbgems/mruby-compiler/core/parse.y" +#line 4297 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, 0, 0, (yyvsp[-1].id), 0, (yyvsp[0].nd)); } -#line 10791 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10792 "mrbgems/mruby-compiler/core/y.tab.c" break; case 543: /* f_args: f_rest_arg ',' f_arg opt_args_tail */ -#line 4300 "mrbgems/mruby-compiler/core/parse.y" +#line 4301 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, 0, 0, (yyvsp[-3].id), (yyvsp[-1].nd), (yyvsp[0].nd)); } -#line 10799 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10800 "mrbgems/mruby-compiler/core/y.tab.c" break; case 544: /* f_args: args_tail */ -#line 4304 "mrbgems/mruby-compiler/core/parse.y" +#line 4305 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_args(p, 0, 0, 0, 0, (yyvsp[0].nd)); } -#line 10807 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10808 "mrbgems/mruby-compiler/core/y.tab.c" break; case 545: /* f_args: %empty */ -#line 4308 "mrbgems/mruby-compiler/core/parse.y" +#line 4309 "mrbgems/mruby-compiler/core/parse.y" { local_add_f(p, 0); (yyval.nd) = new_args(p, 0, 0, 0, 0, 0); } -#line 10816 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10817 "mrbgems/mruby-compiler/core/y.tab.c" break; case 546: /* f_bad_arg: "constant" */ -#line 4315 "mrbgems/mruby-compiler/core/parse.y" +#line 4316 "mrbgems/mruby-compiler/core/parse.y" { yyerror(&(yylsp[0]), p, "formal argument cannot be a constant"); (yyval.nd) = 0; } -#line 10825 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10826 "mrbgems/mruby-compiler/core/y.tab.c" break; case 547: /* f_bad_arg: "instance variable" */ -#line 4320 "mrbgems/mruby-compiler/core/parse.y" +#line 4321 "mrbgems/mruby-compiler/core/parse.y" { yyerror(&(yylsp[0]), p, "formal argument cannot be an instance variable"); (yyval.nd) = 0; } -#line 10834 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10835 "mrbgems/mruby-compiler/core/y.tab.c" break; case 548: /* f_bad_arg: "global variable" */ -#line 4325 "mrbgems/mruby-compiler/core/parse.y" +#line 4326 "mrbgems/mruby-compiler/core/parse.y" { yyerror(&(yylsp[0]), p, "formal argument cannot be a global variable"); (yyval.nd) = 0; } -#line 10843 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10844 "mrbgems/mruby-compiler/core/y.tab.c" break; case 549: /* f_bad_arg: "class variable" */ -#line 4330 "mrbgems/mruby-compiler/core/parse.y" +#line 4331 "mrbgems/mruby-compiler/core/parse.y" { yyerror(&(yylsp[0]), p, "formal argument cannot be a class variable"); (yyval.nd) = 0; } -#line 10852 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10853 "mrbgems/mruby-compiler/core/y.tab.c" break; case 550: /* f_bad_arg: "numbered parameter" */ -#line 4335 "mrbgems/mruby-compiler/core/parse.y" +#line 4336 "mrbgems/mruby-compiler/core/parse.y" { yyerror(&(yylsp[0]), p, "formal argument cannot be a numbered parameter"); (yyval.nd) = 0; } -#line 10861 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10862 "mrbgems/mruby-compiler/core/y.tab.c" break; case 551: /* f_norm_arg: f_bad_arg */ -#line 4342 "mrbgems/mruby-compiler/core/parse.y" +#line 4343 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = 0; } -#line 10869 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10870 "mrbgems/mruby-compiler/core/y.tab.c" break; case 552: /* f_norm_arg: "local variable or method" */ -#line 4346 "mrbgems/mruby-compiler/core/parse.y" +#line 4347 "mrbgems/mruby-compiler/core/parse.y" { local_add_f(p, (yyvsp[0].id)); (yyval.id) = (yyvsp[0].id); } -#line 10878 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10879 "mrbgems/mruby-compiler/core/y.tab.c" break; case 553: /* f_arg_item: f_norm_arg */ -#line 4353 "mrbgems/mruby-compiler/core/parse.y" +#line 4354 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_lvar(p, (yyvsp[0].id)); } -#line 10886 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10887 "mrbgems/mruby-compiler/core/y.tab.c" break; case 554: /* @32: %empty */ -#line 4357 "mrbgems/mruby-compiler/core/parse.y" +#line 4358 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = local_switch(p); } -#line 10894 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10895 "mrbgems/mruby-compiler/core/y.tab.c" break; case 555: /* f_arg_item: tLPAREN @32 f_margs rparen */ -#line 4361 "mrbgems/mruby-compiler/core/parse.y" +#line 4362 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = new_masgn_param(p, (yyvsp[-1].nd), p->locals->car); local_resume(p, (yyvsp[-2].nd)); local_add_f(p, 0); } -#line 10904 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10905 "mrbgems/mruby-compiler/core/y.tab.c" break; case 556: /* f_arg: f_arg_item */ -#line 4369 "mrbgems/mruby-compiler/core/parse.y" +#line 4370 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list1((yyvsp[0].nd)); } -#line 10912 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10913 "mrbgems/mruby-compiler/core/y.tab.c" break; case 557: /* f_arg: f_arg ',' f_arg_item */ -#line 4373 "mrbgems/mruby-compiler/core/parse.y" +#line 4374 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = push((yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 10920 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10921 "mrbgems/mruby-compiler/core/y.tab.c" break; case 558: /* f_opt_asgn: "local variable or method" '=' */ -#line 4379 "mrbgems/mruby-compiler/core/parse.y" +#line 4380 "mrbgems/mruby-compiler/core/parse.y" { local_add_f(p, (yyvsp[-1].id)); local_nest(p); (yyval.id) = (yyvsp[-1].id); } -#line 10930 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10931 "mrbgems/mruby-compiler/core/y.tab.c" break; case 559: /* f_opt: f_opt_asgn arg */ -#line 4387 "mrbgems/mruby-compiler/core/parse.y" +#line 4388 "mrbgems/mruby-compiler/core/parse.y" { void_expr_error(p, (yyvsp[0].nd)); (yyval.nd) = cons(sym_to_node((yyvsp[-1].id)), cons((yyvsp[0].nd), locals_node(p))); local_unnest(p); } -#line 10940 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10941 "mrbgems/mruby-compiler/core/y.tab.c" break; case 560: /* f_block_opt: f_opt_asgn primary_value */ -#line 4395 "mrbgems/mruby-compiler/core/parse.y" +#line 4396 "mrbgems/mruby-compiler/core/parse.y" { void_expr_error(p, (yyvsp[0].nd)); (yyval.nd) = cons(sym_to_node((yyvsp[-1].id)), cons((yyvsp[0].nd), locals_node(p))); local_unnest(p); } -#line 10950 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10951 "mrbgems/mruby-compiler/core/y.tab.c" break; case 561: /* f_block_optarg: f_block_opt */ -#line 4403 "mrbgems/mruby-compiler/core/parse.y" +#line 4404 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list1((yyvsp[0].nd)); } -#line 10958 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10959 "mrbgems/mruby-compiler/core/y.tab.c" break; case 562: /* f_block_optarg: f_block_optarg ',' f_block_opt */ -#line 4407 "mrbgems/mruby-compiler/core/parse.y" +#line 4408 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = push((yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 10966 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10967 "mrbgems/mruby-compiler/core/y.tab.c" break; case 563: /* f_optarg: f_opt */ -#line 4413 "mrbgems/mruby-compiler/core/parse.y" +#line 4414 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list1((yyvsp[0].nd)); } -#line 10974 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10975 "mrbgems/mruby-compiler/core/y.tab.c" break; case 564: /* f_optarg: f_optarg ',' f_opt */ -#line 4417 "mrbgems/mruby-compiler/core/parse.y" +#line 4418 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = push((yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 10982 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10983 "mrbgems/mruby-compiler/core/y.tab.c" break; case 567: /* f_rest_arg: restarg_mark "local variable or method" */ -#line 4427 "mrbgems/mruby-compiler/core/parse.y" +#line 4428 "mrbgems/mruby-compiler/core/parse.y" { local_add_f(p, (yyvsp[0].id)); (yyval.id) = (yyvsp[0].id); } -#line 10991 "mrbgems/mruby-compiler/core/y.tab.c" +#line 10992 "mrbgems/mruby-compiler/core/y.tab.c" break; case 568: /* f_rest_arg: restarg_mark */ -#line 4432 "mrbgems/mruby-compiler/core/parse.y" +#line 4433 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(mul); local_add_f(p, (yyval.id)); } -#line 11000 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11001 "mrbgems/mruby-compiler/core/y.tab.c" break; case 571: /* f_block_arg: blkarg_mark "local variable or method" */ -#line 4443 "mrbgems/mruby-compiler/core/parse.y" +#line 4444 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = (yyvsp[0].id); } -#line 11008 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11009 "mrbgems/mruby-compiler/core/y.tab.c" break; case 572: /* f_block_arg: blkarg_mark */ -#line 4447 "mrbgems/mruby-compiler/core/parse.y" +#line 4448 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = intern_op(and); } -#line 11016 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11017 "mrbgems/mruby-compiler/core/y.tab.c" break; case 573: /* opt_f_block_arg: ',' f_block_arg */ -#line 4453 "mrbgems/mruby-compiler/core/parse.y" +#line 4454 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = (yyvsp[0].id); } -#line 11024 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11025 "mrbgems/mruby-compiler/core/y.tab.c" break; case 574: /* opt_f_block_arg: none */ -#line 4457 "mrbgems/mruby-compiler/core/parse.y" +#line 4458 "mrbgems/mruby-compiler/core/parse.y" { (yyval.id) = 0; } -#line 11032 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11033 "mrbgems/mruby-compiler/core/y.tab.c" break; case 575: /* singleton: var_ref */ -#line 4463 "mrbgems/mruby-compiler/core/parse.y" +#line 4464 "mrbgems/mruby-compiler/core/parse.y" { prohibit_literals(p, (yyvsp[0].nd)); (yyval.nd) = (yyvsp[0].nd); if (!(yyval.nd)) (yyval.nd) = new_nil(p); } -#line 11042 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11043 "mrbgems/mruby-compiler/core/y.tab.c" break; case 576: /* $@33: %empty */ -#line 4468 "mrbgems/mruby-compiler/core/parse.y" +#line 4469 "mrbgems/mruby-compiler/core/parse.y" {p->lstate = EXPR_BEG;} -#line 11048 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11049 "mrbgems/mruby-compiler/core/y.tab.c" break; case 577: /* singleton: '(' $@33 expr rparen */ -#line 4469 "mrbgems/mruby-compiler/core/parse.y" +#line 4470 "mrbgems/mruby-compiler/core/parse.y" { prohibit_literals(p, (yyvsp[-1].nd)); (yyval.nd) = (yyvsp[-1].nd); } -#line 11057 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11058 "mrbgems/mruby-compiler/core/y.tab.c" break; case 579: /* assoc_list: assocs trailer */ -#line 4477 "mrbgems/mruby-compiler/core/parse.y" +#line 4478 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = (yyvsp[-1].nd); } -#line 11065 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11066 "mrbgems/mruby-compiler/core/y.tab.c" break; case 580: /* assocs: assoc */ -#line 4483 "mrbgems/mruby-compiler/core/parse.y" +#line 4484 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = list1((yyvsp[0].nd)); } -#line 11073 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11074 "mrbgems/mruby-compiler/core/y.tab.c" break; case 581: /* assocs: assocs comma assoc */ -#line 4487 "mrbgems/mruby-compiler/core/parse.y" +#line 4488 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = push((yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 11081 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11082 "mrbgems/mruby-compiler/core/y.tab.c" break; case 582: /* assoc: arg "=>" arg */ -#line 4493 "mrbgems/mruby-compiler/core/parse.y" +#line 4494 "mrbgems/mruby-compiler/core/parse.y" { void_expr_error(p, (yyvsp[-2].nd)); void_expr_error(p, (yyvsp[0].nd)); (yyval.nd) = cons((yyvsp[-2].nd), (yyvsp[0].nd)); } -#line 11091 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11092 "mrbgems/mruby-compiler/core/y.tab.c" break; case 583: /* assoc: "local variable or method" "label" arg */ -#line 4499 "mrbgems/mruby-compiler/core/parse.y" +#line 4500 "mrbgems/mruby-compiler/core/parse.y" { void_expr_error(p, (yyvsp[0].nd)); (yyval.nd) = cons(new_sym(p, (yyvsp[-2].id)), (yyvsp[0].nd)); } -#line 11100 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11101 "mrbgems/mruby-compiler/core/y.tab.c" break; case 584: /* assoc: "local variable or method" "label" */ -#line 4504 "mrbgems/mruby-compiler/core/parse.y" +#line 4505 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = cons(new_sym(p, (yyvsp[-1].id)), label_reference(p, (yyvsp[-1].id))); } -#line 11108 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11109 "mrbgems/mruby-compiler/core/y.tab.c" break; case 585: /* assoc: "numbered parameter" "label" */ -#line 4508 "mrbgems/mruby-compiler/core/parse.y" +#line 4509 "mrbgems/mruby-compiler/core/parse.y" { mrb_sym sym = intern_numparam((yyvsp[-1].num)); (yyval.nd) = cons(new_sym(p, sym), label_reference(p, sym)); } -#line 11117 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11118 "mrbgems/mruby-compiler/core/y.tab.c" break; case 586: /* assoc: "numbered parameter" "label" arg */ -#line 4513 "mrbgems/mruby-compiler/core/parse.y" +#line 4514 "mrbgems/mruby-compiler/core/parse.y" { void_expr_error(p, (yyvsp[0].nd)); (yyval.nd) = cons(new_sym(p, intern_numparam((yyvsp[-2].num))), (yyvsp[0].nd)); } -#line 11126 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11127 "mrbgems/mruby-compiler/core/y.tab.c" break; case 587: /* assoc: string_fragment "label" arg */ -#line 4518 "mrbgems/mruby-compiler/core/parse.y" +#line 4519 "mrbgems/mruby-compiler/core/parse.y" { void_expr_error(p, (yyvsp[0].nd)); if ((yyvsp[-2].nd)->cdr) { @@ -11141,75 +11143,75 @@ yyreduce: (yyval.nd) = cons(new_sym(p, new_strsym(p, (yyvsp[-2].nd)->car)), (yyvsp[0].nd)); } } -#line 11146 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11147 "mrbgems/mruby-compiler/core/y.tab.c" break; case 588: /* assoc: "**" arg */ -#line 4534 "mrbgems/mruby-compiler/core/parse.y" +#line 4535 "mrbgems/mruby-compiler/core/parse.y" { void_expr_error(p, (yyvsp[0].nd)); (yyval.nd) = cons(new_kw_rest_args(p, 0), (yyvsp[0].nd)); } -#line 11155 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11156 "mrbgems/mruby-compiler/core/y.tab.c" break; case 589: /* assoc: "**" */ -#line 4539 "mrbgems/mruby-compiler/core/parse.y" +#line 4540 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = cons(new_kw_rest_args(p, 0), new_lvar(p, intern_op(pow))); } -#line 11163 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11164 "mrbgems/mruby-compiler/core/y.tab.c" break; case 602: /* call_op: '.' */ -#line 4565 "mrbgems/mruby-compiler/core/parse.y" +#line 4566 "mrbgems/mruby-compiler/core/parse.y" { (yyval.num) = '.'; } -#line 11171 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11172 "mrbgems/mruby-compiler/core/y.tab.c" break; case 603: /* call_op: "&." */ -#line 4569 "mrbgems/mruby-compiler/core/parse.y" +#line 4570 "mrbgems/mruby-compiler/core/parse.y" { (yyval.num) = 0; } -#line 11179 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11180 "mrbgems/mruby-compiler/core/y.tab.c" break; case 605: /* call_op2: "::" */ -#line 4576 "mrbgems/mruby-compiler/core/parse.y" +#line 4577 "mrbgems/mruby-compiler/core/parse.y" { (yyval.num) = tCOLON2; } -#line 11187 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11188 "mrbgems/mruby-compiler/core/y.tab.c" break; case 614: /* term: ';' */ -#line 4597 "mrbgems/mruby-compiler/core/parse.y" +#line 4598 "mrbgems/mruby-compiler/core/parse.y" {yyerrok;} -#line 11193 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11194 "mrbgems/mruby-compiler/core/y.tab.c" break; case 616: /* nl: '\n' */ -#line 4602 "mrbgems/mruby-compiler/core/parse.y" +#line 4603 "mrbgems/mruby-compiler/core/parse.y" { p->lineno += (yyvsp[0].num); p->column = 0; } -#line 11202 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11203 "mrbgems/mruby-compiler/core/y.tab.c" break; case 620: /* none: %empty */ -#line 4614 "mrbgems/mruby-compiler/core/parse.y" +#line 4615 "mrbgems/mruby-compiler/core/parse.y" { (yyval.nd) = 0; } -#line 11210 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11211 "mrbgems/mruby-compiler/core/y.tab.c" break; -#line 11214 "mrbgems/mruby-compiler/core/y.tab.c" +#line 11215 "mrbgems/mruby-compiler/core/y.tab.c" default: break; } @@ -11442,7 +11444,7 @@ yyreturnlab: return yyresult; } -#line 4618 "mrbgems/mruby-compiler/core/parse.y" +#line 4619 "mrbgems/mruby-compiler/core/parse.y" #define pylval (*((YYSTYPE*)(p->ylval))) @@ -11546,45 +11548,56 @@ backref_error(parser_state *p, node *n) static void void_expr_error(parser_state *p, node *n) { - int c; - if (n == NULL) return; - c = node_to_int(n->car); - switch (c) { - case NODE_VARIABLE: + + /* Check if this is a variable-sized node first */ + struct mrb_ast_var_header *header = (struct mrb_ast_var_header*)n; + if (header && header->node_type >= NODE_SCOPE && header->node_type <= NODE_NEGATE) { /* Handle variable-sized nodes */ - switch (VAR_NODE_TYPE(n->cdr)) { + switch ((enum node_type)header->node_type) { case NODE_BREAK: case NODE_RETURN: case NODE_NEXT: case NODE_REDO: case NODE_RETRY: yyerror(NULL, p, "void value expression"); - break; + return; case NODE_AND: case NODE_OR: { - struct mrb_ast_and_node *and_n = (struct mrb_ast_and_node*)n->cdr; + struct mrb_ast_and_node *and_n = (struct mrb_ast_and_node*)n; void_expr_error(p, (node*)and_n->left); void_expr_error(p, (node*)and_n->right); } - break; - default: - break; - } - break; - case NODE_STMTS: - case NODE_BEGIN: - if (n->cdr) { - while (n->cdr) { - n = n->cdr; + return; + case NODE_STMTS: + { + struct mrb_ast_stmts_node *stmts = (struct mrb_ast_stmts_node*)n; + node *last = stmts->stmts; + if (last) { + /* Find the last statement in the cons list */ + while (last->cdr) { + last = last->cdr; + } + void_expr_error(p, last->car); + } } - void_expr_error(p, n->car); + return; + case NODE_BEGIN: + { + struct mrb_ast_begin_node *begin_n = (struct mrb_ast_begin_node*)n; + if (begin_n->body) { + void_expr_error(p, (node*)begin_n->body); + } + } + return; + default: + /* Other variable-sized nodes are OK */ + return; } - break; - default: - break; } + + /* Should not reach here - all nodes should be variable-sized now */ } static void pushback(parser_state *p, int c); @@ -13896,7 +13909,7 @@ parser_update_cxt(parser_state *p, mrb_ccontext *cxt) if (!node_type_p(p->tree, NODE_SCOPE)) return; /* Extract locals from variable-sized NODE_SCOPE */ - struct mrb_ast_scope_node *scope = scope_node(p->tree->cdr); + struct mrb_ast_scope_node *scope = scope_node(p->tree); n0 = n = scope->locals; while (n) { i++; @@ -15070,43 +15083,6 @@ mrb_parser_dump(mrb_state *mrb, node *tree, int offset) dump_recur(mrb, ((parser_heredoc_info*)tree)->doc, offset+1); break; - case NODE_VARIABLE: - /* Handle variable-sized nodes wrapped in NODE_VARIABLE */ - { - enum node_type var_type = VAR_NODE_TYPE(tree); - switch (var_type) { - case NODE_SCOPE: - printf("NODE_SCOPE:\n"); - { - struct mrb_ast_scope_node *scope = scope_node(tree); - node *n2 = scope->locals; - mrb_bool first_lval = TRUE; - - if (n2 && (n2->car || n2->cdr)) { - dump_prefix(tree, offset+1); - printf("local variables:\n"); - dump_prefix(tree, offset+2); - while (n2) { - if (n2->car) { - if (!first_lval) printf(", "); - printf("%s", mrb_sym_name(mrb, node_to_sym(n2->car))); - first_lval = FALSE; - } - n2 = n2->cdr; - } - printf("\n"); - } - } - tree = scope_node(tree)->body; - offset++; - goto again; - - default: - printf("NODE_VARIABLE (unsupported type: %d)\n", var_type); - break; - } - } - break; default: printf("node type: %d (0x%x)\n", nodetype, (unsigned)nodetype); @@ -15124,7 +15100,7 @@ mrb_parser_foreach_top_variable(mrb_state *mrb, struct mrb_parser_state *p, mrb_ const mrb_ast_node *n = p->tree; if (node_type_p((node*)n, NODE_SCOPE)) { /* Extract locals from variable-sized NODE_SCOPE */ - struct mrb_ast_scope_node *scope = scope_node(n->cdr); + struct mrb_ast_scope_node *scope = scope_node(n); n = scope->locals; for (; n; n = n->cdr) { mrb_sym sym = node_to_sym(n->car);