Xen project Mailing List

[Minios-devel] [UNIKRAFT/RUBY PATCH 04/16] core: Add generated files for core

From: Costin Lupu <costin.lupu@xxxxxxxxx>

Date: Sun, 8 Dec 2019 11:54:55 +0200

Cc: stefanl.teodorescu@xxxxxxxxx, Andrei Gogonea <andrei.gogonea09@xxxxxxxxx>

Delivery-date: Mon, 09 Dec 2019 13:42:12 +0000

Ironport-sdr: ifQsV8SUY/SntS6FMI30YECNdhKKEeKVc2Mr+ze6fSsPFA6aGuJN5KsHB/xsZQyEIfYFDnR+KE MOLJTrkgqIHQ==

List-id: Mini-os development list <minios-devel.lists.xenproject.org>

From: Andrei Gogonea <andrei.gogonea09@xxxxxxxxx> Some of the files needed for building the Ruby interpreter are generated at build time by Ruby's build system. We just copy these files into our glue library. Further improvements may be done to generate (some of) these files at build time for Unikraft's build as well. Signed-off-by: Andrei Gogonea <andrei.gogonea09@xxxxxxxxx> Signed-off-by: Costin Lupu <costin.lupu@xxxxxxxxx> --- generated/id.c | 135 + generated/id.h | 252 + generated/insns.inc | 249 + generated/insns_info.inc | 9374 +++++++++++++ generated/known_errors.inc | 791 ++ generated/lex.c | 303 + generated/miniprelude.c | 9 + generated/mjit_compile.inc | 4226 ++++++ generated/mjit_config.h | 20 + generated/node_name.inc | 200 + generated/optinsn.inc | 128 + generated/parse.c | 17737 +++++++++++++++++++++++++ generated/parse.h | 211 + generated/prelude.c | 246 + generated/probes.dmyh | 80 + generated/probes.h | 1 + generated/revision.h | 0 generated/verconf.h | 13 + generated/vm.inc | 4504 +++++++ generated/vm_call_iseq_optimized.inc | 213 + generated/vmtc.inc | 243 + 21 files changed, 38935 insertions(+) create mode 100644 generated/id.c create mode 100644 generated/id.h create mode 100644 generated/insns.inc create mode 100644 generated/insns_info.inc create mode 100644 generated/known_errors.inc create mode 100644 generated/lex.c create mode 100644 generated/miniprelude.c create mode 100644 generated/mjit_compile.inc create mode 100644 generated/mjit_config.h create mode 100644 generated/node_name.inc create mode 100644 generated/optinsn.inc create mode 100644 generated/parse.c create mode 100644 generated/parse.h create mode 100644 generated/prelude.c create mode 100644 generated/probes.dmyh create mode 100644 generated/probes.h create mode 100644 generated/revision.h create mode 100644 generated/verconf.h create mode 100644 generated/vm.inc create mode 100644 generated/vm_call_iseq_optimized.inc create mode 100644 generated/vmtc.inc diff --git a/generated/id.c b/generated/id.c new file mode 100644 index 0000000..0f8bf72 --- /dev/null +++ b/generated/id.c @@ -0,0 +1,135 @@ +/* DO NOT EDIT THIS FILE DIRECTLY */ +/********************************************************************** + + id.c - + + $Author$ + created at: Wed Dec 5 02:36:10 2012 + + Copyright (C) 2004-2007 Koichi Sasada + +**********************************************************************/ + +#define tDOT2 RUBY_TOKEN(DOT2) +#define tDOT3 RUBY_TOKEN(DOT3) +#define tUPLUS RUBY_TOKEN(UPLUS) +#define tUMINUS RUBY_TOKEN(UMINUS) +#define tPOW RUBY_TOKEN(POW) +#define tCMP RUBY_TOKEN(CMP) +#define tLSHFT RUBY_TOKEN(LSHFT) +#define tRSHFT RUBY_TOKEN(RSHFT) +#define tLEQ RUBY_TOKEN(LEQ) +#define tGEQ RUBY_TOKEN(GEQ) +#define tEQ RUBY_TOKEN(EQ) +#define tEQQ RUBY_TOKEN(EQQ) +#define tNEQ RUBY_TOKEN(NEQ) +#define tMATCH RUBY_TOKEN(MATCH) +#define tNMATCH RUBY_TOKEN(NMATCH) +#define tAREF RUBY_TOKEN(AREF) +#define tASET RUBY_TOKEN(ASET) +#define tCOLON2 RUBY_TOKEN(COLON2) +#define tANDOP RUBY_TOKEN(ANDOP) +#define tOROP RUBY_TOKEN(OROP) +#define tANDDOT RUBY_TOKEN(ANDDOT) + +static const struct { + unsigned short token; + const char name[3], term; +} op_tbl[] = { + {tDOT2, ".."}, + {tDOT3, "..."}, + {tUPLUS, "+@"}, + {tUMINUS, "-@"}, + {tPOW, "**"}, + {tCMP, "<=>"}, + {tLSHFT, "<<"}, + {tRSHFT, ">>"}, + {tLEQ, "<="}, + {tGEQ, ">="}, + {tEQ, "=="}, + {tEQQ, "==="}, + {tNEQ, "!="}, + {tMATCH, "=~"}, + {tNMATCH, "!~"}, + {tAREF, "[]"}, + {tASET, "[]="}, + {tCOLON2, "::"}, + {tANDOP, "&&"}, + {tOROP, "||"}, + {tANDDOT, "&."}, +}; + +static void +Init_id(void) +{ +#undef rb_intern +#define rb_intern(str) rb_intern_const(str) + rb_encoding *enc = rb_usascii_encoding(); + + REGISTER_SYMID(idMax, "max"); + REGISTER_SYMID(idMin, "min"); + REGISTER_SYMID(idFreeze, "freeze"); + REGISTER_SYMID(idInspect, "inspect"); + REGISTER_SYMID(idIntern, "intern"); + REGISTER_SYMID(idObject_id, "object_id"); + REGISTER_SYMID(idConst_missing, "const_missing"); + REGISTER_SYMID(idMethodMissing, "method_missing"); + REGISTER_SYMID(idMethod_added, "method_added"); + REGISTER_SYMID(idSingleton_method_added, "singleton_method_added"); + REGISTER_SYMID(idMethod_removed, "method_removed"); + REGISTER_SYMID(idSingleton_method_removed, "singleton_method_removed"); + REGISTER_SYMID(idMethod_undefined, "method_undefined"); + REGISTER_SYMID(idSingleton_method_undefined, "singleton_method_undefined"); + REGISTER_SYMID(idLength, "length"); + REGISTER_SYMID(idSize, "size"); + REGISTER_SYMID(idGets, "gets"); + REGISTER_SYMID(idSucc, "succ"); + REGISTER_SYMID(idEach, "each"); + REGISTER_SYMID(idProc, "proc"); + REGISTER_SYMID(idLambda, "lambda"); + REGISTER_SYMID(idSend, "send"); + REGISTER_SYMID(id__send__, "__send__"); + REGISTER_SYMID(id__attached__, "__attached__"); + REGISTER_SYMID(idInitialize, "initialize"); + REGISTER_SYMID(idInitialize_copy, "initialize_copy"); + REGISTER_SYMID(idInitialize_clone, "initialize_clone"); + REGISTER_SYMID(idInitialize_dup, "initialize_dup"); + REGISTER_SYMID(idTo_int, "to_int"); + REGISTER_SYMID(idTo_ary, "to_ary"); + REGISTER_SYMID(idTo_str, "to_str"); + REGISTER_SYMID(idTo_sym, "to_sym"); + REGISTER_SYMID(idTo_hash, "to_hash"); + REGISTER_SYMID(idTo_proc, "to_proc"); + REGISTER_SYMID(idTo_io, "to_io"); + REGISTER_SYMID(idTo_a, "to_a"); + REGISTER_SYMID(idTo_s, "to_s"); + REGISTER_SYMID(idTo_i, "to_i"); + REGISTER_SYMID(idTo_f, "to_f"); + REGISTER_SYMID(idTo_r, "to_r"); + REGISTER_SYMID(idBt, "bt"); + REGISTER_SYMID(idBt_locations, "bt_locations"); + REGISTER_SYMID(idCall, "call"); + REGISTER_SYMID(idMesg, "mesg"); + REGISTER_SYMID(idException, "exception"); + REGISTER_SYMID(idNOT, "not"); + REGISTER_SYMID(idAND, "and"); + REGISTER_SYMID(idOR, "or"); + REGISTER_SYMID(idUScore, "_"); + REGISTER_SYMID(idNULL, ""/*NULL*/""); + REGISTER_SYMID(idEmptyP, "empty?"); + REGISTER_SYMID(idEqlP, "eql?"); + REGISTER_SYMID(idRespond_to, "respond_to?"); + REGISTER_SYMID(idRespond_to_missing, "respond_to_missing?"); + REGISTER_SYMID(idIFUNC, "<IFUNC>"); + REGISTER_SYMID(idCFUNC, "<CFUNC>"); + REGISTER_SYMID(id_core_set_method_alias, "core#set_method_alias"); + REGISTER_SYMID(id_core_set_variable_alias, "core#set_variable_alias"); + REGISTER_SYMID(id_core_undef_method, "core#undef_method"); + REGISTER_SYMID(id_core_define_method, "core#define_method"); + REGISTER_SYMID(id_core_define_singleton_method, "core#define_singleton_method"); + REGISTER_SYMID(id_core_set_postexe, "core#set_postexe"); + REGISTER_SYMID(id_core_hash_merge_ptr, "core#hash_merge_ptr"); + REGISTER_SYMID(id_core_hash_merge_kwd, "core#hash_merge_kwd"); + REGISTER_SYMID(idLASTLINE, "$_"); + REGISTER_SYMID(idBACKREF, "$~"); +} diff --git a/generated/id.h b/generated/id.h new file mode 100644 index 0000000..a3515e3 --- /dev/null +++ b/generated/id.h @@ -0,0 +1,252 @@ +/* DO NOT EDIT THIS FILE DIRECTLY */ +/********************************************************************** + + id.h - + + $Author$ + created at: Sun Oct 19 21:12:51 2008 + + Copyright (C) 2007 Koichi Sasada + +**********************************************************************/ + +#ifndef RUBY_ID_H +#define RUBY_ID_H + +enum ruby_id_types { + RUBY_ID_STATIC_SYM = 0x01, + RUBY_ID_LOCAL = 0x00, + RUBY_ID_INSTANCE = (0x01<<1), + RUBY_ID_GLOBAL = (0x03<<1), + RUBY_ID_ATTRSET = (0x04<<1), + RUBY_ID_CONST = (0x05<<1), + RUBY_ID_CLASS = (0x06<<1), + RUBY_ID_JUNK = (0x07<<1), + RUBY_ID_INTERNAL = RUBY_ID_JUNK, + RUBY_ID_SCOPE_SHIFT = 4, + RUBY_ID_SCOPE_MASK = (~(~0U<<(RUBY_ID_SCOPE_SHIFT-1))<<1) +}; + +#define ID_STATIC_SYM RUBY_ID_STATIC_SYM +#define ID_SCOPE_SHIFT RUBY_ID_SCOPE_SHIFT +#define ID_SCOPE_MASK RUBY_ID_SCOPE_MASK +#define ID_LOCAL RUBY_ID_LOCAL +#define ID_INSTANCE RUBY_ID_INSTANCE +#define ID_GLOBAL RUBY_ID_GLOBAL +#define ID_ATTRSET RUBY_ID_ATTRSET +#define ID_CONST RUBY_ID_CONST +#define ID_CLASS RUBY_ID_CLASS +#define ID_JUNK RUBY_ID_JUNK +#define ID_INTERNAL RUBY_ID_INTERNAL + +#define symIFUNC ID2SYM(idIFUNC) +#define symCFUNC ID2SYM(idCFUNC) + +#define RUBY_TOKEN_DOT2 128 +#define RUBY_TOKEN_DOT3 129 +#define RUBY_TOKEN_UPLUS 130 +#define RUBY_TOKEN_UMINUS 131 +#define RUBY_TOKEN_POW 132 +#define RUBY_TOKEN_CMP 133 +#define RUBY_TOKEN_LSHFT 134 +#define RUBY_TOKEN_RSHFT 135 +#define RUBY_TOKEN_LEQ 136 +#define RUBY_TOKEN_GEQ 137 +#define RUBY_TOKEN_EQ 138 +#define RUBY_TOKEN_EQQ 139 +#define RUBY_TOKEN_NEQ 140 +#define RUBY_TOKEN_MATCH 141 +#define RUBY_TOKEN_NMATCH 142 +#define RUBY_TOKEN_AREF 143 +#define RUBY_TOKEN_ASET 144 +#define RUBY_TOKEN_COLON2 145 +#define RUBY_TOKEN_ANDOP 146 +#define RUBY_TOKEN_OROP 147 +#define RUBY_TOKEN_ANDDOT 148 +#define RUBY_TOKEN(t) RUBY_TOKEN_##t + +#define RUBY_TOKEN2ID_TYPE(tok, type) ((tok<<RUBY_ID_SCOPE_SHIFT)|type|RUBY_ID_STATIC_SYM) +#define TOKEN2LOCALID(tok) RUBY_TOKEN2ID_TYPE(tok, RUBY_ID_LOCAL) +#define TOKEN2INSTANCEID(tok) RUBY_TOKEN2ID_TYPE(tok, RUBY_ID_INSTANCE) +#define TOKEN2GLOBALID(tok) RUBY_TOKEN2ID_TYPE(tok, RUBY_ID_GLOBAL) +#define TOKEN2CONSTID(tok) RUBY_TOKEN2ID_TYPE(tok, RUBY_ID_CONST) +#define TOKEN2CLASSID(tok) RUBY_TOKEN2ID_TYPE(tok, RUBY_ID_CLASS) +#define TOKEN2ATTRSETID(tok) RUBY_TOKEN2ID_TYPE(tok, RUBY_ID_ATTRSET) + +enum ruby_method_ids { + idDot2 = RUBY_TOKEN(DOT2), + idDot3 = RUBY_TOKEN(DOT3), + idUPlus = RUBY_TOKEN(UPLUS), + idUMinus = RUBY_TOKEN(UMINUS), + idPow = RUBY_TOKEN(POW), + idCmp = RUBY_TOKEN(CMP), + idPLUS = '+', + idMINUS = '-', + idMULT = '*', + idDIV = '/', + idMOD = '%', + idLTLT = RUBY_TOKEN(LSHFT), + idGTGT = RUBY_TOKEN(RSHFT), + idLT = '<', + idLE = RUBY_TOKEN(LEQ), + idGT = '>', + idGE = RUBY_TOKEN(GEQ), + idEq = RUBY_TOKEN(EQ), + idEqq = RUBY_TOKEN(EQQ), + idNeq = RUBY_TOKEN(NEQ), + idNot = '!', + idAnd = '&', + idOr = '|', + idBackquote = '`', + idEqTilde = RUBY_TOKEN(MATCH), + idNeqTilde = RUBY_TOKEN(NMATCH), + idAREF = RUBY_TOKEN(AREF), + idASET = RUBY_TOKEN(ASET), + idCOLON2 = RUBY_TOKEN(COLON2), + idANDOP = RUBY_TOKEN(ANDOP), + idOROP = RUBY_TOKEN(OROP), + idANDDOT = RUBY_TOKEN(ANDDOT), + tPRESERVED_ID_BEGIN = 148, + idNULL, + idEmptyP, + idEqlP, + idRespond_to, + idRespond_to_missing, + idIFUNC, + idCFUNC, + id_core_set_method_alias, + id_core_set_variable_alias, + id_core_undef_method, + id_core_define_method, + id_core_define_singleton_method, + id_core_set_postexe, + id_core_hash_merge_ptr, + id_core_hash_merge_kwd, + id_debug_created_info, + tPRESERVED_ID_END, + tTOKEN_LOCAL_BEGIN = tPRESERVED_ID_END-1, + tMax, + tMin, + tFreeze, + tInspect, + tIntern, + tObject_id, + tConst_missing, + tMethodMissing, + tMethod_added, + tSingleton_method_added, + tMethod_removed, + tSingleton_method_removed, + tMethod_undefined, + tSingleton_method_undefined, + tLength, + tSize, + tGets, + tSucc, + tEach, + tProc, + tLambda, + tSend, + t__send__, + t__attached__, + tInitialize, + tInitialize_copy, + tInitialize_clone, + tInitialize_dup, + tTo_int, + tTo_ary, + tTo_str, + tTo_sym, + tTo_hash, + tTo_proc, + tTo_io, + tTo_a, + tTo_s, + tTo_i, + tTo_f, + tTo_r, + tBt, + tBt_locations, + tCall, + tMesg, + tException, + tNOT, + tAND, + tOR, + tUScore, + tTOKEN_LOCAL_END, + tTOKEN_INSTANCE_BEGIN = tTOKEN_LOCAL_END-1, + tTOKEN_INSTANCE_END, + tTOKEN_GLOBAL_BEGIN = tTOKEN_INSTANCE_END-1, + tLASTLINE, + tBACKREF, + tTOKEN_GLOBAL_END, + tTOKEN_CONST_BEGIN = tTOKEN_GLOBAL_END-1, + tTOKEN_CONST_END, + tTOKEN_CLASS_BEGIN = tTOKEN_CONST_END-1, + tTOKEN_CLASS_END, + tTOKEN_ATTRSET_BEGIN = tTOKEN_CLASS_END-1, + tTOKEN_ATTRSET_END, + tNEXT_ID = tTOKEN_ATTRSET_END, +#define DEFINE_LOCALID_FROM_TOKEN(n) id##n = TOKEN2LOCALID(t##n) + DEFINE_LOCALID_FROM_TOKEN(Max), + DEFINE_LOCALID_FROM_TOKEN(Min), + DEFINE_LOCALID_FROM_TOKEN(Freeze), + DEFINE_LOCALID_FROM_TOKEN(Inspect), + DEFINE_LOCALID_FROM_TOKEN(Intern), + DEFINE_LOCALID_FROM_TOKEN(Object_id), + DEFINE_LOCALID_FROM_TOKEN(Const_missing), + DEFINE_LOCALID_FROM_TOKEN(MethodMissing), + DEFINE_LOCALID_FROM_TOKEN(Method_added), + DEFINE_LOCALID_FROM_TOKEN(Singleton_method_added), + DEFINE_LOCALID_FROM_TOKEN(Method_removed), + DEFINE_LOCALID_FROM_TOKEN(Singleton_method_removed), + DEFINE_LOCALID_FROM_TOKEN(Method_undefined), + DEFINE_LOCALID_FROM_TOKEN(Singleton_method_undefined), + DEFINE_LOCALID_FROM_TOKEN(Length), + DEFINE_LOCALID_FROM_TOKEN(Size), + DEFINE_LOCALID_FROM_TOKEN(Gets), + DEFINE_LOCALID_FROM_TOKEN(Succ), + DEFINE_LOCALID_FROM_TOKEN(Each), + DEFINE_LOCALID_FROM_TOKEN(Proc), + DEFINE_LOCALID_FROM_TOKEN(Lambda), + DEFINE_LOCALID_FROM_TOKEN(Send), + DEFINE_LOCALID_FROM_TOKEN(__send__), + DEFINE_LOCALID_FROM_TOKEN(__attached__), + DEFINE_LOCALID_FROM_TOKEN(Initialize), + DEFINE_LOCALID_FROM_TOKEN(Initialize_copy), + DEFINE_LOCALID_FROM_TOKEN(Initialize_clone), + DEFINE_LOCALID_FROM_TOKEN(Initialize_dup), + DEFINE_LOCALID_FROM_TOKEN(To_int), + DEFINE_LOCALID_FROM_TOKEN(To_ary), + DEFINE_LOCALID_FROM_TOKEN(To_str), + DEFINE_LOCALID_FROM_TOKEN(To_sym), + DEFINE_LOCALID_FROM_TOKEN(To_hash), + DEFINE_LOCALID_FROM_TOKEN(To_proc), + DEFINE_LOCALID_FROM_TOKEN(To_io), + DEFINE_LOCALID_FROM_TOKEN(To_a), + DEFINE_LOCALID_FROM_TOKEN(To_s), + DEFINE_LOCALID_FROM_TOKEN(To_i), + DEFINE_LOCALID_FROM_TOKEN(To_f), + DEFINE_LOCALID_FROM_TOKEN(To_r), + DEFINE_LOCALID_FROM_TOKEN(Bt), + DEFINE_LOCALID_FROM_TOKEN(Bt_locations), + DEFINE_LOCALID_FROM_TOKEN(Call), + DEFINE_LOCALID_FROM_TOKEN(Mesg), + DEFINE_LOCALID_FROM_TOKEN(Exception), + DEFINE_LOCALID_FROM_TOKEN(NOT), + DEFINE_LOCALID_FROM_TOKEN(AND), + DEFINE_LOCALID_FROM_TOKEN(OR), + DEFINE_LOCALID_FROM_TOKEN(UScore), +#define DEFINE_INSTANCEID_FROM_TOKEN(n) id##n = TOKEN2INSTANCEID(t##n) +#define DEFINE_GLOBALID_FROM_TOKEN(n) id##n = TOKEN2GLOBALID(t##n) + DEFINE_GLOBALID_FROM_TOKEN(LASTLINE), + DEFINE_GLOBALID_FROM_TOKEN(BACKREF), +#define DEFINE_CONSTID_FROM_TOKEN(n) id##n = TOKEN2CONSTID(t##n) +#define DEFINE_CLASSID_FROM_TOKEN(n) id##n = TOKEN2CLASSID(t##n) +#define DEFINE_ATTRSETID_FROM_TOKEN(n) id##n = TOKEN2ATTRSETID(t##n) + tLAST_OP_ID = tPRESERVED_ID_END-1, + idLAST_OP_ID = tLAST_OP_ID >> ID_SCOPE_SHIFT +}; + +#endif /* RUBY_ID_H */ diff --git a/generated/insns.inc b/generated/insns.inc new file mode 100644 index 0000000..ab49c8f --- /dev/null +++ b/generated/insns.inc @@ -0,0 +1,249 @@ +/* -*- mode:c; style:ruby; coding: utf-8; indent-tabs-mode: nil -*- */ + +/* This is an auto-generated file and is a part of the programming language + * Ruby. The person who created a program to generate this file (``I'' + * hereafter) would like to refrain from defining licensing of this generated + * source code. + * + * This file consist of many small parts of codes copyrighted by each authors, + * not only the ``I'' person. Those original authors agree with some + * open-source license. I believe that the license we agree is the condition + * mentioned in the file COPYING. It states "4. You may modify and include + * the part of the software into any other software ...". But the problem is, + * the license never makes it clear if such modified parts still remain in the + * same license, or not. The fact that we agree with the source code's + * licensing terms do not automatically define that of generated ones. This is + * the reason why this file is under unclear situation. All that I know is + * that above provision guarantees this file to exist. + * + * Please let me hesitate to declare something about this nuanced contract. I + * am not in the position to take over other authors' license to merge into my + * one. Changing them to (say) GPLv3 is not doable by myself. Perhaps someday + * it might turn out to be okay to say this file is under a license. I wish the + * situation would become more clear in the future. */ + +/*******************************************************************/ +/*******************************************************************/ +/*******************************************************************/ +/** + This file contains YARV instruction list. + + ---- + This file is auto generated by insns2vm.rb + DO NOT TOUCH! + + If you want to fix something, you must edit "tool/ruby_vm/views/insns.inc.erb" + or tool/insns2vm.rb + */ + +/* BIN : Basic Instruction Name */ +#define BIN(n) YARVINSN_##n + +enum ruby_vminsn_type { + BIN(nop), + BIN(getlocal), + BIN(setlocal), + BIN(getblockparam), + BIN(setblockparam), + BIN(getblockparamproxy), + BIN(getspecial), + BIN(setspecial), + BIN(getinstancevariable), + BIN(setinstancevariable), + BIN(getclassvariable), + BIN(setclassvariable), + BIN(getconstant), + BIN(setconstant), + BIN(getglobal), + BIN(setglobal), + BIN(putnil), + BIN(putself), + BIN(putobject), + BIN(putspecialobject), + BIN(putiseq), + BIN(putstring), + BIN(concatstrings), + BIN(tostring), + BIN(freezestring), + BIN(toregexp), + BIN(intern), + BIN(newarray), + BIN(duparray), + BIN(duphash), + BIN(expandarray), + BIN(concatarray), + BIN(splatarray), + BIN(newhash), + BIN(newrange), + BIN(pop), + BIN(dup), + BIN(dupn), + BIN(swap), + BIN(reverse), + BIN(reput), + BIN(topn), + BIN(setn), + BIN(adjuststack), + BIN(defined), + BIN(checkmatch), + BIN(checkkeyword), + BIN(checktype), + BIN(defineclass), + BIN(send), + BIN(opt_send_without_block), + BIN(opt_str_freeze), + BIN(opt_str_uminus), + BIN(opt_newarray_max), + BIN(opt_newarray_min), + BIN(invokesuper), + BIN(invokeblock), + BIN(leave), + BIN(throw), + BIN(jump), + BIN(branchif), + BIN(branchunless), + BIN(branchnil), + BIN(opt_getinlinecache), + BIN(opt_setinlinecache), + BIN(once), + BIN(opt_case_dispatch), + BIN(opt_plus), + BIN(opt_minus), + BIN(opt_mult), + BIN(opt_div), + BIN(opt_mod), + BIN(opt_eq), + BIN(opt_neq), + BIN(opt_lt), + BIN(opt_le), + BIN(opt_gt), + BIN(opt_ge), + BIN(opt_ltlt), + BIN(opt_and), + BIN(opt_or), + BIN(opt_aref), + BIN(opt_aset), + BIN(opt_aset_with), + BIN(opt_aref_with), + BIN(opt_length), + BIN(opt_size), + BIN(opt_empty_p), + BIN(opt_succ), + BIN(opt_not), + BIN(opt_regexpmatch1), + BIN(opt_regexpmatch2), + BIN(opt_call_c_function), + BIN(bitblt), + BIN(answer), + BIN(getlocal_WC_0), + BIN(getlocal_WC_1), + BIN(setlocal_WC_0), + BIN(setlocal_WC_1), + BIN(putobject_INT2FIX_0_), + BIN(putobject_INT2FIX_1_), + BIN(trace_nop), + BIN(trace_getlocal), + BIN(trace_setlocal), + BIN(trace_getblockparam), + BIN(trace_setblockparam), + BIN(trace_getblockparamproxy), + BIN(trace_getspecial), + BIN(trace_setspecial), + BIN(trace_getinstancevariable), + BIN(trace_setinstancevariable), + BIN(trace_getclassvariable), + BIN(trace_setclassvariable), + BIN(trace_getconstant), + BIN(trace_setconstant), + BIN(trace_getglobal), + BIN(trace_setglobal), + BIN(trace_putnil), + BIN(trace_putself), + BIN(trace_putobject), + BIN(trace_putspecialobject), + BIN(trace_putiseq), + BIN(trace_putstring), + BIN(trace_concatstrings), + BIN(trace_tostring), + BIN(trace_freezestring), + BIN(trace_toregexp), + BIN(trace_intern), + BIN(trace_newarray), + BIN(trace_duparray), + BIN(trace_duphash), + BIN(trace_expandarray), + BIN(trace_concatarray), + BIN(trace_splatarray), + BIN(trace_newhash), + BIN(trace_newrange), + BIN(trace_pop), + BIN(trace_dup), + BIN(trace_dupn), + BIN(trace_swap), + BIN(trace_reverse), + BIN(trace_reput), + BIN(trace_topn), + BIN(trace_setn), + BIN(trace_adjuststack), + BIN(trace_defined), + BIN(trace_checkmatch), + BIN(trace_checkkeyword), + BIN(trace_checktype), + BIN(trace_defineclass), + BIN(trace_send), + BIN(trace_opt_send_without_block), + BIN(trace_opt_str_freeze), + BIN(trace_opt_str_uminus), + BIN(trace_opt_newarray_max), + BIN(trace_opt_newarray_min), + BIN(trace_invokesuper), + BIN(trace_invokeblock), + BIN(trace_leave), + BIN(trace_throw), + BIN(trace_jump), + BIN(trace_branchif), + BIN(trace_branchunless), + BIN(trace_branchnil), + BIN(trace_opt_getinlinecache), + BIN(trace_opt_setinlinecache), + BIN(trace_once), + BIN(trace_opt_case_dispatch), + BIN(trace_opt_plus), + BIN(trace_opt_minus), + BIN(trace_opt_mult), + BIN(trace_opt_div), + BIN(trace_opt_mod), + BIN(trace_opt_eq), + BIN(trace_opt_neq), + BIN(trace_opt_lt), + BIN(trace_opt_le), + BIN(trace_opt_gt), + BIN(trace_opt_ge), + BIN(trace_opt_ltlt), + BIN(trace_opt_and), + BIN(trace_opt_or), + BIN(trace_opt_aref), + BIN(trace_opt_aset), + BIN(trace_opt_aset_with), + BIN(trace_opt_aref_with), + BIN(trace_opt_length), + BIN(trace_opt_size), + BIN(trace_opt_empty_p), + BIN(trace_opt_succ), + BIN(trace_opt_not), + BIN(trace_opt_regexpmatch1), + BIN(trace_opt_regexpmatch2), + BIN(trace_opt_call_c_function), + BIN(trace_bitblt), + BIN(trace_answer), + BIN(trace_getlocal_WC_0), + BIN(trace_getlocal_WC_1), + BIN(trace_setlocal_WC_0), + BIN(trace_setlocal_WC_1), + BIN(trace_putobject_INT2FIX_0_), + BIN(trace_putobject_INT2FIX_1_), + VM_INSTRUCTION_SIZE +}; + +#define ASSERT_VM_INSTRUCTION_SIZE(array) \ + STATIC_ASSERT(numberof_##array, numberof(array) == VM_INSTRUCTION_SIZE) diff --git a/generated/insns_info.inc b/generated/insns_info.inc new file mode 100644 index 0000000..e64b178 --- /dev/null +++ b/generated/insns_info.inc @@ -0,0 +1,9374 @@ +/* -*- mode:c; style:ruby; coding: utf-8; indent-tabs-mode: nil -*- */ + +/* This is an auto-generated file and is a part of the programming language + * Ruby. The person who created a program to generate this file (``I'' + * hereafter) would like to refrain from defining licensing of this generated + * source code. + * + * This file consist of many small parts of codes copyrighted by each authors, + * not only the ``I'' person. Those original authors agree with some + * open-source license. I believe that the license we agree is the condition + * mentioned in the file COPYING. It states "4. You may modify and include + * the part of the software into any other software ...". But the problem is, + * the license never makes it clear if such modified parts still remain in the + * same license, or not. The fact that we agree with the source code's + * licensing terms do not automatically define that of generated ones. This is + * the reason why this file is under unclear situation. All that I know is + * that above provision guarantees this file to exist. + * + * Please let me hesitate to declare something about this nuanced contract. I + * am not in the position to take over other authors' license to merge into my + * one. Changing them to (say) GPLv3 is not doable by myself. Perhaps someday + * it might turn out to be okay to say this file is under a license. I wish the + * situation would become more clear in the future. */ + +/*******************************************************************/ +/*******************************************************************/ +/*******************************************************************/ +/** + This file contains instruction information for yarv instruction sequence.. + + ---- + This file is auto generated by insns2vm.rb + DO NOT TOUCH! + + If you want to fix something, you must edit "tool/ruby_vm/views/insns_info.inc.erb" + or tool/insns2vm.rb + */ + +enum ruby_insn_type_chars { + TS_VARIABLE = '.', + TS_CALLCACHE = 'E', + TS_CALLINFO = 'C', + TS_CDHASH = 'H', + TS_GENTRY = 'G', + TS_IC = 'K', + TS_ID = 'I', + TS_ISE = 'T', + TS_ISEQ = 'S', + TS_OFFSET = 'O', + TS_VALUE = 'V', + TS_LINDEX = 'L', + TS_FUNCPTR = 'F', + TS_NUM = 'N' +}; + +CONSTFUNC(MAYBE_UNUSED(static const char *insn_name(VALUE insn))); +extern const char *rb_vm_insn_name_info; +MJIT_SYMBOL_EXPORT_BEGIN +extern const unsigned short rb_vm_insn_name_offset[]; +MJIT_SYMBOL_EXPORT_END + +#ifdef RUBY_VM_INSNS_INFO +const unsigned short rb_vm_insn_name_offset[] = { + 0, 4, 13, 22, 36, 50, 69, 80, 91, 111, 131, 148, + 165, 177, 189, 199, 209, 216, 224, 234, 251, 259, 269, 283, + 292, 305, 314, 321, 330, 339, 347, 359, 371, 382, 390, 399, + 403, 407, 412, 417, 425, 431, 436, 441, 453, 461, 472, 485, + 495, 507, 512, 535, 550, 565, 582, 599, 611, 623, 629, 635, + 640, 649, 662, 672, 691, 710, 715, 733, 742, 752, 761, 769, + 777, 784, 792, 799, 806, 813, 820, 829, 837, 844, 853, 862, + 876, 890, 901, 910, 922, 931, 939, 956, 973, 993, 1000, 1007, + 1021, 1035, 1049, 1063, 1084, 1105, 1115, 1130, 1145, 1165, 1185, 1210, + 1227, 1244, 1270, 1296, 1319, 1342, 1360, 1378, 1394, 1410, 1423, 1437, + 1453, 1476, 1490, 1506, 1526, 1541, 1560, 1575, 1588, 1603, 1618, 1632, + 1650, 1668, 1685, 1699, 1714, 1724, 1734, 1745, 1756, 1770, 1782, 1793, + 1804, 1822, 1836, 1853, 1872, 1888, 1906, 1917, 1946, 1967, 1988, 2011, + 2034, 2052, 2070, 2082, 2094, 2105, 2120, 2139, 2155, 2180, 2205, 2216, + 2240, 2255, 2271, 2286, 2300, 2314, 2327, 2341, 2354, 2367, 2380, 2393, + 2408, 2422, 2435, 2450, 2465, 2485, 2505, 2522, 2537, 2555, 2570, 2584, + 2607, 2630, 2656, 2669, 2682, 2702, 2722, 2742, 2762, 2789, +}; +const int rb_vm_max_insn_name_size = 28; +ASSERT_VM_INSTRUCTION_SIZE(rb_vm_insn_name_offset); + +PACKED_STRUCT(struct rb_vm_insn_name_info_tag { + const char L000[ 4]; const char L001[ 9]; const char L002[ 9]; + const char L003[14]; const char L004[14]; const char L005[19]; + const char L006[11]; const char L007[11]; const char L008[20]; + const char L009[20]; const char L010[17]; const char L011[17]; + const char L012[12]; const char L013[12]; const char L014[10]; + const char L015[10]; const char L016[ 7]; const char L017[ 8]; + const char L018[10]; const char L019[17]; const char L020[ 8]; + const char L021[10]; const char L022[14]; const char L023[ 9]; + const char L024[13]; const char L025[ 9]; const char L026[ 7]; + const char L027[ 9]; const char L028[ 9]; const char L029[ 8]; + const char L030[12]; const char L031[12]; const char L032[11]; + const char L033[ 8]; const char L034[ 9]; const char L035[ 4]; + const char L036[ 4]; const char L037[ 5]; const char L038[ 5]; + const char L039[ 8]; const char L040[ 6]; const char L041[ 5]; + const char L042[ 5]; const char L043[12]; const char L044[ 8]; + const char L045[11]; const char L046[13]; const char L047[10]; + const char L048[12]; const char L049[ 5]; const char L050[23]; + const char L051[15]; const char L052[15]; const char L053[17]; + const char L054[17]; const char L055[12]; const char L056[12]; + const char L057[ 6]; const char L058[ 6]; const char L059[ 5]; + const char L060[ 9]; const char L061[13]; const char L062[10]; + const char L063[19]; const char L064[19]; const char L065[ 5]; + const char L066[18]; const char L067[ 9]; const char L068[10]; + const char L069[ 9]; const char L070[ 8]; const char L071[ 8]; + const char L072[ 7]; const char L073[ 8]; const char L074[ 7]; + const char L075[ 7]; const char L076[ 7]; const char L077[ 7]; + const char L078[ 9]; const char L079[ 8]; const char L080[ 7]; + const char L081[ 9]; const char L082[ 9]; const char L083[14]; + const char L084[14]; const char L085[11]; const char L086[ 9]; + const char L087[12]; const char L088[ 9]; const char L089[ 8]; + const char L090[17]; const char L091[17]; const char L092[20]; + const char L093[ 7]; const char L094[ 7]; const char L095[14]; + const char L096[14]; const char L097[14]; const char L098[14]; + const char L099[21]; const char L100[21]; const char L101[10]; + const char L102[15]; const char L103[15]; const char L104[20]; + const char L105[20]; const char L106[25]; const char L107[17]; + const char L108[17]; const char L109[26]; const char L110[26]; + const char L111[23]; const char L112[23]; const char L113[18]; + const char L114[18]; const char L115[16]; const char L116[16]; + const char L117[13]; const char L118[14]; const char L119[16]; + const char L120[23]; const char L121[14]; const char L122[16]; + const char L123[20]; const char L124[15]; const char L125[19]; + const char L126[15]; const char L127[13]; const char L128[15]; + const char L129[15]; const char L130[14]; const char L131[18]; + const char L132[18]; const char L133[17]; const char L134[14]; + const char L135[15]; const char L136[10]; const char L137[10]; + const char L138[11]; const char L139[11]; const char L140[14]; + const char L141[12]; const char L142[11]; const char L143[11]; + const char L144[18]; const char L145[14]; const char L146[17]; + const char L147[19]; const char L148[16]; const char L149[18]; + const char L150[11]; const char L151[29]; const char L152[21]; + const char L153[21]; const char L154[23]; const char L155[23]; + const char L156[18]; const char L157[18]; const char L158[12]; + const char L159[12]; const char L160[11]; const char L161[15]; + const char L162[19]; const char L163[16]; const char L164[25]; + const char L165[25]; const char L166[11]; const char L167[24]; + const char L168[15]; const char L169[16]; const char L170[15]; + const char L171[14]; const char L172[14]; const char L173[13]; + const char L174[14]; const char L175[13]; const char L176[13]; + const char L177[13]; const char L178[13]; const char L179[15]; + const char L180[14]; const char L181[13]; const char L182[15]; + const char L183[15]; const char L184[20]; const char L185[20]; + const char L186[17]; const char L187[15]; const char L188[18]; + const char L189[15]; const char L190[14]; const char L191[23]; + const char L192[23]; const char L193[26]; const char L194[13]; + const char L195[13]; const char L196[20]; const char L197[20]; + const char L198[20]; const char L199[20]; const char L200[27]; + const char L201[27]; +}); + +static const struct rb_vm_insn_name_info_tag rb_vm_insn_name_base = { + "nop" , "getlocal" , + "setlocal" , "getblockparam" , + "setblockparam" , "getblockparamproxy" , + "getspecial" , "setspecial" , + "getinstancevariable" , "setinstancevariable" , + "getclassvariable" , "setclassvariable" , + "getconstant" , "setconstant" , + "getglobal" , "setglobal" , + "putnil" , "putself" , + "putobject" , "putspecialobject" , + "putiseq" , "putstring" , + "concatstrings" , "tostring" , + "freezestring" , "toregexp" , + "intern" , "newarray" , + "duparray" , "duphash" , + "expandarray" , "concatarray" , + "splatarray" , "newhash" , + "newrange" , "pop" , + "dup" , "dupn" , + "swap" , "reverse" , + "reput" , "topn" , + "setn" , "adjuststack" , + "defined" , "checkmatch" , + "checkkeyword" , "checktype" , + "defineclass" , "send" , + "opt_send_without_block" , "opt_str_freeze" , + "opt_str_uminus" , "opt_newarray_max" , + "opt_newarray_min" , "invokesuper" , + "invokeblock" , "leave" , + "throw" , "jump" , + "branchif" , "branchunless" , + "branchnil" , "opt_getinlinecache" , + "opt_setinlinecache" , "once" , + "opt_case_dispatch" , "opt_plus" , + "opt_minus" , "opt_mult" , + "opt_div" , "opt_mod" , + "opt_eq" , "opt_neq" , + "opt_lt" , "opt_le" , + "opt_gt" , "opt_ge" , + "opt_ltlt" , "opt_and" , + "opt_or" , "opt_aref" , + "opt_aset" , "opt_aset_with" , + "opt_aref_with" , "opt_length" , + "opt_size" , "opt_empty_p" , + "opt_succ" , "opt_not" , + "opt_regexpmatch1" , "opt_regexpmatch2" , + "opt_call_c_function" , "bitblt" , + "answer" , "getlocal_WC_0" , + "getlocal_WC_1" , "setlocal_WC_0" , + "setlocal_WC_1" , "putobject_INT2FIX_0_" , + "putobject_INT2FIX_1_" , "trace_nop" , + "trace_getlocal" , "trace_setlocal" , + "trace_getblockparam" , "trace_setblockparam" , + "trace_getblockparamproxy" , "trace_getspecial" , + "trace_setspecial" , "trace_getinstancevariable" , + "trace_setinstancevariable" , "trace_getclassvariable" , + "trace_setclassvariable" , "trace_getconstant" , + "trace_setconstant" , "trace_getglobal" , + "trace_setglobal" , "trace_putnil" , + "trace_putself" , "trace_putobject" , + "trace_putspecialobject" , "trace_putiseq" , + "trace_putstring" , "trace_concatstrings" , + "trace_tostring" , "trace_freezestring" , + "trace_toregexp" , "trace_intern" , + "trace_newarray" , "trace_duparray" , + "trace_duphash" , "trace_expandarray" , + "trace_concatarray" , "trace_splatarray" , + "trace_newhash" , "trace_newrange" , + "trace_pop" , "trace_dup" , + "trace_dupn" , "trace_swap" , + "trace_reverse" , "trace_reput" , + "trace_topn" , "trace_setn" , + "trace_adjuststack" , "trace_defined" , + "trace_checkmatch" , "trace_checkkeyword" , + "trace_checktype" , "trace_defineclass" , + "trace_send" , "trace_opt_send_without_block", + "trace_opt_str_freeze" , "trace_opt_str_uminus" , + "trace_opt_newarray_max" , "trace_opt_newarray_min" , + "trace_invokesuper" , "trace_invokeblock" , + "trace_leave" , "trace_throw" , + "trace_jump" , "trace_branchif" , + "trace_branchunless" , "trace_branchnil" , + "trace_opt_getinlinecache" , "trace_opt_setinlinecache" , + "trace_once" , "trace_opt_case_dispatch" , + "trace_opt_plus" , "trace_opt_minus" , + "trace_opt_mult" , "trace_opt_div" , + "trace_opt_mod" , "trace_opt_eq" , + "trace_opt_neq" , "trace_opt_lt" , + "trace_opt_le" , "trace_opt_gt" , + "trace_opt_ge" , "trace_opt_ltlt" , + "trace_opt_and" , "trace_opt_or" , + "trace_opt_aref" , "trace_opt_aset" , + "trace_opt_aset_with" , "trace_opt_aref_with" , + "trace_opt_length" , "trace_opt_size" , + "trace_opt_empty_p" , "trace_opt_succ" , + "trace_opt_not" , "trace_opt_regexpmatch1" , + "trace_opt_regexpmatch2" , "trace_opt_call_c_function" , + "trace_bitblt" , "trace_answer" , + "trace_getlocal_WC_0" , "trace_getlocal_WC_1" , + "trace_setlocal_WC_0" , "trace_setlocal_WC_1" , + "trace_putobject_INT2FIX_0_" , "trace_putobject_INT2FIX_1_" , +}; + +const char *rb_vm_insn_name_info = (const char *)&rb_vm_insn_name_base; +#endif + +const char * +insn_name(VALUE i) +{ + return &rb_vm_insn_name_info[rb_vm_insn_name_offset[i]]; +} + +CONSTFUNC(MAYBE_UNUSED(static int insn_len(VALUE insn))); +extern const char rb_vm_insn_len_info[]; + +#ifdef RUBY_VM_INSNS_INFO +const char rb_vm_insn_len_info[] = { + 1, 3, 3, 3, 3, 3, 3, 2, 3, 3, 2, 2, 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, 1, 2, + 3, 1, 2, 2, 2, 3, 1, 2, 2, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 4, 2, 3, 2, 4, 4, + 3, 4, 4, 2, 2, 4, 2, 1, 2, 2, 2, 2, 2, 3, 2, 3, 3, 3, 3, 3, 3, 3, 3, 5, 3, + 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 3, 3, 3, 3, 3, 2, 3, 2, 1, 1, 2, 2, 2, 2, 1, + 1, 1, 3, 3, 3, 3, 3, 3, 2, 3, 3, 2, 2, 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, 1, + 2, 3, 1, 2, 2, 2, 3, 1, 2, 2, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 4, 2, 3, 2, 4, + 4, 3, 4, 4, 2, 2, 4, 2, 1, 2, 2, 2, 2, 2, 3, 2, 3, 3, 3, 3, 3, 3, 3, 3, 5, + 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 3, 3, 3, 3, 3, 2, 3, 2, 1, 1, 2, 2, 2, 2, + 1, 1, +}; +#endif + +int +insn_len(VALUE i) +{ + return rb_vm_insn_len_info[i]; +} + +CONSTFUNC(MAYBE_UNUSED(static const char *insn_op_types(VALUE insn))); +CONSTFUNC(MAYBE_UNUSED(static int insn_op_type(VALUE insn, long pos))); +extern const char *rb_vm_insn_op_info; +extern const unsigned short rb_vm_insn_op_offset[]; + +#ifdef RUBY_VM_INSNS_INFO +const unsigned short rb_vm_insn_op_offset[] = { + 0, 1, 4, 7, 10, 13, 16, 19, 21, 24, 27, 29, 31, 33, + 35, 37, 39, 40, 41, 43, 45, 47, 49, 51, 52, 54, 57, 58, + 60, 62, 64, 67, 68, 70, 72, 74, 75, 76, 78, 79, 81, 82, + 84, 86, 88, 92, 94, 97, 99, 103, 107, 110, 114, 118, 120, 122, + 126, 128, 129, 131, 133, 135, 137, 139, 142, 144, 147, 150, 153, 156, + 159, 162, 165, 168, 173, 176, 179, 182, 185, 188, 191, 194, 197, 200, + 204, 208, 211, 214, 217, 220, 223, 225, 228, 230, 231, 232, 234, 236, + 238, 240, 241, 242, 243, 246, 249, 252, 255, 258, 261, 263, 266, 269, + 271, 273, 275, 277, 279, 281, 282, 283, 285, 287, 289, 291, 293, 294, + 296, 299, 300, 302, 304, 306, 309, 310, 312, 314, 316, 317, 318, 320, + 321, 323, 324, 326, 328, 330, 334, 336, 339, 341, 345, 349, 352, 356, + 360, 362, 364, 368, 370, 371, 373, 375, 377, 379, 381, 384, 386, 389, + 392, 395, 398, 401, 404, 407, 410, 415, 418, 421, 424, 427, 430, 433, + 436, 439, 442, 446, 450, 453, 456, 459, 462, 465, 467, 470, 472, 473, + 474, 476, 478, 480, 482, 483, +}; +ASSERT_VM_INSTRUCTION_SIZE(rb_vm_insn_op_offset); + +PACKED_STRUCT(struct rb_vm_insn_op_info_tag { + const char L000[ 1]; const char L001[ 3]; const char L002[ 3]; + const char L003[ 3]; const char L004[ 3]; const char L005[ 3]; + const char L006[ 3]; const char L007[ 2]; const char L008[ 3]; + const char L009[ 3]; const char L010[ 2]; const char L011[ 2]; + const char L012[ 2]; const char L013[ 2]; const char L014[ 2]; + const char L015[ 2]; const char L016[ 1]; const char L017[ 1]; + const char L018[ 2]; const char L019[ 2]; const char L020[ 2]; + const char L021[ 2]; const char L022[ 2]; const char L023[ 1]; + const char L024[ 2]; const char L025[ 3]; const char L026[ 1]; + const char L027[ 2]; const char L028[ 2]; const char L029[ 2]; + const char L030[ 3]; const char L031[ 1]; const char L032[ 2]; + const char L033[ 2]; const char L034[ 2]; const char L035[ 1]; + const char L036[ 1]; const char L037[ 2]; const char L038[ 1]; + const char L039[ 2]; const char L040[ 1]; const char L041[ 2]; + const char L042[ 2]; const char L043[ 2]; const char L044[ 4]; + const char L045[ 2]; const char L046[ 3]; const char L047[ 2]; + const char L048[ 4]; const char L049[ 4]; const char L050[ 3]; + const char L051[ 4]; const char L052[ 4]; const char L053[ 2]; + const char L054[ 2]; const char L055[ 4]; const char L056[ 2]; + const char L057[ 1]; const char L058[ 2]; const char L059[ 2]; + const char L060[ 2]; const char L061[ 2]; const char L062[ 2]; + const char L063[ 3]; const char L064[ 2]; const char L065[ 3]; + const char L066[ 3]; const char L067[ 3]; const char L068[ 3]; + const char L069[ 3]; const char L070[ 3]; const char L071[ 3]; + const char L072[ 3]; const char L073[ 5]; const char L074[ 3]; + const char L075[ 3]; const char L076[ 3]; const char L077[ 3]; + const char L078[ 3]; const char L079[ 3]; const char L080[ 3]; + const char L081[ 3]; const char L082[ 3]; const char L083[ 4]; + const char L084[ 4]; const char L085[ 3]; const char L086[ 3]; + const char L087[ 3]; const char L088[ 3]; const char L089[ 3]; + const char L090[ 2]; const char L091[ 3]; const char L092[ 2]; + const char L093[ 1]; const char L094[ 1]; const char L095[ 2]; + const char L096[ 2]; const char L097[ 2]; const char L098[ 2]; + const char L099[ 1]; const char L100[ 1]; const char L101[ 1]; + const char L102[ 3]; const char L103[ 3]; const char L104[ 3]; + const char L105[ 3]; const char L106[ 3]; const char L107[ 3]; + const char L108[ 2]; const char L109[ 3]; const char L110[ 3]; + const char L111[ 2]; const char L112[ 2]; const char L113[ 2]; + const char L114[ 2]; const char L115[ 2]; const char L116[ 2]; + const char L117[ 1]; const char L118[ 1]; const char L119[ 2]; + const char L120[ 2]; const char L121[ 2]; const char L122[ 2]; + const char L123[ 2]; const char L124[ 1]; const char L125[ 2]; + const char L126[ 3]; const char L127[ 1]; const char L128[ 2]; + const char L129[ 2]; const char L130[ 2]; const char L131[ 3]; + const char L132[ 1]; const char L133[ 2]; const char L134[ 2]; + const char L135[ 2]; const char L136[ 1]; const char L137[ 1]; + const char L138[ 2]; const char L139[ 1]; const char L140[ 2]; + const char L141[ 1]; const char L142[ 2]; const char L143[ 2]; + const char L144[ 2]; const char L145[ 4]; const char L146[ 2]; + const char L147[ 3]; const char L148[ 2]; const char L149[ 4]; + const char L150[ 4]; const char L151[ 3]; const char L152[ 4]; + const char L153[ 4]; const char L154[ 2]; const char L155[ 2]; + const char L156[ 4]; const char L157[ 2]; const char L158[ 1]; + const char L159[ 2]; const char L160[ 2]; const char L161[ 2]; + const char L162[ 2]; const char L163[ 2]; const char L164[ 3]; + const char L165[ 2]; const char L166[ 3]; const char L167[ 3]; + const char L168[ 3]; const char L169[ 3]; const char L170[ 3]; + const char L171[ 3]; const char L172[ 3]; const char L173[ 3]; + const char L174[ 5]; const char L175[ 3]; const char L176[ 3]; + const char L177[ 3]; const char L178[ 3]; const char L179[ 3]; + const char L180[ 3]; const char L181[ 3]; const char L182[ 3]; + const char L183[ 3]; const char L184[ 4]; const char L185[ 4]; + const char L186[ 3]; const char L187[ 3]; const char L188[ 3]; + const char L189[ 3]; const char L190[ 3]; const char L191[ 2]; + const char L192[ 3]; const char L193[ 2]; const char L194[ 1]; + const char L195[ 1]; const char L196[ 2]; const char L197[ 2]; + const char L198[ 2]; const char L199[ 2]; const char L200[ 1]; + const char L201[ 1]; +}); + +static const struct rb_vm_insn_op_info_tag rb_vm_insn_op_base = { + "" , "LN" , "LN" , "LN" , "LN" , "LN" , "NN" , "N" , + "IK" , "IK" , "I" , "I" , "I" , "I" , "G" , "G" , + "" , "" , "V" , "N" , "S" , "V" , "N" , "" , + "V" , "NN" , "" , "N" , "V" , "V" , "NN" , "" , + "V" , "N" , "N" , "" , "" , "N" , "" , "N" , + "" , "N" , "N" , "N" , "NVV" , "N" , "LL" , "N" , + "ISN" , "CES" , "CE" , "VCE" , "VCE" , "N" , "N" , "CES" , + "C" , "" , "N" , "O" , "O" , "O" , "O" , "OK" , + "K" , "ST" , "HO" , "CE" , "CE" , "CE" , "CE" , "CE" , + "CE" , "CECE", "CE" , "CE" , "CE" , "CE" , "CE" , "CE" , + "CE" , "CE" , "CE" , "VCE" , "VCE" , "CE" , "CE" , "CE" , + "CE" , "CE" , "V" , "CE" , "F" , "" , "" , "L" , + "L" , "L" , "L" , "" , "" , "" , "LN" , "LN" , + "LN" , "LN" , "LN" , "NN" , "N" , "IK" , "IK" , "I" , + "I" , "I" , "I" , "G" , "G" , "" , "" , "V" , + "N" , "S" , "V" , "N" , "" , "V" , "NN" , "" , + "N" , "V" , "V" , "NN" , "" , "V" , "N" , "N" , + "" , "" , "N" , "" , "N" , "" , "N" , "N" , + "N" , "NVV" , "N" , "LL" , "N" , "ISN" , "CES" , "CE" , + "VCE" , "VCE" , "N" , "N" , "CES" , "C" , "" , "N" , + "O" , "O" , "O" , "O" , "OK" , "K" , "ST" , "HO" , + "CE" , "CE" , "CE" , "CE" , "CE" , "CE" , "CECE", "CE" , + "CE" , "CE" , "CE" , "CE" , "CE" , "CE" , "CE" , "CE" , + "VCE" , "VCE" , "CE" , "CE" , "CE" , "CE" , "CE" , "V" , + "CE" , "F" , "" , "" , "L" , "L" , "L" , "L" , + "" , "" , +}; + +const char *rb_vm_insn_op_info = (const char *)&rb_vm_insn_op_base; +#endif + +const char * +insn_op_types(VALUE i) +{ + return &rb_vm_insn_op_info[rb_vm_insn_op_offset[i]]; +} + +int +insn_op_type(VALUE i, long j) +{ + if (j >= insn_len(i)) { + return 0; + } + else { + return insn_op_types(i)[j]; + } +} + + +static bool +leafness_of_getglobal(VALUE gentry) +{ + const struct rb_global_entry *e = (void *)gentry; + + if (UNLIKELY(rb_gvar_is_traced(e))) { + return false; + } + else { + /* We cannot write this function using a switch() because a + * case label cannot be a function pointer. */ + static rb_gvar_getter_t *const allowlist[] = { + rb_gvar_val_getter, + rb_gvar_var_getter, + rb_gvar_undef_getter, + }; + rb_gvar_getter_t *f = rb_gvar_getter_function_of(e); + int i; + + for (i = 0; i < numberof(allowlist); i++) { + if (f == allowlist[i]) { + return true; + } + } + return false; + } +} + +static bool +leafness_of_setglobal(VALUE gentry) +{ + const struct rb_global_entry *e = (void *)gentry; + + if (UNLIKELY(rb_gvar_is_traced(e))) { + return false; + } + else { + /* We cannot write this function using a switch() because a + * case label cannot be a function pointer. */ + static rb_gvar_setter_t *const allowlist[] = { + rb_gvar_val_setter, + rb_gvar_readonly_setter, + rb_gvar_var_setter, + rb_gvar_undef_setter, + }; + rb_gvar_setter_t *f = rb_gvar_setter_function_of(e); + int i; + + for (i = 0; i < numberof(allowlist); i++) { + if (f == allowlist[i]) { + return true; + } + } + return false; + } +} + +#include "iseq.h" + +static bool +leafness_of_defined(rb_num_t op_type) +{ + /* see also: vm_insnhelper.c:vm_defined() */ + switch (op_type) { + case DEFINED_IVAR: + case DEFINED_IVAR2: + case DEFINED_GVAR: + case DEFINED_CVAR: + case DEFINED_YIELD: + case DEFINED_REF: + case DEFINED_ZSUPER: + return false; + case DEFINED_CONST: + /* has rb_autoload_load(); */ + return false; + case DEFINED_FUNC: + case DEFINED_METHOD: + /* calls #respond_to_missing? */ + return false; + default: + rb_bug("unknown operand %ld: blame @shyouhei.", op_type); + } +} + +static bool +leafness_of_checkmatch(rb_num_t flag) +{ + /* see also: vm_insnhelper.c:check_match() */ + if (flag == VM_CHECKMATCH_TYPE_WHEN) { + return true; + } + else { + /* has rb_funcallv() */ + return false; + } +} + +#ifndef RUBY_VM_EXEC_H +/* can't #include "vm_exec.h" here... */ +typedef long OFFSET; +typedef unsigned long lindex_t; +typedef VALUE GENTRY; +typedef rb_iseq_t *ISEQ; +#endif + +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_nop(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_nop(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_nop(void))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_nop(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_nop(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_nop(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_nop(void))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_nop(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_nop(void))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_getlocal(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_getlocal(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_getlocal(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_getlocal(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_getlocal(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_getlocal(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_getlocal(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_getlocal(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_getlocal(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_setlocal(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_setlocal(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_setlocal(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_setlocal(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_setlocal(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_setlocal(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_setlocal(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_setlocal(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_setlocal(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_getblockparam(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_getblockparam(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_getblockparam(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_getblockparam(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_getblockparam(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_getblockparam(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_getblockparam(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_getblockparam(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_getblockparam(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_setblockparam(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_setblockparam(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_setblockparam(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_setblockparam(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_setblockparam(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_setblockparam(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_setblockparam(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_setblockparam(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_setblockparam(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_getblockparamproxy(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_getblockparamproxy(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_getblockparamproxy(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_getblockparamproxy(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_getblockparamproxy(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_getblockparamproxy(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_getblockparamproxy(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_getblockparamproxy(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_getblockparamproxy(lindex_t idx, rb_num_t level))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_getspecial(rb_num_t key, rb_num_t type))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_getspecial(rb_num_t key, rb_num_t type))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_getspecial(rb_num_t key, rb_num_t type))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_getspecial(rb_num_t key, rb_num_t type))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_getspecial(rb_num_t key, rb_num_t type))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_getspecial(rb_num_t key, rb_num_t type))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_getspecial(rb_num_t key, rb_num_t type))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_getspecial(rb_num_t key, rb_num_t type))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_getspecial(rb_num_t key, rb_num_t type))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_setspecial(rb_num_t key))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_setspecial(rb_num_t key))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_setspecial(rb_num_t key))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_setspecial(rb_num_t key))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_setspecial(rb_num_t key))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_setspecial(rb_num_t key))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_setspecial(rb_num_t key))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_setspecial(rb_num_t key))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_setspecial(rb_num_t key))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_getinstancevariable(ID id, IC ic))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_getinstancevariable(ID id, IC ic))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_getinstancevariable(ID id, IC ic))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_getinstancevariable(ID id, IC ic))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_getinstancevariable(ID id, IC ic))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_getinstancevariable(ID id, IC ic))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_getinstancevariable(ID id, IC ic))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_getinstancevariable(ID id, IC ic))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_getinstancevariable(ID id, IC ic))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_setinstancevariable(ID id, IC ic))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_setinstancevariable(ID id, IC ic))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_setinstancevariable(ID id, IC ic))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_setinstancevariable(ID id, IC ic))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_setinstancevariable(ID id, IC ic))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_setinstancevariable(ID id, IC ic))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_setinstancevariable(ID id, IC ic))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_setinstancevariable(ID id, IC ic))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_setinstancevariable(ID id, IC ic))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_getclassvariable(ID id))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_getclassvariable(ID id))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_getclassvariable(ID id))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_getclassvariable(ID id))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_getclassvariable(ID id))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_getclassvariable(ID id))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_getclassvariable(ID id))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_getclassvariable(ID id))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_getclassvariable(ID id))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_setclassvariable(ID id))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_setclassvariable(ID id))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_setclassvariable(ID id))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_setclassvariable(ID id))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_setclassvariable(ID id))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_setclassvariable(ID id))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_setclassvariable(ID id))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_setclassvariable(ID id))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_setclassvariable(ID id))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_getconstant(ID id))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_getconstant(ID id))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_getconstant(ID id))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_getconstant(ID id))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_getconstant(ID id))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_getconstant(ID id))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_getconstant(ID id))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_getconstant(ID id))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_getconstant(ID id))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_setconstant(ID id))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_setconstant(ID id))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_setconstant(ID id))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_setconstant(ID id))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_setconstant(ID id))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_setconstant(ID id))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_setconstant(ID id))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_setconstant(ID id))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_setconstant(ID id))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_getglobal(GENTRY entry))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_getglobal(GENTRY entry))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_getglobal(GENTRY entry))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_getglobal(GENTRY entry))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_getglobal(GENTRY entry))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_getglobal(GENTRY entry))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_getglobal(GENTRY entry))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_getglobal(GENTRY entry))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_getglobal(GENTRY entry))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_setglobal(GENTRY entry))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_setglobal(GENTRY entry))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_setglobal(GENTRY entry))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_setglobal(GENTRY entry))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_setglobal(GENTRY entry))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_setglobal(GENTRY entry))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_setglobal(GENTRY entry))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_setglobal(GENTRY entry))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_setglobal(GENTRY entry))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_putnil(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_putnil(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_putnil(void))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_putnil(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_putnil(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_putnil(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_putnil(void))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_putnil(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_putnil(void))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_putself(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_putself(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_putself(void))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_putself(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_putself(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_putself(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_putself(void))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_putself(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_putself(void))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_putobject(VALUE val))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_putobject(VALUE val))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_putobject(VALUE val))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_putobject(VALUE val))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_putobject(VALUE val))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_putobject(VALUE val))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_putobject(VALUE val))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_putobject(VALUE val))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_putobject(VALUE val))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_putspecialobject(rb_num_t value_type))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_putspecialobject(rb_num_t value_type))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_putspecialobject(rb_num_t value_type))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_putspecialobject(rb_num_t value_type))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_putspecialobject(rb_num_t value_type))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_putspecialobject(rb_num_t value_type))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_putspecialobject(rb_num_t value_type))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_putspecialobject(rb_num_t value_type))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_putspecialobject(rb_num_t value_type))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_putiseq(ISEQ iseq))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_putiseq(ISEQ iseq))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_putiseq(ISEQ iseq))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_putiseq(ISEQ iseq))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_putiseq(ISEQ iseq))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_putiseq(ISEQ iseq))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_putiseq(ISEQ iseq))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_putiseq(ISEQ iseq))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_putiseq(ISEQ iseq))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_putstring(VALUE str))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_putstring(VALUE str))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_putstring(VALUE str))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_putstring(VALUE str))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_putstring(VALUE str))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_putstring(VALUE str))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_putstring(VALUE str))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_putstring(VALUE str))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_putstring(VALUE str))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_concatstrings(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_concatstrings(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_concatstrings(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_concatstrings(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_concatstrings(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_concatstrings(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_concatstrings(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_concatstrings(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_concatstrings(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_tostring(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_tostring(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_tostring(void))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_tostring(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_tostring(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_tostring(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_tostring(void))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_tostring(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_tostring(void))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_freezestring(VALUE debug_info))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_freezestring(VALUE debug_info))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_freezestring(VALUE debug_info))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_freezestring(VALUE debug_info))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_freezestring(VALUE debug_info))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_freezestring(VALUE debug_info))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_freezestring(VALUE debug_info))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_freezestring(VALUE debug_info))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_freezestring(VALUE debug_info))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_toregexp(rb_num_t opt, rb_num_t cnt))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_toregexp(rb_num_t opt, rb_num_t cnt))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_toregexp(rb_num_t opt, rb_num_t cnt))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_toregexp(rb_num_t opt, rb_num_t cnt))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_toregexp(rb_num_t opt, rb_num_t cnt))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_toregexp(rb_num_t opt, rb_num_t cnt))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_toregexp(rb_num_t opt, rb_num_t cnt))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_toregexp(rb_num_t opt, rb_num_t cnt))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_toregexp(rb_num_t opt, rb_num_t cnt))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_intern(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_intern(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_intern(void))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_intern(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_intern(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_intern(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_intern(void))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_intern(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_intern(void))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_newarray(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_newarray(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_newarray(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_newarray(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_newarray(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_newarray(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_newarray(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_newarray(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_newarray(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_duparray(VALUE ary))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_duparray(VALUE ary))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_duparray(VALUE ary))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_duparray(VALUE ary))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_duparray(VALUE ary))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_duparray(VALUE ary))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_duparray(VALUE ary))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_duparray(VALUE ary))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_duparray(VALUE ary))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_duphash(VALUE hash))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_duphash(VALUE hash))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_duphash(VALUE hash))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_duphash(VALUE hash))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_duphash(VALUE hash))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_duphash(VALUE hash))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_duphash(VALUE hash))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_duphash(VALUE hash))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_duphash(VALUE hash))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_expandarray(rb_num_t num, rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_expandarray(rb_num_t num, rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_expandarray(rb_num_t num, rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_expandarray(rb_num_t num, rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_expandarray(rb_num_t num, rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_expandarray(rb_num_t num, rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_expandarray(rb_num_t num, rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_expandarray(rb_num_t num, rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_expandarray(rb_num_t num, rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_concatarray(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_concatarray(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_concatarray(void))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_concatarray(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_concatarray(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_concatarray(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_concatarray(void))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_concatarray(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_concatarray(void))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_splatarray(VALUE flag))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_splatarray(VALUE flag))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_splatarray(VALUE flag))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_splatarray(VALUE flag))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_splatarray(VALUE flag))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_splatarray(VALUE flag))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_splatarray(VALUE flag))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_splatarray(VALUE flag))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_splatarray(VALUE flag))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_newhash(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_newhash(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_newhash(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_newhash(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_newhash(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_newhash(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_newhash(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_newhash(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_newhash(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_newrange(rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_newrange(rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_newrange(rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_newrange(rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_newrange(rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_newrange(rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_newrange(rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_newrange(rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_newrange(rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_pop(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_pop(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_pop(void))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_pop(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_pop(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_pop(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_pop(void))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_pop(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_pop(void))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_dup(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_dup(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_dup(void))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_dup(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_dup(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_dup(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_dup(void))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_dup(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_dup(void))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_dupn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_dupn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_dupn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_dupn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_dupn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_dupn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_dupn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_dupn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_dupn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_swap(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_swap(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_swap(void))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_swap(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_swap(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_swap(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_swap(void))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_swap(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_swap(void))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_reverse(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_reverse(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_reverse(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_reverse(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_reverse(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_reverse(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_reverse(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_reverse(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_reverse(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_reput(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_reput(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_reput(void))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_reput(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_reput(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_reput(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_reput(void))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_reput(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_reput(void))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_topn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_topn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_topn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_topn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_topn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_topn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_topn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_topn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_topn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_setn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_setn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_setn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_setn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_setn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_setn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_setn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_setn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_setn(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_adjuststack(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_adjuststack(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_adjuststack(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_adjuststack(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_adjuststack(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_adjuststack(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_adjuststack(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_adjuststack(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_adjuststack(rb_num_t n))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_defined(rb_num_t op_type, VALUE obj, VALUE needstr))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_defined(rb_num_t op_type, VALUE obj, VALUE needstr))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_defined(rb_num_t op_type, VALUE obj, VALUE needstr))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_defined(rb_num_t op_type, VALUE obj, VALUE needstr))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_defined(rb_num_t op_type, VALUE obj, VALUE needstr))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_defined(rb_num_t op_type, VALUE obj, VALUE needstr))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_defined(rb_num_t op_type, VALUE obj, VALUE needstr))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_defined(rb_num_t op_type, VALUE obj, VALUE needstr))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_defined(rb_num_t op_type, VALUE obj, VALUE needstr))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_checkmatch(rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_checkmatch(rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_checkmatch(rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_checkmatch(rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_checkmatch(rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_checkmatch(rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_checkmatch(rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_checkmatch(rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_checkmatch(rb_num_t flag))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_checkkeyword(lindex_t kw_bits_index, lindex_t keyword_index))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_checkkeyword(lindex_t kw_bits_index, lindex_t keyword_index))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_checkkeyword(lindex_t kw_bits_index, lindex_t keyword_index))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_checkkeyword(lindex_t kw_bits_index, lindex_t keyword_index))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_checkkeyword(lindex_t kw_bits_index, lindex_t keyword_index))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_checkkeyword(lindex_t kw_bits_index, lindex_t keyword_index))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_checkkeyword(lindex_t kw_bits_index, lindex_t keyword_index))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_checkkeyword(lindex_t kw_bits_index, lindex_t keyword_index))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_checkkeyword(lindex_t kw_bits_index, lindex_t keyword_index))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_checktype(rb_num_t type))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_checktype(rb_num_t type))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_checktype(rb_num_t type))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_checktype(rb_num_t type))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_checktype(rb_num_t type))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_checktype(rb_num_t type))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_checktype(rb_num_t type))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_checktype(rb_num_t type))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_checktype(rb_num_t type))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_defineclass(ID id, ISEQ class_iseq, rb_num_t flags))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_defineclass(ID id, ISEQ class_iseq, rb_num_t flags))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_defineclass(ID id, ISEQ class_iseq, rb_num_t flags))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_defineclass(ID id, ISEQ class_iseq, rb_num_t flags))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_defineclass(ID id, ISEQ class_iseq, rb_num_t flags))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_defineclass(ID id, ISEQ class_iseq, rb_num_t flags))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_defineclass(ID id, ISEQ class_iseq, rb_num_t flags))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_defineclass(ID id, ISEQ class_iseq, rb_num_t flags))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_defineclass(ID id, ISEQ class_iseq, rb_num_t flags))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_send(CALL_INFO ci, CALL_CACHE cc, ISEQ blockiseq))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_send(CALL_INFO ci, CALL_CACHE cc, ISEQ blockiseq))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_send(CALL_INFO ci, CALL_CACHE cc, ISEQ blockiseq))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_send(CALL_INFO ci, CALL_CACHE cc, ISEQ blockiseq))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_send(CALL_INFO ci, CALL_CACHE cc, ISEQ blockiseq))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_send(CALL_INFO ci, CALL_CACHE cc, ISEQ blockiseq))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_send(CALL_INFO ci, CALL_CACHE cc, ISEQ blockiseq))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_send(CALL_INFO ci, CALL_CACHE cc, ISEQ blockiseq))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_send(CALL_INFO ci, CALL_CACHE cc, ISEQ blockiseq))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_send_without_block(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_send_without_block(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_send_without_block(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_send_without_block(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_send_without_block(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_send_without_block(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_send_without_block(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_send_without_block(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_send_without_block(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_str_freeze(VALUE str, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_str_freeze(VALUE str, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_str_freeze(VALUE str, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_str_freeze(VALUE str, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_str_freeze(VALUE str, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_str_freeze(VALUE str, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_str_freeze(VALUE str, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_str_freeze(VALUE str, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_str_freeze(VALUE str, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_str_uminus(VALUE str, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_str_uminus(VALUE str, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_str_uminus(VALUE str, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_str_uminus(VALUE str, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_str_uminus(VALUE str, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_str_uminus(VALUE str, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_str_uminus(VALUE str, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_str_uminus(VALUE str, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_str_uminus(VALUE str, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_newarray_max(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_newarray_max(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_newarray_max(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_newarray_max(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_newarray_max(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_newarray_max(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_newarray_max(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_newarray_max(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_newarray_max(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_newarray_min(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_newarray_min(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_newarray_min(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_newarray_min(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_newarray_min(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_newarray_min(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_newarray_min(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_newarray_min(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_newarray_min(rb_num_t num))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_invokesuper(CALL_INFO ci, CALL_CACHE cc, ISEQ blockiseq))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_invokesuper(CALL_INFO ci, CALL_CACHE cc, ISEQ blockiseq))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_invokesuper(CALL_INFO ci, CALL_CACHE cc, ISEQ blockiseq))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_invokesuper(CALL_INFO ci, CALL_CACHE cc, ISEQ blockiseq))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_invokesuper(CALL_INFO ci, CALL_CACHE cc, ISEQ blockiseq))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_invokesuper(CALL_INFO ci, CALL_CACHE cc, ISEQ blockiseq))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_invokesuper(CALL_INFO ci, CALL_CACHE cc, ISEQ blockiseq))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_invokesuper(CALL_INFO ci, CALL_CACHE cc, ISEQ blockiseq))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_invokesuper(CALL_INFO ci, CALL_CACHE cc, ISEQ blockiseq))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_invokeblock(CALL_INFO ci))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_invokeblock(CALL_INFO ci))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_invokeblock(CALL_INFO ci))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_invokeblock(CALL_INFO ci))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_invokeblock(CALL_INFO ci))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_invokeblock(CALL_INFO ci))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_invokeblock(CALL_INFO ci))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_invokeblock(CALL_INFO ci))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_invokeblock(CALL_INFO ci))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_leave(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_leave(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_leave(void))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_leave(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_leave(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_leave(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_leave(void))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_leave(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_leave(void))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_throw(rb_num_t throw_state))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_throw(rb_num_t throw_state))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_throw(rb_num_t throw_state))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_throw(rb_num_t throw_state))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_throw(rb_num_t throw_state))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_throw(rb_num_t throw_state))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_throw(rb_num_t throw_state))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_throw(rb_num_t throw_state))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_throw(rb_num_t throw_state))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_jump(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_jump(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_jump(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_jump(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_jump(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_jump(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_jump(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_jump(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_jump(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_branchif(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_branchif(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_branchif(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_branchif(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_branchif(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_branchif(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_branchif(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_branchif(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_branchif(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_branchunless(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_branchunless(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_branchunless(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_branchunless(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_branchunless(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_branchunless(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_branchunless(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_branchunless(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_branchunless(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_branchnil(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_branchnil(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_branchnil(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_branchnil(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_branchnil(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_branchnil(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_branchnil(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_branchnil(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_branchnil(OFFSET dst))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_getinlinecache(OFFSET dst, IC ic))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_getinlinecache(OFFSET dst, IC ic))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_getinlinecache(OFFSET dst, IC ic))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_getinlinecache(OFFSET dst, IC ic))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_getinlinecache(OFFSET dst, IC ic))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_getinlinecache(OFFSET dst, IC ic))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_getinlinecache(OFFSET dst, IC ic))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_getinlinecache(OFFSET dst, IC ic))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_getinlinecache(OFFSET dst, IC ic))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_setinlinecache(IC ic))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_setinlinecache(IC ic))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_setinlinecache(IC ic))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_setinlinecache(IC ic))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_setinlinecache(IC ic))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_setinlinecache(IC ic))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_setinlinecache(IC ic))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_setinlinecache(IC ic))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_setinlinecache(IC ic))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_once(ISEQ iseq, ISE ise))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_once(ISEQ iseq, ISE ise))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_once(ISEQ iseq, ISE ise))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_once(ISEQ iseq, ISE ise))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_once(ISEQ iseq, ISE ise))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_once(ISEQ iseq, ISE ise))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_once(ISEQ iseq, ISE ise))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_once(ISEQ iseq, ISE ise))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_once(ISEQ iseq, ISE ise))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_case_dispatch(CDHASH hash, OFFSET else_offset))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_case_dispatch(CDHASH hash, OFFSET else_offset))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_case_dispatch(CDHASH hash, OFFSET else_offset))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_case_dispatch(CDHASH hash, OFFSET else_offset))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_case_dispatch(CDHASH hash, OFFSET else_offset))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_case_dispatch(CDHASH hash, OFFSET else_offset))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_case_dispatch(CDHASH hash, OFFSET else_offset))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_case_dispatch(CDHASH hash, OFFSET else_offset))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_case_dispatch(CDHASH hash, OFFSET else_offset))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_plus(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_plus(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_plus(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_plus(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_plus(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_plus(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_plus(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_plus(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_plus(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_minus(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_minus(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_minus(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_minus(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_minus(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_minus(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_minus(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_minus(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_minus(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_mult(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_mult(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_mult(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_mult(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_mult(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_mult(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_mult(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_mult(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_mult(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_div(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_div(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_div(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_div(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_div(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_div(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_div(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_div(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_div(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_mod(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_mod(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_mod(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_mod(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_mod(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_mod(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_mod(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_mod(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_mod(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_eq(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_eq(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_eq(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_eq(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_eq(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_eq(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_eq(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_eq(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_eq(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_neq(CALL_INFO ci_eq, CALL_CACHE cc_eq, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_neq(CALL_INFO ci_eq, CALL_CACHE cc_eq, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_neq(CALL_INFO ci_eq, CALL_CACHE cc_eq, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_neq(CALL_INFO ci_eq, CALL_CACHE cc_eq, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_neq(CALL_INFO ci_eq, CALL_CACHE cc_eq, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_neq(CALL_INFO ci_eq, CALL_CACHE cc_eq, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_neq(CALL_INFO ci_eq, CALL_CACHE cc_eq, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_neq(CALL_INFO ci_eq, CALL_CACHE cc_eq, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_neq(CALL_INFO ci_eq, CALL_CACHE cc_eq, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_lt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_lt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_lt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_lt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_lt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_lt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_lt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_lt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_lt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_le(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_le(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_le(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_le(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_le(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_le(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_le(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_le(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_le(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_gt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_gt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_gt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_gt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_gt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_gt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_gt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_gt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_gt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_ge(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_ge(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_ge(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_ge(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_ge(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_ge(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_ge(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_ge(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_ge(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_ltlt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_ltlt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_ltlt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_ltlt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_ltlt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_ltlt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_ltlt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_ltlt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_ltlt(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_and(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_and(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_and(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_and(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_and(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_and(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_and(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_and(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_and(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_or(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_or(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_or(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_or(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_or(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_or(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_or(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_or(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_or(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_aref(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_aref(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_aref(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_aref(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_aref(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_aref(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_aref(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_aref(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_aref(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_aset(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_aset(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_aset(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_aset(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_aset(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_aset(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_aset(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_aset(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_aset(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_aset_with(VALUE key, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_aset_with(VALUE key, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_aset_with(VALUE key, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_aset_with(VALUE key, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_aset_with(VALUE key, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_aset_with(VALUE key, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_aset_with(VALUE key, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_aset_with(VALUE key, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_aset_with(VALUE key, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_aref_with(VALUE key, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_aref_with(VALUE key, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_aref_with(VALUE key, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_aref_with(VALUE key, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_aref_with(VALUE key, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_aref_with(VALUE key, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_aref_with(VALUE key, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_aref_with(VALUE key, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_aref_with(VALUE key, CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_length(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_length(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_length(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_length(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_length(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_length(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_length(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_length(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_length(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_size(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_size(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_size(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_size(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_size(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_size(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_size(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_size(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_size(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_empty_p(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_empty_p(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_empty_p(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_empty_p(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_empty_p(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_empty_p(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_empty_p(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_empty_p(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_empty_p(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_succ(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_succ(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_succ(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_succ(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_succ(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_succ(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_succ(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_succ(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_succ(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_not(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_not(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_not(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_not(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_not(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_not(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_not(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_not(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_not(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_regexpmatch1(VALUE recv))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_regexpmatch1(VALUE recv))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_regexpmatch1(VALUE recv))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_regexpmatch1(VALUE recv))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_regexpmatch1(VALUE recv))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_regexpmatch1(VALUE recv))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_regexpmatch1(VALUE recv))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_regexpmatch1(VALUE recv))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_regexpmatch1(VALUE recv))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_regexpmatch2(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_regexpmatch2(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_regexpmatch2(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_regexpmatch2(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_regexpmatch2(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_regexpmatch2(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_regexpmatch2(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_regexpmatch2(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_regexpmatch2(CALL_INFO ci, CALL_CACHE cc))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_opt_call_c_function(rb_insn_func_t funcptr))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_opt_call_c_function(rb_insn_func_t funcptr))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_opt_call_c_function(rb_insn_func_t funcptr))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_opt_call_c_function(rb_insn_func_t funcptr))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_opt_call_c_function(rb_insn_func_t funcptr))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_opt_call_c_function(rb_insn_func_t funcptr))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_opt_call_c_function(rb_insn_func_t funcptr))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_opt_call_c_function(rb_insn_func_t funcptr))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_opt_call_c_function(rb_insn_func_t funcptr))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_bitblt(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_bitblt(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_bitblt(void))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_bitblt(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_bitblt(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_bitblt(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_bitblt(void))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_bitblt(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_bitblt(void))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_answer(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_answer(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_answer(void))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_answer(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_answer(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_answer(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_answer(void))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_answer(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_answer(void))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_getlocal_WC_0(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_getlocal_WC_0(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_getlocal_WC_0(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_getlocal_WC_0(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_getlocal_WC_0(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_getlocal_WC_0(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_getlocal_WC_0(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_getlocal_WC_0(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_getlocal_WC_0(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_getlocal_WC_1(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_getlocal_WC_1(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_getlocal_WC_1(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_getlocal_WC_1(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_getlocal_WC_1(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_getlocal_WC_1(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_getlocal_WC_1(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_getlocal_WC_1(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_getlocal_WC_1(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_setlocal_WC_0(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_setlocal_WC_0(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_setlocal_WC_0(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_setlocal_WC_0(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_setlocal_WC_0(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_setlocal_WC_0(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_setlocal_WC_0(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_setlocal_WC_0(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_setlocal_WC_0(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_setlocal_WC_1(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_setlocal_WC_1(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_setlocal_WC_1(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_setlocal_WC_1(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_setlocal_WC_1(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_setlocal_WC_1(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_setlocal_WC_1(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_setlocal_WC_1(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_setlocal_WC_1(lindex_t idx))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_putobject_INT2FIX_0_(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_putobject_INT2FIX_0_(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_putobject_INT2FIX_0_(void))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_putobject_INT2FIX_0_(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_putobject_INT2FIX_0_(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_putobject_INT2FIX_0_(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_putobject_INT2FIX_0_(void))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_putobject_INT2FIX_0_(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_putobject_INT2FIX_0_(void))); +PUREFUNC(MAYBE_UNUSED(static enum ruby_vminsn_type attr_bin_putobject_INT2FIX_1_(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_handles_sp_putobject_INT2FIX_1_(void))); +PUREFUNC(MAYBE_UNUSED(static bool attr_leaf_putobject_INT2FIX_1_(void))); +PUREFUNC(MAYBE_UNUSED(static const char* attr_name_putobject_INT2FIX_1_(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_open_putobject_INT2FIX_1_(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_popn_putobject_INT2FIX_1_(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_retn_putobject_INT2FIX_1_(void))); +PUREFUNC(MAYBE_UNUSED(static rb_snum_t attr_sp_inc_putobject_INT2FIX_1_(void))); +PUREFUNC(MAYBE_UNUSED(static rb_num_t attr_width_putobject_INT2FIX_1_(void))); + +/* attr enum ruby_vminsn_type bin @ nop()()() */ +enum ruby_vminsn_type +attr_bin_nop(void) +{ + return BIN(nop); +} + +/* attr bool handles_sp @ nop()()() */ +bool +attr_handles_sp_nop(void) +{ + return false; +} + +/* attr bool leaf @ nop()()() */ +bool +attr_leaf_nop(void) +{ + return true; +} + +/* attr const char* name @ nop()()() */ +const char* +attr_name_nop(void) +{ + return insn_name(BIN(nop)); +} + +/* attr rb_num_t open @ nop()()() */ +rb_num_t +attr_open_nop(void) +{ + return 0; +} + +/* attr rb_num_t popn @ nop()()() */ +rb_num_t +attr_popn_nop(void) +{ + return 0; +} + +/* attr rb_num_t retn @ nop()()() */ +rb_num_t +attr_retn_nop(void) +{ + return 0; +} + +/* attr rb_snum_t sp_inc @ nop()()() */ +rb_snum_t +attr_sp_inc_nop(void) +{ + return 0; +} + +/* attr rb_num_t width @ nop()()() */ +rb_num_t +attr_width_nop(void) +{ + return 1; +} + +/* attr enum ruby_vminsn_type bin @ getlocal(idx, level)()(val) */ +enum ruby_vminsn_type +attr_bin_getlocal( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return BIN(getlocal); +} + +/* attr bool handles_sp @ getlocal(idx, level)()(val) */ +bool +attr_handles_sp_getlocal( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return false; +} + +/* attr bool leaf @ getlocal(idx, level)()(val) */ +bool +attr_leaf_getlocal( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return true; +} + +/* attr const char* name @ getlocal(idx, level)()(val) */ +const char* +attr_name_getlocal( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return insn_name(BIN(getlocal)); +} + +/* attr rb_num_t open @ getlocal(idx, level)()(val) */ +rb_num_t +attr_open_getlocal( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 2; +} + +/* attr rb_num_t popn @ getlocal(idx, level)()(val) */ +rb_num_t +attr_popn_getlocal( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 0; +} + +/* attr rb_num_t retn @ getlocal(idx, level)()(val) */ +rb_num_t +attr_retn_getlocal( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ getlocal(idx, level)()(val) */ +rb_snum_t +attr_sp_inc_getlocal( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 1; +} + +/* attr rb_num_t width @ getlocal(idx, level)()(val) */ +rb_num_t +attr_width_getlocal( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ setlocal(idx, level)(val)() */ +enum ruby_vminsn_type +attr_bin_setlocal( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return BIN(setlocal); +} + +/* attr bool handles_sp @ setlocal(idx, level)(val)() */ +bool +attr_handles_sp_setlocal( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return false; +} + +/* attr bool leaf @ setlocal(idx, level)(val)() */ +bool +attr_leaf_setlocal( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return true; +} + +/* attr const char* name @ setlocal(idx, level)(val)() */ +const char* +attr_name_setlocal( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return insn_name(BIN(setlocal)); +} + +/* attr rb_num_t open @ setlocal(idx, level)(val)() */ +rb_num_t +attr_open_setlocal( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 2; +} + +/* attr rb_num_t popn @ setlocal(idx, level)(val)() */ +rb_num_t +attr_popn_setlocal( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 1; +} + +/* attr rb_num_t retn @ setlocal(idx, level)(val)() */ +rb_num_t +attr_retn_setlocal( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 0; +} + +/* attr rb_snum_t sp_inc @ setlocal(idx, level)(val)() */ +rb_snum_t +attr_sp_inc_setlocal( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return -1; +} + +/* attr rb_num_t width @ setlocal(idx, level)(val)() */ +rb_num_t +attr_width_setlocal( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ getblockparam(idx, level)()(val) */ +enum ruby_vminsn_type +attr_bin_getblockparam( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return BIN(getblockparam); +} + +/* attr bool handles_sp @ getblockparam(idx, level)()(val) */ +bool +attr_handles_sp_getblockparam( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return false; +} + +/* attr bool leaf @ getblockparam(idx, level)()(val) */ +bool +attr_leaf_getblockparam( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return true; +} + +/* attr const char* name @ getblockparam(idx, level)()(val) */ +const char* +attr_name_getblockparam( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return insn_name(BIN(getblockparam)); +} + +/* attr rb_num_t open @ getblockparam(idx, level)()(val) */ +rb_num_t +attr_open_getblockparam( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 2; +} + +/* attr rb_num_t popn @ getblockparam(idx, level)()(val) */ +rb_num_t +attr_popn_getblockparam( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 0; +} + +/* attr rb_num_t retn @ getblockparam(idx, level)()(val) */ +rb_num_t +attr_retn_getblockparam( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ getblockparam(idx, level)()(val) */ +rb_snum_t +attr_sp_inc_getblockparam( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 1; +} + +/* attr rb_num_t width @ getblockparam(idx, level)()(val) */ +rb_num_t +attr_width_getblockparam( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ setblockparam(idx, level)(val)() */ +enum ruby_vminsn_type +attr_bin_setblockparam( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return BIN(setblockparam); +} + +/* attr bool handles_sp @ setblockparam(idx, level)(val)() */ +bool +attr_handles_sp_setblockparam( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return false; +} + +/* attr bool leaf @ setblockparam(idx, level)(val)() */ +bool +attr_leaf_setblockparam( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return true; +} + +/* attr const char* name @ setblockparam(idx, level)(val)() */ +const char* +attr_name_setblockparam( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return insn_name(BIN(setblockparam)); +} + +/* attr rb_num_t open @ setblockparam(idx, level)(val)() */ +rb_num_t +attr_open_setblockparam( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 2; +} + +/* attr rb_num_t popn @ setblockparam(idx, level)(val)() */ +rb_num_t +attr_popn_setblockparam( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 1; +} + +/* attr rb_num_t retn @ setblockparam(idx, level)(val)() */ +rb_num_t +attr_retn_setblockparam( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 0; +} + +/* attr rb_snum_t sp_inc @ setblockparam(idx, level)(val)() */ +rb_snum_t +attr_sp_inc_setblockparam( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return -1; +} + +/* attr rb_num_t width @ setblockparam(idx, level)(val)() */ +rb_num_t +attr_width_setblockparam( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ getblockparamproxy(idx, level)()(val) */ +enum ruby_vminsn_type +attr_bin_getblockparamproxy( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return BIN(getblockparamproxy); +} + +/* attr bool handles_sp @ getblockparamproxy(idx, level)()(val) */ +bool +attr_handles_sp_getblockparamproxy( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return false; +} + +/* attr bool leaf @ getblockparamproxy(idx, level)()(val) */ +bool +attr_leaf_getblockparamproxy( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return true; +} + +/* attr const char* name @ getblockparamproxy(idx, level)()(val) */ +const char* +attr_name_getblockparamproxy( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return insn_name(BIN(getblockparamproxy)); +} + +/* attr rb_num_t open @ getblockparamproxy(idx, level)()(val) */ +rb_num_t +attr_open_getblockparamproxy( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 2; +} + +/* attr rb_num_t popn @ getblockparamproxy(idx, level)()(val) */ +rb_num_t +attr_popn_getblockparamproxy( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 0; +} + +/* attr rb_num_t retn @ getblockparamproxy(idx, level)()(val) */ +rb_num_t +attr_retn_getblockparamproxy( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ getblockparamproxy(idx, level)()(val) */ +rb_snum_t +attr_sp_inc_getblockparamproxy( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 1; +} + +/* attr rb_num_t width @ getblockparamproxy(idx, level)()(val) */ +rb_num_t +attr_width_getblockparamproxy( + MAYBE_UNUSED(lindex_t idx), + MAYBE_UNUSED(rb_num_t level) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ getspecial(key, type)()(val) */ +enum ruby_vminsn_type +attr_bin_getspecial( + MAYBE_UNUSED(rb_num_t key), + MAYBE_UNUSED(rb_num_t type) +) +{ + return BIN(getspecial); +} + +/* attr bool handles_sp @ getspecial(key, type)()(val) */ +bool +attr_handles_sp_getspecial( + MAYBE_UNUSED(rb_num_t key), + MAYBE_UNUSED(rb_num_t type) +) +{ + return false; +} + +/* attr bool leaf @ getspecial(key, type)()(val) */ +bool +attr_leaf_getspecial( + MAYBE_UNUSED(rb_num_t key), + MAYBE_UNUSED(rb_num_t type) +) +{ + return true; +} + +/* attr const char* name @ getspecial(key, type)()(val) */ +const char* +attr_name_getspecial( + MAYBE_UNUSED(rb_num_t key), + MAYBE_UNUSED(rb_num_t type) +) +{ + return insn_name(BIN(getspecial)); +} + +/* attr rb_num_t open @ getspecial(key, type)()(val) */ +rb_num_t +attr_open_getspecial( + MAYBE_UNUSED(rb_num_t key), + MAYBE_UNUSED(rb_num_t type) +) +{ + return 2; +} + +/* attr rb_num_t popn @ getspecial(key, type)()(val) */ +rb_num_t +attr_popn_getspecial( + MAYBE_UNUSED(rb_num_t key), + MAYBE_UNUSED(rb_num_t type) +) +{ + return 0; +} + +/* attr rb_num_t retn @ getspecial(key, type)()(val) */ +rb_num_t +attr_retn_getspecial( + MAYBE_UNUSED(rb_num_t key), + MAYBE_UNUSED(rb_num_t type) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ getspecial(key, type)()(val) */ +rb_snum_t +attr_sp_inc_getspecial( + MAYBE_UNUSED(rb_num_t key), + MAYBE_UNUSED(rb_num_t type) +) +{ + return 1; +} + +/* attr rb_num_t width @ getspecial(key, type)()(val) */ +rb_num_t +attr_width_getspecial( + MAYBE_UNUSED(rb_num_t key), + MAYBE_UNUSED(rb_num_t type) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ setspecial(key)(obj)() */ +enum ruby_vminsn_type +attr_bin_setspecial(MAYBE_UNUSED(rb_num_t key)) +{ + return BIN(setspecial); +} + +/* attr bool handles_sp @ setspecial(key)(obj)() */ +bool +attr_handles_sp_setspecial(MAYBE_UNUSED(rb_num_t key)) +{ + return false; +} + +/* attr bool leaf @ setspecial(key)(obj)() */ +bool +attr_leaf_setspecial(MAYBE_UNUSED(rb_num_t key)) +{ + return true; +} + +/* attr const char* name @ setspecial(key)(obj)() */ +const char* +attr_name_setspecial(MAYBE_UNUSED(rb_num_t key)) +{ + return insn_name(BIN(setspecial)); +} + +/* attr rb_num_t open @ setspecial(key)(obj)() */ +rb_num_t +attr_open_setspecial(MAYBE_UNUSED(rb_num_t key)) +{ + return 1; +} + +/* attr rb_num_t popn @ setspecial(key)(obj)() */ +rb_num_t +attr_popn_setspecial(MAYBE_UNUSED(rb_num_t key)) +{ + return 1; +} + +/* attr rb_num_t retn @ setspecial(key)(obj)() */ +rb_num_t +attr_retn_setspecial(MAYBE_UNUSED(rb_num_t key)) +{ + return 0; +} + +/* attr rb_snum_t sp_inc @ setspecial(key)(obj)() */ +rb_snum_t +attr_sp_inc_setspecial(MAYBE_UNUSED(rb_num_t key)) +{ + return -1; +} + +/* attr rb_num_t width @ setspecial(key)(obj)() */ +rb_num_t +attr_width_setspecial(MAYBE_UNUSED(rb_num_t key)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ getinstancevariable(id, ic)()(val) */ +enum ruby_vminsn_type +attr_bin_getinstancevariable( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(IC ic) +) +{ + return BIN(getinstancevariable); +} + +/* attr bool handles_sp @ getinstancevariable(id, ic)()(val) */ +bool +attr_handles_sp_getinstancevariable( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(IC ic) +) +{ + return false; +} + +/* attr bool leaf @ getinstancevariable(id, ic)()(val) */ +bool +attr_leaf_getinstancevariable( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(IC ic) +) +{ + return +#line 212 "insns.def" +false; +#line 2150 "insns_info.inc" +} + +/* attr const char* name @ getinstancevariable(id, ic)()(val) */ +const char* +attr_name_getinstancevariable( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(IC ic) +) +{ + return insn_name(BIN(getinstancevariable)); +} + +/* attr rb_num_t open @ getinstancevariable(id, ic)()(val) */ +rb_num_t +attr_open_getinstancevariable( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(IC ic) +) +{ + return 2; +} + +/* attr rb_num_t popn @ getinstancevariable(id, ic)()(val) */ +rb_num_t +attr_popn_getinstancevariable( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(IC ic) +) +{ + return 0; +} + +/* attr rb_num_t retn @ getinstancevariable(id, ic)()(val) */ +rb_num_t +attr_retn_getinstancevariable( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(IC ic) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ getinstancevariable(id, ic)()(val) */ +rb_snum_t +attr_sp_inc_getinstancevariable( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(IC ic) +) +{ + return 1; +} + +/* attr rb_num_t width @ getinstancevariable(id, ic)()(val) */ +rb_num_t +attr_width_getinstancevariable( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(IC ic) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ setinstancevariable(id, ic)(val)() */ +enum ruby_vminsn_type +attr_bin_setinstancevariable( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(IC ic) +) +{ + return BIN(setinstancevariable); +} + +/* attr bool handles_sp @ setinstancevariable(id, ic)(val)() */ +bool +attr_handles_sp_setinstancevariable( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(IC ic) +) +{ + return false; +} + +/* attr bool leaf @ setinstancevariable(id, ic)(val)() */ +bool +attr_leaf_setinstancevariable( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(IC ic) +) +{ + return true; +} + +/* attr const char* name @ setinstancevariable(id, ic)(val)() */ +const char* +attr_name_setinstancevariable( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(IC ic) +) +{ + return insn_name(BIN(setinstancevariable)); +} + +/* attr rb_num_t open @ setinstancevariable(id, ic)(val)() */ +rb_num_t +attr_open_setinstancevariable( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(IC ic) +) +{ + return 2; +} + +/* attr rb_num_t popn @ setinstancevariable(id, ic)(val)() */ +rb_num_t +attr_popn_setinstancevariable( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(IC ic) +) +{ + return 1; +} + +/* attr rb_num_t retn @ setinstancevariable(id, ic)(val)() */ +rb_num_t +attr_retn_setinstancevariable( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(IC ic) +) +{ + return 0; +} + +/* attr rb_snum_t sp_inc @ setinstancevariable(id, ic)(val)() */ +rb_snum_t +attr_sp_inc_setinstancevariable( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(IC ic) +) +{ + return -1; +} + +/* attr rb_num_t width @ setinstancevariable(id, ic)(val)() */ +rb_num_t +attr_width_setinstancevariable( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(IC ic) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ getclassvariable(id)()(val) */ +enum ruby_vminsn_type +attr_bin_getclassvariable(MAYBE_UNUSED(ID id)) +{ + return BIN(getclassvariable); +} + +/* attr bool handles_sp @ getclassvariable(id)()(val) */ +bool +attr_handles_sp_getclassvariable(MAYBE_UNUSED(ID id)) +{ + return false; +} + +/* attr bool leaf @ getclassvariable(id)()(val) */ +bool +attr_leaf_getclassvariable(MAYBE_UNUSED(ID id)) +{ + return +#line 234 "insns.def" +false; +#line 2324 "insns_info.inc" +} + +/* attr const char* name @ getclassvariable(id)()(val) */ +const char* +attr_name_getclassvariable(MAYBE_UNUSED(ID id)) +{ + return insn_name(BIN(getclassvariable)); +} + +/* attr rb_num_t open @ getclassvariable(id)()(val) */ +rb_num_t +attr_open_getclassvariable(MAYBE_UNUSED(ID id)) +{ + return 1; +} + +/* attr rb_num_t popn @ getclassvariable(id)()(val) */ +rb_num_t +attr_popn_getclassvariable(MAYBE_UNUSED(ID id)) +{ + return 0; +} + +/* attr rb_num_t retn @ getclassvariable(id)()(val) */ +rb_num_t +attr_retn_getclassvariable(MAYBE_UNUSED(ID id)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ getclassvariable(id)()(val) */ +rb_snum_t +attr_sp_inc_getclassvariable(MAYBE_UNUSED(ID id)) +{ + return 1; +} + +/* attr rb_num_t width @ getclassvariable(id)()(val) */ +rb_num_t +attr_width_getclassvariable(MAYBE_UNUSED(ID id)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ setclassvariable(id)(val)() */ +enum ruby_vminsn_type +attr_bin_setclassvariable(MAYBE_UNUSED(ID id)) +{ + return BIN(setclassvariable); +} + +/* attr bool handles_sp @ setclassvariable(id)(val)() */ +bool +attr_handles_sp_setclassvariable(MAYBE_UNUSED(ID id)) +{ + return false; +} + +/* attr bool leaf @ setclassvariable(id)(val)() */ +bool +attr_leaf_setclassvariable(MAYBE_UNUSED(ID id)) +{ + return +#line 246 "insns.def" +false; +#line 2390 "insns_info.inc" +} + +/* attr const char* name @ setclassvariable(id)(val)() */ +const char* +attr_name_setclassvariable(MAYBE_UNUSED(ID id)) +{ + return insn_name(BIN(setclassvariable)); +} + +/* attr rb_num_t open @ setclassvariable(id)(val)() */ +rb_num_t +attr_open_setclassvariable(MAYBE_UNUSED(ID id)) +{ + return 1; +} + +/* attr rb_num_t popn @ setclassvariable(id)(val)() */ +rb_num_t +attr_popn_setclassvariable(MAYBE_UNUSED(ID id)) +{ + return 1; +} + +/* attr rb_num_t retn @ setclassvariable(id)(val)() */ +rb_num_t +attr_retn_setclassvariable(MAYBE_UNUSED(ID id)) +{ + return 0; +} + +/* attr rb_snum_t sp_inc @ setclassvariable(id)(val)() */ +rb_snum_t +attr_sp_inc_setclassvariable(MAYBE_UNUSED(ID id)) +{ + return -1; +} + +/* attr rb_num_t width @ setclassvariable(id)(val)() */ +rb_num_t +attr_width_setclassvariable(MAYBE_UNUSED(ID id)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ getconstant(id)(klass)(val) */ +enum ruby_vminsn_type +attr_bin_getconstant(MAYBE_UNUSED(ID id)) +{ + return BIN(getconstant); +} + +/* attr bool handles_sp @ getconstant(id)(klass)(val) */ +bool +attr_handles_sp_getconstant(MAYBE_UNUSED(ID id)) +{ + return false; +} + +/* attr bool leaf @ getconstant(id)(klass)(val) */ +bool +attr_leaf_getconstant(MAYBE_UNUSED(ID id)) +{ + return +#line 262 "insns.def" +false; +#line 2456 "insns_info.inc" +} + +/* attr const char* name @ getconstant(id)(klass)(val) */ +const char* +attr_name_getconstant(MAYBE_UNUSED(ID id)) +{ + return insn_name(BIN(getconstant)); +} + +/* attr rb_num_t open @ getconstant(id)(klass)(val) */ +rb_num_t +attr_open_getconstant(MAYBE_UNUSED(ID id)) +{ + return 1; +} + +/* attr rb_num_t popn @ getconstant(id)(klass)(val) */ +rb_num_t +attr_popn_getconstant(MAYBE_UNUSED(ID id)) +{ + return 1; +} + +/* attr rb_num_t retn @ getconstant(id)(klass)(val) */ +rb_num_t +attr_retn_getconstant(MAYBE_UNUSED(ID id)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ getconstant(id)(klass)(val) */ +rb_snum_t +attr_sp_inc_getconstant(MAYBE_UNUSED(ID id)) +{ + return 0; +} + +/* attr rb_num_t width @ getconstant(id)(klass)(val) */ +rb_num_t +attr_width_getconstant(MAYBE_UNUSED(ID id)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ setconstant(id)(val, cbase)() */ +enum ruby_vminsn_type +attr_bin_setconstant(MAYBE_UNUSED(ID id)) +{ + return BIN(setconstant); +} + +/* attr bool handles_sp @ setconstant(id)(val, cbase)() */ +bool +attr_handles_sp_setconstant(MAYBE_UNUSED(ID id)) +{ + return false; +} + +/* attr bool leaf @ setconstant(id)(val, cbase)() */ +bool +attr_leaf_setconstant(MAYBE_UNUSED(ID id)) +{ + return +#line 278 "insns.def" +false; +#line 2522 "insns_info.inc" +} + +/* attr const char* name @ setconstant(id)(val, cbase)() */ +const char* +attr_name_setconstant(MAYBE_UNUSED(ID id)) +{ + return insn_name(BIN(setconstant)); +} + +/* attr rb_num_t open @ setconstant(id)(val, cbase)() */ +rb_num_t +attr_open_setconstant(MAYBE_UNUSED(ID id)) +{ + return 1; +} + +/* attr rb_num_t popn @ setconstant(id)(val, cbase)() */ +rb_num_t +attr_popn_setconstant(MAYBE_UNUSED(ID id)) +{ + return 2; +} + +/* attr rb_num_t retn @ setconstant(id)(val, cbase)() */ +rb_num_t +attr_retn_setconstant(MAYBE_UNUSED(ID id)) +{ + return 0; +} + +/* attr rb_snum_t sp_inc @ setconstant(id)(val, cbase)() */ +rb_snum_t +attr_sp_inc_setconstant(MAYBE_UNUSED(ID id)) +{ + return -2; +} + +/* attr rb_num_t width @ setconstant(id)(val, cbase)() */ +rb_num_t +attr_width_setconstant(MAYBE_UNUSED(ID id)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ getglobal(entry)()(val) */ +enum ruby_vminsn_type +attr_bin_getglobal(MAYBE_UNUSED(GENTRY entry)) +{ + return BIN(getglobal); +} + +/* attr bool handles_sp @ getglobal(entry)()(val) */ +bool +attr_handles_sp_getglobal(MAYBE_UNUSED(GENTRY entry)) +{ + return false; +} + +/* attr bool leaf @ getglobal(entry)()(val) */ +bool +attr_leaf_getglobal(MAYBE_UNUSED(GENTRY entry)) +{ + return +#line 291 "insns.def" +leafness_of_getglobal(entry); +#line 2588 "insns_info.inc" +} + +/* attr const char* name @ getglobal(entry)()(val) */ +const char* +attr_name_getglobal(MAYBE_UNUSED(GENTRY entry)) +{ + return insn_name(BIN(getglobal)); +} + +/* attr rb_num_t open @ getglobal(entry)()(val) */ +rb_num_t +attr_open_getglobal(MAYBE_UNUSED(GENTRY entry)) +{ + return 1; +} + +/* attr rb_num_t popn @ getglobal(entry)()(val) */ +rb_num_t +attr_popn_getglobal(MAYBE_UNUSED(GENTRY entry)) +{ + return 0; +} + +/* attr rb_num_t retn @ getglobal(entry)()(val) */ +rb_num_t +attr_retn_getglobal(MAYBE_UNUSED(GENTRY entry)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ getglobal(entry)()(val) */ +rb_snum_t +attr_sp_inc_getglobal(MAYBE_UNUSED(GENTRY entry)) +{ + return 1; +} + +/* attr rb_num_t width @ getglobal(entry)()(val) */ +rb_num_t +attr_width_getglobal(MAYBE_UNUSED(GENTRY entry)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ setglobal(entry)(val)() */ +enum ruby_vminsn_type +attr_bin_setglobal(MAYBE_UNUSED(GENTRY entry)) +{ + return BIN(setglobal); +} + +/* attr bool handles_sp @ setglobal(entry)(val)() */ +bool +attr_handles_sp_setglobal(MAYBE_UNUSED(GENTRY entry)) +{ + return false; +} + +/* attr bool leaf @ setglobal(entry)(val)() */ +bool +attr_leaf_setglobal(MAYBE_UNUSED(GENTRY entry)) +{ + return +#line 302 "insns.def" +leafness_of_setglobal(entry); +#line 2654 "insns_info.inc" +} + +/* attr const char* name @ setglobal(entry)(val)() */ +const char* +attr_name_setglobal(MAYBE_UNUSED(GENTRY entry)) +{ + return insn_name(BIN(setglobal)); +} + +/* attr rb_num_t open @ setglobal(entry)(val)() */ +rb_num_t +attr_open_setglobal(MAYBE_UNUSED(GENTRY entry)) +{ + return 1; +} + +/* attr rb_num_t popn @ setglobal(entry)(val)() */ +rb_num_t +attr_popn_setglobal(MAYBE_UNUSED(GENTRY entry)) +{ + return 1; +} + +/* attr rb_num_t retn @ setglobal(entry)(val)() */ +rb_num_t +attr_retn_setglobal(MAYBE_UNUSED(GENTRY entry)) +{ + return 0; +} + +/* attr rb_snum_t sp_inc @ setglobal(entry)(val)() */ +rb_snum_t +attr_sp_inc_setglobal(MAYBE_UNUSED(GENTRY entry)) +{ + return -1; +} + +/* attr rb_num_t width @ setglobal(entry)(val)() */ +rb_num_t +attr_width_setglobal(MAYBE_UNUSED(GENTRY entry)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ putnil()()(val) */ +enum ruby_vminsn_type +attr_bin_putnil(void) +{ + return BIN(putnil); +} + +/* attr bool handles_sp @ putnil()()(val) */ +bool +attr_handles_sp_putnil(void) +{ + return false; +} + +/* attr bool leaf @ putnil()()(val) */ +bool +attr_leaf_putnil(void) +{ + return true; +} + +/* attr const char* name @ putnil()()(val) */ +const char* +attr_name_putnil(void) +{ + return insn_name(BIN(putnil)); +} + +/* attr rb_num_t open @ putnil()()(val) */ +rb_num_t +attr_open_putnil(void) +{ + return 0; +} + +/* attr rb_num_t popn @ putnil()()(val) */ +rb_num_t +attr_popn_putnil(void) +{ + return 0; +} + +/* attr rb_num_t retn @ putnil()()(val) */ +rb_num_t +attr_retn_putnil(void) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ putnil()()(val) */ +rb_snum_t +attr_sp_inc_putnil(void) +{ + return 1; +} + +/* attr rb_num_t width @ putnil()()(val) */ +rb_num_t +attr_width_putnil(void) +{ + return 1; +} + +/* attr enum ruby_vminsn_type bin @ putself()()(val) */ +enum ruby_vminsn_type +attr_bin_putself(void) +{ + return BIN(putself); +} + +/* attr bool handles_sp @ putself()()(val) */ +bool +attr_handles_sp_putself(void) +{ + return false; +} + +/* attr bool leaf @ putself()()(val) */ +bool +attr_leaf_putself(void) +{ + return true; +} + +/* attr const char* name @ putself()()(val) */ +const char* +attr_name_putself(void) +{ + return insn_name(BIN(putself)); +} + +/* attr rb_num_t open @ putself()()(val) */ +rb_num_t +attr_open_putself(void) +{ + return 0; +} + +/* attr rb_num_t popn @ putself()()(val) */ +rb_num_t +attr_popn_putself(void) +{ + return 0; +} + +/* attr rb_num_t retn @ putself()()(val) */ +rb_num_t +attr_retn_putself(void) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ putself()()(val) */ +rb_snum_t +attr_sp_inc_putself(void) +{ + return 1; +} + +/* attr rb_num_t width @ putself()()(val) */ +rb_num_t +attr_width_putself(void) +{ + return 1; +} + +/* attr enum ruby_vminsn_type bin @ putobject(val)()(val) */ +enum ruby_vminsn_type +attr_bin_putobject(MAYBE_UNUSED(VALUE val)) +{ + return BIN(putobject); +} + +/* attr bool handles_sp @ putobject(val)()(val) */ +bool +attr_handles_sp_putobject(MAYBE_UNUSED(VALUE val)) +{ + return false; +} + +/* attr bool leaf @ putobject(val)()(val) */ +bool +attr_leaf_putobject(MAYBE_UNUSED(VALUE val)) +{ + return true; +} + +/* attr const char* name @ putobject(val)()(val) */ +const char* +attr_name_putobject(MAYBE_UNUSED(VALUE val)) +{ + return insn_name(BIN(putobject)); +} + +/* attr rb_num_t open @ putobject(val)()(val) */ +rb_num_t +attr_open_putobject(MAYBE_UNUSED(VALUE val)) +{ + return 1; +} + +/* attr rb_num_t popn @ putobject(val)()(val) */ +rb_num_t +attr_popn_putobject(MAYBE_UNUSED(VALUE val)) +{ + return 0; +} + +/* attr rb_num_t retn @ putobject(val)()(val) */ +rb_num_t +attr_retn_putobject(MAYBE_UNUSED(VALUE val)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ putobject(val)()(val) */ +rb_snum_t +attr_sp_inc_putobject(MAYBE_UNUSED(VALUE val)) +{ + return 1; +} + +/* attr rb_num_t width @ putobject(val)()(val) */ +rb_num_t +attr_width_putobject(MAYBE_UNUSED(VALUE val)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ putspecialobject(value_type)()(val) */ +enum ruby_vminsn_type +attr_bin_putspecialobject(MAYBE_UNUSED(rb_num_t value_type)) +{ + return BIN(putspecialobject); +} + +/* attr bool handles_sp @ putspecialobject(value_type)()(val) */ +bool +attr_handles_sp_putspecialobject(MAYBE_UNUSED(rb_num_t value_type)) +{ + return false; +} + +/* attr bool leaf @ putspecialobject(value_type)()(val) */ +bool +attr_leaf_putspecialobject(MAYBE_UNUSED(rb_num_t value_type)) +{ + return true; +} + +/* attr const char* name @ putspecialobject(value_type)()(val) */ +const char* +attr_name_putspecialobject(MAYBE_UNUSED(rb_num_t value_type)) +{ + return insn_name(BIN(putspecialobject)); +} + +/* attr rb_num_t open @ putspecialobject(value_type)()(val) */ +rb_num_t +attr_open_putspecialobject(MAYBE_UNUSED(rb_num_t value_type)) +{ + return 1; +} + +/* attr rb_num_t popn @ putspecialobject(value_type)()(val) */ +rb_num_t +attr_popn_putspecialobject(MAYBE_UNUSED(rb_num_t value_type)) +{ + return 0; +} + +/* attr rb_num_t retn @ putspecialobject(value_type)()(val) */ +rb_num_t +attr_retn_putspecialobject(MAYBE_UNUSED(rb_num_t value_type)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ putspecialobject(value_type)()(val) */ +rb_snum_t +attr_sp_inc_putspecialobject(MAYBE_UNUSED(rb_num_t value_type)) +{ + return 1; +} + +/* attr rb_num_t width @ putspecialobject(value_type)()(val) */ +rb_num_t +attr_width_putspecialobject(MAYBE_UNUSED(rb_num_t value_type)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ putiseq(iseq)()(ret) */ +enum ruby_vminsn_type +attr_bin_putiseq(MAYBE_UNUSED(ISEQ iseq)) +{ + return BIN(putiseq); +} + +/* attr bool handles_sp @ putiseq(iseq)()(ret) */ +bool +attr_handles_sp_putiseq(MAYBE_UNUSED(ISEQ iseq)) +{ + return +#line 362 "insns.def" +false; +#line 2965 "insns_info.inc" +} + +/* attr bool leaf @ putiseq(iseq)()(ret) */ +bool +attr_leaf_putiseq(MAYBE_UNUSED(ISEQ iseq)) +{ + return true; +} + +/* attr const char* name @ putiseq(iseq)()(ret) */ +const char* +attr_name_putiseq(MAYBE_UNUSED(ISEQ iseq)) +{ + return insn_name(BIN(putiseq)); +} + +/* attr rb_num_t open @ putiseq(iseq)()(ret) */ +rb_num_t +attr_open_putiseq(MAYBE_UNUSED(ISEQ iseq)) +{ + return 1; +} + +/* attr rb_num_t popn @ putiseq(iseq)()(ret) */ +rb_num_t +attr_popn_putiseq(MAYBE_UNUSED(ISEQ iseq)) +{ + return 0; +} + +/* attr rb_num_t retn @ putiseq(iseq)()(ret) */ +rb_num_t +attr_retn_putiseq(MAYBE_UNUSED(ISEQ iseq)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ putiseq(iseq)()(ret) */ +rb_snum_t +attr_sp_inc_putiseq(MAYBE_UNUSED(ISEQ iseq)) +{ + return 1; +} + +/* attr rb_num_t width @ putiseq(iseq)()(ret) */ +rb_num_t +attr_width_putiseq(MAYBE_UNUSED(ISEQ iseq)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ putstring(str)()(val) */ +enum ruby_vminsn_type +attr_bin_putstring(MAYBE_UNUSED(VALUE str)) +{ + return BIN(putstring); +} + +/* attr bool handles_sp @ putstring(str)()(val) */ +bool +attr_handles_sp_putstring(MAYBE_UNUSED(VALUE str)) +{ + return false; +} + +/* attr bool leaf @ putstring(str)()(val) */ +bool +attr_leaf_putstring(MAYBE_UNUSED(VALUE str)) +{ + return true; +} + +/* attr const char* name @ putstring(str)()(val) */ +const char* +attr_name_putstring(MAYBE_UNUSED(VALUE str)) +{ + return insn_name(BIN(putstring)); +} + +/* attr rb_num_t open @ putstring(str)()(val) */ +rb_num_t +attr_open_putstring(MAYBE_UNUSED(VALUE str)) +{ + return 1; +} + +/* attr rb_num_t popn @ putstring(str)()(val) */ +rb_num_t +attr_popn_putstring(MAYBE_UNUSED(VALUE str)) +{ + return 0; +} + +/* attr rb_num_t retn @ putstring(str)()(val) */ +rb_num_t +attr_retn_putstring(MAYBE_UNUSED(VALUE str)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ putstring(str)()(val) */ +rb_snum_t +attr_sp_inc_putstring(MAYBE_UNUSED(VALUE str)) +{ + return 1; +} + +/* attr rb_num_t width @ putstring(str)()(val) */ +rb_num_t +attr_width_putstring(MAYBE_UNUSED(VALUE str)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ concatstrings(num)(...)(val) */ +enum ruby_vminsn_type +attr_bin_concatstrings(MAYBE_UNUSED(rb_num_t num)) +{ + return BIN(concatstrings); +} + +/* attr bool handles_sp @ concatstrings(num)(...)(val) */ +bool +attr_handles_sp_concatstrings(MAYBE_UNUSED(rb_num_t num)) +{ + return false; +} + +/* attr bool leaf @ concatstrings(num)(...)(val) */ +bool +attr_leaf_concatstrings(MAYBE_UNUSED(rb_num_t num)) +{ + return true; +} + +/* attr const char* name @ concatstrings(num)(...)(val) */ +const char* +attr_name_concatstrings(MAYBE_UNUSED(rb_num_t num)) +{ + return insn_name(BIN(concatstrings)); +} + +/* attr rb_num_t open @ concatstrings(num)(...)(val) */ +rb_num_t +attr_open_concatstrings(MAYBE_UNUSED(rb_num_t num)) +{ + return 1; +} + +/* attr rb_num_t popn @ concatstrings(num)(...)(val) */ +rb_num_t +attr_popn_concatstrings(MAYBE_UNUSED(rb_num_t num)) +{ + return 0; +} + +/* attr rb_num_t retn @ concatstrings(num)(...)(val) */ +rb_num_t +attr_retn_concatstrings(MAYBE_UNUSED(rb_num_t num)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ concatstrings(num)(...)(val) */ +rb_snum_t +attr_sp_inc_concatstrings(MAYBE_UNUSED(rb_num_t num)) +{ + return +#line 383 "insns.def" +1 - (rb_snum_t)num; +#line 3136 "insns_info.inc" +} + +/* attr rb_num_t width @ concatstrings(num)(...)(val) */ +rb_num_t +attr_width_concatstrings(MAYBE_UNUSED(rb_num_t num)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ tostring()(val, str)(val) */ +enum ruby_vminsn_type +attr_bin_tostring(void) +{ + return BIN(tostring); +} + +/* attr bool handles_sp @ tostring()(val, str)(val) */ +bool +attr_handles_sp_tostring(void) +{ + return false; +} + +/* attr bool leaf @ tostring()(val, str)(val) */ +bool +attr_leaf_tostring(void) +{ + return true; +} + +/* attr const char* name @ tostring()(val, str)(val) */ +const char* +attr_name_tostring(void) +{ + return insn_name(BIN(tostring)); +} + +/* attr rb_num_t open @ tostring()(val, str)(val) */ +rb_num_t +attr_open_tostring(void) +{ + return 0; +} + +/* attr rb_num_t popn @ tostring()(val, str)(val) */ +rb_num_t +attr_popn_tostring(void) +{ + return 2; +} + +/* attr rb_num_t retn @ tostring()(val, str)(val) */ +rb_num_t +attr_retn_tostring(void) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ tostring()(val, str)(val) */ +rb_snum_t +attr_sp_inc_tostring(void) +{ + return -1; +} + +/* attr rb_num_t width @ tostring()(val, str)(val) */ +rb_num_t +attr_width_tostring(void) +{ + return 1; +} + +/* attr enum ruby_vminsn_type bin @ freezestring(debug_info)(str)(str) */ +enum ruby_vminsn_type +attr_bin_freezestring(MAYBE_UNUSED(VALUE debug_info)) +{ + return BIN(freezestring); +} + +/* attr bool handles_sp @ freezestring(debug_info)(str)(str) */ +bool +attr_handles_sp_freezestring(MAYBE_UNUSED(VALUE debug_info)) +{ + return false; +} + +/* attr bool leaf @ freezestring(debug_info)(str)(str) */ +bool +attr_leaf_freezestring(MAYBE_UNUSED(VALUE debug_info)) +{ + return true; +} + +/* attr const char* name @ freezestring(debug_info)(str)(str) */ +const char* +attr_name_freezestring(MAYBE_UNUSED(VALUE debug_info)) +{ + return insn_name(BIN(freezestring)); +} + +/* attr rb_num_t open @ freezestring(debug_info)(str)(str) */ +rb_num_t +attr_open_freezestring(MAYBE_UNUSED(VALUE debug_info)) +{ + return 1; +} + +/* attr rb_num_t popn @ freezestring(debug_info)(str)(str) */ +rb_num_t +attr_popn_freezestring(MAYBE_UNUSED(VALUE debug_info)) +{ + return 1; +} + +/* attr rb_num_t retn @ freezestring(debug_info)(str)(str) */ +rb_num_t +attr_retn_freezestring(MAYBE_UNUSED(VALUE debug_info)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ freezestring(debug_info)(str)(str) */ +rb_snum_t +attr_sp_inc_freezestring(MAYBE_UNUSED(VALUE debug_info)) +{ + return 0; +} + +/* attr rb_num_t width @ freezestring(debug_info)(str)(str) */ +rb_num_t +attr_width_freezestring(MAYBE_UNUSED(VALUE debug_info)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ toregexp(opt, cnt)(...)(val) */ +enum ruby_vminsn_type +attr_bin_toregexp( + MAYBE_UNUSED(rb_num_t opt), + MAYBE_UNUSED(rb_num_t cnt) +) +{ + return BIN(toregexp); +} + +/* attr bool handles_sp @ toregexp(opt, cnt)(...)(val) */ +bool +attr_handles_sp_toregexp( + MAYBE_UNUSED(rb_num_t opt), + MAYBE_UNUSED(rb_num_t cnt) +) +{ + return false; +} + +/* attr bool leaf @ toregexp(opt, cnt)(...)(val) */ +bool +attr_leaf_toregexp( + MAYBE_UNUSED(rb_num_t opt), + MAYBE_UNUSED(rb_num_t cnt) +) +{ + return +#line 418 "insns.def" +true; +#line 3302 "insns_info.inc" +} + +/* attr const char* name @ toregexp(opt, cnt)(...)(val) */ +const char* +attr_name_toregexp( + MAYBE_UNUSED(rb_num_t opt), + MAYBE_UNUSED(rb_num_t cnt) +) +{ + return insn_name(BIN(toregexp)); +} + +/* attr rb_num_t open @ toregexp(opt, cnt)(...)(val) */ +rb_num_t +attr_open_toregexp( + MAYBE_UNUSED(rb_num_t opt), + MAYBE_UNUSED(rb_num_t cnt) +) +{ + return 2; +} + +/* attr rb_num_t popn @ toregexp(opt, cnt)(...)(val) */ +rb_num_t +attr_popn_toregexp( + MAYBE_UNUSED(rb_num_t opt), + MAYBE_UNUSED(rb_num_t cnt) +) +{ + return 0; +} + +/* attr rb_num_t retn @ toregexp(opt, cnt)(...)(val) */ +rb_num_t +attr_retn_toregexp( + MAYBE_UNUSED(rb_num_t opt), + MAYBE_UNUSED(rb_num_t cnt) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ toregexp(opt, cnt)(...)(val) */ +rb_snum_t +attr_sp_inc_toregexp( + MAYBE_UNUSED(rb_num_t opt), + MAYBE_UNUSED(rb_num_t cnt) +) +{ + return +#line 419 "insns.def" +1 - (rb_snum_t)cnt; +#line 3355 "insns_info.inc" +} + +/* attr rb_num_t width @ toregexp(opt, cnt)(...)(val) */ +rb_num_t +attr_width_toregexp( + MAYBE_UNUSED(rb_num_t opt), + MAYBE_UNUSED(rb_num_t cnt) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ intern()(str)(sym) */ +enum ruby_vminsn_type +attr_bin_intern(void) +{ + return BIN(intern); +} + +/* attr bool handles_sp @ intern()(str)(sym) */ +bool +attr_handles_sp_intern(void) +{ + return false; +} + +/* attr bool leaf @ intern()(str)(sym) */ +bool +attr_leaf_intern(void) +{ + return true; +} + +/* attr const char* name @ intern()(str)(sym) */ +const char* +attr_name_intern(void) +{ + return insn_name(BIN(intern)); +} + +/* attr rb_num_t open @ intern()(str)(sym) */ +rb_num_t +attr_open_intern(void) +{ + return 0; +} + +/* attr rb_num_t popn @ intern()(str)(sym) */ +rb_num_t +attr_popn_intern(void) +{ + return 1; +} + +/* attr rb_num_t retn @ intern()(str)(sym) */ +rb_num_t +attr_retn_intern(void) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ intern()(str)(sym) */ +rb_snum_t +attr_sp_inc_intern(void) +{ + return 0; +} + +/* attr rb_num_t width @ intern()(str)(sym) */ +rb_num_t +attr_width_intern(void) +{ + return 1; +} + +/* attr enum ruby_vminsn_type bin @ newarray(num)(...)(val) */ +enum ruby_vminsn_type +attr_bin_newarray(MAYBE_UNUSED(rb_num_t num)) +{ + return BIN(newarray); +} + +/* attr bool handles_sp @ newarray(num)(...)(val) */ +bool +attr_handles_sp_newarray(MAYBE_UNUSED(rb_num_t num)) +{ + return false; +} + +/* attr bool leaf @ newarray(num)(...)(val) */ +bool +attr_leaf_newarray(MAYBE_UNUSED(rb_num_t num)) +{ + return true; +} + +/* attr const char* name @ newarray(num)(...)(val) */ +const char* +attr_name_newarray(MAYBE_UNUSED(rb_num_t num)) +{ + return insn_name(BIN(newarray)); +} + +/* attr rb_num_t open @ newarray(num)(...)(val) */ +rb_num_t +attr_open_newarray(MAYBE_UNUSED(rb_num_t num)) +{ + return 1; +} + +/* attr rb_num_t popn @ newarray(num)(...)(val) */ +rb_num_t +attr_popn_newarray(MAYBE_UNUSED(rb_num_t num)) +{ + return 0; +} + +/* attr rb_num_t retn @ newarray(num)(...)(val) */ +rb_num_t +attr_retn_newarray(MAYBE_UNUSED(rb_num_t num)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ newarray(num)(...)(val) */ +rb_snum_t +attr_sp_inc_newarray(MAYBE_UNUSED(rb_num_t num)) +{ + return +#line 442 "insns.def" +1 - (rb_snum_t)num; +#line 3487 "insns_info.inc" +} + +/* attr rb_num_t width @ newarray(num)(...)(val) */ +rb_num_t +attr_width_newarray(MAYBE_UNUSED(rb_num_t num)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ duparray(ary)()(val) */ +enum ruby_vminsn_type +attr_bin_duparray(MAYBE_UNUSED(VALUE ary)) +{ + return BIN(duparray); +} + +/* attr bool handles_sp @ duparray(ary)()(val) */ +bool +attr_handles_sp_duparray(MAYBE_UNUSED(VALUE ary)) +{ + return false; +} + +/* attr bool leaf @ duparray(ary)()(val) */ +bool +attr_leaf_duparray(MAYBE_UNUSED(VALUE ary)) +{ + return true; +} + +/* attr const char* name @ duparray(ary)()(val) */ +const char* +attr_name_duparray(MAYBE_UNUSED(VALUE ary)) +{ + return insn_name(BIN(duparray)); +} + +/* attr rb_num_t open @ duparray(ary)()(val) */ +rb_num_t +attr_open_duparray(MAYBE_UNUSED(VALUE ary)) +{ + return 1; +} + +/* attr rb_num_t popn @ duparray(ary)()(val) */ +rb_num_t +attr_popn_duparray(MAYBE_UNUSED(VALUE ary)) +{ + return 0; +} + +/* attr rb_num_t retn @ duparray(ary)()(val) */ +rb_num_t +attr_retn_duparray(MAYBE_UNUSED(VALUE ary)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ duparray(ary)()(val) */ +rb_snum_t +attr_sp_inc_duparray(MAYBE_UNUSED(VALUE ary)) +{ + return 1; +} + +/* attr rb_num_t width @ duparray(ary)()(val) */ +rb_num_t +attr_width_duparray(MAYBE_UNUSED(VALUE ary)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ duphash(hash)()(val) */ +enum ruby_vminsn_type +attr_bin_duphash(MAYBE_UNUSED(VALUE hash)) +{ + return BIN(duphash); +} + +/* attr bool handles_sp @ duphash(hash)()(val) */ +bool +attr_handles_sp_duphash(MAYBE_UNUSED(VALUE hash)) +{ + return false; +} + +/* attr bool leaf @ duphash(hash)()(val) */ +bool +attr_leaf_duphash(MAYBE_UNUSED(VALUE hash)) +{ + return true; +} + +/* attr const char* name @ duphash(hash)()(val) */ +const char* +attr_name_duphash(MAYBE_UNUSED(VALUE hash)) +{ + return insn_name(BIN(duphash)); +} + +/* attr rb_num_t open @ duphash(hash)()(val) */ +rb_num_t +attr_open_duphash(MAYBE_UNUSED(VALUE hash)) +{ + return 1; +} + +/* attr rb_num_t popn @ duphash(hash)()(val) */ +rb_num_t +attr_popn_duphash(MAYBE_UNUSED(VALUE hash)) +{ + return 0; +} + +/* attr rb_num_t retn @ duphash(hash)()(val) */ +rb_num_t +attr_retn_duphash(MAYBE_UNUSED(VALUE hash)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ duphash(hash)()(val) */ +rb_snum_t +attr_sp_inc_duphash(MAYBE_UNUSED(VALUE hash)) +{ + return 1; +} + +/* attr rb_num_t width @ duphash(hash)()(val) */ +rb_num_t +attr_width_duphash(MAYBE_UNUSED(VALUE hash)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ expandarray(num, flag)(..., ary)(...) */ +enum ruby_vminsn_type +attr_bin_expandarray( + MAYBE_UNUSED(rb_num_t num), + MAYBE_UNUSED(rb_num_t flag) +) +{ + return BIN(expandarray); +} + +/* attr bool handles_sp @ expandarray(num, flag)(..., ary)(...) */ +bool +attr_handles_sp_expandarray( + MAYBE_UNUSED(rb_num_t num), + MAYBE_UNUSED(rb_num_t flag) +) +{ + return false; +} + +/* attr bool leaf @ expandarray(num, flag)(..., ary)(...) */ +bool +attr_leaf_expandarray( + MAYBE_UNUSED(rb_num_t num), + MAYBE_UNUSED(rb_num_t flag) +) +{ + return +#line 483 "insns.def" +false; +#line 3653 "insns_info.inc" +} + +/* attr const char* name @ expandarray(num, flag)(..., ary)(...) */ +const char* +attr_name_expandarray( + MAYBE_UNUSED(rb_num_t num), + MAYBE_UNUSED(rb_num_t flag) +) +{ + return insn_name(BIN(expandarray)); +} + +/* attr rb_num_t open @ expandarray(num, flag)(..., ary)(...) */ +rb_num_t +attr_open_expandarray( + MAYBE_UNUSED(rb_num_t num), + MAYBE_UNUSED(rb_num_t flag) +) +{ + return 2; +} + +/* attr rb_num_t popn @ expandarray(num, flag)(..., ary)(...) */ +rb_num_t +attr_popn_expandarray( + MAYBE_UNUSED(rb_num_t num), + MAYBE_UNUSED(rb_num_t flag) +) +{ + return 1; +} + +/* attr rb_num_t retn @ expandarray(num, flag)(..., ary)(...) */ +rb_num_t +attr_retn_expandarray( + MAYBE_UNUSED(rb_num_t num), + MAYBE_UNUSED(rb_num_t flag) +) +{ + return 0; +} + +/* attr rb_snum_t sp_inc @ expandarray(num, flag)(..., ary)(...) */ +rb_snum_t +attr_sp_inc_expandarray( + MAYBE_UNUSED(rb_num_t num), + MAYBE_UNUSED(rb_num_t flag) +) +{ + return +#line 484 "insns.def" +(rb_snum_t)num - 1 + (flag & 1 ? 1 : 0); +#line 3706 "insns_info.inc" +} + +/* attr rb_num_t width @ expandarray(num, flag)(..., ary)(...) */ +rb_num_t +attr_width_expandarray( + MAYBE_UNUSED(rb_num_t num), + MAYBE_UNUSED(rb_num_t flag) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ concatarray()(ary1, ary2)(ary) */ +enum ruby_vminsn_type +attr_bin_concatarray(void) +{ + return BIN(concatarray); +} + +/* attr bool handles_sp @ concatarray()(ary1, ary2)(ary) */ +bool +attr_handles_sp_concatarray(void) +{ + return false; +} + +/* attr bool leaf @ concatarray()(ary1, ary2)(ary) */ +bool +attr_leaf_concatarray(void) +{ + return +#line 495 "insns.def" +false; +#line 3740 "insns_info.inc" +} + +/* attr const char* name @ concatarray()(ary1, ary2)(ary) */ +const char* +attr_name_concatarray(void) +{ + return insn_name(BIN(concatarray)); +} + +/* attr rb_num_t open @ concatarray()(ary1, ary2)(ary) */ +rb_num_t +attr_open_concatarray(void) +{ + return 0; +} + +/* attr rb_num_t popn @ concatarray()(ary1, ary2)(ary) */ +rb_num_t +attr_popn_concatarray(void) +{ + return 2; +} + +/* attr rb_num_t retn @ concatarray()(ary1, ary2)(ary) */ +rb_num_t +attr_retn_concatarray(void) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ concatarray()(ary1, ary2)(ary) */ +rb_snum_t +attr_sp_inc_concatarray(void) +{ + return -1; +} + +/* attr rb_num_t width @ concatarray()(ary1, ary2)(ary) */ +rb_num_t +attr_width_concatarray(void) +{ + return 1; +} + +/* attr enum ruby_vminsn_type bin @ splatarray(flag)(ary)(obj) */ +enum ruby_vminsn_type +attr_bin_splatarray(MAYBE_UNUSED(VALUE flag)) +{ + return BIN(splatarray); +} + +/* attr bool handles_sp @ splatarray(flag)(ary)(obj) */ +bool +attr_handles_sp_splatarray(MAYBE_UNUSED(VALUE flag)) +{ + return false; +} + +/* attr bool leaf @ splatarray(flag)(ary)(obj) */ +bool +attr_leaf_splatarray(MAYBE_UNUSED(VALUE flag)) +{ + return +#line 506 "insns.def" +false; +#line 3806 "insns_info.inc" +} + +/* attr const char* name @ splatarray(flag)(ary)(obj) */ +const char* +attr_name_splatarray(MAYBE_UNUSED(VALUE flag)) +{ + return insn_name(BIN(splatarray)); +} + +/* attr rb_num_t open @ splatarray(flag)(ary)(obj) */ +rb_num_t +attr_open_splatarray(MAYBE_UNUSED(VALUE flag)) +{ + return 1; +} + +/* attr rb_num_t popn @ splatarray(flag)(ary)(obj) */ +rb_num_t +attr_popn_splatarray(MAYBE_UNUSED(VALUE flag)) +{ + return 1; +} + +/* attr rb_num_t retn @ splatarray(flag)(ary)(obj) */ +rb_num_t +attr_retn_splatarray(MAYBE_UNUSED(VALUE flag)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ splatarray(flag)(ary)(obj) */ +rb_snum_t +attr_sp_inc_splatarray(MAYBE_UNUSED(VALUE flag)) +{ + return 0; +} + +/* attr rb_num_t width @ splatarray(flag)(ary)(obj) */ +rb_num_t +attr_width_splatarray(MAYBE_UNUSED(VALUE flag)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ newhash(num)(...)(val) */ +enum ruby_vminsn_type +attr_bin_newhash(MAYBE_UNUSED(rb_num_t num)) +{ + return BIN(newhash); +} + +/* attr bool handles_sp @ newhash(num)(...)(val) */ +bool +attr_handles_sp_newhash(MAYBE_UNUSED(rb_num_t num)) +{ + return false; +} + +/* attr bool leaf @ newhash(num)(...)(val) */ +bool +attr_leaf_newhash(MAYBE_UNUSED(rb_num_t num)) +{ + return +#line 517 "insns.def" +false; +#line 3872 "insns_info.inc" +} + +/* attr const char* name @ newhash(num)(...)(val) */ +const char* +attr_name_newhash(MAYBE_UNUSED(rb_num_t num)) +{ + return insn_name(BIN(newhash)); +} + +/* attr rb_num_t open @ newhash(num)(...)(val) */ +rb_num_t +attr_open_newhash(MAYBE_UNUSED(rb_num_t num)) +{ + return 1; +} + +/* attr rb_num_t popn @ newhash(num)(...)(val) */ +rb_num_t +attr_popn_newhash(MAYBE_UNUSED(rb_num_t num)) +{ + return 0; +} + +/* attr rb_num_t retn @ newhash(num)(...)(val) */ +rb_num_t +attr_retn_newhash(MAYBE_UNUSED(rb_num_t num)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ newhash(num)(...)(val) */ +rb_snum_t +attr_sp_inc_newhash(MAYBE_UNUSED(rb_num_t num)) +{ + return +#line 518 "insns.def" +1 - (rb_snum_t)num; +#line 3910 "insns_info.inc" +} + +/* attr rb_num_t width @ newhash(num)(...)(val) */ +rb_num_t +attr_width_newhash(MAYBE_UNUSED(rb_num_t num)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ newrange(flag)(low, high)(val) */ +enum ruby_vminsn_type +attr_bin_newrange(MAYBE_UNUSED(rb_num_t flag)) +{ + return BIN(newrange); +} + +/* attr bool handles_sp @ newrange(flag)(low, high)(val) */ +bool +attr_handles_sp_newrange(MAYBE_UNUSED(rb_num_t flag)) +{ + return false; +} + +/* attr bool leaf @ newrange(flag)(low, high)(val) */ +bool +attr_leaf_newrange(MAYBE_UNUSED(rb_num_t flag)) +{ + return +#line 536 "insns.def" +false; +#line 3941 "insns_info.inc" +} + +/* attr const char* name @ newrange(flag)(low, high)(val) */ +const char* +attr_name_newrange(MAYBE_UNUSED(rb_num_t flag)) +{ + return insn_name(BIN(newrange)); +} + +/* attr rb_num_t open @ newrange(flag)(low, high)(val) */ +rb_num_t +attr_open_newrange(MAYBE_UNUSED(rb_num_t flag)) +{ + return 1; +} + +/* attr rb_num_t popn @ newrange(flag)(low, high)(val) */ +rb_num_t +attr_popn_newrange(MAYBE_UNUSED(rb_num_t flag)) +{ + return 2; +} + +/* attr rb_num_t retn @ newrange(flag)(low, high)(val) */ +rb_num_t +attr_retn_newrange(MAYBE_UNUSED(rb_num_t flag)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ newrange(flag)(low, high)(val) */ +rb_snum_t +attr_sp_inc_newrange(MAYBE_UNUSED(rb_num_t flag)) +{ + return -1; +} + +/* attr rb_num_t width @ newrange(flag)(low, high)(val) */ +rb_num_t +attr_width_newrange(MAYBE_UNUSED(rb_num_t flag)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ pop()(val)() */ +enum ruby_vminsn_type +attr_bin_pop(void) +{ + return BIN(pop); +} + +/* attr bool handles_sp @ pop()(val)() */ +bool +attr_handles_sp_pop(void) +{ + return false; +} + +/* attr bool leaf @ pop()(val)() */ +bool +attr_leaf_pop(void) +{ + return true; +} + +/* attr const char* name @ pop()(val)() */ +const char* +attr_name_pop(void) +{ + return insn_name(BIN(pop)); +} + +/* attr rb_num_t open @ pop()(val)() */ +rb_num_t +attr_open_pop(void) +{ + return 0; +} + +/* attr rb_num_t popn @ pop()(val)() */ +rb_num_t +attr_popn_pop(void) +{ + return 1; +} + +/* attr rb_num_t retn @ pop()(val)() */ +rb_num_t +attr_retn_pop(void) +{ + return 0; +} + +/* attr rb_snum_t sp_inc @ pop()(val)() */ +rb_snum_t +attr_sp_inc_pop(void) +{ + return -1; +} + +/* attr rb_num_t width @ pop()(val)() */ +rb_num_t +attr_width_pop(void) +{ + return 1; +} + +/* attr enum ruby_vminsn_type bin @ dup()(val)(val1, val2) */ +enum ruby_vminsn_type +attr_bin_dup(void) +{ + return BIN(dup); +} + +/* attr bool handles_sp @ dup()(val)(val1, val2) */ +bool +attr_handles_sp_dup(void) +{ + return false; +} + +/* attr bool leaf @ dup()(val)(val1, val2) */ +bool +attr_leaf_dup(void) +{ + return true; +} + +/* attr const char* name @ dup()(val)(val1, val2) */ +const char* +attr_name_dup(void) +{ + return insn_name(BIN(dup)); +} + +/* attr rb_num_t open @ dup()(val)(val1, val2) */ +rb_num_t +attr_open_dup(void) +{ + return 0; +} + +/* attr rb_num_t popn @ dup()(val)(val1, val2) */ +rb_num_t +attr_popn_dup(void) +{ + return 1; +} + +/* attr rb_num_t retn @ dup()(val)(val1, val2) */ +rb_num_t +attr_retn_dup(void) +{ + return 2; +} + +/* attr rb_snum_t sp_inc @ dup()(val)(val1, val2) */ +rb_snum_t +attr_sp_inc_dup(void) +{ + return 1; +} + +/* attr rb_num_t width @ dup()(val)(val1, val2) */ +rb_num_t +attr_width_dup(void) +{ + return 1; +} + +/* attr enum ruby_vminsn_type bin @ dupn(n)(...)(...) */ +enum ruby_vminsn_type +attr_bin_dupn(MAYBE_UNUSED(rb_num_t n)) +{ + return BIN(dupn); +} + +/* attr bool handles_sp @ dupn(n)(...)(...) */ +bool +attr_handles_sp_dupn(MAYBE_UNUSED(rb_num_t n)) +{ + return false; +} + +/* attr bool leaf @ dupn(n)(...)(...) */ +bool +attr_leaf_dupn(MAYBE_UNUSED(rb_num_t n)) +{ + return true; +} + +/* attr const char* name @ dupn(n)(...)(...) */ +const char* +attr_name_dupn(MAYBE_UNUSED(rb_num_t n)) +{ + return insn_name(BIN(dupn)); +} + +/* attr rb_num_t open @ dupn(n)(...)(...) */ +rb_num_t +attr_open_dupn(MAYBE_UNUSED(rb_num_t n)) +{ + return 1; +} + +/* attr rb_num_t popn @ dupn(n)(...)(...) */ +rb_num_t +attr_popn_dupn(MAYBE_UNUSED(rb_num_t n)) +{ + return 0; +} + +/* attr rb_num_t retn @ dupn(n)(...)(...) */ +rb_num_t +attr_retn_dupn(MAYBE_UNUSED(rb_num_t n)) +{ + return 0; +} + +/* attr rb_snum_t sp_inc @ dupn(n)(...)(...) */ +rb_snum_t +attr_sp_inc_dupn(MAYBE_UNUSED(rb_num_t n)) +{ + return +#line 572 "insns.def" +n; +#line 4168 "insns_info.inc" +} + +/* attr rb_num_t width @ dupn(n)(...)(...) */ +rb_num_t +attr_width_dupn(MAYBE_UNUSED(rb_num_t n)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ swap()(val, obj)(obj, val) */ +enum ruby_vminsn_type +attr_bin_swap(void) +{ + return BIN(swap); +} + +/* attr bool handles_sp @ swap()(val, obj)(obj, val) */ +bool +attr_handles_sp_swap(void) +{ + return false; +} + +/* attr bool leaf @ swap()(val, obj)(obj, val) */ +bool +attr_leaf_swap(void) +{ + return true; +} + +/* attr const char* name @ swap()(val, obj)(obj, val) */ +const char* +attr_name_swap(void) +{ + return insn_name(BIN(swap)); +} + +/* attr rb_num_t open @ swap()(val, obj)(obj, val) */ +rb_num_t +attr_open_swap(void) +{ + return 0; +} + +/* attr rb_num_t popn @ swap()(val, obj)(obj, val) */ +rb_num_t +attr_popn_swap(void) +{ + return 2; +} + +/* attr rb_num_t retn @ swap()(val, obj)(obj, val) */ +rb_num_t +attr_retn_swap(void) +{ + return 2; +} + +/* attr rb_snum_t sp_inc @ swap()(val, obj)(obj, val) */ +rb_snum_t +attr_sp_inc_swap(void) +{ + return 0; +} + +/* attr rb_num_t width @ swap()(val, obj)(obj, val) */ +rb_num_t +attr_width_swap(void) +{ + return 1; +} + +/* attr enum ruby_vminsn_type bin @ reverse(n)(...)(...) */ +enum ruby_vminsn_type +attr_bin_reverse(MAYBE_UNUSED(rb_num_t n)) +{ + return BIN(reverse); +} + +/* attr bool handles_sp @ reverse(n)(...)(...) */ +bool +attr_handles_sp_reverse(MAYBE_UNUSED(rb_num_t n)) +{ + return false; +} + +/* attr bool leaf @ reverse(n)(...)(...) */ +bool +attr_leaf_reverse(MAYBE_UNUSED(rb_num_t n)) +{ + return true; +} + +/* attr const char* name @ reverse(n)(...)(...) */ +const char* +attr_name_reverse(MAYBE_UNUSED(rb_num_t n)) +{ + return insn_name(BIN(reverse)); +} + +/* attr rb_num_t open @ reverse(n)(...)(...) */ +rb_num_t +attr_open_reverse(MAYBE_UNUSED(rb_num_t n)) +{ + return 1; +} + +/* attr rb_num_t popn @ reverse(n)(...)(...) */ +rb_num_t +attr_popn_reverse(MAYBE_UNUSED(rb_num_t n)) +{ + return 0; +} + +/* attr rb_num_t retn @ reverse(n)(...)(...) */ +rb_num_t +attr_retn_reverse(MAYBE_UNUSED(rb_num_t n)) +{ + return 0; +} + +/* attr rb_snum_t sp_inc @ reverse(n)(...)(...) */ +rb_snum_t +attr_sp_inc_reverse(MAYBE_UNUSED(rb_num_t n)) +{ + return +#line 596 "insns.def" +0; +#line 4297 "insns_info.inc" +} + +/* attr rb_num_t width @ reverse(n)(...)(...) */ +rb_num_t +attr_width_reverse(MAYBE_UNUSED(rb_num_t n)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ reput()(..., val)(val) */ +enum ruby_vminsn_type +attr_bin_reput(void) +{ + return BIN(reput); +} + +/* attr bool handles_sp @ reput()(..., val)(val) */ +bool +attr_handles_sp_reput(void) +{ + return false; +} + +/* attr bool leaf @ reput()(..., val)(val) */ +bool +attr_leaf_reput(void) +{ + return true; +} + +/* attr const char* name @ reput()(..., val)(val) */ +const char* +attr_name_reput(void) +{ + return insn_name(BIN(reput)); +} + +/* attr rb_num_t open @ reput()(..., val)(val) */ +rb_num_t +attr_open_reput(void) +{ + return 0; +} + +/* attr rb_num_t popn @ reput()(..., val)(val) */ +rb_num_t +attr_popn_reput(void) +{ + return 1; +} + +/* attr rb_num_t retn @ reput()(..., val)(val) */ +rb_num_t +attr_retn_reput(void) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ reput()(..., val)(val) */ +rb_snum_t +attr_sp_inc_reput(void) +{ + return +#line 615 "insns.def" +0; +#line 4363 "insns_info.inc" +} + +/* attr rb_num_t width @ reput()(..., val)(val) */ +rb_num_t +attr_width_reput(void) +{ + return 1; +} + +/* attr enum ruby_vminsn_type bin @ topn(n)(...)(val) */ +enum ruby_vminsn_type +attr_bin_topn(MAYBE_UNUSED(rb_num_t n)) +{ + return BIN(topn); +} + +/* attr bool handles_sp @ topn(n)(...)(val) */ +bool +attr_handles_sp_topn(MAYBE_UNUSED(rb_num_t n)) +{ + return false; +} + +/* attr bool leaf @ topn(n)(...)(val) */ +bool +attr_leaf_topn(MAYBE_UNUSED(rb_num_t n)) +{ + return true; +} + +/* attr const char* name @ topn(n)(...)(val) */ +const char* +attr_name_topn(MAYBE_UNUSED(rb_num_t n)) +{ + return insn_name(BIN(topn)); +} + +/* attr rb_num_t open @ topn(n)(...)(val) */ +rb_num_t +attr_open_topn(MAYBE_UNUSED(rb_num_t n)) +{ + return 1; +} + +/* attr rb_num_t popn @ topn(n)(...)(val) */ +rb_num_t +attr_popn_topn(MAYBE_UNUSED(rb_num_t n)) +{ + return 0; +} + +/* attr rb_num_t retn @ topn(n)(...)(val) */ +rb_num_t +attr_retn_topn(MAYBE_UNUSED(rb_num_t n)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ topn(n)(...)(val) */ +rb_snum_t +attr_sp_inc_topn(MAYBE_UNUSED(rb_num_t n)) +{ + return +#line 626 "insns.def" +1; +#line 4429 "insns_info.inc" +} + +/* attr rb_num_t width @ topn(n)(...)(val) */ +rb_num_t +attr_width_topn(MAYBE_UNUSED(rb_num_t n)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ setn(n)(..., val)(val) */ +enum ruby_vminsn_type +attr_bin_setn(MAYBE_UNUSED(rb_num_t n)) +{ + return BIN(setn); +} + +/* attr bool handles_sp @ setn(n)(..., val)(val) */ +bool +attr_handles_sp_setn(MAYBE_UNUSED(rb_num_t n)) +{ + return false; +} + +/* attr bool leaf @ setn(n)(..., val)(val) */ +bool +attr_leaf_setn(MAYBE_UNUSED(rb_num_t n)) +{ + return true; +} + +/* attr const char* name @ setn(n)(..., val)(val) */ +const char* +attr_name_setn(MAYBE_UNUSED(rb_num_t n)) +{ + return insn_name(BIN(setn)); +} + +/* attr rb_num_t open @ setn(n)(..., val)(val) */ +rb_num_t +attr_open_setn(MAYBE_UNUSED(rb_num_t n)) +{ + return 1; +} + +/* attr rb_num_t popn @ setn(n)(..., val)(val) */ +rb_num_t +attr_popn_setn(MAYBE_UNUSED(rb_num_t n)) +{ + return 1; +} + +/* attr rb_num_t retn @ setn(n)(..., val)(val) */ +rb_num_t +attr_retn_setn(MAYBE_UNUSED(rb_num_t n)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ setn(n)(..., val)(val) */ +rb_snum_t +attr_sp_inc_setn(MAYBE_UNUSED(rb_num_t n)) +{ + return +#line 637 "insns.def" +0; +#line 4495 "insns_info.inc" +} + +/* attr rb_num_t width @ setn(n)(..., val)(val) */ +rb_num_t +attr_width_setn(MAYBE_UNUSED(rb_num_t n)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ adjuststack(n)(...)(...) */ +enum ruby_vminsn_type +attr_bin_adjuststack(MAYBE_UNUSED(rb_num_t n)) +{ + return BIN(adjuststack); +} + +/* attr bool handles_sp @ adjuststack(n)(...)(...) */ +bool +attr_handles_sp_adjuststack(MAYBE_UNUSED(rb_num_t n)) +{ + return false; +} + +/* attr bool leaf @ adjuststack(n)(...)(...) */ +bool +attr_leaf_adjuststack(MAYBE_UNUSED(rb_num_t n)) +{ + return true; +} + +/* attr const char* name @ adjuststack(n)(...)(...) */ +const char* +attr_name_adjuststack(MAYBE_UNUSED(rb_num_t n)) +{ + return insn_name(BIN(adjuststack)); +} + +/* attr rb_num_t open @ adjuststack(n)(...)(...) */ +rb_num_t +attr_open_adjuststack(MAYBE_UNUSED(rb_num_t n)) +{ + return 1; +} + +/* attr rb_num_t popn @ adjuststack(n)(...)(...) */ +rb_num_t +attr_popn_adjuststack(MAYBE_UNUSED(rb_num_t n)) +{ + return 0; +} + +/* attr rb_num_t retn @ adjuststack(n)(...)(...) */ +rb_num_t +attr_retn_adjuststack(MAYBE_UNUSED(rb_num_t n)) +{ + return 0; +} + +/* attr rb_snum_t sp_inc @ adjuststack(n)(...)(...) */ +rb_snum_t +attr_sp_inc_adjuststack(MAYBE_UNUSED(rb_num_t n)) +{ + return +#line 648 "insns.def" +-(rb_snum_t)n; +#line 4561 "insns_info.inc" +} + +/* attr rb_num_t width @ adjuststack(n)(...)(...) */ +rb_num_t +attr_width_adjuststack(MAYBE_UNUSED(rb_num_t n)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ defined(op_type, obj, needstr)(v)(val) */ +enum ruby_vminsn_type +attr_bin_defined( + MAYBE_UNUSED(rb_num_t op_type), + MAYBE_UNUSED(VALUE obj), + MAYBE_UNUSED(VALUE needstr) +) +{ + return BIN(defined); +} + +/* attr bool handles_sp @ defined(op_type, obj, needstr)(v)(val) */ +bool +attr_handles_sp_defined( + MAYBE_UNUSED(rb_num_t op_type), + MAYBE_UNUSED(VALUE obj), + MAYBE_UNUSED(VALUE needstr) +) +{ + return false; +} + +/* attr bool leaf @ defined(op_type, obj, needstr)(v)(val) */ +bool +attr_leaf_defined( + MAYBE_UNUSED(rb_num_t op_type), + MAYBE_UNUSED(VALUE obj), + MAYBE_UNUSED(VALUE needstr) +) +{ + return +#line 663 "insns.def" +leafness_of_defined(op_type); +#line 4604 "insns_info.inc" +} + +/* attr const char* name @ defined(op_type, obj, needstr)(v)(val) */ +const char* +attr_name_defined( + MAYBE_UNUSED(rb_num_t op_type), + MAYBE_UNUSED(VALUE obj), + MAYBE_UNUSED(VALUE needstr) +) +{ + return insn_name(BIN(defined)); +} + +/* attr rb_num_t open @ defined(op_type, obj, needstr)(v)(val) */ +rb_num_t +attr_open_defined( + MAYBE_UNUSED(rb_num_t op_type), + MAYBE_UNUSED(VALUE obj), + MAYBE_UNUSED(VALUE needstr) +) +{ + return 3; +} + +/* attr rb_num_t popn @ defined(op_type, obj, needstr)(v)(val) */ +rb_num_t +attr_popn_defined( + MAYBE_UNUSED(rb_num_t op_type), + MAYBE_UNUSED(VALUE obj), + MAYBE_UNUSED(VALUE needstr) +) +{ + return 1; +} + +/* attr rb_num_t retn @ defined(op_type, obj, needstr)(v)(val) */ +rb_num_t +attr_retn_defined( + MAYBE_UNUSED(rb_num_t op_type), + MAYBE_UNUSED(VALUE obj), + MAYBE_UNUSED(VALUE needstr) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ defined(op_type, obj, needstr)(v)(val) */ +rb_snum_t +attr_sp_inc_defined( + MAYBE_UNUSED(rb_num_t op_type), + MAYBE_UNUSED(VALUE obj), + MAYBE_UNUSED(VALUE needstr) +) +{ + return 0; +} + +/* attr rb_num_t width @ defined(op_type, obj, needstr)(v)(val) */ +rb_num_t +attr_width_defined( + MAYBE_UNUSED(rb_num_t op_type), + MAYBE_UNUSED(VALUE obj), + MAYBE_UNUSED(VALUE needstr) +) +{ + return 4; +} + +/* attr enum ruby_vminsn_type bin @ checkmatch(flag)(target, pattern)(result) */ +enum ruby_vminsn_type +attr_bin_checkmatch(MAYBE_UNUSED(rb_num_t flag)) +{ + return BIN(checkmatch); +} + +/* attr bool handles_sp @ checkmatch(flag)(target, pattern)(result) */ +bool +attr_handles_sp_checkmatch(MAYBE_UNUSED(rb_num_t flag)) +{ + return false; +} + +/* attr bool leaf @ checkmatch(flag)(target, pattern)(result) */ +bool +attr_leaf_checkmatch(MAYBE_UNUSED(rb_num_t flag)) +{ + return +#line 680 "insns.def" +leafness_of_checkmatch(flag); +#line 4694 "insns_info.inc" +} + +/* attr const char* name @ checkmatch(flag)(target, pattern)(result) */ +const char* +attr_name_checkmatch(MAYBE_UNUSED(rb_num_t flag)) +{ + return insn_name(BIN(checkmatch)); +} + +/* attr rb_num_t open @ checkmatch(flag)(target, pattern)(result) */ +rb_num_t +attr_open_checkmatch(MAYBE_UNUSED(rb_num_t flag)) +{ + return 1; +} + +/* attr rb_num_t popn @ checkmatch(flag)(target, pattern)(result) */ +rb_num_t +attr_popn_checkmatch(MAYBE_UNUSED(rb_num_t flag)) +{ + return 2; +} + +/* attr rb_num_t retn @ checkmatch(flag)(target, pattern)(result) */ +rb_num_t +attr_retn_checkmatch(MAYBE_UNUSED(rb_num_t flag)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ checkmatch(flag)(target, pattern)(result) */ +rb_snum_t +attr_sp_inc_checkmatch(MAYBE_UNUSED(rb_num_t flag)) +{ + return -1; +} + +/* attr rb_num_t width @ checkmatch(flag)(target, pattern)(result) */ +rb_num_t +attr_width_checkmatch(MAYBE_UNUSED(rb_num_t flag)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ checkkeyword(kw_bits_index, keyword_index)()(ret) */ +enum ruby_vminsn_type +attr_bin_checkkeyword( + MAYBE_UNUSED(lindex_t kw_bits_index), + MAYBE_UNUSED(lindex_t keyword_index) +) +{ + return BIN(checkkeyword); +} + +/* attr bool handles_sp @ checkkeyword(kw_bits_index, keyword_index)()(ret) */ +bool +attr_handles_sp_checkkeyword( + MAYBE_UNUSED(lindex_t kw_bits_index), + MAYBE_UNUSED(lindex_t keyword_index) +) +{ + return false; +} + +/* attr bool leaf @ checkkeyword(kw_bits_index, keyword_index)()(ret) */ +bool +attr_leaf_checkkeyword( + MAYBE_UNUSED(lindex_t kw_bits_index), + MAYBE_UNUSED(lindex_t keyword_index) +) +{ + return true; +} + +/* attr const char* name @ checkkeyword(kw_bits_index, keyword_index)()(ret) */ +const char* +attr_name_checkkeyword( + MAYBE_UNUSED(lindex_t kw_bits_index), + MAYBE_UNUSED(lindex_t keyword_index) +) +{ + return insn_name(BIN(checkkeyword)); +} + +/* attr rb_num_t open @ checkkeyword(kw_bits_index, keyword_index)()(ret) */ +rb_num_t +attr_open_checkkeyword( + MAYBE_UNUSED(lindex_t kw_bits_index), + MAYBE_UNUSED(lindex_t keyword_index) +) +{ + return 2; +} + +/* attr rb_num_t popn @ checkkeyword(kw_bits_index, keyword_index)()(ret) */ +rb_num_t +attr_popn_checkkeyword( + MAYBE_UNUSED(lindex_t kw_bits_index), + MAYBE_UNUSED(lindex_t keyword_index) +) +{ + return 0; +} + +/* attr rb_num_t retn @ checkkeyword(kw_bits_index, keyword_index)()(ret) */ +rb_num_t +attr_retn_checkkeyword( + MAYBE_UNUSED(lindex_t kw_bits_index), + MAYBE_UNUSED(lindex_t keyword_index) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ checkkeyword(kw_bits_index, keyword_index)()(ret) */ +rb_snum_t +attr_sp_inc_checkkeyword( + MAYBE_UNUSED(lindex_t kw_bits_index), + MAYBE_UNUSED(lindex_t keyword_index) +) +{ + return 1; +} + +/* attr rb_num_t width @ checkkeyword(kw_bits_index, keyword_index)()(ret) */ +rb_num_t +attr_width_checkkeyword( + MAYBE_UNUSED(lindex_t kw_bits_index), + MAYBE_UNUSED(lindex_t keyword_index) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ checktype(type)(val)(ret) */ +enum ruby_vminsn_type +attr_bin_checktype(MAYBE_UNUSED(rb_num_t type)) +{ + return BIN(checktype); +} + +/* attr bool handles_sp @ checktype(type)(val)(ret) */ +bool +attr_handles_sp_checktype(MAYBE_UNUSED(rb_num_t type)) +{ + return false; +} + +/* attr bool leaf @ checktype(type)(val)(ret) */ +bool +attr_leaf_checktype(MAYBE_UNUSED(rb_num_t type)) +{ + return true; +} + +/* attr const char* name @ checktype(type)(val)(ret) */ +const char* +attr_name_checktype(MAYBE_UNUSED(rb_num_t type)) +{ + return insn_name(BIN(checktype)); +} + +/* attr rb_num_t open @ checktype(type)(val)(ret) */ +rb_num_t +attr_open_checktype(MAYBE_UNUSED(rb_num_t type)) +{ + return 1; +} + +/* attr rb_num_t popn @ checktype(type)(val)(ret) */ +rb_num_t +attr_popn_checktype(MAYBE_UNUSED(rb_num_t type)) +{ + return 1; +} + +/* attr rb_num_t retn @ checktype(type)(val)(ret) */ +rb_num_t +attr_retn_checktype(MAYBE_UNUSED(rb_num_t type)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ checktype(type)(val)(ret) */ +rb_snum_t +attr_sp_inc_checktype(MAYBE_UNUSED(rb_num_t type)) +{ + return 0; +} + +/* attr rb_num_t width @ checktype(type)(val)(ret) */ +rb_num_t +attr_width_checktype(MAYBE_UNUSED(rb_num_t type)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ defineclass(id, class_iseq, flags)(cbase, super)(val) */ +enum ruby_vminsn_type +attr_bin_defineclass( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(ISEQ class_iseq), + MAYBE_UNUSED(rb_num_t flags) +) +{ + return BIN(defineclass); +} + +/* attr bool handles_sp @ defineclass(id, class_iseq, flags)(cbase, super)(val) */ +bool +attr_handles_sp_defineclass( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(ISEQ class_iseq), + MAYBE_UNUSED(rb_num_t flags) +) +{ + return true; +} + +/* attr bool leaf @ defineclass(id, class_iseq, flags)(cbase, super)(val) */ +bool +attr_leaf_defineclass( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(ISEQ class_iseq), + MAYBE_UNUSED(rb_num_t flags) +) +{ + return false; +} + +/* attr const char* name @ defineclass(id, class_iseq, flags)(cbase, super)(val) */ +const char* +attr_name_defineclass( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(ISEQ class_iseq), + MAYBE_UNUSED(rb_num_t flags) +) +{ + return insn_name(BIN(defineclass)); +} + +/* attr rb_num_t open @ defineclass(id, class_iseq, flags)(cbase, super)(val) */ +rb_num_t +attr_open_defineclass( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(ISEQ class_iseq), + MAYBE_UNUSED(rb_num_t flags) +) +{ + return 3; +} + +/* attr rb_num_t popn @ defineclass(id, class_iseq, flags)(cbase, super)(val) */ +rb_num_t +attr_popn_defineclass( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(ISEQ class_iseq), + MAYBE_UNUSED(rb_num_t flags) +) +{ + return 2; +} + +/* attr rb_num_t retn @ defineclass(id, class_iseq, flags)(cbase, super)(val) */ +rb_num_t +attr_retn_defineclass( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(ISEQ class_iseq), + MAYBE_UNUSED(rb_num_t flags) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ defineclass(id, class_iseq, flags)(cbase, super)(val) */ +rb_snum_t +attr_sp_inc_defineclass( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(ISEQ class_iseq), + MAYBE_UNUSED(rb_num_t flags) +) +{ + return -1; +} + +/* attr rb_num_t width @ defineclass(id, class_iseq, flags)(cbase, super)(val) */ +rb_num_t +attr_width_defineclass( + MAYBE_UNUSED(ID id), + MAYBE_UNUSED(ISEQ class_iseq), + MAYBE_UNUSED(rb_num_t flags) +) +{ + return 4; +} + +/* attr enum ruby_vminsn_type bin @ send(ci, cc, blockiseq)(...)(val) */ +enum ruby_vminsn_type +attr_bin_send( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc), + MAYBE_UNUSED(ISEQ blockiseq) +) +{ + return BIN(send); +} + +/* attr bool handles_sp @ send(ci, cc, blockiseq)(...)(val) */ +bool +attr_handles_sp_send( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc), + MAYBE_UNUSED(ISEQ blockiseq) +) +{ + return true; +} + +/* attr bool leaf @ send(ci, cc, blockiseq)(...)(val) */ +bool +attr_leaf_send( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc), + MAYBE_UNUSED(ISEQ blockiseq) +) +{ + return false; +} + +/* attr const char* name @ send(ci, cc, blockiseq)(...)(val) */ +const char* +attr_name_send( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc), + MAYBE_UNUSED(ISEQ blockiseq) +) +{ + return insn_name(BIN(send)); +} + +/* attr rb_num_t open @ send(ci, cc, blockiseq)(...)(val) */ +rb_num_t +attr_open_send( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc), + MAYBE_UNUSED(ISEQ blockiseq) +) +{ + return 3; +} + +/* attr rb_num_t popn @ send(ci, cc, blockiseq)(...)(val) */ +rb_num_t +attr_popn_send( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc), + MAYBE_UNUSED(ISEQ blockiseq) +) +{ + return 0; +} + +/* attr rb_num_t retn @ send(ci, cc, blockiseq)(...)(val) */ +rb_num_t +attr_retn_send( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc), + MAYBE_UNUSED(ISEQ blockiseq) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ send(ci, cc, blockiseq)(...)(val) */ +rb_snum_t +attr_sp_inc_send( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc), + MAYBE_UNUSED(ISEQ blockiseq) +) +{ + return +#line 743 "insns.def" +- (int)(ci->orig_argc + ((ci->flag & VM_CALL_ARGS_BLOCKARG) ? 1 : 0)); +#line 5079 "insns_info.inc" +} + +/* attr rb_num_t width @ send(ci, cc, blockiseq)(...)(val) */ +rb_num_t +attr_width_send( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc), + MAYBE_UNUSED(ISEQ blockiseq) +) +{ + return 4; +} + +/* attr enum ruby_vminsn_type bin @ opt_send_without_block(ci, cc)(...)(val) */ +enum ruby_vminsn_type +attr_bin_opt_send_without_block( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_send_without_block); +} + +/* attr bool handles_sp @ opt_send_without_block(ci, cc)(...)(val) */ +bool +attr_handles_sp_opt_send_without_block( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return +#line 759 "insns.def" +true; +#line 5113 "insns_info.inc" +} + +/* attr bool leaf @ opt_send_without_block(ci, cc)(...)(val) */ +bool +attr_leaf_opt_send_without_block( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return ! attr_handles_sp_opt_send_without_block(ci, cc); +} + +/* attr const char* name @ opt_send_without_block(ci, cc)(...)(val) */ +const char* +attr_name_opt_send_without_block( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_send_without_block)); +} + +/* attr rb_num_t open @ opt_send_without_block(ci, cc)(...)(val) */ +rb_num_t +attr_open_opt_send_without_block( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_send_without_block(ci, cc)(...)(val) */ +rb_num_t +attr_popn_opt_send_without_block( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 0; +} + +/* attr rb_num_t retn @ opt_send_without_block(ci, cc)(...)(val) */ +rb_num_t +attr_retn_opt_send_without_block( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_send_without_block(ci, cc)(...)(val) */ +rb_snum_t +attr_sp_inc_opt_send_without_block( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return +#line 760 "insns.def" +-ci->orig_argc; +#line 5176 "insns_info.inc" +} + +/* attr rb_num_t width @ opt_send_without_block(ci, cc)(...)(val) */ +rb_num_t +attr_width_opt_send_without_block( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_str_freeze(str, ci, cc)()(val) */ +enum ruby_vminsn_type +attr_bin_opt_str_freeze( + MAYBE_UNUSED(VALUE str), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_str_freeze); +} + +/* attr bool handles_sp @ opt_str_freeze(str, ci, cc)()(val) */ +bool +attr_handles_sp_opt_str_freeze( + MAYBE_UNUSED(VALUE str), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_str_freeze(str, ci, cc)()(val) */ +bool +attr_leaf_opt_str_freeze( + MAYBE_UNUSED(VALUE str), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return true; +} + +/* attr const char* name @ opt_str_freeze(str, ci, cc)()(val) */ +const char* +attr_name_opt_str_freeze( + MAYBE_UNUSED(VALUE str), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_str_freeze)); +} + +/* attr rb_num_t open @ opt_str_freeze(str, ci, cc)()(val) */ +rb_num_t +attr_open_opt_str_freeze( + MAYBE_UNUSED(VALUE str), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr rb_num_t popn @ opt_str_freeze(str, ci, cc)()(val) */ +rb_num_t +attr_popn_opt_str_freeze( + MAYBE_UNUSED(VALUE str), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 0; +} + +/* attr rb_num_t retn @ opt_str_freeze(str, ci, cc)()(val) */ +rb_num_t +attr_retn_opt_str_freeze( + MAYBE_UNUSED(VALUE str), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_str_freeze(str, ci, cc)()(val) */ +rb_snum_t +attr_sp_inc_opt_str_freeze( + MAYBE_UNUSED(VALUE str), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_num_t width @ opt_str_freeze(str, ci, cc)()(val) */ +rb_num_t +attr_width_opt_str_freeze( + MAYBE_UNUSED(VALUE str), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 4; +} + +/* attr enum ruby_vminsn_type bin @ opt_str_uminus(str, ci, cc)()(val) */ +enum ruby_vminsn_type +attr_bin_opt_str_uminus( + MAYBE_UNUSED(VALUE str), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_str_uminus); +} + +/* attr bool handles_sp @ opt_str_uminus(str, ci, cc)()(val) */ +bool +attr_handles_sp_opt_str_uminus( + MAYBE_UNUSED(VALUE str), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_str_uminus(str, ci, cc)()(val) */ +bool +attr_leaf_opt_str_uminus( + MAYBE_UNUSED(VALUE str), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return true; +} + +/* attr const char* name @ opt_str_uminus(str, ci, cc)()(val) */ +const char* +attr_name_opt_str_uminus( + MAYBE_UNUSED(VALUE str), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_str_uminus)); +} + +/* attr rb_num_t open @ opt_str_uminus(str, ci, cc)()(val) */ +rb_num_t +attr_open_opt_str_uminus( + MAYBE_UNUSED(VALUE str), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr rb_num_t popn @ opt_str_uminus(str, ci, cc)()(val) */ +rb_num_t +attr_popn_opt_str_uminus( + MAYBE_UNUSED(VALUE str), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 0; +} + +/* attr rb_num_t retn @ opt_str_uminus(str, ci, cc)()(val) */ +rb_num_t +attr_retn_opt_str_uminus( + MAYBE_UNUSED(VALUE str), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_str_uminus(str, ci, cc)()(val) */ +rb_snum_t +attr_sp_inc_opt_str_uminus( + MAYBE_UNUSED(VALUE str), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_num_t width @ opt_str_uminus(str, ci, cc)()(val) */ +rb_num_t +attr_width_opt_str_uminus( + MAYBE_UNUSED(VALUE str), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 4; +} + +/* attr enum ruby_vminsn_type bin @ opt_newarray_max(num)(...)(val) */ +enum ruby_vminsn_type +attr_bin_opt_newarray_max(MAYBE_UNUSED(rb_num_t num)) +{ + return BIN(opt_newarray_max); +} + +/* attr bool handles_sp @ opt_newarray_max(num)(...)(val) */ +bool +attr_handles_sp_opt_newarray_max(MAYBE_UNUSED(rb_num_t num)) +{ + return false; +} + +/* attr bool leaf @ opt_newarray_max(num)(...)(val) */ +bool +attr_leaf_opt_newarray_max(MAYBE_UNUSED(rb_num_t num)) +{ + return +#line 805 "insns.def" +false; +#line 5408 "insns_info.inc" +} + +/* attr const char* name @ opt_newarray_max(num)(...)(val) */ +const char* +attr_name_opt_newarray_max(MAYBE_UNUSED(rb_num_t num)) +{ + return insn_name(BIN(opt_newarray_max)); +} + +/* attr rb_num_t open @ opt_newarray_max(num)(...)(val) */ +rb_num_t +attr_open_opt_newarray_max(MAYBE_UNUSED(rb_num_t num)) +{ + return 1; +} + +/* attr rb_num_t popn @ opt_newarray_max(num)(...)(val) */ +rb_num_t +attr_popn_opt_newarray_max(MAYBE_UNUSED(rb_num_t num)) +{ + return 0; +} + +/* attr rb_num_t retn @ opt_newarray_max(num)(...)(val) */ +rb_num_t +attr_retn_opt_newarray_max(MAYBE_UNUSED(rb_num_t num)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_newarray_max(num)(...)(val) */ +rb_snum_t +attr_sp_inc_opt_newarray_max(MAYBE_UNUSED(rb_num_t num)) +{ + return +#line 806 "insns.def" +1 - (rb_snum_t)num; +#line 5446 "insns_info.inc" +} + +/* attr rb_num_t width @ opt_newarray_max(num)(...)(val) */ +rb_num_t +attr_width_opt_newarray_max(MAYBE_UNUSED(rb_num_t num)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ opt_newarray_min(num)(...)(val) */ +enum ruby_vminsn_type +attr_bin_opt_newarray_min(MAYBE_UNUSED(rb_num_t num)) +{ + return BIN(opt_newarray_min); +} + +/* attr bool handles_sp @ opt_newarray_min(num)(...)(val) */ +bool +attr_handles_sp_opt_newarray_min(MAYBE_UNUSED(rb_num_t num)) +{ + return false; +} + +/* attr bool leaf @ opt_newarray_min(num)(...)(val) */ +bool +attr_leaf_opt_newarray_min(MAYBE_UNUSED(rb_num_t num)) +{ + return +#line 817 "insns.def" +false; +#line 5477 "insns_info.inc" +} + +/* attr const char* name @ opt_newarray_min(num)(...)(val) */ +const char* +attr_name_opt_newarray_min(MAYBE_UNUSED(rb_num_t num)) +{ + return insn_name(BIN(opt_newarray_min)); +} + +/* attr rb_num_t open @ opt_newarray_min(num)(...)(val) */ +rb_num_t +attr_open_opt_newarray_min(MAYBE_UNUSED(rb_num_t num)) +{ + return 1; +} + +/* attr rb_num_t popn @ opt_newarray_min(num)(...)(val) */ +rb_num_t +attr_popn_opt_newarray_min(MAYBE_UNUSED(rb_num_t num)) +{ + return 0; +} + +/* attr rb_num_t retn @ opt_newarray_min(num)(...)(val) */ +rb_num_t +attr_retn_opt_newarray_min(MAYBE_UNUSED(rb_num_t num)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_newarray_min(num)(...)(val) */ +rb_snum_t +attr_sp_inc_opt_newarray_min(MAYBE_UNUSED(rb_num_t num)) +{ + return +#line 818 "insns.def" +1 - (rb_snum_t)num; +#line 5515 "insns_info.inc" +} + +/* attr rb_num_t width @ opt_newarray_min(num)(...)(val) */ +rb_num_t +attr_width_opt_newarray_min(MAYBE_UNUSED(rb_num_t num)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ invokesuper(ci, cc, blockiseq)(...)(val) */ +enum ruby_vminsn_type +attr_bin_invokesuper( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc), + MAYBE_UNUSED(ISEQ blockiseq) +) +{ + return BIN(invokesuper); +} + +/* attr bool handles_sp @ invokesuper(ci, cc, blockiseq)(...)(val) */ +bool +attr_handles_sp_invokesuper( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc), + MAYBE_UNUSED(ISEQ blockiseq) +) +{ + return true; +} + +/* attr bool leaf @ invokesuper(ci, cc, blockiseq)(...)(val) */ +bool +attr_leaf_invokesuper( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc), + MAYBE_UNUSED(ISEQ blockiseq) +) +{ + return false; +} + +/* attr const char* name @ invokesuper(ci, cc, blockiseq)(...)(val) */ +const char* +attr_name_invokesuper( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc), + MAYBE_UNUSED(ISEQ blockiseq) +) +{ + return insn_name(BIN(invokesuper)); +} + +/* attr rb_num_t open @ invokesuper(ci, cc, blockiseq)(...)(val) */ +rb_num_t +attr_open_invokesuper( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc), + MAYBE_UNUSED(ISEQ blockiseq) +) +{ + return 3; +} + +/* attr rb_num_t popn @ invokesuper(ci, cc, blockiseq)(...)(val) */ +rb_num_t +attr_popn_invokesuper( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc), + MAYBE_UNUSED(ISEQ blockiseq) +) +{ + return 0; +} + +/* attr rb_num_t retn @ invokesuper(ci, cc, blockiseq)(...)(val) */ +rb_num_t +attr_retn_invokesuper( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc), + MAYBE_UNUSED(ISEQ blockiseq) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ invokesuper(ci, cc, blockiseq)(...)(val) */ +rb_snum_t +attr_sp_inc_invokesuper( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc), + MAYBE_UNUSED(ISEQ blockiseq) +) +{ + return +#line 829 "insns.def" +- (int)(ci->orig_argc + ((ci->flag & VM_CALL_ARGS_BLOCKARG) ? 1 : 0)); +#line 5613 "insns_info.inc" +} + +/* attr rb_num_t width @ invokesuper(ci, cc, blockiseq)(...)(val) */ +rb_num_t +attr_width_invokesuper( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc), + MAYBE_UNUSED(ISEQ blockiseq) +) +{ + return 4; +} + +/* attr enum ruby_vminsn_type bin @ invokeblock(ci)(...)(val) */ +enum ruby_vminsn_type +attr_bin_invokeblock(MAYBE_UNUSED(CALL_INFO ci)) +{ + return BIN(invokeblock); +} + +/* attr bool handles_sp @ invokeblock(ci)(...)(val) */ +bool +attr_handles_sp_invokeblock(MAYBE_UNUSED(CALL_INFO ci)) +{ + return +#line 845 "insns.def" +true; +#line 5641 "insns_info.inc" +} + +/* attr bool leaf @ invokeblock(ci)(...)(val) */ +bool +attr_leaf_invokeblock(MAYBE_UNUSED(CALL_INFO ci)) +{ + return ! attr_handles_sp_invokeblock(ci); +} + +/* attr const char* name @ invokeblock(ci)(...)(val) */ +const char* +attr_name_invokeblock(MAYBE_UNUSED(CALL_INFO ci)) +{ + return insn_name(BIN(invokeblock)); +} + +/* attr rb_num_t open @ invokeblock(ci)(...)(val) */ +rb_num_t +attr_open_invokeblock(MAYBE_UNUSED(CALL_INFO ci)) +{ + return 1; +} + +/* attr rb_num_t popn @ invokeblock(ci)(...)(val) */ +rb_num_t +attr_popn_invokeblock(MAYBE_UNUSED(CALL_INFO ci)) +{ + return 0; +} + +/* attr rb_num_t retn @ invokeblock(ci)(...)(val) */ +rb_num_t +attr_retn_invokeblock(MAYBE_UNUSED(CALL_INFO ci)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ invokeblock(ci)(...)(val) */ +rb_snum_t +attr_sp_inc_invokeblock(MAYBE_UNUSED(CALL_INFO ci)) +{ + return +#line 846 "insns.def" +1 - ci->orig_argc; +#line 5686 "insns_info.inc" +} + +/* attr rb_num_t width @ invokeblock(ci)(...)(val) */ +rb_num_t +attr_width_invokeblock(MAYBE_UNUSED(CALL_INFO ci)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ leave()(val)(val) */ +enum ruby_vminsn_type +attr_bin_leave(void) +{ + return BIN(leave); +} + +/* attr bool handles_sp @ leave()(val)(val) */ +bool +attr_handles_sp_leave(void) +{ + return +#line 876 "insns.def" +true; +#line 5710 "insns_info.inc" +} + +/* attr bool leaf @ leave()(val)(val) */ +bool +attr_leaf_leave(void) +{ + return +#line 875 "insns.def" +false; +#line 5720 "insns_info.inc" +} + +/* attr const char* name @ leave()(val)(val) */ +const char* +attr_name_leave(void) +{ + return insn_name(BIN(leave)); +} + +/* attr rb_num_t open @ leave()(val)(val) */ +rb_num_t +attr_open_leave(void) +{ + return 0; +} + +/* attr rb_num_t popn @ leave()(val)(val) */ +rb_num_t +attr_popn_leave(void) +{ + return 1; +} + +/* attr rb_num_t retn @ leave()(val)(val) */ +rb_num_t +attr_retn_leave(void) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ leave()(val)(val) */ +rb_snum_t +attr_sp_inc_leave(void) +{ + return 0; +} + +/* attr rb_num_t width @ leave()(val)(val) */ +rb_num_t +attr_width_leave(void) +{ + return 1; +} + +/* attr enum ruby_vminsn_type bin @ throw(throw_state)(throwobj)(val) */ +enum ruby_vminsn_type +attr_bin_throw(MAYBE_UNUSED(rb_num_t throw_state)) +{ + return BIN(throw); +} + +/* attr bool handles_sp @ throw(throw_state)(throwobj)(val) */ +bool +attr_handles_sp_throw(MAYBE_UNUSED(rb_num_t throw_state)) +{ + return false; +} + +/* attr bool leaf @ throw(throw_state)(throwobj)(val) */ +bool +attr_leaf_throw(MAYBE_UNUSED(rb_num_t throw_state)) +{ + return +#line 911 "insns.def" +false; +#line 5786 "insns_info.inc" +} + +/* attr const char* name @ throw(throw_state)(throwobj)(val) */ +const char* +attr_name_throw(MAYBE_UNUSED(rb_num_t throw_state)) +{ + return insn_name(BIN(throw)); +} + +/* attr rb_num_t open @ throw(throw_state)(throwobj)(val) */ +rb_num_t +attr_open_throw(MAYBE_UNUSED(rb_num_t throw_state)) +{ + return 1; +} + +/* attr rb_num_t popn @ throw(throw_state)(throwobj)(val) */ +rb_num_t +attr_popn_throw(MAYBE_UNUSED(rb_num_t throw_state)) +{ + return 1; +} + +/* attr rb_num_t retn @ throw(throw_state)(throwobj)(val) */ +rb_num_t +attr_retn_throw(MAYBE_UNUSED(rb_num_t throw_state)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ throw(throw_state)(throwobj)(val) */ +rb_snum_t +attr_sp_inc_throw(MAYBE_UNUSED(rb_num_t throw_state)) +{ + return 0; +} + +/* attr rb_num_t width @ throw(throw_state)(throwobj)(val) */ +rb_num_t +attr_width_throw(MAYBE_UNUSED(rb_num_t throw_state)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ jump(dst)()() */ +enum ruby_vminsn_type +attr_bin_jump(MAYBE_UNUSED(OFFSET dst)) +{ + return BIN(jump); +} + +/* attr bool handles_sp @ jump(dst)()() */ +bool +attr_handles_sp_jump(MAYBE_UNUSED(OFFSET dst)) +{ + return false; +} + +/* attr bool leaf @ jump(dst)()() */ +bool +attr_leaf_jump(MAYBE_UNUSED(OFFSET dst)) +{ + return +#line 930 "insns.def" +false; +#line 5852 "insns_info.inc" +} + +/* attr const char* name @ jump(dst)()() */ +const char* +attr_name_jump(MAYBE_UNUSED(OFFSET dst)) +{ + return insn_name(BIN(jump)); +} + +/* attr rb_num_t open @ jump(dst)()() */ +rb_num_t +attr_open_jump(MAYBE_UNUSED(OFFSET dst)) +{ + return 1; +} + +/* attr rb_num_t popn @ jump(dst)()() */ +rb_num_t +attr_popn_jump(MAYBE_UNUSED(OFFSET dst)) +{ + return 0; +} + +/* attr rb_num_t retn @ jump(dst)()() */ +rb_num_t +attr_retn_jump(MAYBE_UNUSED(OFFSET dst)) +{ + return 0; +} + +/* attr rb_snum_t sp_inc @ jump(dst)()() */ +rb_snum_t +attr_sp_inc_jump(MAYBE_UNUSED(OFFSET dst)) +{ + return 0; +} + +/* attr rb_num_t width @ jump(dst)()() */ +rb_num_t +attr_width_jump(MAYBE_UNUSED(OFFSET dst)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ branchif(dst)(val)() */ +enum ruby_vminsn_type +attr_bin_branchif(MAYBE_UNUSED(OFFSET dst)) +{ + return BIN(branchif); +} + +/* attr bool handles_sp @ branchif(dst)(val)() */ +bool +attr_handles_sp_branchif(MAYBE_UNUSED(OFFSET dst)) +{ + return false; +} + +/* attr bool leaf @ branchif(dst)(val)() */ +bool +attr_leaf_branchif(MAYBE_UNUSED(OFFSET dst)) +{ + return +#line 943 "insns.def" +false; +#line 5918 "insns_info.inc" +} + +/* attr const char* name @ branchif(dst)(val)() */ +const char* +attr_name_branchif(MAYBE_UNUSED(OFFSET dst)) +{ + return insn_name(BIN(branchif)); +} + +/* attr rb_num_t open @ branchif(dst)(val)() */ +rb_num_t +attr_open_branchif(MAYBE_UNUSED(OFFSET dst)) +{ + return 1; +} + +/* attr rb_num_t popn @ branchif(dst)(val)() */ +rb_num_t +attr_popn_branchif(MAYBE_UNUSED(OFFSET dst)) +{ + return 1; +} + +/* attr rb_num_t retn @ branchif(dst)(val)() */ +rb_num_t +attr_retn_branchif(MAYBE_UNUSED(OFFSET dst)) +{ + return 0; +} + +/* attr rb_snum_t sp_inc @ branchif(dst)(val)() */ +rb_snum_t +attr_sp_inc_branchif(MAYBE_UNUSED(OFFSET dst)) +{ + return -1; +} + +/* attr rb_num_t width @ branchif(dst)(val)() */ +rb_num_t +attr_width_branchif(MAYBE_UNUSED(OFFSET dst)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ branchunless(dst)(val)() */ +enum ruby_vminsn_type +attr_bin_branchunless(MAYBE_UNUSED(OFFSET dst)) +{ + return BIN(branchunless); +} + +/* attr bool handles_sp @ branchunless(dst)(val)() */ +bool +attr_handles_sp_branchunless(MAYBE_UNUSED(OFFSET dst)) +{ + return false; +} + +/* attr bool leaf @ branchunless(dst)(val)() */ +bool +attr_leaf_branchunless(MAYBE_UNUSED(OFFSET dst)) +{ + return +#line 958 "insns.def" +false; +#line 5984 "insns_info.inc" +} + +/* attr const char* name @ branchunless(dst)(val)() */ +const char* +attr_name_branchunless(MAYBE_UNUSED(OFFSET dst)) +{ + return insn_name(BIN(branchunless)); +} + +/* attr rb_num_t open @ branchunless(dst)(val)() */ +rb_num_t +attr_open_branchunless(MAYBE_UNUSED(OFFSET dst)) +{ + return 1; +} + +/* attr rb_num_t popn @ branchunless(dst)(val)() */ +rb_num_t +attr_popn_branchunless(MAYBE_UNUSED(OFFSET dst)) +{ + return 1; +} + +/* attr rb_num_t retn @ branchunless(dst)(val)() */ +rb_num_t +attr_retn_branchunless(MAYBE_UNUSED(OFFSET dst)) +{ + return 0; +} + +/* attr rb_snum_t sp_inc @ branchunless(dst)(val)() */ +rb_snum_t +attr_sp_inc_branchunless(MAYBE_UNUSED(OFFSET dst)) +{ + return -1; +} + +/* attr rb_num_t width @ branchunless(dst)(val)() */ +rb_num_t +attr_width_branchunless(MAYBE_UNUSED(OFFSET dst)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ branchnil(dst)(val)() */ +enum ruby_vminsn_type +attr_bin_branchnil(MAYBE_UNUSED(OFFSET dst)) +{ + return BIN(branchnil); +} + +/* attr bool handles_sp @ branchnil(dst)(val)() */ +bool +attr_handles_sp_branchnil(MAYBE_UNUSED(OFFSET dst)) +{ + return false; +} + +/* attr bool leaf @ branchnil(dst)(val)() */ +bool +attr_leaf_branchnil(MAYBE_UNUSED(OFFSET dst)) +{ + return +#line 973 "insns.def" +false; +#line 6050 "insns_info.inc" +} + +/* attr const char* name @ branchnil(dst)(val)() */ +const char* +attr_name_branchnil(MAYBE_UNUSED(OFFSET dst)) +{ + return insn_name(BIN(branchnil)); +} + +/* attr rb_num_t open @ branchnil(dst)(val)() */ +rb_num_t +attr_open_branchnil(MAYBE_UNUSED(OFFSET dst)) +{ + return 1; +} + +/* attr rb_num_t popn @ branchnil(dst)(val)() */ +rb_num_t +attr_popn_branchnil(MAYBE_UNUSED(OFFSET dst)) +{ + return 1; +} + +/* attr rb_num_t retn @ branchnil(dst)(val)() */ +rb_num_t +attr_retn_branchnil(MAYBE_UNUSED(OFFSET dst)) +{ + return 0; +} + +/* attr rb_snum_t sp_inc @ branchnil(dst)(val)() */ +rb_snum_t +attr_sp_inc_branchnil(MAYBE_UNUSED(OFFSET dst)) +{ + return -1; +} + +/* attr rb_num_t width @ branchnil(dst)(val)() */ +rb_num_t +attr_width_branchnil(MAYBE_UNUSED(OFFSET dst)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ opt_getinlinecache(dst, ic)()(val) */ +enum ruby_vminsn_type +attr_bin_opt_getinlinecache( + MAYBE_UNUSED(OFFSET dst), + MAYBE_UNUSED(IC ic) +) +{ + return BIN(opt_getinlinecache); +} + +/* attr bool handles_sp @ opt_getinlinecache(dst, ic)()(val) */ +bool +attr_handles_sp_opt_getinlinecache( + MAYBE_UNUSED(OFFSET dst), + MAYBE_UNUSED(IC ic) +) +{ + return false; +} + +/* attr bool leaf @ opt_getinlinecache(dst, ic)()(val) */ +bool +attr_leaf_opt_getinlinecache( + MAYBE_UNUSED(OFFSET dst), + MAYBE_UNUSED(IC ic) +) +{ + return true; +} + +/* attr const char* name @ opt_getinlinecache(dst, ic)()(val) */ +const char* +attr_name_opt_getinlinecache( + MAYBE_UNUSED(OFFSET dst), + MAYBE_UNUSED(IC ic) +) +{ + return insn_name(BIN(opt_getinlinecache)); +} + +/* attr rb_num_t open @ opt_getinlinecache(dst, ic)()(val) */ +rb_num_t +attr_open_opt_getinlinecache( + MAYBE_UNUSED(OFFSET dst), + MAYBE_UNUSED(IC ic) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_getinlinecache(dst, ic)()(val) */ +rb_num_t +attr_popn_opt_getinlinecache( + MAYBE_UNUSED(OFFSET dst), + MAYBE_UNUSED(IC ic) +) +{ + return 0; +} + +/* attr rb_num_t retn @ opt_getinlinecache(dst, ic)()(val) */ +rb_num_t +attr_retn_opt_getinlinecache( + MAYBE_UNUSED(OFFSET dst), + MAYBE_UNUSED(IC ic) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_getinlinecache(dst, ic)()(val) */ +rb_snum_t +attr_sp_inc_opt_getinlinecache( + MAYBE_UNUSED(OFFSET dst), + MAYBE_UNUSED(IC ic) +) +{ + return 1; +} + +/* attr rb_num_t width @ opt_getinlinecache(dst, ic)()(val) */ +rb_num_t +attr_width_opt_getinlinecache( + MAYBE_UNUSED(OFFSET dst), + MAYBE_UNUSED(IC ic) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_setinlinecache(ic)(val)(val) */ +enum ruby_vminsn_type +attr_bin_opt_setinlinecache(MAYBE_UNUSED(IC ic)) +{ + return BIN(opt_setinlinecache); +} + +/* attr bool handles_sp @ opt_setinlinecache(ic)(val)(val) */ +bool +attr_handles_sp_opt_setinlinecache(MAYBE_UNUSED(IC ic)) +{ + return false; +} + +/* attr bool leaf @ opt_setinlinecache(ic)(val)(val) */ +bool +attr_leaf_opt_setinlinecache(MAYBE_UNUSED(IC ic)) +{ + return true; +} + +/* attr const char* name @ opt_setinlinecache(ic)(val)(val) */ +const char* +attr_name_opt_setinlinecache(MAYBE_UNUSED(IC ic)) +{ + return insn_name(BIN(opt_setinlinecache)); +} + +/* attr rb_num_t open @ opt_setinlinecache(ic)(val)(val) */ +rb_num_t +attr_open_opt_setinlinecache(MAYBE_UNUSED(IC ic)) +{ + return 1; +} + +/* attr rb_num_t popn @ opt_setinlinecache(ic)(val)(val) */ +rb_num_t +attr_popn_opt_setinlinecache(MAYBE_UNUSED(IC ic)) +{ + return 1; +} + +/* attr rb_num_t retn @ opt_setinlinecache(ic)(val)(val) */ +rb_num_t +attr_retn_opt_setinlinecache(MAYBE_UNUSED(IC ic)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_setinlinecache(ic)(val)(val) */ +rb_snum_t +attr_sp_inc_opt_setinlinecache(MAYBE_UNUSED(IC ic)) +{ + return 0; +} + +/* attr rb_num_t width @ opt_setinlinecache(ic)(val)(val) */ +rb_num_t +attr_width_opt_setinlinecache(MAYBE_UNUSED(IC ic)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ once(iseq, ise)()(val) */ +enum ruby_vminsn_type +attr_bin_once( + MAYBE_UNUSED(ISEQ iseq), + MAYBE_UNUSED(ISE ise) +) +{ + return BIN(once); +} + +/* attr bool handles_sp @ once(iseq, ise)()(val) */ +bool +attr_handles_sp_once( + MAYBE_UNUSED(ISEQ iseq), + MAYBE_UNUSED(ISE ise) +) +{ + return true; +} + +/* attr bool leaf @ once(iseq, ise)()(val) */ +bool +attr_leaf_once( + MAYBE_UNUSED(ISEQ iseq), + MAYBE_UNUSED(ISE ise) +) +{ + return false; +} + +/* attr const char* name @ once(iseq, ise)()(val) */ +const char* +attr_name_once( + MAYBE_UNUSED(ISEQ iseq), + MAYBE_UNUSED(ISE ise) +) +{ + return insn_name(BIN(once)); +} + +/* attr rb_num_t open @ once(iseq, ise)()(val) */ +rb_num_t +attr_open_once( + MAYBE_UNUSED(ISEQ iseq), + MAYBE_UNUSED(ISE ise) +) +{ + return 2; +} + +/* attr rb_num_t popn @ once(iseq, ise)()(val) */ +rb_num_t +attr_popn_once( + MAYBE_UNUSED(ISEQ iseq), + MAYBE_UNUSED(ISE ise) +) +{ + return 0; +} + +/* attr rb_num_t retn @ once(iseq, ise)()(val) */ +rb_num_t +attr_retn_once( + MAYBE_UNUSED(ISEQ iseq), + MAYBE_UNUSED(ISE ise) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ once(iseq, ise)()(val) */ +rb_snum_t +attr_sp_inc_once( + MAYBE_UNUSED(ISEQ iseq), + MAYBE_UNUSED(ISE ise) +) +{ + return 1; +} + +/* attr rb_num_t width @ once(iseq, ise)()(val) */ +rb_num_t +attr_width_once( + MAYBE_UNUSED(ISEQ iseq), + MAYBE_UNUSED(ISE ise) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_case_dispatch(hash, else_offset)(..., key)() */ +enum ruby_vminsn_type +attr_bin_opt_case_dispatch( + MAYBE_UNUSED(CDHASH hash), + MAYBE_UNUSED(OFFSET else_offset) +) +{ + return BIN(opt_case_dispatch); +} + +/* attr bool handles_sp @ opt_case_dispatch(hash, else_offset)(..., key)() */ +bool +attr_handles_sp_opt_case_dispatch( + MAYBE_UNUSED(CDHASH hash), + MAYBE_UNUSED(OFFSET else_offset) +) +{ + return false; +} + +/* attr bool leaf @ opt_case_dispatch(hash, else_offset)(..., key)() */ +bool +attr_leaf_opt_case_dispatch( + MAYBE_UNUSED(CDHASH hash), + MAYBE_UNUSED(OFFSET else_offset) +) +{ + return true; +} + +/* attr const char* name @ opt_case_dispatch(hash, else_offset)(..., key)() */ +const char* +attr_name_opt_case_dispatch( + MAYBE_UNUSED(CDHASH hash), + MAYBE_UNUSED(OFFSET else_offset) +) +{ + return insn_name(BIN(opt_case_dispatch)); +} + +/* attr rb_num_t open @ opt_case_dispatch(hash, else_offset)(..., key)() */ +rb_num_t +attr_open_opt_case_dispatch( + MAYBE_UNUSED(CDHASH hash), + MAYBE_UNUSED(OFFSET else_offset) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_case_dispatch(hash, else_offset)(..., key)() */ +rb_num_t +attr_popn_opt_case_dispatch( + MAYBE_UNUSED(CDHASH hash), + MAYBE_UNUSED(OFFSET else_offset) +) +{ + return 1; +} + +/* attr rb_num_t retn @ opt_case_dispatch(hash, else_offset)(..., key)() */ +rb_num_t +attr_retn_opt_case_dispatch( + MAYBE_UNUSED(CDHASH hash), + MAYBE_UNUSED(OFFSET else_offset) +) +{ + return 0; +} + +/* attr rb_snum_t sp_inc @ opt_case_dispatch(hash, else_offset)(..., key)() */ +rb_snum_t +attr_sp_inc_opt_case_dispatch( + MAYBE_UNUSED(CDHASH hash), + MAYBE_UNUSED(OFFSET else_offset) +) +{ + return +#line 1027 "insns.def" +-1; +#line 6418 "insns_info.inc" +} + +/* attr rb_num_t width @ opt_case_dispatch(hash, else_offset)(..., key)() */ +rb_num_t +attr_width_opt_case_dispatch( + MAYBE_UNUSED(CDHASH hash), + MAYBE_UNUSED(OFFSET else_offset) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_plus(ci, cc)(recv, obj)(val) */ +enum ruby_vminsn_type +attr_bin_opt_plus( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_plus); +} + +/* attr bool handles_sp @ opt_plus(ci, cc)(recv, obj)(val) */ +bool +attr_handles_sp_opt_plus( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_plus(ci, cc)(recv, obj)(val) */ +bool +attr_leaf_opt_plus( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return +#line 1046 "insns.def" +false; +#line 6461 "insns_info.inc" +} + +/* attr const char* name @ opt_plus(ci, cc)(recv, obj)(val) */ +const char* +attr_name_opt_plus( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_plus)); +} + +/* attr rb_num_t open @ opt_plus(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_open_opt_plus( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_plus(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_popn_opt_plus( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t retn @ opt_plus(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_retn_opt_plus( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_plus(ci, cc)(recv, obj)(val) */ +rb_snum_t +attr_sp_inc_opt_plus( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return -1; +} + +/* attr rb_num_t width @ opt_plus(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_width_opt_plus( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_minus(ci, cc)(recv, obj)(val) */ +enum ruby_vminsn_type +attr_bin_opt_minus( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_minus); +} + +/* attr bool handles_sp @ opt_minus(ci, cc)(recv, obj)(val) */ +bool +attr_handles_sp_opt_minus( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_minus(ci, cc)(recv, obj)(val) */ +bool +attr_leaf_opt_minus( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return true; +} + +/* attr const char* name @ opt_minus(ci, cc)(recv, obj)(val) */ +const char* +attr_name_opt_minus( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_minus)); +} + +/* attr rb_num_t open @ opt_minus(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_open_opt_minus( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_minus(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_popn_opt_minus( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t retn @ opt_minus(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_retn_opt_minus( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_minus(ci, cc)(recv, obj)(val) */ +rb_snum_t +attr_sp_inc_opt_minus( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return -1; +} + +/* attr rb_num_t width @ opt_minus(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_width_opt_minus( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_mult(ci, cc)(recv, obj)(val) */ +enum ruby_vminsn_type +attr_bin_opt_mult( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_mult); +} + +/* attr bool handles_sp @ opt_mult(ci, cc)(recv, obj)(val) */ +bool +attr_handles_sp_opt_mult( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_mult(ci, cc)(recv, obj)(val) */ +bool +attr_leaf_opt_mult( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return true; +} + +/* attr const char* name @ opt_mult(ci, cc)(recv, obj)(val) */ +const char* +attr_name_opt_mult( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_mult)); +} + +/* attr rb_num_t open @ opt_mult(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_open_opt_mult( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_mult(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_popn_opt_mult( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t retn @ opt_mult(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_retn_opt_mult( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_mult(ci, cc)(recv, obj)(val) */ +rb_snum_t +attr_sp_inc_opt_mult( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return -1; +} + +/* attr rb_num_t width @ opt_mult(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_width_opt_mult( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_div(ci, cc)(recv, obj)(val) */ +enum ruby_vminsn_type +attr_bin_opt_div( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_div); +} + +/* attr bool handles_sp @ opt_div(ci, cc)(recv, obj)(val) */ +bool +attr_handles_sp_opt_div( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_div(ci, cc)(recv, obj)(val) */ +bool +attr_leaf_opt_div( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return true; +} + +/* attr const char* name @ opt_div(ci, cc)(recv, obj)(val) */ +const char* +attr_name_opt_div( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_div)); +} + +/* attr rb_num_t open @ opt_div(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_open_opt_div( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_div(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_popn_opt_div( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t retn @ opt_div(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_retn_opt_div( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_div(ci, cc)(recv, obj)(val) */ +rb_snum_t +attr_sp_inc_opt_div( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return -1; +} + +/* attr rb_num_t width @ opt_div(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_width_opt_div( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_mod(ci, cc)(recv, obj)(val) */ +enum ruby_vminsn_type +attr_bin_opt_mod( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_mod); +} + +/* attr bool handles_sp @ opt_mod(ci, cc)(recv, obj)(val) */ +bool +attr_handles_sp_opt_mod( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_mod(ci, cc)(recv, obj)(val) */ +bool +attr_leaf_opt_mod( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return true; +} + +/* attr const char* name @ opt_mod(ci, cc)(recv, obj)(val) */ +const char* +attr_name_opt_mod( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_mod)); +} + +/* attr rb_num_t open @ opt_mod(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_open_opt_mod( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_mod(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_popn_opt_mod( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t retn @ opt_mod(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_retn_opt_mod( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_mod(ci, cc)(recv, obj)(val) */ +rb_snum_t +attr_sp_inc_opt_mod( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return -1; +} + +/* attr rb_num_t width @ opt_mod(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_width_opt_mod( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_eq(ci, cc)(recv, obj)(val) */ +enum ruby_vminsn_type +attr_bin_opt_eq( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_eq); +} + +/* attr bool handles_sp @ opt_eq(ci, cc)(recv, obj)(val) */ +bool +attr_handles_sp_opt_eq( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_eq(ci, cc)(recv, obj)(val) */ +bool +attr_leaf_opt_eq( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return +#line 1120 "insns.def" +false; +#line 6914 "insns_info.inc" +} + +/* attr const char* name @ opt_eq(ci, cc)(recv, obj)(val) */ +const char* +attr_name_opt_eq( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_eq)); +} + +/* attr rb_num_t open @ opt_eq(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_open_opt_eq( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_eq(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_popn_opt_eq( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t retn @ opt_eq(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_retn_opt_eq( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_eq(ci, cc)(recv, obj)(val) */ +rb_snum_t +attr_sp_inc_opt_eq( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return -1; +} + +/* attr rb_num_t width @ opt_eq(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_width_opt_eq( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_neq(ci_eq, cc_eq, ci, cc)(recv, obj)(val) */ +enum ruby_vminsn_type +attr_bin_opt_neq( + MAYBE_UNUSED(CALL_INFO ci_eq), + MAYBE_UNUSED(CALL_CACHE cc_eq), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_neq); +} + +/* attr bool handles_sp @ opt_neq(ci_eq, cc_eq, ci, cc)(recv, obj)(val) */ +bool +attr_handles_sp_opt_neq( + MAYBE_UNUSED(CALL_INFO ci_eq), + MAYBE_UNUSED(CALL_CACHE cc_eq), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_neq(ci_eq, cc_eq, ci, cc)(recv, obj)(val) */ +bool +attr_leaf_opt_neq( + MAYBE_UNUSED(CALL_INFO ci_eq), + MAYBE_UNUSED(CALL_CACHE cc_eq), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return +#line 1136 "insns.def" +false; +#line 7013 "insns_info.inc" +} + +/* attr const char* name @ opt_neq(ci_eq, cc_eq, ci, cc)(recv, obj)(val) */ +const char* +attr_name_opt_neq( + MAYBE_UNUSED(CALL_INFO ci_eq), + MAYBE_UNUSED(CALL_CACHE cc_eq), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_neq)); +} + +/* attr rb_num_t open @ opt_neq(ci_eq, cc_eq, ci, cc)(recv, obj)(val) */ +rb_num_t +attr_open_opt_neq( + MAYBE_UNUSED(CALL_INFO ci_eq), + MAYBE_UNUSED(CALL_CACHE cc_eq), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 4; +} + +/* attr rb_num_t popn @ opt_neq(ci_eq, cc_eq, ci, cc)(recv, obj)(val) */ +rb_num_t +attr_popn_opt_neq( + MAYBE_UNUSED(CALL_INFO ci_eq), + MAYBE_UNUSED(CALL_CACHE cc_eq), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t retn @ opt_neq(ci_eq, cc_eq, ci, cc)(recv, obj)(val) */ +rb_num_t +attr_retn_opt_neq( + MAYBE_UNUSED(CALL_INFO ci_eq), + MAYBE_UNUSED(CALL_CACHE cc_eq), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_neq(ci_eq, cc_eq, ci, cc)(recv, obj)(val) */ +rb_snum_t +attr_sp_inc_opt_neq( + MAYBE_UNUSED(CALL_INFO ci_eq), + MAYBE_UNUSED(CALL_CACHE cc_eq), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return -1; +} + +/* attr rb_num_t width @ opt_neq(ci_eq, cc_eq, ci, cc)(recv, obj)(val) */ +rb_num_t +attr_width_opt_neq( + MAYBE_UNUSED(CALL_INFO ci_eq), + MAYBE_UNUSED(CALL_CACHE cc_eq), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 5; +} + +/* attr enum ruby_vminsn_type bin @ opt_lt(ci, cc)(recv, obj)(val) */ +enum ruby_vminsn_type +attr_bin_opt_lt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_lt); +} + +/* attr bool handles_sp @ opt_lt(ci, cc)(recv, obj)(val) */ +bool +attr_handles_sp_opt_lt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_lt(ci, cc)(recv, obj)(val) */ +bool +attr_leaf_opt_lt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return true; +} + +/* attr const char* name @ opt_lt(ci, cc)(recv, obj)(val) */ +const char* +attr_name_opt_lt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_lt)); +} + +/* attr rb_num_t open @ opt_lt(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_open_opt_lt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_lt(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_popn_opt_lt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t retn @ opt_lt(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_retn_opt_lt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_lt(ci, cc)(recv, obj)(val) */ +rb_snum_t +attr_sp_inc_opt_lt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return -1; +} + +/* attr rb_num_t width @ opt_lt(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_width_opt_lt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_le(ci, cc)(recv, obj)(val) */ +enum ruby_vminsn_type +attr_bin_opt_le( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_le); +} + +/* attr bool handles_sp @ opt_le(ci, cc)(recv, obj)(val) */ +bool +attr_handles_sp_opt_le( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_le(ci, cc)(recv, obj)(val) */ +bool +attr_leaf_opt_le( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return true; +} + +/* attr const char* name @ opt_le(ci, cc)(recv, obj)(val) */ +const char* +attr_name_opt_le( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_le)); +} + +/* attr rb_num_t open @ opt_le(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_open_opt_le( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_le(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_popn_opt_le( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t retn @ opt_le(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_retn_opt_le( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_le(ci, cc)(recv, obj)(val) */ +rb_snum_t +attr_sp_inc_opt_le( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return -1; +} + +/* attr rb_num_t width @ opt_le(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_width_opt_le( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_gt(ci, cc)(recv, obj)(val) */ +enum ruby_vminsn_type +attr_bin_opt_gt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_gt); +} + +/* attr bool handles_sp @ opt_gt(ci, cc)(recv, obj)(val) */ +bool +attr_handles_sp_opt_gt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_gt(ci, cc)(recv, obj)(val) */ +bool +attr_leaf_opt_gt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return true; +} + +/* attr const char* name @ opt_gt(ci, cc)(recv, obj)(val) */ +const char* +attr_name_opt_gt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_gt)); +} + +/* attr rb_num_t open @ opt_gt(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_open_opt_gt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_gt(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_popn_opt_gt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t retn @ opt_gt(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_retn_opt_gt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_gt(ci, cc)(recv, obj)(val) */ +rb_snum_t +attr_sp_inc_opt_gt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return -1; +} + +/* attr rb_num_t width @ opt_gt(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_width_opt_gt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_ge(ci, cc)(recv, obj)(val) */ +enum ruby_vminsn_type +attr_bin_opt_ge( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_ge); +} + +/* attr bool handles_sp @ opt_ge(ci, cc)(recv, obj)(val) */ +bool +attr_handles_sp_opt_ge( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_ge(ci, cc)(recv, obj)(val) */ +bool +attr_leaf_opt_ge( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return true; +} + +/* attr const char* name @ opt_ge(ci, cc)(recv, obj)(val) */ +const char* +attr_name_opt_ge( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_ge)); +} + +/* attr rb_num_t open @ opt_ge(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_open_opt_ge( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_ge(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_popn_opt_ge( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t retn @ opt_ge(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_retn_opt_ge( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_ge(ci, cc)(recv, obj)(val) */ +rb_snum_t +attr_sp_inc_opt_ge( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return -1; +} + +/* attr rb_num_t width @ opt_ge(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_width_opt_ge( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_ltlt(ci, cc)(recv, obj)(val) */ +enum ruby_vminsn_type +attr_bin_opt_ltlt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_ltlt); +} + +/* attr bool handles_sp @ opt_ltlt(ci, cc)(recv, obj)(val) */ +bool +attr_handles_sp_opt_ltlt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_ltlt(ci, cc)(recv, obj)(val) */ +bool +attr_leaf_opt_ltlt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return true; +} + +/* attr const char* name @ opt_ltlt(ci, cc)(recv, obj)(val) */ +const char* +attr_name_opt_ltlt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_ltlt)); +} + +/* attr rb_num_t open @ opt_ltlt(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_open_opt_ltlt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_ltlt(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_popn_opt_ltlt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t retn @ opt_ltlt(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_retn_opt_ltlt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_ltlt(ci, cc)(recv, obj)(val) */ +rb_snum_t +attr_sp_inc_opt_ltlt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return -1; +} + +/* attr rb_num_t width @ opt_ltlt(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_width_opt_ltlt( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_and(ci, cc)(recv, obj)(val) */ +enum ruby_vminsn_type +attr_bin_opt_and( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_and); +} + +/* attr bool handles_sp @ opt_and(ci, cc)(recv, obj)(val) */ +bool +attr_handles_sp_opt_and( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_and(ci, cc)(recv, obj)(val) */ +bool +attr_leaf_opt_and( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return true; +} + +/* attr const char* name @ opt_and(ci, cc)(recv, obj)(val) */ +const char* +attr_name_opt_and( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_and)); +} + +/* attr rb_num_t open @ opt_and(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_open_opt_and( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_and(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_popn_opt_and( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t retn @ opt_and(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_retn_opt_and( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_and(ci, cc)(recv, obj)(val) */ +rb_snum_t +attr_sp_inc_opt_and( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return -1; +} + +/* attr rb_num_t width @ opt_and(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_width_opt_and( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_or(ci, cc)(recv, obj)(val) */ +enum ruby_vminsn_type +attr_bin_opt_or( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_or); +} + +/* attr bool handles_sp @ opt_or(ci, cc)(recv, obj)(val) */ +bool +attr_handles_sp_opt_or( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_or(ci, cc)(recv, obj)(val) */ +bool +attr_leaf_opt_or( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return true; +} + +/* attr const char* name @ opt_or(ci, cc)(recv, obj)(val) */ +const char* +attr_name_opt_or( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_or)); +} + +/* attr rb_num_t open @ opt_or(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_open_opt_or( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_or(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_popn_opt_or( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t retn @ opt_or(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_retn_opt_or( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_or(ci, cc)(recv, obj)(val) */ +rb_snum_t +attr_sp_inc_opt_or( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return -1; +} + +/* attr rb_num_t width @ opt_or(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_width_opt_or( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_aref(ci, cc)(recv, obj)(val) */ +enum ruby_vminsn_type +attr_bin_opt_aref( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_aref); +} + +/* attr bool handles_sp @ opt_aref(ci, cc)(recv, obj)(val) */ +bool +attr_handles_sp_opt_aref( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_aref(ci, cc)(recv, obj)(val) */ +bool +attr_leaf_opt_aref( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return +#line 1253 "insns.def" +false; +#line 7748 "insns_info.inc" +} + +/* attr const char* name @ opt_aref(ci, cc)(recv, obj)(val) */ +const char* +attr_name_opt_aref( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_aref)); +} + +/* attr rb_num_t open @ opt_aref(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_open_opt_aref( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_aref(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_popn_opt_aref( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t retn @ opt_aref(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_retn_opt_aref( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_aref(ci, cc)(recv, obj)(val) */ +rb_snum_t +attr_sp_inc_opt_aref( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return -1; +} + +/* attr rb_num_t width @ opt_aref(ci, cc)(recv, obj)(val) */ +rb_num_t +attr_width_opt_aref( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_aset(ci, cc)(recv, obj, set)(val) */ +enum ruby_vminsn_type +attr_bin_opt_aset( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_aset); +} + +/* attr bool handles_sp @ opt_aset(ci, cc)(recv, obj, set)(val) */ +bool +attr_handles_sp_opt_aset( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_aset(ci, cc)(recv, obj, set)(val) */ +bool +attr_leaf_opt_aset( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return +#line 1270 "insns.def" +false; +#line 7841 "insns_info.inc" +} + +/* attr const char* name @ opt_aset(ci, cc)(recv, obj, set)(val) */ +const char* +attr_name_opt_aset( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_aset)); +} + +/* attr rb_num_t open @ opt_aset(ci, cc)(recv, obj, set)(val) */ +rb_num_t +attr_open_opt_aset( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_aset(ci, cc)(recv, obj, set)(val) */ +rb_num_t +attr_popn_opt_aset( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr rb_num_t retn @ opt_aset(ci, cc)(recv, obj, set)(val) */ +rb_num_t +attr_retn_opt_aset( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_aset(ci, cc)(recv, obj, set)(val) */ +rb_snum_t +attr_sp_inc_opt_aset( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return -2; +} + +/* attr rb_num_t width @ opt_aset(ci, cc)(recv, obj, set)(val) */ +rb_num_t +attr_width_opt_aset( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_aset_with(key, ci, cc)(recv, val)(val) */ +enum ruby_vminsn_type +attr_bin_opt_aset_with( + MAYBE_UNUSED(VALUE key), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_aset_with); +} + +/* attr bool handles_sp @ opt_aset_with(key, ci, cc)(recv, val)(val) */ +bool +attr_handles_sp_opt_aset_with( + MAYBE_UNUSED(VALUE key), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_aset_with(key, ci, cc)(recv, val)(val) */ +bool +attr_leaf_opt_aset_with( + MAYBE_UNUSED(VALUE key), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return +#line 1286 "insns.def" +false; +#line 7937 "insns_info.inc" +} + +/* attr const char* name @ opt_aset_with(key, ci, cc)(recv, val)(val) */ +const char* +attr_name_opt_aset_with( + MAYBE_UNUSED(VALUE key), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_aset_with)); +} + +/* attr rb_num_t open @ opt_aset_with(key, ci, cc)(recv, val)(val) */ +rb_num_t +attr_open_opt_aset_with( + MAYBE_UNUSED(VALUE key), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr rb_num_t popn @ opt_aset_with(key, ci, cc)(recv, val)(val) */ +rb_num_t +attr_popn_opt_aset_with( + MAYBE_UNUSED(VALUE key), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t retn @ opt_aset_with(key, ci, cc)(recv, val)(val) */ +rb_num_t +attr_retn_opt_aset_with( + MAYBE_UNUSED(VALUE key), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_aset_with(key, ci, cc)(recv, val)(val) */ +rb_snum_t +attr_sp_inc_opt_aset_with( + MAYBE_UNUSED(VALUE key), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return -1; +} + +/* attr rb_num_t width @ opt_aset_with(key, ci, cc)(recv, val)(val) */ +rb_num_t +attr_width_opt_aset_with( + MAYBE_UNUSED(VALUE key), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 4; +} + +/* attr enum ruby_vminsn_type bin @ opt_aref_with(key, ci, cc)(recv)(val) */ +enum ruby_vminsn_type +attr_bin_opt_aref_with( + MAYBE_UNUSED(VALUE key), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_aref_with); +} + +/* attr bool handles_sp @ opt_aref_with(key, ci, cc)(recv)(val) */ +bool +attr_handles_sp_opt_aref_with( + MAYBE_UNUSED(VALUE key), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_aref_with(key, ci, cc)(recv)(val) */ +bool +attr_leaf_opt_aref_with( + MAYBE_UNUSED(VALUE key), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return +#line 1309 "insns.def" +false; +#line 8039 "insns_info.inc" +} + +/* attr const char* name @ opt_aref_with(key, ci, cc)(recv)(val) */ +const char* +attr_name_opt_aref_with( + MAYBE_UNUSED(VALUE key), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_aref_with)); +} + +/* attr rb_num_t open @ opt_aref_with(key, ci, cc)(recv)(val) */ +rb_num_t +attr_open_opt_aref_with( + MAYBE_UNUSED(VALUE key), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr rb_num_t popn @ opt_aref_with(key, ci, cc)(recv)(val) */ +rb_num_t +attr_popn_opt_aref_with( + MAYBE_UNUSED(VALUE key), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_num_t retn @ opt_aref_with(key, ci, cc)(recv)(val) */ +rb_num_t +attr_retn_opt_aref_with( + MAYBE_UNUSED(VALUE key), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_aref_with(key, ci, cc)(recv)(val) */ +rb_snum_t +attr_sp_inc_opt_aref_with( + MAYBE_UNUSED(VALUE key), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 0; +} + +/* attr rb_num_t width @ opt_aref_with(key, ci, cc)(recv)(val) */ +rb_num_t +attr_width_opt_aref_with( + MAYBE_UNUSED(VALUE key), + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 4; +} + +/* attr enum ruby_vminsn_type bin @ opt_length(ci, cc)(recv)(val) */ +enum ruby_vminsn_type +attr_bin_opt_length( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_length); +} + +/* attr bool handles_sp @ opt_length(ci, cc)(recv)(val) */ +bool +attr_handles_sp_opt_length( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_length(ci, cc)(recv)(val) */ +bool +attr_leaf_opt_length( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return true; +} + +/* attr const char* name @ opt_length(ci, cc)(recv)(val) */ +const char* +attr_name_opt_length( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_length)); +} + +/* attr rb_num_t open @ opt_length(ci, cc)(recv)(val) */ +rb_num_t +attr_open_opt_length( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_length(ci, cc)(recv)(val) */ +rb_num_t +attr_popn_opt_length( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_num_t retn @ opt_length(ci, cc)(recv)(val) */ +rb_num_t +attr_retn_opt_length( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_length(ci, cc)(recv)(val) */ +rb_snum_t +attr_sp_inc_opt_length( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 0; +} + +/* attr rb_num_t width @ opt_length(ci, cc)(recv)(val) */ +rb_num_t +attr_width_opt_length( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_size(ci, cc)(recv)(val) */ +enum ruby_vminsn_type +attr_bin_opt_size( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_size); +} + +/* attr bool handles_sp @ opt_size(ci, cc)(recv)(val) */ +bool +attr_handles_sp_opt_size( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_size(ci, cc)(recv)(val) */ +bool +attr_leaf_opt_size( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return true; +} + +/* attr const char* name @ opt_size(ci, cc)(recv)(val) */ +const char* +attr_name_opt_size( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_size)); +} + +/* attr rb_num_t open @ opt_size(ci, cc)(recv)(val) */ +rb_num_t +attr_open_opt_size( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_size(ci, cc)(recv)(val) */ +rb_num_t +attr_popn_opt_size( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_num_t retn @ opt_size(ci, cc)(recv)(val) */ +rb_num_t +attr_retn_opt_size( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_size(ci, cc)(recv)(val) */ +rb_snum_t +attr_sp_inc_opt_size( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 0; +} + +/* attr rb_num_t width @ opt_size(ci, cc)(recv)(val) */ +rb_num_t +attr_width_opt_size( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_empty_p(ci, cc)(recv)(val) */ +enum ruby_vminsn_type +attr_bin_opt_empty_p( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_empty_p); +} + +/* attr bool handles_sp @ opt_empty_p(ci, cc)(recv)(val) */ +bool +attr_handles_sp_opt_empty_p( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_empty_p(ci, cc)(recv)(val) */ +bool +attr_leaf_opt_empty_p( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return true; +} + +/* attr const char* name @ opt_empty_p(ci, cc)(recv)(val) */ +const char* +attr_name_opt_empty_p( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_empty_p)); +} + +/* attr rb_num_t open @ opt_empty_p(ci, cc)(recv)(val) */ +rb_num_t +attr_open_opt_empty_p( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_empty_p(ci, cc)(recv)(val) */ +rb_num_t +attr_popn_opt_empty_p( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_num_t retn @ opt_empty_p(ci, cc)(recv)(val) */ +rb_num_t +attr_retn_opt_empty_p( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_empty_p(ci, cc)(recv)(val) */ +rb_snum_t +attr_sp_inc_opt_empty_p( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 0; +} + +/* attr rb_num_t width @ opt_empty_p(ci, cc)(recv)(val) */ +rb_num_t +attr_width_opt_empty_p( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_succ(ci, cc)(recv)(val) */ +enum ruby_vminsn_type +attr_bin_opt_succ( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_succ); +} + +/* attr bool handles_sp @ opt_succ(ci, cc)(recv)(val) */ +bool +attr_handles_sp_opt_succ( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_succ(ci, cc)(recv)(val) */ +bool +attr_leaf_opt_succ( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return true; +} + +/* attr const char* name @ opt_succ(ci, cc)(recv)(val) */ +const char* +attr_name_opt_succ( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_succ)); +} + +/* attr rb_num_t open @ opt_succ(ci, cc)(recv)(val) */ +rb_num_t +attr_open_opt_succ( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_succ(ci, cc)(recv)(val) */ +rb_num_t +attr_popn_opt_succ( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_num_t retn @ opt_succ(ci, cc)(recv)(val) */ +rb_num_t +attr_retn_opt_succ( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_succ(ci, cc)(recv)(val) */ +rb_snum_t +attr_sp_inc_opt_succ( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 0; +} + +/* attr rb_num_t width @ opt_succ(ci, cc)(recv)(val) */ +rb_num_t +attr_width_opt_succ( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_not(ci, cc)(recv)(val) */ +enum ruby_vminsn_type +attr_bin_opt_not( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_not); +} + +/* attr bool handles_sp @ opt_not(ci, cc)(recv)(val) */ +bool +attr_handles_sp_opt_not( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_not(ci, cc)(recv)(val) */ +bool +attr_leaf_opt_not( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return true; +} + +/* attr const char* name @ opt_not(ci, cc)(recv)(val) */ +const char* +attr_name_opt_not( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_not)); +} + +/* attr rb_num_t open @ opt_not(ci, cc)(recv)(val) */ +rb_num_t +attr_open_opt_not( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_not(ci, cc)(recv)(val) */ +rb_num_t +attr_popn_opt_not( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_num_t retn @ opt_not(ci, cc)(recv)(val) */ +rb_num_t +attr_retn_opt_not( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_not(ci, cc)(recv)(val) */ +rb_snum_t +attr_sp_inc_opt_not( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 0; +} + +/* attr rb_num_t width @ opt_not(ci, cc)(recv)(val) */ +rb_num_t +attr_width_opt_not( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_regexpmatch1(recv)(obj)(val) */ +enum ruby_vminsn_type +attr_bin_opt_regexpmatch1(MAYBE_UNUSED(VALUE recv)) +{ + return BIN(opt_regexpmatch1); +} + +/* attr bool handles_sp @ opt_regexpmatch1(recv)(obj)(val) */ +bool +attr_handles_sp_opt_regexpmatch1(MAYBE_UNUSED(VALUE recv)) +{ + return false; +} + +/* attr bool leaf @ opt_regexpmatch1(recv)(obj)(val) */ +bool +attr_leaf_opt_regexpmatch1(MAYBE_UNUSED(VALUE recv)) +{ + return +#line 1397 "insns.def" +BASIC_OP_UNREDEFINED_P(BOP_MATCH, REGEXP_REDEFINED_OP_FLAG); +#line 8579 "insns_info.inc" +} + +/* attr const char* name @ opt_regexpmatch1(recv)(obj)(val) */ +const char* +attr_name_opt_regexpmatch1(MAYBE_UNUSED(VALUE recv)) +{ + return insn_name(BIN(opt_regexpmatch1)); +} + +/* attr rb_num_t open @ opt_regexpmatch1(recv)(obj)(val) */ +rb_num_t +attr_open_opt_regexpmatch1(MAYBE_UNUSED(VALUE recv)) +{ + return 1; +} + +/* attr rb_num_t popn @ opt_regexpmatch1(recv)(obj)(val) */ +rb_num_t +attr_popn_opt_regexpmatch1(MAYBE_UNUSED(VALUE recv)) +{ + return 1; +} + +/* attr rb_num_t retn @ opt_regexpmatch1(recv)(obj)(val) */ +rb_num_t +attr_retn_opt_regexpmatch1(MAYBE_UNUSED(VALUE recv)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_regexpmatch1(recv)(obj)(val) */ +rb_snum_t +attr_sp_inc_opt_regexpmatch1(MAYBE_UNUSED(VALUE recv)) +{ + return 0; +} + +/* attr rb_num_t width @ opt_regexpmatch1(recv)(obj)(val) */ +rb_num_t +attr_width_opt_regexpmatch1(MAYBE_UNUSED(VALUE recv)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ opt_regexpmatch2(ci, cc)(obj2, obj1)(val) */ +enum ruby_vminsn_type +attr_bin_opt_regexpmatch2( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return BIN(opt_regexpmatch2); +} + +/* attr bool handles_sp @ opt_regexpmatch2(ci, cc)(obj2, obj1)(val) */ +bool +attr_handles_sp_opt_regexpmatch2( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return false; +} + +/* attr bool leaf @ opt_regexpmatch2(ci, cc)(obj2, obj1)(val) */ +bool +attr_leaf_opt_regexpmatch2( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return true; +} + +/* attr const char* name @ opt_regexpmatch2(ci, cc)(obj2, obj1)(val) */ +const char* +attr_name_opt_regexpmatch2( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return insn_name(BIN(opt_regexpmatch2)); +} + +/* attr rb_num_t open @ opt_regexpmatch2(ci, cc)(obj2, obj1)(val) */ +rb_num_t +attr_open_opt_regexpmatch2( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t popn @ opt_regexpmatch2(ci, cc)(obj2, obj1)(val) */ +rb_num_t +attr_popn_opt_regexpmatch2( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 2; +} + +/* attr rb_num_t retn @ opt_regexpmatch2(ci, cc)(obj2, obj1)(val) */ +rb_num_t +attr_retn_opt_regexpmatch2( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ opt_regexpmatch2(ci, cc)(obj2, obj1)(val) */ +rb_snum_t +attr_sp_inc_opt_regexpmatch2( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return -1; +} + +/* attr rb_num_t width @ opt_regexpmatch2(ci, cc)(obj2, obj1)(val) */ +rb_num_t +attr_width_opt_regexpmatch2( + MAYBE_UNUSED(CALL_INFO ci), + MAYBE_UNUSED(CALL_CACHE cc) +) +{ + return 3; +} + +/* attr enum ruby_vminsn_type bin @ opt_call_c_function(funcptr)()() */ +enum ruby_vminsn_type +attr_bin_opt_call_c_function(MAYBE_UNUSED(rb_insn_func_t funcptr)) +{ + return BIN(opt_call_c_function); +} + +/* attr bool handles_sp @ opt_call_c_function(funcptr)()() */ +bool +attr_handles_sp_opt_call_c_function(MAYBE_UNUSED(rb_insn_func_t funcptr)) +{ + return +#line 1423 "insns.def" +true; +#line 8728 "insns_info.inc" +} + +/* attr bool leaf @ opt_call_c_function(funcptr)()() */ +bool +attr_leaf_opt_call_c_function(MAYBE_UNUSED(rb_insn_func_t funcptr)) +{ + return +#line 1422 "insns.def" +false; +#line 8738 "insns_info.inc" +} + +/* attr const char* name @ opt_call_c_function(funcptr)()() */ +const char* +attr_name_opt_call_c_function(MAYBE_UNUSED(rb_insn_func_t funcptr)) +{ + return insn_name(BIN(opt_call_c_function)); +} + +/* attr rb_num_t open @ opt_call_c_function(funcptr)()() */ +rb_num_t +attr_open_opt_call_c_function(MAYBE_UNUSED(rb_insn_func_t funcptr)) +{ + return 1; +} + +/* attr rb_num_t popn @ opt_call_c_function(funcptr)()() */ +rb_num_t +attr_popn_opt_call_c_function(MAYBE_UNUSED(rb_insn_func_t funcptr)) +{ + return 0; +} + +/* attr rb_num_t retn @ opt_call_c_function(funcptr)()() */ +rb_num_t +attr_retn_opt_call_c_function(MAYBE_UNUSED(rb_insn_func_t funcptr)) +{ + return 0; +} + +/* attr rb_snum_t sp_inc @ opt_call_c_function(funcptr)()() */ +rb_snum_t +attr_sp_inc_opt_call_c_function(MAYBE_UNUSED(rb_insn_func_t funcptr)) +{ + return 0; +} + +/* attr rb_num_t width @ opt_call_c_function(funcptr)()() */ +rb_num_t +attr_width_opt_call_c_function(MAYBE_UNUSED(rb_insn_func_t funcptr)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ bitblt()()(ret) */ +enum ruby_vminsn_type +attr_bin_bitblt(void) +{ + return BIN(bitblt); +} + +/* attr bool handles_sp @ bitblt()()(ret) */ +bool +attr_handles_sp_bitblt(void) +{ + return false; +} + +/* attr bool leaf @ bitblt()()(ret) */ +bool +attr_leaf_bitblt(void) +{ + return true; +} + +/* attr const char* name @ bitblt()()(ret) */ +const char* +attr_name_bitblt(void) +{ + return insn_name(BIN(bitblt)); +} + +/* attr rb_num_t open @ bitblt()()(ret) */ +rb_num_t +attr_open_bitblt(void) +{ + return 0; +} + +/* attr rb_num_t popn @ bitblt()()(ret) */ +rb_num_t +attr_popn_bitblt(void) +{ + return 0; +} + +/* attr rb_num_t retn @ bitblt()()(ret) */ +rb_num_t +attr_retn_bitblt(void) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ bitblt()()(ret) */ +rb_snum_t +attr_sp_inc_bitblt(void) +{ + return 1; +} + +/* attr rb_num_t width @ bitblt()()(ret) */ +rb_num_t +attr_width_bitblt(void) +{ + return 1; +} + +/* attr enum ruby_vminsn_type bin @ answer()()(ret) */ +enum ruby_vminsn_type +attr_bin_answer(void) +{ + return BIN(answer); +} + +/* attr bool handles_sp @ answer()()(ret) */ +bool +attr_handles_sp_answer(void) +{ + return false; +} + +/* attr bool leaf @ answer()()(ret) */ +bool +attr_leaf_answer(void) +{ + return true; +} + +/* attr const char* name @ answer()()(ret) */ +const char* +attr_name_answer(void) +{ + return insn_name(BIN(answer)); +} + +/* attr rb_num_t open @ answer()()(ret) */ +rb_num_t +attr_open_answer(void) +{ + return 0; +} + +/* attr rb_num_t popn @ answer()()(ret) */ +rb_num_t +attr_popn_answer(void) +{ + return 0; +} + +/* attr rb_num_t retn @ answer()()(ret) */ +rb_num_t +attr_retn_answer(void) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ answer()()(ret) */ +rb_snum_t +attr_sp_inc_answer(void) +{ + return 1; +} + +/* attr rb_num_t width @ answer()()(ret) */ +rb_num_t +attr_width_answer(void) +{ + return 1; +} + +/* attr enum ruby_vminsn_type bin @ getlocal_WC_0(idx)()(val) */ +enum ruby_vminsn_type +attr_bin_getlocal_WC_0(MAYBE_UNUSED(lindex_t idx)) +{ + return BIN(getlocal_WC_0); +} + +/* attr bool handles_sp @ getlocal_WC_0(idx)()(val) */ +bool +attr_handles_sp_getlocal_WC_0(MAYBE_UNUSED(lindex_t idx)) +{ + return false; +} + +/* attr bool leaf @ getlocal_WC_0(idx)()(val) */ +bool +attr_leaf_getlocal_WC_0(MAYBE_UNUSED(lindex_t idx)) +{ + return true; +} + +/* attr const char* name @ getlocal_WC_0(idx)()(val) */ +const char* +attr_name_getlocal_WC_0(MAYBE_UNUSED(lindex_t idx)) +{ + return insn_name(BIN(getlocal_WC_0)); +} + +/* attr rb_num_t open @ getlocal_WC_0(idx)()(val) */ +rb_num_t +attr_open_getlocal_WC_0(MAYBE_UNUSED(lindex_t idx)) +{ + return 1; +} + +/* attr rb_num_t popn @ getlocal_WC_0(idx)()(val) */ +rb_num_t +attr_popn_getlocal_WC_0(MAYBE_UNUSED(lindex_t idx)) +{ + return 0; +} + +/* attr rb_num_t retn @ getlocal_WC_0(idx)()(val) */ +rb_num_t +attr_retn_getlocal_WC_0(MAYBE_UNUSED(lindex_t idx)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ getlocal_WC_0(idx)()(val) */ +rb_snum_t +attr_sp_inc_getlocal_WC_0(MAYBE_UNUSED(lindex_t idx)) +{ + return 1; +} + +/* attr rb_num_t width @ getlocal_WC_0(idx)()(val) */ +rb_num_t +attr_width_getlocal_WC_0(MAYBE_UNUSED(lindex_t idx)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ getlocal_WC_1(idx)()(val) */ +enum ruby_vminsn_type +attr_bin_getlocal_WC_1(MAYBE_UNUSED(lindex_t idx)) +{ + return BIN(getlocal_WC_1); +} + +/* attr bool handles_sp @ getlocal_WC_1(idx)()(val) */ +bool +attr_handles_sp_getlocal_WC_1(MAYBE_UNUSED(lindex_t idx)) +{ + return false; +} + +/* attr bool leaf @ getlocal_WC_1(idx)()(val) */ +bool +attr_leaf_getlocal_WC_1(MAYBE_UNUSED(lindex_t idx)) +{ + return true; +} + +/* attr const char* name @ getlocal_WC_1(idx)()(val) */ +const char* +attr_name_getlocal_WC_1(MAYBE_UNUSED(lindex_t idx)) +{ + return insn_name(BIN(getlocal_WC_1)); +} + +/* attr rb_num_t open @ getlocal_WC_1(idx)()(val) */ +rb_num_t +attr_open_getlocal_WC_1(MAYBE_UNUSED(lindex_t idx)) +{ + return 1; +} + +/* attr rb_num_t popn @ getlocal_WC_1(idx)()(val) */ +rb_num_t +attr_popn_getlocal_WC_1(MAYBE_UNUSED(lindex_t idx)) +{ + return 0; +} + +/* attr rb_num_t retn @ getlocal_WC_1(idx)()(val) */ +rb_num_t +attr_retn_getlocal_WC_1(MAYBE_UNUSED(lindex_t idx)) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ getlocal_WC_1(idx)()(val) */ +rb_snum_t +attr_sp_inc_getlocal_WC_1(MAYBE_UNUSED(lindex_t idx)) +{ + return 1; +} + +/* attr rb_num_t width @ getlocal_WC_1(idx)()(val) */ +rb_num_t +attr_width_getlocal_WC_1(MAYBE_UNUSED(lindex_t idx)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ setlocal_WC_0(idx)(val)() */ +enum ruby_vminsn_type +attr_bin_setlocal_WC_0(MAYBE_UNUSED(lindex_t idx)) +{ + return BIN(setlocal_WC_0); +} + +/* attr bool handles_sp @ setlocal_WC_0(idx)(val)() */ +bool +attr_handles_sp_setlocal_WC_0(MAYBE_UNUSED(lindex_t idx)) +{ + return false; +} + +/* attr bool leaf @ setlocal_WC_0(idx)(val)() */ +bool +attr_leaf_setlocal_WC_0(MAYBE_UNUSED(lindex_t idx)) +{ + return true; +} + +/* attr const char* name @ setlocal_WC_0(idx)(val)() */ +const char* +attr_name_setlocal_WC_0(MAYBE_UNUSED(lindex_t idx)) +{ + return insn_name(BIN(setlocal_WC_0)); +} + +/* attr rb_num_t open @ setlocal_WC_0(idx)(val)() */ +rb_num_t +attr_open_setlocal_WC_0(MAYBE_UNUSED(lindex_t idx)) +{ + return 1; +} + +/* attr rb_num_t popn @ setlocal_WC_0(idx)(val)() */ +rb_num_t +attr_popn_setlocal_WC_0(MAYBE_UNUSED(lindex_t idx)) +{ + return 1; +} + +/* attr rb_num_t retn @ setlocal_WC_0(idx)(val)() */ +rb_num_t +attr_retn_setlocal_WC_0(MAYBE_UNUSED(lindex_t idx)) +{ + return 0; +} + +/* attr rb_snum_t sp_inc @ setlocal_WC_0(idx)(val)() */ +rb_snum_t +attr_sp_inc_setlocal_WC_0(MAYBE_UNUSED(lindex_t idx)) +{ + return -1; +} + +/* attr rb_num_t width @ setlocal_WC_0(idx)(val)() */ +rb_num_t +attr_width_setlocal_WC_0(MAYBE_UNUSED(lindex_t idx)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ setlocal_WC_1(idx)(val)() */ +enum ruby_vminsn_type +attr_bin_setlocal_WC_1(MAYBE_UNUSED(lindex_t idx)) +{ + return BIN(setlocal_WC_1); +} + +/* attr bool handles_sp @ setlocal_WC_1(idx)(val)() */ +bool +attr_handles_sp_setlocal_WC_1(MAYBE_UNUSED(lindex_t idx)) +{ + return false; +} + +/* attr bool leaf @ setlocal_WC_1(idx)(val)() */ +bool +attr_leaf_setlocal_WC_1(MAYBE_UNUSED(lindex_t idx)) +{ + return true; +} + +/* attr const char* name @ setlocal_WC_1(idx)(val)() */ +const char* +attr_name_setlocal_WC_1(MAYBE_UNUSED(lindex_t idx)) +{ + return insn_name(BIN(setlocal_WC_1)); +} + +/* attr rb_num_t open @ setlocal_WC_1(idx)(val)() */ +rb_num_t +attr_open_setlocal_WC_1(MAYBE_UNUSED(lindex_t idx)) +{ + return 1; +} + +/* attr rb_num_t popn @ setlocal_WC_1(idx)(val)() */ +rb_num_t +attr_popn_setlocal_WC_1(MAYBE_UNUSED(lindex_t idx)) +{ + return 1; +} + +/* attr rb_num_t retn @ setlocal_WC_1(idx)(val)() */ +rb_num_t +attr_retn_setlocal_WC_1(MAYBE_UNUSED(lindex_t idx)) +{ + return 0; +} + +/* attr rb_snum_t sp_inc @ setlocal_WC_1(idx)(val)() */ +rb_snum_t +attr_sp_inc_setlocal_WC_1(MAYBE_UNUSED(lindex_t idx)) +{ + return -1; +} + +/* attr rb_num_t width @ setlocal_WC_1(idx)(val)() */ +rb_num_t +attr_width_setlocal_WC_1(MAYBE_UNUSED(lindex_t idx)) +{ + return 2; +} + +/* attr enum ruby_vminsn_type bin @ putobject_INT2FIX_0_()()(val) */ +enum ruby_vminsn_type +attr_bin_putobject_INT2FIX_0_(void) +{ + return BIN(putobject_INT2FIX_0_); +} + +/* attr bool handles_sp @ putobject_INT2FIX_0_()()(val) */ +bool +attr_handles_sp_putobject_INT2FIX_0_(void) +{ + return false; +} + +/* attr bool leaf @ putobject_INT2FIX_0_()()(val) */ +bool +attr_leaf_putobject_INT2FIX_0_(void) +{ + return true; +} + +/* attr const char* name @ putobject_INT2FIX_0_()()(val) */ +const char* +attr_name_putobject_INT2FIX_0_(void) +{ + return insn_name(BIN(putobject_INT2FIX_0_)); +} + +/* attr rb_num_t open @ putobject_INT2FIX_0_()()(val) */ +rb_num_t +attr_open_putobject_INT2FIX_0_(void) +{ + return 0; +} + +/* attr rb_num_t popn @ putobject_INT2FIX_0_()()(val) */ +rb_num_t +attr_popn_putobject_INT2FIX_0_(void) +{ + return 0; +} + +/* attr rb_num_t retn @ putobject_INT2FIX_0_()()(val) */ +rb_num_t +attr_retn_putobject_INT2FIX_0_(void) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ putobject_INT2FIX_0_()()(val) */ +rb_snum_t +attr_sp_inc_putobject_INT2FIX_0_(void) +{ + return 1; +} + +/* attr rb_num_t width @ putobject_INT2FIX_0_()()(val) */ +rb_num_t +attr_width_putobject_INT2FIX_0_(void) +{ + return 1; +} + +/* attr enum ruby_vminsn_type bin @ putobject_INT2FIX_1_()()(val) */ +enum ruby_vminsn_type +attr_bin_putobject_INT2FIX_1_(void) +{ + return BIN(putobject_INT2FIX_1_); +} + +/* attr bool handles_sp @ putobject_INT2FIX_1_()()(val) */ +bool +attr_handles_sp_putobject_INT2FIX_1_(void) +{ + return false; +} + +/* attr bool leaf @ putobject_INT2FIX_1_()()(val) */ +bool +attr_leaf_putobject_INT2FIX_1_(void) +{ + return true; +} + +/* attr const char* name @ putobject_INT2FIX_1_()()(val) */ +const char* +attr_name_putobject_INT2FIX_1_(void) +{ + return insn_name(BIN(putobject_INT2FIX_1_)); +} + +/* attr rb_num_t open @ putobject_INT2FIX_1_()()(val) */ +rb_num_t +attr_open_putobject_INT2FIX_1_(void) +{ + return 0; +} + +/* attr rb_num_t popn @ putobject_INT2FIX_1_()()(val) */ +rb_num_t +attr_popn_putobject_INT2FIX_1_(void) +{ + return 0; +} + +/* attr rb_num_t retn @ putobject_INT2FIX_1_()()(val) */ +rb_num_t +attr_retn_putobject_INT2FIX_1_(void) +{ + return 1; +} + +/* attr rb_snum_t sp_inc @ putobject_INT2FIX_1_()()(val) */ +rb_snum_t +attr_sp_inc_putobject_INT2FIX_1_(void) +{ + return 1; +} + +/* attr rb_num_t width @ putobject_INT2FIX_1_()()(val) */ +rb_num_t +attr_width_putobject_INT2FIX_1_(void) +{ + return 1; +} + +PUREFUNC(MAYBE_UNUSED(static int insn_stack_increase(int depth, int insn, const VALUE *opes))); +PUREFUNC(static rb_snum_t insn_stack_increase_dispatch(enum ruby_vminsn_type insn, const VALUE *opes)); + +rb_snum_t +insn_stack_increase_dispatch(enum ruby_vminsn_type insn, const VALUE *opes) +{ + static const signed char t[] = { + 0, 1, -1, 1, -1, 1, 1, -1, + 1, -1, 1, -1, 0, -2, 1, -1, + 1, 1, 1, 1, 1, 1, -127, -1, + 0, -127, 0, -127, 1, 1, -127, -1, + 0, -127, -1, -1, 1, -127, 0, -127, + -127, -127, -127, -127, 0, -1, 1, 0, + -1, -127, -127, 1, 1, -127, -127, -127, + -127, 0, 0, 0, -1, -1, -1, 1, + 0, 1, -127, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -2, -1, 0, 0, 0, 0, + 0, 0, 0, -1, 0, 1, 1, 1, + 1, -1, -1, 1, 1, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, + }; + signed char c = t[insn]; + + ASSERT_VM_INSTRUCTION_SIZE(t); + if (c != -127) { + return c; + } + else switch(insn) { + default: + UNREACHABLE; + case BIN(concatstrings): + return attr_sp_inc_concatstrings(NUM2LONG(opes[0])); + case BIN(toregexp): + return attr_sp_inc_toregexp(NUM2LONG(opes[0]), NUM2LONG(opes[1])); + case BIN(newarray): + return attr_sp_inc_newarray(NUM2LONG(opes[0])); + case BIN(expandarray): + return attr_sp_inc_expandarray(NUM2LONG(opes[0]), NUM2LONG(opes[1])); + case BIN(newhash): + return attr_sp_inc_newhash(NUM2LONG(opes[0])); + case BIN(dupn): + return attr_sp_inc_dupn(NUM2LONG(opes[0])); + case BIN(reverse): + return attr_sp_inc_reverse(NUM2LONG(opes[0])); + case BIN(reput): + return attr_sp_inc_reput(); + case BIN(topn): + return attr_sp_inc_topn(NUM2LONG(opes[0])); + case BIN(setn): + return attr_sp_inc_setn(NUM2LONG(opes[0])); + case BIN(adjuststack): + return attr_sp_inc_adjuststack(NUM2LONG(opes[0])); + case BIN(send): + return attr_sp_inc_send((CALL_INFO)(opes[0]), (CALL_CACHE)(opes[1]), (ISEQ)(opes[2])); + case BIN(opt_send_without_block): + return attr_sp_inc_opt_send_without_block((CALL_INFO)(opes[0]), (CALL_CACHE)(opes[1])); + case BIN(opt_newarray_max): + return attr_sp_inc_opt_newarray_max(NUM2LONG(opes[0])); + case BIN(opt_newarray_min): + return attr_sp_inc_opt_newarray_min(NUM2LONG(opes[0])); + case BIN(invokesuper): + return attr_sp_inc_invokesuper((CALL_INFO)(opes[0]), (CALL_CACHE)(opes[1]), (ISEQ)(opes[2])); + case BIN(invokeblock): + return attr_sp_inc_invokeblock((CALL_INFO)(opes[0])); + case BIN(opt_case_dispatch): + return attr_sp_inc_opt_case_dispatch((CDHASH)(opes[0]), (OFFSET)(opes[1])); + } +} + +int +insn_stack_increase(int depth, int insn, const VALUE *opes) +{ + enum ruby_vminsn_type itype = (enum ruby_vminsn_type)insn; + return depth + (int)insn_stack_increase_dispatch(itype, opes); +} + diff --git a/generated/known_errors.inc b/generated/known_errors.inc new file mode 100644 index 0000000..f347810 --- /dev/null +++ b/generated/known_errors.inc @@ -0,0 +1,791 @@ +/** -*-c-*- + * DO NOT EDIT + * This file is automatically generated by tool/generic_erb.rb from + * template/known_errors.inc.tmpl and defs/known_errors.def. + */ + +#ifdef E2BIG + defined_error("E2BIG", E2BIG) +#else + undefined_error("E2BIG") +#endif +#ifdef EACCES + defined_error("EACCES", EACCES) +#else + undefined_error("EACCES") +#endif +#ifdef EADDRINUSE + defined_error("EADDRINUSE", EADDRINUSE) +#else + undefined_error("EADDRINUSE") +#endif +#ifdef EADDRNOTAVAIL + defined_error("EADDRNOTAVAIL", EADDRNOTAVAIL) +#else + undefined_error("EADDRNOTAVAIL") +#endif +#ifdef EADV + defined_error("EADV", EADV) +#else + undefined_error("EADV") +#endif +#ifdef EAFNOSUPPORT + defined_error("EAFNOSUPPORT", EAFNOSUPPORT) +#else + undefined_error("EAFNOSUPPORT") +#endif +#ifdef EAGAIN + defined_error("EAGAIN", EAGAIN) +#else + undefined_error("EAGAIN") +#endif +#ifdef EALREADY + defined_error("EALREADY", EALREADY) +#else + undefined_error("EALREADY") +#endif +#ifdef EAUTH + defined_error("EAUTH", EAUTH) +#else + undefined_error("EAUTH") +#endif +#ifdef EBADARCH + defined_error("EBADARCH", EBADARCH) +#else + undefined_error("EBADARCH") +#endif +#ifdef EBADE + defined_error("EBADE", EBADE) +#else + undefined_error("EBADE") +#endif +#ifdef EBADEXEC + defined_error("EBADEXEC", EBADEXEC) +#else + undefined_error("EBADEXEC") +#endif +#ifdef EBADF + defined_error("EBADF", EBADF) +#else + undefined_error("EBADF") +#endif +#ifdef EBADFD + defined_error("EBADFD", EBADFD) +#else + undefined_error("EBADFD") +#endif +#ifdef EBADMACHO + defined_error("EBADMACHO", EBADMACHO) +#else + undefined_error("EBADMACHO") +#endif +#ifdef EBADMSG + defined_error("EBADMSG", EBADMSG) +#else + undefined_error("EBADMSG") +#endif +#ifdef EBADR + defined_error("EBADR", EBADR) +#else + undefined_error("EBADR") +#endif +#ifdef EBADRPC + defined_error("EBADRPC", EBADRPC) +#else + undefined_error("EBADRPC") +#endif +#ifdef EBADRQC + defined_error("EBADRQC", EBADRQC) +#else + undefined_error("EBADRQC") +#endif +#ifdef EBADSLT + defined_error("EBADSLT", EBADSLT) +#else + undefined_error("EBADSLT") +#endif +#ifdef EBFONT + defined_error("EBFONT", EBFONT) +#else + undefined_error("EBFONT") +#endif +#ifdef EBUSY + defined_error("EBUSY", EBUSY) +#else + undefined_error("EBUSY") +#endif +#ifdef ECANCELED + defined_error("ECANCELED", ECANCELED) +#else + undefined_error("ECANCELED") +#endif +#ifdef ECAPMODE + defined_error("ECAPMODE", ECAPMODE) +#else + undefined_error("ECAPMODE") +#endif +#ifdef ECHILD + defined_error("ECHILD", ECHILD) +#else + undefined_error("ECHILD") +#endif +#ifdef ECHRNG + defined_error("ECHRNG", ECHRNG) +#else + undefined_error("ECHRNG") +#endif +#ifdef ECOMM + defined_error("ECOMM", ECOMM) +#else + undefined_error("ECOMM") +#endif +#ifdef ECONNABORTED + defined_error("ECONNABORTED", ECONNABORTED) +#else + undefined_error("ECONNABORTED") +#endif +#ifdef ECONNREFUSED + defined_error("ECONNREFUSED", ECONNREFUSED) +#else + undefined_error("ECONNREFUSED") +#endif +#ifdef ECONNRESET + defined_error("ECONNRESET", ECONNRESET) +#else + undefined_error("ECONNRESET") +#endif +#ifdef EDEADLK + defined_error("EDEADLK", EDEADLK) +#else + undefined_error("EDEADLK") +#endif +#ifdef EDEADLOCK + defined_error("EDEADLOCK", EDEADLOCK) +#else + undefined_error("EDEADLOCK") +#endif +#ifdef EDESTADDRREQ + defined_error("EDESTADDRREQ", EDESTADDRREQ) +#else + undefined_error("EDESTADDRREQ") +#endif +#ifdef EDEVERR + defined_error("EDEVERR", EDEVERR) +#else + undefined_error("EDEVERR") +#endif +#ifdef EDOM + defined_error("EDOM", EDOM) +#else + undefined_error("EDOM") +#endif +#ifdef EDOOFUS + defined_error("EDOOFUS", EDOOFUS) +#else + undefined_error("EDOOFUS") +#endif +#ifdef EDOTDOT + defined_error("EDOTDOT", EDOTDOT) +#else + undefined_error("EDOTDOT") +#endif +#ifdef EDQUOT + defined_error("EDQUOT", EDQUOT) +#else + undefined_error("EDQUOT") +#endif +#ifdef EEXIST + defined_error("EEXIST", EEXIST) +#else + undefined_error("EEXIST") +#endif +#ifdef EFAULT + defined_error("EFAULT", EFAULT) +#else + undefined_error("EFAULT") +#endif +#ifdef EFBIG + defined_error("EFBIG", EFBIG) +#else + undefined_error("EFBIG") +#endif +#ifdef EFTYPE + defined_error("EFTYPE", EFTYPE) +#else + undefined_error("EFTYPE") +#endif +#ifdef EHOSTDOWN + defined_error("EHOSTDOWN", EHOSTDOWN) +#else + undefined_error("EHOSTDOWN") +#endif +#ifdef EHOSTUNREACH + defined_error("EHOSTUNREACH", EHOSTUNREACH) +#else + undefined_error("EHOSTUNREACH") +#endif +#ifdef EHWPOISON + defined_error("EHWPOISON", EHWPOISON) +#else + undefined_error("EHWPOISON") +#endif +#ifdef EIDRM + defined_error("EIDRM", EIDRM) +#else + undefined_error("EIDRM") +#endif +#ifdef EILSEQ + defined_error("EILSEQ", EILSEQ) +#else + undefined_error("EILSEQ") +#endif +#ifdef EINPROGRESS + defined_error("EINPROGRESS", EINPROGRESS) +#else + undefined_error("EINPROGRESS") +#endif +#ifdef EINTR + defined_error("EINTR", EINTR) +#else + undefined_error("EINTR") +#endif +#ifdef EINVAL + defined_error("EINVAL", EINVAL) +#else + undefined_error("EINVAL") +#endif +#ifdef EIO + defined_error("EIO", EIO) +#else + undefined_error("EIO") +#endif +#ifdef EIPSEC + defined_error("EIPSEC", EIPSEC) +#else + undefined_error("EIPSEC") +#endif +#ifdef EISCONN + defined_error("EISCONN", EISCONN) +#else + undefined_error("EISCONN") +#endif +#ifdef EISDIR + defined_error("EISDIR", EISDIR) +#else + undefined_error("EISDIR") +#endif +#ifdef EISNAM + defined_error("EISNAM", EISNAM) +#else + undefined_error("EISNAM") +#endif +#ifdef EKEYEXPIRED + defined_error("EKEYEXPIRED", EKEYEXPIRED) +#else + undefined_error("EKEYEXPIRED") +#endif +#ifdef EKEYREJECTED + defined_error("EKEYREJECTED", EKEYREJECTED) +#else + undefined_error("EKEYREJECTED") +#endif +#ifdef EKEYREVOKED + defined_error("EKEYREVOKED", EKEYREVOKED) +#else + undefined_error("EKEYREVOKED") +#endif +#ifdef EL2HLT + defined_error("EL2HLT", EL2HLT) +#else + undefined_error("EL2HLT") +#endif +#ifdef EL2NSYNC + defined_error("EL2NSYNC", EL2NSYNC) +#else + undefined_error("EL2NSYNC") +#endif +#ifdef EL3HLT + defined_error("EL3HLT", EL3HLT) +#else + undefined_error("EL3HLT") +#endif +#ifdef EL3RST + defined_error("EL3RST", EL3RST) +#else + undefined_error("EL3RST") +#endif +#ifdef ELAST + defined_error("ELAST", ELAST) +#else + undefined_error("ELAST") +#endif +#ifdef ELIBACC + defined_error("ELIBACC", ELIBACC) +#else + undefined_error("ELIBACC") +#endif +#ifdef ELIBBAD + defined_error("ELIBBAD", ELIBBAD) +#else + undefined_error("ELIBBAD") +#endif +#ifdef ELIBEXEC + defined_error("ELIBEXEC", ELIBEXEC) +#else + undefined_error("ELIBEXEC") +#endif +#ifdef ELIBMAX + defined_error("ELIBMAX", ELIBMAX) +#else + undefined_error("ELIBMAX") +#endif +#ifdef ELIBSCN + defined_error("ELIBSCN", ELIBSCN) +#else + undefined_error("ELIBSCN") +#endif +#ifdef ELNRNG + defined_error("ELNRNG", ELNRNG) +#else + undefined_error("ELNRNG") +#endif +#ifdef ELOOP + defined_error("ELOOP", ELOOP) +#else + undefined_error("ELOOP") +#endif +#ifdef EMEDIUMTYPE + defined_error("EMEDIUMTYPE", EMEDIUMTYPE) +#else + undefined_error("EMEDIUMTYPE") +#endif +#ifdef EMFILE + defined_error("EMFILE", EMFILE) +#else + undefined_error("EMFILE") +#endif +#ifdef EMLINK + defined_error("EMLINK", EMLINK) +#else + undefined_error("EMLINK") +#endif +#ifdef EMSGSIZE + defined_error("EMSGSIZE", EMSGSIZE) +#else + undefined_error("EMSGSIZE") +#endif +#ifdef EMULTIHOP + defined_error("EMULTIHOP", EMULTIHOP) +#else + undefined_error("EMULTIHOP") +#endif +#ifdef ENAMETOOLONG + defined_error("ENAMETOOLONG", ENAMETOOLONG) +#else + undefined_error("ENAMETOOLONG") +#endif +#ifdef ENAVAIL + defined_error("ENAVAIL", ENAVAIL) +#else + undefined_error("ENAVAIL") +#endif +#ifdef ENEEDAUTH + defined_error("ENEEDAUTH", ENEEDAUTH) +#else + undefined_error("ENEEDAUTH") +#endif +#ifdef ENETDOWN + defined_error("ENETDOWN", ENETDOWN) +#else + undefined_error("ENETDOWN") +#endif +#ifdef ENETRESET + defined_error("ENETRESET", ENETRESET) +#else + undefined_error("ENETRESET") +#endif +#ifdef ENETUNREACH + defined_error("ENETUNREACH", ENETUNREACH) +#else + undefined_error("ENETUNREACH") +#endif +#ifdef ENFILE + defined_error("ENFILE", ENFILE) +#else + undefined_error("ENFILE") +#endif +#ifdef ENOANO + defined_error("ENOANO", ENOANO) +#else + undefined_error("ENOANO") +#endif +#ifdef ENOATTR + defined_error("ENOATTR", ENOATTR) +#else + undefined_error("ENOATTR") +#endif +#ifdef ENOBUFS + defined_error("ENOBUFS", ENOBUFS) +#else + undefined_error("ENOBUFS") +#endif +#ifdef ENOCSI + defined_error("ENOCSI", ENOCSI) +#else + undefined_error("ENOCSI") +#endif +#ifdef ENODATA + defined_error("ENODATA", ENODATA) +#else + undefined_error("ENODATA") +#endif +#ifdef ENODEV + defined_error("ENODEV", ENODEV) +#else + undefined_error("ENODEV") +#endif +#ifdef ENOENT + defined_error("ENOENT", ENOENT) +#else + undefined_error("ENOENT") +#endif +#ifdef ENOEXEC + defined_error("ENOEXEC", ENOEXEC) +#else + undefined_error("ENOEXEC") +#endif +#ifdef ENOKEY + defined_error("ENOKEY", ENOKEY) +#else + undefined_error("ENOKEY") +#endif +#ifdef ENOLCK + defined_error("ENOLCK", ENOLCK) +#else + undefined_error("ENOLCK") +#endif +#ifdef ENOLINK + defined_error("ENOLINK", ENOLINK) +#else + undefined_error("ENOLINK") +#endif +#ifdef ENOMEDIUM + defined_error("ENOMEDIUM", ENOMEDIUM) +#else + undefined_error("ENOMEDIUM") +#endif +#ifdef ENOMEM + defined_error("ENOMEM", ENOMEM) +#else + undefined_error("ENOMEM") +#endif +#ifdef ENOMSG + defined_error("ENOMSG", ENOMSG) +#else + undefined_error("ENOMSG") +#endif +#ifdef ENONET + defined_error("ENONET", ENONET) +#else + undefined_error("ENONET") +#endif +#ifdef ENOPKG + defined_error("ENOPKG", ENOPKG) +#else + undefined_error("ENOPKG") +#endif +#ifdef ENOPOLICY + defined_error("ENOPOLICY", ENOPOLICY) +#else + undefined_error("ENOPOLICY") +#endif +#ifdef ENOPROTOOPT + defined_error("ENOPROTOOPT", ENOPROTOOPT) +#else + undefined_error("ENOPROTOOPT") +#endif +#ifdef ENOSPC + defined_error("ENOSPC", ENOSPC) +#else + undefined_error("ENOSPC") +#endif +#ifdef ENOSR + defined_error("ENOSR", ENOSR) +#else + undefined_error("ENOSR") +#endif +#ifdef ENOSTR + defined_error("ENOSTR", ENOSTR) +#else + undefined_error("ENOSTR") +#endif +#ifdef ENOSYS + defined_error("ENOSYS", ENOSYS) +#else + undefined_error("ENOSYS") +#endif +#ifdef ENOTBLK + defined_error("ENOTBLK", ENOTBLK) +#else + undefined_error("ENOTBLK") +#endif +#ifdef ENOTCAPABLE + defined_error("ENOTCAPABLE", ENOTCAPABLE) +#else + undefined_error("ENOTCAPABLE") +#endif +#ifdef ENOTCONN + defined_error("ENOTCONN", ENOTCONN) +#else + undefined_error("ENOTCONN") +#endif +#ifdef ENOTDIR + defined_error("ENOTDIR", ENOTDIR) +#else + undefined_error("ENOTDIR") +#endif +#ifdef ENOTEMPTY + defined_error("ENOTEMPTY", ENOTEMPTY) +#else + undefined_error("ENOTEMPTY") +#endif +#ifdef ENOTNAM + defined_error("ENOTNAM", ENOTNAM) +#else + undefined_error("ENOTNAM") +#endif +#ifdef ENOTRECOVERABLE + defined_error("ENOTRECOVERABLE", ENOTRECOVERABLE) +#else + undefined_error("ENOTRECOVERABLE") +#endif +#ifdef ENOTSOCK + defined_error("ENOTSOCK", ENOTSOCK) +#else + undefined_error("ENOTSOCK") +#endif +#ifdef ENOTSUP + defined_error("ENOTSUP", ENOTSUP) +#else + undefined_error("ENOTSUP") +#endif +#ifdef ENOTTY + defined_error("ENOTTY", ENOTTY) +#else + undefined_error("ENOTTY") +#endif +#ifdef ENOTUNIQ + defined_error("ENOTUNIQ", ENOTUNIQ) +#else + undefined_error("ENOTUNIQ") +#endif +#ifdef ENXIO + defined_error("ENXIO", ENXIO) +#else + undefined_error("ENXIO") +#endif +#ifdef EOPNOTSUPP + defined_error("EOPNOTSUPP", EOPNOTSUPP) +#else + undefined_error("EOPNOTSUPP") +#endif +#ifdef EOVERFLOW + defined_error("EOVERFLOW", EOVERFLOW) +#else + undefined_error("EOVERFLOW") +#endif +#ifdef EOWNERDEAD + defined_error("EOWNERDEAD", EOWNERDEAD) +#else + undefined_error("EOWNERDEAD") +#endif +#ifdef EPERM + defined_error("EPERM", EPERM) +#else + undefined_error("EPERM") +#endif +#ifdef EPFNOSUPPORT + defined_error("EPFNOSUPPORT", EPFNOSUPPORT) +#else + undefined_error("EPFNOSUPPORT") +#endif +#ifdef EPIPE + defined_error("EPIPE", EPIPE) +#else + undefined_error("EPIPE") +#endif +#ifdef EPROCLIM + defined_error("EPROCLIM", EPROCLIM) +#else + undefined_error("EPROCLIM") +#endif +#ifdef EPROCUNAVAIL + defined_error("EPROCUNAVAIL", EPROCUNAVAIL) +#else + undefined_error("EPROCUNAVAIL") +#endif +#ifdef EPROGMISMATCH + defined_error("EPROGMISMATCH", EPROGMISMATCH) +#else + undefined_error("EPROGMISMATCH") +#endif +#ifdef EPROGUNAVAIL + defined_error("EPROGUNAVAIL", EPROGUNAVAIL) +#else + undefined_error("EPROGUNAVAIL") +#endif +#ifdef EPROTO + defined_error("EPROTO", EPROTO) +#else + undefined_error("EPROTO") +#endif +#ifdef EPROTONOSUPPORT + defined_error("EPROTONOSUPPORT", EPROTONOSUPPORT) +#else + undefined_error("EPROTONOSUPPORT") +#endif +#ifdef EPROTOTYPE + defined_error("EPROTOTYPE", EPROTOTYPE) +#else + undefined_error("EPROTOTYPE") +#endif +#ifdef EPWROFF + defined_error("EPWROFF", EPWROFF) +#else + undefined_error("EPWROFF") +#endif +#ifdef EQFULL + defined_error("EQFULL", EQFULL) +#else + undefined_error("EQFULL") +#endif +#ifdef ERANGE + defined_error("ERANGE", ERANGE) +#else + undefined_error("ERANGE") +#endif +#ifdef EREMCHG + defined_error("EREMCHG", EREMCHG) +#else + undefined_error("EREMCHG") +#endif +#ifdef EREMOTE + defined_error("EREMOTE", EREMOTE) +#else + undefined_error("EREMOTE") +#endif +#ifdef EREMOTEIO + defined_error("EREMOTEIO", EREMOTEIO) +#else + undefined_error("EREMOTEIO") +#endif +#ifdef ERESTART + defined_error("ERESTART", ERESTART) +#else + undefined_error("ERESTART") +#endif +#ifdef ERFKILL + defined_error("ERFKILL", ERFKILL) +#else + undefined_error("ERFKILL") +#endif +#ifdef EROFS + defined_error("EROFS", EROFS) +#else + undefined_error("EROFS") +#endif +#ifdef ERPCMISMATCH + defined_error("ERPCMISMATCH", ERPCMISMATCH) +#else + undefined_error("ERPCMISMATCH") +#endif +#ifdef ESHLIBVERS + defined_error("ESHLIBVERS", ESHLIBVERS) +#else + undefined_error("ESHLIBVERS") +#endif +#ifdef ESHUTDOWN + defined_error("ESHUTDOWN", ESHUTDOWN) +#else + undefined_error("ESHUTDOWN") +#endif +#ifdef ESOCKTNOSUPPORT + defined_error("ESOCKTNOSUPPORT", ESOCKTNOSUPPORT) +#else + undefined_error("ESOCKTNOSUPPORT") +#endif +#ifdef ESPIPE + defined_error("ESPIPE", ESPIPE) +#else + undefined_error("ESPIPE") +#endif +#ifdef ESRCH + defined_error("ESRCH", ESRCH) +#else + undefined_error("ESRCH") +#endif +#ifdef ESRMNT + defined_error("ESRMNT", ESRMNT) +#else + undefined_error("ESRMNT") +#endif +#ifdef ESTALE + defined_error("ESTALE", ESTALE) +#else + undefined_error("ESTALE") +#endif +#ifdef ESTRPIPE + defined_error("ESTRPIPE", ESTRPIPE) +#else + undefined_error("ESTRPIPE") +#endif +#ifdef ETIME + defined_error("ETIME", ETIME) +#else + undefined_error("ETIME") +#endif +#ifdef ETIMEDOUT + defined_error("ETIMEDOUT", ETIMEDOUT) +#else + undefined_error("ETIMEDOUT") +#endif +#ifdef ETOOMANYREFS + defined_error("ETOOMANYREFS", ETOOMANYREFS) +#else + undefined_error("ETOOMANYREFS") +#endif +#ifdef ETXTBSY + defined_error("ETXTBSY", ETXTBSY) +#else + undefined_error("ETXTBSY") +#endif +#ifdef EUCLEAN + defined_error("EUCLEAN", EUCLEAN) +#else + undefined_error("EUCLEAN") +#endif +#ifdef EUNATCH + defined_error("EUNATCH", EUNATCH) +#else + undefined_error("EUNATCH") +#endif +#ifdef EUSERS + defined_error("EUSERS", EUSERS) +#else + undefined_error("EUSERS") +#endif +#ifdef EWOULDBLOCK + defined_error("EWOULDBLOCK", EWOULDBLOCK) +#else + undefined_error("EWOULDBLOCK") +#endif +#ifdef EXDEV + defined_error("EXDEV", EXDEV) +#else + undefined_error("EXDEV") +#endif +#ifdef EXFULL + defined_error("EXFULL", EXFULL) +#else + undefined_error("EXFULL") +#endif diff --git a/generated/lex.c b/generated/lex.c new file mode 100644 index 0000000..92a4793 --- /dev/null +++ b/generated/lex.c @@ -0,0 +1,303 @@ +/* ANSI-C code produced by gperf version 3.1 */ +/* Command-line: gperf -C -P -p -j1 -i 1 -g -o -t -N rb_reserved_word -k'1,3,$' defs/keywords */ + +#if !((' ' == 32) && ('!' == 33) && ('"' == 34) && ('#' == 35) \ + && ('%' == 37) && ('&' == 38) && ('\'' == 39) && ('(' == 40) \ + && (')' == 41) && ('*' == 42) && ('+' == 43) && (',' == 44) \ + && ('-' == 45) && ('.' == 46) && ('/' == 47) && ('0' == 48) \ + && ('1' == 49) && ('2' == 50) && ('3' == 51) && ('4' == 52) \ + && ('5' == 53) && ('6' == 54) && ('7' == 55) && ('8' == 56) \ + && ('9' == 57) && (':' == 58) && (';' == 59) && ('<' == 60) \ + && ('=' == 61) && ('>' == 62) && ('?' == 63) && ('A' == 65) \ + && ('B' == 66) && ('C' == 67) && ('D' == 68) && ('E' == 69) \ + && ('F' == 70) && ('G' == 71) && ('H' == 72) && ('I' == 73) \ + && ('J' == 74) && ('K' == 75) && ('L' == 76) && ('M' == 77) \ + && ('N' == 78) && ('O' == 79) && ('P' == 80) && ('Q' == 81) \ + && ('R' == 82) && ('S' == 83) && ('T' == 84) && ('U' == 85) \ + && ('V' == 86) && ('W' == 87) && ('X' == 88) && ('Y' == 89) \ + && ('Z' == 90) && ('[' == 91) && ('\\' == 92) && (']' == 93) \ + && ('^' == 94) && ('_' == 95) && ('a' == 97) && ('b' == 98) \ + && ('c' == 99) && ('d' == 100) && ('e' == 101) && ('f' == 102) \ + && ('g' == 103) && ('h' == 104) && ('i' == 105) && ('j' == 106) \ + && ('k' == 107) && ('l' == 108) && ('m' == 109) && ('n' == 110) \ + && ('o' == 111) && ('p' == 112) && ('q' == 113) && ('r' == 114) \ + && ('s' == 115) && ('t' == 116) && ('u' == 117) && ('v' == 118) \ + && ('w' == 119) && ('x' == 120) && ('y' == 121) && ('z' == 122) \ + && ('{' == 123) && ('|' == 124) && ('}' == 125) && ('~' == 126)) +/* The character set is not based on ISO-646. */ +#error "gperf generated tables don't work with this execution character set. Please report a bug to <bug-gperf@xxxxxxx>." +#endif + +#define gperf_offsetof(s, n) (short)offsetof(struct s##_t, s##_str##n) +#line 1 "defs/keywords" + +struct kwtable {short name, id[2], state;}; +const struct kwtable *rb_reserved_word(const char *, unsigned int); +#ifndef RIPPER +static const struct kwtable *reserved_word(/*const char *, unsigned int*/); +#define rb_reserved_word(str, len) reserved_word(str, len) +#line 9 "defs/keywords" +struct kwtable; + +#define TOTAL_KEYWORDS 41 +#define MIN_WORD_LENGTH 2 +#define MAX_WORD_LENGTH 12 +#define MIN_HASH_VALUE 8 +#define MAX_HASH_VALUE 50 +/* maximum key range = 43, duplicates = 0 */ + +#ifdef __GNUC__ +__inline +#else +#ifdef __cplusplus +inline +#endif +#endif +static unsigned int +hash (register const char *str, register size_t len) +{ + static const unsigned char asso_values[] = + { + 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, + 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, + 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, + 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, + 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, + 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, + 51, 51, 51, 26, 51, 51, 14, 51, 16, 8, + 11, 13, 51, 51, 51, 51, 10, 51, 13, 51, + 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, + 51, 51, 51, 51, 51, 11, 51, 13, 1, 26, + 4, 1, 8, 28, 51, 23, 51, 1, 1, 27, + 5, 19, 21, 51, 8, 3, 3, 11, 51, 21, + 24, 16, 51, 51, 51, 51, 51, 51, 51, 51, + 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, + 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, + 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, + 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, + 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, + 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, + 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, + 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, + 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, + 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, + 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, + 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, + 51, 51, 51, 51, 51, 51 + }; + register unsigned int hval = (unsigned int)len; + + switch (hval) + { + default: + hval += asso_values[(unsigned char)str[2]]; + /*FALLTHROUGH*/ + case 2: + case 1: + hval += asso_values[(unsigned char)str[0]]; + break; + } + return (unsigned int)hval + asso_values[(unsigned char)str[len - 1]]; +} + +struct stringpool_t + { + char stringpool_str8[sizeof("break")]; + char stringpool_str9[sizeof("else")]; + char stringpool_str10[sizeof("nil")]; + char stringpool_str11[sizeof("ensure")]; + char stringpool_str12[sizeof("end")]; + char stringpool_str13[sizeof("then")]; + char stringpool_str14[sizeof("not")]; + char stringpool_str15[sizeof("false")]; + char stringpool_str16[sizeof("self")]; + char stringpool_str17[sizeof("elsif")]; + char stringpool_str18[sizeof("rescue")]; + char stringpool_str19[sizeof("true")]; + char stringpool_str20[sizeof("until")]; + char stringpool_str21[sizeof("unless")]; + char stringpool_str22[sizeof("return")]; + char stringpool_str23[sizeof("def")]; + char stringpool_str24[sizeof("and")]; + char stringpool_str25[sizeof("do")]; + char stringpool_str26[sizeof("yield")]; + char stringpool_str27[sizeof("for")]; + char stringpool_str28[sizeof("undef")]; + char stringpool_str29[sizeof("or")]; + char stringpool_str30[sizeof("in")]; + char stringpool_str31[sizeof("when")]; + char stringpool_str32[sizeof("retry")]; + char stringpool_str33[sizeof("if")]; + char stringpool_str34[sizeof("case")]; + char stringpool_str35[sizeof("redo")]; + char stringpool_str36[sizeof("next")]; + char stringpool_str37[sizeof("super")]; + char stringpool_str38[sizeof("module")]; + char stringpool_str39[sizeof("begin")]; + char stringpool_str40[sizeof("__LINE__")]; + char stringpool_str41[sizeof("__FILE__")]; + char stringpool_str42[sizeof("__ENCODING__")]; + char stringpool_str43[sizeof("END")]; + char stringpool_str44[sizeof("alias")]; + char stringpool_str45[sizeof("BEGIN")]; + char stringpool_str46[sizeof("defined?")]; + char stringpool_str47[sizeof("class")]; + char stringpool_str50[sizeof("while")]; + }; +static const struct stringpool_t stringpool_contents = + { + "break", + "else", + "nil", + "ensure", + "end", + "then", + "not", + "false", + "self", + "elsif", + "rescue", + "true", + "until", + "unless", + "return", + "def", + "and", + "do", + "yield", + "for", + "undef", + "or", + "in", + "when", + "retry", + "if", + "case", + "redo", + "next", + "super", + "module", + "begin", + "__LINE__", + "__FILE__", + "__ENCODING__", + "END", + "alias", + "BEGIN", + "defined?", + "class", + "while" + }; +#define stringpool ((const char *) &stringpool_contents) +const struct kwtable * +rb_reserved_word (register const char *str, register size_t len) +{ + static const struct kwtable wordlist[] = + { + {-1}, {-1}, {-1}, {-1}, {-1}, {-1}, {-1}, {-1}, +#line 19 "defs/keywords" + {gperf_offsetof(stringpool, 8), {keyword_break, keyword_break}, EXPR_MID}, +#line 25 "defs/keywords" + {gperf_offsetof(stringpool, 9), {keyword_else, keyword_else}, EXPR_BEG}, +#line 35 "defs/keywords" + {gperf_offsetof(stringpool, 10), {keyword_nil, keyword_nil}, EXPR_END}, +#line 28 "defs/keywords" + {gperf_offsetof(stringpool, 11), {keyword_ensure, keyword_ensure}, EXPR_BEG}, +#line 27 "defs/keywords" + {gperf_offsetof(stringpool, 12), {keyword_end, keyword_end}, EXPR_END}, +#line 44 "defs/keywords" + {gperf_offsetof(stringpool, 13), {keyword_then, keyword_then}, EXPR_BEG}, +#line 36 "defs/keywords" + {gperf_offsetof(stringpool, 14), {keyword_not, keyword_not}, EXPR_ARG}, +#line 29 "defs/keywords" + {gperf_offsetof(stringpool, 15), {keyword_false, keyword_false}, EXPR_END}, +#line 42 "defs/keywords" + {gperf_offsetof(stringpool, 16), {keyword_self, keyword_self}, EXPR_END}, +#line 26 "defs/keywords" + {gperf_offsetof(stringpool, 17), {keyword_elsif, keyword_elsif}, EXPR_VALUE}, +#line 39 "defs/keywords" + {gperf_offsetof(stringpool, 18), {keyword_rescue, modifier_rescue}, EXPR_MID}, +#line 45 "defs/keywords" + {gperf_offsetof(stringpool, 19), {keyword_true, keyword_true}, EXPR_END}, +#line 48 "defs/keywords" + {gperf_offsetof(stringpool, 20), {keyword_until, modifier_until}, EXPR_VALUE}, +#line 47 "defs/keywords" + {gperf_offsetof(stringpool, 21), {keyword_unless, modifier_unless}, EXPR_VALUE}, +#line 41 "defs/keywords" + {gperf_offsetof(stringpool, 22), {keyword_return, keyword_return}, EXPR_MID}, +#line 22 "defs/keywords" + {gperf_offsetof(stringpool, 23), {keyword_def, keyword_def}, EXPR_FNAME}, +#line 17 "defs/keywords" + {gperf_offsetof(stringpool, 24), {keyword_and, keyword_and}, EXPR_VALUE}, +#line 24 "defs/keywords" + {gperf_offsetof(stringpool, 25), {keyword_do, keyword_do}, EXPR_BEG}, +#line 51 "defs/keywords" + {gperf_offsetof(stringpool, 26), {keyword_yield, keyword_yield}, EXPR_ARG}, +#line 30 "defs/keywords" + {gperf_offsetof(stringpool, 27), {keyword_for, keyword_for}, EXPR_VALUE}, +#line 46 "defs/keywords" + {gperf_offsetof(stringpool, 28), {keyword_undef, keyword_undef}, EXPR_FNAME|EXPR_FITEM}, +#line 37 "defs/keywords" + {gperf_offsetof(stringpool, 29), {keyword_or, keyword_or}, EXPR_VALUE}, +#line 32 "defs/keywords" + {gperf_offsetof(stringpool, 30), {keyword_in, keyword_in}, EXPR_VALUE}, +#line 49 "defs/keywords" + {gperf_offsetof(stringpool, 31), {keyword_when, keyword_when}, EXPR_VALUE}, +#line 40 "defs/keywords" + {gperf_offsetof(stringpool, 32), {keyword_retry, keyword_retry}, EXPR_END}, +#line 31 "defs/keywords" + {gperf_offsetof(stringpool, 33), {keyword_if, modifier_if}, EXPR_VALUE}, +#line 20 "defs/keywords" + {gperf_offsetof(stringpool, 34), {keyword_case, keyword_case}, EXPR_VALUE}, +#line 38 "defs/keywords" + {gperf_offsetof(stringpool, 35), {keyword_redo, keyword_redo}, EXPR_END}, +#line 34 "defs/keywords" + {gperf_offsetof(stringpool, 36), {keyword_next, keyword_next}, EXPR_MID}, +#line 43 "defs/keywords" + {gperf_offsetof(stringpool, 37), {keyword_super, keyword_super}, EXPR_ARG}, +#line 33 "defs/keywords" + {gperf_offsetof(stringpool, 38), {keyword_module, keyword_module}, EXPR_VALUE}, +#line 18 "defs/keywords" + {gperf_offsetof(stringpool, 39), {keyword_begin, keyword_begin}, EXPR_BEG}, +#line 12 "defs/keywords" + {gperf_offsetof(stringpool, 40), {keyword__LINE__, keyword__LINE__}, EXPR_END}, +#line 13 "defs/keywords" + {gperf_offsetof(stringpool, 41), {keyword__FILE__, keyword__FILE__}, EXPR_END}, +#line 11 "defs/keywords" + {gperf_offsetof(stringpool, 42), {keyword__ENCODING__, keyword__ENCODING__}, EXPR_END}, +#line 15 "defs/keywords" + {gperf_offsetof(stringpool, 43), {keyword_END, keyword_END}, EXPR_END}, +#line 16 "defs/keywords" + {gperf_offsetof(stringpool, 44), {keyword_alias, keyword_alias}, EXPR_FNAME|EXPR_FITEM}, +#line 14 "defs/keywords" + {gperf_offsetof(stringpool, 45), {keyword_BEGIN, keyword_BEGIN}, EXPR_END}, +#line 23 "defs/keywords" + {gperf_offsetof(stringpool, 46), {keyword_defined, keyword_defined}, EXPR_ARG}, +#line 21 "defs/keywords" + {gperf_offsetof(stringpool, 47), {keyword_class, keyword_class}, EXPR_CLASS}, + {-1}, {-1}, +#line 50 "defs/keywords" + {gperf_offsetof(stringpool, 50), {keyword_while, modifier_while}, EXPR_VALUE} + }; + + if (len <= MAX_WORD_LENGTH && len >= MIN_WORD_LENGTH) + { + register unsigned int key = hash (str, len); + + if (key <= MAX_HASH_VALUE) + { + register int o = wordlist[key].name; + if (o >= 0) + { + register const char *s = o + stringpool; + + if (*str == *s && !strcmp (str + 1, s + 1)) + return &wordlist[key]; + } + } + } + return 0; +} +#line 52 "defs/keywords" + +#endif diff --git a/generated/miniprelude.c b/generated/miniprelude.c new file mode 100644 index 0000000..d7bb068 --- /dev/null +++ b/generated/miniprelude.c @@ -0,0 +1,9 @@ +/* -*-c-*- + THIS FILE WAS AUTOGENERATED BY template/prelude.c.tmpl. DO NOT EDIT. + + sources: +*/ +void +Init_prelude(void) +{ +} diff --git a/generated/mjit_compile.inc b/generated/mjit_compile.inc new file mode 100644 index 0000000..677d24d --- /dev/null +++ b/generated/mjit_compile.inc @@ -0,0 +1,4226 @@ +/* -*- mode:c; style:ruby; coding: utf-8; indent-tabs-mode: nil -*- */ + +/* This is an auto-generated file and is a part of the programming language + * Ruby. The person who created a program to generate this file (``I'' + * hereafter) would like to refrain from defining licensing of this generated + * source code. + * + * This file consist of many small parts of codes copyrighted by each authors, + * not only the ``I'' person. Those original authors agree with some + * open-source license. I believe that the license we agree is the condition + * mentioned in the file COPYING. It states "4. You may modify and include + * the part of the software into any other software ...". But the problem is, + * the license never makes it clear if such modified parts still remain in the + * same license, or not. The fact that we agree with the source code's + * licensing terms do not automatically define that of generated ones. This is + * the reason why this file is under unclear situation. All that I know is + * that above provision guarantees this file to exist. + * + * Please let me hesitate to declare something about this nuanced contract. I + * am not in the position to take over other authors' license to merge into my + * one. Changing them to (say) GPLv3 is not doable by myself. Perhaps someday + * it might turn out to be okay to say this file is under a license. I wish the + * situation would become more clear in the future. */ + +/*******************************************************************/ +/*******************************************************************/ +/*******************************************************************/ +/** + This file is the main part of compile_insn() in mjit_compile.c. + + ---- + This file is auto generated by insns2vm.rb + DO NOT TOUCH! + + If you want to fix something, you must edit "tool/ruby_vm/views/mjit_compile.inc.erb" + or tool/insns2vm.rb + */ + +switch (insn) { + case BIN(nop): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " /* none */\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_nop(); + } + fprintf(f, "}\n"); + break; + case BIN(getlocal): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(lindex_t idx) = (lindex_t)operands[0]; + MAYBE_UNUSED(rb_num_t level) = (rb_num_t)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + fprintf(f, " MAYBE_UNUSED(lindex_t) idx;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) level;\n"); + + fprintf(f, " idx = (lindex_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " level = (rb_num_t)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = *(vm_get_ep(GET_EP(), level) - idx);\n"); + fprintf(f, " RB_DEBUG_COUNTER_INC(lvar_get);\n"); + fprintf(f, " (void)RB_DEBUG_COUNTER_INC_IF(lvar_get_dynamic, level > 0);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_getlocal(idx, level) - 1); + b->stack_size += attr_sp_inc_getlocal(idx, level); + } + fprintf(f, "}\n"); + break; + case BIN(setlocal): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(lindex_t idx) = (lindex_t)operands[0]; + MAYBE_UNUSED(rb_num_t level) = (rb_num_t)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + fprintf(f, " MAYBE_UNUSED(lindex_t) idx;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) level;\n"); + + fprintf(f, " idx = (lindex_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " level = (rb_num_t)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " val = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " vm_env_write(vm_get_ep(GET_EP(), level), -(int)idx, val);\n"); + fprintf(f, " RB_DEBUG_COUNTER_INC(lvar_set);\n"); + fprintf(f, " (void)RB_DEBUG_COUNTER_INC_IF(lvar_set_dynamic, level > 0);\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_setlocal(idx, level); + } + fprintf(f, "}\n"); + break; + case BIN(getblockparam): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(lindex_t idx) = (lindex_t)operands[0]; + MAYBE_UNUSED(rb_num_t level) = (rb_num_t)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + fprintf(f, " MAYBE_UNUSED(lindex_t) idx;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) level;\n"); + + fprintf(f, " idx = (lindex_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " level = (rb_num_t)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " const VALUE *ep = vm_get_ep(GET_EP(), level);\n"); + fprintf(f, " VM_ASSERT(VM_ENV_LOCAL_P(ep));\n"); + fprintf(f, "\n"); + fprintf(f, " if (!VM_ENV_FLAGS(ep, VM_FRAME_FLAG_MODIFIED_BLOCK_PARAM)) {\n"); + fprintf(f, " val = rb_vm_bh_to_procval(ec, VM_ENV_BLOCK_HANDLER(ep));\n"); + fprintf(f, " vm_env_write(ep, -(int)idx, val);\n"); + fprintf(f, " VM_ENV_FLAGS_SET(ep, VM_FRAME_FLAG_MODIFIED_BLOCK_PARAM);\n"); + fprintf(f, " }\n"); + fprintf(f, " else {\n"); + fprintf(f, " val = *(ep - idx);\n"); + fprintf(f, " RB_DEBUG_COUNTER_INC(lvar_get);\n"); + fprintf(f, " (void)RB_DEBUG_COUNTER_INC_IF(lvar_get_dynamic, level > 0);\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_getblockparam(idx, level) - 1); + b->stack_size += attr_sp_inc_getblockparam(idx, level); + } + fprintf(f, "}\n"); + break; + case BIN(setblockparam): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(lindex_t idx) = (lindex_t)operands[0]; + MAYBE_UNUSED(rb_num_t level) = (rb_num_t)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + fprintf(f, " MAYBE_UNUSED(lindex_t) idx;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) level;\n"); + + fprintf(f, " idx = (lindex_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " level = (rb_num_t)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " val = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " const VALUE *ep = vm_get_ep(GET_EP(), level);\n"); + fprintf(f, " VM_ASSERT(VM_ENV_LOCAL_P(ep));\n"); + fprintf(f, "\n"); + fprintf(f, " vm_env_write(ep, -(int)idx, val);\n"); + fprintf(f, " RB_DEBUG_COUNTER_INC(lvar_set);\n"); + fprintf(f, " (void)RB_DEBUG_COUNTER_INC_IF(lvar_set_dynamic, level > 0);\n"); + fprintf(f, "\n"); + fprintf(f, " VM_ENV_FLAGS_SET(ep, VM_FRAME_FLAG_MODIFIED_BLOCK_PARAM);\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_setblockparam(idx, level); + } + fprintf(f, "}\n"); + break; + case BIN(getspecial): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(rb_num_t key) = (rb_num_t)operands[0]; + MAYBE_UNUSED(rb_num_t type) = (rb_num_t)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) key, type;\n"); + + fprintf(f, " key = (rb_num_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " type = (rb_num_t)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_getspecial(ec, GET_LEP(), key, type);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_getspecial(key, type) - 1); + b->stack_size += attr_sp_inc_getspecial(key, type); + } + fprintf(f, "}\n"); + break; + case BIN(setspecial): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(rb_num_t key) = (rb_num_t)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) obj;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) key;\n"); + + fprintf(f, " key = (rb_num_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " obj = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " lep_svar_set(ec, GET_LEP(), key, obj);\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_setspecial(key); + } + fprintf(f, "}\n"); + break; + case BIN(getinstancevariable): +#if OPT_IC_FOR_IVAR +{ + MAYBE_UNUSED(ID id) = (ID)operands[0]; + MAYBE_UNUSED(IC ic) = (IC)operands[1]; + IC ic_copy = &(status->is_entries + ((union iseq_inline_storage_entry *)ic - body->is_entries))->cache; + if (ic_copy->ic_serial) { + fprintf(f, "{\n"); + fprintf(f, " VALUE obj = GET_SELF();\n"); + fprintf(f, " const rb_serial_t ic_serial = (rb_serial_t)%"PRI_SERIALT_PREFIX"u;\n", ic_copy->ic_serial); + fprintf(f, " const st_index_t index = %"PRIuSIZE";\n", ic_copy->ic_value.index); + fprintf(f, " VALUE val;\n"); + fprintf(f, " if (LIKELY(RB_TYPE_P(obj, T_OBJECT) && ic_serial == RCLASS_SERIAL(RBASIC(obj)->klass) && index < ROBJECT_NUMIV(obj) && (val = ROBJECT_IVPTR(obj)[index]) != Qundef)) {\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size); + fprintf(f, " }\n"); + fprintf(f, " else {\n"); + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + + b->stack_size += attr_sp_inc_getinstancevariable(id, ic); + fprintf(f, "}\n"); + break; + } +} +#endif /* OPT_IC_FOR_IVAR */ + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(ID id) = (ID)operands[0]; + MAYBE_UNUSED(IC ic) = (IC)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(IC) ic;\n"); + fprintf(f, " MAYBE_UNUSED(ID) id;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + fprintf(f, " id = (ID)0x%"PRIxVALUE";", operands[0]); + comment_id(f, (ID)operands[0]); + fprintf(f, "\n"); + fprintf(f, " ic = (IC)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_getinstancevariable(GET_SELF(), id, ic);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_getinstancevariable(id, ic) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_getinstancevariable(id, ic) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_getinstancevariable(id, ic); + } + fprintf(f, "}\n"); + break; + case BIN(setinstancevariable): +#if OPT_IC_FOR_IVAR +{ + MAYBE_UNUSED(ID id) = (ID)operands[0]; + MAYBE_UNUSED(IC ic) = (IC)operands[1]; + IC ic_copy = &(status->is_entries + ((union iseq_inline_storage_entry *)ic - body->is_entries))->cache; + if (ic_copy->ic_serial) { + fprintf(f, "{\n"); + fprintf(f, " VALUE obj = GET_SELF();\n"); + fprintf(f, " const rb_serial_t ic_serial = (rb_serial_t)%"PRI_SERIALT_PREFIX"u;\n", ic_copy->ic_serial); + fprintf(f, " const st_index_t index = %"PRIuSIZE";\n", ic_copy->ic_value.index); + fprintf(f, " VALUE val = stack[%d];\n", b->stack_size - 1); + fprintf(f, " if (LIKELY(RB_TYPE_P(obj, T_OBJECT) && ic_serial == RCLASS_SERIAL(RBASIC(obj)->klass) && index < ROBJECT_NUMIV(obj))) {\n"); + fprintf(f, " VALUE *ptr = ROBJECT_IVPTR(obj);\n"); + fprintf(f, " RB_OBJ_WRITE(obj, &ptr[index], val);\n"); + fprintf(f, " }\n"); + fprintf(f, " else {\n"); + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + + b->stack_size += attr_sp_inc_setinstancevariable(id, ic); + fprintf(f, "}\n"); + break; + } +} +#endif /* OPT_IC_FOR_IVAR */ + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(ID id) = (ID)operands[0]; + MAYBE_UNUSED(IC ic) = (IC)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(IC) ic;\n"); + fprintf(f, " MAYBE_UNUSED(ID) id;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + fprintf(f, " id = (ID)0x%"PRIxVALUE";", operands[0]); + comment_id(f, (ID)operands[0]); + fprintf(f, "\n"); + fprintf(f, " ic = (IC)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " val = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " vm_setinstancevariable(GET_SELF(), id, val, ic);\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_setinstancevariable(id, ic); + } + fprintf(f, "}\n"); + break; + case BIN(getclassvariable): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(ID id) = (ID)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(ID) id;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + fprintf(f, " id = (ID)0x%"PRIxVALUE";", operands[0]); + comment_id(f, (ID)operands[0]); + fprintf(f, "\n"); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = rb_cvar_get(vm_get_cvar_base(rb_vm_get_cref(GET_EP()), GET_CFP()), id);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_getclassvariable(id) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_getclassvariable(id) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_getclassvariable(id); + } + fprintf(f, "}\n"); + break; + case BIN(setclassvariable): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(ID id) = (ID)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(ID) id;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + fprintf(f, " id = (ID)0x%"PRIxVALUE";", operands[0]); + comment_id(f, (ID)operands[0]); + fprintf(f, "\n"); + fprintf(f, " val = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " vm_ensure_not_refinement_module(GET_SELF());\n"); + fprintf(f, " rb_cvar_set(vm_get_cvar_base(rb_vm_get_cref(GET_EP()), GET_CFP()), id, val);\n"); + fprintf(f, " }\n"); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_setclassvariable(id) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_setclassvariable(id); + } + fprintf(f, "}\n"); + break; + case BIN(getconstant): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(ID id) = (ID)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(ID) id;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) klass, val;\n"); + + fprintf(f, " id = (ID)0x%"PRIxVALUE";", operands[0]); + comment_id(f, (ID)operands[0]); + fprintf(f, "\n"); + fprintf(f, " klass = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_get_ev_const(ec, klass, id, 0);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_getconstant(id) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_getconstant(id) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_getconstant(id); + } + fprintf(f, "}\n"); + break; + case BIN(setconstant): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(ID id) = (ID)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(ID) id;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) cbase, val;\n"); + + fprintf(f, " id = (ID)0x%"PRIxVALUE";", operands[0]); + comment_id(f, (ID)operands[0]); + fprintf(f, "\n"); + fprintf(f, " val = stack[%d];\n", b->stack_size - 2); + fprintf(f, " cbase = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " vm_check_if_namespace(cbase);\n"); + fprintf(f, " vm_ensure_not_refinement_module(GET_SELF());\n"); + fprintf(f, " rb_const_set(cbase, id, val);\n"); + fprintf(f, " }\n"); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_setconstant(id) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_setconstant(id); + } + fprintf(f, "}\n"); + break; + case BIN(getglobal): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(GENTRY entry) = (GENTRY)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(GENTRY) entry;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + fprintf(f, " entry = (GENTRY)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = GET_GLOBAL((VALUE)entry);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_getglobal(entry) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_getglobal(entry) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_getglobal(entry); + } + fprintf(f, "}\n"); + break; + case BIN(setglobal): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(GENTRY entry) = (GENTRY)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(GENTRY) entry;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + fprintf(f, " entry = (GENTRY)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " val = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " SET_GLOBAL((VALUE)entry, val);\n"); + fprintf(f, " }\n"); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_setglobal(entry) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_setglobal(entry); + } + fprintf(f, "}\n"); + break; + case BIN(putnil): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = Qnil;\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_putnil() - 1); + b->stack_size += attr_sp_inc_putnil(); + } + fprintf(f, "}\n"); + break; + case BIN(putself): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = GET_SELF();\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_putself() - 1); + b->stack_size += attr_sp_inc_putself(); + } + fprintf(f, "}\n"); + break; + case BIN(putobject): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(VALUE val) = (VALUE)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + fprintf(f, " val = (VALUE)0x%"PRIxVALUE";", operands[0]); + if (SYMBOL_P((VALUE)operands[0])) comment_id(f, SYM2ID((VALUE)operands[0])); + fprintf(f, "\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " /* */\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_putobject(val) - 1); + b->stack_size += attr_sp_inc_putobject(val); + } + fprintf(f, "}\n"); + break; + case BIN(putspecialobject): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(rb_num_t value_type) = (rb_num_t)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) value_type;\n"); + + fprintf(f, " value_type = (rb_num_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " enum vm_special_object_type type;\n"); + fprintf(f, "\n"); + fprintf(f, " type = (enum vm_special_object_type)value_type;\n"); + fprintf(f, " val = vm_get_special_object(GET_EP(), type);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_putspecialobject(value_type) - 1); + b->stack_size += attr_sp_inc_putspecialobject(value_type); + } + fprintf(f, "}\n"); + break; + case BIN(putiseq): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(ISEQ iseq) = (ISEQ)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(ISEQ) iseq;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) ret;\n"); + + fprintf(f, " iseq = (ISEQ)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " ret = (VALUE)iseq;\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = ret;\n", b->stack_size + (int)attr_sp_inc_putiseq(iseq) - 1); + b->stack_size += attr_sp_inc_putiseq(iseq); + } + fprintf(f, "}\n"); + break; + case BIN(putstring): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(VALUE str) = (VALUE)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) str, val;\n"); + + fprintf(f, " str = (VALUE)0x%"PRIxVALUE";", operands[0]); + if (SYMBOL_P((VALUE)operands[0])) comment_id(f, SYM2ID((VALUE)operands[0])); + fprintf(f, "\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = rb_str_resurrect(str);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_putstring(str) - 1); + b->stack_size += attr_sp_inc_putstring(str); + } + fprintf(f, "}\n"); + break; + case BIN(concatstrings): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(rb_num_t num) = (rb_num_t)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) num;\n"); + + fprintf(f, " num = (rb_num_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = rb_str_concat_literals(num, %s);\n", + (status->local_stack_p ? "stack + (stack_size - (num))" : "STACK_ADDR_FROM_TOP(num)")); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_concatstrings(num) - 1); + b->stack_size += attr_sp_inc_concatstrings(num); + } + fprintf(f, "}\n"); + break; + case BIN(tostring): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) str, val;\n"); + + fprintf(f, " val = stack[%d];\n", b->stack_size - 2); + fprintf(f, " str = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = rb_obj_as_string_result(str, val);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_tostring() - 1); + b->stack_size += attr_sp_inc_tostring(); + } + fprintf(f, "}\n"); + break; + case BIN(freezestring): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(VALUE debug_info) = (VALUE)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) debug_info, str;\n"); + + fprintf(f, " debug_info = (VALUE)0x%"PRIxVALUE";", operands[0]); + if (SYMBOL_P((VALUE)operands[0])) comment_id(f, SYM2ID((VALUE)operands[0])); + fprintf(f, "\n"); + fprintf(f, " str = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " vm_freezestring(str, debug_info);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = str;\n", b->stack_size + (int)attr_sp_inc_freezestring(debug_info) - 1); + b->stack_size += attr_sp_inc_freezestring(debug_info); + } + fprintf(f, "}\n"); + break; + case BIN(toregexp): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(rb_num_t opt) = (rb_num_t)operands[0]; + MAYBE_UNUSED(rb_num_t cnt) = (rb_num_t)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) cnt, opt;\n"); + + fprintf(f, " opt = (rb_num_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " cnt = (rb_num_t)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " const VALUE ary = rb_ary_tmp_new_from_values(0, cnt, %s);\n", + (status->local_stack_p ? "stack + (stack_size - (cnt))" : "STACK_ADDR_FROM_TOP(cnt)")); + fprintf(f, " val = rb_reg_new_ary(ary, (int)opt);\n"); + fprintf(f, " rb_ary_clear(ary);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_toregexp(opt, cnt) - 1); + b->stack_size += attr_sp_inc_toregexp(opt, cnt); + } + fprintf(f, "}\n"); + break; + case BIN(intern): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) str, sym;\n"); + + fprintf(f, " str = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " sym = rb_str_intern(str);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = sym;\n", b->stack_size + (int)attr_sp_inc_intern() - 1); + b->stack_size += attr_sp_inc_intern(); + } + fprintf(f, "}\n"); + break; + case BIN(newarray): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(rb_num_t num) = (rb_num_t)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) num;\n"); + + fprintf(f, " num = (rb_num_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = rb_ary_new4(num, %s);\n", + (status->local_stack_p ? "stack + (stack_size - (num))" : "STACK_ADDR_FROM_TOP(num)")); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_newarray(num) - 1); + b->stack_size += attr_sp_inc_newarray(num); + } + fprintf(f, "}\n"); + break; + case BIN(duparray): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(VALUE ary) = (VALUE)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) ary, val;\n"); + + fprintf(f, " ary = (VALUE)0x%"PRIxVALUE";", operands[0]); + if (SYMBOL_P((VALUE)operands[0])) comment_id(f, SYM2ID((VALUE)operands[0])); + fprintf(f, "\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " RUBY_DTRACE_CREATE_HOOK(ARRAY, RARRAY_LEN(ary));\n"); + fprintf(f, " val = rb_ary_resurrect(ary);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_duparray(ary) - 1); + b->stack_size += attr_sp_inc_duparray(ary); + } + fprintf(f, "}\n"); + break; + case BIN(duphash): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(VALUE hash) = (VALUE)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) hash, val;\n"); + + fprintf(f, " hash = (VALUE)0x%"PRIxVALUE";", operands[0]); + if (SYMBOL_P((VALUE)operands[0])) comment_id(f, SYM2ID((VALUE)operands[0])); + fprintf(f, "\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " RUBY_DTRACE_CREATE_HOOK(HASH, RHASH_SIZE(hash) << 1);\n"); + fprintf(f, " val = rb_hash_resurrect(hash);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_duphash(hash) - 1); + b->stack_size += attr_sp_inc_duphash(hash); + } + fprintf(f, "}\n"); + break; + case BIN(expandarray): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(rb_num_t num) = (rb_num_t)operands[0]; + MAYBE_UNUSED(rb_num_t flag) = (rb_num_t)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) ary;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) flag, num;\n"); + + fprintf(f, " num = (rb_num_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " flag = (rb_num_t)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " ary = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " vm_expandarray(%s, ary, num, (int)flag);\n", (status->local_stack_p ? "(stack + stack_size)" : "GET_SP()")); + fprintf(f, " }\n"); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_expandarray(num, flag) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_expandarray(num, flag); + } + fprintf(f, "}\n"); + break; + case BIN(concatarray): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) ary, ary1, ary2;\n"); + + fprintf(f, " ary1 = stack[%d];\n", b->stack_size - 2); + fprintf(f, " ary2 = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " ary = vm_concat_array(ary1, ary2);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = ary;\n", b->stack_size + (int)attr_sp_inc_concatarray() - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_concatarray() + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_concatarray(); + } + fprintf(f, "}\n"); + break; + case BIN(splatarray): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(VALUE flag) = (VALUE)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) ary, flag, obj;\n"); + + fprintf(f, " flag = (VALUE)0x%"PRIxVALUE";", operands[0]); + if (SYMBOL_P((VALUE)operands[0])) comment_id(f, SYM2ID((VALUE)operands[0])); + fprintf(f, "\n"); + fprintf(f, " ary = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " obj = vm_splat_array(flag, ary);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = obj;\n", b->stack_size + (int)attr_sp_inc_splatarray(flag) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_splatarray(flag) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_splatarray(flag); + } + fprintf(f, "}\n"); + break; + case BIN(newhash): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(rb_num_t num) = (rb_num_t)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) num;\n"); + + fprintf(f, " num = (rb_num_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " RUBY_DTRACE_CREATE_HOOK(HASH, num);\n"); + fprintf(f, "\n"); + fprintf(f, " val = rb_hash_new_with_size(num / 2);\n"); + fprintf(f, "\n"); + fprintf(f, " if (num) {\n"); + fprintf(f, " rb_hash_bulk_insert(num, %s, val);\n", + (status->local_stack_p ? "stack + (stack_size - (num))" : "STACK_ADDR_FROM_TOP(num)")); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_newhash(num) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_newhash(num) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_newhash(num); + } + fprintf(f, "}\n"); + break; + case BIN(newrange): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(rb_num_t flag) = (rb_num_t)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) high, low, val;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) flag;\n"); + + fprintf(f, " flag = (rb_num_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " low = stack[%d];\n", b->stack_size - 2); + fprintf(f, " high = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = rb_range_new(low, high, (int)flag);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_newrange(flag) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_newrange(flag) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_newrange(flag); + } + fprintf(f, "}\n"); + break; + case BIN(pop): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + fprintf(f, " val = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " (void)val;\n"); + fprintf(f, " /* none */\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_pop(); + } + fprintf(f, "}\n"); + break; + case BIN(dup): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val, val1, val2;\n"); + + fprintf(f, " val = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val1 = val2 = val;\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val2;\n", b->stack_size + (int)attr_sp_inc_dup() - 1); + fprintf(f, " stack[%d] = val1;\n", b->stack_size + (int)attr_sp_inc_dup() - 2); + b->stack_size += attr_sp_inc_dup(); + } + fprintf(f, "}\n"); + break; + case BIN(dupn): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(rb_num_t n) = (rb_num_t)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(rb_num_t) n;\n"); + + fprintf(f, " n = (rb_num_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " void *dst = %s;\n", (status->local_stack_p ? "(stack + stack_size)" : "GET_SP()")); + fprintf(f, " void *src = %s;\n", + (status->local_stack_p ? "stack + (stack_size - (n))" : "STACK_ADDR_FROM_TOP(n)")); + fprintf(f, "\n"); + fprintf(f, " MEMCPY(dst, src, VALUE, n);\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_dupn(n); + } + fprintf(f, "}\n"); + break; + case BIN(swap): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) obj, val;\n"); + + fprintf(f, " val = stack[%d];\n", b->stack_size - 2); + fprintf(f, " obj = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " /* none */\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_swap() - 1); + fprintf(f, " stack[%d] = obj;\n", b->stack_size + (int)attr_sp_inc_swap() - 2); + b->stack_size += attr_sp_inc_swap(); + } + fprintf(f, "}\n"); + break; + case BIN(reverse): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(rb_num_t n) = (rb_num_t)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(rb_num_t) n;\n"); + + fprintf(f, " n = (rb_num_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " rb_num_t i;\n"); + fprintf(f, " VALUE *sp = %s;\n", + (status->local_stack_p ? "stack + (stack_size - (n))" : "STACK_ADDR_FROM_TOP(n)")); + fprintf(f, "\n"); + fprintf(f, " for (i=0; i<n/2; i++) {\n"); + fprintf(f, " VALUE v0 = sp[i];\n"); + fprintf(f, " VALUE v1 = %s;\n", + (status->local_stack_p ? "*(stack + (stack_size - (i) - 1))" : "TOPN(i)")); + fprintf(f, " sp[i] = v1;\n"); + fprintf(f, " %s = v0;\n", + (status->local_stack_p ? "*(stack + (stack_size - (i) - 1))" : "TOPN(i)")); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_reverse(n); + } + fprintf(f, "}\n"); + break; + case BIN(reput): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + fprintf(f, " val = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " /* none */\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_reput() - 1); + b->stack_size += attr_sp_inc_reput(); + } + fprintf(f, "}\n"); + break; + case BIN(topn): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(rb_num_t n) = (rb_num_t)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) n;\n"); + + fprintf(f, " n = (rb_num_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = %s;\n", + (status->local_stack_p ? "*(stack + (stack_size - (n) - 1))" : "TOPN(n)")); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_topn(n) - 1); + b->stack_size += attr_sp_inc_topn(n); + } + fprintf(f, "}\n"); + break; + case BIN(setn): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(rb_num_t n) = (rb_num_t)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) n;\n"); + + fprintf(f, " n = (rb_num_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " val = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " %s = val;\n", + (status->local_stack_p ? "*(stack + (stack_size - (n) - 1))" : "TOPN(n)")); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_setn(n) - 1); + b->stack_size += attr_sp_inc_setn(n); + } + fprintf(f, "}\n"); + break; + case BIN(adjuststack): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(rb_num_t n) = (rb_num_t)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(rb_num_t) n;\n"); + + fprintf(f, " n = (rb_num_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " /* none */\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_adjuststack(n); + } + fprintf(f, "}\n"); + break; + case BIN(defined): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(rb_num_t op_type) = (rb_num_t)operands[0]; + MAYBE_UNUSED(VALUE obj) = (VALUE)operands[1]; + MAYBE_UNUSED(VALUE needstr) = (VALUE)operands[2]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) needstr, obj, v, val;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) op_type;\n"); + + fprintf(f, " op_type = (rb_num_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " obj = (VALUE)0x%"PRIxVALUE";", operands[1]); + if (SYMBOL_P((VALUE)operands[1])) comment_id(f, SYM2ID((VALUE)operands[1])); + fprintf(f, "\n"); + fprintf(f, " needstr = (VALUE)0x%"PRIxVALUE";", operands[2]); + if (SYMBOL_P((VALUE)operands[2])) comment_id(f, SYM2ID((VALUE)operands[2])); + fprintf(f, "\n"); + fprintf(f, " v = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_defined(ec, GET_CFP(), op_type, obj, needstr, v);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_defined(op_type, obj, needstr) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_defined(op_type, obj, needstr) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_defined(op_type, obj, needstr); + } + fprintf(f, "}\n"); + break; + case BIN(checkmatch): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(rb_num_t flag) = (rb_num_t)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) pattern, result, target;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) flag;\n"); + + fprintf(f, " flag = (rb_num_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " target = stack[%d];\n", b->stack_size - 2); + fprintf(f, " pattern = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " result = vm_check_match(ec, target, pattern, flag);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = result;\n", b->stack_size + (int)attr_sp_inc_checkmatch(flag) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_checkmatch(flag) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_checkmatch(flag); + } + fprintf(f, "}\n"); + break; + case BIN(checkkeyword): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(lindex_t kw_bits_index) = (lindex_t)operands[0]; + MAYBE_UNUSED(lindex_t keyword_index) = (lindex_t)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) ret;\n"); + fprintf(f, " MAYBE_UNUSED(lindex_t) keyword_index, kw_bits_index;\n"); + + fprintf(f, " kw_bits_index = (lindex_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " keyword_index = (lindex_t)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " ret = vm_check_keyword(kw_bits_index, keyword_index, GET_EP());\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = ret;\n", b->stack_size + (int)attr_sp_inc_checkkeyword(kw_bits_index, keyword_index) - 1); + b->stack_size += attr_sp_inc_checkkeyword(kw_bits_index, keyword_index); + } + fprintf(f, "}\n"); + break; + case BIN(checktype): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(rb_num_t type) = (rb_num_t)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) ret, val;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) type;\n"); + + fprintf(f, " type = (rb_num_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " val = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " ret = (TYPE(val) == (int)type) ? Qtrue : Qfalse;\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = ret;\n", b->stack_size + (int)attr_sp_inc_checktype(type) - 1); + b->stack_size += attr_sp_inc_checktype(type); + } + fprintf(f, "}\n"); + break; + case BIN(send): +{ + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + MAYBE_UNUSED(ISEQ blockiseq) = (ISEQ)operands[2]; + CALL_CACHE cc_copy = status->cc_entries + (cc - body->cc_entries); + if (has_valid_method_type(cc_copy)) { + const rb_iseq_t *iseq; + unsigned int argc = ci->orig_argc; /* unlike `ci->orig_argc`, `argc` may include blockarg */ + argc += ((ci->flag & VM_CALL_ARGS_BLOCKARG) ? 1 : 0); + + if (!(ci->flag & VM_CALL_TAILCALL) && /* inlining non-tailcall path */ + cc_copy->me->def->type == VM_METHOD_TYPE_ISEQ && inlinable_iseq_p(ci, cc_copy, iseq = def_iseq_ptr(cc_copy->me->def)) /* CC_SET_FASTPATH in vm_callee_setup_arg */) { + int param_size = iseq->body->param.size; /* TODO: check calling->argc for argument_arity_error */ + + fprintf(f, "{\n"); + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + + fprintf(f, " if (UNLIKELY(GET_GLOBAL_METHOD_STATE() != %"PRI_SERIALT_PREFIX"u ||\n", cc_copy->method_state); + fprintf(f, " RCLASS_SERIAL(CLASS_OF(stack[%d])) != %"PRI_SERIALT_PREFIX"u)) {\n", b->stack_size - 1 - argc, cc_copy->class_serial); + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + { + rb_snum_t i, push_size; + push_size = -attr_sp_inc_send(ci, cc, blockiseq) + 1 - 0; + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %ld + 1;\n", push_size); /* POPN(INSN_ATTR(popn)); */ + for (i = 0; i < push_size; i++) { + fprintf(f, " *(reg_cfp->sp + %ld) = stack[%ld];\n", i - push_size, (rb_snum_t)b->stack_size - push_size + i); + } + } + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1 - 0); /* POPN(INSN_ATTR(popn)); */ + } + + fprintf(f, " {\n"); + fprintf(f, " struct rb_calling_info calling;\n"); + fprintf(f, " calling.block_handler = vm_caller_setup_arg_block(ec, reg_cfp, (CALL_INFO)0x%"PRIxVALUE", (rb_iseq_t *)0x%"PRIxVALUE", FALSE);\n", operands[0], operands[2]); + fprintf(f, " calling.argc = %d;\n", ci->orig_argc); + fprintf(f, " calling.recv = stack[%d];\n", b->stack_size - 1 - argc); + + fprintf(f, " {\n"); + fprintf(f, " VALUE v;\n"); + fprintf(f, " vm_call_iseq_setup_normal(ec, reg_cfp, &calling, (const rb_callable_method_entry_t *)0x%"PRIxVALUE", 0, %d, %d);\n", + (VALUE)cc_copy->me, param_size, iseq->body->local_table_size); /* rb_simple_iseq_p checks rb_simple_iseq_p, which ensures has_opt == FALSE */ + if (iseq->body->catch_except_p) { + fprintf(f, " VM_ENV_FLAGS_SET(ec->cfp->ep, VM_FRAME_FLAG_FINISH);\n"); + fprintf(f, " v = vm_exec(ec, TRUE);\n"); + } + else { + fprintf(f, " if ((v = mjit_exec(ec)) == Qundef) {\n"); + fprintf(f, " VM_ENV_FLAGS_SET(ec->cfp->ep, VM_FRAME_FLAG_FINISH);\n"); /* This is vm_call0_body's code after vm_call_iseq_setup */ + fprintf(f, " v = vm_exec(ec, FALSE);\n"); + fprintf(f, " }\n"); + } + fprintf(f, " stack[%d] = v;\n", b->stack_size - argc - 1); + fprintf(f, " }\n"); + + fprintf(f, " }\n"); + + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_send(ci, cc, blockiseq) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + + b->stack_size += attr_sp_inc_send(ci, cc, blockiseq); + + fprintf(f, "}\n"); + break; + } + } +} + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + MAYBE_UNUSED(ISEQ blockiseq) = (ISEQ)operands[2]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(ISEQ) blockiseq;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " blockiseq = (ISEQ)0x%"PRIxVALUE";", operands[2]); + fprintf(f, "\n"); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + { + rb_snum_t i, push_size; + push_size = -attr_sp_inc_send(ci, cc, blockiseq) + 1 - 0; + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %ld + 1;\n", push_size); /* POPN(INSN_ATTR(popn)); */ + for (i = 0; i < push_size; i++) { + fprintf(f, " *(reg_cfp->sp + %ld) = stack[%ld];\n", i - push_size, (rb_snum_t)b->stack_size - push_size + i); + } + } + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1 - 0); /* POPN(INSN_ATTR(popn)); */ + } + fprintf(f, " {\n"); + fprintf(f, " struct rb_calling_info calling;\n"); + fprintf(f, "\n"); + fprintf(f, " calling.block_handler = vm_caller_setup_arg_block(ec, reg_cfp, ci, blockiseq, FALSE);\n"); + fprintf(f, " calling.recv = TOPN(calling.argc = ci->orig_argc);\n"); + fprintf(f, " vm_search_method(ci, cc, calling.recv);\n"); + fprintf(f, " CALL_METHOD(&calling, ci, cc);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_send(ci, cc, blockiseq) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_send(ci, cc, blockiseq) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_send(ci, cc, blockiseq); + } + fprintf(f, "}\n"); + break; + case BIN(opt_send_without_block): +{ + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + CALL_CACHE cc_copy = status->cc_entries + (cc - body->cc_entries); + if (has_valid_method_type(cc_copy)) { + const rb_iseq_t *iseq; + unsigned int argc = ci->orig_argc; /* unlike `ci->orig_argc`, `argc` may include blockarg */ + + if (!(ci->flag & VM_CALL_TAILCALL) && /* inlining non-tailcall path */ + cc_copy->me->def->type == VM_METHOD_TYPE_ISEQ && inlinable_iseq_p(ci, cc_copy, iseq = def_iseq_ptr(cc_copy->me->def)) /* CC_SET_FASTPATH in vm_callee_setup_arg */) { + int param_size = iseq->body->param.size; /* TODO: check calling->argc for argument_arity_error */ + + fprintf(f, "{\n"); + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + + fprintf(f, " if (UNLIKELY(GET_GLOBAL_METHOD_STATE() != %"PRI_SERIALT_PREFIX"u ||\n", cc_copy->method_state); + fprintf(f, " RCLASS_SERIAL(CLASS_OF(stack[%d])) != %"PRI_SERIALT_PREFIX"u)) {\n", b->stack_size - 1 - argc, cc_copy->class_serial); + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + { + rb_snum_t i, push_size; + push_size = -attr_sp_inc_opt_send_without_block(ci, cc) + 1 - 0; + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %ld + 1;\n", push_size); /* POPN(INSN_ATTR(popn)); */ + for (i = 0; i < push_size; i++) { + fprintf(f, " *(reg_cfp->sp + %ld) = stack[%ld];\n", i - push_size, (rb_snum_t)b->stack_size - push_size + i); + } + } + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1 - 0); /* POPN(INSN_ATTR(popn)); */ + } + + fprintf(f, " {\n"); + fprintf(f, " struct rb_calling_info calling;\n"); + fprintf(f, " calling.block_handler = VM_BLOCK_HANDLER_NONE;\n"); + fprintf(f, " calling.argc = %d;\n", ci->orig_argc); + fprintf(f, " calling.recv = stack[%d];\n", b->stack_size - 1 - argc); + + fprintf(f, " {\n"); + fprintf(f, " VALUE v;\n"); + fprintf(f, " vm_call_iseq_setup_normal(ec, reg_cfp, &calling, (const rb_callable_method_entry_t *)0x%"PRIxVALUE", 0, %d, %d);\n", + (VALUE)cc_copy->me, param_size, iseq->body->local_table_size); /* rb_simple_iseq_p checks rb_simple_iseq_p, which ensures has_opt == FALSE */ + if (iseq->body->catch_except_p) { + fprintf(f, " VM_ENV_FLAGS_SET(ec->cfp->ep, VM_FRAME_FLAG_FINISH);\n"); + fprintf(f, " v = vm_exec(ec, TRUE);\n"); + } + else { + fprintf(f, " if ((v = mjit_exec(ec)) == Qundef) {\n"); + fprintf(f, " VM_ENV_FLAGS_SET(ec->cfp->ep, VM_FRAME_FLAG_FINISH);\n"); /* This is vm_call0_body's code after vm_call_iseq_setup */ + fprintf(f, " v = vm_exec(ec, FALSE);\n"); + fprintf(f, " }\n"); + } + fprintf(f, " stack[%d] = v;\n", b->stack_size - argc - 1); + fprintf(f, " }\n"); + + fprintf(f, " }\n"); + + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_opt_send_without_block(ci, cc) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + + b->stack_size += attr_sp_inc_opt_send_without_block(ci, cc); + + fprintf(f, "}\n"); + break; + } + } +} + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + { + rb_snum_t i, push_size; + push_size = -attr_sp_inc_opt_send_without_block(ci, cc) + 1 - 0; + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %ld + 1;\n", push_size); /* POPN(INSN_ATTR(popn)); */ + for (i = 0; i < push_size; i++) { + fprintf(f, " *(reg_cfp->sp + %ld) = stack[%ld];\n", i - push_size, (rb_snum_t)b->stack_size - push_size + i); + } + } + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1 - 0); /* POPN(INSN_ATTR(popn)); */ + } + fprintf(f, " {\n"); + fprintf(f, " struct rb_calling_info calling;\n"); + fprintf(f, " calling.block_handler = VM_BLOCK_HANDLER_NONE;\n"); + fprintf(f, " vm_search_method(ci, cc, calling.recv = TOPN(calling.argc = ci->orig_argc));\n"); + fprintf(f, " CALL_METHOD(&calling, ci, cc);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_send_without_block(ci, cc) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_opt_send_without_block(ci, cc) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_opt_send_without_block(ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_str_freeze): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(VALUE str) = (VALUE)operands[0]; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[1]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[2]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) str, val;\n"); + + fprintf(f, " str = (VALUE)0x%"PRIxVALUE";", operands[0]); + if (SYMBOL_P((VALUE)operands[0])) comment_id(f, SYM2ID((VALUE)operands[0])); + fprintf(f, "\n"); + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[1]); + comment_id(f, ((CALL_INFO)operands[1])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[2]); + fprintf(f, "\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_str_freeze(str, BOP_FREEZE, idFreeze);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + fprintf(f, " PUSH(rb_str_resurrect(str));\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_str_freeze(str, ci, cc) - 1); + b->stack_size += attr_sp_inc_opt_str_freeze(str, ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_str_uminus): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(VALUE str) = (VALUE)operands[0]; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[1]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[2]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) str, val;\n"); + + fprintf(f, " str = (VALUE)0x%"PRIxVALUE";", operands[0]); + if (SYMBOL_P((VALUE)operands[0])) comment_id(f, SYM2ID((VALUE)operands[0])); + fprintf(f, "\n"); + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[1]); + comment_id(f, ((CALL_INFO)operands[1])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[2]); + fprintf(f, "\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_str_freeze(str, BOP_UMINUS, idUMinus);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + fprintf(f, " PUSH(rb_str_resurrect(str));\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_str_uminus(str, ci, cc) - 1); + b->stack_size += attr_sp_inc_opt_str_uminus(str, ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_newarray_max): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(rb_num_t num) = (rb_num_t)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) num;\n"); + + fprintf(f, " num = (rb_num_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_newarray_max(num, %s);\n", + (status->local_stack_p ? "stack + (stack_size - (num))" : "STACK_ADDR_FROM_TOP(num)")); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_newarray_max(num) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_opt_newarray_max(num) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_opt_newarray_max(num); + } + fprintf(f, "}\n"); + break; + case BIN(opt_newarray_min): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(rb_num_t num) = (rb_num_t)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) num;\n"); + + fprintf(f, " num = (rb_num_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_newarray_min(num, %s);\n", + (status->local_stack_p ? "stack + (stack_size - (num))" : "STACK_ADDR_FROM_TOP(num)")); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_newarray_min(num) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_opt_newarray_min(num) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_opt_newarray_min(num); + } + fprintf(f, "}\n"); + break; + case BIN(invokesuper): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + MAYBE_UNUSED(ISEQ blockiseq) = (ISEQ)operands[2]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(ISEQ) blockiseq;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " blockiseq = (ISEQ)0x%"PRIxVALUE";", operands[2]); + fprintf(f, "\n"); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + { + rb_snum_t i, push_size; + push_size = -attr_sp_inc_invokesuper(ci, cc, blockiseq) + 1 - 0; + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %ld + 1;\n", push_size); /* POPN(INSN_ATTR(popn)); */ + for (i = 0; i < push_size; i++) { + fprintf(f, " *(reg_cfp->sp + %ld) = stack[%ld];\n", i - push_size, (rb_snum_t)b->stack_size - push_size + i); + } + } + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1 - 0); /* POPN(INSN_ATTR(popn)); */ + } + fprintf(f, " {\n"); + fprintf(f, " struct rb_calling_info calling;\n"); + fprintf(f, "\n"); + fprintf(f, " calling.block_handler = vm_caller_setup_arg_block(ec, reg_cfp, ci, blockiseq, TRUE);\n"); + fprintf(f, " calling.recv = TOPN(calling.argc = ci->orig_argc);\n"); + fprintf(f, " vm_search_super_method(ec, GET_CFP(), &calling, ci, cc);\n"); + fprintf(f, " CALL_METHOD(&calling, ci, cc);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_invokesuper(ci, cc, blockiseq) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_invokesuper(ci, cc, blockiseq) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_invokesuper(ci, cc, blockiseq); + } + fprintf(f, "}\n"); + break; + case BIN(invokeblock): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + { + rb_snum_t i, push_size; + push_size = -attr_sp_inc_invokeblock(ci) + 1 - 0; + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %ld + 1;\n", push_size); /* POPN(INSN_ATTR(popn)); */ + for (i = 0; i < push_size; i++) { + fprintf(f, " *(reg_cfp->sp + %ld) = stack[%ld];\n", i - push_size, (rb_snum_t)b->stack_size - push_size + i); + } + } + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1 - 0); /* POPN(INSN_ATTR(popn)); */ + } + fprintf(f, " {\n"); + fprintf(f, " struct rb_calling_info calling;\n"); + fprintf(f, " VALUE block_handler;\n"); + fprintf(f, "\n"); + fprintf(f, " calling.argc = ci->orig_argc;\n"); + fprintf(f, " calling.block_handler = VM_BLOCK_HANDLER_NONE;\n"); + fprintf(f, " calling.recv = Qundef; /* should not be used */\n"); + fprintf(f, "\n"); + fprintf(f, " block_handler = VM_CF_BLOCK_HANDLER(GET_CFP());\n"); + fprintf(f, " if (block_handler == VM_BLOCK_HANDLER_NONE) {\n"); + fprintf(f, " rb_vm_localjump_error(\"no block given (yield)\", Qnil, 0);\n"); + fprintf(f, " }\n"); + fprintf(f, "\n"); + fprintf(f, " val = vm_invoke_block(ec, GET_CFP(), &calling, ci, block_handler);\n"); + fprintf(f, " if (val == Qundef) {\n"); + fprintf(f, " EXEC_EC_CFP(val);\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_invokeblock(ci) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_invokeblock(ci) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_invokeblock(ci); + } + fprintf(f, "}\n"); + break; + case BIN(leave): + if (b->stack_size != 1) { + if (mjit_opts.warnings || mjit_opts.verbose) + fprintf(stderr, "MJIT warning: Unexpected JIT stack_size on leave: %d\n", b->stack_size); + status->success = FALSE; + } + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + fprintf(f, " val = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + { + rb_snum_t i, push_size; + push_size = -attr_sp_inc_leave() + 1 - 1; + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %ld + 1;\n", push_size); /* POPN(INSN_ATTR(popn)); */ + for (i = 0; i < push_size; i++) { + fprintf(f, " *(reg_cfp->sp + %ld) = stack[%ld];\n", i - push_size, (rb_snum_t)b->stack_size - push_size + i); + } + } + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1 - 1); /* POPN(INSN_ATTR(popn)); */ + } + fprintf(f, " {\n"); + fprintf(f, " if (OPT_CHECKED_RUN) {\n"); + fprintf(f, " const VALUE *const bp = vm_base_ptr(reg_cfp);\n"); + fprintf(f, " if (reg_cfp->sp != bp) {\n"); + fprintf(f, " vm_stack_consistency_error(ec, reg_cfp, bp);\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, "\n"); + fprintf(f, " RUBY_VM_CHECK_INTS(ec);\n"); + fprintf(f, "\n"); + fprintf(f, " if (vm_pop_frame(ec, GET_CFP(), GET_EP())) {\n"); + fprintf(f, "#if OPT_CALL_THREADED_CODE\n"); + fprintf(f, " rb_ec_thread_ptr(ec)->retval = val;\n"); + fprintf(f, " return 0;\n"); + fprintf(f, "#else\n"); + fprintf(f, " return val;\n"); + fprintf(f, "#endif\n"); + fprintf(f, " }\n"); + fprintf(f, " else {\n"); + fprintf(f, "#if OPT_CALL_THREADED_CODE\n"); + fprintf(f, " rb_ec_thread_ptr(ec)->retval = val;\n"); + fprintf(f, " return 0;\n"); + fprintf(f, "#else\n"); + fprintf(f, " return val;\n"); + fprintf(f, "#endif\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_leave() - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_leave() + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_leave(); + } + fprintf(f, "}\n"); + b->finish_p = TRUE; + break; + case BIN(throw): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(rb_num_t throw_state) = (rb_num_t)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) throwobj, val;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) throw_state;\n"); + + fprintf(f, " throw_state = (rb_num_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " throwobj = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " RUBY_VM_CHECK_INTS(ec);\n"); + fprintf(f, " val = vm_throw(ec, GET_CFP(), throw_state, throwobj);\n"); + fprintf(f, " THROW_EXCEPTION(val);\n"); + fprintf(f, " /* unreachable */\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_throw(throw_state) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_throw(throw_state) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_throw(throw_state); + } + fprintf(f, "}\n"); + b->finish_p = TRUE; + break; + case BIN(jump): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(OFFSET dst) = (OFFSET)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(OFFSET) dst;\n"); + + fprintf(f, " dst = (OFFSET)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " RUBY_VM_CHECK_INTS(ec);\n"); + next_pos = pos + insn_len(insn) + (unsigned int)dst; + fprintf(f, " goto label_%d;\n", next_pos); + fprintf(f, " }\n"); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_jump(dst) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_jump(dst); + } + fprintf(f, "}\n"); + break; + case BIN(branchif): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(OFFSET dst) = (OFFSET)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(OFFSET) dst;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + fprintf(f, " dst = (OFFSET)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " val = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " if (RTEST(val)) {\n"); + fprintf(f, " RUBY_VM_CHECK_INTS(ec);\n"); + next_pos = pos + insn_len(insn) + (unsigned int)dst; + fprintf(f, " goto label_%d;\n", next_pos); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_branchif(dst) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_branchif(dst); + } + fprintf(f, "}\n"); + compile_insns(f, body, b->stack_size, pos + insn_len(insn), status); + break; + case BIN(branchunless): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(OFFSET dst) = (OFFSET)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(OFFSET) dst;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + fprintf(f, " dst = (OFFSET)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " val = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " if (!RTEST(val)) {\n"); + fprintf(f, " RUBY_VM_CHECK_INTS(ec);\n"); + next_pos = pos + insn_len(insn) + (unsigned int)dst; + fprintf(f, " goto label_%d;\n", next_pos); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_branchunless(dst) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_branchunless(dst); + } + fprintf(f, "}\n"); + compile_insns(f, body, b->stack_size, pos + insn_len(insn), status); + break; + case BIN(branchnil): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(OFFSET dst) = (OFFSET)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(OFFSET) dst;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + fprintf(f, " dst = (OFFSET)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " val = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " if (NIL_P(val)) {\n"); + fprintf(f, " RUBY_VM_CHECK_INTS(ec);\n"); + next_pos = pos + insn_len(insn) + (unsigned int)dst; + fprintf(f, " goto label_%d;\n", next_pos); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_branchnil(dst) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_branchnil(dst); + } + fprintf(f, "}\n"); + compile_insns(f, body, b->stack_size, pos + insn_len(insn), status); + break; + case BIN(opt_getinlinecache): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(OFFSET dst) = (OFFSET)operands[0]; + MAYBE_UNUSED(IC ic) = (IC)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(IC) ic;\n"); + fprintf(f, " MAYBE_UNUSED(OFFSET) dst;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + fprintf(f, " dst = (OFFSET)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " ic = (IC)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " if (vm_ic_hit_p(ic, GET_EP())) {\n"); + fprintf(f, " val = ic->ic_value.value;\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_getinlinecache(dst, ic) - 1); + next_pos = pos + insn_len(insn) + (unsigned int)dst; + fprintf(f, " goto label_%d;\n", next_pos); + fprintf(f, " }\n"); + fprintf(f, " else {\n"); + fprintf(f, " val = Qnil;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_getinlinecache(dst, ic) - 1); + b->stack_size += attr_sp_inc_opt_getinlinecache(dst, ic); + } + fprintf(f, "}\n"); + compile_insns(f, body, b->stack_size, pos + insn_len(insn), status); + break; + case BIN(opt_setinlinecache): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(IC ic) = (IC)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(IC) ic;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + fprintf(f, " ic = (IC)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " val = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " vm_ic_update(ic, val, GET_EP());\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_setinlinecache(ic) - 1); + b->stack_size += attr_sp_inc_opt_setinlinecache(ic); + } + fprintf(f, "}\n"); + break; + case BIN(once): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(ISEQ iseq) = (ISEQ)operands[0]; + MAYBE_UNUSED(ISE ise) = (ISE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(ISE) ise;\n"); + fprintf(f, " MAYBE_UNUSED(ISEQ) iseq;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + fprintf(f, " iseq = (ISEQ)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " ise = (ISE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + { + rb_snum_t i, push_size; + push_size = -attr_sp_inc_once(iseq, ise) + 1 - 0; + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %ld + 1;\n", push_size); /* POPN(INSN_ATTR(popn)); */ + for (i = 0; i < push_size; i++) { + fprintf(f, " *(reg_cfp->sp + %ld) = stack[%ld];\n", i - push_size, (rb_snum_t)b->stack_size - push_size + i); + } + } + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1 - 0); /* POPN(INSN_ATTR(popn)); */ + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_once_dispatch(ec, iseq, ise);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_once(iseq, ise) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_once(iseq, ise) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_once(iseq, ise); + } + fprintf(f, "}\n"); + break; + case BIN(opt_case_dispatch): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CDHASH hash) = (CDHASH)operands[0]; + MAYBE_UNUSED(OFFSET else_offset) = (OFFSET)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CDHASH) hash;\n"); + fprintf(f, " MAYBE_UNUSED(OFFSET) else_offset;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) key;\n"); + + fprintf(f, " hash = (CDHASH)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " else_offset = (OFFSET)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " key = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " OFFSET dst = vm_case_dispatch(hash, else_offset, key);\n"); + fprintf(f, "\n"); + fprintf(f, " if (dst) {\n"); + { + struct case_dispatch_var arg; + arg.f = f; + arg.base_pos = pos + insn_len(insn); + arg.last_value = Qundef; + + fprintf(f, " switch (dst) {\n"); + st_foreach(RHASH_TBL_RAW(hash), compile_case_dispatch_each, (VALUE)&arg); + fprintf(f, " case %lu:\n", else_offset); + fprintf(f, " goto label_%lu;\n", arg.base_pos + else_offset); + fprintf(f, " }\n"); + } + fprintf(f, " }\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_opt_case_dispatch(hash, else_offset); + } + fprintf(f, "}\n"); + compile_insns(f, body, b->stack_size, pos + insn_len(insn), status); + break; + case BIN(opt_plus): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) obj, recv, val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 2); + fprintf(f, " obj = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_plus(recv, obj);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_plus(ci, cc) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_opt_plus(ci, cc) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_opt_plus(ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_minus): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) obj, recv, val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 2); + fprintf(f, " obj = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_minus(recv, obj);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_minus(ci, cc) - 1); + b->stack_size += attr_sp_inc_opt_minus(ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_mult): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) obj, recv, val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 2); + fprintf(f, " obj = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_mult(recv, obj);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_mult(ci, cc) - 1); + b->stack_size += attr_sp_inc_opt_mult(ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_div): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) obj, recv, val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 2); + fprintf(f, " obj = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_div(recv, obj);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_div(ci, cc) - 1); + b->stack_size += attr_sp_inc_opt_div(ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_mod): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) obj, recv, val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 2); + fprintf(f, " obj = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_mod(recv, obj);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_mod(ci, cc) - 1); + b->stack_size += attr_sp_inc_opt_mod(ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_eq): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) obj, recv, val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 2); + fprintf(f, " obj = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = opt_eq_func(recv, obj, ci, cc);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_eq(ci, cc) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_opt_eq(ci, cc) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_opt_eq(ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_neq): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci_eq) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc_eq) = (CALL_CACHE)operands[1]; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[2]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[3]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc, cc_eq;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci, ci_eq;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) obj, recv, val;\n"); + + fprintf(f, " ci_eq = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc_eq = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[2]); + comment_id(f, ((CALL_INFO)operands[2])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[3]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 2); + fprintf(f, " obj = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_neq(ci, cc, ci_eq, cc_eq, recv, obj);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_neq(ci_eq, cc_eq, ci, cc) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_opt_neq(ci_eq, cc_eq, ci, cc) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_opt_neq(ci_eq, cc_eq, ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_lt): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) obj, recv, val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 2); + fprintf(f, " obj = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_lt(recv, obj);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_lt(ci, cc) - 1); + b->stack_size += attr_sp_inc_opt_lt(ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_le): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) obj, recv, val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 2); + fprintf(f, " obj = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_le(recv, obj);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_le(ci, cc) - 1); + b->stack_size += attr_sp_inc_opt_le(ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_gt): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) obj, recv, val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 2); + fprintf(f, " obj = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_gt(recv, obj);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_gt(ci, cc) - 1); + b->stack_size += attr_sp_inc_opt_gt(ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_ge): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) obj, recv, val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 2); + fprintf(f, " obj = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_ge(recv, obj);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_ge(ci, cc) - 1); + b->stack_size += attr_sp_inc_opt_ge(ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_ltlt): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) obj, recv, val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 2); + fprintf(f, " obj = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_ltlt(recv, obj);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_ltlt(ci, cc) - 1); + b->stack_size += attr_sp_inc_opt_ltlt(ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_and): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) obj, recv, val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 2); + fprintf(f, " obj = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_and(recv, obj);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_and(ci, cc) - 1); + b->stack_size += attr_sp_inc_opt_and(ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_or): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) obj, recv, val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 2); + fprintf(f, " obj = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_or(recv, obj);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_or(ci, cc) - 1); + b->stack_size += attr_sp_inc_opt_or(ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_aref): +{ + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + CALL_CACHE cc_copy = status->cc_entries + (cc - body->cc_entries); + if (has_valid_method_type(cc_copy)) { + const rb_iseq_t *iseq; + unsigned int argc = ci->orig_argc; /* unlike `ci->orig_argc`, `argc` may include blockarg */ + + if (!(ci->flag & VM_CALL_TAILCALL) && /* inlining non-tailcall path */ + cc_copy->me->def->type == VM_METHOD_TYPE_ISEQ && inlinable_iseq_p(ci, cc_copy, iseq = def_iseq_ptr(cc_copy->me->def)) /* CC_SET_FASTPATH in vm_callee_setup_arg */) { + int param_size = iseq->body->param.size; /* TODO: check calling->argc for argument_arity_error */ + + fprintf(f, "{\n"); + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + + fprintf(f, " if (UNLIKELY(GET_GLOBAL_METHOD_STATE() != %"PRI_SERIALT_PREFIX"u ||\n", cc_copy->method_state); + fprintf(f, " RCLASS_SERIAL(CLASS_OF(stack[%d])) != %"PRI_SERIALT_PREFIX"u)) {\n", b->stack_size - 1 - argc, cc_copy->class_serial); + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + { + rb_snum_t i, push_size; + push_size = -attr_sp_inc_opt_send_without_block(ci, cc) + 1 - 0; + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %ld + 1;\n", push_size); /* POPN(INSN_ATTR(popn)); */ + for (i = 0; i < push_size; i++) { + fprintf(f, " *(reg_cfp->sp + %ld) = stack[%ld];\n", i - push_size, (rb_snum_t)b->stack_size - push_size + i); + } + } + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1 - 0); /* POPN(INSN_ATTR(popn)); */ + } + + fprintf(f, " {\n"); + fprintf(f, " struct rb_calling_info calling;\n"); + fprintf(f, " calling.block_handler = VM_BLOCK_HANDLER_NONE;\n"); + fprintf(f, " calling.argc = %d;\n", ci->orig_argc); + fprintf(f, " calling.recv = stack[%d];\n", b->stack_size - 1 - argc); + + fprintf(f, " {\n"); + fprintf(f, " VALUE v;\n"); + fprintf(f, " vm_call_iseq_setup_normal(ec, reg_cfp, &calling, (const rb_callable_method_entry_t *)0x%"PRIxVALUE", 0, %d, %d);\n", + (VALUE)cc_copy->me, param_size, iseq->body->local_table_size); /* rb_simple_iseq_p checks rb_simple_iseq_p, which ensures has_opt == FALSE */ + if (iseq->body->catch_except_p) { + fprintf(f, " VM_ENV_FLAGS_SET(ec->cfp->ep, VM_FRAME_FLAG_FINISH);\n"); + fprintf(f, " v = vm_exec(ec, TRUE);\n"); + } + else { + fprintf(f, " if ((v = mjit_exec(ec)) == Qundef) {\n"); + fprintf(f, " VM_ENV_FLAGS_SET(ec->cfp->ep, VM_FRAME_FLAG_FINISH);\n"); /* This is vm_call0_body's code after vm_call_iseq_setup */ + fprintf(f, " v = vm_exec(ec, FALSE);\n"); + fprintf(f, " }\n"); + } + fprintf(f, " stack[%d] = v;\n", b->stack_size - argc - 1); + fprintf(f, " }\n"); + + fprintf(f, " }\n"); + + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_opt_send_without_block(ci, cc) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + + b->stack_size += attr_sp_inc_opt_send_without_block(ci, cc); + + fprintf(f, "}\n"); + break; + } + } +} + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) obj, recv, val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 2); + fprintf(f, " obj = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_aref(recv, obj);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_aref(ci, cc) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_opt_aref(ci, cc) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_opt_aref(ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_aset): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) obj, recv, set, val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 3); + fprintf(f, " obj = stack[%d];\n", b->stack_size - 2); + fprintf(f, " set = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_aset(recv, obj, set);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_aset(ci, cc) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_opt_aset(ci, cc) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_opt_aset(ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_aset_with): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(VALUE key) = (VALUE)operands[0]; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[1]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[2]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) key, recv, val;\n"); + + fprintf(f, " key = (VALUE)0x%"PRIxVALUE";", operands[0]); + if (SYMBOL_P((VALUE)operands[0])) comment_id(f, SYM2ID((VALUE)operands[0])); + fprintf(f, "\n"); + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[1]); + comment_id(f, ((CALL_INFO)operands[1])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[2]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 2); + fprintf(f, " val = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " VALUE tmp = vm_opt_aset_with(recv, key, val);\n"); + fprintf(f, "\n"); + fprintf(f, " if (tmp != Qundef) {\n"); + fprintf(f, " val = tmp;\n"); + fprintf(f, " }\n"); + fprintf(f, " else {\n"); + fprintf(f, "#ifndef MJIT_HEADER\n"); + fprintf(f, " %s = rb_str_resurrect(key);\n", + (status->local_stack_p ? "*(stack + (stack_size - (0) - 1))" : "TOPN(0)")); + fprintf(f, " PUSH(val);\n"); + fprintf(f, "#endif\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_aset_with(key, ci, cc) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_opt_aset_with(key, ci, cc) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_opt_aset_with(key, ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_aref_with): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(VALUE key) = (VALUE)operands[0]; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[1]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[2]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) key, recv, val;\n"); + + fprintf(f, " key = (VALUE)0x%"PRIxVALUE";", operands[0]); + if (SYMBOL_P((VALUE)operands[0])) comment_id(f, SYM2ID((VALUE)operands[0])); + fprintf(f, "\n"); + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[1]); + comment_id(f, ((CALL_INFO)operands[1])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[2]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_aref_with(recv, key);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + fprintf(f, "#ifndef MJIT_HEADER\n"); + fprintf(f, " PUSH(rb_str_resurrect(key));\n"); + fprintf(f, "#endif\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_aref_with(key, ci, cc) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_opt_aref_with(key, ci, cc) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_opt_aref_with(key, ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_length): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) recv, val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_length(recv, BOP_LENGTH);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_length(ci, cc) - 1); + b->stack_size += attr_sp_inc_opt_length(ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_size): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) recv, val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_length(recv, BOP_SIZE);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_size(ci, cc) - 1); + b->stack_size += attr_sp_inc_opt_size(ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_empty_p): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) recv, val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_empty_p(recv);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_empty_p(ci, cc) - 1); + b->stack_size += attr_sp_inc_opt_empty_p(ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_succ): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) recv, val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_succ(recv);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_succ(ci, cc) - 1); + b->stack_size += attr_sp_inc_opt_succ(ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_not): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) recv, val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " recv = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_not(ci, cc, recv);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_not(ci, cc) - 1); + b->stack_size += attr_sp_inc_opt_not(ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(opt_regexpmatch1): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(VALUE recv) = (VALUE)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) obj, recv, val;\n"); + + fprintf(f, " recv = (VALUE)0x%"PRIxVALUE";", operands[0]); + if (SYMBOL_P((VALUE)operands[0])) comment_id(f, SYM2ID((VALUE)operands[0])); + fprintf(f, "\n"); + fprintf(f, " obj = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || TRUE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_regexpmatch1(recv, obj);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_regexpmatch1(recv) - 1); + fprintf(f, " if (UNLIKELY(ruby_vm_event_enabled_global_flags & ISEQ_TRACE_EVENTS)) {\n"); + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + (int)attr_sp_inc_opt_regexpmatch1(recv) + 1); + if (!pc_moved_p) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); + } + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_opt_regexpmatch1(recv); + } + fprintf(f, "}\n"); + break; + case BIN(opt_regexpmatch2): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(CALL_INFO ci) = (CALL_INFO)operands[0]; + MAYBE_UNUSED(CALL_CACHE cc) = (CALL_CACHE)operands[1]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(CALL_CACHE) cc;\n"); + fprintf(f, " MAYBE_UNUSED(CALL_INFO) ci;\n"); + fprintf(f, " MAYBE_UNUSED(VALUE) obj1, obj2, val;\n"); + + fprintf(f, " ci = (CALL_INFO)0x%"PRIxVALUE";", operands[0]); + comment_id(f, ((CALL_INFO)operands[0])->mid); + fprintf(f, "\n"); + fprintf(f, " cc = (CALL_CACHE)0x%"PRIxVALUE";", operands[1]); + fprintf(f, "\n"); + fprintf(f, " obj2 = stack[%d];\n", b->stack_size - 2); + fprintf(f, " obj1 = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = vm_opt_regexpmatch2(obj2, obj1);\n"); + fprintf(f, "\n"); + fprintf(f, " if (val == Qundef) {\n"); + if (status->local_stack_p) { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", pos); + fprintf(f, " goto cancel;\n"); + fprintf(f, " }\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_opt_regexpmatch2(ci, cc) - 1); + b->stack_size += attr_sp_inc_opt_regexpmatch2(ci, cc); + } + fprintf(f, "}\n"); + break; + case BIN(bitblt): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) ret;\n"); + + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " ret = rb_str_new2(\"a bit of bacon, lettuce and tomato\");\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = ret;\n", b->stack_size + (int)attr_sp_inc_bitblt() - 1); + b->stack_size += attr_sp_inc_bitblt(); + } + fprintf(f, "}\n"); + break; + case BIN(answer): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) ret;\n"); + + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " ret = INT2FIX(42);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = ret;\n", b->stack_size + (int)attr_sp_inc_answer() - 1); + b->stack_size += attr_sp_inc_answer(); + } + fprintf(f, "}\n"); + break; + case BIN(getlocal_WC_0): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(lindex_t idx) = (lindex_t)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + fprintf(f, " MAYBE_UNUSED(lindex_t) idx;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) level;\n"); + + fprintf(f, " level = 0;\n"); + fprintf(f, " idx = (lindex_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = *(vm_get_ep(GET_EP(), level) - idx);\n"); + fprintf(f, " RB_DEBUG_COUNTER_INC(lvar_get);\n"); + fprintf(f, " (void)RB_DEBUG_COUNTER_INC_IF(lvar_get_dynamic, level > 0);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_getlocal_WC_0(idx) - 1); + b->stack_size += attr_sp_inc_getlocal_WC_0(idx); + } + fprintf(f, "}\n"); + break; + case BIN(getlocal_WC_1): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(lindex_t idx) = (lindex_t)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + fprintf(f, " MAYBE_UNUSED(lindex_t) idx;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) level;\n"); + + fprintf(f, " level = 1;\n"); + fprintf(f, " idx = (lindex_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " val = *(vm_get_ep(GET_EP(), level) - idx);\n"); + fprintf(f, " RB_DEBUG_COUNTER_INC(lvar_get);\n"); + fprintf(f, " (void)RB_DEBUG_COUNTER_INC_IF(lvar_get_dynamic, level > 0);\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_getlocal_WC_1(idx) - 1); + b->stack_size += attr_sp_inc_getlocal_WC_1(idx); + } + fprintf(f, "}\n"); + break; + case BIN(setlocal_WC_0): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(lindex_t idx) = (lindex_t)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + fprintf(f, " MAYBE_UNUSED(lindex_t) idx;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) level;\n"); + + fprintf(f, " level = 0;\n"); + fprintf(f, " idx = (lindex_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " val = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " vm_env_write(vm_get_ep(GET_EP(), level), -(int)idx, val);\n"); + fprintf(f, " RB_DEBUG_COUNTER_INC(lvar_set);\n"); + fprintf(f, " (void)RB_DEBUG_COUNTER_INC_IF(lvar_set_dynamic, level > 0);\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_setlocal_WC_0(idx); + } + fprintf(f, "}\n"); + break; + case BIN(setlocal_WC_1): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + MAYBE_UNUSED(lindex_t idx) = (lindex_t)operands[0]; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + fprintf(f, " MAYBE_UNUSED(lindex_t) idx;\n"); + fprintf(f, " MAYBE_UNUSED(rb_num_t) level;\n"); + + fprintf(f, " level = 1;\n"); + fprintf(f, " idx = (lindex_t)0x%"PRIxVALUE";", operands[0]); + fprintf(f, "\n"); + fprintf(f, " val = stack[%d];\n", b->stack_size - 1); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " vm_env_write(vm_get_ep(GET_EP(), level), -(int)idx, val);\n"); + fprintf(f, " RB_DEBUG_COUNTER_INC(lvar_set);\n"); + fprintf(f, " (void)RB_DEBUG_COUNTER_INC_IF(lvar_set_dynamic, level > 0);\n"); + fprintf(f, " }\n"); + b->stack_size += attr_sp_inc_setlocal_WC_1(idx); + } + fprintf(f, "}\n"); + break; + case BIN(putobject_INT2FIX_0_): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + fprintf(f, " val = INT2FIX(0);\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " /* */\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_putobject_INT2FIX_0_() - 1); + b->stack_size += attr_sp_inc_putobject_INT2FIX_0_(); + } + fprintf(f, "}\n"); + break; + case BIN(putobject_INT2FIX_1_): + fprintf(f, "{\n"); + { + MAYBE_UNUSED(int pc_moved_p) = FALSE; + if (status->local_stack_p) { + fprintf(f, " MAYBE_UNUSED(unsigned int) stack_size = %u;\n", b->stack_size); + } + fprintf(f, " MAYBE_UNUSED(VALUE) val;\n"); + + fprintf(f, " val = INT2FIX(1);\n"); + if (body->catch_except_p || FALSE) { + fprintf(f, " reg_cfp->pc = original_body_iseq + %d;\n", next_pos); /* ADD_PC(INSN_ATTR(width)); */ + pc_moved_p = TRUE; + } + if (status->local_stack_p) { + } + else { + fprintf(f, " reg_cfp->sp = (VALUE *)reg_cfp->bp + %d;\n", b->stack_size + 1); + } + fprintf(f, " {\n"); + fprintf(f, " /* */\n"); + fprintf(f, " }\n"); + fprintf(f, " stack[%d] = val;\n", b->stack_size + (int)attr_sp_inc_putobject_INT2FIX_1_() - 1); + b->stack_size += attr_sp_inc_putobject_INT2FIX_1_(); + } + fprintf(f, "}\n"); + break; + default: + if (mjit_opts.warnings || mjit_opts.verbose) + fprintf(stderr, "MJIT warning: Skipped to compile unsupported instruction: %s\n", insn_name(insn)); + status->success = FALSE; + break; +} diff --git a/generated/mjit_config.h b/generated/mjit_config.h new file mode 100644 index 0000000..ec07929 --- /dev/null +++ b/generated/mjit_config.h @@ -0,0 +1,20 @@ +#ifndef RUBY_MJIT_CONFIG_H +#define RUBY_MJIT_CONFIG_H 1 + +#ifdef LOAD_RELATIVE +#define MJIT_HEADER_INSTALL_DIR "/include/ruby-2.6.0/x86_64-linux" +#else +#define MJIT_HEADER_INSTALL_DIR "/home/wolf/nfv/dev/unikraft/apps/ukutest.git/build/libruby/origin/ruby-ruby_2_6/dist/include/ruby-2.6.0/x86_64-linux" +#endif +#define MJIT_MIN_HEADER_NAME "rb_mjit_min_header-2.6.6.h" +#define MJIT_CC_COMMON "/usr/bin/gcc", +#define MJIT_CFLAGS MJIT_ARCHFLAG "-w", +#define MJIT_OPTFLAGS "-O3", +#define MJIT_DEBUGFLAGS "-ggdb3", +#define MJIT_LDSHARED "/usr/bin/gcc", "-shared", +#define MJIT_DLDFLAGS MJIT_ARCHFLAG "-Wl,--compress-debug-sections=zlib", +#define MJIT_LIBS "-Wl,-rpath,/home/wolf/nfv/dev/unikraft/apps/ukutest.git/build/libruby/origin/ruby-ruby_2_6/dist/lib", "-L/home/wolf/nfv/dev/unikraft/apps/ukutest.git/build/libruby/origin/ruby-ruby_2_6/dist/lib", +#define PRELOADENV "LD_PRELOAD" +#define MJIT_ARCHFLAG /* no flag */ + +#endif /* RUBY_MJIT_CONFIG_H */ diff --git a/generated/node_name.inc b/generated/node_name.inc new file mode 100644 index 0000000..a02c792 --- /dev/null +++ b/generated/node_name.inc @@ -0,0 +1,200 @@ + case NODE_SCOPE: + return "NODE_SCOPE"; + case NODE_BLOCK: + return "NODE_BLOCK"; + case NODE_IF: + return "NODE_IF"; + case NODE_UNLESS: + return "NODE_UNLESS"; + case NODE_CASE: + return "NODE_CASE"; + case NODE_CASE2: + return "NODE_CASE2"; + case NODE_WHEN: + return "NODE_WHEN"; + case NODE_WHILE: + return "NODE_WHILE"; + case NODE_UNTIL: + return "NODE_UNTIL"; + case NODE_ITER: + return "NODE_ITER"; + case NODE_FOR: + return "NODE_FOR"; + case NODE_FOR_MASGN: + return "NODE_FOR_MASGN"; + case NODE_BREAK: + return "NODE_BREAK"; + case NODE_NEXT: + return "NODE_NEXT"; + case NODE_REDO: + return "NODE_REDO"; + case NODE_RETRY: + return "NODE_RETRY"; + case NODE_BEGIN: + return "NODE_BEGIN"; + case NODE_RESCUE: + return "NODE_RESCUE"; + case NODE_RESBODY: + return "NODE_RESBODY"; + case NODE_ENSURE: + return "NODE_ENSURE"; + case NODE_AND: + return "NODE_AND"; + case NODE_OR: + return "NODE_OR"; + case NODE_MASGN: + return "NODE_MASGN"; + case NODE_LASGN: + return "NODE_LASGN"; + case NODE_DASGN: + return "NODE_DASGN"; + case NODE_DASGN_CURR: + return "NODE_DASGN_CURR"; + case NODE_GASGN: + return "NODE_GASGN"; + case NODE_IASGN: + return "NODE_IASGN"; + case NODE_CDECL: + return "NODE_CDECL"; + case NODE_CVASGN: + return "NODE_CVASGN"; + case NODE_OP_ASGN1: + return "NODE_OP_ASGN1"; + case NODE_OP_ASGN2: + return "NODE_OP_ASGN2"; + case NODE_OP_ASGN_AND: + return "NODE_OP_ASGN_AND"; + case NODE_OP_ASGN_OR: + return "NODE_OP_ASGN_OR"; + case NODE_OP_CDECL: + return "NODE_OP_CDECL"; + case NODE_CALL: + return "NODE_CALL"; + case NODE_OPCALL: + return "NODE_OPCALL"; + case NODE_FCALL: + return "NODE_FCALL"; + case NODE_VCALL: + return "NODE_VCALL"; + case NODE_QCALL: + return "NODE_QCALL"; + case NODE_SUPER: + return "NODE_SUPER"; + case NODE_ZSUPER: + return "NODE_ZSUPER"; + case NODE_ARRAY: + return "NODE_ARRAY"; + case NODE_ZARRAY: + return "NODE_ZARRAY"; + case NODE_VALUES: + return "NODE_VALUES"; + case NODE_HASH: + return "NODE_HASH"; + case NODE_RETURN: + return "NODE_RETURN"; + case NODE_YIELD: + return "NODE_YIELD"; + case NODE_LVAR: + return "NODE_LVAR"; + case NODE_DVAR: + return "NODE_DVAR"; + case NODE_GVAR: + return "NODE_GVAR"; + case NODE_IVAR: + return "NODE_IVAR"; + case NODE_CONST: + return "NODE_CONST"; + case NODE_CVAR: + return "NODE_CVAR"; + case NODE_NTH_REF: + return "NODE_NTH_REF"; + case NODE_BACK_REF: + return "NODE_BACK_REF"; + case NODE_MATCH: + return "NODE_MATCH"; + case NODE_MATCH2: + return "NODE_MATCH2"; + case NODE_MATCH3: + return "NODE_MATCH3"; + case NODE_LIT: + return "NODE_LIT"; + case NODE_STR: + return "NODE_STR"; + case NODE_DSTR: + return "NODE_DSTR"; + case NODE_XSTR: + return "NODE_XSTR"; + case NODE_DXSTR: + return "NODE_DXSTR"; + case NODE_EVSTR: + return "NODE_EVSTR"; + case NODE_DREGX: + return "NODE_DREGX"; + case NODE_ONCE: + return "NODE_ONCE"; + case NODE_ARGS: + return "NODE_ARGS"; + case NODE_ARGS_AUX: + return "NODE_ARGS_AUX"; + case NODE_OPT_ARG: + return "NODE_OPT_ARG"; + case NODE_KW_ARG: + return "NODE_KW_ARG"; + case NODE_POSTARG: + return "NODE_POSTARG"; + case NODE_ARGSCAT: + return "NODE_ARGSCAT"; + case NODE_ARGSPUSH: + return "NODE_ARGSPUSH"; + case NODE_SPLAT: + return "NODE_SPLAT"; + case NODE_BLOCK_PASS: + return "NODE_BLOCK_PASS"; + case NODE_DEFN: + return "NODE_DEFN"; + case NODE_DEFS: + return "NODE_DEFS"; + case NODE_ALIAS: + return "NODE_ALIAS"; + case NODE_VALIAS: + return "NODE_VALIAS"; + case NODE_UNDEF: + return "NODE_UNDEF"; + case NODE_CLASS: + return "NODE_CLASS"; + case NODE_MODULE: + return "NODE_MODULE"; + case NODE_SCLASS: + return "NODE_SCLASS"; + case NODE_COLON2: + return "NODE_COLON2"; + case NODE_COLON3: + return "NODE_COLON3"; + case NODE_DOT2: + return "NODE_DOT2"; + case NODE_DOT3: + return "NODE_DOT3"; + case NODE_FLIP2: + return "NODE_FLIP2"; + case NODE_FLIP3: + return "NODE_FLIP3"; + case NODE_SELF: + return "NODE_SELF"; + case NODE_NIL: + return "NODE_NIL"; + case NODE_TRUE: + return "NODE_TRUE"; + case NODE_FALSE: + return "NODE_FALSE"; + case NODE_ERRINFO: + return "NODE_ERRINFO"; + case NODE_DEFINED: + return "NODE_DEFINED"; + case NODE_POSTEXE: + return "NODE_POSTEXE"; + case NODE_DSYM: + return "NODE_DSYM"; + case NODE_ATTRASGN: + return "NODE_ATTRASGN"; + case NODE_LAMBDA: + return "NODE_LAMBDA"; diff --git a/generated/optinsn.inc b/generated/optinsn.inc new file mode 100644 index 0000000..04898d8 --- /dev/null +++ b/generated/optinsn.inc @@ -0,0 +1,128 @@ +/* -*- mode:c; style:ruby; coding: utf-8; indent-tabs-mode: nil -*- */ + +/* This is an auto-generated file and is a part of the programming language + * Ruby. The person who created a program to generate this file (``I'' + * hereafter) would like to refrain from defining licensing of this generated + * source code. + * + * This file consist of many small parts of codes copyrighted by each authors, + * not only the ``I'' person. Those original authors agree with some + * open-source license. I believe that the license we agree is the condition + * mentioned in the file COPYING. It states "4. You may modify and include + * the part of the software into any other software ...". But the problem is, + * the license never makes it clear if such modified parts still remain in the + * same license, or not. The fact that we agree with the source code's + * licensing terms do not automatically define that of generated ones. This is + * the reason why this file is under unclear situation. All that I know is + * that above provision guarantees this file to exist. + * + * Please let me hesitate to declare something about this nuanced contract. I + * am not in the position to take over other authors' license to merge into my + * one. Changing them to (say) GPLv3 is not doable by myself. Perhaps someday + * it might turn out to be okay to say this file is under a license. I wish the + * situation would become more clear in the future. */ +/*******************************************************************/ +/*******************************************************************/ +/*******************************************************************/ +/** + This file is for threaded code. + + ---- + This file is auto generated by insns2vm.rb + DO NOT TOUCH! + + If you want to fix something, you must edit "tool/ruby_vm/views/optinsn.inc.erb" + or tool/insns2vm.rb + */ + +static INSN * +insn_operands_unification(INSN *iobj) +{ +#ifdef OPT_OPERANDS_UNIFICATION + VALUE *op = iobj->operands; + + switch (iobj->insn_id) { + default: + /* do nothing */; + break; + + case BIN(getlocal): + + /* getlocal_WC_0(idx)()(val) */ + if ( op[1] == LONG2NUM(0) ) { + iobj->insn_id = BIN(getlocal_WC_0); + iobj->operand_size = 1; + break; + } + + /* getlocal_WC_1(idx)()(val) */ + if ( op[1] == LONG2NUM(1) ) { + iobj->insn_id = BIN(getlocal_WC_1); + iobj->operand_size = 1; + break; + } + + break; + case BIN(setlocal): + + /* setlocal_WC_0(idx)(val)() */ + if ( op[1] == LONG2NUM(0) ) { + iobj->insn_id = BIN(setlocal_WC_0); + iobj->operand_size = 1; + break; + } + + /* setlocal_WC_1(idx)(val)() */ + if ( op[1] == LONG2NUM(1) ) { + iobj->insn_id = BIN(setlocal_WC_1); + iobj->operand_size = 1; + break; + } + + break; + case BIN(putobject): + + /* putobject_INT2FIX_0_()()(val) */ + if ( op[0] == INT2FIX(0) ) { + iobj->insn_id = BIN(putobject_INT2FIX_0_); + iobj->operand_size = 0; + break; + } + + /* putobject_INT2FIX_1_()()(val) */ + if ( op[0] == INT2FIX(1) ) { + iobj->insn_id = BIN(putobject_INT2FIX_1_); + iobj->operand_size = 0; + break; + } + + break; + } +#endif + return iobj; +} + +int +rb_insn_unified_local_var_level(VALUE insn) +{ +#ifdef OPT_OPERANDS_UNIFICATION + /* optimize rule */ + switch (insn) { + default: + return -1; /* do nothing */; + case BIN(getlocal_WC_0): + return 0; + case BIN(getlocal_WC_1): + return 1; + case BIN(setlocal_WC_0): + return 0; + case BIN(setlocal_WC_1): + return 1; + case BIN(putobject_INT2FIX_0_): + return INT2FIX(0); + case BIN(putobject_INT2FIX_1_): + return INT2FIX(1); + } +#endif + return -1; +} diff --git a/generated/parse.c b/generated/parse.c new file mode 100644 index 0000000..3a675e9 --- /dev/null +++ b/generated/parse.c @@ -0,0 +1,17737 @@ +/* A Bison parser, made by GNU Bison 3.3.2. */ + +/* Bison implementation for Yacc-like parsers in C + + Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2019 Free Software Foundation, + Inc. + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see <http://www.gnu.org/licenses/>. */ + +/* As a special exception, you may create a larger work that contains + part or all of the Bison parser skeleton and distribute that work + under terms of your choice, so long as that work isn't itself a + parser generator using the skeleton or a modified version thereof + as a parser skeleton. Alternatively, if you modify or redistribute + the parser skeleton itself, you may (at your option) remove this + special exception, which will cause the skeleton and the resulting + Bison output files to be licensed under the GNU General Public + License without this special exception. + + This special exception was added by the Free Software Foundation in + version 2.2 of Bison. */ + +/* C LALR(1) parser skeleton written by Richard Stallman, by + simplifying the original so-called "semantic" parser. */ + +/* All symbols defined below should begin with yy or YY, to avoid + infringing on user name space. This should be done even for local + variables, as they might otherwise be expanded by user macros. + There are some unavoidable exceptions within include files to + define necessary library symbols; they are noted "INFRINGES ON + USER NAME SPACE" below. */ + +/* Undocumented macros, especially those whose name start with YY_, + are private implementation details. Do not rely on them. */ + +/* Identify Bison output. */ +#define YYBISON 1 + +/* Bison version. */ +#define YYBISON_VERSION "3.3.2" + +/* Skeleton name. */ +#define YYSKELETON_NAME "yacc.c" + +/* Pure parsers. */ +#define YYPURE 1 + +/* Push parsers. */ +#define YYPUSH 0 + +/* Pull parsers. */ +#define YYPULL 1 + + + + +/* First part of user prologue. */ +#line 12 "parse.y" /* yacc.c:337 */ + + +#if !YYPURE +# error needs pure parser +#endif +#define YYDEBUG 1 +#define YYERROR_VERBOSE 1 +#define YYSTACK_USE_ALLOCA 0 +#define YYLTYPE rb_code_location_t +#define YYLTYPE_IS_DECLARED 1 + +#include "ruby/ruby.h" +#include "ruby/st.h" +#include "ruby/encoding.h" +#include "internal.h" +#include "node.h" +#include "parse.h" +#include "symbol.h" +#include "regenc.h" +#include <stdio.h> +#include <errno.h> +#include <ctype.h> +#include "probes.h" + +#ifndef WARN_PAST_SCOPE +# define WARN_PAST_SCOPE 0 +#endif + +#define TAB_WIDTH 8 + +#define yydebug (p->debug) /* disable the global variable definition */ + +#define YYMALLOC(size) rb_parser_malloc(p, (size)) +#define YYREALLOC(ptr, size) rb_parser_realloc(p, (ptr), (size)) +#define YYCALLOC(nelem, size) rb_parser_calloc(p, (nelem), (size)) +#define YYFREE(ptr) rb_parser_free(p, (ptr)) +#define YYFPRINTF rb_parser_printf +#define YYPRINT(out, tok, val) parser_token_value_print(p, (tok), &(val)) +#define YY_LOCATION_PRINT(File, loc) \ + rb_parser_printf(p, "%d.%d-%d.%d", \ + (loc).beg_pos.lineno, (loc).beg_pos.column,\ + (loc).end_pos.lineno, (loc).end_pos.column) +#define YYLLOC_DEFAULT(Current, Rhs, N) \ + do \ + if (N) \ + { \ + (Current).beg_pos = YYRHSLOC(Rhs, 1).beg_pos; \ + (Current).end_pos = YYRHSLOC(Rhs, N).end_pos; \ + } \ + else \ + { \ + (Current).beg_pos = YYRHSLOC(Rhs, 0).end_pos; \ + (Current).end_pos = YYRHSLOC(Rhs, 0).end_pos; \ + } \ + while (0) + +#define RUBY_SET_YYLLOC_FROM_STRTERM_HEREDOC(Current) \ + rb_parser_set_location_from_strterm_heredoc(p, &p->lex.strterm->u.heredoc, &(Current)) +#define RUBY_SET_YYLLOC_OF_NONE(Current) \ + rb_parser_set_location_of_none(p, &(Current)) +#define RUBY_SET_YYLLOC(Current) \ + rb_parser_set_location(p, &(Current)) + +enum lex_state_bits { + EXPR_BEG_bit, /* ignore newline, +/- is a sign. */ + EXPR_END_bit, /* newline significant, +/- is an operator. */ + EXPR_ENDARG_bit, /* ditto, and unbound braces. */ + EXPR_ENDFN_bit, /* ditto, and unbound braces. */ + EXPR_ARG_bit, /* newline significant, +/- is an operator. */ + EXPR_CMDARG_bit, /* newline significant, +/- is an operator. */ + EXPR_MID_bit, /* newline significant, +/- is an operator. */ + EXPR_FNAME_bit, /* ignore newline, no reserved words. */ + EXPR_DOT_bit, /* right after `.' or `::', no reserved words. */ + EXPR_CLASS_bit, /* immediate after `class', no here document. */ + EXPR_LABEL_bit, /* flag bit, label is allowed. */ + EXPR_LABELED_bit, /* flag bit, just after a label. */ + EXPR_FITEM_bit, /* symbol literal as FNAME. */ + EXPR_MAX_STATE +}; +/* examine combinations */ +enum lex_state_e { +#define DEF_EXPR(n) EXPR_##n = (1 << EXPR_##n##_bit) + DEF_EXPR(BEG), + DEF_EXPR(END), + DEF_EXPR(ENDARG), + DEF_EXPR(ENDFN), + DEF_EXPR(ARG), + DEF_EXPR(CMDARG), + DEF_EXPR(MID), + DEF_EXPR(FNAME), + DEF_EXPR(DOT), + DEF_EXPR(CLASS), + DEF_EXPR(LABEL), + DEF_EXPR(LABELED), + DEF_EXPR(FITEM), + EXPR_VALUE = EXPR_BEG, + EXPR_BEG_ANY = (EXPR_BEG | EXPR_MID | EXPR_CLASS), + EXPR_ARG_ANY = (EXPR_ARG | EXPR_CMDARG), + EXPR_END_ANY = (EXPR_END | EXPR_ENDARG | EXPR_ENDFN), + EXPR_NONE = 0 +}; +#define IS_lex_state_for(x, ls) ((x) & (ls)) +#define IS_lex_state_all_for(x, ls) (((x) & (ls)) == (ls)) +#define IS_lex_state(ls) IS_lex_state_for(p->lex.state, (ls)) +#define IS_lex_state_all(ls) IS_lex_state_all_for(p->lex.state, (ls)) + +# define SET_LEX_STATE(ls) \ + (p->lex.state = \ + (p->debug ? \ + rb_parser_trace_lex_state(p, p->lex.state, (ls), __LINE__) : \ + (enum lex_state_e)(ls))) + +typedef VALUE stack_type; + +static const rb_code_location_t NULL_LOC = { {0, -1}, {0, -1} }; + +# define SHOW_BITSTACK(stack, name) (p->debug ? rb_parser_show_bitstack(p, stack, name, __LINE__) : (void)0) +# define BITSTACK_PUSH(stack, n) (((p->stack) = ((p->stack)<<1)|((n)&1)), SHOW_BITSTACK(p->stack, #stack"(push)")) +# define BITSTACK_POP(stack) (((p->stack) = (p->stack) >> 1), SHOW_BITSTACK(p->stack, #stack"(pop)")) +# define BITSTACK_SET_P(stack) (SHOW_BITSTACK(p->stack, #stack), (p->stack)&1) +# define BITSTACK_SET(stack, n) ((p->stack)=(n), SHOW_BITSTACK(p->stack, #stack"(set)")) + +/* A flag to identify keyword_do_cond, "do" keyword after condition expression. + Examples: `while ... do`, `until ... do`, and `for ... in ... do` */ +#define COND_PUSH(n) BITSTACK_PUSH(cond_stack, (n)) +#define COND_POP() BITSTACK_POP(cond_stack) +#define COND_P() BITSTACK_SET_P(cond_stack) +#define COND_SET(n) BITSTACK_SET(cond_stack, (n)) + +/* A flag to identify keyword_do_block; "do" keyword after command_call. + Example: `foo 1, 2 do`. */ +#define CMDARG_PUSH(n) BITSTACK_PUSH(cmdarg_stack, (n)) +#define CMDARG_POP() BITSTACK_POP(cmdarg_stack) +#define CMDARG_P() BITSTACK_SET_P(cmdarg_stack) +#define CMDARG_SET(n) BITSTACK_SET(cmdarg_stack, (n)) + +struct vtable { + ID *tbl; + int pos; + int capa; + struct vtable *prev; +}; + +struct local_vars { + struct vtable *args; + struct vtable *vars; + struct vtable *used; +# if WARN_PAST_SCOPE + struct vtable *past; +# endif + struct local_vars *prev; +}; + +#define DVARS_INHERIT ((void*)1) +#define DVARS_TOPSCOPE NULL +#define DVARS_TERMINAL_P(tbl) ((tbl) == DVARS_INHERIT || (tbl) == DVARS_TOPSCOPE) + +typedef struct token_info { + const char *token; + int linenum; + int column; + int nonspc; + struct token_info *next; +} token_info; + +typedef struct rb_strterm_struct rb_strterm_t; + +/* + Structure of Lexer Buffer: + + lex.pbeg lex.ptok lex.pcur lex.pend + | | | | + |------------+------------+------------| + |<---------->| + token +*/ +struct parser_params { + rb_imemo_tmpbuf_t *heap; + + YYSTYPE *lval; + + struct { + rb_strterm_t *strterm; + VALUE (*gets)(struct parser_params*,VALUE); + VALUE input; + VALUE prevline; + VALUE lastline; + VALUE nextline; + const char *pbeg; + const char *pcur; + const char *pend; + const char *ptok; + union { + long ptr; + VALUE (*call)(VALUE, int); + } gets_; + enum lex_state_e state; + /* track the nest level of any parens "()[]{}" */ + int paren_nest; + /* keep p->lex.paren_nest at the beginning of lambda "->" to detect tLAMBEG and keyword_do_LAMBDA */ + int lpar_beg; + /* track the nest level of only braces "{}" */ + int brace_nest; + } lex; + stack_type cond_stack; + stack_type cmdarg_stack; + int tokidx; + int toksiz; + int tokline; + int heredoc_end; + int heredoc_indent; + int heredoc_line_indent; + char *tokenbuf; + struct local_vars *lvtbl; + int line_count; + int ruby_sourceline; /* current line no. */ + const char *ruby_sourcefile; /* current source file */ + VALUE ruby_sourcefile_string; + rb_encoding *enc; + token_info *token_info; + VALUE compile_option; + + VALUE debug_buffer; + VALUE debug_output; + + ID cur_arg; + + rb_ast_t *ast; + int node_id; + + unsigned int command_start:1; + unsigned int eofp: 1; + unsigned int ruby__end__seen: 1; + unsigned int debug: 1; + unsigned int has_shebang: 1; + unsigned int in_defined: 1; + unsigned int in_main: 1; + unsigned int in_kwarg: 1; + unsigned int in_def: 1; + unsigned int in_class: 1; + unsigned int token_seen: 1; + unsigned int token_info_enabled: 1; +# if WARN_PAST_SCOPE + unsigned int past_scope_enabled: 1; +# endif + unsigned int error_p: 1; + unsigned int cr_seen: 1; + +#ifndef RIPPER + /* Ruby core only */ + + unsigned int do_print: 1; + unsigned int do_loop: 1; + unsigned int do_chomp: 1; + unsigned int do_split: 1; + unsigned int warn_location: 1; + + NODE *eval_tree_begin; + NODE *eval_tree; + VALUE error_buffer; + VALUE debug_lines; + const struct rb_block *base_block; +#else + /* Ripper only */ + + VALUE delayed; + int delayed_line; + int delayed_col; + + VALUE value; + VALUE result; + VALUE parsing_thread; +#endif +}; + +#define new_tmpbuf() \ + (rb_imemo_tmpbuf_t *)add_mark_object(p, rb_imemo_tmpbuf_auto_free_pointer(NULL)) + +#define intern_cstr(n,l,en) rb_intern3(n,l,en) + +#define STR_NEW(ptr,len) rb_enc_str_new((ptr),(len),p->enc) +#define STR_NEW0() rb_enc_str_new(0,0,p->enc) +#define STR_NEW2(ptr) rb_enc_str_new((ptr),strlen(ptr),p->enc) +#define STR_NEW3(ptr,len,e,func) parser_str_new((ptr),(len),(e),(func),p->enc) +#define TOK_INTERN() intern_cstr(tok(p), toklen(p), p->enc) + +static int parser_yyerror(struct parser_params*, const YYLTYPE *yylloc, const char*); +#define yyerror0(msg) parser_yyerror(p, NULL, (msg)) +#define yyerror1(loc, msg) parser_yyerror(p, (loc), (msg)) +#define yyerror(yylloc, p, msg) parser_yyerror(p, yylloc, msg) +#define token_flush(ptr) ((ptr)->lex.ptok = (ptr)->lex.pcur) + +#ifdef RIPPER +#define compile_for_eval (0) +#else +#define compile_for_eval (p->base_block != 0 && !p->in_main) +#endif + +#define token_column ((int)(p->lex.ptok - p->lex.pbeg)) + +#define CALL_Q_P(q) ((q) == TOKEN2VAL(tANDDOT)) +#define NODE_CALL_Q(q) (CALL_Q_P(q) ? NODE_QCALL : NODE_CALL) +#define NEW_QCALL(q,r,m,a,loc) NEW_NODE(NODE_CALL_Q(q),r,m,a,loc) + +#define lambda_beginning_p() (p->lex.lpar_beg == p->lex.paren_nest) + +static enum yytokentype yylex(YYSTYPE*, YYLTYPE*, struct parser_params*); + +#ifndef RIPPER +static inline void +rb_discard_node(struct parser_params *p, NODE *n) +{ + rb_ast_delete_node(p->ast, n); +} +#endif + +static inline VALUE +add_mark_object(struct parser_params *p, VALUE obj) +{ + if (!SPECIAL_CONST_P(obj) +#ifdef RIPPER + && !RB_TYPE_P(obj, T_NODE) /* Ripper jumbles NODE objects and other objects... */ +#endif + ) { + rb_ast_add_mark_object(p->ast, obj); + } + return obj; +} + +static NODE* node_newnode(struct parser_params *, enum node_type, VALUE, VALUE, VALUE, const rb_code_location_t*); +#define rb_node_newnode(type, a1, a2, a3, loc) node_newnode(p, (type), (a1), (a2), (a3), (loc)) + +static NODE *nd_set_loc(NODE *nd, const YYLTYPE *loc); + +static int +parser_get_node_id(struct parser_params *p) +{ + int node_id = p->node_id; + p->node_id++; + return node_id; +} + +#ifndef RIPPER +static inline void +set_line_body(NODE *body, int line) +{ + if (!body) return; + switch (nd_type(body)) { + case NODE_RESCUE: + case NODE_ENSURE: + nd_set_line(body, line); + } +} + +#define yyparse ruby_yyparse + +static NODE* cond(struct parser_params *p, NODE *node, const YYLTYPE *loc); +static NODE* method_cond(struct parser_params *p, NODE *node, const YYLTYPE *loc); +#define new_nil(loc) NEW_NIL(loc) +static NODE *new_if(struct parser_params*,NODE*,NODE*,NODE*,const YYLTYPE*); +static NODE *new_unless(struct parser_params*,NODE*,NODE*,NODE*,const YYLTYPE*); +static NODE *logop(struct parser_params*,ID,NODE*,NODE*,const YYLTYPE*,const YYLTYPE*); + +static NODE *newline_node(NODE*); +static void fixpos(NODE*,NODE*); + +static int value_expr_gen(struct parser_params*,NODE*); +static void void_expr(struct parser_params*,NODE*); +static NODE *remove_begin(NODE*); +static NODE *remove_begin_all(NODE*); +#define value_expr(node) value_expr_gen(p, (node) = remove_begin(node)) +static NODE *void_stmts(struct parser_params*,NODE*); +static void reduce_nodes(struct parser_params*,NODE**); +static void block_dup_check(struct parser_params*,NODE*,NODE*); + +static NODE *block_append(struct parser_params*,NODE*,NODE*); +static NODE *list_append(struct parser_params*,NODE*,NODE*); +static NODE *list_concat(NODE*,NODE*); +static NODE *arg_append(struct parser_params*,NODE*,NODE*,const YYLTYPE*); +static NODE *last_arg_append(struct parser_params *p, NODE *args, NODE *last_arg, const YYLTYPE *loc); +static NODE *rest_arg_append(struct parser_params *p, NODE *args, NODE *rest_arg, const YYLTYPE *loc); +static NODE *literal_concat(struct parser_params*,NODE*,NODE*,const YYLTYPE*); +static NODE *new_evstr(struct parser_params*,NODE*,const YYLTYPE*); +static NODE *evstr2dstr(struct parser_params*,NODE*); +static NODE *splat_array(NODE*); + +static NODE *call_bin_op(struct parser_params*,NODE*,ID,NODE*,const YYLTYPE*,const YYLTYPE*); +static NODE *call_uni_op(struct parser_params*,NODE*,ID,const YYLTYPE*,const YYLTYPE*); +static NODE *new_qcall(struct parser_params* p, ID atype, NODE *recv, ID mid, NODE *args, const YYLTYPE *op_loc, const YYLTYPE *loc); +static NODE *new_command_qcall(struct parser_params* p, ID atype, NODE *recv, ID mid, NODE *args, NODE *block, const YYLTYPE *op_loc, const YYLTYPE *loc); +static NODE *method_add_block(struct parser_params*p, NODE *m, NODE *b, const YYLTYPE *loc) {b->nd_iter = m; b->nd_loc = *loc; return b;} + +static NODE *new_args(struct parser_params*,NODE*,NODE*,ID,NODE*,NODE*,const YYLTYPE*); +static NODE *new_args_tail(struct parser_params*,NODE*,ID,ID,const YYLTYPE*); +static NODE *new_kw_arg(struct parser_params *p, NODE *k, const YYLTYPE *loc); + +static VALUE negate_lit(struct parser_params*, VALUE); +static NODE *ret_args(struct parser_params*,NODE*); +static NODE *arg_blk_pass(NODE*,NODE*); +static NODE *new_yield(struct parser_params*,NODE*,const YYLTYPE*); +static NODE *dsym_node(struct parser_params*,NODE*,const YYLTYPE*); + +static NODE *gettable(struct parser_params*,ID,const YYLTYPE*); +static NODE *assignable(struct parser_params*,ID,NODE*,const YYLTYPE*); + +static NODE *aryset(struct parser_params*,NODE*,NODE*,const YYLTYPE*); +static NODE *attrset(struct parser_params*,NODE*,ID,ID,const YYLTYPE*); + +static void rb_backref_error(struct parser_params*,NODE*); +static NODE *node_assign(struct parser_params*,NODE*,NODE*,const YYLTYPE*); + +static NODE *new_op_assign(struct parser_params *p, NODE *lhs, ID op, NODE *rhs, const YYLTYPE *loc); +static NODE *new_ary_op_assign(struct parser_params *p, NODE *ary, NODE *args, ID op, NODE *rhs, const YYLTYPE *args_loc, const YYLTYPE *loc); +static NODE *new_attr_op_assign(struct parser_params *p, NODE *lhs, ID atype, ID attr, ID op, NODE *rhs, const YYLTYPE *loc); +static NODE *new_const_op_assign(struct parser_params *p, NODE *lhs, ID op, NODE *rhs, const YYLTYPE *loc); +static NODE *new_bodystmt(struct parser_params *p, NODE *head, NODE *rescue, NODE *rescue_else, NODE *ensure, const YYLTYPE *loc); + +static NODE *const_decl(struct parser_params *p, NODE* path, const YYLTYPE *loc); + +static NODE *opt_arg_append(NODE*, NODE*); +static NODE *kwd_append(NODE*, NODE*); + +static NODE *new_hash(struct parser_params *p, NODE *hash, const YYLTYPE *loc); + +static NODE *new_defined(struct parser_params *p, NODE *expr, const YYLTYPE *loc); + +static NODE *new_regexp(struct parser_params *, NODE *, int, const YYLTYPE *); + +#define make_array(ary, loc) ((ary) ? (nd_set_loc(ary, loc), ary) : NEW_ZARRAY(loc)) + +static NODE *new_xstring(struct parser_params *, NODE *, const YYLTYPE *loc); + +static NODE *symbol_append(struct parser_params *p, NODE *symbols, NODE *symbol); + +static NODE *match_op(struct parser_params*,NODE*,NODE*,const YYLTYPE*,const YYLTYPE*); + +static ID *local_tbl(struct parser_params*); + +static VALUE reg_compile(struct parser_params*, VALUE, int); +static void reg_fragment_setenc(struct parser_params*, VALUE, int); +static int reg_fragment_check(struct parser_params*, VALUE, int); +static NODE *reg_named_capture_assign(struct parser_params* p, VALUE regexp, const YYLTYPE *loc); + +static int literal_concat0(struct parser_params *p, VALUE head, VALUE tail); +static NODE *heredoc_dedent(struct parser_params*,NODE*); +#define get_id(id) (id) +#define get_value(val) (val) +#else /* RIPPER */ +#define NODE_RIPPER NODE_CDECL + +static inline VALUE +ripper_new_yylval(struct parser_params *p, ID a, VALUE b, VALUE c) +{ + add_mark_object(p, b); + add_mark_object(p, c); + return (VALUE)NEW_CDECL(a, b, c, &NULL_LOC); +} + +static inline int +ripper_is_node_yylval(VALUE n) +{ + return RB_TYPE_P(n, T_NODE) && nd_type(RNODE(n)) == NODE_RIPPER; +} + +#define value_expr(node) ((void)(node)) +#define remove_begin(node) (node) +#define void_stmts(p,x) (x) +#define rb_dvar_defined(id, base) 0 +#define rb_local_defined(id, base) 0 +static ID ripper_get_id(VALUE); +#define get_id(id) ripper_get_id(id) +static VALUE ripper_get_value(VALUE); +#define get_value(val) ripper_get_value(val) +static VALUE assignable(struct parser_params*,VALUE); +static int id_is_var(struct parser_params *p, ID id); + +#define method_cond(p,node,loc) (node) +#define call_bin_op(p, recv,id,arg1,op_loc,loc) dispatch3(binary, (recv), STATIC_ID2SYM(id), (arg1)) +#define match_op(p,node1,node2,op_loc,loc) call_bin_op(0, (node1), idEqTilde, (node2), op_loc, loc) +#define call_uni_op(p, recv,id,op_loc,loc) dispatch2(unary, STATIC_ID2SYM(id), (recv)) +#define logop(p,id,node1,node2,op_loc,loc) call_bin_op(0, (node1), (id), (node2), op_loc, loc) + +#define new_nil(loc) Qnil + +static VALUE new_regexp(struct parser_params *, VALUE, VALUE, const YYLTYPE *); + +static VALUE const_decl(struct parser_params *p, VALUE path); + +static VALUE var_field(struct parser_params *p, VALUE a); +static VALUE assign_error(struct parser_params *p, VALUE a); + +static VALUE parser_reg_compile(struct parser_params*, VALUE, int, VALUE *); + +#endif /* !RIPPER */ + +/* forward declaration */ +typedef struct rb_strterm_heredoc_struct rb_strterm_heredoc_t; + +RUBY_SYMBOL_EXPORT_BEGIN +VALUE rb_parser_reg_compile(struct parser_params* p, VALUE str, int options); +int rb_reg_fragment_setenc(struct parser_params*, VALUE, int); +enum lex_state_e rb_parser_trace_lex_state(struct parser_params *, enum lex_state_e, enum lex_state_e, int); +VALUE rb_parser_lex_state_name(enum lex_state_e state); +void rb_parser_show_bitstack(struct parser_params *, stack_type, const char *, int); +PRINTF_ARGS(void rb_parser_fatal(struct parser_params *p, const char *fmt, ...), 2, 3); +void rb_parser_set_location_from_strterm_heredoc(struct parser_params *p, rb_strterm_heredoc_t *here, YYLTYPE *yylloc); +void rb_parser_set_location_of_none(struct parser_params *p, YYLTYPE *yylloc); +void rb_parser_set_location(struct parser_params *p, YYLTYPE *yylloc); +RUBY_SYMBOL_EXPORT_END + +static void parser_token_value_print(struct parser_params *p, enum yytokentype type, const YYSTYPE *valp); +static ID formal_argument(struct parser_params*, ID); +static ID shadowing_lvar(struct parser_params*,ID); +static void new_bv(struct parser_params*,ID); + +static void local_push(struct parser_params*,int); +static void local_pop(struct parser_params*); +static void local_var(struct parser_params*, ID); +static void arg_var(struct parser_params*, ID); +static int local_id(struct parser_params *p, ID id); +static int local_id_ref(struct parser_params*, ID, ID **); +static ID internal_id(struct parser_params*); + +static const struct vtable *dyna_push(struct parser_params *); +static void dyna_pop(struct parser_params*, const struct vtable *); +static int dyna_in_block(struct parser_params*); +#define dyna_var(p, id) local_var(p, id) +static int dvar_defined(struct parser_params*, ID); +static int dvar_defined_ref(struct parser_params*, ID, ID**); +static int dvar_curr(struct parser_params*,ID); + +static int lvar_defined(struct parser_params*, ID); + +#ifdef RIPPER +# define METHOD_NOT idNOT +#else +# define METHOD_NOT '!' +#endif + +#define RE_OPTION_ONCE (1<<16) +#define RE_OPTION_ENCODING_SHIFT 8 +#define RE_OPTION_ENCODING(e) (((e)&0xff)<<RE_OPTION_ENCODING_SHIFT) +#define RE_OPTION_ENCODING_IDX(o) (((o)>>RE_OPTION_ENCODING_SHIFT)&0xff) +#define RE_OPTION_ENCODING_NONE(o) ((o)&RE_OPTION_ARG_ENCODING_NONE) +#define RE_OPTION_MASK 0xff +#define RE_OPTION_ARG_ENCODING_NONE 32 + +/* structs for managing terminator of string literal and heredocment */ +typedef struct rb_strterm_literal_struct { + union { + VALUE dummy; + long nest; + } u0; + union { + VALUE dummy; + long func; /* STR_FUNC_* (e.g., STR_FUNC_ESCAPE and STR_FUNC_EXPAND) */ + } u1; + union { + VALUE dummy; + long paren; /* '(' of `%q(...)` */ + } u2; + union { + VALUE dummy; + long term; /* ')' of `%q(...)` */ + } u3; +} rb_strterm_literal_t; + +struct rb_strterm_heredoc_struct { + SIGNED_VALUE sourceline; /* lineno of the line that contains `<<"END"` */ + VALUE term; /* `"END"` of `<<"END"` */ + VALUE lastline; /* the string of line that contains `<<"END"` */ + union { + VALUE dummy; + long lastidx; /* the column of `<<"END"` */ + } u3; +}; + +#define STRTERM_HEREDOC IMEMO_FL_USER0 + +struct rb_strterm_struct { + VALUE flags; + union { + rb_strterm_literal_t literal; + rb_strterm_heredoc_t heredoc; + } u; +}; + +#ifndef RIPPER +void +rb_strterm_mark(VALUE obj) +{ + rb_strterm_t *strterm = (rb_strterm_t*)obj; + if (RBASIC(obj)->flags & STRTERM_HEREDOC) { + rb_strterm_heredoc_t *heredoc = &strterm->u.heredoc; + rb_gc_mark(heredoc->term); + rb_gc_mark(heredoc->lastline); + } +} +#endif + +#define TOKEN2ID(tok) ( \ + tTOKEN_LOCAL_BEGIN<(tok)&&(tok)<tTOKEN_LOCAL_END ? TOKEN2LOCALID(tok) : \ + tTOKEN_INSTANCE_BEGIN<(tok)&&(tok)<tTOKEN_INSTANCE_END ? TOKEN2INSTANCEID(tok) : \ + tTOKEN_GLOBAL_BEGIN<(tok)&&(tok)<tTOKEN_GLOBAL_END ? TOKEN2GLOBALID(tok) : \ + tTOKEN_CONST_BEGIN<(tok)&&(tok)<tTOKEN_CONST_END ? TOKEN2CONSTID(tok) : \ + tTOKEN_CLASS_BEGIN<(tok)&&(tok)<tTOKEN_CLASS_END ? TOKEN2CLASSID(tok) : \ + tTOKEN_ATTRSET_BEGIN<(tok)&&(tok)<tTOKEN_ATTRSET_END ? TOKEN2ATTRSETID(tok) : \ + ((tok) / ((tok)<tPRESERVED_ID_END && ((tok)>=128 || rb_ispunct(tok))))) + +/****** Ripper *******/ + +#ifdef RIPPER +#define RIPPER_VERSION "0.1.0" + +static inline VALUE intern_sym(const char *name); + +#include "eventids1.c" +#include "eventids2.c" + +static VALUE ripper_dispatch0(struct parser_params*,ID); +static VALUE ripper_dispatch1(struct parser_params*,ID,VALUE); +static VALUE ripper_dispatch2(struct parser_params*,ID,VALUE,VALUE); +static VALUE ripper_dispatch3(struct parser_params*,ID,VALUE,VALUE,VALUE); +static VALUE ripper_dispatch4(struct parser_params*,ID,VALUE,VALUE,VALUE,VALUE); +static VALUE ripper_dispatch5(struct parser_params*,ID,VALUE,VALUE,VALUE,VALUE,VALUE); +static VALUE ripper_dispatch7(struct parser_params*,ID,VALUE,VALUE,VALUE,VALUE,VALUE,VALUE,VALUE); +static void ripper_error(struct parser_params *p); + +#define dispatch0(n) ripper_dispatch0(p, TOKEN_PASTE(ripper_id_, n)) +#define dispatch1(n,a) ripper_dispatch1(p, TOKEN_PASTE(ripper_id_, n), (a)) +#define dispatch2(n,a,b) ripper_dispatch2(p, TOKEN_PASTE(ripper_id_, n), (a), (b)) +#define dispatch3(n,a,b,c) ripper_dispatch3(p, TOKEN_PASTE(ripper_id_, n), (a), (b), (c)) +#define dispatch4(n,a,b,c,d) ripper_dispatch4(p, TOKEN_PASTE(ripper_id_, n), (a), (b), (c), (d)) +#define dispatch5(n,a,b,c,d,e) ripper_dispatch5(p, TOKEN_PASTE(ripper_id_, n), (a), (b), (c), (d), (e)) +#define dispatch7(n,a,b,c,d,e,f,g) ripper_dispatch7(p, TOKEN_PASTE(ripper_id_, n), (a), (b), (c), (d), (e), (f), (g)) + +#define yyparse ripper_yyparse + +#define ID2VAL(id) STATIC_ID2SYM(id) +#define TOKEN2VAL(t) ID2VAL(TOKEN2ID(t)) +#define KWD2EID(t, v) ripper_new_yylval(p, keyword_##t, get_value(v), 0) + +#define params_new(pars, opts, rest, pars2, kws, kwrest, blk) \ + dispatch7(params, (pars), (opts), (rest), (pars2), (kws), (kwrest), (blk)) + +#define escape_Qundef(x) ((x)==Qundef ? Qnil : (x)) + +static inline VALUE +new_args(struct parser_params *p, VALUE pre_args, VALUE opt_args, VALUE rest_arg, VALUE post_args, VALUE tail, YYLTYPE *loc) +{ + NODE *t = (NODE *)tail; + VALUE kw_args = t->u1.value, kw_rest_arg = t->u2.value, block = t->u3.value; + return params_new(pre_args, opt_args, rest_arg, post_args, kw_args, kw_rest_arg, escape_Qundef(block)); +} + +static inline VALUE +new_args_tail(struct parser_params *p, VALUE kw_args, VALUE kw_rest_arg, VALUE block, YYLTYPE *loc) +{ + NODE *t = rb_node_newnode(NODE_ARGS_AUX, kw_args, kw_rest_arg, block, &NULL_LOC); + add_mark_object(p, kw_args); + add_mark_object(p, kw_rest_arg); + add_mark_object(p, block); + return (VALUE)t; +} + +#define new_defined(p,expr,loc) dispatch1(defined, (expr)) + +static VALUE heredoc_dedent(struct parser_params*,VALUE); + +#else +#define ID2VAL(id) ((VALUE)(id)) +#define TOKEN2VAL(t) ID2VAL(t) +#define KWD2EID(t, v) keyword_##t +#endif /* RIPPER */ + +#ifndef RIPPER +# define Qnone 0 +# define Qnull 0 +# define ifndef_ripper(x) (x) +#else +# define Qnone Qnil +# define Qnull Qundef +# define ifndef_ripper(x) +#endif + +# define rb_warn0(fmt) WARN_CALL(WARN_ARGS(fmt, 1)) +# define rb_warn1(fmt,a) WARN_CALL(WARN_ARGS(fmt, 2), (a)) +# define rb_warn2(fmt,a,b) WARN_CALL(WARN_ARGS(fmt, 3), (a), (b)) +# define rb_warn3(fmt,a,b,c) WARN_CALL(WARN_ARGS(fmt, 4), (a), (b), (c)) +# define rb_warn4(fmt,a,b,c,d) WARN_CALL(WARN_ARGS(fmt, 5), (a), (b), (c), (d)) +# define rb_warning0(fmt) WARNING_CALL(WARNING_ARGS(fmt, 1)) +# define rb_warning1(fmt,a) WARNING_CALL(WARNING_ARGS(fmt, 2), (a)) +# define rb_warning2(fmt,a,b) WARNING_CALL(WARNING_ARGS(fmt, 3), (a), (b)) +# define rb_warning3(fmt,a,b,c) WARNING_CALL(WARNING_ARGS(fmt, 4), (a), (b), (c)) +# define rb_warning4(fmt,a,b,c,d) WARNING_CALL(WARNING_ARGS(fmt, 5), (a), (b), (c), (d)) +# define rb_warn0L(l,fmt) WARN_CALL(WARN_ARGS_L(l, fmt, 1)) +# define rb_warn1L(l,fmt,a) WARN_CALL(WARN_ARGS_L(l, fmt, 2), (a)) +# define rb_warn2L(l,fmt,a,b) WARN_CALL(WARN_ARGS_L(l, fmt, 3), (a), (b)) +# define rb_warn3L(l,fmt,a,b,c) WARN_CALL(WARN_ARGS_L(l, fmt, 4), (a), (b), (c)) +# define rb_warn4L(l,fmt,a,b,c,d) WARN_CALL(WARN_ARGS_L(l, fmt, 5), (a), (b), (c), (d)) +# define rb_warning0L(l,fmt) WARNING_CALL(WARNING_ARGS_L(l, fmt, 1)) +# define rb_warning1L(l,fmt,a) WARNING_CALL(WARNING_ARGS_L(l, fmt, 2), (a)) +# define rb_warning2L(l,fmt,a,b) WARNING_CALL(WARNING_ARGS_L(l, fmt, 3), (a), (b)) +# define rb_warning3L(l,fmt,a,b,c) WARNING_CALL(WARNING_ARGS_L(l, fmt, 4), (a), (b), (c)) +# define rb_warning4L(l,fmt,a,b,c,d) WARNING_CALL(WARNING_ARGS_L(l, fmt, 5), (a), (b), (c), (d)) +#ifdef RIPPER +static ID id_warn, id_warning, id_gets; +# define WARN_S_L(s,l) STR_NEW(s,l) +# define WARN_S(s) STR_NEW2(s) +# define WARN_I(i) INT2NUM(i) +# define WARN_ID(i) rb_id2str(i) +# define PRIsWARN "s" +# define WARN_ARGS(fmt,n) p->value, id_warn, n, rb_usascii_str_new_lit(fmt) +# define WARN_ARGS_L(l,fmt,n) WARN_ARGS(fmt,n) +# ifdef HAVE_VA_ARGS_MACRO +# define WARN_CALL(...) rb_funcall(__VA_ARGS__) +# else +# define WARN_CALL rb_funcall +# endif +# define WARNING_ARGS(fmt,n) p->value, id_warning, n, rb_usascii_str_new_lit(fmt) +# define WARNING_ARGS_L(l, fmt,n) WARNING_ARGS(fmt,n) +# ifdef HAVE_VA_ARGS_MACRO +# define WARNING_CALL(...) rb_funcall(__VA_ARGS__) +# else +# define WARNING_CALL rb_funcall +# endif +PRINTF_ARGS(static void ripper_compile_error(struct parser_params*, const char *fmt, ...), 2, 3); +# define compile_error ripper_compile_error +#else +# define WARN_S_L(s,l) s +# define WARN_S(s) s +# define WARN_I(i) i +# define WARN_ID(i) rb_id2name(i) +# define PRIsWARN PRIsVALUE +# define WARN_ARGS(fmt,n) WARN_ARGS_L(p->ruby_sourceline,fmt,n) +# define WARN_ARGS_L(l,fmt,n) p->ruby_sourcefile, (l), (fmt) +# define WARN_CALL rb_compile_warn +# define WARNING_ARGS(fmt,n) WARN_ARGS(fmt,n) +# define WARNING_ARGS_L(l,fmt,n) WARN_ARGS_L(l,fmt,n) +# define WARNING_CALL rb_compile_warning +PRINTF_ARGS(static void parser_compile_error(struct parser_params*, const char *fmt, ...), 2, 3); +# define compile_error parser_compile_error +#endif + +static void token_info_push(struct parser_params*, const char *token, const rb_code_location_t *loc); +static void token_info_pop(struct parser_params*, const char *token, const rb_code_location_t *loc); +static void token_info_warn(struct parser_params *p, const char *token, token_info *ptinfo_beg, int same, const rb_code_location_t *loc); + +#line 819 "parse.c" /* yacc.c:337 */ +# ifndef YY_NULLPTR +# if defined __cplusplus +# if 201103L <= __cplusplus +# define YY_NULLPTR nullptr +# else +# define YY_NULLPTR 0 +# endif +# else +# define YY_NULLPTR ((void*)0) +# endif +# endif + +/* Enabling verbose error messages. */ +#ifdef YYERROR_VERBOSE +# undef YYERROR_VERBOSE +# define YYERROR_VERBOSE 1 +#else +# define YYERROR_VERBOSE 0 +#endif + +/* In a future release of Bison, this section will be replaced + by #include "y.tab.h". */ +#ifndef YY_YY_Y_TAB_H_INCLUDED +# define YY_YY_Y_TAB_H_INCLUDED +/* Debug traces. */ +#ifndef YYDEBUG +# define YYDEBUG 0 +#endif +#if YYDEBUG +#ifndef yydebug +extern int yydebug; +#endif +#endif + +/* Token type. */ +#ifndef YYTOKENTYPE +# define YYTOKENTYPE + enum yytokentype + { + END_OF_INPUT = 0, + keyword_class = 258, + keyword_module = 259, + keyword_def = 260, + keyword_undef = 261, + keyword_begin = 262, + keyword_rescue = 263, + keyword_ensure = 264, + keyword_end = 265, + keyword_if = 266, + keyword_unless = 267, + keyword_then = 268, + keyword_elsif = 269, + keyword_else = 270, + keyword_case = 271, + keyword_when = 272, + keyword_while = 273, + keyword_until = 274, + keyword_for = 275, + keyword_break = 276, + keyword_next = 277, + keyword_redo = 278, + keyword_retry = 279, + keyword_in = 280, + keyword_do = 281, + keyword_do_cond = 282, + keyword_do_block = 283, + keyword_do_LAMBDA = 284, + keyword_return = 285, + keyword_yield = 286, + keyword_super = 287, + keyword_self = 288, + keyword_nil = 289, + keyword_true = 290, + keyword_false = 291, + keyword_and = 292, + keyword_or = 293, + keyword_not = 294, + modifier_if = 295, + modifier_unless = 296, + modifier_while = 297, + modifier_until = 298, + modifier_rescue = 299, + keyword_alias = 300, + keyword_defined = 301, + keyword_BEGIN = 302, + keyword_END = 303, + keyword__LINE__ = 304, + keyword__FILE__ = 305, + keyword__ENCODING__ = 306, + tIDENTIFIER = 307, + tFID = 308, + tGVAR = 309, + tIVAR = 310, + tCONSTANT = 311, + tCVAR = 312, + tLABEL = 313, + tINTEGER = 314, + tFLOAT = 315, + tRATIONAL = 316, + tIMAGINARY = 317, + tSTRING_CONTENT = 318, + tCHAR = 319, + tNTH_REF = 320, + tBACK_REF = 321, + tREGEXP_END = 322, + tSP = 323, + tUPLUS = 130, + tUMINUS = 131, + tPOW = 132, + tCMP = 133, + tEQ = 138, + tEQQ = 139, + tNEQ = 140, + tGEQ = 137, + tLEQ = 136, + tANDOP = 146, + tOROP = 147, + tMATCH = 141, + tNMATCH = 142, + tDOT2 = 128, + tDOT3 = 129, + tAREF = 143, + tASET = 144, + tLSHFT = 134, + tRSHFT = 135, + tANDDOT = 148, + tCOLON2 = 145, + tCOLON3 = 324, + tOP_ASGN = 325, + tASSOC = 326, + tLPAREN = 327, + tLPAREN_ARG = 328, + tRPAREN = 329, + tLBRACK = 330, + tLBRACE = 331, + tLBRACE_ARG = 332, + tSTAR = 333, + tDSTAR = 334, + tAMPER = 335, + tLAMBDA = 336, + tSYMBEG = 337, + tSTRING_BEG = 338, + tXSTRING_BEG = 339, + tREGEXP_BEG = 340, + tWORDS_BEG = 341, + tQWORDS_BEG = 342, + tSYMBOLS_BEG = 343, + tQSYMBOLS_BEG = 344, + tSTRING_DBEG = 345, + tSTRING_DEND = 346, + tSTRING_DVAR = 347, + tSTRING_END = 348, + tLAMBEG = 349, + tLABEL_END = 350, + tLOWEST = 351, + tUMINUS_NUM = 352, + tLAST_TOKEN = 353 + }; +#endif + +/* Value type. */ +#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED + +union YYSTYPE +{ +#line 769 "parse.y" /* yacc.c:352 */ + + VALUE val; + NODE *node; + ID id; + int num; + const struct vtable *vars; + struct rb_strterm_struct *strterm; + +#line 992 "parse.c" /* yacc.c:352 */ +}; + +typedef union YYSTYPE YYSTYPE; +# define YYSTYPE_IS_TRIVIAL 1 +# define YYSTYPE_IS_DECLARED 1 +#endif + +/* Location type. */ +#if ! defined YYLTYPE && ! defined YYLTYPE_IS_DECLARED +typedef struct YYLTYPE YYLTYPE; +struct YYLTYPE +{ + int first_line; + int first_column; + int last_line; + int last_column; +}; +# define YYLTYPE_IS_DECLARED 1 +# define YYLTYPE_IS_TRIVIAL 1 +#endif + + + +int yyparse (struct parser_params *p); + +#endif /* !YY_YY_Y_TAB_H_INCLUDED */ + + + +#ifdef short +# undef short +#endif + +#ifdef YYTYPE_UINT8 +typedef YYTYPE_UINT8 yytype_uint8; +#else +typedef unsigned char yytype_uint8; +#endif + +#ifdef YYTYPE_INT8 +typedef YYTYPE_INT8 yytype_int8; +#else +typedef signed char yytype_int8; +#endif + +#ifdef YYTYPE_UINT16 +typedef YYTYPE_UINT16 yytype_uint16; +#else +typedef unsigned short yytype_uint16; +#endif + +#ifdef YYTYPE_INT16 +typedef YYTYPE_INT16 yytype_int16; +#else +typedef short yytype_int16; +#endif + +#ifndef YYSIZE_T +# ifdef __SIZE_TYPE__ +# define YYSIZE_T __SIZE_TYPE__ +# elif defined size_t +# define YYSIZE_T size_t +# elif ! defined YYSIZE_T +# include <stddef.h> /* INFRINGES ON USER NAME SPACE */ +# define YYSIZE_T size_t +# else +# define YYSIZE_T unsigned +# endif +#endif + +#define YYSIZE_MAXIMUM ((YYSIZE_T) -1) + +#ifndef YY_ +# if defined YYENABLE_NLS && YYENABLE_NLS +# if ENABLE_NLS +# include <libintl.h> /* INFRINGES ON USER NAME SPACE */ +# define YY_(Msgid) dgettext ("bison-runtime", Msgid) +# endif +# endif +# ifndef YY_ +# define YY_(Msgid) Msgid +# endif +#endif + +#ifndef YY_ATTRIBUTE +# if (defined __GNUC__ \ + && (2 < __GNUC__ || (__GNUC__ == 2 && 96 <= __GNUC_MINOR__))) \ + || defined __SUNPRO_C && 0x5110 <= __SUNPRO_C +# define YY_ATTRIBUTE(Spec) __attribute__(Spec) +# else +# define YY_ATTRIBUTE(Spec) /* empty */ +# endif +#endif + +#ifndef YY_ATTRIBUTE_PURE +# define YY_ATTRIBUTE_PURE YY_ATTRIBUTE ((__pure__)) +#endif + +#ifndef YY_ATTRIBUTE_UNUSED +# define YY_ATTRIBUTE_UNUSED YY_ATTRIBUTE ((__unused__)) +#endif + +/* Suppress unused-variable warnings by "using" E. */ +#if ! defined lint || defined __GNUC__ +# define YYUSE(E) ((void) (E)) +#else +# define YYUSE(E) /* empty */ +#endif + +#if defined __GNUC__ && ! defined __ICC && 407 <= __GNUC__ * 100 + __GNUC_MINOR__ +/* Suppress an incorrect diagnostic about yylval being uninitialized. */ +# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \ + _Pragma ("GCC diagnostic push") \ + _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"")\ + _Pragma ("GCC diagnostic ignored \"-Wmaybe-uninitialized\"") +# define YY_IGNORE_MAYBE_UNINITIALIZED_END \ + _Pragma ("GCC diagnostic pop") +#else +# define YY_INITIAL_VALUE(Value) Value +#endif +#ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN +# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN +# define YY_IGNORE_MAYBE_UNINITIALIZED_END +#endif +#ifndef YY_INITIAL_VALUE +# define YY_INITIAL_VALUE(Value) /* Nothing. */ +#endif + + +#if ! defined yyoverflow || YYERROR_VERBOSE + +/* The parser invokes alloca or malloc; define the necessary symbols. */ + +# ifdef YYSTACK_USE_ALLOCA +# if YYSTACK_USE_ALLOCA +# ifdef __GNUC__ +# define YYSTACK_ALLOC __builtin_alloca +# elif defined __BUILTIN_VA_ARG_INCR +# include <alloca.h> /* INFRINGES ON USER NAME SPACE */ +# elif defined _AIX +# define YYSTACK_ALLOC __alloca +# elif defined _MSC_VER +# include <malloc.h> /* INFRINGES ON USER NAME SPACE */ +# define alloca _alloca +# else +# define YYSTACK_ALLOC alloca +# if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS +# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */ + /* Use EXIT_SUCCESS as a witness for stdlib.h. */ +# ifndef EXIT_SUCCESS +# define EXIT_SUCCESS 0 +# endif +# endif +# endif +# endif +# endif + +# ifdef YYSTACK_ALLOC + /* Pacify GCC's 'empty if-body' warning. */ +# define YYSTACK_FREE(Ptr) do { /* empty */; } while (0) +# ifndef YYSTACK_ALLOC_MAXIMUM + /* The OS might guarantee only one guard page at the bottom of the stack, + and a page size can be as small as 4096 bytes. So we cannot safely + invoke alloca (N) if N exceeds 4096. Use a slightly smaller number + to allow for a few compiler-allocated temporary stack slots. */ +# define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */ +# endif +# else +# define YYSTACK_ALLOC YYMALLOC +# define YYSTACK_FREE YYFREE +# ifndef YYSTACK_ALLOC_MAXIMUM +# define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM +# endif +# if (defined __cplusplus && ! defined EXIT_SUCCESS \ + && ! ((defined YYMALLOC || defined malloc) \ + && (defined YYFREE || defined free))) +# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */ +# ifndef EXIT_SUCCESS +# define EXIT_SUCCESS 0 +# endif +# endif +# ifndef YYMALLOC +# define YYMALLOC malloc +# if ! defined malloc && ! defined EXIT_SUCCESS +void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */ +# endif +# endif +# ifndef YYFREE +# define YYFREE free +# if ! defined free && ! defined EXIT_SUCCESS +void free (void *); /* INFRINGES ON USER NAME SPACE */ +# endif +# endif +# endif +#endif /* ! defined yyoverflow || YYERROR_VERBOSE */ + + +#if (! defined yyoverflow \ + && (! defined __cplusplus \ + || (defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL \ + && defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL))) + +/* A type that is properly aligned for any stack member. */ +union yyalloc +{ + yytype_int16 yyss_alloc; + YYSTYPE yyvs_alloc; + YYLTYPE yyls_alloc; +}; + +/* The size of the maximum gap between one aligned stack and the next. */ +# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1) + +/* The size of an array large to enough to hold all stacks, each with + N elements. */ +# define YYSTACK_BYTES(N) \ + ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE) + sizeof (YYLTYPE)) \ + + 2 * YYSTACK_GAP_MAXIMUM) + +# define YYCOPY_NEEDED 1 + +/* Relocate STACK from its old location to the new one. The + local variables YYSIZE and YYSTACKSIZE give the old and new number of + elements in the stack, and YYPTR gives the new location of the + stack. Advance YYPTR to a properly aligned location for the next + stack. */ +# define YYSTACK_RELOCATE(Stack_alloc, Stack) \ + do \ + { \ + YYSIZE_T yynewbytes; \ + YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \ + Stack = &yyptr->Stack_alloc; \ + yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \ + yyptr += yynewbytes / sizeof (*yyptr); \ + } \ + while (0) + +#endif + +#if defined YYCOPY_NEEDED && YYCOPY_NEEDED +/* Copy COUNT objects from SRC to DST. The source and destination do + not overlap. */ +# ifndef YYCOPY +# if defined __GNUC__ && 1 < __GNUC__ +# define YYCOPY(Dst, Src, Count) \ + __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src))) +# else +# define YYCOPY(Dst, Src, Count) \ + do \ + { \ + YYSIZE_T yyi; \ + for (yyi = 0; yyi < (Count); yyi++) \ + (Dst)[yyi] = (Src)[yyi]; \ + } \ + while (0) +# endif +# endif +#endif /* !YYCOPY_NEEDED */ + +/* YYFINAL -- State number of the termination state. */ +#define YYFINAL 3 +/* YYLAST -- Last index in YYTABLE. */ +#define YYLAST 12570 + +/* YYNTOKENS -- Number of terminals. */ +#define YYNTOKENS 152 +/* YYNNTS -- Number of nonterminals. */ +#define YYNNTS 215 +/* YYNRULES -- Number of rules. */ +#define YYNRULES 640 +/* YYNSTATES -- Number of states. */ +#define YYNSTATES 1076 + +#define YYUNDEFTOK 2 +#define YYMAXUTOK 353 + +/* YYTRANSLATE(TOKEN-NUM) -- Symbol number corresponding to TOKEN-NUM + as returned by yylex, with out-of-bounds checking. */ +#define YYTRANSLATE(YYX) \ + ((unsigned) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK) + +/* YYTRANSLATE[TOKEN-NUM] -- Symbol number corresponding to TOKEN-NUM + as returned by yylex. */ +static const yytype_uint8 yytranslate[] = +{ + 0, 2, 2, 2, 2, 2, 2, 2, 2, 71, + 151, 74, 72, 73, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 150, 138, 2, 2, 2, 136, 131, 2, + 146, 147, 134, 132, 144, 133, 68, 135, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 126, 149, + 128, 124, 127, 125, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 143, 69, 148, 130, 2, 145, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 141, 129, 142, 139, 2, 88, 89, + 75, 76, 77, 78, 92, 93, 83, 82, 79, 80, + 81, 86, 87, 90, 91, 95, 84, 85, 94, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 1, 2, 3, 4, + 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, + 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, + 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, + 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, + 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, + 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, + 65, 66, 67, 70, 96, 97, 98, 99, 100, 101, + 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, + 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, + 122, 123, 137, 140 +}; + +#if YYDEBUG + /* YYRLINE[YYN] -- Source line where rule number YYN was defined. */ +static const yytype_uint16 yyrline[] = +{ + 0, 936, 936, 936, 962, 968, 975, 982, 989, 995, + 996, 1002, 1015, 1013, 1024, 1035, 1041, 1048, 1055, 1062, + 1068, 1073, 1072, 1081, 1081, 1088, 1095, 1105, 1113, 1120, + 1128, 1136, 1148, 1160, 1170, 1184, 1185, 1193, 1201, 1208, + 1211, 1219, 1227, 1236, 1244, 1252, 1260, 1268, 1278, 1283, + 1292, 1295, 1296, 1300, 1304, 1308, 1312, 1315, 1322, 1322, + 1322, 1328, 1329, 1332, 1333, 1342, 1352, 1362, 1371, 1382, + 1389, 1396, 1403, 1410, 1418, 1426, 1433, 1440, 1449, 1450, + 1459, 1460, 1469, 1476, 1483, 1490, 1497, 1504, 1511, 1518, + 1525, 1532, 1541, 1542, 1551, 1558, 1567, 1574, 1583, 1590, + 1597, 1604, 1611, 1618, 1625, 1632, 1639, 1649, 1656, 1663, + 1670, 1677, 1684, 1691, 1698, 1705, 1715, 1722, 1725, 1732, + 1739, 1748, 1749, 1750, 1751, 1756, 1763, 1764, 1767, 1774, + 1777, 1784, 1784, 1794, 1795, 1796, 1797, 1798, 1799, 1800, + 1801, 1802, 1803, 1804, 1805, 1806, 1807, 1808, 1809, 1810, + 1811, 1812, 1813, 1814, 1815, 1816, 1817, 1818, 1819, 1820, + 1821, 1822, 1823, 1826, 1826, 1826, 1827, 1827, 1828, 1828, + 1828, 1829, 1829, 1829, 1829, 1830, 1830, 1830, 1830, 1831, + 1831, 1831, 1832, 1832, 1832, 1832, 1833, 1833, 1833, 1833, + 1834, 1834, 1834, 1834, 1835, 1835, 1835, 1835, 1836, 1836, + 1836, 1836, 1837, 1837, 1840, 1847, 1854, 1862, 1870, 1878, + 1886, 1894, 1901, 1909, 1918, 1927, 1939, 1951, 1955, 1959, + 1963, 1967, 1971, 1975, 1979, 1983, 1987, 1991, 1995, 1999, + 2003, 2004, 2008, 2012, 2016, 2020, 2024, 2028, 2032, 2036, + 2040, 2044, 2048, 2048, 2053, 2062, 2068, 2069, 2070, 2071, + 2074, 2078, 2085, 2092, 2093, 2097, 2104, 2113, 2118, 2129, + 2138, 2139, 2142, 2143, 2144, 2148, 2155, 2164, 2172, 2179, + 2187, 2195, 2199, 2199, 2236, 2245, 2249, 2255, 2262, 2269, + 2276, 2285, 2286, 2289, 2296, 2303, 2312, 2313, 2314, 2315, + 2316, 2317, 2318, 2319, 2320, 2321, 2322, 2330, 2329, 2344, + 2344, 2351, 2351, 2358, 2365, 2372, 2379, 2386, 2394, 2401, + 2408, 2415, 2422, 2422, 2427, 2431, 2435, 2442, 2443, 2452, + 2451, 2462, 2473, 2484, 2494, 2504, 2514, 2521, 2567, 2566, + 2590, 2589, 2612, 2611, 2635, 2640, 2634, 2660, 2661, 2660, + 2685, 2692, 2699, 2706, 2715, 2722, 2728, 2734, 2740, 2746, + 2752, 2758, 2764, 2770, 2776, 2782, 2788, 2794, 2800, 2806, + 2812, 2820, 2826, 2832, 2839, 2840, 2841, 2844, 2845, 2848, + 2849, 2861, 2862, 2871, 2872, 2875, 2882, 2891, 2898, 2907, + 2914, 2921, 2928, 2935, 2942, 2949, 2956, 2963, 2973, 2977, + 2981, 2985, 2991, 2996, 3001, 3005, 3009, 3013, 3017, 3021, + 3030, 3034, 3038, 3042, 3046, 3050, 3054, 3058, 3062, 3068, + 3069, 3075, 3083, 3090, 3101, 3105, 3114, 3116, 3120, 3125, + 3131, 3134, 3139, 3131, 3159, 3166, 3172, 3177, 3183, 3193, + 3207, 3214, 3221, 3230, 3239, 3247, 3255, 3262, 3270, 3278, + 3285, 3292, 3305, 3313, 3323, 3323, 3334, 3335, 3334, 3347, + 3359, 3360, 3363, 3375, 3378, 3385, 3392, 3395, 3399, 3402, + 3409, 3412, 3413, 3420, 3423, 3439, 3440, 3441, 3450, 3460, + 3469, 3475, 3485, 3491, 3500, 3502, 3511, 3521, 3527, 3536, + 3545, 3555, 3561, 3571, 3577, 3587, 3593, 3603, 3609, 3619, + 3629, 3670, 3672, 3671, 3688, 3692, 3697, 3701, 3705, 3687, + 3726, 3733, 3740, 3747, 3750, 3760, 3761, 3762, 3763, 3766, + 3776, 3777, 3787, 3788, 3789, 3790, 3793, 3794, 3795, 3796, + 3797, 3800, 3801, 3802, 3803, 3804, 3805, 3806, 3809, 3822, + 3831, 3838, 3847, 3848, 3852, 3851, 3861, 3869, 3878, 3878, + 3892, 3896, 3900, 3904, 3910, 3915, 3920, 3924, 3928, 3932, + 3936, 3940, 3944, 3948, 3952, 3956, 3960, 3964, 3968, 3972, + 3977, 3983, 3991, 3999, 4007, 4017, 4018, 4025, 4034, 4042, + 4065, 4067, 4080, 4089, 4097, 4107, 4114, 4123, 4130, 4140, + 4147, 4156, 4157, 4160, 4168, 4178, 4188, 4198, 4205, 4214, + 4221, 4230, 4231, 4234, 4242, 4252, 4253, 4256, 4266, 4270, + 4279, 4284, 4284, 4308, 4309, 4318, 4320, 4343, 4354, 4361, + 4369, 4382, 4383, 4384, 4387, 4388, 4389, 4390, 4393, 4394, + 4395, 4398, 4399, 4402, 4403, 4406, 4407, 4410, 4411, 4414, + 4415, 4418, 4421, 4424, 4425, 4426, 4429, 4430, 4433, 4434, + 4438 +}; +#endif + +#if YYDEBUG || YYERROR_VERBOSE || 0 +/* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM. + First, the terminals, then, starting at YYNTOKENS, nonterminals. */ +static const char *const yytname[] = +{ + "\"end-of-input\"", "error", "$undefined", "\"class\"", "\"module\"", + "\"def\"", "\"undef\"", "\"begin\"", "\"rescue\"", "\"ensure\"", + "\"end\"", "\"if\"", "\"unless\"", "\"then\"", "\"elsif\"", "\"else\"", + "\"case\"", "\"when\"", "\"while\"", "\"until\"", "\"for\"", "\"break\"", + "\"next\"", "\"redo\"", "\"retry\"", "\"in\"", "\"do\"", + "\"do (for condition)\"", "\"do (for block)\"", "\"do (for lambda)\"", + "\"return\"", "\"yield\"", "\"super\"", "\"self\"", "\"nil\"", + "\"true\"", "\"false\"", "\"and\"", "\"or\"", "\"not\"", + "\"if (modifier)\"", "\"unless (modifier)\"", "\"while (modifier)\"", + "\"until (modifier)\"", "\"rescue (modifier)\"", "\"alias\"", + "\"defined?\"", "\"BEGIN\"", "\"END\"", "\"__LINE__\"", "\"__FILE__\"", + "\"__ENCODING__\"", "tIDENTIFIER", "tFID", "tGVAR", "tIVAR", "tCONSTANT", + "tCVAR", "tLABEL", "tINTEGER", "tFLOAT", "tRATIONAL", "tIMAGINARY", + "tSTRING_CONTENT", "tCHAR", "tNTH_REF", "tBACK_REF", "tREGEXP_END", + "'.'", "\"backslash\"", "\"escaped space\"", + "\"escaped horizontal tab\"", "\"escaped form feed\"", + "\"escaped carriage return\"", "\"escaped vertical tab\"", "\"unary+\"", + "\"unary-\"", "\"**\"", "\"<=>\"", "\"==\"", "\"===\"", "\"!=\"", + "\">=\"", "\"<=\"", "\"&&\"", "\"||\"", "\"=~\"", "\"!~\"", "\"..\"", + "\"...\"", "\"[]\"", "\"[]=\"", "\"<<\"", "\">>\"", "\"&.\"", "\"::\"", + "\":: at EXPR_BEG\"", "tOP_ASGN", "\"=>\"", "\"(\"", "\"( arg\"", + "\")\"", "\"[\"", "\"{\"", "\"{ arg\"", "\"*\"", "\"**arg\"", "\"&\"", + "\"->\"", "tSYMBEG", "tSTRING_BEG", "tXSTRING_BEG", "tREGEXP_BEG", + "tWORDS_BEG", "tQWORDS_BEG", "tSYMBOLS_BEG", "tQSYMBOLS_BEG", + "tSTRING_DBEG", "tSTRING_DEND", "tSTRING_DVAR", "tSTRING_END", "tLAMBEG", + "tLABEL_END", "tLOWEST", "'='", "'?'", "':'", "'>'", "'<'", "'|'", "'^'", + "'&'", "'+'", "'-'", "'*'", "'/'", "'%'", "tUMINUS_NUM", "'!'", "'~'", + "tLAST_TOKEN", "'{'", "'}'", "'['", "','", "'`'", "'('", "')'", "']'", + "';'", "' '", "'\\n'", "$accept", "program", "$@1", "top_compstmt", + "top_stmts", "top_stmt", "begin_block", "bodystmt", "$@2", "compstmt", + "stmts", "stmt_or_begin", "$@3", "stmt", "$@4", "command_asgn", + "command_rhs", "expr", "expr_value", "expr_value_do", "$@5", "$@6", + "command_call", "block_command", "cmd_brace_block", "fcall", "command", + "mlhs", "mlhs_inner", "mlhs_basic", "mlhs_item", "mlhs_head", + "mlhs_post", "mlhs_node", "lhs", "cname", "cpath", "fname", "fsym", + "fitem", "undef_list", "$@7", "op", "reswords", "arg", "$@8", "relop", + "rel_expr", "arg_value", "aref_args", "arg_rhs", "paren_args", + "opt_paren_args", "opt_call_args", "call_args", "command_args", "$@9", + "block_arg", "opt_block_arg", "args", "mrhs_arg", "mrhs", "primary", + "$@10", "$@11", "$@12", "$@13", "$@14", "$@15", "@16", "$@17", "@18", + "@19", "@20", "@21", "primary_value", "k_begin", "k_if", "k_unless", + "k_while", "k_until", "k_case", "k_for", "k_class", "k_module", "k_def", + "k_do", "k_do_block", "k_rescue", "k_ensure", "k_when", "k_else", + "k_elsif", "k_end", "k_return", "then", "do", "if_tail", "opt_else", + "for_var", "f_marg", "f_marg_list", "f_margs", "block_args_tail", + "opt_block_args_tail", "block_param", "opt_block_param", + "block_param_def", "opt_bv_decl", "bv_decls", "bvar", "lambda", "@22", + "@23", "$@24", "f_larglist", "lambda_body", "do_block", "block_call", + "method_call", "brace_block", "brace_body", "@25", "do_body", "@26", + "$@27", "case_body", "cases", "opt_rescue", "exc_list", "exc_var", + "opt_ensure", "literal", "strings", "string", "string1", "xstring", + "regexp", "words", "word_list", "word", "symbols", "symbol_list", + "qwords", "qsymbols", "qword_list", "qsym_list", "string_contents", + "xstring_contents", "regexp_contents", "string_content", "@28", "$@29", + "@30", "@31", "@32", "@33", "string_dvar", "symbol", "sym", "dsym", + "numeric", "simple_numeric", "user_variable", "keyword_variable", + "var_ref", "var_lhs", "backref", "superclass", "$@34", "f_arglist", + "@35", "args_tail", "opt_args_tail", "f_args", "f_bad_arg", "f_norm_arg", + "f_arg_asgn", "f_arg_item", "f_arg", "f_label", "f_kw", "f_block_kw", + "f_block_kwarg", "f_kwarg", "kwrest_mark", "f_kwrest", "f_opt", + "f_block_opt", "f_block_optarg", "f_optarg", "restarg_mark", + "f_rest_arg", "blkarg_mark", "f_block_arg", "opt_f_block_arg", + "singleton", "$@36", "assoc_list", "assocs", "assoc", "operation", + "operation2", "operation3", "dot_or_colon", "call_op", "call_op2", + "opt_terms", "opt_nl", "rparen", "rbracket", "trailer", "term", "terms", + "none", YY_NULLPTR +}; +#endif + +# ifdef YYPRINT +/* YYTOKNUM[NUM] -- (External) token number corresponding to the + (internal) symbol number NUM (which must be that of a token). */ +static const yytype_uint16 yytoknum[] = +{ + 0, 256, 257, 258, 259, 260, 261, 262, 263, 264, + 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, + 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, + 285, 286, 287, 288, 289, 290, 291, 292, 293, 294, + 295, 296, 297, 298, 299, 300, 301, 302, 303, 304, + 305, 306, 307, 308, 309, 310, 311, 312, 313, 314, + 315, 316, 317, 318, 319, 320, 321, 322, 46, 92, + 323, 9, 12, 13, 11, 130, 131, 132, 133, 138, + 139, 140, 137, 136, 146, 147, 141, 142, 128, 129, + 143, 144, 134, 135, 148, 145, 324, 325, 326, 327, + 328, 329, 330, 331, 332, 333, 334, 335, 336, 337, + 338, 339, 340, 341, 342, 343, 344, 345, 346, 347, + 348, 349, 350, 351, 61, 63, 58, 62, 60, 124, + 94, 38, 43, 45, 42, 47, 37, 352, 33, 126, + 353, 123, 125, 91, 44, 96, 40, 41, 93, 59, + 32, 10 +}; +# endif + +#define YYPACT_NINF -856 + +#define yypact_value_is_default(Yystate) \ + (!!((Yystate) == (-856))) + +#define YYTABLE_NINF -641 + +#define yytable_value_is_error(Yytable_value) \ + (!!((Yytable_value) == (-641))) + + /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing + STATE-NUM. */ +static const yytype_int16 yypact[] = +{ + -856, 88, 3334, -856, 8359, -856, -856, -856, 7952, -856, + -856, -856, -856, -856, -856, -856, 8483, 8483, -856, -856, + -856, 4611, 4176, -856, -856, -856, -856, -16, 7809, -50, + -24, -19, -856, -856, -856, 3451, 4321, -856, -856, 3596, + -856, -856, -856, -856, -856, -856, -856, -856, 9971, 9971, + 95, 6035, 8607, 8855, 9227, 3047, -856, 7666, -856, -856, + -856, 78, 107, 111, 115, 976, 10095, 9971, -856, 16, + -856, 1161, -856, 518, -856, -856, 63, 213, 198, -856, + 145, 10343, -856, 203, 3429, 983, 346, 366, -856, 10219, + 10219, -856, -856, 7003, 10463, 10583, 10703, 7522, 8483, 61, + 71, -856, -856, 231, -856, -856, -856, -856, -856, -856, + -856, -856, -856, -856, -856, 24, 268, -856, 278, 325, + -856, -856, -856, -856, -856, -856, -856, -856, -856, -856, + -856, -856, -856, -856, -856, -856, -856, -856, -856, -856, + -856, -856, -856, -856, -856, -856, -856, -856, -856, -856, + -856, -856, -856, -856, -856, -856, -856, -856, -856, -856, + -856, -856, -856, -856, -856, -856, -856, -856, -856, -856, + -856, -856, -856, -856, -856, -856, -856, -856, -856, -856, + -856, -856, -856, -856, -856, -856, -856, -856, -856, -856, + -856, -856, -856, -856, -856, -856, -856, -856, -856, -856, + 240, -856, -856, -856, -856, 241, 9971, 342, 6184, 9971, + 9971, 9971, -856, 9971, -856, 276, 3429, 310, -856, -856, + 277, 422, 30, 153, 329, 233, 286, -856, -856, 6879, + -856, 8483, 8483, -856, -856, 7127, -856, 10219, 695, -856, + 300, 6333, -856, 6482, -856, -856, 306, 324, 63, -856, + 507, -856, 430, 398, 8607, -856, 6035, 328, 16, -856, + 1161, -50, 370, -856, 1161, -50, 372, -28, 196, -856, + 310, 406, 196, -856, -50, 487, 976, 10823, 416, -856, + 552, 554, 558, 652, -856, -856, -856, -856, -856, 447, + -856, 609, 874, 419, -856, -856, -856, -856, 473, -856, + -856, -856, -856, -856, -856, -856, 7251, 10219, 10219, 10219, + 10219, 8607, 10219, 10219, -856, -856, -856, 458, -856, -856, + -856, -856, -856, 9351, -856, 6035, 8232, 434, 9351, 9971, + 9971, 9971, 9971, 9971, -856, -856, 9971, 9971, 9971, 9971, + 9971, 9971, 9971, 9971, 9971, -856, -856, 9971, 9971, 9971, + 9971, 9971, 9971, 9971, 9971, 9971, 9971, -856, -856, 11105, + 8483, 11193, 5340, 518, 151, 151, 6631, 10219, 6631, 16, + 557, 436, 536, -856, -856, 705, 568, 57, 87, 101, + 795, 812, 10219, 200, -856, 486, 712, -856, -856, -856, + -856, 52, 361, 383, 423, 462, 476, 593, 594, 597, + -856, -856, -856, 598, -856, -856, -856, 12425, -856, -856, + 10095, 10095, -856, -856, 572, -856, -856, -856, 1100, 9971, + 9971, 8731, -856, -856, 11281, 8483, 11369, 9971, 9971, 8979, + -856, -50, 464, -856, -856, -50, -856, 471, 474, -856, + 36, -856, -856, -856, -856, -856, 7952, -856, 9971, 488, + 490, 11281, 11369, 9971, 1161, -24, -50, -856, -856, 7375, + 484, -50, -856, -856, 9103, -856, -856, 9227, -856, -856, + -856, 300, 718, -856, -856, 493, 10823, 11457, 8483, 11545, + -856, -856, -856, -856, -856, -856, -856, -856, -856, -856, + -856, -856, 886, 14, 899, 65, 9971, -856, -856, -856, + -856, -856, -856, -856, -856, -856, 502, 33, -856, -856, + 650, -856, 650, 9971, -856, 524, 529, -856, -856, -50, + 10823, 532, -856, -856, -856, 639, 561, 2721, -856, -856, + -856, 779, 582, 430, 1571, 1571, 1571, 1571, 1693, 2127, + 1571, 1571, 3719, 3719, 1131, 1131, 4727, 1402, 1402, 1039, + 658, 658, 430, 430, 430, 1278, 1278, 4756, 3741, 5046, + 3886, -856, 324, -856, -50, 417, -856, 483, -856, -856, + 4466, 650, 701, -856, 5489, 698, 5787, 650, 40, 650, + 557, -856, 9475, 650, 127, 11633, 8483, 11721, -856, 518, + -856, 718, -856, -856, -856, 11809, 8483, 11897, 5340, 10219, + -856, -856, -856, -856, -856, -856, 2366, -856, 3574, -856, + -856, -856, 7952, 9971, -856, 9971, 310, -856, 286, 3172, + 4031, -50, 584, 651, -856, -856, -856, -856, 8731, 8979, + -856, -856, 10219, 3429, -856, -856, 324, 324, -856, -856, + 42, -856, -856, 196, 10823, 493, 382, 478, -50, 56, + 353, 1218, -856, 854, -856, 229, -856, 567, -856, -856, + 408, 575, -856, 430, -856, -856, 1155, 6482, -856, -856, + 590, -856, -856, 33, -856, 595, 9599, -856, 493, 10823, + 8607, 10095, 9971, 11985, 8483, 12073, 616, 10095, 10095, -856, + 458, 606, 546, 10095, 10095, -856, -856, 458, -856, -856, + -856, 9723, 217, -856, 321, -856, 730, -856, -856, -856, + -856, -856, 650, 66, -856, 165, 298, -50, 138, 157, + 6631, 16, 10219, 5340, 1014, 478, -856, -50, 650, 36, + 618, 8095, 71, 213, -856, -856, -856, -856, 9971, 9971, + 665, 9971, 9971, 624, 36, -856, -856, 388, -856, -856, + -856, -856, -856, -856, -856, 1129, -856, -856, -856, -856, + -856, 1386, -856, -856, -856, -856, -856, 666, -856, 667, + 9971, -856, 671, 764, 676, -856, 680, 776, 683, 778, + -856, -856, -856, -856, -856, -856, -856, -856, -856, -856, + -856, -856, -856, -50, 710, 717, 706, 10943, -856, 708, + 676, -856, 715, 726, -856, 729, -856, -856, 5340, 9971, + 727, 493, -856, 3429, 4901, 5191, -50, 725, 738, 9971, + -856, -856, -856, -856, -856, -856, 10095, -856, -856, -856, + -856, -856, 524, -856, 787, -856, -856, -856, 6631, -856, + -856, -856, -856, 6631, 10219, 650, -856, -856, 650, -856, + -856, 9847, 5638, 170, 650, 5340, 16, 650, -856, -856, + -856, 1386, 5340, 1386, -856, -856, -856, 9971, 8979, -856, + 1129, 534, -856, 748, -50, -856, -50, 73, 9971, 1386, + -856, -856, 825, -856, -856, -856, 46, -856, 1386, -856, + -856, 1290, -856, -856, -856, 765, -856, 10943, 1386, -856, + 844, 833, 825, -856, -856, 1386, -856, 1290, -856, 957, + -856, 766, 775, 3429, -856, -856, 11063, 151, -856, -856, + 5911, -856, 151, -856, -856, -856, 401, -856, 650, -856, + -856, -50, 650, 16, 618, -50, 1259, 768, 1274, -856, + 770, 5340, 6482, -856, -856, -856, -856, 771, 774, -856, + 676, -856, 782, -856, 789, -856, 782, -856, -856, 833, + -856, 790, 791, -856, 12161, -856, 676, 799, -856, 801, + 799, -856, 311, -856, -856, 883, -856, 835, 210, 255, + 282, 5340, 937, 5489, -856, -856, -856, -856, -856, -856, + -856, 5340, -856, 803, 1259, 722, -856, -856, 650, 808, + 1386, -856, 1290, -856, -856, 1290, -856, 1290, -856, -856, + 6755, 1386, -856, 1290, -856, 805, 815, -856, 1290, -856, + 1290, -856, -856, 957, -856, 294, 12249, 8483, 12337, 701, + -856, 321, 650, 1259, 803, 1259, 822, -856, -856, 782, + 826, 782, 782, 856, 799, 828, 799, 799, -856, 91, + 250, -50, 315, 347, -856, -856, -856, 803, 1259, -856, + 1290, -856, -856, -856, -856, -856, 1290, -856, -856, -856, + 350, 803, 782, 799, -856, -856 +}; + + /* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM. + Performed when YYTABLE does not specify something else to do. Zero + means the default is an error. */ +static const yytype_uint16 yydefact[] = +{ + 2, 0, 0, 1, 0, 352, 353, 354, 0, 345, + 346, 347, 350, 348, 349, 351, 340, 341, 342, 343, + 363, 272, 272, 522, 521, 523, 524, 629, 0, 629, + 0, 0, 526, 525, 527, 611, 613, 518, 517, 612, + 520, 512, 513, 514, 515, 465, 532, 533, 0, 0, + 0, 0, 299, 640, 640, 90, 319, 485, 485, 487, + 489, 0, 0, 0, 0, 0, 0, 0, 3, 627, + 6, 9, 35, 39, 51, 62, 272, 61, 0, 78, + 0, 82, 92, 0, 56, 230, 245, 0, 297, 0, + 0, 58, 58, 627, 0, 0, 0, 0, 308, 63, + 317, 286, 287, 464, 466, 288, 289, 290, 292, 291, + 293, 462, 463, 461, 510, 528, 529, 294, 0, 295, + 66, 5, 8, 173, 184, 174, 197, 170, 190, 180, + 179, 200, 201, 195, 178, 177, 172, 198, 202, 203, + 182, 171, 185, 189, 191, 183, 176, 192, 199, 194, + 193, 186, 196, 181, 169, 188, 187, 168, 175, 166, + 167, 163, 164, 165, 121, 123, 122, 158, 159, 154, + 136, 137, 138, 145, 142, 144, 139, 140, 160, 161, + 146, 147, 151, 155, 141, 143, 133, 134, 135, 148, + 149, 150, 152, 153, 156, 157, 162, 126, 128, 130, + 28, 124, 125, 127, 129, 0, 0, 0, 0, 0, + 0, 0, 485, 0, 267, 0, 252, 277, 76, 271, + 640, 0, 528, 529, 0, 295, 640, 605, 77, 629, + 74, 0, 640, 439, 73, 629, 630, 0, 0, 23, + 242, 0, 10, 0, 340, 341, 311, 440, 0, 224, + 0, 308, 225, 305, 0, 21, 0, 0, 627, 17, + 20, 629, 80, 16, 301, 629, 0, 633, 633, 253, + 0, 0, 633, 603, 629, 0, 0, 0, 88, 344, + 0, 98, 99, 106, 420, 507, 506, 508, 505, 0, + 504, 0, 0, 0, 472, 481, 477, 483, 511, 55, + 236, 237, 636, 637, 4, 638, 628, 0, 0, 0, + 0, 0, 0, 0, 355, 444, 433, 67, 446, 316, + 356, 446, 429, 0, 94, 0, 86, 83, 0, 0, + 0, 0, 0, 0, 248, 249, 0, 0, 0, 0, + 215, 216, 0, 0, 0, 246, 247, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 623, 624, 0, + 640, 0, 0, 57, 0, 0, 0, 0, 0, 627, + 0, 628, 0, 374, 373, 0, 0, 528, 529, 295, + 116, 117, 0, 0, 119, 536, 0, 528, 529, 295, + 332, 193, 186, 196, 181, 163, 164, 165, 121, 122, + 601, 334, 600, 0, 75, 626, 625, 0, 318, 467, + 0, 0, 131, 608, 305, 278, 610, 274, 0, 0, + 0, 0, 268, 276, 0, 640, 0, 0, 0, 0, + 269, 629, 0, 310, 273, 629, 263, 640, 640, 262, + 629, 315, 54, 25, 27, 26, 0, 312, 0, 0, + 0, 0, 0, 0, 19, 0, 629, 303, 15, 628, + 79, 629, 300, 306, 635, 634, 254, 635, 256, 307, + 604, 0, 105, 511, 96, 91, 0, 0, 640, 0, + 320, 421, 491, 494, 492, 509, 486, 468, 469, 488, + 470, 490, 0, 0, 0, 0, 0, 639, 7, 29, + 30, 31, 32, 33, 52, 53, 0, 640, 444, 68, + 0, 447, 0, 0, 36, 282, 0, 38, 281, 629, + 0, 84, 95, 50, 40, 48, 0, 257, 277, 204, + 37, 0, 295, 222, 229, 231, 232, 233, 240, 241, + 234, 235, 213, 214, 238, 239, 629, 226, 227, 228, + 217, 218, 219, 220, 221, 250, 251, 614, 616, 615, + 617, 438, 272, 436, 629, 614, 616, 615, 617, 437, + 272, 0, 640, 365, 0, 364, 0, 0, 0, 0, + 0, 359, 0, 0, 305, 0, 640, 0, 58, 330, + 116, 117, 118, 534, 328, 0, 640, 0, 0, 0, + 335, 621, 622, 337, 614, 615, 272, 41, 257, 205, + 47, 212, 0, 0, 607, 0, 279, 275, 640, 614, + 615, 629, 614, 615, 606, 309, 631, 259, 264, 266, + 314, 24, 0, 243, 11, 34, 0, 640, 211, 22, + 81, 18, 302, 633, 0, 89, 618, 104, 629, 614, + 615, 560, 495, 0, 471, 0, 474, 0, 479, 476, + 0, 0, 480, 223, 442, 412, 629, 0, 410, 409, + 0, 362, 443, 640, 428, 285, 0, 93, 87, 0, + 0, 0, 0, 0, 640, 0, 0, 0, 0, 435, + 71, 0, 441, 0, 0, 261, 434, 69, 260, 298, + 357, 640, 640, 453, 640, 366, 640, 323, 368, 59, + 367, 324, 0, 0, 326, 618, 304, 629, 614, 615, + 0, 0, 0, 0, 116, 117, 120, 629, 0, 629, + 538, 0, 430, 64, 132, 609, 280, 270, 0, 0, + 441, 0, 0, 640, 629, 255, 97, 441, 566, 563, + 562, 561, 564, 572, 581, 0, 592, 582, 596, 595, + 591, 560, 422, 559, 425, 565, 567, 568, 570, 545, + 574, 579, 640, 584, 640, 589, 545, 594, 545, 0, + 543, 496, 500, 501, 502, 493, 503, 473, 475, 482, + 478, 484, 408, 629, 0, 568, 393, 576, 577, 640, + 640, 587, 393, 393, 391, 414, 445, 65, 0, 0, + 283, 85, 49, 258, 614, 615, 629, 614, 615, 0, + 46, 209, 45, 210, 72, 632, 0, 43, 207, 44, + 208, 70, 454, 455, 640, 456, 358, 360, 0, 12, + 14, 460, 361, 0, 0, 0, 369, 371, 0, 60, + 325, 0, 0, 441, 0, 0, 0, 0, 441, 333, + 602, 560, 0, 560, 338, 431, 432, 0, 265, 313, + 0, 386, 377, 379, 629, 375, 629, 0, 0, 0, + 552, 573, 0, 541, 599, 583, 0, 542, 0, 555, + 593, 0, 557, 597, 497, 0, 411, 0, 399, 401, + 0, 575, 0, 389, 390, 0, 404, 0, 406, 0, + 448, 284, 441, 244, 42, 206, 0, 0, 458, 459, + 0, 372, 0, 321, 322, 279, 640, 327, 0, 535, + 329, 629, 0, 0, 538, 629, 0, 384, 0, 569, + 0, 0, 0, 423, 585, 544, 571, 545, 545, 580, + 640, 598, 545, 590, 545, 568, 545, 498, 413, 586, + 392, 393, 393, 305, 0, 578, 640, 393, 588, 393, + 393, 418, 629, 416, 419, 0, 457, 0, 528, 529, + 295, 0, 640, 0, 450, 451, 449, 331, 537, 336, + 539, 0, 376, 387, 0, 382, 378, 424, 0, 0, + 0, 548, 0, 550, 540, 0, 556, 0, 553, 558, + 0, 0, 396, 0, 398, 618, 304, 388, 0, 405, + 0, 402, 407, 0, 415, 305, 0, 640, 0, 640, + 13, 640, 0, 0, 385, 0, 380, 427, 426, 545, + 545, 545, 545, 0, 393, 393, 393, 393, 417, 618, + 304, 629, 614, 615, 452, 370, 339, 383, 0, 549, + 0, 546, 551, 554, 499, 397, 0, 394, 400, 403, + 441, 381, 545, 393, 547, 395 +}; + + /* YYPGOTO[NTERM-NUM]. */ +static const yytype_int16 yypgoto[] = +{ + -856, -856, -856, 741, -856, 23, 540, -438, -856, -29, + -856, 530, -856, 6, -856, -214, -311, 81, -88, -80, + -856, -856, -30, -856, -166, 736, 59, 903, -164, -1, + -48, -856, -412, 8, 2062, -322, 904, -54, -856, -14, + -856, -856, 13, -856, 1459, -856, 916, -856, 777, -856, + 426, 97, 409, -353, 74, -11, -856, -375, -203, 15, + -856, -315, -39, -856, -856, -856, -856, -856, -856, -856, + -856, -856, -856, -856, -856, 43, -856, -856, -856, -856, + -856, -856, -856, -856, -856, -856, -856, -856, -856, -856, + -856, 318, -856, 305, 767, -340, -856, -9, -662, -856, + -855, -852, 137, 362, 254, -856, 357, -856, -678, -856, + 9, -856, -856, -856, -856, -856, -856, 317, -856, -856, + -99, 523, -856, 733, -856, -856, -554, -856, 22, -856, + -856, 76, -856, -856, -856, 952, -856, -856, -856, -856, + 566, -856, -856, -856, -856, -856, -856, 4, -856, -856, + -258, -856, -856, -856, -856, -856, -856, -856, 1, -856, + 11, -856, -17, 1925, 2034, 965, 2368, 1642, -856, -856, + 135, -856, -580, -197, -376, -798, -725, 291, -813, 180, + 238, 199, 181, -856, -856, -856, -97, -792, -827, 186, + 212, -856, -573, -856, -299, -624, -856, -856, -856, 90, + -380, -856, -321, -856, -856, -81, -856, -56, -12, 632, + -568, -248, -65, 0, -2 +}; + + /* YYDEFGOTO[NTERM-NUM]. */ +static const yytype_int16 yydefgoto[] = +{ + -1, 1, 2, 68, 69, 70, 242, 571, 920, 572, + 258, 259, 455, 260, 446, 72, 524, 73, 364, 366, + 367, 849, 74, 75, 509, 248, 77, 78, 261, 79, + 80, 81, 475, 82, 215, 384, 385, 197, 198, 199, + 200, 612, 560, 202, 84, 448, 355, 85, 217, 266, + 529, 561, 696, 435, 436, 230, 231, 219, 422, 437, + 517, 518, 86, 362, 265, 461, 632, 284, 723, 721, + 598, 600, 730, 731, 934, 250, 88, 89, 90, 91, + 92, 93, 94, 95, 96, 97, 318, 321, 701, 838, + 582, 843, 844, 672, 251, 574, 709, 845, 846, 376, + 872, 873, 874, 960, 899, 793, 667, 668, 794, 972, + 973, 480, 481, 651, 877, 762, 943, 322, 99, 100, + 319, 506, 507, 510, 511, 673, 583, 986, 702, 834, + 917, 840, 101, 102, 103, 104, 105, 106, 107, 492, + 655, 108, 494, 109, 110, 493, 495, 289, 292, 293, + 486, 653, 652, 781, 894, 957, 1010, 785, 111, 290, + 112, 113, 114, 222, 223, 117, 224, 225, 594, 722, + 862, 863, 945, 880, 764, 765, 766, 955, 768, 769, + 770, 771, 798, 799, 772, 773, 774, 775, 801, 802, + 776, 777, 778, 779, 780, 883, 403, 599, 271, 438, + 227, 120, 636, 563, 603, 597, 407, 304, 432, 433, + 692, 466, 575, 371, 263 +}; + + /* YYTABLE[YYPACT[STATE-NUM]] -- What to do in state STATE-NUM. If + positive, shift that token. If negative, reduce the rule whose + number is the opposite. If YYTABLE_NINF, syntax error. */ +static const yytype_int16 yytable[] = +{ + 121, 408, 365, 288, 305, 369, 361, 564, 71, 203, + 71, 234, 368, 530, 239, 237, 279, 240, 406, 204, + 468, 201, 257, 430, 470, 576, 712, 122, 305, 203, + 875, 220, 220, 327, 489, 491, 299, 370, 562, 204, + 570, 201, 279, 401, 848, 87, 617, 87, 298, 624, + 262, 269, 273, 740, 617, 279, 279, 279, 264, 221, + 221, 592, 291, 278, 645, 317, 946, 708, 267, 306, + 201, 763, 621, 312, 313, 214, 214, 657, 968, 573, + 747, -101, -107, 996, 993, 946, 606, 624, 3, 314, + 218, 228, 456, 803, 87, 87, 953, 314, 280, 607, + 610, 236, 941, 562, -111, 570, 226, 226, 678, 221, + 201, 974, -108, 220, 523, 895, 464, 241, 665, 233, + -522, -530, 243, 465, 280, 648, -115, -530, 661, 357, + 235, 637, 221, 221, 658, 236, 221, 375, 386, 386, + 426, 221, 1034, 268, 272, 875, 937, -522, -107, 853, + 887, 253, -114, 758, -107, 358, 405, 214, 637, 858, + 728, 519, 666, -110, 573, 302, -79, 303, -98, 452, + 363, 363, 404, 316, 363, 903, 904, 759, 996, 257, + -101, 763, -112, 1057, 968, 662, -93, 236, 226, 302, + -111, 303, 946, 305, 942, -109, 523, 523, 940, 479, + -101, -98, 458, -101, 315, 946, 1071, -101, 953, 232, + 851, 875, 315, 875, 450, 302, 418, 303, 423, 499, + 500, 501, 502, -107, 423, 974, 836, 257, 294, 474, + 439, -99, 837, 717, 656, 430, 656, -614, 279, 121, + -111, 320, -111, 727, 220, -106, 220, 71, 912, 624, + -531, 87, 590, 617, 617, 262, 591, 295, 459, 473, + 454, 296, 471, -113, 984, 297, 637, 811, -108, 875, + 1036, -105, 221, 726, 221, 221, 637, -108, 221, 578, + 221, 763, -101, 763, 87, 857, 87, 279, 214, 324, + 214, 214, 482, 514, 587, -115, 257, 87, 525, 87, + 302, -103, 303, 431, 305, 434, 948, -114, 875, -102, + 875, -614, 71, 580, -100, 954, 440, 503, 442, 226, + 280, 226, 323, -113, 262, 962, 1004, 328, -110, 498, + 428, 816, 969, 875, 521, 842, 837, 577, 516, 579, + 467, 58, 1017, 516, 233, 316, 483, 465, 484, 87, + 221, 221, 221, 221, 87, 221, 221, -115, 439, -107, + -112, -107, 562, -109, 570, -531, 221, 804, 87, 280, + 910, 531, 985, 852, 568, 410, 820, 822, -103, 787, + 525, 525, 827, 829, 412, 876, 833, 235, 363, 363, + 363, 363, -108, 504, 505, 745, -615, 788, 414, -113, + 419, -113, 788, 221, -108, 87, -108, -102, 420, 87, + 221, 87, -99, -100, -344, 737, 837, 928, 581, 214, + 568, 421, 411, 439, 932, 221, 427, 1040, 474, -521, + 429, -115, 631, -115, 357, 423, 423, 279, 1045, 568, + -344, -344, -104, -114, -615, -114, 447, 203, 363, -115, + 685, -523, 229, 531, 531, 1023, -521, 204, 569, 201, + 358, 359, 236, 589, -110, 568, -110, 523, 221, -106, + 232, 482, 474, 523, 523, 457, 439, -103, -523, 523, + 523, 279, 482, 1070, 214, 931, 490, 933, 624, -344, + 357, -524, 568, 617, -78, 453, -112, -103, -112, -109, + -103, -109, 87, 998, -103, 669, -102, 329, 720, 360, + 482, 618, -100, 710, 693, 914, 358, 424, -524, 280, + 463, 221, -114, 569, 824, 483, -102, 484, -614, -102, + -526, 831, -100, -102, 686, -100, 483, 214, 484, -100, + 737, -110, -105, 472, -525, 704, -304, 706, 469, 569, + 496, 690, 691, 1032, 643, 312, 313, -526, 790, 697, + 476, -101, 508, 280, 483, 425, 484, 485, 698, 800, + 703, -525, -304, -304, 581, 357, 569, 981, 522, 889, + 694, 892, 983, 951, 439, 497, 748, 951, 749, 750, + 751, 752, 584, 588, 439, 733, 746, 713, 734, 804, + 568, 358, 451, 951, 698, 279, 804, -112, 804, 691, + 568, 626, 523, 203, 593, 628, 423, 87, 629, 87, + 357, -304, -528, 204, -615, 201, -529, -103, -93, 221, + 634, 474, 635, 865, 856, 698, 691, 644, 806, 221, + 279, 87, 221, 826, 664, 214, 358, 477, -528, -528, + 425, 525, -529, -529, 805, 214, 855, 525, 525, 689, + 671, -527, -516, 525, 525, -519, 601, 695, -277, 453, + -109, 669, 482, 676, 1051, 221, 679, 864, 936, 411, + 729, 741, 439, 680, 569, 681, 812, 280, -527, -516, + -100, 854, -519, 602, 569, 478, -114, -528, 568, 835, + 841, -529, 847, 695, 847, 691, -115, 637, -110, 700, + 87, 705, 804, 744, 804, 691, 516, 789, 743, 804, + -295, 804, 280, 87, 531, 791, 483, 221, 484, 487, + 531, 531, 807, 689, 695, 329, 531, 531, 76, -278, + 76, 423, 819, 214, 201, 837, -295, -295, 742, 443, + 1001, 1003, 76, 76, 825, 1006, 922, 1008, 279, 1009, + 444, 445, 867, 87, 861, 221, 87, 804, 868, 98, + 884, 98, 884, 357, 748, -112, 749, 750, 751, 752, + 357, 805, 569, 98, 98, 950, -305, 76, 76, -109, + 878, 929, 352, 353, 354, -295, 525, 884, 884, 358, + 585, 800, 76, 363, 691, 966, 358, 595, 800, 919, + 800, 879, -305, -305, 921, 882, 885, 674, 98, 98, + 886, -611, 693, 926, 888, 76, 76, 891, 890, 76, + 893, 270, 918, 98, 76, 694, 609, 611, -612, 896, + 901, 897, 1059, 1061, 1062, 1063, 796, 357, 586, -110, + 898, 87, 902, 609, 611, 596, 98, 98, 279, 905, + 98, -305, -112, -516, 805, 98, 1035, 441, 990, 531, + 907, -279, 826, 358, 683, 1074, 699, 279, 909, 638, + -519, 87, 707, 753, 711, 916, 87, 221, 714, -516, + -516, 982, 938, 460, 958, 87, 1028, 462, 87, -109, + 963, 357, 754, 357, 797, 87, -519, -519, 782, 783, + -280, 784, 994, 999, 800, 1000, 800, 997, 1002, 46, + 47, 800, 684, 800, 847, 363, 1005, 358, 964, 358, + 1026, 757, 758, 1007, 1011, 1013, -611, 482, -516, 1025, + 959, -611, 767, 1018, 76, 1020, 836, 1033, 884, 482, + 1038, -614, 1029, -612, 1031, -519, 759, 795, -612, 977, + 1024, -615, 482, 87, 884, 76, 1058, 76, 76, 800, + 1060, 76, 1066, 76, 1064, 98, 596, 76, 1027, 76, + 841, 1043, 449, 413, 87, 87, 415, 416, 417, 641, + 76, 483, 76, 484, 488, 639, 98, 373, 98, 98, + 390, 356, 98, 483, 98, 484, 654, 935, 98, 971, + 98, 749, 750, 751, 752, 732, 483, 850, 484, 659, + 839, 98, 1055, 98, 87, 439, 87, 703, 792, 847, + 808, 670, 1048, 859, 87, 41, 42, 43, 44, 691, + -618, 568, 76, 76, 76, 76, 76, 76, 76, 76, + 866, 1054, 767, 87, 512, 409, 906, 908, 1030, 76, + 660, 76, 402, 625, 76, 334, 335, 627, 952, 991, + 221, 956, 630, 98, 98, 98, 98, 98, 98, 98, + 98, 949, -618, 965, 961, 967, 214, 970, 640, 0, + 98, 947, 98, 642, 0, 98, 76, 0, 76, 0, + 515, 0, 76, 76, 76, 528, 0, 0, -618, -618, + 345, 346, 0, 821, 823, 0, 329, 0, 76, 828, + 830, 0, 0, 0, 0, 569, 0, 98, 0, 98, + 0, 342, 343, 98, 98, 98, 797, 0, 0, 0, + 797, 0, 0, 797, 0, 797, 76, 76, 0, 98, + 923, 677, 767, 924, 767, -618, 0, -618, 0, 927, + -614, 76, 930, 482, 821, 823, 0, 828, 830, 0, + 767, 350, 351, 352, 353, 354, 0, 98, 98, 767, + 1039, 748, 1041, 749, 750, 751, 752, 1042, 0, 795, + 0, 1044, 98, 1046, 0, 76, 795, 614, 616, 0, + 1047, 307, 308, 309, 310, 311, 270, 748, 329, 749, + 750, 751, 752, 753, 76, 1012, 1014, 483, 0, 484, + 487, 1019, 613, 1021, 1022, 0, 98, 0, 870, 0, + 0, 0, 754, 987, 871, 0, 0, 989, 0, 0, + 1072, 616, 0, 0, 270, 98, 1073, 0, 0, 797, + 0, 797, 915, 0, 755, 0, 797, 0, 797, 0, + 756, 757, 758, 350, 351, 352, 353, 354, 0, 0, + 748, 0, 749, 750, 751, 752, 753, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 759, 0, 0, 760, + 675, 767, 0, 915, 0, 754, 0, 0, 1065, 1067, + 1068, 1069, 795, 1037, 797, 0, 236, 0, 0, 0, + 76, 748, 76, 749, 750, 751, 752, 755, 0, 0, + 0, 0, 76, 756, 757, 758, 748, 1075, 749, 750, + 751, 752, 76, 0, 76, 76, 0, 1056, 0, 0, + 0, 98, 748, 98, 749, 750, 751, 752, 753, 759, + 0, 0, 760, 98, 0, 329, 0, 0, 870, 528, + 0, 860, 0, 98, 761, 98, 98, 754, 76, 0, + 342, 343, 0, 870, 0, 0, 869, 0, 0, 995, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 755, + 735, 0, 736, 0, 0, 0, 757, 758, 0, 98, + 0, 0, 0, 76, 0, 616, 270, 347, 348, 349, + 350, 351, 352, 353, 354, 0, 76, 76, 0, 0, + 76, 759, 0, 76, 76, 0, 0, 0, 0, 76, + 76, 0, 0, 0, 98, 0, 0, 0, 748, 0, + 749, 750, 751, 752, 753, 0, 0, 98, 98, 0, + 0, 98, 0, 810, 98, 98, 76, 0, 76, 76, + 98, 98, 0, 754, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 216, 216, 0, 832, 329, + 0, 0, 0, 0, 0, 755, 0, 98, 0, 98, + 98, 756, 757, 758, 342, 343, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 939, 249, 252, 0, + 0, 0, 216, 216, 0, 0, 0, 759, 0, 0, + 760, 0, 0, 0, 0, 300, 301, 0, 0, 0, + 0, 0, 0, 349, 350, 351, 352, 353, 354, 0, + 0, 0, 0, 0, 76, 0, 0, 881, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 216, 0, 0, + 0, 0, 76, 988, 0, 0, 0, 992, 0, 0, + 0, 0, 0, 0, 76, 98, 0, 0, 0, 76, + 76, 0, 0, 0, 0, 0, 911, 0, 76, 0, + 0, 76, 0, 98, 0, 0, 0, 0, 76, 0, + 0, 0, 0, 0, 0, 98, 0, 0, 0, 0, + 98, 98, 0, 0, 0, 0, 0, 0, 0, 98, + 0, 0, 98, 0, 0, 0, 0, 0, 925, 98, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 119, 270, 119, 0, 329, -641, + -641, -641, -641, 334, 335, 944, 76, -641, -641, 0, + 0, 0, 0, 342, 343, 216, 0, 0, 216, 216, + 216, 0, 300, 0, 0, 0, 0, 76, 76, 0, + 0, 0, 0, 0, 0, 0, 0, 98, 216, 0, + 216, 216, 0, 119, 119, 0, 0, 283, 345, 346, + 347, 348, 349, 350, 351, 352, 353, 354, 98, 98, + 0, 0, 0, 0, 0, 0, 0, 76, 0, 76, + 0, 0, 0, 283, 0, 0, 0, 76, 0, 0, + 0, 0, 0, 0, 0, 0, 379, 389, 389, 0, + 0, 0, 0, 0, 0, 0, 76, 0, 98, 0, + 98, 0, 0, 0, 0, 0, 0, 0, 98, 0, + 0, 0, 0, 76, 0, 0, 0, 0, 0, 0, + 329, 330, 331, 332, 333, 334, 335, 98, 0, 338, + 339, 0, 216, 0, 0, 342, 343, 527, 533, 534, + 535, 536, 537, 0, 98, 538, 539, 540, 541, 542, + 543, 544, 545, 546, 0, 0, 547, 548, 549, 550, + 551, 552, 553, 554, 555, 556, 0, 0, 0, 216, + 345, 346, 347, 348, 349, 350, 351, 352, 353, 354, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 119, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 608, + 608, 0, 0, 0, 0, 0, 0, 0, 608, 216, + 216, 0, 0, 119, 216, 119, 608, 608, 216, 0, + 0, 0, 0, 0, 0, 0, 119, 0, 119, 0, + 0, 0, 0, 0, 0, 0, 0, 633, 0, 0, + 0, 0, 608, 0, 0, 0, 0, 0, 0, 283, + 0, 0, 0, 216, 0, 0, 216, 115, 0, 115, + 0, 0, 0, 0, 0, 0, 0, 216, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 119, 0, + 0, 0, 0, 119, 0, 663, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 119, 283, 0, + 532, 0, 216, 0, 0, 0, 115, 115, 0, 0, + 281, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 119, 0, 281, 0, 119, 0, + 119, 0, 0, 0, 0, 0, 0, 0, 0, 377, + 387, 387, 387, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 116, 0, 116, 0, + 0, 216, 0, 0, 0, 216, 0, 0, 0, 0, + 0, 0, 532, 532, 0, 216, 0, 0, 0, 0, + 0, 0, 0, 0, 83, 0, 83, 0, 0, 0, + 0, 0, 216, 0, 216, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 116, 116, 216, 216, 282, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 119, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 83, 83, 282, 0, 0, 283, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 378, 388, + 388, 388, 0, 115, 0, 216, 0, 0, 0, 0, + 608, 813, 0, 216, 0, 0, 608, 608, 0, 0, + 0, 0, 608, 608, 0, 0, 374, 0, 0, 0, + 216, 0, 283, 0, 0, 0, 115, 0, 115, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 115, + 0, 115, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 608, 608, 0, + 608, 608, 281, 0, 329, 330, 331, 332, 333, 334, + 335, 336, 0, 338, 339, 0, 119, 0, 119, 342, + 343, 0, 0, 0, 0, 0, 0, 0, 0, 216, + 0, 115, 0, 0, 0, 0, 115, 0, 0, 0, + 119, 0, 116, 0, 0, 0, 0, 0, 0, 0, + 115, 281, 0, 0, 345, 346, 347, 348, 349, 350, + 351, 352, 353, 354, 0, 0, 0, 0, 216, 0, + 83, 0, 0, 0, 0, 116, 0, 116, 913, 0, + 0, 0, 0, 0, 0, 608, 283, 115, 116, 0, + 116, 115, 0, 115, 0, 786, 0, 0, 0, 0, + 0, 0, 0, 83, 0, 83, 0, 0, 0, 119, + 216, 282, 0, 0, 0, 0, 83, 0, 83, 0, + 0, 283, 119, 532, 0, 0, 608, 216, 0, 532, + 532, 0, 0, 0, 0, 532, 532, 216, 0, 0, + 116, 0, 0, 0, 0, 116, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 116, + 282, 0, 119, 0, 0, 119, -640, 0, 83, 0, + 118, 0, 118, 83, -640, -640, -640, 0, 0, -640, + -640, -640, 0, -640, 115, 0, 0, 83, 0, 0, + 526, 0, -640, -640, 0, 0, 116, 0, 0, 0, + 116, 281, 116, -640, -640, 0, -640, -640, -640, -640, + -640, 0, 0, 0, 0, 0, 0, 0, 0, 118, + 118, 0, 0, 0, 83, 0, 0, 0, 83, 0, + 83, 0, 0, 0, -640, 0, 0, 0, 0, 389, + 0, 0, 0, 0, 0, 281, 0, 0, 0, 0, + 119, 0, 0, 0, 0, 0, 0, 0, 0, 0, + -640, -640, 0, 0, 0, 0, 0, 0, 532, 0, + 0, 0, 526, 526, 0, 0, 0, 0, 0, 0, + 119, 0, 0, 0, -640, 119, 216, 0, 0, 0, + 0, 0, 0, 116, 119, 0, 0, 119, 0, 115, + 0, 115, 0, 0, 119, 0, 0, -640, -640, 0, + 282, 0, 232, -640, 0, -640, 0, -640, 0, 0, + 0, 83, 0, 115, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 389, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 282, 0, 0, 0, 980, 0, + 0, 0, 119, 0, 0, 0, 0, 0, 0, 281, + 0, 0, 0, 0, 0, 0, 118, 0, 0, 0, + 0, 0, 0, 119, 119, 0, 0, 0, 0, 0, + 0, 0, 115, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 281, 115, 0, 0, 116, 118, + 116, 118, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 118, 119, 118, 119, 0, 0, 0, 0, + 0, 0, 116, 119, 0, 0, 83, 0, 83, 0, + 0, 0, 0, 0, 0, 115, 0, 0, 115, 0, + 0, 0, 119, 0, 0, 0, 0, 0, 0, 0, + 83, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 118, 0, 0, 0, 282, 118, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 118, 0, 0, 118, 0, 0, 0, + 0, 116, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 282, 116, 0, 0, 0, 0, 0, + 0, 0, 387, 0, 0, 0, 0, 0, 0, 83, + 118, 0, 0, 115, 118, 0, 118, 0, 0, 0, + 0, 0, 83, 526, 0, 0, 0, 0, 0, 526, + 526, 0, 0, 0, 116, 526, 526, 116, 0, 0, + 0, 0, 0, 115, 0, 682, 0, 0, 115, 0, + 0, 0, 0, 0, 0, 0, 0, 115, 118, 118, + 115, 0, 83, 0, 0, 83, 0, 115, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 329, 330, + 331, 332, 333, 334, 335, 336, 337, 338, 339, 340, + 341, 0, 0, 342, 343, 0, 0, 0, 0, 0, + 0, 0, 387, 0, 0, 0, 0, 118, 0, 0, + 0, 388, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 978, 116, 0, 0, 115, 344, 0, 345, 346, + 347, 348, 349, 350, 351, 352, 353, 354, 0, 0, + 0, 0, 0, 0, 0, -252, 115, 115, 0, 0, + 83, 0, 116, 0, 0, 0, 0, 116, 0, 0, + 0, 0, 0, 0, 0, 0, 116, 0, 526, 116, + 0, 0, 0, 0, 0, 0, 116, 0, 0, 0, + 83, 0, 0, 0, 0, 83, 115, 0, 115, 0, + 0, 0, 0, 0, 83, 0, 115, 83, 0, 0, + 0, 0, 0, 0, 83, 0, 0, 0, 0, 0, + 0, 388, 0, 0, 0, 115, 0, 0, 0, 0, + 0, 0, 118, 0, 118, 0, 0, 0, 0, 0, + 979, 0, 0, 0, 116, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 118, 0, 0, 0, + 0, 0, 0, 0, 0, 116, 116, 0, 976, 0, + 0, 0, 83, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 83, 83, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 116, 0, 116, 0, 0, + 0, 0, 0, 0, 0, 116, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 118, 0, 0, 0, 0, + 0, 0, 0, 83, 116, 83, 0, 0, 118, 118, + 5, 6, 7, 83, 9, 118, 118, 0, 10, 11, + 0, 118, 118, 12, 0, 13, 14, 15, 244, 245, + 18, 19, 83, 0, 0, 0, 0, 20, 246, 247, + 23, 24, 25, 26, 0, 0, 205, 0, 118, 0, + 0, 118, 0, 274, 0, 0, 32, 33, 34, 35, + 36, 37, 38, 39, 40, 0, 41, 42, 43, 44, + 0, 45, 46, 47, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 275, 0, 0, 208, 52, 0, 53, + 54, 0, 0, 0, 0, 56, 57, 58, 59, 60, + 61, 62, 63, 64, 0, 0, 0, 0, 0, 0, + 0, 0, -618, 0, 0, 0, 118, 0, 0, 0, + -618, -618, -618, 0, 276, -618, -618, -618, 0, -618, + 0, 277, 0, 0, 118, 0, 0, 0, -618, -618, + -618, -618, 0, 0, 0, 0, 118, 0, 0, -618, + -618, 118, -618, -618, -618, -618, -618, 0, 0, 0, + 118, 0, 0, 118, 0, 0, 0, 0, 0, 0, + 118, 0, 0, 0, 0, 0, 0, 0, 0, 0, + -618, 0, 0, 0, 0, 0, 0, 0, 0, -618, + -618, -618, -618, -618, -618, -618, -618, -618, -618, -618, + -618, -618, 0, 0, -618, -618, -618, -618, 0, 738, + -618, 0, 0, 0, 0, 0, -618, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 118, 0, + -618, 0, 0, -618, 0, 0, -111, -618, -618, -618, + -618, -618, -618, -618, -618, -618, -618, -618, -618, 118, + 118, 0, 0, -618, -618, -618, -618, 0, 0, -618, + -618, -618, 0, -618, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, -640, 4, 0, 5, 6, 7, + 8, 9, 0, 0, 0, 10, 11, 0, 0, 118, + 12, 118, 13, 14, 15, 16, 17, 18, 19, 118, + 0, 0, 0, 0, 20, 21, 22, 23, 24, 25, + 26, 0, 0, 27, 0, 0, 0, 0, 118, 28, + 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, + 39, 40, 0, 41, 42, 43, 44, 0, 45, 46, + 47, 0, 0, 0, 0, 0, 0, 0, 0, 48, + 49, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 50, 0, 0, 51, 52, 0, 53, 54, 0, 55, + 0, 0, 56, 57, 58, 59, 60, 61, 62, 63, + 64, -516, 0, 0, 0, 0, 0, 0, 0, -516, + -516, -516, 0, 0, -516, -516, -516, 0, -516, 0, + 0, 65, 66, 67, 0, 0, -516, 0, -516, -516, + -516, 0, 0, -640, 0, -640, 0, 0, -516, -516, + 0, -516, -516, -516, -516, -516, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 329, 330, 331, 332, + 333, 334, 335, 336, 337, 338, 339, 340, 341, -516, + 0, 342, 343, 0, 0, 0, 0, 0, -516, -516, + -516, -516, -516, -516, -516, -516, -516, -516, -516, -516, + -516, 0, 0, -516, -516, -516, -516, 0, -516, -516, + 0, 0, 0, 0, 344, -516, 345, 346, 347, 348, + 349, 350, 351, 352, 353, 354, 0, 0, 0, -516, + 0, 0, -516, 0, 0, -516, -516, -516, -516, -516, + -516, -516, -516, -516, -516, -516, -516, -516, 0, 0, + 0, 0, 0, -516, -516, -516, -519, 0, -516, -516, + -516, 0, -516, 0, -519, -519, -519, 0, 0, -519, + -519, -519, 0, -519, 0, 0, 0, 0, 682, 0, + 0, -519, 0, -519, -519, -519, 0, 0, 0, 0, + 0, 0, 0, -519, -519, 0, -519, -519, -519, -519, + -519, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 329, 330, 331, 332, 333, 334, 335, 336, 337, + 338, 339, 340, 341, -519, 0, 342, 343, 0, 0, + 0, 0, 0, -519, -519, -519, -519, -519, -519, -519, + -519, -519, -519, -519, -519, -519, 0, 0, -519, -519, + -519, -519, 0, -519, -519, 0, 0, 0, 0, 344, + -519, 345, 346, 347, 348, 349, 350, 351, 352, 353, + 354, 0, 0, 0, -519, 0, 0, -519, 0, 0, + -519, -519, -519, -519, -519, -519, -519, -519, -519, -519, + -519, -519, -519, 0, 0, 0, 0, 0, -519, -519, + -519, -619, 0, -519, -519, -519, 0, -519, 0, -619, + -619, -619, 0, 0, -619, -619, -619, 0, -619, 0, + 0, 0, 0, 0, 0, 0, 0, -619, -619, -619, + -619, 0, 0, 0, 0, 0, 0, 0, -619, -619, + 0, -619, -619, -619, -619, -619, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 329, 330, 331, 332, + 333, 334, 335, 336, 337, 338, 339, -641, -641, -619, + 0, 342, 343, 0, 0, 0, 0, 0, -619, -619, + -619, -619, -619, -619, -619, -619, -619, -619, -619, -619, + -619, 0, 0, -619, -619, -619, -619, 0, 0, -619, + 0, 0, 0, 0, 0, -619, 345, 346, 347, 348, + 349, 350, 351, 352, 353, 354, 0, 0, 0, -619, + 0, 0, -619, 0, 0, 0, -619, -619, -619, -619, + -619, -619, -619, -619, -619, -619, -619, -619, 0, 0, + 0, 0, -619, -619, -619, -619, -620, 0, -619, -619, + -619, 0, -619, 0, -620, -620, -620, 0, 0, -620, + -620, -620, 0, -620, 0, 0, 0, 0, 0, 0, + 0, 0, -620, -620, -620, -620, 0, 0, 0, 0, + 0, 0, 0, -620, -620, 0, -620, -620, -620, -620, + -620, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, -620, 0, 0, 0, 0, 0, + 0, 0, 0, -620, -620, -620, -620, -620, -620, -620, + -620, -620, -620, -620, -620, -620, 0, 0, -620, -620, + -620, -620, 0, 0, -620, 0, 0, 0, 0, 0, + -620, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, -620, 0, 0, -620, 0, 0, + 0, -620, -620, -620, -620, -620, -620, -620, -620, -620, + -620, -620, -620, 0, 0, 0, 0, -620, -620, -620, + -620, -304, 0, -620, -620, -620, 0, -620, 0, -304, + -304, -304, 0, 0, -304, -304, -304, 0, -304, 0, + 0, 0, 0, 0, 0, 0, 0, 0, -304, -304, + -304, 0, 0, 0, 0, 0, 0, 0, -304, -304, + 0, -304, -304, -304, -304, -304, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, -304, + 0, 0, 0, 0, 0, 0, 0, 0, -304, -304, + -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, + -304, 0, 0, -304, -304, -304, -304, 0, 739, -304, + 0, 0, 0, 0, 0, -304, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, -304, + 0, 0, -304, 0, 0, -113, -304, -304, -304, -304, + -304, -304, -304, -304, -304, -304, -304, -304, 0, 0, + 0, 0, 0, -304, -304, -304, -440, 0, -304, -304, + -304, 0, -304, 0, -440, -440, -440, 0, 0, -440, + -440, -440, 0, -440, 0, 0, 0, 0, 0, 0, + 0, 0, -440, -440, -440, 0, 0, 0, 0, 0, + 0, 0, 0, -440, -440, 0, -440, -440, -440, -440, + -440, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, -440, 0, 0, 0, 0, 0, + 0, 0, 0, -440, -440, -440, -440, -440, -440, -440, + -440, -440, -440, -440, -440, -440, 0, 0, -440, -440, + -440, -440, 0, 0, -440, 0, 0, 0, 0, 0, + -440, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, -440, 0, 0, 0, 0, 0, + 0, -440, 0, -440, -440, -440, -440, -440, -440, -440, + -440, -440, -440, 0, 0, 0, 0, -440, -440, -440, + -440, -296, 232, -440, -440, -440, 0, -440, 0, -296, + -296, -296, 0, 0, -296, -296, -296, 0, -296, 0, + 0, 0, 0, 0, 0, 0, 0, 0, -296, -296, + -296, 0, 0, 0, 0, 0, 0, 0, -296, -296, + 0, -296, -296, -296, -296, -296, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, -296, + 0, 0, 0, 0, 0, 0, 0, 0, -296, -296, + -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, + -296, 0, 0, -296, -296, -296, -296, 0, 0, -296, + 0, 0, 0, 0, 0, -296, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, -296, + 0, 0, -296, 0, 0, 0, -296, -296, -296, -296, + -296, -296, -296, -296, -296, -296, -296, -296, 0, 0, + 0, 0, 0, -296, -296, -296, -640, 0, -296, -296, + -296, 0, -296, 0, -640, -640, -640, 0, 0, -640, + -640, -640, 0, -640, 0, 0, 0, 0, 0, 0, + 0, 0, -640, -640, -640, 0, 0, 0, 0, 0, + 0, 0, 0, -640, -640, 0, -640, -640, -640, -640, + -640, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, -640, 0, 0, 0, 0, 0, + 0, 0, 0, -640, -640, -640, -640, -640, -640, -640, + -640, -640, -640, -640, -640, -640, 0, 0, -640, -640, + -640, -640, 0, 0, -640, 0, 0, 0, 0, 0, + -640, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, -640, 0, 0, 0, 0, 0, + 0, -640, 0, -640, -640, -640, -640, -640, -640, -640, + -640, -640, -640, 0, 0, 0, 0, -640, -640, -640, + -640, -311, 232, -640, -640, -640, 0, -640, 0, -311, + -311, -311, 0, 0, -311, -311, -311, 0, -311, 0, + 0, 0, 0, 0, 0, 0, 0, 0, -311, -311, + 0, 0, 0, 0, 0, 0, 0, 0, -311, -311, + 0, -311, -311, -311, -311, -311, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, -311, + 0, 0, 0, 0, 0, 0, 0, 0, -311, -311, + -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, + -311, 0, 0, -311, -311, -311, -311, 0, 0, -311, + 0, 0, 0, 0, 0, -311, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, -311, + 0, 0, 0, 0, 0, 0, -311, 0, -311, -311, + -311, -311, -311, -311, -311, -311, -311, -311, 0, 0, + 0, 0, 0, -311, -311, -311, -618, 229, -311, -311, + -311, 0, -311, 0, -618, -618, -618, 0, 0, 0, + -618, -618, 0, -618, 0, 0, 0, 0, 0, 0, + 0, 0, -618, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, -618, -618, 0, -618, -618, -618, -618, + -618, 0, 0, 0, 329, 330, 331, 332, 333, 334, + 335, 336, 337, 338, 339, 340, 341, 0, 0, 342, + 343, 0, 0, 0, -618, 0, 0, 0, 0, 0, + 0, 0, 0, -618, -618, -618, -618, -618, -618, -618, + -618, -618, -618, -618, -618, -618, 0, 0, -618, -618, + -618, -618, 344, 687, 345, 346, 347, 348, 349, 350, + 351, 352, 353, 354, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, -618, 0, 0, 0, 236, 0, + -111, -618, 0, -618, -618, -618, -618, -618, -618, -618, + -618, -618, -618, 0, 0, 0, 0, -618, -618, -618, + -102, -618, 0, -618, 0, -618, 0, -618, 0, -618, + -618, -618, 0, 0, 0, -618, -618, 0, -618, 0, + 0, 0, 0, 0, 0, 0, 0, -618, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, -618, -618, + 0, -618, -618, -618, -618, -618, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, -618, + 0, 0, 0, 0, 0, 0, 0, 0, -618, -618, + -618, -618, -618, -618, -618, -618, -618, -618, -618, -618, + -618, 0, 0, -618, -618, -618, -618, 0, 687, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, -618, + 0, 0, 0, 0, 0, -111, -618, 0, -618, -618, + -618, -618, -618, -618, -618, -618, -618, -618, 0, 0, + 0, 0, -618, -618, -618, -618, -304, 0, -618, 0, + -618, 0, -618, 0, -304, -304, -304, 0, 0, 0, + -304, -304, 0, -304, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, -304, -304, 0, -304, -304, -304, -304, + -304, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, -304, 0, 0, 0, 0, 0, + 0, 0, 0, -304, -304, -304, -304, -304, -304, -304, + -304, -304, -304, -304, -304, -304, 0, 0, -304, -304, + -304, -304, 0, 688, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, -304, 0, 0, 0, 0, 0, + -113, -304, 0, -304, -304, -304, -304, -304, -304, -304, + -304, -304, -304, 0, 0, 0, 0, 0, -304, -304, + -104, -304, 0, -304, 0, -304, 0, -304, 0, -304, + -304, -304, 0, 0, 0, -304, -304, 0, -304, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, -304, -304, + 0, -304, -304, -304, -304, -304, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, -304, + 0, 0, 0, 0, 0, 0, 0, 0, -304, -304, + -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, + -304, 0, 0, -304, -304, -304, -304, 0, 688, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, -304, + 0, 0, 0, 0, 0, -113, -304, 0, -304, -304, + -304, -304, -304, -304, -304, -304, -304, -304, 0, 0, + 0, 0, 0, -304, -304, -304, 0, 0, -304, 0, + -304, 254, -304, 5, 6, 7, 8, 9, -640, -640, + -640, 10, 11, 0, 0, -640, 12, 0, 13, 14, + 15, 16, 17, 18, 19, 0, 0, 0, 0, 0, + 20, 21, 22, 23, 24, 25, 26, 0, 0, 27, + 0, 0, 0, 0, 0, 28, 29, 255, 31, 32, + 33, 34, 35, 36, 37, 38, 39, 40, 0, 41, + 42, 43, 44, 0, 45, 46, 47, 0, 0, 0, + 0, 0, 0, 0, 0, 48, 49, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 50, 0, 0, 51, + 52, 0, 53, 54, 0, 55, 0, 0, 56, 57, + 58, 59, 60, 61, 62, 63, 64, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 65, 66, 67, + 0, 0, 0, 0, 0, 0, 0, 0, 0, -640, + 254, -640, 5, 6, 7, 8, 9, 0, 0, -640, + 10, 11, 0, -640, -640, 12, 0, 13, 14, 15, + 16, 17, 18, 19, 0, 0, 0, 0, 0, 20, + 21, 22, 23, 24, 25, 26, 0, 0, 27, 0, + 0, 0, 0, 0, 28, 29, 255, 31, 32, 33, + 34, 35, 36, 37, 38, 39, 40, 0, 41, 42, + 43, 44, 0, 45, 46, 47, 0, 0, 0, 0, + 0, 0, 0, 0, 48, 49, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 50, 0, 0, 51, 52, + 0, 53, 54, 0, 55, 0, 0, 56, 57, 58, + 59, 60, 61, 62, 63, 64, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 65, 66, 67, 0, + 0, 0, 0, 0, 0, 0, 0, 0, -640, 254, + -640, 5, 6, 7, 8, 9, 0, 0, -640, 10, + 11, 0, 0, -640, 12, -640, 13, 14, 15, 16, + 17, 18, 19, 0, 0, 0, 0, 0, 20, 21, + 22, 23, 24, 25, 26, 0, 0, 27, 0, 0, + 0, 0, 0, 28, 29, 255, 31, 32, 33, 34, + 35, 36, 37, 38, 39, 40, 0, 41, 42, 43, + 44, 0, 45, 46, 47, 0, 0, 0, 0, 0, + 0, 0, 0, 48, 49, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 50, 0, 0, 51, 52, 0, + 53, 54, 0, 55, 0, 0, 56, 57, 58, 59, + 60, 61, 62, 63, 64, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 65, 66, 67, 0, 0, + 0, 0, 0, 0, 0, 0, 0, -640, 254, -640, + 5, 6, 7, 8, 9, 0, 0, -640, 10, 11, + 0, 0, -640, 12, 0, 13, 14, 15, 16, 17, + 18, 19, 0, 0, 0, 0, 0, 20, 21, 22, + 23, 24, 25, 26, 0, 0, 27, 0, 0, 0, + 0, 0, 28, 29, 255, 31, 32, 33, 34, 35, + 36, 37, 38, 39, 40, 0, 41, 42, 43, 44, + 0, 45, 46, 47, 0, 0, 0, 0, 0, 0, + 0, 0, 48, 49, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 50, 0, 0, 51, 52, 0, 53, + 54, 0, 55, 0, 0, 56, 57, 58, 59, 60, + 61, 62, 63, 64, 0, 0, 0, 0, 0, 0, + 0, 0, 254, 0, 5, 6, 7, 8, 9, 0, + -640, -640, 10, 11, 65, 66, 67, 12, 0, 13, + 14, 15, 16, 17, 18, 19, -640, 0, -640, 0, + 0, 20, 21, 22, 23, 24, 25, 26, 0, 0, + 27, 0, 0, 0, 0, 0, 28, 29, 255, 31, + 32, 33, 34, 35, 36, 37, 38, 39, 40, 0, + 41, 42, 43, 44, 0, 45, 46, 47, 0, 0, + 0, 0, 0, 0, 0, 0, 48, 49, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 50, 0, 0, + 51, 52, 0, 53, 54, 0, 55, 0, 0, 56, + 57, 58, 59, 60, 61, 62, 63, 64, 0, 0, + 0, 0, 0, 0, 0, 0, 254, 0, 5, 6, + 7, 8, 9, 0, 0, 0, 10, 11, 65, 66, + 67, 12, 0, 13, 14, 15, 16, 17, 18, 19, + -640, 0, -640, 0, 0, 20, 21, 22, 23, 24, + 25, 26, 0, 0, 27, 0, 0, 0, 0, 0, + 28, 29, 255, 31, 32, 33, 34, 35, 36, 37, + 38, 39, 40, 0, 41, 42, 43, 44, 0, 45, + 46, 47, 0, 0, 0, 0, 0, 0, 0, 0, + 48, 49, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 50, 0, 0, 256, 52, 0, 53, 54, 0, + 55, 0, 0, 56, 57, 58, 59, 60, 61, 62, + 63, 64, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 65, 66, 67, 0, 0, 0, 0, 0, + 0, 0, -640, 0, -640, 254, -640, 5, 6, 7, + 8, 9, 0, 0, 0, 10, 11, 0, 0, 0, + 12, 0, 13, 14, 15, 16, 17, 18, 19, 0, + 0, 0, 0, 0, 20, 21, 22, 23, 24, 25, + 26, 0, 0, 27, 0, 0, 0, 0, 0, 28, + 29, 255, 31, 32, 33, 34, 35, 36, 37, 38, + 39, 40, 0, 41, 42, 43, 44, 0, 45, 46, + 47, 0, 0, 0, 0, 0, 0, 0, 0, 48, + 49, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 50, 0, 0, 51, 52, 0, 53, 54, 0, 55, + 0, 0, 56, 57, 58, 59, 60, 61, 62, 63, + 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 65, 66, 67, 0, 0, 0, 0, 0, 0, + 0, -640, 0, -640, 4, -640, 5, 6, 7, 8, + 9, 0, 0, 0, 10, 11, 0, 0, 0, 12, + 0, 13, 14, 15, 16, 17, 18, 19, 0, 0, + 0, 0, 0, 20, 21, 22, 23, 24, 25, 26, + 0, 0, 27, 0, 0, 0, 0, 0, 28, 29, + 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, + 40, 0, 41, 42, 43, 44, 0, 45, 46, 47, + 0, 0, 0, 0, 0, 0, 0, 0, 48, 49, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 50, + 0, 0, 51, 52, 0, 53, 54, 0, 55, 0, + 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 65, 66, 67, 0, 0, -640, 0, 0, 0, 0, + 0, 0, -640, 254, -640, 5, 6, 7, 8, 9, + 0, 0, 0, 10, 11, 0, 0, 0, 12, 0, + 13, 14, 15, 16, 17, 18, 19, 0, 0, 0, + 0, 0, 20, 21, 22, 23, 24, 25, 26, 0, + 0, 27, 0, 0, 0, 0, 0, 28, 29, 255, + 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, + 0, 41, 42, 43, 44, 0, 45, 46, 47, 0, + 0, 0, 0, 0, 0, 0, 0, 48, 49, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 50, 0, + 0, 51, 52, 0, 53, 54, 0, 55, 0, 0, + 56, 57, 58, 59, 60, 61, 62, 63, 64, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 65, + 66, 67, 0, 0, -640, 0, 0, 0, 0, 0, + 0, -640, 254, -640, 5, 6, 7, 8, 9, 0, + 0, -640, 10, 11, 0, 0, 0, 12, 0, 13, + 14, 15, 16, 17, 18, 19, 0, 0, 0, 0, + 0, 20, 21, 22, 23, 24, 25, 26, 0, 0, + 27, 0, 0, 0, 0, 0, 28, 29, 255, 31, + 32, 33, 34, 35, 36, 37, 38, 39, 40, 0, + 41, 42, 43, 44, 0, 45, 46, 47, 0, 0, + 0, 0, 0, 0, 0, 0, 48, 49, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 50, 0, 0, + 51, 52, 0, 53, 54, 0, 55, 0, 0, 56, + 57, 58, 59, 60, 61, 62, 63, 64, 0, 0, + 0, 0, 0, 0, 0, 0, 254, 0, 5, 6, + 7, 8, 9, 0, 0, 0, 10, 11, 65, 66, + 67, 12, 0, 13, 14, 15, 16, 17, 18, 19, + -640, 0, -640, 0, 0, 20, 21, 22, 23, 24, + 25, 26, 0, 0, 27, 0, 0, 0, 0, 0, + 28, 29, 255, 31, 32, 33, 34, 35, 36, 37, + 38, 39, 40, 0, 41, 42, 43, 44, 0, 45, + 46, 47, 0, 0, 0, 0, 0, 0, 0, 0, + 48, 49, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 50, 0, 0, 51, 52, 0, 53, 54, 0, + 55, 0, 0, 56, 57, 58, 59, 60, 61, 62, + 63, 64, 0, -640, 0, 0, 0, 0, 0, 0, + 0, 0, 5, 6, 7, 0, 9, 0, 0, 0, + 10, 11, 65, 66, 67, 12, 0, 13, 14, 15, + 16, 17, 18, 19, -640, 0, -640, 0, 0, 20, + 21, 22, 23, 24, 25, 26, 0, 0, 205, 0, + 0, 0, 0, 0, 0, 29, 0, 0, 32, 33, + 34, 35, 36, 37, 38, 39, 40, 206, 41, 42, + 43, 44, 0, 45, 46, 47, 0, 0, 0, 0, + 0, 0, 0, 0, 48, 49, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 207, 0, 0, 208, 52, + 0, 53, 54, 0, 209, 210, 211, 56, 57, 212, + 59, 60, 61, 62, 63, 64, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 5, 6, 7, 0, + 9, 0, 0, 0, 10, 11, 65, 213, 67, 12, + 0, 13, 14, 15, 16, 17, 18, 19, 0, 0, + 236, 0, 0, 20, 21, 22, 23, 24, 25, 26, + 0, 0, 27, 0, 0, 0, 0, 0, 0, 29, + 0, 0, 32, 33, 34, 35, 36, 37, 38, 39, + 40, 0, 41, 42, 43, 44, 0, 45, 46, 47, + 0, 0, 0, 0, 0, 0, 0, 0, 48, 49, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 207, + 0, 0, 208, 52, 0, 53, 54, 0, 0, 0, + 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 5, 6, 7, 0, 9, 0, 0, 0, 10, 11, + 65, 66, 67, 12, 0, 13, 14, 15, 16, 17, + 18, 19, 302, 0, 303, 0, 0, 20, 21, 22, + 23, 24, 25, 26, 0, 0, 27, 0, 0, 0, + 0, 0, 0, 29, 0, 0, 32, 33, 34, 35, + 36, 37, 38, 39, 40, 0, 41, 42, 43, 44, + 0, 45, 46, 47, 0, 0, 0, 0, 0, 0, + 0, 0, 48, 49, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 207, 0, 0, 208, 52, 0, 53, + 54, 0, 0, 0, 0, 56, 57, 58, 59, 60, + 61, 62, 63, 64, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 5, 6, 7, 8, 9, 0, + 0, 0, 10, 11, 65, 66, 67, 12, 0, 13, + 14, 15, 16, 17, 18, 19, 0, 0, 236, 0, + 0, 20, 21, 22, 23, 24, 25, 26, 0, 0, + 27, 0, 0, 0, 0, 0, 28, 29, 30, 31, + 32, 33, 34, 35, 36, 37, 38, 39, 40, 0, + 41, 42, 43, 44, 0, 45, 46, 47, 0, 0, + 0, 0, 0, 0, 0, 0, 48, 49, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 50, 0, 0, + 51, 52, 0, 53, 54, 0, 55, 0, 0, 56, + 57, 58, 59, 60, 61, 62, 63, 64, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 5, 6, + 7, 8, 9, 0, 0, 0, 10, 11, 65, 66, + 67, 12, 0, 13, 14, 15, 16, 17, 18, 19, + 497, 0, 0, 0, 0, 20, 21, 22, 23, 24, + 25, 26, 0, 0, 27, 0, 0, 0, 0, 0, + 28, 29, 255, 31, 32, 33, 34, 35, 36, 37, + 38, 39, 40, 0, 41, 42, 43, 44, 0, 45, + 46, 47, 0, 0, 0, 0, 0, 0, 0, 0, + 48, 49, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 50, 0, 0, 51, 52, 0, 53, 54, 0, + 55, 0, 0, 56, 57, 58, 59, 60, 61, 62, + 63, 64, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 65, 66, 67, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 497, 123, 124, 125, 126, 127, + 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, + 138, 139, 140, 141, 142, 143, 144, 145, 146, 0, + 0, 0, 147, 148, 149, 391, 392, 393, 394, 154, + 155, 156, 0, 0, 0, 0, 0, 157, 158, 159, + 160, 395, 396, 397, 398, 165, 37, 38, 399, 40, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 167, 168, 169, + 170, 171, 172, 173, 174, 175, 0, 0, 176, 177, + 0, 0, 178, 179, 180, 181, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 182, 183, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 184, + 185, 186, 187, 188, 189, 190, 191, 192, 193, 0, + 194, 195, 0, 0, 0, 0, 0, 196, 400, 123, + 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, + 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, + 144, 145, 146, 0, 0, 0, 147, 148, 149, 150, + 151, 152, 153, 154, 155, 156, 0, 0, 0, 0, + 0, 157, 158, 159, 160, 161, 162, 163, 164, 165, + 285, 286, 166, 287, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 167, 168, 169, 170, 171, 172, 173, 174, 175, + 0, 0, 176, 177, 0, 0, 178, 179, 180, 181, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 182, 183, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 184, 185, 186, 187, 188, 189, 190, + 191, 192, 193, 0, 194, 195, 0, 0, 0, 0, + 0, 196, 123, 124, 125, 126, 127, 128, 129, 130, + 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, + 141, 142, 143, 144, 145, 146, 0, 0, 0, 147, + 148, 149, 150, 151, 152, 153, 154, 155, 156, 0, + 0, 0, 0, 0, 157, 158, 159, 160, 161, 162, + 163, 164, 165, 238, 0, 166, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 167, 168, 169, 170, 171, 172, + 173, 174, 175, 0, 0, 176, 177, 0, 0, 178, + 179, 180, 181, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 182, 183, 0, 0, 57, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 184, 185, 186, 187, + 188, 189, 190, 191, 192, 193, 0, 194, 195, 0, + 0, 0, 0, 0, 196, 123, 124, 125, 126, 127, + 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, + 138, 139, 140, 141, 142, 143, 144, 145, 146, 0, + 0, 0, 147, 148, 149, 150, 151, 152, 153, 154, + 155, 156, 0, 0, 0, 0, 0, 157, 158, 159, + 160, 161, 162, 163, 164, 165, 0, 0, 166, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 167, 168, 169, + 170, 171, 172, 173, 174, 175, 0, 0, 176, 177, + 0, 0, 178, 179, 180, 181, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 182, 183, 0, + 0, 57, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 184, + 185, 186, 187, 188, 189, 190, 191, 192, 193, 0, + 194, 195, 0, 0, 0, 0, 0, 196, 123, 124, + 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, + 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, + 145, 146, 0, 0, 0, 147, 148, 149, 150, 151, + 152, 153, 154, 155, 156, 0, 0, 0, 0, 0, + 157, 158, 159, 160, 161, 162, 163, 164, 165, 0, + 0, 166, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 167, 168, 169, 170, 171, 172, 173, 174, 175, 0, + 0, 176, 177, 0, 0, 178, 179, 180, 181, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 182, 183, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 184, 185, 186, 187, 188, 189, 190, 191, + 192, 193, 0, 194, 195, 5, 6, 7, 0, 9, + 196, 0, 0, 10, 11, 0, 0, 0, 12, 0, + 13, 14, 15, 244, 245, 18, 19, 0, 0, 0, + 0, 0, 20, 246, 247, 23, 24, 25, 26, 0, + 0, 205, 0, 0, 0, 0, 0, 0, 274, 0, + 0, 32, 33, 34, 35, 36, 37, 38, 39, 40, + 0, 41, 42, 43, 44, 0, 45, 46, 47, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 275, 0, + 0, 208, 52, 0, 53, 54, 0, 0, 0, 0, + 56, 57, 58, 59, 60, 61, 62, 63, 64, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 5, 6, 7, 8, 9, 0, 0, 276, + 10, 11, 0, 0, 0, 12, 520, 13, 14, 15, + 16, 17, 18, 19, 0, 0, 0, 0, 0, 20, + 21, 22, 23, 24, 25, 26, 0, 0, 27, 0, + 0, 0, 0, 0, 28, 29, 30, 31, 32, 33, + 34, 35, 36, 37, 38, 39, 40, 0, 41, 42, + 43, 44, 0, 45, 46, 47, 0, 0, 0, 0, + 0, 0, 0, 0, 48, 49, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 50, 0, 0, 51, 52, + 0, 53, 54, 0, 55, 0, 0, 56, 57, 58, + 59, 60, 61, 62, 63, 64, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 5, 6, 7, 0, + 9, 0, 0, 0, 10, 11, 65, 66, 67, 12, + 0, 13, 14, 15, 16, 17, 18, 19, 0, 0, + 0, 0, 0, 20, 21, 22, 23, 24, 25, 26, + 0, 0, 205, 0, 0, 0, 0, 0, 0, 29, + 0, 0, 32, 33, 34, 35, 36, 37, 38, 39, + 40, 206, 41, 42, 43, 44, 0, 45, 46, 47, + 0, 0, 0, 0, 0, 0, 0, 0, 48, 49, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 207, + 0, 0, 208, 52, 0, 53, 54, 0, 209, 210, + 211, 56, 57, 212, 59, 60, 61, 62, 63, 64, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 5, 6, 7, 8, 9, 0, 0, 0, 10, 11, + 65, 213, 67, 12, 0, 13, 14, 15, 16, 17, + 18, 19, 0, 0, 0, 0, 0, 20, 21, 22, + 23, 24, 25, 26, 0, 0, 27, 0, 0, 0, + 0, 0, 28, 29, 0, 31, 32, 33, 34, 35, + 36, 37, 38, 39, 40, 0, 41, 42, 43, 44, + 0, 45, 46, 47, 0, 0, 0, 0, 0, 0, + 0, 0, 48, 49, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 50, 0, 0, 51, 52, 0, 53, + 54, 0, 55, 0, 0, 56, 57, 58, 59, 60, + 61, 62, 63, 64, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 5, 6, 7, 0, 9, 0, + 0, 0, 10, 11, 65, 66, 67, 12, 0, 13, + 14, 15, 244, 245, 18, 19, 0, 0, 0, 0, + 0, 20, 246, 247, 23, 24, 25, 26, 0, 0, + 205, 0, 0, 0, 0, 0, 0, 29, 0, 0, + 32, 33, 34, 35, 36, 37, 38, 39, 40, 206, + 41, 42, 43, 44, 0, 45, 46, 47, 0, 0, + 0, 0, 0, 0, 0, 0, 48, 49, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 207, 0, 0, + 208, 52, 0, 53, 54, 0, 615, 210, 211, 56, + 57, 212, 59, 60, 61, 62, 63, 64, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 5, 6, + 7, 0, 9, 0, 0, 0, 10, 11, 65, 213, + 67, 12, 0, 13, 14, 15, 244, 245, 18, 19, + 0, 0, 0, 0, 0, 20, 246, 247, 23, 24, + 25, 26, 0, 0, 205, 0, 0, 0, 0, 0, + 0, 29, 0, 0, 32, 33, 34, 35, 36, 37, + 38, 39, 40, 206, 41, 42, 43, 44, 0, 45, + 46, 47, 0, 0, 0, 0, 0, 0, 0, 0, + 48, 49, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 207, 0, 0, 208, 52, 0, 53, 54, 0, + 209, 210, 0, 56, 57, 212, 59, 60, 61, 62, + 63, 64, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 5, 6, 7, 0, 9, 0, 0, 0, + 10, 11, 65, 213, 67, 12, 0, 13, 14, 15, + 244, 245, 18, 19, 0, 0, 0, 0, 0, 20, + 246, 247, 23, 24, 25, 26, 0, 0, 205, 0, + 0, 0, 0, 0, 0, 29, 0, 0, 32, 33, + 34, 35, 36, 37, 38, 39, 40, 206, 41, 42, + 43, 44, 0, 45, 46, 47, 0, 0, 0, 0, + 0, 0, 0, 0, 48, 49, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 207, 0, 0, 208, 52, + 0, 53, 54, 0, 0, 210, 211, 56, 57, 212, + 59, 60, 61, 62, 63, 64, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 5, 6, 7, 0, + 9, 0, 0, 0, 10, 11, 65, 213, 67, 12, + 0, 13, 14, 15, 244, 245, 18, 19, 0, 0, + 0, 0, 0, 20, 246, 247, 23, 24, 25, 26, + 0, 0, 205, 0, 0, 0, 0, 0, 0, 29, + 0, 0, 32, 33, 34, 35, 36, 37, 38, 39, + 40, 206, 41, 42, 43, 44, 0, 45, 46, 47, + 0, 0, 0, 0, 0, 0, 0, 0, 48, 49, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 207, + 0, 0, 208, 52, 0, 53, 54, 0, 615, 210, + 0, 56, 57, 212, 59, 60, 61, 62, 63, 64, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 5, 6, 7, 0, 9, 0, 0, 0, 10, 11, + 65, 213, 67, 12, 0, 13, 14, 15, 244, 245, + 18, 19, 0, 0, 0, 0, 0, 20, 246, 247, + 23, 24, 25, 26, 0, 0, 205, 0, 0, 0, + 0, 0, 0, 29, 0, 0, 32, 33, 34, 35, + 36, 37, 38, 39, 40, 206, 41, 42, 43, 44, + 0, 45, 46, 47, 0, 0, 0, 0, 0, 0, + 0, 0, 48, 49, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 207, 0, 0, 208, 52, 0, 53, + 54, 0, 0, 210, 0, 56, 57, 212, 59, 60, + 61, 62, 63, 64, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 5, 6, 7, 0, 9, 0, + 0, 0, 10, 11, 65, 213, 67, 12, 0, 13, + 14, 15, 16, 17, 18, 19, 0, 0, 0, 0, + 0, 20, 21, 22, 23, 24, 25, 26, 0, 0, + 205, 0, 0, 0, 0, 0, 0, 29, 0, 0, + 32, 33, 34, 35, 36, 37, 38, 39, 40, 0, + 41, 42, 43, 44, 0, 45, 46, 47, 0, 0, + 0, 0, 0, 0, 0, 0, 48, 49, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 207, 0, 0, + 208, 52, 0, 53, 54, 0, 513, 0, 0, 56, + 57, 58, 59, 60, 61, 62, 63, 64, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 5, 6, + 7, 0, 9, 0, 0, 0, 10, 11, 65, 213, + 67, 12, 0, 13, 14, 15, 244, 245, 18, 19, + 0, 0, 0, 0, 0, 20, 246, 247, 23, 24, + 25, 26, 0, 0, 205, 0, 0, 0, 0, 0, + 0, 29, 0, 0, 32, 33, 34, 35, 36, 37, + 38, 39, 40, 0, 41, 42, 43, 44, 0, 45, + 46, 47, 0, 0, 0, 0, 0, 0, 0, 0, + 48, 49, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 207, 0, 0, 208, 52, 0, 53, 54, 0, + 209, 0, 0, 56, 57, 58, 59, 60, 61, 62, + 63, 64, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 5, 6, 7, 0, 9, 0, 0, 0, + 10, 11, 65, 213, 67, 12, 0, 13, 14, 15, + 244, 245, 18, 19, 0, 0, 0, 0, 0, 20, + 246, 247, 23, 24, 25, 26, 0, 0, 205, 0, + 0, 0, 0, 0, 0, 29, 0, 0, 32, 33, + 34, 35, 36, 37, 38, 39, 40, 0, 41, 42, + 43, 44, 0, 45, 46, 47, 0, 0, 0, 0, + 0, 0, 0, 0, 48, 49, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 207, 0, 0, 208, 52, + 0, 53, 54, 0, 809, 0, 0, 56, 57, 58, + 59, 60, 61, 62, 63, 64, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 5, 6, 7, 0, + 9, 0, 0, 0, 10, 11, 65, 213, 67, 12, + 0, 13, 14, 15, 244, 245, 18, 19, 0, 0, + 0, 0, 0, 20, 246, 247, 23, 24, 25, 26, + 0, 0, 205, 0, 0, 0, 0, 0, 0, 29, + 0, 0, 32, 33, 34, 35, 36, 37, 38, 39, + 40, 0, 41, 42, 43, 44, 0, 45, 46, 47, + 0, 0, 0, 0, 0, 0, 0, 0, 48, 49, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 207, + 0, 0, 208, 52, 0, 53, 54, 0, 513, 0, + 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 5, 6, 7, 0, 9, 0, 0, 0, 10, 11, + 65, 213, 67, 12, 0, 13, 14, 15, 244, 245, + 18, 19, 0, 0, 0, 0, 0, 20, 246, 247, + 23, 24, 25, 26, 0, 0, 205, 0, 0, 0, + 0, 0, 0, 29, 0, 0, 32, 33, 34, 35, + 36, 37, 38, 39, 40, 0, 41, 42, 43, 44, + 0, 45, 46, 47, 0, 0, 0, 0, 0, 0, + 0, 0, 48, 49, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 207, 0, 0, 208, 52, 0, 53, + 54, 0, 615, 0, 0, 56, 57, 58, 59, 60, + 61, 62, 63, 64, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 5, 6, 7, 0, 9, 0, + 0, 0, 10, 11, 65, 213, 67, 12, 0, 13, + 14, 15, 244, 245, 18, 19, 0, 0, 0, 0, + 0, 20, 246, 247, 23, 24, 25, 26, 0, 0, + 205, 0, 0, 0, 0, 0, 0, 29, 0, 0, + 32, 33, 34, 35, 36, 37, 38, 39, 40, 0, + 41, 42, 43, 44, 0, 45, 46, 47, 0, 0, + 0, 0, 0, 0, 0, 0, 48, 49, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 207, 0, 0, + 208, 52, 0, 53, 54, 0, 0, 0, 0, 56, + 57, 58, 59, 60, 61, 62, 63, 64, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 5, 6, + 7, 0, 9, 0, 0, 0, 10, 11, 65, 213, + 67, 12, 0, 13, 14, 15, 16, 17, 18, 19, + 0, 0, 0, 0, 0, 20, 21, 22, 23, 24, + 25, 26, 0, 0, 205, 0, 0, 0, 0, 0, + 0, 29, 0, 0, 32, 33, 34, 35, 36, 37, + 38, 39, 40, 0, 41, 42, 43, 44, 0, 45, + 46, 47, 0, 0, 0, 0, 0, 0, 0, 0, + 48, 49, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 207, 0, 0, 208, 52, 0, 53, 54, 0, + 0, 0, 0, 56, 57, 58, 59, 60, 61, 62, + 63, 64, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 5, 6, 7, 0, 9, 0, 0, 0, + 10, 11, 65, 213, 67, 12, 0, 13, 14, 15, + 16, 17, 18, 19, 0, 0, 0, 0, 0, 20, + 21, 22, 23, 24, 25, 26, 0, 0, 27, 0, + 0, 0, 0, 0, 0, 29, 0, 0, 32, 33, + 34, 35, 36, 37, 38, 39, 40, 0, 41, 42, + 43, 44, 0, 45, 46, 47, 0, 0, 0, 0, + 0, 0, 0, 0, 48, 49, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 207, 0, 0, 208, 52, + 0, 53, 54, 0, 0, 0, 0, 56, 57, 58, + 59, 60, 61, 62, 63, 64, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 5, 6, 7, 0, + 9, 0, 0, 0, 10, 11, 65, 66, 67, 12, + 0, 13, 14, 15, 244, 245, 18, 19, 0, 0, + 0, 0, 0, 20, 246, 247, 23, 24, 25, 26, + 0, 0, 205, 0, 0, 0, 0, 0, 0, 274, + 0, 0, 32, 33, 34, 35, 36, 37, 38, 39, + 40, 0, 41, 42, 43, 44, 0, 45, 46, 47, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 275, + 0, 0, 325, 52, 0, 53, 54, 0, 326, 0, + 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, + 0, 0, 0, 0, 0, 0, 5, 6, 7, 0, + 9, 0, 0, 0, 10, 11, 0, 0, 0, 12, + 276, 13, 14, 15, 244, 245, 18, 19, 0, 0, + 0, 0, 0, 20, 246, 247, 23, 24, 25, 26, + 0, 0, 205, 0, 0, 0, 0, 0, 0, 274, + 0, 0, 32, 33, 34, 35, 36, 37, 38, 39, + 40, 0, 41, 42, 43, 44, 0, 45, 46, 47, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 372, + 0, 0, 51, 52, 0, 53, 54, 0, 55, 0, + 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, + 0, 0, 0, 0, 0, 0, 5, 6, 7, 0, + 9, 0, 0, 0, 10, 11, 0, 0, 0, 12, + 276, 13, 14, 15, 244, 245, 18, 19, 0, 0, + 0, 0, 0, 20, 246, 247, 23, 24, 25, 26, + 0, 0, 205, 0, 0, 0, 0, 0, 0, 274, + 0, 0, 32, 33, 34, 380, 36, 37, 38, 381, + 40, 0, 41, 42, 43, 44, 0, 45, 46, 47, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 382, 0, 0, 0, 383, + 0, 0, 208, 52, 0, 53, 54, 0, 0, 0, + 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, + 0, 0, 0, 0, 0, 0, 5, 6, 7, 0, + 9, 0, 0, 0, 10, 11, 0, 0, 0, 12, + 276, 13, 14, 15, 244, 245, 18, 19, 0, 0, + 0, 0, 0, 20, 246, 247, 23, 24, 25, 26, + 0, 0, 205, 0, 0, 0, 0, 0, 0, 274, + 0, 0, 32, 33, 34, 380, 36, 37, 38, 381, + 40, 0, 41, 42, 43, 44, 0, 45, 46, 47, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 383, + 0, 0, 208, 52, 0, 53, 54, 0, 0, 0, + 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, + 0, 0, 0, 0, 0, 0, 5, 6, 7, 0, + 9, 0, 0, 0, 10, 11, 0, 0, 0, 12, + 276, 13, 14, 15, 244, 245, 18, 19, 0, 0, + 0, 0, 0, 20, 246, 247, 23, 24, 25, 26, + 0, 0, 205, 0, 0, 0, 0, 0, 0, 274, + 0, 0, 32, 33, 34, 35, 36, 37, 38, 39, + 40, 0, 41, 42, 43, 44, 0, 45, 46, 47, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 275, + 0, 0, 325, 52, 0, 53, 54, 0, 0, 0, + 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, + 0, 0, 0, 0, 0, 0, 5, 6, 7, 0, + 9, 0, 0, 0, 10, 11, 0, 0, 0, 12, + 276, 13, 14, 15, 244, 245, 18, 19, 0, 0, + 0, 0, 0, 20, 246, 247, 23, 24, 25, 26, + 0, 0, 205, 0, 0, 0, 0, 0, 0, 274, + 0, 0, 32, 33, 34, 35, 36, 37, 38, 39, + 40, 0, 41, 42, 43, 44, 0, 45, 46, 47, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 900, + 0, 0, 208, 52, 0, 53, 54, 0, 0, 0, + 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, + 0, 0, 0, 0, 0, 0, 5, 6, 7, 0, + 9, 0, 0, 0, 10, 11, 0, 0, 0, 12, + 276, 13, 14, 15, 244, 245, 18, 19, 0, 0, + 0, 0, 0, 20, 246, 247, 23, 24, 25, 26, + 0, 0, 205, 0, 0, 0, 0, 0, 0, 274, + 0, 0, 32, 33, 34, 35, 36, 37, 38, 39, + 40, 0, 41, 42, 43, 44, 0, 45, 46, 47, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 557, 558, 975, + 0, 559, 208, 52, 0, 53, 54, 0, 0, 0, + 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, + 167, 168, 169, 170, 171, 172, 173, 174, 175, 0, + 0, 176, 177, 0, 0, 178, 179, 180, 181, 0, + 276, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 182, 183, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 184, 185, 186, 187, 188, 189, 190, 191, + 192, 193, 0, 194, 195, 565, 566, 0, 0, 567, + 196, 232, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 167, 168, + 169, 170, 171, 172, 173, 174, 175, 0, 0, 176, + 177, 0, 0, 178, 179, 180, 181, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 182, 183, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, + 0, 194, 195, 619, 558, 0, 0, 620, 196, 232, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 167, 168, 169, 170, + 171, 172, 173, 174, 175, 0, 0, 176, 177, 0, + 0, 178, 179, 180, 181, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 182, 183, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 184, 185, + 186, 187, 188, 189, 190, 191, 192, 193, 0, 194, + 195, 622, 566, 0, 0, 623, 196, 232, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 167, 168, 169, 170, 171, 172, + 173, 174, 175, 0, 0, 176, 177, 0, 0, 178, + 179, 180, 181, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 182, 183, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 184, 185, 186, 187, + 188, 189, 190, 191, 192, 193, 0, 194, 195, 646, + 558, 0, 0, 647, 196, 232, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 167, 168, 169, 170, 171, 172, 173, 174, + 175, 0, 0, 176, 177, 0, 0, 178, 179, 180, + 181, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 182, 183, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 184, 185, 186, 187, 188, 189, + 190, 191, 192, 193, 0, 194, 195, 649, 566, 0, + 0, 650, 196, 232, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 167, 168, 169, 170, 171, 172, 173, 174, 175, 0, + 0, 176, 177, 0, 0, 178, 179, 180, 181, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 182, 183, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 184, 185, 186, 187, 188, 189, 190, 191, + 192, 193, 0, 194, 195, 715, 558, 0, 0, 716, + 196, 232, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 167, 168, + 169, 170, 171, 172, 173, 174, 175, 0, 0, 176, + 177, 0, 0, 178, 179, 180, 181, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 182, 183, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, + 0, 194, 195, 718, 566, 0, 0, 719, 196, 232, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 167, 168, 169, 170, + 171, 172, 173, 174, 175, 0, 0, 176, 177, 0, + 0, 178, 179, 180, 181, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 182, 183, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 184, 185, + 186, 187, 188, 189, 190, 191, 192, 193, 0, 194, + 195, 724, 558, 0, 0, 725, 196, 232, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 167, 168, 169, 170, 171, 172, + 173, 174, 175, 0, 0, 176, 177, 0, 0, 178, + 179, 180, 181, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 182, 183, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 184, 185, 186, 187, + 188, 189, 190, 191, 192, 193, 0, 194, 195, 604, + 566, 0, 0, 605, 196, 232, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 167, 168, 169, 170, 171, 172, 173, 174, + 175, 0, 0, 176, 177, 0, 0, 178, 179, 180, + 181, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 182, 183, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 184, 185, 186, 187, 188, 189, + 190, 191, 192, 193, 0, 194, 195, 814, 558, 0, + 0, 815, 196, 232, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 167, 168, 169, 170, 171, 172, 173, 174, 175, 0, + 0, 176, 177, 0, 0, 178, 179, 180, 181, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 182, 183, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 184, 185, 186, 187, 188, 189, 190, 191, + 192, 193, 0, 194, 195, 817, 566, 0, 0, 818, + 196, 232, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 167, 168, + 169, 170, 171, 172, 173, 174, 175, 0, 0, 176, + 177, 0, 0, 178, 179, 180, 181, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 182, 183, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, + 0, 194, 195, 1015, 558, 0, 0, 1016, 196, 232, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 167, 168, 169, 170, + 171, 172, 173, 174, 175, 0, 0, 176, 177, 0, + 0, 178, 179, 180, 181, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 182, 183, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 184, 185, + 186, 187, 188, 189, 190, 191, 192, 193, 0, 194, + 195, 1049, 558, 0, 0, 1050, 196, 232, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 167, 168, 169, 170, 171, 172, + 173, 174, 175, 0, 0, 176, 177, 0, 0, 178, + 179, 180, 181, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 182, 183, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 184, 185, 186, 187, + 188, 189, 190, 191, 192, 193, 0, 194, 195, 1052, + 566, 0, 0, 1053, 196, 232, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 167, 168, 169, 170, 171, 172, 173, 174, + 175, 0, 0, 176, 177, 0, 0, 178, 179, 180, + 181, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 182, 183, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 184, 185, 186, 187, 188, 189, + 190, 191, 192, 193, 0, 194, 195, 604, 566, 0, + 0, 605, 196, 232, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 167, 168, 169, 170, 171, 172, 173, 174, 175, 0, + 0, 176, 177, 0, 0, 178, 179, 180, 181, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 182, 183, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 184, 185, 186, 187, 188, 189, 190, 191, + 192, 193, 0, 194, 195, 0, 0, 0, 0, 0, + 196 +}; + +static const yytype_int16 yycheck[] = +{ + 2, 100, 90, 57, 69, 93, 87, 360, 2, 8, + 4, 22, 92, 328, 28, 27, 55, 29, 99, 8, + 268, 8, 51, 226, 272, 365, 580, 4, 93, 28, + 755, 16, 17, 81, 292, 293, 66, 93, 359, 28, + 361, 28, 81, 97, 706, 2, 421, 4, 65, 429, + 51, 53, 54, 621, 429, 94, 95, 96, 52, 16, + 17, 383, 58, 55, 476, 76, 879, 27, 53, 69, + 57, 651, 425, 37, 38, 16, 17, 63, 905, 13, + 648, 25, 25, 938, 936, 898, 407, 467, 0, 26, + 16, 17, 256, 666, 51, 52, 888, 26, 55, 410, + 411, 151, 29, 424, 13, 426, 16, 17, 520, 66, + 97, 909, 25, 98, 328, 793, 144, 141, 85, 22, + 68, 97, 141, 151, 81, 478, 25, 97, 63, 68, + 146, 452, 89, 90, 120, 151, 93, 94, 95, 96, + 221, 98, 994, 53, 54, 870, 871, 95, 124, 717, + 774, 56, 25, 107, 124, 94, 95, 98, 479, 727, + 598, 325, 129, 25, 13, 149, 124, 151, 144, 250, + 89, 90, 98, 76, 93, 799, 800, 131, 1033, 208, + 124, 761, 25, 1035, 1011, 120, 144, 151, 98, 149, + 25, 151, 1005, 258, 121, 25, 410, 411, 876, 280, + 144, 144, 258, 147, 141, 1018, 1058, 151, 1000, 146, + 144, 936, 141, 938, 243, 149, 212, 151, 220, 307, + 308, 309, 310, 13, 226, 1023, 9, 256, 150, 277, + 232, 144, 15, 586, 492, 438, 494, 146, 277, 241, + 149, 28, 151, 596, 229, 144, 231, 241, 816, 629, + 97, 208, 52, 628, 629, 256, 56, 150, 258, 276, + 254, 150, 274, 13, 926, 150, 587, 679, 13, 994, + 995, 144, 229, 595, 231, 232, 597, 124, 235, 367, + 237, 861, 144, 863, 241, 723, 243, 326, 229, 144, + 231, 232, 63, 323, 375, 13, 325, 254, 328, 256, + 149, 144, 151, 229, 369, 231, 879, 13, 1033, 144, + 1035, 146, 306, 369, 144, 888, 235, 311, 237, 229, + 277, 231, 124, 25, 325, 898, 950, 124, 13, 306, + 97, 684, 905, 1058, 326, 14, 15, 366, 323, 368, + 144, 110, 966, 328, 247, 248, 117, 151, 119, 306, + 307, 308, 309, 310, 311, 312, 313, 124, 360, 149, + 13, 151, 683, 13, 685, 97, 323, 666, 325, 326, + 808, 328, 926, 713, 361, 97, 687, 688, 25, 150, + 410, 411, 693, 694, 144, 761, 701, 146, 307, 308, + 309, 310, 124, 312, 313, 643, 146, 655, 56, 149, + 124, 151, 660, 360, 149, 362, 151, 25, 98, 366, + 367, 368, 144, 25, 68, 618, 15, 855, 17, 360, + 407, 144, 97, 425, 862, 382, 97, 1000, 476, 68, + 144, 149, 446, 151, 68, 437, 438, 476, 1011, 426, + 94, 95, 144, 149, 146, 151, 146, 446, 367, 124, + 531, 68, 146, 410, 411, 144, 95, 446, 361, 446, + 94, 95, 151, 382, 149, 452, 151, 681, 425, 144, + 146, 63, 520, 687, 688, 147, 478, 124, 95, 693, + 694, 520, 63, 1051, 425, 861, 67, 863, 868, 143, + 68, 68, 479, 868, 124, 97, 149, 144, 151, 149, + 147, 151, 459, 941, 151, 507, 124, 77, 588, 143, + 63, 421, 124, 578, 97, 826, 94, 95, 95, 476, + 148, 478, 124, 426, 690, 117, 144, 119, 146, 147, + 68, 697, 144, 151, 546, 147, 117, 478, 119, 151, + 743, 124, 144, 56, 68, 574, 68, 576, 142, 452, + 77, 562, 564, 991, 464, 37, 38, 95, 150, 570, + 144, 144, 104, 520, 117, 143, 119, 120, 570, 666, + 572, 95, 94, 95, 17, 68, 479, 917, 144, 776, + 97, 778, 922, 882, 586, 149, 52, 886, 54, 55, + 56, 57, 56, 25, 596, 606, 644, 582, 612, 898, + 587, 94, 95, 902, 606, 644, 905, 124, 907, 621, + 597, 147, 826, 612, 128, 144, 618, 574, 144, 576, + 68, 143, 68, 612, 146, 612, 68, 144, 144, 586, + 142, 679, 142, 732, 722, 637, 648, 144, 667, 596, + 679, 598, 599, 97, 142, 586, 94, 95, 94, 95, + 143, 681, 94, 95, 666, 596, 721, 687, 688, 562, + 10, 68, 68, 693, 694, 68, 68, 570, 144, 97, + 124, 673, 63, 144, 1027, 632, 144, 731, 144, 97, + 599, 97, 684, 44, 587, 124, 680, 644, 95, 95, + 144, 720, 95, 95, 597, 143, 124, 143, 685, 701, + 702, 143, 704, 606, 706, 717, 124, 1028, 124, 8, + 667, 13, 1011, 632, 1013, 727, 701, 150, 628, 1018, + 68, 1020, 679, 680, 681, 150, 117, 684, 119, 120, + 687, 688, 142, 636, 637, 77, 693, 694, 2, 144, + 4, 743, 126, 684, 731, 15, 94, 95, 97, 54, + 947, 948, 16, 17, 148, 952, 844, 954, 797, 956, + 65, 66, 97, 720, 146, 722, 723, 1066, 144, 2, + 772, 4, 774, 68, 52, 124, 54, 55, 56, 57, + 68, 793, 685, 16, 17, 882, 68, 51, 52, 124, + 124, 856, 134, 135, 136, 143, 826, 799, 800, 94, + 95, 898, 66, 722, 816, 902, 94, 95, 905, 838, + 907, 144, 94, 95, 843, 144, 52, 512, 51, 52, + 144, 26, 97, 852, 144, 89, 90, 144, 52, 93, + 52, 54, 834, 66, 98, 97, 410, 411, 26, 129, + 797, 124, 1039, 1040, 1041, 1042, 666, 68, 143, 124, + 144, 808, 144, 427, 428, 143, 89, 90, 897, 144, + 93, 143, 124, 68, 876, 98, 144, 235, 933, 826, + 144, 144, 97, 94, 95, 1072, 571, 916, 149, 453, + 68, 838, 577, 58, 579, 98, 843, 844, 583, 94, + 95, 920, 144, 261, 129, 852, 977, 265, 855, 124, + 56, 68, 77, 68, 666, 862, 94, 95, 54, 55, + 144, 57, 144, 942, 1011, 144, 1013, 147, 144, 65, + 66, 1018, 143, 1020, 926, 844, 144, 94, 95, 94, + 95, 106, 107, 144, 144, 144, 141, 63, 143, 56, + 897, 146, 651, 144, 208, 144, 9, 144, 950, 63, + 142, 146, 981, 141, 983, 143, 131, 666, 146, 916, + 972, 146, 63, 920, 966, 229, 144, 231, 232, 1066, + 144, 235, 144, 237, 118, 208, 143, 241, 143, 243, + 982, 1010, 241, 206, 941, 942, 209, 210, 211, 459, + 254, 117, 256, 119, 120, 455, 229, 94, 231, 232, + 96, 85, 235, 117, 237, 119, 120, 870, 241, 52, + 243, 54, 55, 56, 57, 606, 117, 712, 119, 120, + 702, 254, 1031, 256, 981, 1027, 983, 1029, 666, 1031, + 673, 508, 1023, 728, 991, 59, 60, 61, 62, 1051, + 26, 1028, 306, 307, 308, 309, 310, 311, 312, 313, + 733, 1029, 761, 1010, 321, 103, 802, 803, 982, 323, + 494, 325, 97, 431, 328, 82, 83, 435, 888, 934, + 1027, 891, 440, 306, 307, 308, 309, 310, 311, 312, + 313, 882, 68, 902, 898, 905, 1027, 907, 456, -1, + 323, 879, 325, 461, -1, 328, 360, -1, 362, -1, + 323, -1, 366, 367, 368, 328, -1, -1, 94, 95, + 127, 128, -1, 687, 688, -1, 77, -1, 382, 693, + 694, -1, -1, -1, -1, 1028, -1, 360, -1, 362, + -1, 92, 93, 366, 367, 368, 898, -1, -1, -1, + 902, -1, -1, 905, -1, 907, 410, 411, -1, 382, + 845, 519, 861, 848, 863, 141, -1, 143, -1, 854, + 146, 425, 857, 63, 738, 739, -1, 741, 742, -1, + 879, 132, 133, 134, 135, 136, -1, 410, 411, 888, + 1000, 52, 1002, 54, 55, 56, 57, 1007, -1, 898, + -1, 1011, 425, 1013, -1, 459, 905, 420, 421, -1, + 1020, 40, 41, 42, 43, 44, 429, 52, 77, 54, + 55, 56, 57, 58, 478, 961, 962, 117, -1, 119, + 120, 967, 122, 969, 970, -1, 459, -1, 99, -1, + -1, -1, 77, 928, 105, -1, -1, 932, -1, -1, + 1060, 464, -1, -1, 467, 478, 1066, -1, -1, 1011, + -1, 1013, 826, -1, 99, -1, 1018, -1, 1020, -1, + 105, 106, 107, 132, 133, 134, 135, 136, -1, -1, + 52, -1, 54, 55, 56, 57, 58, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 131, -1, -1, 134, + 513, 1000, -1, 867, -1, 77, -1, -1, 1044, 1045, + 1046, 1047, 1011, 998, 1066, -1, 151, -1, -1, -1, + 574, 52, 576, 54, 55, 56, 57, 99, -1, -1, + -1, -1, 586, 105, 106, 107, 52, 1073, 54, 55, + 56, 57, 596, -1, 598, 599, -1, 1032, -1, -1, + -1, 574, 52, 576, 54, 55, 56, 57, 58, 131, + -1, -1, 134, 586, -1, 77, -1, -1, 99, 582, + -1, 729, -1, 596, 146, 598, 599, 77, 632, -1, + 92, 93, -1, 99, -1, -1, 744, -1, -1, 105, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 99, + 613, -1, 615, -1, -1, -1, 106, 107, -1, 632, + -1, -1, -1, 667, -1, 628, 629, 129, 130, 131, + 132, 133, 134, 135, 136, -1, 680, 681, -1, -1, + 684, 131, -1, 687, 688, -1, -1, -1, -1, 693, + 694, -1, -1, -1, 667, -1, -1, -1, 52, -1, + 54, 55, 56, 57, 58, -1, -1, 680, 681, -1, + -1, 684, -1, 676, 687, 688, 720, -1, 722, 723, + 693, 694, -1, 77, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 16, 17, -1, 701, 77, + -1, -1, -1, -1, -1, 99, -1, 720, -1, 722, + 723, 105, 106, 107, 92, 93, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 874, 48, 49, -1, + -1, -1, 53, 54, -1, -1, -1, 131, -1, -1, + 134, -1, -1, -1, -1, 66, 67, -1, -1, -1, + -1, -1, -1, 131, 132, 133, 134, 135, 136, -1, + -1, -1, -1, -1, 808, -1, -1, 770, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 98, -1, -1, + -1, -1, 826, 931, -1, -1, -1, 935, -1, -1, + -1, -1, -1, -1, 838, 808, -1, -1, -1, 843, + 844, -1, -1, -1, -1, -1, 809, -1, 852, -1, + -1, 855, -1, 826, -1, -1, -1, -1, 862, -1, + -1, -1, -1, -1, -1, 838, -1, -1, -1, -1, + 843, 844, -1, -1, -1, -1, -1, -1, -1, 852, + -1, -1, 855, -1, -1, -1, -1, -1, 851, 862, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 2, 868, 4, -1, 77, 78, + 79, 80, 81, 82, 83, 878, 920, 86, 87, -1, + -1, -1, -1, 92, 93, 206, -1, -1, 209, 210, + 211, -1, 213, -1, -1, -1, -1, 941, 942, -1, + -1, -1, -1, -1, -1, -1, -1, 920, 229, -1, + 231, 232, -1, 51, 52, -1, -1, 55, 127, 128, + 129, 130, 131, 132, 133, 134, 135, 136, 941, 942, + -1, -1, -1, -1, -1, -1, -1, 981, -1, 983, + -1, -1, -1, 81, -1, -1, -1, 991, -1, -1, + -1, -1, -1, -1, -1, -1, 94, 95, 96, -1, + -1, -1, -1, -1, -1, -1, 1010, -1, 981, -1, + 983, -1, -1, -1, -1, -1, -1, -1, 991, -1, + -1, -1, -1, 1027, -1, -1, -1, -1, -1, -1, + 77, 78, 79, 80, 81, 82, 83, 1010, -1, 86, + 87, -1, 323, -1, -1, 92, 93, 328, 329, 330, + 331, 332, 333, -1, 1027, 336, 337, 338, 339, 340, + 341, 342, 343, 344, -1, -1, 347, 348, 349, 350, + 351, 352, 353, 354, 355, 356, -1, -1, -1, 360, + 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 208, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 410, + 411, -1, -1, -1, -1, -1, -1, -1, 419, 420, + 421, -1, -1, 241, 425, 243, 427, 428, 429, -1, + -1, -1, -1, -1, -1, -1, 254, -1, 256, -1, + -1, -1, -1, -1, -1, -1, -1, 448, -1, -1, + -1, -1, 453, -1, -1, -1, -1, -1, -1, 277, + -1, -1, -1, 464, -1, -1, 467, 2, -1, 4, + -1, -1, -1, -1, -1, -1, -1, 478, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 306, -1, + -1, -1, -1, 311, -1, 496, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 325, 326, -1, + 328, -1, 513, -1, -1, -1, 51, 52, -1, -1, + 55, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 362, -1, 81, -1, 366, -1, + 368, -1, -1, -1, -1, -1, -1, -1, -1, 94, + 95, 96, 97, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 2, -1, 4, -1, + -1, 582, -1, -1, -1, 586, -1, -1, -1, -1, + -1, -1, 410, 411, -1, 596, -1, -1, -1, -1, + -1, -1, -1, -1, 2, -1, 4, -1, -1, -1, + -1, -1, 613, -1, 615, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 51, 52, 628, 629, 55, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, 459, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 51, 52, 81, -1, -1, 476, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 94, 95, + 96, 97, -1, 208, -1, 676, -1, -1, -1, -1, + 681, 682, -1, 684, -1, -1, 687, 688, -1, -1, + -1, -1, 693, 694, -1, -1, 94, -1, -1, -1, + 701, -1, 520, -1, -1, -1, 241, -1, 243, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 254, + -1, 256, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 738, 739, -1, + 741, 742, 277, -1, 77, 78, 79, 80, 81, 82, + 83, 84, -1, 86, 87, -1, 574, -1, 576, 92, + 93, -1, -1, -1, -1, -1, -1, -1, -1, 770, + -1, 306, -1, -1, -1, -1, 311, -1, -1, -1, + 598, -1, 208, -1, -1, -1, -1, -1, -1, -1, + 325, 326, -1, -1, 127, 128, 129, 130, 131, 132, + 133, 134, 135, 136, -1, -1, -1, -1, 809, -1, + 208, -1, -1, -1, -1, 241, -1, 243, 819, -1, + -1, -1, -1, -1, -1, 826, 644, 362, 254, -1, + 256, 366, -1, 368, -1, 653, -1, -1, -1, -1, + -1, -1, -1, 241, -1, 243, -1, -1, -1, 667, + 851, 277, -1, -1, -1, -1, 254, -1, 256, -1, + -1, 679, 680, 681, -1, -1, 867, 868, -1, 687, + 688, -1, -1, -1, -1, 693, 694, 878, -1, -1, + 306, -1, -1, -1, -1, 311, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 325, + 326, -1, 720, -1, -1, 723, 0, -1, 306, -1, + 2, -1, 4, 311, 8, 9, 10, -1, -1, 13, + 14, 15, -1, 17, 459, -1, -1, 325, -1, -1, + 328, -1, 26, 27, -1, -1, 362, -1, -1, -1, + 366, 476, 368, 37, 38, -1, 40, 41, 42, 43, + 44, -1, -1, -1, -1, -1, -1, -1, -1, 51, + 52, -1, -1, -1, 362, -1, -1, -1, 366, -1, + 368, -1, -1, -1, 68, -1, -1, -1, -1, 797, + -1, -1, -1, -1, -1, 520, -1, -1, -1, -1, + 808, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 94, 95, -1, -1, -1, -1, -1, -1, 826, -1, + -1, -1, 410, 411, -1, -1, -1, -1, -1, -1, + 838, -1, -1, -1, 118, 843, 1027, -1, -1, -1, + -1, -1, -1, 459, 852, -1, -1, 855, -1, 574, + -1, 576, -1, -1, 862, -1, -1, 141, 142, -1, + 476, -1, 146, 147, -1, 149, -1, 151, -1, -1, + -1, 459, -1, 598, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 897, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 520, -1, -1, -1, 916, -1, + -1, -1, 920, -1, -1, -1, -1, -1, -1, 644, + -1, -1, -1, -1, -1, -1, 208, -1, -1, -1, + -1, -1, -1, 941, 942, -1, -1, -1, -1, -1, + -1, -1, 667, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 679, 680, -1, -1, 574, 241, + 576, 243, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 254, 981, 256, 983, -1, -1, -1, -1, + -1, -1, 598, 991, -1, -1, 574, -1, 576, -1, + -1, -1, -1, -1, -1, 720, -1, -1, 723, -1, + -1, -1, 1010, -1, -1, -1, -1, -1, -1, -1, + 598, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 306, -1, -1, -1, 644, 311, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 325, -1, -1, 328, -1, -1, -1, + -1, 667, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 679, 680, -1, -1, -1, -1, -1, + -1, -1, 797, -1, -1, -1, -1, -1, -1, 667, + 362, -1, -1, 808, 366, -1, 368, -1, -1, -1, + -1, -1, 680, 681, -1, -1, -1, -1, -1, 687, + 688, -1, -1, -1, 720, 693, 694, 723, -1, -1, + -1, -1, -1, 838, -1, 44, -1, -1, 843, -1, + -1, -1, -1, -1, -1, -1, -1, 852, 410, 411, + 855, -1, 720, -1, -1, 723, -1, 862, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 77, 78, + 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, + 89, -1, -1, 92, 93, -1, -1, -1, -1, -1, + -1, -1, 897, -1, -1, -1, -1, 459, -1, -1, + -1, 797, -1, -1, -1, -1, -1, -1, -1, -1, + -1, 916, 808, -1, -1, 920, 125, -1, 127, 128, + 129, 130, 131, 132, 133, 134, 135, 136, -1, -1, + -1, -1, -1, -1, -1, 144, 941, 942, -1, -1, + 808, -1, 838, -1, -1, -1, -1, 843, -1, -1, + -1, -1, -1, -1, -1, -1, 852, -1, 826, 855, + -1, -1, -1, -1, -1, -1, 862, -1, -1, -1, + 838, -1, -1, -1, -1, 843, 981, -1, 983, -1, + -1, -1, -1, -1, 852, -1, 991, 855, -1, -1, + -1, -1, -1, -1, 862, -1, -1, -1, -1, -1, + -1, 897, -1, -1, -1, 1010, -1, -1, -1, -1, + -1, -1, 574, -1, 576, -1, -1, -1, -1, -1, + 916, -1, -1, -1, 920, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 598, -1, -1, -1, + -1, -1, -1, -1, -1, 941, 942, -1, 916, -1, + -1, -1, 920, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 941, 942, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 981, -1, 983, -1, -1, + -1, -1, -1, -1, -1, 991, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 667, -1, -1, -1, -1, + -1, -1, -1, 981, 1010, 983, -1, -1, 680, 681, + 3, 4, 5, 991, 7, 687, 688, -1, 11, 12, + -1, 693, 694, 16, -1, 18, 19, 20, 21, 22, + 23, 24, 1010, -1, -1, -1, -1, 30, 31, 32, + 33, 34, 35, 36, -1, -1, 39, -1, 720, -1, + -1, 723, -1, 46, -1, -1, 49, 50, 51, 52, + 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, + -1, 64, 65, 66, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 96, -1, -1, 99, 100, -1, 102, + 103, -1, -1, -1, -1, 108, 109, 110, 111, 112, + 113, 114, 115, 116, -1, -1, -1, -1, -1, -1, + -1, -1, 0, -1, -1, -1, 808, -1, -1, -1, + 8, 9, 10, -1, 137, 13, 14, 15, -1, 17, + -1, 144, -1, -1, 826, -1, -1, -1, 26, 27, + 28, 29, -1, -1, -1, -1, 838, -1, -1, 37, + 38, 843, 40, 41, 42, 43, 44, -1, -1, -1, + 852, -1, -1, 855, -1, -1, -1, -1, -1, -1, + 862, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 68, -1, -1, -1, -1, -1, -1, -1, -1, 77, + 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, + 88, 89, -1, -1, 92, 93, 94, 95, -1, 97, + 98, -1, -1, -1, -1, -1, 104, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 920, -1, + 118, -1, -1, 121, -1, -1, 124, 125, 126, 127, + 128, 129, 130, 131, 132, 133, 134, 135, 136, 941, + 942, -1, -1, 141, 142, 143, 144, -1, -1, 147, + 148, 149, -1, 151, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 0, 1, -1, 3, 4, 5, + 6, 7, -1, -1, -1, 11, 12, -1, -1, 981, + 16, 983, 18, 19, 20, 21, 22, 23, 24, 991, + -1, -1, -1, -1, 30, 31, 32, 33, 34, 35, + 36, -1, -1, 39, -1, -1, -1, -1, 1010, 45, + 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, + 56, 57, -1, 59, 60, 61, 62, -1, 64, 65, + 66, -1, -1, -1, -1, -1, -1, -1, -1, 75, + 76, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 96, -1, -1, 99, 100, -1, 102, 103, -1, 105, + -1, -1, 108, 109, 110, 111, 112, 113, 114, 115, + 116, 0, -1, -1, -1, -1, -1, -1, -1, 8, + 9, 10, -1, -1, 13, 14, 15, -1, 17, -1, + -1, 137, 138, 139, -1, -1, 25, -1, 27, 28, + 29, -1, -1, 149, -1, 151, -1, -1, 37, 38, + -1, 40, 41, 42, 43, 44, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 77, 78, 79, 80, + 81, 82, 83, 84, 85, 86, 87, 88, 89, 68, + -1, 92, 93, -1, -1, -1, -1, -1, 77, 78, + 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, + 89, -1, -1, 92, 93, 94, 95, -1, 97, 98, + -1, -1, -1, -1, 125, 104, 127, 128, 129, 130, + 131, 132, 133, 134, 135, 136, -1, -1, -1, 118, + -1, -1, 121, -1, -1, 124, 125, 126, 127, 128, + 129, 130, 131, 132, 133, 134, 135, 136, -1, -1, + -1, -1, -1, 142, 143, 144, 0, -1, 147, 148, + 149, -1, 151, -1, 8, 9, 10, -1, -1, 13, + 14, 15, -1, 17, -1, -1, -1, -1, 44, -1, + -1, 25, -1, 27, 28, 29, -1, -1, -1, -1, + -1, -1, -1, 37, 38, -1, 40, 41, 42, 43, + 44, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, 77, 78, 79, 80, 81, 82, 83, 84, 85, + 86, 87, 88, 89, 68, -1, 92, 93, -1, -1, + -1, -1, -1, 77, 78, 79, 80, 81, 82, 83, + 84, 85, 86, 87, 88, 89, -1, -1, 92, 93, + 94, 95, -1, 97, 98, -1, -1, -1, -1, 125, + 104, 127, 128, 129, 130, 131, 132, 133, 134, 135, + 136, -1, -1, -1, 118, -1, -1, 121, -1, -1, + 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, + 134, 135, 136, -1, -1, -1, -1, -1, 142, 143, + 144, 0, -1, 147, 148, 149, -1, 151, -1, 8, + 9, 10, -1, -1, 13, 14, 15, -1, 17, -1, + -1, -1, -1, -1, -1, -1, -1, 26, 27, 28, + 29, -1, -1, -1, -1, -1, -1, -1, 37, 38, + -1, 40, 41, 42, 43, 44, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 77, 78, 79, 80, + 81, 82, 83, 84, 85, 86, 87, 88, 89, 68, + -1, 92, 93, -1, -1, -1, -1, -1, 77, 78, + 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, + 89, -1, -1, 92, 93, 94, 95, -1, -1, 98, + -1, -1, -1, -1, -1, 104, 127, 128, 129, 130, + 131, 132, 133, 134, 135, 136, -1, -1, -1, 118, + -1, -1, 121, -1, -1, -1, 125, 126, 127, 128, + 129, 130, 131, 132, 133, 134, 135, 136, -1, -1, + -1, -1, 141, 142, 143, 144, 0, -1, 147, 148, + 149, -1, 151, -1, 8, 9, 10, -1, -1, 13, + 14, 15, -1, 17, -1, -1, -1, -1, -1, -1, + -1, -1, 26, 27, 28, 29, -1, -1, -1, -1, + -1, -1, -1, 37, 38, -1, 40, 41, 42, 43, + 44, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 68, -1, -1, -1, -1, -1, + -1, -1, -1, 77, 78, 79, 80, 81, 82, 83, + 84, 85, 86, 87, 88, 89, -1, -1, 92, 93, + 94, 95, -1, -1, 98, -1, -1, -1, -1, -1, + 104, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 118, -1, -1, 121, -1, -1, + -1, 125, 126, 127, 128, 129, 130, 131, 132, 133, + 134, 135, 136, -1, -1, -1, -1, 141, 142, 143, + 144, 0, -1, 147, 148, 149, -1, 151, -1, 8, + 9, 10, -1, -1, 13, 14, 15, -1, 17, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 27, 28, + 29, -1, -1, -1, -1, -1, -1, -1, 37, 38, + -1, 40, 41, 42, 43, 44, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 68, + -1, -1, -1, -1, -1, -1, -1, -1, 77, 78, + 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, + 89, -1, -1, 92, 93, 94, 95, -1, 97, 98, + -1, -1, -1, -1, -1, 104, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 118, + -1, -1, 121, -1, -1, 124, 125, 126, 127, 128, + 129, 130, 131, 132, 133, 134, 135, 136, -1, -1, + -1, -1, -1, 142, 143, 144, 0, -1, 147, 148, + 149, -1, 151, -1, 8, 9, 10, -1, -1, 13, + 14, 15, -1, 17, -1, -1, -1, -1, -1, -1, + -1, -1, 26, 27, 28, -1, -1, -1, -1, -1, + -1, -1, -1, 37, 38, -1, 40, 41, 42, 43, + 44, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 68, -1, -1, -1, -1, -1, + -1, -1, -1, 77, 78, 79, 80, 81, 82, 83, + 84, 85, 86, 87, 88, 89, -1, -1, 92, 93, + 94, 95, -1, -1, 98, -1, -1, -1, -1, -1, + 104, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 118, -1, -1, -1, -1, -1, + -1, 125, -1, 127, 128, 129, 130, 131, 132, 133, + 134, 135, 136, -1, -1, -1, -1, 141, 142, 143, + 144, 0, 146, 147, 148, 149, -1, 151, -1, 8, + 9, 10, -1, -1, 13, 14, 15, -1, 17, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 27, 28, + 29, -1, -1, -1, -1, -1, -1, -1, 37, 38, + -1, 40, 41, 42, 43, 44, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 68, + -1, -1, -1, -1, -1, -1, -1, -1, 77, 78, + 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, + 89, -1, -1, 92, 93, 94, 95, -1, -1, 98, + -1, -1, -1, -1, -1, 104, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 118, + -1, -1, 121, -1, -1, -1, 125, 126, 127, 128, + 129, 130, 131, 132, 133, 134, 135, 136, -1, -1, + -1, -1, -1, 142, 143, 144, 0, -1, 147, 148, + 149, -1, 151, -1, 8, 9, 10, -1, -1, 13, + 14, 15, -1, 17, -1, -1, -1, -1, -1, -1, + -1, -1, 26, 27, 28, -1, -1, -1, -1, -1, + -1, -1, -1, 37, 38, -1, 40, 41, 42, 43, + 44, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 68, -1, -1, -1, -1, -1, + -1, -1, -1, 77, 78, 79, 80, 81, 82, 83, + 84, 85, 86, 87, 88, 89, -1, -1, 92, 93, + 94, 95, -1, -1, 98, -1, -1, -1, -1, -1, + 104, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 118, -1, -1, -1, -1, -1, + -1, 125, -1, 127, 128, 129, 130, 131, 132, 133, + 134, 135, 136, -1, -1, -1, -1, 141, 142, 143, + 144, 0, 146, 147, 148, 149, -1, 151, -1, 8, + 9, 10, -1, -1, 13, 14, 15, -1, 17, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 27, 28, + -1, -1, -1, -1, -1, -1, -1, -1, 37, 38, + -1, 40, 41, 42, 43, 44, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 68, + -1, -1, -1, -1, -1, -1, -1, -1, 77, 78, + 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, + 89, -1, -1, 92, 93, 94, 95, -1, -1, 98, + -1, -1, -1, -1, -1, 104, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 118, + -1, -1, -1, -1, -1, -1, 125, -1, 127, 128, + 129, 130, 131, 132, 133, 134, 135, 136, -1, -1, + -1, -1, -1, 142, 143, 144, 0, 146, 147, 148, + 149, -1, 151, -1, 8, 9, 10, -1, -1, -1, + 14, 15, -1, 17, -1, -1, -1, -1, -1, -1, + -1, -1, 26, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 37, 38, -1, 40, 41, 42, 43, + 44, -1, -1, -1, 77, 78, 79, 80, 81, 82, + 83, 84, 85, 86, 87, 88, 89, -1, -1, 92, + 93, -1, -1, -1, 68, -1, -1, -1, -1, -1, + -1, -1, -1, 77, 78, 79, 80, 81, 82, 83, + 84, 85, 86, 87, 88, 89, -1, -1, 92, 93, + 94, 95, 125, 97, 127, 128, 129, 130, 131, 132, + 133, 134, 135, 136, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 118, -1, -1, -1, 151, -1, + 124, 125, -1, 127, 128, 129, 130, 131, 132, 133, + 134, 135, 136, -1, -1, -1, -1, 141, 142, 143, + 144, 0, -1, 147, -1, 149, -1, 151, -1, 8, + 9, 10, -1, -1, -1, 14, 15, -1, 17, -1, + -1, -1, -1, -1, -1, -1, -1, 26, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 37, 38, + -1, 40, 41, 42, 43, 44, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 68, + -1, -1, -1, -1, -1, -1, -1, -1, 77, 78, + 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, + 89, -1, -1, 92, 93, 94, 95, -1, 97, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 118, + -1, -1, -1, -1, -1, 124, 125, -1, 127, 128, + 129, 130, 131, 132, 133, 134, 135, 136, -1, -1, + -1, -1, 141, 142, 143, 144, 0, -1, 147, -1, + 149, -1, 151, -1, 8, 9, 10, -1, -1, -1, + 14, 15, -1, 17, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 37, 38, -1, 40, 41, 42, 43, + 44, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 68, -1, -1, -1, -1, -1, + -1, -1, -1, 77, 78, 79, 80, 81, 82, 83, + 84, 85, 86, 87, 88, 89, -1, -1, 92, 93, + 94, 95, -1, 97, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 118, -1, -1, -1, -1, -1, + 124, 125, -1, 127, 128, 129, 130, 131, 132, 133, + 134, 135, 136, -1, -1, -1, -1, -1, 142, 143, + 144, 0, -1, 147, -1, 149, -1, 151, -1, 8, + 9, 10, -1, -1, -1, 14, 15, -1, 17, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 37, 38, + -1, 40, 41, 42, 43, 44, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 68, + -1, -1, -1, -1, -1, -1, -1, -1, 77, 78, + 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, + 89, -1, -1, 92, 93, 94, 95, -1, 97, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 118, + -1, -1, -1, -1, -1, 124, 125, -1, 127, 128, + 129, 130, 131, 132, 133, 134, 135, 136, -1, -1, + -1, -1, -1, 142, 143, 144, -1, -1, 147, -1, + 149, 1, 151, 3, 4, 5, 6, 7, 8, 9, + 10, 11, 12, -1, -1, 15, 16, -1, 18, 19, + 20, 21, 22, 23, 24, -1, -1, -1, -1, -1, + 30, 31, 32, 33, 34, 35, 36, -1, -1, 39, + -1, -1, -1, -1, -1, 45, 46, 47, 48, 49, + 50, 51, 52, 53, 54, 55, 56, 57, -1, 59, + 60, 61, 62, -1, 64, 65, 66, -1, -1, -1, + -1, -1, -1, -1, -1, 75, 76, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 96, -1, -1, 99, + 100, -1, 102, 103, -1, 105, -1, -1, 108, 109, + 110, 111, 112, 113, 114, 115, 116, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 137, 138, 139, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 149, + 1, 151, 3, 4, 5, 6, 7, -1, -1, 10, + 11, 12, -1, 14, 15, 16, -1, 18, 19, 20, + 21, 22, 23, 24, -1, -1, -1, -1, -1, 30, + 31, 32, 33, 34, 35, 36, -1, -1, 39, -1, + -1, -1, -1, -1, 45, 46, 47, 48, 49, 50, + 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, + 61, 62, -1, 64, 65, 66, -1, -1, -1, -1, + -1, -1, -1, -1, 75, 76, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 96, -1, -1, 99, 100, + -1, 102, 103, -1, 105, -1, -1, 108, 109, 110, + 111, 112, 113, 114, 115, 116, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 137, 138, 139, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 149, 1, + 151, 3, 4, 5, 6, 7, -1, -1, 10, 11, + 12, -1, -1, 15, 16, 17, 18, 19, 20, 21, + 22, 23, 24, -1, -1, -1, -1, -1, 30, 31, + 32, 33, 34, 35, 36, -1, -1, 39, -1, -1, + -1, -1, -1, 45, 46, 47, 48, 49, 50, 51, + 52, 53, 54, 55, 56, 57, -1, 59, 60, 61, + 62, -1, 64, 65, 66, -1, -1, -1, -1, -1, + -1, -1, -1, 75, 76, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 96, -1, -1, 99, 100, -1, + 102, 103, -1, 105, -1, -1, 108, 109, 110, 111, + 112, 113, 114, 115, 116, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 137, 138, 139, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 149, 1, 151, + 3, 4, 5, 6, 7, -1, -1, 10, 11, 12, + -1, -1, 15, 16, -1, 18, 19, 20, 21, 22, + 23, 24, -1, -1, -1, -1, -1, 30, 31, 32, + 33, 34, 35, 36, -1, -1, 39, -1, -1, -1, + -1, -1, 45, 46, 47, 48, 49, 50, 51, 52, + 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, + -1, 64, 65, 66, -1, -1, -1, -1, -1, -1, + -1, -1, 75, 76, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 96, -1, -1, 99, 100, -1, 102, + 103, -1, 105, -1, -1, 108, 109, 110, 111, 112, + 113, 114, 115, 116, -1, -1, -1, -1, -1, -1, + -1, -1, 1, -1, 3, 4, 5, 6, 7, -1, + 9, 10, 11, 12, 137, 138, 139, 16, -1, 18, + 19, 20, 21, 22, 23, 24, 149, -1, 151, -1, + -1, 30, 31, 32, 33, 34, 35, 36, -1, -1, + 39, -1, -1, -1, -1, -1, 45, 46, 47, 48, + 49, 50, 51, 52, 53, 54, 55, 56, 57, -1, + 59, 60, 61, 62, -1, 64, 65, 66, -1, -1, + -1, -1, -1, -1, -1, -1, 75, 76, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 96, -1, -1, + 99, 100, -1, 102, 103, -1, 105, -1, -1, 108, + 109, 110, 111, 112, 113, 114, 115, 116, -1, -1, + -1, -1, -1, -1, -1, -1, 1, -1, 3, 4, + 5, 6, 7, -1, -1, -1, 11, 12, 137, 138, + 139, 16, -1, 18, 19, 20, 21, 22, 23, 24, + 149, -1, 151, -1, -1, 30, 31, 32, 33, 34, + 35, 36, -1, -1, 39, -1, -1, -1, -1, -1, + 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, + 55, 56, 57, -1, 59, 60, 61, 62, -1, 64, + 65, 66, -1, -1, -1, -1, -1, -1, -1, -1, + 75, 76, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, 96, -1, -1, 99, 100, -1, 102, 103, -1, + 105, -1, -1, 108, 109, 110, 111, 112, 113, 114, + 115, 116, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 137, 138, 139, -1, -1, -1, -1, -1, + -1, -1, 147, -1, 149, 1, 151, 3, 4, 5, + 6, 7, -1, -1, -1, 11, 12, -1, -1, -1, + 16, -1, 18, 19, 20, 21, 22, 23, 24, -1, + -1, -1, -1, -1, 30, 31, 32, 33, 34, 35, + 36, -1, -1, 39, -1, -1, -1, -1, -1, 45, + 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, + 56, 57, -1, 59, 60, 61, 62, -1, 64, 65, + 66, -1, -1, -1, -1, -1, -1, -1, -1, 75, + 76, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 96, -1, -1, 99, 100, -1, 102, 103, -1, 105, + -1, -1, 108, 109, 110, 111, 112, 113, 114, 115, + 116, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, 137, 138, 139, -1, -1, -1, -1, -1, -1, + -1, 147, -1, 149, 1, 151, 3, 4, 5, 6, + 7, -1, -1, -1, 11, 12, -1, -1, -1, 16, + -1, 18, 19, 20, 21, 22, 23, 24, -1, -1, + -1, -1, -1, 30, 31, 32, 33, 34, 35, 36, + -1, -1, 39, -1, -1, -1, -1, -1, 45, 46, + 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, + 57, -1, 59, 60, 61, 62, -1, 64, 65, 66, + -1, -1, -1, -1, -1, -1, -1, -1, 75, 76, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 96, + -1, -1, 99, 100, -1, 102, 103, -1, 105, -1, + -1, 108, 109, 110, 111, 112, 113, 114, 115, 116, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 137, 138, 139, -1, -1, 142, -1, -1, -1, -1, + -1, -1, 149, 1, 151, 3, 4, 5, 6, 7, + -1, -1, -1, 11, 12, -1, -1, -1, 16, -1, + 18, 19, 20, 21, 22, 23, 24, -1, -1, -1, + -1, -1, 30, 31, 32, 33, 34, 35, 36, -1, + -1, 39, -1, -1, -1, -1, -1, 45, 46, 47, + 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, + -1, 59, 60, 61, 62, -1, 64, 65, 66, -1, + -1, -1, -1, -1, -1, -1, -1, 75, 76, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 96, -1, + -1, 99, 100, -1, 102, 103, -1, 105, -1, -1, + 108, 109, 110, 111, 112, 113, 114, 115, 116, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 137, + 138, 139, -1, -1, 142, -1, -1, -1, -1, -1, + -1, 149, 1, 151, 3, 4, 5, 6, 7, -1, + -1, 10, 11, 12, -1, -1, -1, 16, -1, 18, + 19, 20, 21, 22, 23, 24, -1, -1, -1, -1, + -1, 30, 31, 32, 33, 34, 35, 36, -1, -1, + 39, -1, -1, -1, -1, -1, 45, 46, 47, 48, + 49, 50, 51, 52, 53, 54, 55, 56, 57, -1, + 59, 60, 61, 62, -1, 64, 65, 66, -1, -1, + -1, -1, -1, -1, -1, -1, 75, 76, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 96, -1, -1, + 99, 100, -1, 102, 103, -1, 105, -1, -1, 108, + 109, 110, 111, 112, 113, 114, 115, 116, -1, -1, + -1, -1, -1, -1, -1, -1, 1, -1, 3, 4, + 5, 6, 7, -1, -1, -1, 11, 12, 137, 138, + 139, 16, -1, 18, 19, 20, 21, 22, 23, 24, + 149, -1, 151, -1, -1, 30, 31, 32, 33, 34, + 35, 36, -1, -1, 39, -1, -1, -1, -1, -1, + 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, + 55, 56, 57, -1, 59, 60, 61, 62, -1, 64, + 65, 66, -1, -1, -1, -1, -1, -1, -1, -1, + 75, 76, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, 96, -1, -1, 99, 100, -1, 102, 103, -1, + 105, -1, -1, 108, 109, 110, 111, 112, 113, 114, + 115, 116, -1, 118, -1, -1, -1, -1, -1, -1, + -1, -1, 3, 4, 5, -1, 7, -1, -1, -1, + 11, 12, 137, 138, 139, 16, -1, 18, 19, 20, + 21, 22, 23, 24, 149, -1, 151, -1, -1, 30, + 31, 32, 33, 34, 35, 36, -1, -1, 39, -1, + -1, -1, -1, -1, -1, 46, -1, -1, 49, 50, + 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, + 61, 62, -1, 64, 65, 66, -1, -1, -1, -1, + -1, -1, -1, -1, 75, 76, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 96, -1, -1, 99, 100, + -1, 102, 103, -1, 105, 106, 107, 108, 109, 110, + 111, 112, 113, 114, 115, 116, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 3, 4, 5, -1, + 7, -1, -1, -1, 11, 12, 137, 138, 139, 16, + -1, 18, 19, 20, 21, 22, 23, 24, -1, -1, + 151, -1, -1, 30, 31, 32, 33, 34, 35, 36, + -1, -1, 39, -1, -1, -1, -1, -1, -1, 46, + -1, -1, 49, 50, 51, 52, 53, 54, 55, 56, + 57, -1, 59, 60, 61, 62, -1, 64, 65, 66, + -1, -1, -1, -1, -1, -1, -1, -1, 75, 76, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 96, + -1, -1, 99, 100, -1, 102, 103, -1, -1, -1, + -1, 108, 109, 110, 111, 112, 113, 114, 115, 116, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 3, 4, 5, -1, 7, -1, -1, -1, 11, 12, + 137, 138, 139, 16, -1, 18, 19, 20, 21, 22, + 23, 24, 149, -1, 151, -1, -1, 30, 31, 32, + 33, 34, 35, 36, -1, -1, 39, -1, -1, -1, + -1, -1, -1, 46, -1, -1, 49, 50, 51, 52, + 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, + -1, 64, 65, 66, -1, -1, -1, -1, -1, -1, + -1, -1, 75, 76, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 96, -1, -1, 99, 100, -1, 102, + 103, -1, -1, -1, -1, 108, 109, 110, 111, 112, + 113, 114, 115, 116, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 3, 4, 5, 6, 7, -1, + -1, -1, 11, 12, 137, 138, 139, 16, -1, 18, + 19, 20, 21, 22, 23, 24, -1, -1, 151, -1, + -1, 30, 31, 32, 33, 34, 35, 36, -1, -1, + 39, -1, -1, -1, -1, -1, 45, 46, 47, 48, + 49, 50, 51, 52, 53, 54, 55, 56, 57, -1, + 59, 60, 61, 62, -1, 64, 65, 66, -1, -1, + -1, -1, -1, -1, -1, -1, 75, 76, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 96, -1, -1, + 99, 100, -1, 102, 103, -1, 105, -1, -1, 108, + 109, 110, 111, 112, 113, 114, 115, 116, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 3, 4, + 5, 6, 7, -1, -1, -1, 11, 12, 137, 138, + 139, 16, -1, 18, 19, 20, 21, 22, 23, 24, + 149, -1, -1, -1, -1, 30, 31, 32, 33, 34, + 35, 36, -1, -1, 39, -1, -1, -1, -1, -1, + 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, + 55, 56, 57, -1, 59, 60, 61, 62, -1, 64, + 65, 66, -1, -1, -1, -1, -1, -1, -1, -1, + 75, 76, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, 96, -1, -1, 99, 100, -1, 102, 103, -1, + 105, -1, -1, 108, 109, 110, 111, 112, 113, 114, + 115, 116, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 137, 138, 139, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 149, 3, 4, 5, 6, 7, + 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, + 18, 19, 20, 21, 22, 23, 24, 25, 26, -1, + -1, -1, 30, 31, 32, 33, 34, 35, 36, 37, + 38, 39, -1, -1, -1, -1, -1, 45, 46, 47, + 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 75, 76, 77, + 78, 79, 80, 81, 82, 83, -1, -1, 86, 87, + -1, -1, 90, 91, 92, 93, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 105, 106, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 127, + 128, 129, 130, 131, 132, 133, 134, 135, 136, -1, + 138, 139, -1, -1, -1, -1, -1, 145, 146, 3, + 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, + 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, + 24, 25, 26, -1, -1, -1, 30, 31, 32, 33, + 34, 35, 36, 37, 38, 39, -1, -1, -1, -1, + -1, 45, 46, 47, 48, 49, 50, 51, 52, 53, + 54, 55, 56, 57, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, 75, 76, 77, 78, 79, 80, 81, 82, 83, + -1, -1, 86, 87, -1, -1, 90, 91, 92, 93, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, 105, 106, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 127, 128, 129, 130, 131, 132, 133, + 134, 135, 136, -1, 138, 139, -1, -1, -1, -1, + -1, 145, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, + 21, 22, 23, 24, 25, 26, -1, -1, -1, 30, + 31, 32, 33, 34, 35, 36, 37, 38, 39, -1, + -1, -1, -1, -1, 45, 46, 47, 48, 49, 50, + 51, 52, 53, 54, -1, 56, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 75, 76, 77, 78, 79, 80, + 81, 82, 83, -1, -1, 86, 87, -1, -1, 90, + 91, 92, 93, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 105, 106, -1, -1, 109, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 127, 128, 129, 130, + 131, 132, 133, 134, 135, 136, -1, 138, 139, -1, + -1, -1, -1, -1, 145, 3, 4, 5, 6, 7, + 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, + 18, 19, 20, 21, 22, 23, 24, 25, 26, -1, + -1, -1, 30, 31, 32, 33, 34, 35, 36, 37, + 38, 39, -1, -1, -1, -1, -1, 45, 46, 47, + 48, 49, 50, 51, 52, 53, -1, -1, 56, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 75, 76, 77, + 78, 79, 80, 81, 82, 83, -1, -1, 86, 87, + -1, -1, 90, 91, 92, 93, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 105, 106, -1, + -1, 109, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 127, + 128, 129, 130, 131, 132, 133, 134, 135, 136, -1, + 138, 139, -1, -1, -1, -1, -1, 145, 3, 4, + 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, + 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, + 25, 26, -1, -1, -1, 30, 31, 32, 33, 34, + 35, 36, 37, 38, 39, -1, -1, -1, -1, -1, + 45, 46, 47, 48, 49, 50, 51, 52, 53, -1, + -1, 56, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 75, 76, 77, 78, 79, 80, 81, 82, 83, -1, + -1, 86, 87, -1, -1, 90, 91, 92, 93, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 105, 106, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 127, 128, 129, 130, 131, 132, 133, 134, + 135, 136, -1, 138, 139, 3, 4, 5, -1, 7, + 145, -1, -1, 11, 12, -1, -1, -1, 16, -1, + 18, 19, 20, 21, 22, 23, 24, -1, -1, -1, + -1, -1, 30, 31, 32, 33, 34, 35, 36, -1, + -1, 39, -1, -1, -1, -1, -1, -1, 46, -1, + -1, 49, 50, 51, 52, 53, 54, 55, 56, 57, + -1, 59, 60, 61, 62, -1, 64, 65, 66, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 96, -1, + -1, 99, 100, -1, 102, 103, -1, -1, -1, -1, + 108, 109, 110, 111, 112, 113, 114, 115, 116, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 3, 4, 5, 6, 7, -1, -1, 137, + 11, 12, -1, -1, -1, 16, 144, 18, 19, 20, + 21, 22, 23, 24, -1, -1, -1, -1, -1, 30, + 31, 32, 33, 34, 35, 36, -1, -1, 39, -1, + -1, -1, -1, -1, 45, 46, 47, 48, 49, 50, + 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, + 61, 62, -1, 64, 65, 66, -1, -1, -1, -1, + -1, -1, -1, -1, 75, 76, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 96, -1, -1, 99, 100, + -1, 102, 103, -1, 105, -1, -1, 108, 109, 110, + 111, 112, 113, 114, 115, 116, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 3, 4, 5, -1, + 7, -1, -1, -1, 11, 12, 137, 138, 139, 16, + -1, 18, 19, 20, 21, 22, 23, 24, -1, -1, + -1, -1, -1, 30, 31, 32, 33, 34, 35, 36, + -1, -1, 39, -1, -1, -1, -1, -1, -1, 46, + -1, -1, 49, 50, 51, 52, 53, 54, 55, 56, + 57, 58, 59, 60, 61, 62, -1, 64, 65, 66, + -1, -1, -1, -1, -1, -1, -1, -1, 75, 76, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 96, + -1, -1, 99, 100, -1, 102, 103, -1, 105, 106, + 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 3, 4, 5, 6, 7, -1, -1, -1, 11, 12, + 137, 138, 139, 16, -1, 18, 19, 20, 21, 22, + 23, 24, -1, -1, -1, -1, -1, 30, 31, 32, + 33, 34, 35, 36, -1, -1, 39, -1, -1, -1, + -1, -1, 45, 46, -1, 48, 49, 50, 51, 52, + 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, + -1, 64, 65, 66, -1, -1, -1, -1, -1, -1, + -1, -1, 75, 76, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 96, -1, -1, 99, 100, -1, 102, + 103, -1, 105, -1, -1, 108, 109, 110, 111, 112, + 113, 114, 115, 116, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 3, 4, 5, -1, 7, -1, + -1, -1, 11, 12, 137, 138, 139, 16, -1, 18, + 19, 20, 21, 22, 23, 24, -1, -1, -1, -1, + -1, 30, 31, 32, 33, 34, 35, 36, -1, -1, + 39, -1, -1, -1, -1, -1, -1, 46, -1, -1, + 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, + 59, 60, 61, 62, -1, 64, 65, 66, -1, -1, + -1, -1, -1, -1, -1, -1, 75, 76, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 96, -1, -1, + 99, 100, -1, 102, 103, -1, 105, 106, 107, 108, + 109, 110, 111, 112, 113, 114, 115, 116, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 3, 4, + 5, -1, 7, -1, -1, -1, 11, 12, 137, 138, + 139, 16, -1, 18, 19, 20, 21, 22, 23, 24, + -1, -1, -1, -1, -1, 30, 31, 32, 33, 34, + 35, 36, -1, -1, 39, -1, -1, -1, -1, -1, + -1, 46, -1, -1, 49, 50, 51, 52, 53, 54, + 55, 56, 57, 58, 59, 60, 61, 62, -1, 64, + 65, 66, -1, -1, -1, -1, -1, -1, -1, -1, + 75, 76, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, 96, -1, -1, 99, 100, -1, 102, 103, -1, + 105, 106, -1, 108, 109, 110, 111, 112, 113, 114, + 115, 116, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 3, 4, 5, -1, 7, -1, -1, -1, + 11, 12, 137, 138, 139, 16, -1, 18, 19, 20, + 21, 22, 23, 24, -1, -1, -1, -1, -1, 30, + 31, 32, 33, 34, 35, 36, -1, -1, 39, -1, + -1, -1, -1, -1, -1, 46, -1, -1, 49, 50, + 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, + 61, 62, -1, 64, 65, 66, -1, -1, -1, -1, + -1, -1, -1, -1, 75, 76, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 96, -1, -1, 99, 100, + -1, 102, 103, -1, -1, 106, 107, 108, 109, 110, + 111, 112, 113, 114, 115, 116, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 3, 4, 5, -1, + 7, -1, -1, -1, 11, 12, 137, 138, 139, 16, + -1, 18, 19, 20, 21, 22, 23, 24, -1, -1, + -1, -1, -1, 30, 31, 32, 33, 34, 35, 36, + -1, -1, 39, -1, -1, -1, -1, -1, -1, 46, + -1, -1, 49, 50, 51, 52, 53, 54, 55, 56, + 57, 58, 59, 60, 61, 62, -1, 64, 65, 66, + -1, -1, -1, -1, -1, -1, -1, -1, 75, 76, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 96, + -1, -1, 99, 100, -1, 102, 103, -1, 105, 106, + -1, 108, 109, 110, 111, 112, 113, 114, 115, 116, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 3, 4, 5, -1, 7, -1, -1, -1, 11, 12, + 137, 138, 139, 16, -1, 18, 19, 20, 21, 22, + 23, 24, -1, -1, -1, -1, -1, 30, 31, 32, + 33, 34, 35, 36, -1, -1, 39, -1, -1, -1, + -1, -1, -1, 46, -1, -1, 49, 50, 51, 52, + 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, + -1, 64, 65, 66, -1, -1, -1, -1, -1, -1, + -1, -1, 75, 76, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 96, -1, -1, 99, 100, -1, 102, + 103, -1, -1, 106, -1, 108, 109, 110, 111, 112, + 113, 114, 115, 116, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 3, 4, 5, -1, 7, -1, + -1, -1, 11, 12, 137, 138, 139, 16, -1, 18, + 19, 20, 21, 22, 23, 24, -1, -1, -1, -1, + -1, 30, 31, 32, 33, 34, 35, 36, -1, -1, + 39, -1, -1, -1, -1, -1, -1, 46, -1, -1, + 49, 50, 51, 52, 53, 54, 55, 56, 57, -1, + 59, 60, 61, 62, -1, 64, 65, 66, -1, -1, + -1, -1, -1, -1, -1, -1, 75, 76, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 96, -1, -1, + 99, 100, -1, 102, 103, -1, 105, -1, -1, 108, + 109, 110, 111, 112, 113, 114, 115, 116, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 3, 4, + 5, -1, 7, -1, -1, -1, 11, 12, 137, 138, + 139, 16, -1, 18, 19, 20, 21, 22, 23, 24, + -1, -1, -1, -1, -1, 30, 31, 32, 33, 34, + 35, 36, -1, -1, 39, -1, -1, -1, -1, -1, + -1, 46, -1, -1, 49, 50, 51, 52, 53, 54, + 55, 56, 57, -1, 59, 60, 61, 62, -1, 64, + 65, 66, -1, -1, -1, -1, -1, -1, -1, -1, + 75, 76, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, 96, -1, -1, 99, 100, -1, 102, 103, -1, + 105, -1, -1, 108, 109, 110, 111, 112, 113, 114, + 115, 116, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 3, 4, 5, -1, 7, -1, -1, -1, + 11, 12, 137, 138, 139, 16, -1, 18, 19, 20, + 21, 22, 23, 24, -1, -1, -1, -1, -1, 30, + 31, 32, 33, 34, 35, 36, -1, -1, 39, -1, + -1, -1, -1, -1, -1, 46, -1, -1, 49, 50, + 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, + 61, 62, -1, 64, 65, 66, -1, -1, -1, -1, + -1, -1, -1, -1, 75, 76, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 96, -1, -1, 99, 100, + -1, 102, 103, -1, 105, -1, -1, 108, 109, 110, + 111, 112, 113, 114, 115, 116, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 3, 4, 5, -1, + 7, -1, -1, -1, 11, 12, 137, 138, 139, 16, + -1, 18, 19, 20, 21, 22, 23, 24, -1, -1, + -1, -1, -1, 30, 31, 32, 33, 34, 35, 36, + -1, -1, 39, -1, -1, -1, -1, -1, -1, 46, + -1, -1, 49, 50, 51, 52, 53, 54, 55, 56, + 57, -1, 59, 60, 61, 62, -1, 64, 65, 66, + -1, -1, -1, -1, -1, -1, -1, -1, 75, 76, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 96, + -1, -1, 99, 100, -1, 102, 103, -1, 105, -1, + -1, 108, 109, 110, 111, 112, 113, 114, 115, 116, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 3, 4, 5, -1, 7, -1, -1, -1, 11, 12, + 137, 138, 139, 16, -1, 18, 19, 20, 21, 22, + 23, 24, -1, -1, -1, -1, -1, 30, 31, 32, + 33, 34, 35, 36, -1, -1, 39, -1, -1, -1, + -1, -1, -1, 46, -1, -1, 49, 50, 51, 52, + 53, 54, 55, 56, 57, -1, 59, 60, 61, 62, + -1, 64, 65, 66, -1, -1, -1, -1, -1, -1, + -1, -1, 75, 76, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 96, -1, -1, 99, 100, -1, 102, + 103, -1, 105, -1, -1, 108, 109, 110, 111, 112, + 113, 114, 115, 116, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 3, 4, 5, -1, 7, -1, + -1, -1, 11, 12, 137, 138, 139, 16, -1, 18, + 19, 20, 21, 22, 23, 24, -1, -1, -1, -1, + -1, 30, 31, 32, 33, 34, 35, 36, -1, -1, + 39, -1, -1, -1, -1, -1, -1, 46, -1, -1, + 49, 50, 51, 52, 53, 54, 55, 56, 57, -1, + 59, 60, 61, 62, -1, 64, 65, 66, -1, -1, + -1, -1, -1, -1, -1, -1, 75, 76, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 96, -1, -1, + 99, 100, -1, 102, 103, -1, -1, -1, -1, 108, + 109, 110, 111, 112, 113, 114, 115, 116, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 3, 4, + 5, -1, 7, -1, -1, -1, 11, 12, 137, 138, + 139, 16, -1, 18, 19, 20, 21, 22, 23, 24, + -1, -1, -1, -1, -1, 30, 31, 32, 33, 34, + 35, 36, -1, -1, 39, -1, -1, -1, -1, -1, + -1, 46, -1, -1, 49, 50, 51, 52, 53, 54, + 55, 56, 57, -1, 59, 60, 61, 62, -1, 64, + 65, 66, -1, -1, -1, -1, -1, -1, -1, -1, + 75, 76, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, 96, -1, -1, 99, 100, -1, 102, 103, -1, + -1, -1, -1, 108, 109, 110, 111, 112, 113, 114, + 115, 116, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 3, 4, 5, -1, 7, -1, -1, -1, + 11, 12, 137, 138, 139, 16, -1, 18, 19, 20, + 21, 22, 23, 24, -1, -1, -1, -1, -1, 30, + 31, 32, 33, 34, 35, 36, -1, -1, 39, -1, + -1, -1, -1, -1, -1, 46, -1, -1, 49, 50, + 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, + 61, 62, -1, 64, 65, 66, -1, -1, -1, -1, + -1, -1, -1, -1, 75, 76, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 96, -1, -1, 99, 100, + -1, 102, 103, -1, -1, -1, -1, 108, 109, 110, + 111, 112, 113, 114, 115, 116, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 3, 4, 5, -1, + 7, -1, -1, -1, 11, 12, 137, 138, 139, 16, + -1, 18, 19, 20, 21, 22, 23, 24, -1, -1, + -1, -1, -1, 30, 31, 32, 33, 34, 35, 36, + -1, -1, 39, -1, -1, -1, -1, -1, -1, 46, + -1, -1, 49, 50, 51, 52, 53, 54, 55, 56, + 57, -1, 59, 60, 61, 62, -1, 64, 65, 66, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 96, + -1, -1, 99, 100, -1, 102, 103, -1, 105, -1, + -1, 108, 109, 110, 111, 112, 113, 114, 115, 116, + -1, -1, -1, -1, -1, -1, 3, 4, 5, -1, + 7, -1, -1, -1, 11, 12, -1, -1, -1, 16, + 137, 18, 19, 20, 21, 22, 23, 24, -1, -1, + -1, -1, -1, 30, 31, 32, 33, 34, 35, 36, + -1, -1, 39, -1, -1, -1, -1, -1, -1, 46, + -1, -1, 49, 50, 51, 52, 53, 54, 55, 56, + 57, -1, 59, 60, 61, 62, -1, 64, 65, 66, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 96, + -1, -1, 99, 100, -1, 102, 103, -1, 105, -1, + -1, 108, 109, 110, 111, 112, 113, 114, 115, 116, + -1, -1, -1, -1, -1, -1, 3, 4, 5, -1, + 7, -1, -1, -1, 11, 12, -1, -1, -1, 16, + 137, 18, 19, 20, 21, 22, 23, 24, -1, -1, + -1, -1, -1, 30, 31, 32, 33, 34, 35, 36, + -1, -1, 39, -1, -1, -1, -1, -1, -1, 46, + -1, -1, 49, 50, 51, 52, 53, 54, 55, 56, + 57, -1, 59, 60, 61, 62, -1, 64, 65, 66, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 92, -1, -1, -1, 96, + -1, -1, 99, 100, -1, 102, 103, -1, -1, -1, + -1, 108, 109, 110, 111, 112, 113, 114, 115, 116, + -1, -1, -1, -1, -1, -1, 3, 4, 5, -1, + 7, -1, -1, -1, 11, 12, -1, -1, -1, 16, + 137, 18, 19, 20, 21, 22, 23, 24, -1, -1, + -1, -1, -1, 30, 31, 32, 33, 34, 35, 36, + -1, -1, 39, -1, -1, -1, -1, -1, -1, 46, + -1, -1, 49, 50, 51, 52, 53, 54, 55, 56, + 57, -1, 59, 60, 61, 62, -1, 64, 65, 66, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 96, + -1, -1, 99, 100, -1, 102, 103, -1, -1, -1, + -1, 108, 109, 110, 111, 112, 113, 114, 115, 116, + -1, -1, -1, -1, -1, -1, 3, 4, 5, -1, + 7, -1, -1, -1, 11, 12, -1, -1, -1, 16, + 137, 18, 19, 20, 21, 22, 23, 24, -1, -1, + -1, -1, -1, 30, 31, 32, 33, 34, 35, 36, + -1, -1, 39, -1, -1, -1, -1, -1, -1, 46, + -1, -1, 49, 50, 51, 52, 53, 54, 55, 56, + 57, -1, 59, 60, 61, 62, -1, 64, 65, 66, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 96, + -1, -1, 99, 100, -1, 102, 103, -1, -1, -1, + -1, 108, 109, 110, 111, 112, 113, 114, 115, 116, + -1, -1, -1, -1, -1, -1, 3, 4, 5, -1, + 7, -1, -1, -1, 11, 12, -1, -1, -1, 16, + 137, 18, 19, 20, 21, 22, 23, 24, -1, -1, + -1, -1, -1, 30, 31, 32, 33, 34, 35, 36, + -1, -1, 39, -1, -1, -1, -1, -1, -1, 46, + -1, -1, 49, 50, 51, 52, 53, 54, 55, 56, + 57, -1, 59, 60, 61, 62, -1, 64, 65, 66, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 96, + -1, -1, 99, 100, -1, 102, 103, -1, -1, -1, + -1, 108, 109, 110, 111, 112, 113, 114, 115, 116, + -1, -1, -1, -1, -1, -1, 3, 4, 5, -1, + 7, -1, -1, -1, 11, 12, -1, -1, -1, 16, + 137, 18, 19, 20, 21, 22, 23, 24, -1, -1, + -1, -1, -1, 30, 31, 32, 33, 34, 35, 36, + -1, -1, 39, -1, -1, -1, -1, -1, -1, 46, + -1, -1, 49, 50, 51, 52, 53, 54, 55, 56, + 57, -1, 59, 60, 61, 62, -1, 64, 65, 66, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 52, 53, 96, + -1, 56, 99, 100, -1, 102, 103, -1, -1, -1, + -1, 108, 109, 110, 111, 112, 113, 114, 115, 116, + 75, 76, 77, 78, 79, 80, 81, 82, 83, -1, + -1, 86, 87, -1, -1, 90, 91, 92, 93, -1, + 137, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 105, 106, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 127, 128, 129, 130, 131, 132, 133, 134, + 135, 136, -1, 138, 139, 52, 53, -1, -1, 56, + 145, 146, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 75, 76, + 77, 78, 79, 80, 81, 82, 83, -1, -1, 86, + 87, -1, -1, 90, 91, 92, 93, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 105, 106, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, + -1, 138, 139, 52, 53, -1, -1, 56, 145, 146, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 75, 76, 77, 78, + 79, 80, 81, 82, 83, -1, -1, 86, 87, -1, + -1, 90, 91, 92, 93, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 105, 106, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 127, 128, + 129, 130, 131, 132, 133, 134, 135, 136, -1, 138, + 139, 52, 53, -1, -1, 56, 145, 146, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 75, 76, 77, 78, 79, 80, + 81, 82, 83, -1, -1, 86, 87, -1, -1, 90, + 91, 92, 93, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 105, 106, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 127, 128, 129, 130, + 131, 132, 133, 134, 135, 136, -1, 138, 139, 52, + 53, -1, -1, 56, 145, 146, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 75, 76, 77, 78, 79, 80, 81, 82, + 83, -1, -1, 86, 87, -1, -1, 90, 91, 92, + 93, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 105, 106, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 127, 128, 129, 130, 131, 132, + 133, 134, 135, 136, -1, 138, 139, 52, 53, -1, + -1, 56, 145, 146, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 75, 76, 77, 78, 79, 80, 81, 82, 83, -1, + -1, 86, 87, -1, -1, 90, 91, 92, 93, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 105, 106, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 127, 128, 129, 130, 131, 132, 133, 134, + 135, 136, -1, 138, 139, 52, 53, -1, -1, 56, + 145, 146, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 75, 76, + 77, 78, 79, 80, 81, 82, 83, -1, -1, 86, + 87, -1, -1, 90, 91, 92, 93, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 105, 106, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, + -1, 138, 139, 52, 53, -1, -1, 56, 145, 146, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 75, 76, 77, 78, + 79, 80, 81, 82, 83, -1, -1, 86, 87, -1, + -1, 90, 91, 92, 93, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 105, 106, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 127, 128, + 129, 130, 131, 132, 133, 134, 135, 136, -1, 138, + 139, 52, 53, -1, -1, 56, 145, 146, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 75, 76, 77, 78, 79, 80, + 81, 82, 83, -1, -1, 86, 87, -1, -1, 90, + 91, 92, 93, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 105, 106, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 127, 128, 129, 130, + 131, 132, 133, 134, 135, 136, -1, 138, 139, 52, + 53, -1, -1, 56, 145, 146, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 75, 76, 77, 78, 79, 80, 81, 82, + 83, -1, -1, 86, 87, -1, -1, 90, 91, 92, + 93, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 105, 106, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 127, 128, 129, 130, 131, 132, + 133, 134, 135, 136, -1, 138, 139, 52, 53, -1, + -1, 56, 145, 146, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 75, 76, 77, 78, 79, 80, 81, 82, 83, -1, + -1, 86, 87, -1, -1, 90, 91, 92, 93, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 105, 106, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 127, 128, 129, 130, 131, 132, 133, 134, + 135, 136, -1, 138, 139, 52, 53, -1, -1, 56, + 145, 146, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 75, 76, + 77, 78, 79, 80, 81, 82, 83, -1, -1, 86, + 87, -1, -1, 90, 91, 92, 93, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 105, 106, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, + -1, 138, 139, 52, 53, -1, -1, 56, 145, 146, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 75, 76, 77, 78, + 79, 80, 81, 82, 83, -1, -1, 86, 87, -1, + -1, 90, 91, 92, 93, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 105, 106, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 127, 128, + 129, 130, 131, 132, 133, 134, 135, 136, -1, 138, + 139, 52, 53, -1, -1, 56, 145, 146, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 75, 76, 77, 78, 79, 80, + 81, 82, 83, -1, -1, 86, 87, -1, -1, 90, + 91, 92, 93, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 105, 106, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 127, 128, 129, 130, + 131, 132, 133, 134, 135, 136, -1, 138, 139, 52, + 53, -1, -1, 56, 145, 146, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 75, 76, 77, 78, 79, 80, 81, 82, + 83, -1, -1, 86, 87, -1, -1, 90, 91, 92, + 93, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 105, 106, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 127, 128, 129, 130, 131, 132, + 133, 134, 135, 136, -1, 138, 139, 52, 53, -1, + -1, 56, 145, 146, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 75, 76, 77, 78, 79, 80, 81, 82, 83, -1, + -1, 86, 87, -1, -1, 90, 91, 92, 93, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 105, 106, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 127, 128, 129, 130, 131, 132, 133, 134, + 135, 136, -1, 138, 139, -1, -1, -1, -1, -1, + 145 +}; + + /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing + symbol of state STATE-NUM. */ +static const yytype_uint16 yystos[] = +{ + 0, 153, 154, 0, 1, 3, 4, 5, 6, 7, + 11, 12, 16, 18, 19, 20, 21, 22, 23, 24, + 30, 31, 32, 33, 34, 35, 36, 39, 45, 46, + 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, + 57, 59, 60, 61, 62, 64, 65, 66, 75, 76, + 96, 99, 100, 102, 103, 105, 108, 109, 110, 111, + 112, 113, 114, 115, 116, 137, 138, 139, 155, 156, + 157, 165, 167, 169, 174, 175, 177, 178, 179, 181, + 182, 183, 185, 186, 196, 199, 214, 227, 228, 229, + 230, 231, 232, 233, 234, 235, 236, 237, 246, 270, + 271, 284, 285, 286, 287, 288, 289, 290, 293, 295, + 296, 310, 312, 313, 314, 315, 316, 317, 318, 319, + 353, 366, 157, 3, 4, 5, 6, 7, 8, 9, + 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, + 20, 21, 22, 23, 24, 25, 26, 30, 31, 32, + 33, 34, 35, 36, 37, 38, 39, 45, 46, 47, + 48, 49, 50, 51, 52, 53, 56, 75, 76, 77, + 78, 79, 80, 81, 82, 83, 86, 87, 90, 91, + 92, 93, 105, 106, 127, 128, 129, 130, 131, 132, + 133, 134, 135, 136, 138, 139, 145, 189, 190, 191, + 192, 194, 195, 310, 312, 39, 58, 96, 99, 105, + 106, 107, 110, 138, 178, 186, 196, 200, 206, 209, + 211, 227, 315, 316, 318, 319, 351, 352, 206, 146, + 207, 208, 146, 203, 207, 146, 151, 360, 54, 191, + 360, 141, 158, 141, 21, 22, 31, 32, 177, 196, + 227, 246, 196, 56, 1, 47, 99, 161, 162, 163, + 165, 180, 181, 366, 165, 216, 201, 211, 351, 366, + 200, 350, 351, 366, 46, 96, 137, 144, 185, 214, + 227, 315, 316, 319, 219, 54, 55, 57, 189, 299, + 311, 299, 300, 301, 150, 150, 150, 150, 314, 174, + 196, 196, 149, 151, 359, 364, 365, 40, 41, 42, + 43, 44, 37, 38, 26, 141, 203, 207, 238, 272, + 28, 239, 269, 124, 144, 99, 105, 182, 124, 77, + 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, + 88, 89, 92, 93, 125, 127, 128, 129, 130, 131, + 132, 133, 134, 135, 136, 198, 198, 68, 94, 95, + 143, 357, 215, 169, 170, 170, 171, 172, 171, 170, + 359, 365, 96, 179, 186, 227, 251, 315, 316, 319, + 52, 56, 92, 96, 187, 188, 227, 315, 316, 319, + 188, 33, 34, 35, 36, 49, 50, 51, 52, 56, + 146, 189, 317, 348, 206, 95, 357, 358, 272, 287, + 97, 97, 144, 200, 56, 200, 200, 200, 299, 124, + 98, 144, 210, 366, 95, 143, 357, 97, 97, 144, + 210, 206, 360, 361, 206, 205, 206, 211, 351, 366, + 169, 361, 169, 54, 65, 66, 166, 146, 197, 155, + 161, 95, 357, 97, 165, 164, 180, 147, 359, 365, + 361, 217, 361, 148, 144, 151, 363, 144, 363, 142, + 363, 360, 56, 314, 182, 184, 144, 95, 143, 357, + 263, 264, 63, 117, 119, 120, 302, 120, 120, 302, + 67, 302, 291, 297, 294, 298, 77, 149, 157, 170, + 170, 170, 170, 165, 169, 169, 273, 274, 104, 176, + 275, 276, 275, 105, 174, 200, 211, 212, 213, 180, + 144, 185, 144, 167, 168, 174, 186, 196, 200, 202, + 213, 227, 319, 196, 196, 196, 196, 196, 196, 196, + 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, + 196, 196, 196, 196, 196, 196, 196, 52, 53, 56, + 194, 203, 354, 355, 205, 52, 53, 56, 194, 203, + 354, 159, 161, 13, 247, 364, 247, 161, 170, 161, + 359, 17, 242, 278, 56, 95, 143, 357, 25, 169, + 52, 56, 187, 128, 320, 95, 143, 357, 222, 349, + 223, 68, 95, 356, 52, 56, 354, 168, 196, 202, + 168, 202, 193, 122, 200, 105, 200, 209, 351, 52, + 56, 205, 52, 56, 352, 361, 147, 361, 144, 144, + 361, 191, 218, 196, 142, 142, 354, 354, 202, 158, + 361, 163, 361, 351, 144, 184, 52, 56, 205, 52, + 56, 265, 304, 303, 120, 292, 302, 63, 120, 120, + 292, 63, 120, 196, 142, 85, 129, 258, 259, 366, + 273, 10, 245, 277, 245, 200, 144, 361, 184, 144, + 44, 124, 44, 95, 143, 357, 360, 97, 97, 203, + 207, 360, 362, 97, 97, 203, 204, 207, 366, 245, + 8, 240, 280, 366, 161, 13, 161, 245, 27, 248, + 364, 245, 278, 211, 245, 52, 56, 205, 52, 56, + 171, 221, 321, 220, 52, 56, 187, 205, 159, 169, + 224, 225, 204, 207, 191, 200, 200, 210, 97, 97, + 362, 97, 97, 351, 169, 363, 182, 362, 52, 54, + 55, 56, 57, 58, 77, 99, 105, 106, 107, 131, + 134, 146, 267, 324, 326, 327, 328, 329, 330, 331, + 332, 333, 336, 337, 338, 339, 342, 343, 344, 345, + 346, 305, 54, 55, 57, 309, 319, 150, 302, 150, + 150, 150, 255, 257, 260, 329, 331, 332, 334, 335, + 338, 340, 341, 344, 346, 360, 161, 142, 258, 105, + 200, 184, 165, 196, 52, 56, 205, 52, 56, 126, + 168, 202, 168, 202, 176, 148, 97, 168, 202, 168, + 202, 176, 200, 213, 281, 366, 9, 15, 241, 243, + 283, 366, 14, 243, 244, 249, 250, 366, 250, 173, + 245, 144, 247, 362, 161, 364, 170, 159, 362, 245, + 361, 146, 322, 323, 189, 272, 269, 97, 144, 361, + 99, 105, 252, 253, 254, 328, 326, 266, 124, 144, + 325, 200, 144, 347, 366, 52, 144, 347, 144, 325, + 52, 144, 325, 52, 306, 260, 129, 124, 144, 256, + 96, 227, 144, 347, 347, 144, 256, 144, 256, 149, + 159, 200, 362, 196, 168, 202, 98, 282, 366, 161, + 160, 161, 170, 245, 245, 200, 161, 245, 159, 364, + 245, 326, 159, 326, 226, 254, 144, 328, 144, 361, + 260, 29, 121, 268, 200, 324, 330, 342, 344, 333, + 338, 346, 331, 339, 344, 329, 331, 307, 129, 227, + 255, 341, 344, 56, 95, 334, 338, 331, 340, 344, + 331, 52, 261, 262, 327, 96, 186, 227, 315, 316, + 319, 247, 161, 247, 250, 278, 279, 245, 361, 245, + 364, 322, 361, 253, 144, 105, 252, 147, 159, 161, + 144, 325, 144, 325, 347, 144, 325, 144, 325, 325, + 308, 144, 256, 144, 256, 52, 56, 347, 144, 256, + 144, 256, 256, 144, 360, 56, 95, 143, 357, 161, + 283, 161, 159, 144, 253, 144, 328, 245, 142, 331, + 344, 331, 331, 161, 331, 344, 331, 331, 262, 52, + 56, 205, 52, 56, 280, 249, 245, 253, 144, 325, + 144, 325, 325, 325, 118, 256, 144, 256, 256, 256, + 362, 253, 331, 331, 325, 256 +}; + + /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */ +static const yytype_uint16 yyr1[] = +{ + 0, 152, 154, 153, 155, 156, 156, 156, 156, 157, + 157, 158, 160, 159, 159, 161, 162, 162, 162, 162, + 163, 164, 163, 166, 165, 165, 165, 165, 165, 165, + 165, 165, 165, 165, 165, 165, 165, 165, 165, 165, + 167, 167, 167, 167, 167, 167, 167, 167, 168, 168, + 168, 169, 169, 169, 169, 169, 169, 170, 172, 173, + 171, 174, 174, 175, 175, 176, 177, 178, 178, 178, + 178, 178, 178, 178, 178, 178, 178, 178, 179, 179, + 180, 180, 181, 181, 181, 181, 181, 181, 181, 181, + 181, 181, 182, 182, 183, 183, 184, 184, 185, 185, + 185, 185, 185, 185, 185, 185, 185, 186, 186, 186, + 186, 186, 186, 186, 186, 186, 187, 187, 188, 188, + 188, 189, 189, 189, 189, 189, 190, 190, 191, 191, + 192, 193, 192, 194, 194, 194, 194, 194, 194, 194, + 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, + 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, + 194, 194, 194, 195, 195, 195, 195, 195, 195, 195, + 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, + 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, + 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, + 195, 195, 195, 195, 196, 196, 196, 196, 196, 196, + 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, + 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, + 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, + 196, 196, 197, 196, 196, 196, 198, 198, 198, 198, + 199, 199, 200, 201, 201, 201, 201, 202, 202, 203, + 204, 204, 205, 205, 205, 205, 205, 206, 206, 206, + 206, 206, 208, 207, 209, 210, 210, 211, 211, 211, + 211, 212, 212, 213, 213, 213, 214, 214, 214, 214, + 214, 214, 214, 214, 214, 214, 214, 215, 214, 216, + 214, 217, 214, 214, 214, 214, 214, 214, 214, 214, + 214, 214, 218, 214, 214, 214, 214, 214, 214, 219, + 214, 214, 214, 214, 214, 214, 214, 214, 220, 214, + 221, 214, 222, 214, 223, 224, 214, 225, 226, 214, + 214, 214, 214, 214, 227, 228, 229, 230, 231, 232, + 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, + 243, 244, 245, 246, 247, 247, 247, 248, 248, 249, + 249, 250, 250, 251, 251, 252, 252, 253, 253, 254, + 254, 254, 254, 254, 254, 254, 254, 254, 255, 255, + 255, 255, 256, 256, 257, 257, 257, 257, 257, 257, + 257, 257, 257, 257, 257, 257, 257, 257, 257, 258, + 258, 259, 259, 259, 260, 260, 261, 261, 262, 262, + 264, 265, 266, 263, 267, 267, 268, 268, 269, 270, + 270, 270, 270, 271, 271, 271, 271, 271, 271, 271, + 271, 271, 272, 272, 274, 273, 276, 277, 275, 278, + 279, 279, 280, 280, 281, 281, 281, 282, 282, 283, + 283, 284, 284, 284, 285, 286, 286, 286, 287, 288, + 289, 290, 291, 291, 292, 292, 293, 294, 294, 295, + 296, 297, 297, 298, 298, 299, 299, 300, 300, 301, + 301, 302, 303, 302, 304, 305, 306, 307, 308, 302, + 309, 309, 309, 309, 310, 311, 311, 311, 311, 312, + 313, 313, 314, 314, 314, 314, 315, 315, 315, 315, + 315, 316, 316, 316, 316, 316, 316, 316, 317, 317, + 318, 318, 319, 319, 321, 320, 320, 322, 323, 322, + 324, 324, 324, 324, 325, 325, 326, 326, 326, 326, + 326, 326, 326, 326, 326, 326, 326, 326, 326, 326, + 326, 327, 327, 327, 327, 328, 328, 329, 330, 330, + 331, 331, 332, 333, 333, 334, 334, 335, 335, 336, + 336, 337, 337, 338, 338, 339, 340, 341, 341, 342, + 342, 343, 343, 344, 344, 345, 345, 346, 347, 347, + 348, 349, 348, 350, 350, 351, 351, 352, 352, 352, + 352, 353, 353, 353, 354, 354, 354, 354, 355, 355, + 355, 356, 356, 357, 357, 358, 358, 359, 359, 360, + 360, 361, 362, 363, 363, 363, 364, 364, 365, 365, + 366 +}; + + /* YYR2[YYN] -- Number of symbols on the right hand side of rule YYN. */ +static const yytype_uint8 yyr2[] = +{ + 0, 2, 0, 2, 2, 1, 1, 3, 2, 1, + 2, 3, 0, 6, 3, 2, 1, 1, 3, 2, + 1, 0, 3, 0, 4, 3, 3, 3, 2, 3, + 3, 3, 3, 3, 4, 1, 3, 3, 3, 1, + 3, 3, 6, 5, 5, 5, 5, 3, 1, 3, + 1, 1, 3, 3, 3, 2, 1, 1, 0, 0, + 4, 1, 1, 1, 4, 3, 1, 2, 3, 4, + 5, 4, 5, 2, 2, 2, 2, 2, 1, 3, + 1, 3, 1, 2, 3, 5, 2, 4, 2, 4, + 1, 3, 1, 3, 2, 3, 1, 3, 1, 1, + 4, 3, 3, 3, 3, 2, 1, 1, 1, 4, + 3, 3, 3, 3, 2, 1, 1, 1, 2, 1, + 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 0, 4, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 3, 3, 6, 5, 5, 5, + 5, 4, 3, 3, 3, 2, 2, 3, 3, 3, + 3, 3, 3, 4, 2, 2, 3, 3, 3, 3, + 1, 3, 3, 3, 3, 3, 2, 2, 3, 3, + 3, 3, 0, 4, 6, 1, 1, 1, 1, 1, + 3, 3, 1, 1, 2, 4, 2, 1, 3, 3, + 1, 1, 1, 1, 2, 4, 2, 1, 2, 2, + 4, 1, 0, 2, 2, 2, 1, 1, 2, 3, + 4, 1, 1, 3, 4, 2, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 0, 4, 0, + 3, 0, 4, 3, 3, 2, 3, 3, 1, 4, + 3, 1, 0, 6, 4, 3, 2, 1, 2, 0, + 3, 6, 6, 4, 4, 5, 4, 6, 0, 6, + 0, 7, 0, 5, 0, 0, 7, 0, 0, 9, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, + 5, 1, 2, 1, 1, 1, 3, 1, 3, 1, + 4, 6, 3, 5, 2, 4, 1, 3, 4, 2, + 2, 1, 2, 0, 6, 8, 4, 6, 4, 2, + 6, 2, 4, 6, 2, 4, 2, 4, 1, 1, + 1, 3, 1, 4, 1, 4, 1, 3, 1, 1, + 0, 0, 0, 5, 4, 1, 3, 3, 3, 2, + 4, 5, 5, 2, 4, 4, 3, 3, 3, 2, + 1, 4, 3, 3, 0, 3, 0, 0, 4, 5, + 1, 1, 6, 1, 1, 1, 1, 2, 1, 2, + 1, 1, 1, 1, 1, 1, 1, 2, 3, 3, + 3, 4, 0, 3, 1, 2, 4, 0, 3, 4, + 4, 0, 3, 0, 3, 0, 2, 0, 2, 0, + 2, 1, 0, 3, 0, 0, 0, 0, 0, 8, + 1, 1, 1, 1, 2, 1, 1, 1, 1, 3, + 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 0, 4, 0, 3, 0, 3, + 4, 2, 2, 1, 2, 0, 6, 8, 4, 6, + 4, 6, 2, 4, 6, 2, 4, 2, 4, 1, + 0, 1, 1, 1, 1, 1, 1, 1, 1, 3, + 1, 3, 1, 2, 1, 2, 1, 1, 3, 1, + 3, 1, 1, 2, 1, 3, 3, 1, 3, 1, + 3, 1, 1, 2, 1, 1, 1, 2, 2, 1, + 1, 0, 4, 1, 2, 1, 3, 3, 2, 4, + 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, + 1, 2, 2, 0, 1, 1, 1, 1, 1, 2, + 0 +}; + + +#define yyerrok (yyerrstatus = 0) +#define yyclearin (yychar = YYEMPTY) +#define YYEMPTY (-2) +#define YYEOF 0 + +#define YYACCEPT goto yyacceptlab +#define YYABORT goto yyabortlab +#define YYERROR goto yyerrorlab + + +#define YYRECOVERING() (!!yyerrstatus) + +#define YYBACKUP(Token, Value) \ + do \ + if (yychar == YYEMPTY) \ + { \ + yychar = (Token); \ + yylval = (Value); \ + YYPOPSTACK (yylen); \ + yystate = *yyssp; \ + goto yybackup; \ + } \ + else \ + { \ + yyerror (&yylloc, p, YY_("syntax error: cannot back up")); \ + YYERROR; \ + } \ + while (0) + +/* Error token number */ +#define YYTERROR 1 +#define YYERRCODE 256 + + +/* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N]. + If N is 0, then set CURRENT to the empty location which ends + the previous symbol: RHS[0] (always defined). */ + +#ifndef YYLLOC_DEFAULT +# define YYLLOC_DEFAULT(Current, Rhs, N) \ + do \ + if (N) \ + { \ + (Current).first_line = YYRHSLOC (Rhs, 1).first_line; \ + (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \ + (Current).last_line = YYRHSLOC (Rhs, N).last_line; \ + (Current).last_column = YYRHSLOC (Rhs, N).last_column; \ + } \ + else \ + { \ + (Current).first_line = (Current).last_line = \ + YYRHSLOC (Rhs, 0).last_line; \ + (Current).first_column = (Current).last_column = \ + YYRHSLOC (Rhs, 0).last_column; \ + } \ + while (0) +#endif + +#define YYRHSLOC(Rhs, K) ((Rhs)[K]) + + +/* Enable debugging if requested. */ +#if YYDEBUG + +# ifndef YYFPRINTF +# include <stdio.h> /* INFRINGES ON USER NAME SPACE */ +# define YYFPRINTF fprintf +# endif + +# define YYDPRINTF(Args) \ +do { \ + if (yydebug) \ + YYFPRINTF Args; \ +} while (0) + + +/* YY_LOCATION_PRINT -- Print the location on the stream. + This macro was not mandated originally: define only if we know + we won't break user code: when these are the locations we know. */ + +#ifndef YY_LOCATION_PRINT +# if defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL + +/* Print *YYLOCP on YYO. Private, do not rely on its existence. */ + +YY_ATTRIBUTE_UNUSED +static int +yy_location_print_ (FILE *yyo, YYLTYPE const * const yylocp) +{ + int res = 0; + int end_col = 0 != yylocp->last_column ? yylocp->last_column - 1 : 0; + if (0 <= yylocp->first_line) + { + res += YYFPRINTF (p, "%d", yylocp->first_line); + if (0 <= yylocp->first_column) + res += YYFPRINTF (p, ".%d", yylocp->first_column); + } + if (0 <= yylocp->last_line) + { + if (yylocp->first_line < yylocp->last_line) + { + res += YYFPRINTF (p, "-%d", yylocp->last_line); + if (0 <= end_col) + res += YYFPRINTF (p, ".%d", end_col); + } + else if (0 <= end_col && yylocp->first_column < end_col) + res += YYFPRINTF (p, "-%d", end_col); + } + return res; + } + +# define YY_LOCATION_PRINT(File, Loc) \ + yy_location_print_ (File, &(Loc)) + +# else +# define YY_LOCATION_PRINT(File, Loc) ((void) 0) +# endif +#endif + + +# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \ +do { \ + if (yydebug) \ + { \ + YYFPRINTF (p, "%s ", Title); \ + yy_symbol_print (stderr, \ + Type, Value, Location, p); \ + YYFPRINTF (p, "\n"); \ + } \ +} while (0) + + +/*-----------------------------------. +| Print this symbol's value on YYO. | +`-----------------------------------*/ + +static void +yy_symbol_value_print (FILE *yyo, int yytype, YYSTYPE const * const yyvaluep, YYLTYPE const * const yylocationp, struct parser_params *p) +{ + FILE *yyoutput = yyo; + YYUSE (yyoutput); + YYUSE (yylocationp); + YYUSE (p); + if (!yyvaluep) + return; +# ifdef YYPRINT + if (yytype < YYNTOKENS) + YYPRINT (yyo, yytoknum[yytype], *yyvaluep); +# endif + YYUSE (yytype); +} + + +/*---------------------------. +| Print this symbol on YYO. | +`---------------------------*/ + +static void +yy_symbol_print (FILE *yyo, int yytype, YYSTYPE const * const yyvaluep, YYLTYPE const * const yylocationp, struct parser_params *p) +{ + YYFPRINTF (p, "%s %s (", + yytype < YYNTOKENS ? "token" : "nterm", yytname[yytype]); + + YY_LOCATION_PRINT (yyo, *yylocationp); + YYFPRINTF (p, ": "); + yy_symbol_value_print (yyo, yytype, yyvaluep, yylocationp, p); + YYFPRINTF (p, ")"); +} + +/*------------------------------------------------------------------. +| yy_stack_print -- Print the state stack from its BOTTOM up to its | +| TOP (included). | +`------------------------------------------------------------------*/ + +static void +ruby_parser_yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop, struct parser_params *p) +#define yy_stack_print(b, t) ruby_parser_yy_stack_print(b, t, p) +{ + YYFPRINTF (p, "Stack now"); + for (; yybottom <= yytop; yybottom++) + { + int yybot = *yybottom; + YYFPRINTF (p, " %d", yybot); + } + YYFPRINTF (p, "\n"); +} + +# define YY_STACK_PRINT(Bottom, Top) \ +do { \ + if (yydebug) \ + yy_stack_print ((Bottom), (Top)); \ +} while (0) + + +/*------------------------------------------------. +| Report that the YYRULE is going to be reduced. | +`------------------------------------------------*/ + +static void +yy_reduce_print (yytype_int16 *yyssp, YYSTYPE *yyvsp, YYLTYPE *yylsp, int yyrule, struct parser_params *p) +{ + unsigned long yylno = yyrline[yyrule]; + int yynrhs = yyr2[yyrule]; + int yyi; + YYFPRINTF (p, "Reducing stack by rule %d (line %lu):\n", + yyrule - 1, yylno); + /* The symbols being reduced. */ + for (yyi = 0; yyi < yynrhs; yyi++) + { + YYFPRINTF (p, " $%d = ", yyi + 1); + yy_symbol_print (stderr, + yystos[yyssp[yyi + 1 - yynrhs]], + &yyvsp[(yyi + 1) - (yynrhs)] + , &(yylsp[(yyi + 1) - (yynrhs)]) , p); + YYFPRINTF (p, "\n"); + } +} + +# define YY_REDUCE_PRINT(Rule) \ +do { \ + if (yydebug) \ + yy_reduce_print (yyssp, yyvsp, yylsp, Rule, p); \ +} while (0) + +/* Nonzero means print parse trace. It is left uninitialized so that + multiple parsers can coexist. */ +#ifndef yydebug +int yydebug; +#endif +#else /* !YYDEBUG */ +# define YYDPRINTF(Args) +# define YY_SYMBOL_PRINT(Title, Type, Value, Location) +# define YY_STACK_PRINT(Bottom, Top) +# define YY_REDUCE_PRINT(Rule) +#endif /* !YYDEBUG */ + + +/* YYINITDEPTH -- initial size of the parser's stacks. */ +#ifndef YYINITDEPTH +# define YYINITDEPTH 200 +#endif + +/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only + if the built-in stack extension method is used). + + Do not make this value too large; the results are undefined if + YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH) + evaluated with infinite-precision integer arithmetic. */ + +#ifndef YYMAXDEPTH +# define YYMAXDEPTH 10000 +#endif + + +#if YYERROR_VERBOSE + +# ifndef yystrlen +# if defined __GLIBC__ && defined _STRING_H +# define yystrlen strlen +# else +/* Return the length of YYSTR. */ +static YYSIZE_T +yystrlen (const char *yystr) +{ + YYSIZE_T yylen; + for (yylen = 0; yystr[yylen]; yylen++) + continue; + return yylen; +} +# endif +# endif + +# ifndef yystpcpy +# if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE +# define yystpcpy stpcpy +# else +/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in + YYDEST. */ +static char * +yystpcpy (char *yydest, const char *yysrc) +{ + char *yyd = yydest; + const char *yys = yysrc; + + while ((*yyd++ = *yys++) != '\0') + continue; + + return yyd - 1; +} +# endif +# endif + +# ifndef yytnamerr +/* Copy to YYRES the contents of YYSTR after stripping away unnecessary + quotes and backslashes, so that it's suitable for yyerror. The + heuristic is that double-quoting is unnecessary unless the string + contains an apostrophe, a comma, or backslash (other than + backslash-backslash). YYSTR is taken from yytname. If YYRES is + null, do not copy; instead, return the length of what the result + would have been. */ +static YYSIZE_T +yytnamerr (char *yyres, const char *yystr) +{ + if (*yystr == '"') + { + YYSIZE_T yyn = 0; + char const *yyp = yystr; + + for (;;) + switch (*++yyp) + { + case '\'': + case ',': + goto do_not_strip_quotes; + + case '\\': + if (*++yyp != '\\') + goto do_not_strip_quotes; + else + goto append; + + append: + default: + if (yyres) + yyres[yyn] = *yyp; + yyn++; + break; + + case '"': + if (yyres) + yyres[yyn] = '\0'; + return yyn; + } + do_not_strip_quotes: ; + } + + if (! yyres) + return yystrlen (yystr); + + return (YYSIZE_T) (yystpcpy (yyres, yystr) - yyres); +} +# endif + +/* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message + about the unexpected token YYTOKEN for the state stack whose top is + YYSSP. + + Return 0 if *YYMSG was successfully written. Return 1 if *YYMSG is + not large enough to hold the message. In that case, also set + *YYMSG_ALLOC to the required number of bytes. Return 2 if the + required number of bytes is too large to store. */ +static int +yysyntax_error (YYSIZE_T *yymsg_alloc, char **yymsg, + yytype_int16 *yyssp, int yytoken) +{ + YYSIZE_T yysize0 = yytnamerr (YY_NULLPTR, yytname[yytoken]); + YYSIZE_T yysize = yysize0; + enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 }; + /* Internationalized format string. */ + const char *yyformat = YY_NULLPTR; + /* Arguments of yyformat. */ + char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM]; + /* Number of reported tokens (one for the "unexpected", one per + "expected"). */ + int yycount = 0; + + /* There are many possibilities here to consider: + - If this state is a consistent state with a default action, then + the only way this function was invoked is if the default action + is an error action. In that case, don't check for expected + tokens because there are none. + - The only way there can be no lookahead present (in yychar) is if + this state is a consistent state with a default action. Thus, + detecting the absence of a lookahead is sufficient to determine + that there is no unexpected or expected token to report. In that + case, just report a simple "syntax error". + - Don't assume there isn't a lookahead just because this state is a + consistent state with a default action. There might have been a + previous inconsistent state, consistent state with a non-default + action, or user semantic action that manipulated yychar. + - Of course, the expected token list depends on states to have + correct lookahead information, and it depends on the parser not + to perform extra reductions after fetching a lookahead from the + scanner and before detecting a syntax error. Thus, state merging + (from LALR or IELR) and default reductions corrupt the expected + token list. However, the list is correct for canonical LR with + one exception: it will still contain any token that will not be + accepted due to an error action in a later state. + */ + if (yytoken != YYEMPTY) + { + int yyn = yypact[*yyssp]; + yyarg[yycount++] = yytname[yytoken]; + if (!yypact_value_is_default (yyn)) + { + /* Start YYX at -YYN if negative to avoid negative indexes in + YYCHECK. In other words, skip the first -YYN actions for + this state because they are default actions. */ + int yyxbegin = yyn < 0 ? -yyn : 0; + /* Stay within bounds of both yycheck and yytname. */ + int yychecklim = YYLAST - yyn + 1; + int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS; + int yyx; + + for (yyx = yyxbegin; yyx < yyxend; ++yyx) + if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR + && !yytable_value_is_error (yytable[yyx + yyn])) + { + if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM) + { + yycount = 1; + yysize = yysize0; + break; + } + yyarg[yycount++] = yytname[yyx]; + { + YYSIZE_T yysize1 = yysize + yytnamerr (YY_NULLPTR, yytname[yyx]); + if (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM) + yysize = yysize1; + else + return 2; + } + } + } + } + + switch (yycount) + { +# define YYCASE_(N, S) \ + case N: \ + yyformat = S; \ + break + default: /* Avoid compiler warnings. */ + YYCASE_(0, YY_("syntax error")); + YYCASE_(1, YY_("syntax error, unexpected %s")); + YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s")); + YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s")); + YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s")); + YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s")); +# undef YYCASE_ + } + + { + YYSIZE_T yysize1 = yysize + yystrlen (yyformat); + if (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM) + yysize = yysize1; + else + return 2; + } + + if (*yymsg_alloc < yysize) + { + *yymsg_alloc = 2 * yysize; + if (! (yysize <= *yymsg_alloc + && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM)) + *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM; + return 1; + } + + /* Avoid sprintf, as that infringes on the user's name space. + Don't have undefined behavior even if the translation + produced a string with the wrong number of "%s"s. */ + { + char *yyp = *yymsg; + int yyi = 0; + while ((*yyp = *yyformat) != '\0') + if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount) + { + yyp += yytnamerr (yyp, yyarg[yyi++]); + yyformat += 2; + } + else + { + yyp++; + yyformat++; + } + } + return 0; +} +#endif /* YYERROR_VERBOSE */ + +/*-----------------------------------------------. +| Release the memory associated to this symbol. | +`-----------------------------------------------*/ + +static void +yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep, YYLTYPE *yylocationp, struct parser_params *p) +{ + YYUSE (yyvaluep); + YYUSE (yylocationp); + YYUSE (p); + if (!yymsg) + yymsg = "Deleting"; + YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); + + YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN + YYUSE (yytype); + YY_IGNORE_MAYBE_UNINITIALIZED_END +} + + + + +/*----------. +| yyparse. | +`----------*/ + +int +yyparse (struct parser_params *p) +{ +/* The lookahead symbol. */ +int yychar; + + +/* The semantic value of the lookahead symbol. */ +/* Default value used for initialization, for pacifying older GCCs + or non-GCC compilers. */ +YY_INITIAL_VALUE (static YYSTYPE yyval_default;) +YYSTYPE yylval YY_INITIAL_VALUE (= yyval_default); + +/* Location data for the lookahead symbol. */ +static YYLTYPE yyloc_default +# if defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL + = { 1, 1, 1, 1 } +# endif +; +YYLTYPE yylloc = yyloc_default; + + /* Number of syntax errors so far. */ + int yynerrs; + + int yystate; + /* Number of tokens to shift before error messages enabled. */ + int yyerrstatus; + + /* The stacks and their tools: + 'yyss': related to states. + 'yyvs': related to semantic values. + 'yyls': related to locations. + + Refer to the stacks through separate pointers, to allow yyoverflow + to reallocate them elsewhere. */ + + /* The state stack. */ + yytype_int16 yyssa[YYINITDEPTH]; + yytype_int16 *yyss; + yytype_int16 *yyssp; + + /* The semantic value stack. */ + YYSTYPE yyvsa[YYINITDEPTH]; + YYSTYPE *yyvs; + YYSTYPE *yyvsp; + + /* The location stack. */ + YYLTYPE yylsa[YYINITDEPTH]; + YYLTYPE *yyls; + YYLTYPE *yylsp; + + /* The locations where the error started and ended. */ + YYLTYPE yyerror_range[3]; + + YYSIZE_T yystacksize; + + int yyn; + int yyresult; + /* Lookahead token as an internal (translated) token number. */ + int yytoken = 0; + /* The variables used to return semantic value and location from the + action routines. */ + YYSTYPE yyval; + YYLTYPE yyloc; + +#if YYERROR_VERBOSE + /* Buffer for error messages, and its allocated size. */ + char yymsgbuf[128]; + char *yymsg = yymsgbuf; + YYSIZE_T yymsg_alloc = sizeof yymsgbuf; +#endif + +#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N), yylsp -= (N)) + + /* The number of symbols on the RHS of the reduced rule. + Keep to zero when no symbol should be popped. */ + int yylen = 0; + + yyssp = yyss = yyssa; + yyvsp = yyvs = yyvsa; + yylsp = yyls = yylsa; + yystacksize = YYINITDEPTH; + + YYDPRINTF ((p, "Starting parse\n")); + + yystate = 0; + yyerrstatus = 0; + yynerrs = 0; + yychar = YYEMPTY; /* Cause a token to be read. */ + +/* User initialization code. */ +#line 765 "parse.y" /* yacc.c:1431 */ +{ + RUBY_SET_YYLLOC_OF_NONE(yylloc); +} + +#line 5161 "parse.c" /* yacc.c:1431 */ + yylsp[0] = yylloc; + goto yysetstate; + + +/*------------------------------------------------------------. +| yynewstate -- push a new state, which is found in yystate. | +`------------------------------------------------------------*/ +yynewstate: + /* In all cases, when you get here, the value and location stacks + have just been pushed. So pushing a state here evens the stacks. */ + yyssp++; + + +/*--------------------------------------------------------------------. +| yynewstate -- set current state (the top of the stack) to yystate. | +`--------------------------------------------------------------------*/ +yysetstate: + *yyssp = (yytype_int16) yystate; + + if (yyss + yystacksize - 1 <= yyssp) +#if !defined yyoverflow && !defined YYSTACK_RELOCATE + goto yyexhaustedlab; +#else + { + /* Get the current used size of the three stacks, in elements. */ + YYSIZE_T yysize = (YYSIZE_T) (yyssp - yyss + 1); + +# if defined yyoverflow + { + /* Give user a chance to reallocate the stack. Use copies of + these so that the &'s don't force the real ones into + memory. */ + YYSTYPE *yyvs1 = yyvs; + yytype_int16 *yyss1 = yyss; + YYLTYPE *yyls1 = yyls; + + /* Each stack pointer address is followed by the size of the + data in use in that stack, in bytes. This used to be a + conditional around just the two extra args, but that might + be undefined if yyoverflow is a macro. */ + yyoverflow (YY_("memory exhausted"), + &yyss1, yysize * sizeof (*yyssp), + &yyvs1, yysize * sizeof (*yyvsp), + &yyls1, yysize * sizeof (*yylsp), + &yystacksize); + yyss = yyss1; + yyvs = yyvs1; + yyls = yyls1; + } +# else /* defined YYSTACK_RELOCATE */ + /* Extend the stack our own way. */ + if (YYMAXDEPTH <= yystacksize) + goto yyexhaustedlab; + yystacksize *= 2; + if (YYMAXDEPTH < yystacksize) + yystacksize = YYMAXDEPTH; + + { + yytype_int16 *yyss1 = yyss; + union yyalloc *yyptr = + (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); + if (! yyptr) + goto yyexhaustedlab; + YYSTACK_RELOCATE (yyss_alloc, yyss); + YYSTACK_RELOCATE (yyvs_alloc, yyvs); + YYSTACK_RELOCATE (yyls_alloc, yyls); +# undef YYSTACK_RELOCATE + if (yyss1 != yyssa) + YYSTACK_FREE (yyss1); + } +# endif + + yyssp = yyss + yysize - 1; + yyvsp = yyvs + yysize - 1; + yylsp = yyls + yysize - 1; + + YYDPRINTF ((p, "Stack size increased to %lu\n", + (unsigned long) yystacksize)); + + if (yyss + yystacksize - 1 <= yyssp) + YYABORT; + } +#endif /* !defined yyoverflow && !defined YYSTACK_RELOCATE */ + + YYDPRINTF ((p, "Entering state %d\n", yystate)); + + if (yystate == YYFINAL) + YYACCEPT; + + goto yybackup; + + +/*-----------. +| yybackup. | +`-----------*/ +yybackup: + /* Do appropriate processing given the current state. Read a + lookahead token if we need one and don't already have one. */ + + /* First try to decide what to do without reference to lookahead token. */ + yyn = yypact[yystate]; + if (yypact_value_is_default (yyn)) + goto yydefault; + + /* Not known => get a lookahead token if don't already have one. */ + + /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */ + if (yychar == YYEMPTY) + { + YYDPRINTF ((p, "Reading a token: ")); + yychar = yylex (&yylval, &yylloc, p); + } + + if (yychar <= YYEOF) + { + yychar = yytoken = YYEOF; + YYDPRINTF ((p, "Now at end of input.\n")); + } + else + { + yytoken = YYTRANSLATE (yychar); + YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc); + } + + /* If the proper action on seeing token YYTOKEN is to reduce or to + detect an error, take that action. */ + yyn += yytoken; + if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken) + goto yydefault; + yyn = yytable[yyn]; + if (yyn <= 0) + { + if (yytable_value_is_error (yyn)) + goto yyerrlab; + yyn = -yyn; + goto yyreduce; + } + + /* Count tokens shifted since error; after three, turn off error + status. */ + if (yyerrstatus) + yyerrstatus--; + + /* Shift the lookahead token. */ + YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc); + + /* Discard the shifted token. */ + yychar = YYEMPTY; + + yystate = yyn; + YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN + *++yyvsp = yylval; + YY_IGNORE_MAYBE_UNINITIALIZED_END + *++yylsp = yylloc; + goto yynewstate; + + +/*-----------------------------------------------------------. +| yydefault -- do the default action for the current state. | +`-----------------------------------------------------------*/ +yydefault: + yyn = yydefact[yystate]; + if (yyn == 0) + goto yyerrlab; + goto yyreduce; + + +/*-----------------------------. +| yyreduce -- do a reduction. | +`-----------------------------*/ +yyreduce: + /* yyn is the number of a rule to reduce with. */ + yylen = yyr2[yyn]; + + /* If YYLEN is nonzero, implement the default value of the action: + '$$ = $1'. + + Otherwise, the following line sets YYVAL to garbage. + This behavior is undocumented and Bison + users should not rely upon it. Assigning to YYVAL + unconditionally makes the parser a bit smaller, and it avoids a + GCC warning that YYVAL may be used uninitialized. */ + yyval = yyvsp[1-yylen]; + + /* Default location. */ + YYLLOC_DEFAULT (yyloc, (yylsp - yylen), yylen); + yyerror_range[1] = yyloc; + YY_REDUCE_PRINT (yyn); + switch (yyn) + { + case 2: +#line 936 "parse.y" /* yacc.c:1652 */ + { + SET_LEX_STATE(EXPR_BEG); + local_push(p, ifndef_ripper(1)+0); + } +#line 5358 "parse.c" /* yacc.c:1652 */ + break; + + case 3: +#line 941 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + if ((yyvsp[0].node) && !compile_for_eval) { + NODE *node = (yyvsp[0].node); + /* last expression should not be void */ + if (nd_type(node) == NODE_BLOCK) { + while (node->nd_next) { + node = node->nd_next; + } + node = node->nd_head; + } + node = remove_begin(node); + void_expr(p, node); + } + p->eval_tree = NEW_SCOPE(0, block_append(p, p->eval_tree, (yyvsp[0].node)), &(yyloc)); + /*% %*/ + /*% ripper[final]: program!($2) %*/ + local_pop(p); + } +#line 5382 "parse.c" /* yacc.c:1652 */ + break; + + case 4: +#line 963 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = void_stmts(p, (yyvsp[-1].node)); + } +#line 5390 "parse.c" /* yacc.c:1652 */ + break; + + case 5: +#line 969 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_BEGIN(0, &(yyloc)); + /*% %*/ + /*% ripper: stmts_add!(stmts_new!, void_stmt!) %*/ + } +#line 5401 "parse.c" /* yacc.c:1652 */ + break; + + case 6: +#line 976 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = newline_node((yyvsp[0].node)); + /*% %*/ + /*% ripper: stmts_add!(stmts_new!, $1) %*/ + } +#line 5412 "parse.c" /* yacc.c:1652 */ + break; + + case 7: +#line 983 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = block_append(p, (yyvsp[-2].node), newline_node((yyvsp[0].node))); + /*% %*/ + /*% ripper: stmts_add!($1, $3) %*/ + } +#line 5423 "parse.c" /* yacc.c:1652 */ + break; + + case 8: +#line 990 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = remove_begin((yyvsp[0].node)); + } +#line 5431 "parse.c" /* yacc.c:1652 */ + break; + + case 10: +#line 997 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = (yyvsp[0].node); + } +#line 5439 "parse.c" /* yacc.c:1652 */ + break; + + case 11: +#line 1003 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + p->eval_tree_begin = block_append(p, p->eval_tree_begin, + NEW_BEGIN((yyvsp[-1].node), &(yyloc))); + (yyval.node) = NEW_BEGIN(0, &(yyloc)); + /*% %*/ + /*% ripper: BEGIN!($2) %*/ + } +#line 5452 "parse.c" /* yacc.c:1652 */ + break; + + case 12: +#line 1015 "parse.y" /* yacc.c:1652 */ + {if (!(yyvsp[-1].node)) {yyerror1(&(yylsp[0]), "else without rescue is useless");}} +#line 5458 "parse.c" /* yacc.c:1652 */ + break; + + case 13: +#line 1018 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_bodystmt(p, (yyvsp[-5].node), (yyvsp[-4].node), (yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: bodystmt!(escape_Qundef($1), escape_Qundef($2), escape_Qundef($5), escape_Qundef($6)) %*/ + } +#line 5469 "parse.c" /* yacc.c:1652 */ + break; + + case 14: +#line 1027 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_bodystmt(p, (yyvsp[-2].node), (yyvsp[-1].node), 0, (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: bodystmt!(escape_Qundef($1), escape_Qundef($2), Qnil, escape_Qundef($3)) %*/ + } +#line 5480 "parse.c" /* yacc.c:1652 */ + break; + + case 15: +#line 1036 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = void_stmts(p, (yyvsp[-1].node)); + } +#line 5488 "parse.c" /* yacc.c:1652 */ + break; + + case 16: +#line 1042 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_BEGIN(0, &(yyloc)); + /*% %*/ + /*% ripper: stmts_add!(stmts_new!, void_stmt!) %*/ + } +#line 5499 "parse.c" /* yacc.c:1652 */ + break; + + case 17: +#line 1049 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = newline_node((yyvsp[0].node)); + /*% %*/ + /*% ripper: stmts_add!(stmts_new!, $1) %*/ + } +#line 5510 "parse.c" /* yacc.c:1652 */ + break; + + case 18: +#line 1056 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = block_append(p, (yyvsp[-2].node), newline_node((yyvsp[0].node))); + /*% %*/ + /*% ripper: stmts_add!($1, $3) %*/ + } +#line 5521 "parse.c" /* yacc.c:1652 */ + break; + + case 19: +#line 1063 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = remove_begin((yyvsp[0].node)); + } +#line 5529 "parse.c" /* yacc.c:1652 */ + break; + + case 20: +#line 1069 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = (yyvsp[0].node); + } +#line 5537 "parse.c" /* yacc.c:1652 */ + break; + + case 21: +#line 1073 "parse.y" /* yacc.c:1652 */ + { + yyerror1(&(yylsp[0]), "BEGIN is permitted only at toplevel"); + } +#line 5545 "parse.c" /* yacc.c:1652 */ + break; + + case 22: +#line 1077 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = (yyvsp[0].node); + } +#line 5553 "parse.c" /* yacc.c:1652 */ + break; + + case 23: +#line 1081 "parse.y" /* yacc.c:1652 */ + {SET_LEX_STATE(EXPR_FNAME|EXPR_FITEM);} +#line 5559 "parse.c" /* yacc.c:1652 */ + break; + + case 24: +#line 1082 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_ALIAS((yyvsp[-2].node), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: alias!($2, $4) %*/ + } +#line 5570 "parse.c" /* yacc.c:1652 */ + break; + + case 25: +#line 1089 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_VALIAS((yyvsp[-1].id), (yyvsp[0].id), &(yyloc)); + /*% %*/ + /*% ripper: var_alias!($2, $3) %*/ + } +#line 5581 "parse.c" /* yacc.c:1652 */ + break; + + case 26: +#line 1096 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + char buf[2]; + buf[0] = '$'; + buf[1] = (char)(yyvsp[0].node)->nd_nth; + (yyval.node) = NEW_VALIAS((yyvsp[-1].id), rb_intern2(buf, 2), &(yyloc)); + /*% %*/ + /*% ripper: var_alias!($2, $3) %*/ + } +#line 5595 "parse.c" /* yacc.c:1652 */ + break; + + case 27: +#line 1106 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + yyerror1(&(yylsp[0]), "can't make alias for the number variables"); + (yyval.node) = NEW_BEGIN(0, &(yyloc)); + /*% %*/ + /*% ripper[error]: alias_error!(var_alias!($2, $3)) %*/ + } +#line 5607 "parse.c" /* yacc.c:1652 */ + break; + + case 28: +#line 1114 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[0].node); + /*% %*/ + /*% ripper: undef!($2) %*/ + } +#line 5618 "parse.c" /* yacc.c:1652 */ + break; + + case 29: +#line 1121 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_if(p, (yyvsp[0].node), remove_begin((yyvsp[-2].node)), 0, &(yyloc)); + fixpos((yyval.node), (yyvsp[0].node)); + /*% %*/ + /*% ripper: if_mod!($3, $1) %*/ + } +#line 5630 "parse.c" /* yacc.c:1652 */ + break; + + case 30: +#line 1129 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_unless(p, (yyvsp[0].node), remove_begin((yyvsp[-2].node)), 0, &(yyloc)); + fixpos((yyval.node), (yyvsp[0].node)); + /*% %*/ + /*% ripper: unless_mod!($3, $1) %*/ + } +#line 5642 "parse.c" /* yacc.c:1652 */ + break; + + case 31: +#line 1137 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + if ((yyvsp[-2].node) && nd_type((yyvsp[-2].node)) == NODE_BEGIN) { + (yyval.node) = NEW_WHILE(cond(p, (yyvsp[0].node), &(yylsp[0])), (yyvsp[-2].node)->nd_body, 0, &(yyloc)); + } + else { + (yyval.node) = NEW_WHILE(cond(p, (yyvsp[0].node), &(yylsp[0])), (yyvsp[-2].node), 1, &(yyloc)); + } + /*% %*/ + /*% ripper: while_mod!($3, $1) %*/ + } +#line 5658 "parse.c" /* yacc.c:1652 */ + break; + + case 32: +#line 1149 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + if ((yyvsp[-2].node) && nd_type((yyvsp[-2].node)) == NODE_BEGIN) { + (yyval.node) = NEW_UNTIL(cond(p, (yyvsp[0].node), &(yylsp[0])), (yyvsp[-2].node)->nd_body, 0, &(yyloc)); + } + else { + (yyval.node) = NEW_UNTIL(cond(p, (yyvsp[0].node), &(yylsp[0])), (yyvsp[-2].node), 1, &(yyloc)); + } + /*% %*/ + /*% ripper: until_mod!($3, $1) %*/ + } +#line 5674 "parse.c" /* yacc.c:1652 */ + break; + + case 33: +#line 1161 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + NODE *resq; + YYLTYPE loc = code_loc_gen(&(yylsp[-1]), &(yylsp[0])); + resq = NEW_RESBODY(0, remove_begin((yyvsp[0].node)), 0, &loc); + (yyval.node) = NEW_RESCUE(remove_begin((yyvsp[-2].node)), resq, 0, &(yyloc)); + /*% %*/ + /*% ripper: rescue_mod!($1, $3) %*/ + } +#line 5688 "parse.c" /* yacc.c:1652 */ + break; + + case 34: +#line 1171 "parse.y" /* yacc.c:1652 */ + { + if (p->in_def) { + rb_warn0("END in method; use at_exit"); + } + /*%%%*/ + { + NODE *scope = NEW_NODE( + NODE_SCOPE, 0 /* tbl */, (yyvsp[-1].node) /* body */, 0 /* args */, &(yyloc)); + (yyval.node) = NEW_POSTEXE(scope, &(yyloc)); + } + /*% %*/ + /*% ripper: END!($3) %*/ + } +#line 5706 "parse.c" /* yacc.c:1652 */ + break; + + case 36: +#line 1186 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + value_expr((yyvsp[0].node)); + (yyval.node) = node_assign(p, (yyvsp[-2].node), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: massign!($1, $3) %*/ + } +#line 5718 "parse.c" /* yacc.c:1652 */ + break; + + case 37: +#line 1194 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + value_expr((yyvsp[0].node)); + (yyval.node) = node_assign(p, (yyvsp[-2].node), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: assign!($1, $3) %*/ + } +#line 5730 "parse.c" /* yacc.c:1652 */ + break; + + case 38: +#line 1202 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = node_assign(p, (yyvsp[-2].node), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: massign!($1, $3) %*/ + } +#line 5741 "parse.c" /* yacc.c:1652 */ + break; + + case 40: +#line 1212 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + value_expr((yyvsp[0].node)); + (yyval.node) = node_assign(p, (yyvsp[-2].node), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: assign!($1, $3) %*/ + } +#line 5753 "parse.c" /* yacc.c:1652 */ + break; + + case 41: +#line 1220 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + value_expr((yyvsp[0].node)); + (yyval.node) = new_op_assign(p, (yyvsp[-2].node), (yyvsp[-1].id), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: opassign!($1, $2, $3) %*/ + } +#line 5765 "parse.c" /* yacc.c:1652 */ + break; + + case 42: +#line 1228 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + value_expr((yyvsp[0].node)); + (yyval.node) = new_ary_op_assign(p, (yyvsp[-5].node), (yyvsp[-3].node), (yyvsp[-1].id), (yyvsp[0].node), &(yylsp[-3]), &(yyloc)); + /*% %*/ + /*% ripper: opassign!(aref_field!($1, escape_Qundef($3)), $5, $6) %*/ + + } +#line 5778 "parse.c" /* yacc.c:1652 */ + break; + + case 43: +#line 1237 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + value_expr((yyvsp[0].node)); + (yyval.node) = new_attr_op_assign(p, (yyvsp[-4].node), (yyvsp[-3].id), (yyvsp[-2].id), (yyvsp[-1].id), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: opassign!(field!($1, $2, $3), $4, $5) %*/ + } +#line 5790 "parse.c" /* yacc.c:1652 */ + break; + + case 44: +#line 1245 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + value_expr((yyvsp[0].node)); + (yyval.node) = new_attr_op_assign(p, (yyvsp[-4].node), (yyvsp[-3].id), (yyvsp[-2].id), (yyvsp[-1].id), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: opassign!(field!($1, $2, $3), $4, $5) %*/ + } +#line 5802 "parse.c" /* yacc.c:1652 */ + break; + + case 45: +#line 1253 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + YYLTYPE loc = code_loc_gen(&(yylsp[-4]), &(yylsp[-2])); + (yyval.node) = new_const_op_assign(p, NEW_COLON2((yyvsp[-4].node), (yyvsp[-2].id), &loc), (yyvsp[-1].id), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: opassign!(const_path_field!($1, $3), $4, $5) %*/ + } +#line 5814 "parse.c" /* yacc.c:1652 */ + break; + + case 46: +#line 1261 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + value_expr((yyvsp[0].node)); + (yyval.node) = new_attr_op_assign(p, (yyvsp[-4].node), ID2VAL(idCOLON2), (yyvsp[-2].id), (yyvsp[-1].id), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: opassign!(field!($1, ID2VAL(idCOLON2), $3), $4, $5) %*/ + } +#line 5826 "parse.c" /* yacc.c:1652 */ + break; + + case 47: +#line 1269 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + rb_backref_error(p, (yyvsp[-2].node)); + (yyval.node) = NEW_BEGIN(0, &(yyloc)); + /*% %*/ + /*% ripper[error]: assign_error!(assign!(var_field(p, $1), $3)) %*/ + } +#line 5838 "parse.c" /* yacc.c:1652 */ + break; + + case 48: +#line 1279 "parse.y" /* yacc.c:1652 */ + { + value_expr((yyvsp[0].node)); + (yyval.node) = (yyvsp[0].node); + } +#line 5847 "parse.c" /* yacc.c:1652 */ + break; + + case 49: +#line 1284 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + YYLTYPE loc = code_loc_gen(&(yylsp[-1]), &(yylsp[0])); + value_expr((yyvsp[-2].node)); + (yyval.node) = NEW_RESCUE((yyvsp[-2].node), NEW_RESBODY(0, remove_begin((yyvsp[0].node)), 0, &loc), 0, &(yyloc)); + /*% %*/ + /*% ripper: rescue_mod!($1, $3) %*/ + } +#line 5860 "parse.c" /* yacc.c:1652 */ + break; + + case 52: +#line 1297 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = logop(p, idAND, (yyvsp[-2].node), (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 5868 "parse.c" /* yacc.c:1652 */ + break; + + case 53: +#line 1301 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = logop(p, idOR, (yyvsp[-2].node), (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 5876 "parse.c" /* yacc.c:1652 */ + break; + + case 54: +#line 1305 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_uni_op(p, method_cond(p, (yyvsp[0].node), &(yylsp[0])), METHOD_NOT, &(yylsp[-2]), &(yyloc)); + } +#line 5884 "parse.c" /* yacc.c:1652 */ + break; + + case 55: +#line 1309 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_uni_op(p, method_cond(p, (yyvsp[0].node), &(yylsp[0])), '!', &(yylsp[-1]), &(yyloc)); + } +#line 5892 "parse.c" /* yacc.c:1652 */ + break; + + case 57: +#line 1316 "parse.y" /* yacc.c:1652 */ + { + value_expr((yyvsp[0].node)); + (yyval.node) = (yyvsp[0].node); + } +#line 5901 "parse.c" /* yacc.c:1652 */ + break; + + case 58: +#line 1322 "parse.y" /* yacc.c:1652 */ + {COND_PUSH(1);} +#line 5907 "parse.c" /* yacc.c:1652 */ + break; + + case 59: +#line 1322 "parse.y" /* yacc.c:1652 */ + {COND_POP();} +#line 5913 "parse.c" /* yacc.c:1652 */ + break; + + case 60: +#line 1323 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = (yyvsp[-2].node); + } +#line 5921 "parse.c" /* yacc.c:1652 */ + break; + + case 64: +#line 1334 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_qcall(p, (yyvsp[-2].id), (yyvsp[-3].node), (yyvsp[-1].id), (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + /*% %*/ + /*% ripper: method_add_arg!(call!($1, $2, $3), $4) %*/ + } +#line 5932 "parse.c" /* yacc.c:1652 */ + break; + + case 65: +#line 1343 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = (yyvsp[-1].node); + /*%%%*/ + (yyval.node)->nd_body->nd_loc = code_loc_gen(&(yylsp[-2]), &(yylsp[0])); + nd_set_line((yyval.node), (yylsp[-2]).end_pos.lineno); + /*% %*/ + } +#line 5944 "parse.c" /* yacc.c:1652 */ + break; + + case 66: +#line 1353 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_FCALL((yyvsp[0].id), 0, &(yyloc)); + nd_set_line((yyval.node), p->tokline); + /*% %*/ + /*% ripper: $1 %*/ + } +#line 5956 "parse.c" /* yacc.c:1652 */ + break; + + case 67: +#line 1363 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyvsp[-1].node)->nd_args = (yyvsp[0].node); + nd_set_last_loc((yyvsp[-1].node), (yylsp[0]).end_pos); + (yyval.node) = (yyvsp[-1].node); + /*% %*/ + /*% ripper: command!($1, $2) %*/ + } +#line 5969 "parse.c" /* yacc.c:1652 */ + break; + + case 68: +#line 1372 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + block_dup_check(p, (yyvsp[-1].node), (yyvsp[0].node)); + (yyvsp[-2].node)->nd_args = (yyvsp[-1].node); + (yyval.node) = method_add_block(p, (yyvsp[-2].node), (yyvsp[0].node), &(yyloc)); + fixpos((yyval.node), (yyvsp[-2].node)); + nd_set_last_loc((yyvsp[-2].node), (yylsp[-1]).end_pos); + /*% %*/ + /*% ripper: method_add_block!(command!($1, $2), $3) %*/ + } +#line 5984 "parse.c" /* yacc.c:1652 */ + break; + + case 69: +#line 1383 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_command_qcall(p, (yyvsp[-2].id), (yyvsp[-3].node), (yyvsp[-1].id), (yyvsp[0].node), Qnull, &(yylsp[-1]), &(yyloc)); + /*% %*/ + /*% ripper: command_call!($1, $2, $3, $4) %*/ + } +#line 5995 "parse.c" /* yacc.c:1652 */ + break; + + case 70: +#line 1390 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_command_qcall(p, (yyvsp[-3].id), (yyvsp[-4].node), (yyvsp[-2].id), (yyvsp[-1].node), (yyvsp[0].node), &(yylsp[-2]), &(yyloc)); + /*% %*/ + /*% ripper: method_add_block!(command_call!($1, $2, $3, $4), $5) %*/ + } +#line 6006 "parse.c" /* yacc.c:1652 */ + break; + + case 71: +#line 1397 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_command_qcall(p, ID2VAL(idCOLON2), (yyvsp[-3].node), (yyvsp[-1].id), (yyvsp[0].node), Qnull, &(yylsp[-1]), &(yyloc)); + /*% %*/ + /*% ripper: command_call!($1, ID2VAL(idCOLON2), $3, $4) %*/ + } +#line 6017 "parse.c" /* yacc.c:1652 */ + break; + + case 72: +#line 1404 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_command_qcall(p, ID2VAL(idCOLON2), (yyvsp[-4].node), (yyvsp[-2].id), (yyvsp[-1].node), (yyvsp[0].node), &(yylsp[-2]), &(yyloc)); + /*% %*/ + /*% ripper: method_add_block!(command_call!($1, ID2VAL(idCOLON2), $3, $4), $5) %*/ + } +#line 6028 "parse.c" /* yacc.c:1652 */ + break; + + case 73: +#line 1411 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_SUPER((yyvsp[0].node), &(yyloc)); + fixpos((yyval.node), (yyvsp[0].node)); + /*% %*/ + /*% ripper: super!($2) %*/ + } +#line 6040 "parse.c" /* yacc.c:1652 */ + break; + + case 74: +#line 1419 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_yield(p, (yyvsp[0].node), &(yyloc)); + fixpos((yyval.node), (yyvsp[0].node)); + /*% %*/ + /*% ripper: yield!($2) %*/ + } +#line 6052 "parse.c" /* yacc.c:1652 */ + break; + + case 75: +#line 1427 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_RETURN(ret_args(p, (yyvsp[0].node)), &(yyloc)); + /*% %*/ + /*% ripper: return!($2) %*/ + } +#line 6063 "parse.c" /* yacc.c:1652 */ + break; + + case 76: +#line 1434 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_BREAK(ret_args(p, (yyvsp[0].node)), &(yyloc)); + /*% %*/ + /*% ripper: break!($2) %*/ + } +#line 6074 "parse.c" /* yacc.c:1652 */ + break; + + case 77: +#line 1441 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_NEXT(ret_args(p, (yyvsp[0].node)), &(yyloc)); + /*% %*/ + /*% ripper: next!($2) %*/ + } +#line 6085 "parse.c" /* yacc.c:1652 */ + break; + + case 79: +#line 1451 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[-1].node); + /*% %*/ + /*% ripper: mlhs_paren!($2) %*/ + } +#line 6096 "parse.c" /* yacc.c:1652 */ + break; + + case 81: +#line 1461 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_MASGN(NEW_LIST((yyvsp[-1].node), &(yyloc)), 0, &(yyloc)); + /*% %*/ + /*% ripper: mlhs_paren!($2) %*/ + } +#line 6107 "parse.c" /* yacc.c:1652 */ + break; + + case 82: +#line 1470 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_MASGN((yyvsp[0].node), 0, &(yyloc)); + /*% %*/ + /*% ripper: $1 %*/ + } +#line 6118 "parse.c" /* yacc.c:1652 */ + break; + + case 83: +#line 1477 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_MASGN(list_append(p, (yyvsp[-1].node),(yyvsp[0].node)), 0, &(yyloc)); + /*% %*/ + /*% ripper: mlhs_add!($1, $2) %*/ + } +#line 6129 "parse.c" /* yacc.c:1652 */ + break; + + case 84: +#line 1484 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_MASGN((yyvsp[-2].node), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: mlhs_add_star!($1, $3) %*/ + } +#line 6140 "parse.c" /* yacc.c:1652 */ + break; + + case 85: +#line 1491 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_MASGN((yyvsp[-4].node), NEW_POSTARG((yyvsp[-2].node),(yyvsp[0].node),&(yyloc)), &(yyloc)); + /*% %*/ + /*% ripper: mlhs_add_post!(mlhs_add_star!($1, $3), $5) %*/ + } +#line 6151 "parse.c" /* yacc.c:1652 */ + break; + + case 86: +#line 1498 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_MASGN((yyvsp[-1].node), NODE_SPECIAL_NO_NAME_REST, &(yyloc)); + /*% %*/ + /*% ripper: mlhs_add_star!($1, Qnil) %*/ + } +#line 6162 "parse.c" /* yacc.c:1652 */ + break; + + case 87: +#line 1505 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_MASGN((yyvsp[-3].node), NEW_POSTARG(NODE_SPECIAL_NO_NAME_REST, (yyvsp[0].node), &(yyloc)), &(yyloc)); + /*% %*/ + /*% ripper: mlhs_add_post!(mlhs_add_star!($1, Qnil), $4) %*/ + } +#line 6173 "parse.c" /* yacc.c:1652 */ + break; + + case 88: +#line 1512 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_MASGN(0, (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: mlhs_add_star!(mlhs_new!, $2) %*/ + } +#line 6184 "parse.c" /* yacc.c:1652 */ + break; + + case 89: +#line 1519 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_MASGN(0, NEW_POSTARG((yyvsp[-2].node),(yyvsp[0].node),&(yyloc)), &(yyloc)); + /*% %*/ + /*% ripper: mlhs_add_post!(mlhs_add_star!(mlhs_new!, $2), $4) %*/ + } +#line 6195 "parse.c" /* yacc.c:1652 */ + break; + + case 90: +#line 1526 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_MASGN(0, NODE_SPECIAL_NO_NAME_REST, &(yyloc)); + /*% %*/ + /*% ripper: mlhs_add_star!(mlhs_new!, Qnil) %*/ + } +#line 6206 "parse.c" /* yacc.c:1652 */ + break; + + case 91: +#line 1533 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_MASGN(0, NEW_POSTARG(NODE_SPECIAL_NO_NAME_REST, (yyvsp[0].node), &(yyloc)), &(yyloc)); + /*% %*/ + /*% ripper: mlhs_add_post!(mlhs_add_star!(mlhs_new!, Qnil), $3) %*/ + } +#line 6217 "parse.c" /* yacc.c:1652 */ + break; + + case 93: +#line 1543 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[-1].node); + /*% %*/ + /*% ripper: mlhs_paren!($2) %*/ + } +#line 6228 "parse.c" /* yacc.c:1652 */ + break; + + case 94: +#line 1552 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_LIST((yyvsp[-1].node), &(yylsp[-1])); + /*% %*/ + /*% ripper: mlhs_add!(mlhs_new!, $1) %*/ + } +#line 6239 "parse.c" /* yacc.c:1652 */ + break; + + case 95: +#line 1559 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = list_append(p, (yyvsp[-2].node), (yyvsp[-1].node)); + /*% %*/ + /*% ripper: mlhs_add!($1, $2) %*/ + } +#line 6250 "parse.c" /* yacc.c:1652 */ + break; + + case 96: +#line 1568 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_LIST((yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: mlhs_add!(mlhs_new!, $1) %*/ + } +#line 6261 "parse.c" /* yacc.c:1652 */ + break; + + case 97: +#line 1575 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = list_append(p, (yyvsp[-2].node), (yyvsp[0].node)); + /*% %*/ + /*% ripper: mlhs_add!($1, $3) %*/ + } +#line 6272 "parse.c" /* yacc.c:1652 */ + break; + + case 98: +#line 1584 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = assignable(p, (yyvsp[0].id), 0, &(yyloc)); + /*% %*/ + /*% ripper: assignable(p, var_field(p, $1)) %*/ + } +#line 6283 "parse.c" /* yacc.c:1652 */ + break; + + case 99: +#line 1591 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = assignable(p, (yyvsp[0].id), 0, &(yyloc)); + /*% %*/ + /*% ripper: assignable(p, var_field(p, $1)) %*/ + } +#line 6294 "parse.c" /* yacc.c:1652 */ + break; + + case 100: +#line 1598 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = aryset(p, (yyvsp[-3].node), (yyvsp[-1].node), &(yyloc)); + /*% %*/ + /*% ripper: aref_field!($1, escape_Qundef($3)) %*/ + } +#line 6305 "parse.c" /* yacc.c:1652 */ + break; + + case 101: +#line 1605 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = attrset(p, (yyvsp[-2].node), (yyvsp[-1].id), (yyvsp[0].id), &(yyloc)); + /*% %*/ + /*% ripper: field!($1, $2, $3) %*/ + } +#line 6316 "parse.c" /* yacc.c:1652 */ + break; + + case 102: +#line 1612 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = attrset(p, (yyvsp[-2].node), idCOLON2, (yyvsp[0].id), &(yyloc)); + /*% %*/ + /*% ripper: const_path_field!($1, $3) %*/ + } +#line 6327 "parse.c" /* yacc.c:1652 */ + break; + + case 103: +#line 1619 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = attrset(p, (yyvsp[-2].node), (yyvsp[-1].id), (yyvsp[0].id), &(yyloc)); + /*% %*/ + /*% ripper: field!($1, $2, $3) %*/ + } +#line 6338 "parse.c" /* yacc.c:1652 */ + break; + + case 104: +#line 1626 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = const_decl(p, NEW_COLON2((yyvsp[-2].node), (yyvsp[0].id), &(yyloc)), &(yyloc)); + /*% %*/ + /*% ripper: const_decl(p, const_path_field!($1, $3)) %*/ + } +#line 6349 "parse.c" /* yacc.c:1652 */ + break; + + case 105: +#line 1633 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = const_decl(p, NEW_COLON3((yyvsp[0].id), &(yyloc)), &(yyloc)); + /*% %*/ + /*% ripper: const_decl(p, top_const_field!($2)) %*/ + } +#line 6360 "parse.c" /* yacc.c:1652 */ + break; + + case 106: +#line 1640 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + rb_backref_error(p, (yyvsp[0].node)); + (yyval.node) = NEW_BEGIN(0, &(yyloc)); + /*% %*/ + /*% ripper[error]: assign_error!(var_field(p, $1)) %*/ + } +#line 6372 "parse.c" /* yacc.c:1652 */ + break; + + case 107: +#line 1650 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = assignable(p, (yyvsp[0].id), 0, &(yyloc)); + /*% %*/ + /*% ripper: assignable(p, var_field(p, $1)) %*/ + } +#line 6383 "parse.c" /* yacc.c:1652 */ + break; + + case 108: +#line 1657 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = assignable(p, (yyvsp[0].id), 0, &(yyloc)); + /*% %*/ + /*% ripper: assignable(p, var_field(p, $1)) %*/ + } +#line 6394 "parse.c" /* yacc.c:1652 */ + break; + + case 109: +#line 1664 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = aryset(p, (yyvsp[-3].node), (yyvsp[-1].node), &(yyloc)); + /*% %*/ + /*% ripper: aref_field!($1, escape_Qundef($3)) %*/ + } +#line 6405 "parse.c" /* yacc.c:1652 */ + break; + + case 110: +#line 1671 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = attrset(p, (yyvsp[-2].node), (yyvsp[-1].id), (yyvsp[0].id), &(yyloc)); + /*% %*/ + /*% ripper: field!($1, $2, $3) %*/ + } +#line 6416 "parse.c" /* yacc.c:1652 */ + break; + + case 111: +#line 1678 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = attrset(p, (yyvsp[-2].node), idCOLON2, (yyvsp[0].id), &(yyloc)); + /*% %*/ + /*% ripper: field!($1, ID2VAL(idCOLON2), $3) %*/ + } +#line 6427 "parse.c" /* yacc.c:1652 */ + break; + + case 112: +#line 1685 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = attrset(p, (yyvsp[-2].node), (yyvsp[-1].id), (yyvsp[0].id), &(yyloc)); + /*% %*/ + /*% ripper: field!($1, $2, $3) %*/ + } +#line 6438 "parse.c" /* yacc.c:1652 */ + break; + + case 113: +#line 1692 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = const_decl(p, NEW_COLON2((yyvsp[-2].node), (yyvsp[0].id), &(yyloc)), &(yyloc)); + /*% %*/ + /*% ripper: const_decl(p, const_path_field!($1, $3)) %*/ + } +#line 6449 "parse.c" /* yacc.c:1652 */ + break; + + case 114: +#line 1699 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = const_decl(p, NEW_COLON3((yyvsp[0].id), &(yyloc)), &(yyloc)); + /*% %*/ + /*% ripper: const_decl(p, top_const_field!($2)) %*/ + } +#line 6460 "parse.c" /* yacc.c:1652 */ + break; + + case 115: +#line 1706 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + rb_backref_error(p, (yyvsp[0].node)); + (yyval.node) = NEW_BEGIN(0, &(yyloc)); + /*% %*/ + /*% ripper[error]: assign_error!(var_field(p, $1)) %*/ + } +#line 6472 "parse.c" /* yacc.c:1652 */ + break; + + case 116: +#line 1716 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + yyerror1(&(yylsp[0]), "class/module name must be CONSTANT"); + /*% %*/ + /*% ripper[error]: class_name_error!($1) %*/ + } +#line 6483 "parse.c" /* yacc.c:1652 */ + break; + + case 118: +#line 1726 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_COLON3((yyvsp[0].id), &(yyloc)); + /*% %*/ + /*% ripper: top_const_ref!($2) %*/ + } +#line 6494 "parse.c" /* yacc.c:1652 */ + break; + + case 119: +#line 1733 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_COLON2(0, (yyval.node), &(yyloc)); + /*% %*/ + /*% ripper: const_ref!($1) %*/ + } +#line 6505 "parse.c" /* yacc.c:1652 */ + break; + + case 120: +#line 1740 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_COLON2((yyvsp[-2].node), (yyvsp[0].id), &(yyloc)); + /*% %*/ + /*% ripper: const_path_ref!($1, $3) %*/ + } +#line 6516 "parse.c" /* yacc.c:1652 */ + break; + + case 124: +#line 1752 "parse.y" /* yacc.c:1652 */ + { + SET_LEX_STATE(EXPR_ENDFN); + (yyval.id) = (yyvsp[0].id); + } +#line 6525 "parse.c" /* yacc.c:1652 */ + break; + + case 125: +#line 1757 "parse.y" /* yacc.c:1652 */ + { + SET_LEX_STATE(EXPR_ENDFN); + (yyval.id) = (yyvsp[0].id); + } +#line 6534 "parse.c" /* yacc.c:1652 */ + break; + + case 128: +#line 1768 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_LIT(ID2SYM((yyvsp[0].id)), &(yyloc)); + /*% %*/ + /*% ripper: symbol_literal!($1) %*/ + } +#line 6545 "parse.c" /* yacc.c:1652 */ + break; + + case 130: +#line 1778 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_UNDEF((yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: rb_ary_new3(1, get_value($1)) %*/ + } +#line 6556 "parse.c" /* yacc.c:1652 */ + break; + + case 131: +#line 1784 "parse.y" /* yacc.c:1652 */ + {SET_LEX_STATE(EXPR_FNAME|EXPR_FITEM);} +#line 6562 "parse.c" /* yacc.c:1652 */ + break; + + case 132: +#line 1785 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + NODE *undef = NEW_UNDEF((yyvsp[0].node), &(yylsp[0])); + (yyval.node) = block_append(p, (yyvsp[-3].node), undef); + /*% %*/ + /*% ripper: rb_ary_push($1, get_value($4)) %*/ + } +#line 6574 "parse.c" /* yacc.c:1652 */ + break; + + case 133: +#line 1794 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = '|'); } +#line 6580 "parse.c" /* yacc.c:1652 */ + break; + + case 134: +#line 1795 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = '^'); } +#line 6586 "parse.c" /* yacc.c:1652 */ + break; + + case 135: +#line 1796 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = '&'); } +#line 6592 "parse.c" /* yacc.c:1652 */ + break; + + case 136: +#line 1797 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = tCMP); } +#line 6598 "parse.c" /* yacc.c:1652 */ + break; + + case 137: +#line 1798 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = tEQ); } +#line 6604 "parse.c" /* yacc.c:1652 */ + break; + + case 138: +#line 1799 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = tEQQ); } +#line 6610 "parse.c" /* yacc.c:1652 */ + break; + + case 139: +#line 1800 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = tMATCH); } +#line 6616 "parse.c" /* yacc.c:1652 */ + break; + + case 140: +#line 1801 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = tNMATCH); } +#line 6622 "parse.c" /* yacc.c:1652 */ + break; + + case 141: +#line 1802 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = '>'); } +#line 6628 "parse.c" /* yacc.c:1652 */ + break; + + case 142: +#line 1803 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = tGEQ); } +#line 6634 "parse.c" /* yacc.c:1652 */ + break; + + case 143: +#line 1804 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = '<'); } +#line 6640 "parse.c" /* yacc.c:1652 */ + break; + + case 144: +#line 1805 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = tLEQ); } +#line 6646 "parse.c" /* yacc.c:1652 */ + break; + + case 145: +#line 1806 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = tNEQ); } +#line 6652 "parse.c" /* yacc.c:1652 */ + break; + + case 146: +#line 1807 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = tLSHFT); } +#line 6658 "parse.c" /* yacc.c:1652 */ + break; + + case 147: +#line 1808 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = tRSHFT); } +#line 6664 "parse.c" /* yacc.c:1652 */ + break; + + case 148: +#line 1809 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = '+'); } +#line 6670 "parse.c" /* yacc.c:1652 */ + break; + + case 149: +#line 1810 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = '-'); } +#line 6676 "parse.c" /* yacc.c:1652 */ + break; + + case 150: +#line 1811 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = '*'); } +#line 6682 "parse.c" /* yacc.c:1652 */ + break; + + case 151: +#line 1812 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = '*'); } +#line 6688 "parse.c" /* yacc.c:1652 */ + break; + + case 152: +#line 1813 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = '/'); } +#line 6694 "parse.c" /* yacc.c:1652 */ + break; + + case 153: +#line 1814 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = '%'); } +#line 6700 "parse.c" /* yacc.c:1652 */ + break; + + case 154: +#line 1815 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = tPOW); } +#line 6706 "parse.c" /* yacc.c:1652 */ + break; + + case 155: +#line 1816 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = tDSTAR); } +#line 6712 "parse.c" /* yacc.c:1652 */ + break; + + case 156: +#line 1817 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = '!'); } +#line 6718 "parse.c" /* yacc.c:1652 */ + break; + + case 157: +#line 1818 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = '~'); } +#line 6724 "parse.c" /* yacc.c:1652 */ + break; + + case 158: +#line 1819 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = tUPLUS); } +#line 6730 "parse.c" /* yacc.c:1652 */ + break; + + case 159: +#line 1820 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = tUMINUS); } +#line 6736 "parse.c" /* yacc.c:1652 */ + break; + + case 160: +#line 1821 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = tAREF); } +#line 6742 "parse.c" /* yacc.c:1652 */ + break; + + case 161: +#line 1822 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = tASET); } +#line 6748 "parse.c" /* yacc.c:1652 */ + break; + + case 162: +#line 1823 "parse.y" /* yacc.c:1652 */ + { ifndef_ripper((yyval.id) = '`'); } +#line 6754 "parse.c" /* yacc.c:1652 */ + break; + + case 204: +#line 1841 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = node_assign(p, (yyvsp[-2].node), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: assign!($1, $3) %*/ + } +#line 6765 "parse.c" /* yacc.c:1652 */ + break; + + case 205: +#line 1848 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_op_assign(p, (yyvsp[-2].node), (yyvsp[-1].id), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: opassign!($1, $2, $3) %*/ + } +#line 6776 "parse.c" /* yacc.c:1652 */ + break; + + case 206: +#line 1855 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + value_expr((yyvsp[0].node)); + (yyval.node) = new_ary_op_assign(p, (yyvsp[-5].node), (yyvsp[-3].node), (yyvsp[-1].id), (yyvsp[0].node), &(yylsp[-3]), &(yyloc)); + /*% %*/ + /*% ripper: opassign!(aref_field!($1, escape_Qundef($3)), $5, $6) %*/ + } +#line 6788 "parse.c" /* yacc.c:1652 */ + break; + + case 207: +#line 1863 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + value_expr((yyvsp[0].node)); + (yyval.node) = new_attr_op_assign(p, (yyvsp[-4].node), (yyvsp[-3].id), (yyvsp[-2].id), (yyvsp[-1].id), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: opassign!(field!($1, $2, $3), $4, $5) %*/ + } +#line 6800 "parse.c" /* yacc.c:1652 */ + break; + + case 208: +#line 1871 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + value_expr((yyvsp[0].node)); + (yyval.node) = new_attr_op_assign(p, (yyvsp[-4].node), (yyvsp[-3].id), (yyvsp[-2].id), (yyvsp[-1].id), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: opassign!(field!($1, $2, $3), $4, $5) %*/ + } +#line 6812 "parse.c" /* yacc.c:1652 */ + break; + + case 209: +#line 1879 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + value_expr((yyvsp[0].node)); + (yyval.node) = new_attr_op_assign(p, (yyvsp[-4].node), ID2VAL(idCOLON2), (yyvsp[-2].id), (yyvsp[-1].id), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: opassign!(field!($1, ID2VAL(idCOLON2), $3), $4, $5) %*/ + } +#line 6824 "parse.c" /* yacc.c:1652 */ + break; + + case 210: +#line 1887 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + YYLTYPE loc = code_loc_gen(&(yylsp[-4]), &(yylsp[-2])); + (yyval.node) = new_const_op_assign(p, NEW_COLON2((yyvsp[-4].node), (yyvsp[-2].id), &loc), (yyvsp[-1].id), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: opassign!(const_path_field!($1, $3), $4, $5) %*/ + } +#line 6836 "parse.c" /* yacc.c:1652 */ + break; + + case 211: +#line 1895 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_const_op_assign(p, NEW_COLON3((yyvsp[-2].id), &(yyloc)), (yyvsp[-1].id), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: opassign!(top_const_field!($2), $3, $4) %*/ + } +#line 6847 "parse.c" /* yacc.c:1652 */ + break; + + case 212: +#line 1902 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + rb_backref_error(p, (yyvsp[-2].node)); + (yyval.node) = NEW_BEGIN(0, &(yyloc)); + /*% %*/ + /*% ripper[error]: assign_error!(opassign!(var_field(p, $1), $2, $3)) %*/ + } +#line 6859 "parse.c" /* yacc.c:1652 */ + break; + + case 213: +#line 1910 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + value_expr((yyvsp[-2].node)); + value_expr((yyvsp[0].node)); + (yyval.node) = NEW_DOT2((yyvsp[-2].node), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: dot2!($1, $3) %*/ + } +#line 6872 "parse.c" /* yacc.c:1652 */ + break; + + case 214: +#line 1919 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + value_expr((yyvsp[-2].node)); + value_expr((yyvsp[0].node)); + (yyval.node) = NEW_DOT3((yyvsp[-2].node), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: dot3!($1, $3) %*/ + } +#line 6885 "parse.c" /* yacc.c:1652 */ + break; + + case 215: +#line 1928 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + YYLTYPE loc; + loc.beg_pos = (yylsp[0]).end_pos; + loc.end_pos = (yylsp[0]).end_pos; + + value_expr((yyvsp[-1].node)); + (yyval.node) = NEW_DOT2((yyvsp[-1].node), new_nil(&loc), &(yyloc)); + /*% %*/ + /*% ripper: dot2!($1, Qnil) %*/ + } +#line 6901 "parse.c" /* yacc.c:1652 */ + break; + + case 216: +#line 1940 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + YYLTYPE loc; + loc.beg_pos = (yylsp[0]).end_pos; + loc.end_pos = (yylsp[0]).end_pos; + + value_expr((yyvsp[-1].node)); + (yyval.node) = NEW_DOT3((yyvsp[-1].node), new_nil(&loc), &(yyloc)); + /*% %*/ + /*% ripper: dot3!($1, Qnil) %*/ + } +#line 6917 "parse.c" /* yacc.c:1652 */ + break; + + case 217: +#line 1952 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_bin_op(p, (yyvsp[-2].node), '+', (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 6925 "parse.c" /* yacc.c:1652 */ + break; + + case 218: +#line 1956 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_bin_op(p, (yyvsp[-2].node), '-', (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 6933 "parse.c" /* yacc.c:1652 */ + break; + + case 219: +#line 1960 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_bin_op(p, (yyvsp[-2].node), '*', (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 6941 "parse.c" /* yacc.c:1652 */ + break; + + case 220: +#line 1964 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_bin_op(p, (yyvsp[-2].node), '/', (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 6949 "parse.c" /* yacc.c:1652 */ + break; + + case 221: +#line 1968 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_bin_op(p, (yyvsp[-2].node), '%', (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 6957 "parse.c" /* yacc.c:1652 */ + break; + + case 222: +#line 1972 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_bin_op(p, (yyvsp[-2].node), idPow, (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 6965 "parse.c" /* yacc.c:1652 */ + break; + + case 223: +#line 1976 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_uni_op(p, call_bin_op(p, (yyvsp[-2].node), idPow, (yyvsp[0].node), &(yylsp[-2]), &(yyloc)), idUMinus, &(yylsp[-3]), &(yyloc)); + } +#line 6973 "parse.c" /* yacc.c:1652 */ + break; + + case 224: +#line 1980 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_uni_op(p, (yyvsp[0].node), idUPlus, &(yylsp[-1]), &(yyloc)); + } +#line 6981 "parse.c" /* yacc.c:1652 */ + break; + + case 225: +#line 1984 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_uni_op(p, (yyvsp[0].node), idUMinus, &(yylsp[-1]), &(yyloc)); + } +#line 6989 "parse.c" /* yacc.c:1652 */ + break; + + case 226: +#line 1988 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_bin_op(p, (yyvsp[-2].node), '|', (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 6997 "parse.c" /* yacc.c:1652 */ + break; + + case 227: +#line 1992 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_bin_op(p, (yyvsp[-2].node), '^', (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 7005 "parse.c" /* yacc.c:1652 */ + break; + + case 228: +#line 1996 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_bin_op(p, (yyvsp[-2].node), '&', (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 7013 "parse.c" /* yacc.c:1652 */ + break; + + case 229: +#line 2000 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_bin_op(p, (yyvsp[-2].node), idCmp, (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 7021 "parse.c" /* yacc.c:1652 */ + break; + + case 231: +#line 2005 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_bin_op(p, (yyvsp[-2].node), idEq, (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 7029 "parse.c" /* yacc.c:1652 */ + break; + + case 232: +#line 2009 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_bin_op(p, (yyvsp[-2].node), idEqq, (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 7037 "parse.c" /* yacc.c:1652 */ + break; + + case 233: +#line 2013 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_bin_op(p, (yyvsp[-2].node), idNeq, (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 7045 "parse.c" /* yacc.c:1652 */ + break; + + case 234: +#line 2017 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = match_op(p, (yyvsp[-2].node), (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 7053 "parse.c" /* yacc.c:1652 */ + break; + + case 235: +#line 2021 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_bin_op(p, (yyvsp[-2].node), idNeqTilde, (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 7061 "parse.c" /* yacc.c:1652 */ + break; + + case 236: +#line 2025 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_uni_op(p, method_cond(p, (yyvsp[0].node), &(yylsp[0])), '!', &(yylsp[-1]), &(yyloc)); + } +#line 7069 "parse.c" /* yacc.c:1652 */ + break; + + case 237: +#line 2029 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_uni_op(p, (yyvsp[0].node), '~', &(yylsp[-1]), &(yyloc)); + } +#line 7077 "parse.c" /* yacc.c:1652 */ + break; + + case 238: +#line 2033 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_bin_op(p, (yyvsp[-2].node), idLTLT, (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 7085 "parse.c" /* yacc.c:1652 */ + break; + + case 239: +#line 2037 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_bin_op(p, (yyvsp[-2].node), idGTGT, (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 7093 "parse.c" /* yacc.c:1652 */ + break; + + case 240: +#line 2041 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = logop(p, idANDOP, (yyvsp[-2].node), (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 7101 "parse.c" /* yacc.c:1652 */ + break; + + case 241: +#line 2045 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = logop(p, idOROP, (yyvsp[-2].node), (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 7109 "parse.c" /* yacc.c:1652 */ + break; + + case 242: +#line 2048 "parse.y" /* yacc.c:1652 */ + {p->in_defined = 1;} +#line 7115 "parse.c" /* yacc.c:1652 */ + break; + + case 243: +#line 2049 "parse.y" /* yacc.c:1652 */ + { + p->in_defined = 0; + (yyval.node) = new_defined(p, (yyvsp[0].node), &(yyloc)); + } +#line 7124 "parse.c" /* yacc.c:1652 */ + break; + + case 244: +#line 2054 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + value_expr((yyvsp[-5].node)); + (yyval.node) = new_if(p, (yyvsp[-5].node), (yyvsp[-3].node), (yyvsp[0].node), &(yyloc)); + fixpos((yyval.node), (yyvsp[-5].node)); + /*% %*/ + /*% ripper: ifop!($1, $3, $6) %*/ + } +#line 7137 "parse.c" /* yacc.c:1652 */ + break; + + case 245: +#line 2063 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = (yyvsp[0].node); + } +#line 7145 "parse.c" /* yacc.c:1652 */ + break; + + case 246: +#line 2068 "parse.y" /* yacc.c:1652 */ + {(yyval.id) = '>';} +#line 7151 "parse.c" /* yacc.c:1652 */ + break; + + case 247: +#line 2069 "parse.y" /* yacc.c:1652 */ + {(yyval.id) = '<';} +#line 7157 "parse.c" /* yacc.c:1652 */ + break; + + case 248: +#line 2070 "parse.y" /* yacc.c:1652 */ + {(yyval.id) = idGE;} +#line 7163 "parse.c" /* yacc.c:1652 */ + break; + + case 249: +#line 2071 "parse.y" /* yacc.c:1652 */ + {(yyval.id) = idLE;} +#line 7169 "parse.c" /* yacc.c:1652 */ + break; + + case 250: +#line 2075 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_bin_op(p, (yyvsp[-2].node), (yyvsp[-1].id), (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 7177 "parse.c" /* yacc.c:1652 */ + break; + + case 251: +#line 2079 "parse.y" /* yacc.c:1652 */ + { + rb_warning1("comparison '%s' after comparison", WARN_ID((yyvsp[-1].id))); + (yyval.node) = call_bin_op(p, (yyvsp[-2].node), (yyvsp[-1].id), (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + } +#line 7186 "parse.c" /* yacc.c:1652 */ + break; + + case 252: +#line 2086 "parse.y" /* yacc.c:1652 */ + { + value_expr((yyvsp[0].node)); + (yyval.node) = (yyvsp[0].node); + } +#line 7195 "parse.c" /* yacc.c:1652 */ + break; + + case 254: +#line 2094 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = (yyvsp[-1].node); + } +#line 7203 "parse.c" /* yacc.c:1652 */ + break; + + case 255: +#line 2098 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[-1].node) ? arg_append(p, (yyvsp[-3].node), new_hash(p, (yyvsp[-1].node), &(yylsp[-1])), &(yyloc)) : (yyvsp[-3].node); + /*% %*/ + /*% ripper: args_add!($1, bare_assoc_hash!($3)) %*/ + } +#line 7214 "parse.c" /* yacc.c:1652 */ + break; + + case 256: +#line 2105 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[-1].node) ? NEW_LIST(new_hash(p, (yyvsp[-1].node), &(yylsp[-1])), &(yyloc)) : 0; + /*% %*/ + /*% ripper: args_add!(args_new!, bare_assoc_hash!($1)) %*/ + } +#line 7225 "parse.c" /* yacc.c:1652 */ + break; + + case 257: +#line 2114 "parse.y" /* yacc.c:1652 */ + { + value_expr((yyvsp[0].node)); + (yyval.node) = (yyvsp[0].node); + } +#line 7234 "parse.c" /* yacc.c:1652 */ + break; + + case 258: +#line 2119 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + YYLTYPE loc = code_loc_gen(&(yylsp[-1]), &(yylsp[0])); + value_expr((yyvsp[-2].node)); + (yyval.node) = NEW_RESCUE((yyvsp[-2].node), NEW_RESBODY(0, remove_begin((yyvsp[0].node)), 0, &loc), 0, &(yyloc)); + /*% %*/ + /*% ripper: rescue_mod!($1, $3) %*/ + } +#line 7247 "parse.c" /* yacc.c:1652 */ + break; + + case 259: +#line 2130 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[-1].node); + /*% %*/ + /*% ripper: arg_paren!(escape_Qundef($2)) %*/ + } +#line 7258 "parse.c" /* yacc.c:1652 */ + break; + + case 264: +#line 2145 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = (yyvsp[-1].node); + } +#line 7266 "parse.c" /* yacc.c:1652 */ + break; + + case 265: +#line 2149 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[-1].node) ? arg_append(p, (yyvsp[-3].node), new_hash(p, (yyvsp[-1].node), &(yylsp[-1])), &(yyloc)) : (yyvsp[-3].node); + /*% %*/ + /*% ripper: args_add!($1, bare_assoc_hash!($3)) %*/ + } +#line 7277 "parse.c" /* yacc.c:1652 */ + break; + + case 266: +#line 2156 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[-1].node) ? NEW_LIST(new_hash(p, (yyvsp[-1].node), &(yylsp[-1])), &(yylsp[-1])) : 0; + /*% %*/ + /*% ripper: args_add!(args_new!, bare_assoc_hash!($1)) %*/ + } +#line 7288 "parse.c" /* yacc.c:1652 */ + break; + + case 267: +#line 2165 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + value_expr((yyvsp[0].node)); + (yyval.node) = NEW_LIST((yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: args_add!(args_new!, $1) %*/ + } +#line 7300 "parse.c" /* yacc.c:1652 */ + break; + + case 268: +#line 2173 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = arg_blk_pass((yyvsp[-1].node), (yyvsp[0].node)); + /*% %*/ + /*% ripper: args_add_block!($1, $2) %*/ + } +#line 7311 "parse.c" /* yacc.c:1652 */ + break; + + case 269: +#line 2180 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[-1].node) ? NEW_LIST(new_hash(p, (yyvsp[-1].node), &(yylsp[-1])), &(yylsp[-1])) : 0; + (yyval.node) = arg_blk_pass((yyval.node), (yyvsp[0].node)); + /*% %*/ + /*% ripper: args_add_block!(args_add!(args_new!, bare_assoc_hash!($1)), $2) %*/ + } +#line 7323 "parse.c" /* yacc.c:1652 */ + break; + + case 270: +#line 2188 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[-1].node) ? arg_append(p, (yyvsp[-3].node), new_hash(p, (yyvsp[-1].node), &(yylsp[-1])), &(yyloc)) : (yyvsp[-3].node); + (yyval.node) = arg_blk_pass((yyval.node), (yyvsp[0].node)); + /*% %*/ + /*% ripper: args_add_block!(args_add!($1, bare_assoc_hash!($3)), $4) %*/ + } +#line 7335 "parse.c" /* yacc.c:1652 */ + break; + + case 272: +#line 2199 "parse.y" /* yacc.c:1652 */ + { + /* If call_args starts with a open paren '(' or '[', + * look-ahead reading of the letters calls CMDARG_PUSH(0), + * but the push must be done after CMDARG_PUSH(1). + * So this code makes them consistent by first cancelling + * the premature CMDARG_PUSH(0), doing CMDARG_PUSH(1), + * and finally redoing CMDARG_PUSH(0). + */ + int lookahead = 0; + switch (yychar) { + case '(': case tLPAREN: case tLPAREN_ARG: case '[': case tLBRACK: + lookahead = 1; + } + if (lookahead) CMDARG_POP(); + CMDARG_PUSH(1); + if (lookahead) CMDARG_PUSH(0); + } +#line 7357 "parse.c" /* yacc.c:1652 */ + break; + + case 273: +#line 2217 "parse.y" /* yacc.c:1652 */ + { + /* call_args can be followed by tLBRACE_ARG (that does CMDARG_PUSH(0) in the lexer) + * but the push must be done after CMDARG_POP() in the parser. + * So this code does CMDARG_POP() to pop 0 pushed by tLBRACE_ARG, + * CMDARG_POP() to pop 1 pushed by command_args, + * and CMDARG_PUSH(0) to restore back the flag set by tLBRACE_ARG. + */ + int lookahead = 0; + switch (yychar) { + case tLBRACE_ARG: + lookahead = 1; + } + if (lookahead) CMDARG_POP(); + CMDARG_POP(); + if (lookahead) CMDARG_PUSH(0); + (yyval.node) = (yyvsp[0].node); + } +#line 7379 "parse.c" /* yacc.c:1652 */ + break; + + case 274: +#line 2237 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_BLOCK_PASS((yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: $2 %*/ + } +#line 7390 "parse.c" /* yacc.c:1652 */ + break; + + case 275: +#line 2246 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = (yyvsp[0].node); + } +#line 7398 "parse.c" /* yacc.c:1652 */ + break; + + case 276: +#line 2250 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = 0; + } +#line 7406 "parse.c" /* yacc.c:1652 */ + break; + + case 277: +#line 2256 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_LIST((yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: args_add!(args_new!, $1) %*/ + } +#line 7417 "parse.c" /* yacc.c:1652 */ + break; + + case 278: +#line 2263 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_SPLAT((yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: args_add_star!(args_new!, $2) %*/ + } +#line 7428 "parse.c" /* yacc.c:1652 */ + break; + + case 279: +#line 2270 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = last_arg_append(p, (yyvsp[-2].node), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: args_add!($1, $3) %*/ + } +#line 7439 "parse.c" /* yacc.c:1652 */ + break; + + case 280: +#line 2277 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = rest_arg_append(p, (yyvsp[-3].node), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: args_add_star!($1, $4) %*/ + } +#line 7450 "parse.c" /* yacc.c:1652 */ + break; + + case 283: +#line 2290 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = last_arg_append(p, (yyvsp[-2].node), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: mrhs_add!(mrhs_new_from_args!($1), $3) %*/ + } +#line 7461 "parse.c" /* yacc.c:1652 */ + break; + + case 284: +#line 2297 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = rest_arg_append(p, (yyvsp[-3].node), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: mrhs_add_star!(mrhs_new_from_args!($1), $4) %*/ + } +#line 7472 "parse.c" /* yacc.c:1652 */ + break; + + case 285: +#line 2304 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_SPLAT((yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: mrhs_add_star!(mrhs_new!, $2) %*/ + } +#line 7483 "parse.c" /* yacc.c:1652 */ + break; + + case 296: +#line 2323 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_FCALL((yyvsp[0].id), 0, &(yyloc)); + /*% %*/ + /*% ripper: method_add_arg!(fcall!($1), args_new!) %*/ + } +#line 7494 "parse.c" /* yacc.c:1652 */ + break; + + case 297: +#line 2330 "parse.y" /* yacc.c:1652 */ + { + CMDARG_PUSH(0); + } +#line 7502 "parse.c" /* yacc.c:1652 */ + break; + + case 298: +#line 2335 "parse.y" /* yacc.c:1652 */ + { + CMDARG_POP(); + /*%%%*/ + set_line_body((yyvsp[-1].node), (yylsp[-3]).end_pos.lineno); + (yyval.node) = NEW_BEGIN((yyvsp[-1].node), &(yyloc)); + nd_set_line((yyval.node), (yylsp[-3]).end_pos.lineno); + /*% %*/ + /*% ripper: begin!($3) %*/ + } +#line 7516 "parse.c" /* yacc.c:1652 */ + break; + + case 299: +#line 2344 "parse.y" /* yacc.c:1652 */ + {SET_LEX_STATE(EXPR_ENDARG);} +#line 7522 "parse.c" /* yacc.c:1652 */ + break; + + case 300: +#line 2345 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_BEGIN(0, &(yyloc)); + /*% %*/ + /*% ripper: paren!(0) %*/ + } +#line 7533 "parse.c" /* yacc.c:1652 */ + break; + + case 301: +#line 2351 "parse.y" /* yacc.c:1652 */ + {SET_LEX_STATE(EXPR_ENDARG);} +#line 7539 "parse.c" /* yacc.c:1652 */ + break; + + case 302: +#line 2352 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[-2].node); + /*% %*/ + /*% ripper: paren!($2) %*/ + } +#line 7550 "parse.c" /* yacc.c:1652 */ + break; + + case 303: +#line 2359 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[-1].node); + /*% %*/ + /*% ripper: paren!($2) %*/ + } +#line 7561 "parse.c" /* yacc.c:1652 */ + break; + + case 304: +#line 2366 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_COLON2((yyvsp[-2].node), (yyvsp[0].id), &(yyloc)); + /*% %*/ + /*% ripper: const_path_ref!($1, $3) %*/ + } +#line 7572 "parse.c" /* yacc.c:1652 */ + break; + + case 305: +#line 2373 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_COLON3((yyvsp[0].id), &(yyloc)); + /*% %*/ + /*% ripper: top_const_ref!($2) %*/ + } +#line 7583 "parse.c" /* yacc.c:1652 */ + break; + + case 306: +#line 2380 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = make_array((yyvsp[-1].node), &(yyloc)); + /*% %*/ + /*% ripper: array!(escape_Qundef($2)) %*/ + } +#line 7594 "parse.c" /* yacc.c:1652 */ + break; + + case 307: +#line 2387 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_hash(p, (yyvsp[-1].node), &(yyloc)); + (yyval.node)->nd_alen = TRUE; + /*% %*/ + /*% ripper: hash!(escape_Qundef($2)) %*/ + } +#line 7606 "parse.c" /* yacc.c:1652 */ + break; + + case 308: +#line 2395 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_RETURN(0, &(yyloc)); + /*% %*/ + /*% ripper: return0! %*/ + } +#line 7617 "parse.c" /* yacc.c:1652 */ + break; + + case 309: +#line 2402 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_yield(p, (yyvsp[-1].node), &(yyloc)); + /*% %*/ + /*% ripper: yield!(paren!($3)) %*/ + } +#line 7628 "parse.c" /* yacc.c:1652 */ + break; + + case 310: +#line 2409 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_YIELD(0, &(yyloc)); + /*% %*/ + /*% ripper: yield!(paren!(args_new!)) %*/ + } +#line 7639 "parse.c" /* yacc.c:1652 */ + break; + + case 311: +#line 2416 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_YIELD(0, &(yyloc)); + /*% %*/ + /*% ripper: yield0! %*/ + } +#line 7650 "parse.c" /* yacc.c:1652 */ + break; + + case 312: +#line 2422 "parse.y" /* yacc.c:1652 */ + {p->in_defined = 1;} +#line 7656 "parse.c" /* yacc.c:1652 */ + break; + + case 313: +#line 2423 "parse.y" /* yacc.c:1652 */ + { + p->in_defined = 0; + (yyval.node) = new_defined(p, (yyvsp[-1].node), &(yyloc)); + } +#line 7665 "parse.c" /* yacc.c:1652 */ + break; + + case 314: +#line 2428 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_uni_op(p, method_cond(p, (yyvsp[-1].node), &(yylsp[-1])), METHOD_NOT, &(yylsp[-3]), &(yyloc)); + } +#line 7673 "parse.c" /* yacc.c:1652 */ + break; + + case 315: +#line 2432 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = call_uni_op(p, method_cond(p, new_nil(&(yylsp[-1])), &(yylsp[-1])), METHOD_NOT, &(yylsp[-2]), &(yyloc)); + } +#line 7681 "parse.c" /* yacc.c:1652 */ + break; + + case 316: +#line 2436 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = method_add_block(p, (yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: method_add_block!(method_add_arg!(fcall!($1), args_new!), $2) %*/ + } +#line 7692 "parse.c" /* yacc.c:1652 */ + break; + + case 318: +#line 2444 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + block_dup_check(p, (yyvsp[-1].node)->nd_args, (yyvsp[0].node)); + (yyval.node) = method_add_block(p, (yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: method_add_block!($1, $2) %*/ + } +#line 7704 "parse.c" /* yacc.c:1652 */ + break; + + case 319: +#line 2452 "parse.y" /* yacc.c:1652 */ + { + token_info_push(p, "->", &(yylsp[0])); + } +#line 7712 "parse.c" /* yacc.c:1652 */ + break; + + case 320: +#line 2456 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = (yyvsp[0].node); + /*%%%*/ + nd_set_first_loc((yyval.node), (yylsp[-2]).beg_pos); + /*% %*/ + } +#line 7723 "parse.c" /* yacc.c:1652 */ + break; + + case 321: +#line 2466 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_if(p, (yyvsp[-4].node), (yyvsp[-2].node), (yyvsp[-1].node), &(yyloc)); + fixpos((yyval.node), (yyvsp[-4].node)); + /*% %*/ + /*% ripper: if!($2, $4, escape_Qundef($5)) %*/ + } +#line 7735 "parse.c" /* yacc.c:1652 */ + break; + + case 322: +#line 2477 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_unless(p, (yyvsp[-4].node), (yyvsp[-2].node), (yyvsp[-1].node), &(yyloc)); + fixpos((yyval.node), (yyvsp[-4].node)); + /*% %*/ + /*% ripper: unless!($2, $4, escape_Qundef($5)) %*/ + } +#line 7747 "parse.c" /* yacc.c:1652 */ + break; + + case 323: +#line 2487 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_WHILE(cond(p, (yyvsp[-2].node), &(yylsp[-2])), (yyvsp[-1].node), 1, &(yyloc)); + fixpos((yyval.node), (yyvsp[-2].node)); + /*% %*/ + /*% ripper: while!($2, $3) %*/ + } +#line 7759 "parse.c" /* yacc.c:1652 */ + break; + + case 324: +#line 2497 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_UNTIL(cond(p, (yyvsp[-2].node), &(yylsp[-2])), (yyvsp[-1].node), 1, &(yyloc)); + fixpos((yyval.node), (yyvsp[-2].node)); + /*% %*/ + /*% ripper: until!($2, $3) %*/ + } +#line 7771 "parse.c" /* yacc.c:1652 */ + break; + + case 325: +#line 2507 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_CASE((yyvsp[-3].node), (yyvsp[-1].node), &(yyloc)); + fixpos((yyval.node), (yyvsp[-3].node)); + /*% %*/ + /*% ripper: case!($2, $4) %*/ + } +#line 7783 "parse.c" /* yacc.c:1652 */ + break; + + case 326: +#line 2515 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_CASE2((yyvsp[-1].node), &(yyloc)); + /*% %*/ + /*% ripper: case!(Qnil, $3) %*/ + } +#line 7794 "parse.c" /* yacc.c:1652 */ + break; + + case 327: +#line 2524 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + /* + * for a, b, c in e + * #=> + * e.each{|*x| a, b, c = x} + * + * for a in e + * #=> + * e.each{|x| a, = x} + */ + ID id = internal_id(p); + NODE *m = NEW_ARGS_AUX(0, 0, &NULL_LOC); + NODE *args, *scope, *internal_var = NEW_DVAR(id, &(yylsp[-4])); + rb_imemo_tmpbuf_t *tmpbuf = new_tmpbuf(); + ID *tbl = ALLOC_N(ID, 2); + tbl[0] = 1 /* length of local var table */; tbl[1] = id /* internal id */; + tmpbuf->ptr = (VALUE *)tbl; + + switch (nd_type((yyvsp[-4].node))) { + case NODE_LASGN: + case NODE_DASGN: + case NODE_DASGN_CURR: /* e.each {|internal_var| a = internal_var; ... } */ + (yyvsp[-4].node)->nd_value = internal_var; + id = 0; + m->nd_plen = 1; + m->nd_next = (yyvsp[-4].node); + break; + case NODE_MASGN: /* e.each {|*internal_var| a, b, c = (internal_var.length == 1 && Array === (tmp = internal_var[0]) ? tmp : internal_var); ... } */ + m->nd_next = node_assign(p, (yyvsp[-4].node), NEW_FOR_MASGN(internal_var, &(yylsp[-4])), &(yylsp[-4])); + break; + default: /* e.each {|*internal_var| @a, B, c[1], d.attr = internal_val; ... } */ + m->nd_next = node_assign(p, NEW_MASGN(NEW_LIST((yyvsp[-4].node), &(yylsp[-4])), 0, &(yylsp[-4])), internal_var, &(yylsp[-4])); + } + /* {|*internal_id| <m> = internal_id; ... } */ + args = new_args(p, m, 0, id, 0, new_args_tail(p, 0, 0, 0, &(yylsp[-4])), &(yylsp[-4])); + scope = NEW_NODE(NODE_SCOPE, tbl, (yyvsp[-1].node), args, &(yyloc)); + (yyval.node) = NEW_FOR((yyvsp[-2].node), scope, &(yyloc)); + fixpos((yyval.node), (yyvsp[-4].node)); + /*% %*/ + /*% ripper: for!($2, $4, $5) %*/ + } +#line 7841 "parse.c" /* yacc.c:1652 */ + break; + + case 328: +#line 2567 "parse.y" /* yacc.c:1652 */ + { + if (p->in_def) { + YYLTYPE loc = code_loc_gen(&(yylsp[-2]), &(yylsp[-1])); + yyerror1(&loc, "class definition in method body"); + } + (yyvsp[-2].num) = p->in_class; + p->in_class = 1; + local_push(p, 0); + } +#line 7855 "parse.c" /* yacc.c:1652 */ + break; + + case 329: +#line 2578 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_CLASS((yyvsp[-4].node), (yyvsp[-1].node), (yyvsp[-3].node), &(yyloc)); + nd_set_line((yyval.node)->nd_body, (yylsp[0]).end_pos.lineno); + set_line_body((yyvsp[-1].node), (yylsp[-3]).end_pos.lineno); + nd_set_line((yyval.node), (yylsp[-3]).end_pos.lineno); + /*% %*/ + /*% ripper: class!($2, $3, $5) %*/ + local_pop(p); + p->in_class = (yyvsp[-5].num) & 1; + } +#line 7871 "parse.c" /* yacc.c:1652 */ + break; + + case 330: +#line 2590 "parse.y" /* yacc.c:1652 */ + { + (yyval.num) = (p->in_class << 1) | p->in_def; + p->in_def = 0; + p->in_class = 0; + local_push(p, 0); + } +#line 7882 "parse.c" /* yacc.c:1652 */ + break; + + case 331: +#line 2599 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_SCLASS((yyvsp[-4].node), (yyvsp[-1].node), &(yyloc)); + nd_set_line((yyval.node)->nd_body, (yylsp[0]).end_pos.lineno); + set_line_body((yyvsp[-1].node), nd_line((yyvsp[-4].node))); + fixpos((yyval.node), (yyvsp[-4].node)); + /*% %*/ + /*% ripper: sclass!($3, $6) %*/ + local_pop(p); + p->in_def = (yyvsp[-3].num) & 1; + p->in_class = ((yyvsp[-3].num) >> 1) & 1; + } +#line 7899 "parse.c" /* yacc.c:1652 */ + break; + + case 332: +#line 2612 "parse.y" /* yacc.c:1652 */ + { + if (p->in_def) { + YYLTYPE loc = code_loc_gen(&(yylsp[-1]), &(yylsp[0])); + yyerror1(&loc, "module definition in method body"); + } + (yyvsp[-1].num) = p->in_class; + p->in_class = 1; + local_push(p, 0); + } +#line 7913 "parse.c" /* yacc.c:1652 */ + break; + + case 333: +#line 2623 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_MODULE((yyvsp[-3].node), (yyvsp[-1].node), &(yyloc)); + nd_set_line((yyval.node)->nd_body, (yylsp[0]).end_pos.lineno); + set_line_body((yyvsp[-1].node), (yylsp[-3]).end_pos.lineno); + nd_set_line((yyval.node), (yylsp[-3]).end_pos.lineno); + /*% %*/ + /*% ripper: module!($2, $4) %*/ + local_pop(p); + p->in_class = (yyvsp[-4].num) & 1; + } +#line 7929 "parse.c" /* yacc.c:1652 */ + break; + + case 334: +#line 2635 "parse.y" /* yacc.c:1652 */ + { + local_push(p, 0); + (yyval.id) = p->cur_arg; + p->cur_arg = 0; + } +#line 7939 "parse.c" /* yacc.c:1652 */ + break; + + case 335: +#line 2640 "parse.y" /* yacc.c:1652 */ + { + (yyval.num) = p->in_def; + p->in_def = 1; + } +#line 7948 "parse.c" /* yacc.c:1652 */ + break; + + case 336: +#line 2647 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + NODE *body = remove_begin((yyvsp[-1].node)); + reduce_nodes(p, &body); + (yyval.node) = NEW_DEFN((yyvsp[-5].id), (yyvsp[-2].node), body, &(yyloc)); + nd_set_line((yyval.node)->nd_defn, (yylsp[0]).end_pos.lineno); + set_line_body(body, (yylsp[-6]).beg_pos.lineno); + /*% %*/ + /*% ripper: def!($2, $5, $6) %*/ + local_pop(p); + p->in_def = (yyvsp[-3].num) & 1; + p->cur_arg = (yyvsp[-4].id); + } +#line 7966 "parse.c" /* yacc.c:1652 */ + break; + + case 337: +#line 2660 "parse.y" /* yacc.c:1652 */ + {SET_LEX_STATE(EXPR_FNAME);} +#line 7972 "parse.c" /* yacc.c:1652 */ + break; + + case 338: +#line 2661 "parse.y" /* yacc.c:1652 */ + { + (yyvsp[-1].num) = p->in_def; + p->in_def = 1; + SET_LEX_STATE(EXPR_ENDFN|EXPR_LABEL); /* force for args */ + local_push(p, 0); + (yyval.id) = p->cur_arg; + p->cur_arg = 0; + } +#line 7985 "parse.c" /* yacc.c:1652 */ + break; + + case 339: +#line 2672 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + NODE *body = remove_begin((yyvsp[-1].node)); + reduce_nodes(p, &body); + (yyval.node) = NEW_DEFS((yyvsp[-7].node), (yyvsp[-4].id), (yyvsp[-2].node), body, &(yyloc)); + nd_set_line((yyval.node)->nd_defn, (yylsp[0]).end_pos.lineno); + set_line_body(body, (yylsp[-8]).beg_pos.lineno); + /*% %*/ + /*% ripper: defs!($2, $3, $5, $7, $8) %*/ + local_pop(p); + p->in_def = (yyvsp[-5].num) & 1; + p->cur_arg = (yyvsp[-3].id); + } +#line 8003 "parse.c" /* yacc.c:1652 */ + break; + + case 340: +#line 2686 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_BREAK(0, &(yyloc)); + /*% %*/ + /*% ripper: break!(args_new!) %*/ + } +#line 8014 "parse.c" /* yacc.c:1652 */ + break; + + case 341: +#line 2693 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_NEXT(0, &(yyloc)); + /*% %*/ + /*% ripper: next!(args_new!) %*/ + } +#line 8025 "parse.c" /* yacc.c:1652 */ + break; + + case 342: +#line 2700 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_REDO(&(yyloc)); + /*% %*/ + /*% ripper: redo! %*/ + } +#line 8036 "parse.c" /* yacc.c:1652 */ + break; + + case 343: +#line 2707 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_RETRY(&(yyloc)); + /*% %*/ + /*% ripper: retry! %*/ + } +#line 8047 "parse.c" /* yacc.c:1652 */ + break; + + case 344: +#line 2716 "parse.y" /* yacc.c:1652 */ + { + value_expr((yyvsp[0].node)); + (yyval.node) = (yyvsp[0].node); + } +#line 8056 "parse.c" /* yacc.c:1652 */ + break; + + case 345: +#line 2723 "parse.y" /* yacc.c:1652 */ + { + token_info_push(p, "begin", &(yyloc)); + } +#line 8064 "parse.c" /* yacc.c:1652 */ + break; + + case 346: +#line 2729 "parse.y" /* yacc.c:1652 */ + { + token_info_push(p, "if", &(yyloc)); + } +#line 8072 "parse.c" /* yacc.c:1652 */ + break; + + case 347: +#line 2735 "parse.y" /* yacc.c:1652 */ + { + token_info_push(p, "unless", &(yyloc)); + } +#line 8080 "parse.c" /* yacc.c:1652 */ + break; + + case 348: +#line 2741 "parse.y" /* yacc.c:1652 */ + { + token_info_push(p, "while", &(yyloc)); + } +#line 8088 "parse.c" /* yacc.c:1652 */ + break; + + case 349: +#line 2747 "parse.y" /* yacc.c:1652 */ + { + token_info_push(p, "until", &(yyloc)); + } +#line 8096 "parse.c" /* yacc.c:1652 */ + break; + + case 350: +#line 2753 "parse.y" /* yacc.c:1652 */ + { + token_info_push(p, "case", &(yyloc)); + } +#line 8104 "parse.c" /* yacc.c:1652 */ + break; + + case 351: +#line 2759 "parse.y" /* yacc.c:1652 */ + { + token_info_push(p, "for", &(yyloc)); + } +#line 8112 "parse.c" /* yacc.c:1652 */ + break; + + case 352: +#line 2765 "parse.y" /* yacc.c:1652 */ + { + token_info_push(p, "class", &(yyloc)); + } +#line 8120 "parse.c" /* yacc.c:1652 */ + break; + + case 353: +#line 2771 "parse.y" /* yacc.c:1652 */ + { + token_info_push(p, "module", &(yyloc)); + } +#line 8128 "parse.c" /* yacc.c:1652 */ + break; + + case 354: +#line 2777 "parse.y" /* yacc.c:1652 */ + { + token_info_push(p, "def", &(yyloc)); + } +#line 8136 "parse.c" /* yacc.c:1652 */ + break; + + case 355: +#line 2783 "parse.y" /* yacc.c:1652 */ + { + token_info_push(p, "do", &(yyloc)); + } +#line 8144 "parse.c" /* yacc.c:1652 */ + break; + + case 356: +#line 2789 "parse.y" /* yacc.c:1652 */ + { + token_info_push(p, "do", &(yyloc)); + } +#line 8152 "parse.c" /* yacc.c:1652 */ + break; + + case 357: +#line 2795 "parse.y" /* yacc.c:1652 */ + { + token_info_warn(p, "rescue", p->token_info, 1, &(yyloc)); + } +#line 8160 "parse.c" /* yacc.c:1652 */ + break; + + case 358: +#line 2801 "parse.y" /* yacc.c:1652 */ + { + token_info_warn(p, "ensure", p->token_info, 1, &(yyloc)); + } +#line 8168 "parse.c" /* yacc.c:1652 */ + break; + + case 359: +#line 2807 "parse.y" /* yacc.c:1652 */ + { + token_info_warn(p, "when", p->token_info, 0, &(yyloc)); + } +#line 8176 "parse.c" /* yacc.c:1652 */ + break; + + case 360: +#line 2813 "parse.y" /* yacc.c:1652 */ + { + token_info *ptinfo_beg = p->token_info; + int same = ptinfo_beg && strcmp(ptinfo_beg->token, "case") != 0; + token_info_warn(p, "else", p->token_info, same, &(yyloc)); + } +#line 8186 "parse.c" /* yacc.c:1652 */ + break; + + case 361: +#line 2821 "parse.y" /* yacc.c:1652 */ + { + token_info_warn(p, "elsif", p->token_info, 1, &(yyloc)); + } +#line 8194 "parse.c" /* yacc.c:1652 */ + break; + + case 362: +#line 2827 "parse.y" /* yacc.c:1652 */ + { + token_info_pop(p, "end", &(yyloc)); + } +#line 8202 "parse.c" /* yacc.c:1652 */ + break; + + case 363: +#line 2833 "parse.y" /* yacc.c:1652 */ + { + if (p->in_class && !p->in_def && !dyna_in_block(p)) + yyerror1(&(yylsp[0]), "Invalid return in class/module body"); + } +#line 8211 "parse.c" /* yacc.c:1652 */ + break; + + case 370: +#line 2852 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_if(p, (yyvsp[-3].node), (yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + fixpos((yyval.node), (yyvsp[-3].node)); + /*% %*/ + /*% ripper: elsif!($2, $4, escape_Qundef($5)) %*/ + } +#line 8223 "parse.c" /* yacc.c:1652 */ + break; + + case 372: +#line 2863 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[0].node); + /*% %*/ + /*% ripper: else!($2) %*/ + } +#line 8234 "parse.c" /* yacc.c:1652 */ + break; + + case 375: +#line 2876 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = assignable(p, (yyvsp[0].id), 0, &(yyloc)); + /*% %*/ + /*% ripper: assignable(p, $1) %*/ + } +#line 8245 "parse.c" /* yacc.c:1652 */ + break; + + case 376: +#line 2883 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[-1].node); + /*% %*/ + /*% ripper: mlhs_paren!($2) %*/ + } +#line 8256 "parse.c" /* yacc.c:1652 */ + break; + + case 377: +#line 2892 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_LIST((yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: mlhs_add!(mlhs_new!, $1) %*/ + } +#line 8267 "parse.c" /* yacc.c:1652 */ + break; + + case 378: +#line 2899 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = list_append(p, (yyvsp[-2].node), (yyvsp[0].node)); + /*% %*/ + /*% ripper: mlhs_add!($1, $3) %*/ + } +#line 8278 "parse.c" /* yacc.c:1652 */ + break; + + case 379: +#line 2908 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_MASGN((yyvsp[0].node), 0, &(yyloc)); + /*% %*/ + /*% ripper: $1 %*/ + } +#line 8289 "parse.c" /* yacc.c:1652 */ + break; + + case 380: +#line 2915 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_MASGN((yyvsp[-3].node), assignable(p, (yyvsp[0].id), 0, &(yyloc)), &(yyloc)); + /*% %*/ + /*% ripper: mlhs_add_star!($1, assignable(p, $4)) %*/ + } +#line 8300 "parse.c" /* yacc.c:1652 */ + break; + + case 381: +#line 2922 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_MASGN((yyvsp[-5].node), NEW_POSTARG(assignable(p, (yyvsp[-2].id), 0, &(yyloc)), (yyvsp[0].node), &(yyloc)), &(yyloc)); + /*% %*/ + /*% ripper: mlhs_add_post!(mlhs_add_star!($1, assignable(p, $4)), $6) %*/ + } +#line 8311 "parse.c" /* yacc.c:1652 */ + break; + + case 382: +#line 2929 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_MASGN((yyvsp[-2].node), NODE_SPECIAL_NO_NAME_REST, &(yyloc)); + /*% %*/ + /*% ripper: mlhs_add_star!($1, Qnil) %*/ + } +#line 8322 "parse.c" /* yacc.c:1652 */ + break; + + case 383: +#line 2936 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_MASGN((yyvsp[-4].node), NEW_POSTARG(NODE_SPECIAL_NO_NAME_REST, (yyvsp[0].node), &(yyloc)), &(yyloc)); + /*% %*/ + /*% ripper: mlhs_add_post!(mlhs_add_star!($1, Qnil), $5) %*/ + } +#line 8333 "parse.c" /* yacc.c:1652 */ + break; + + case 384: +#line 2943 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_MASGN(0, assignable(p, (yyvsp[0].id), 0, &(yyloc)), &(yyloc)); + /*% %*/ + /*% ripper: mlhs_add_star!(mlhs_new!, assignable(p, $2)) %*/ + } +#line 8344 "parse.c" /* yacc.c:1652 */ + break; + + case 385: +#line 2950 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_MASGN(0, NEW_POSTARG(assignable(p, (yyvsp[-2].id), 0, &(yyloc)), (yyvsp[0].node), &(yyloc)), &(yyloc)); + /*% %*/ + /*% ripper: mlhs_add_post!(mlhs_add_star!(mlhs_new!, assignable(p, $2)), $4) %*/ + } +#line 8355 "parse.c" /* yacc.c:1652 */ + break; + + case 386: +#line 2957 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_MASGN(0, NODE_SPECIAL_NO_NAME_REST, &(yyloc)); + /*% %*/ + /*% ripper: mlhs_add_star!(mlhs_new!, Qnil) %*/ + } +#line 8366 "parse.c" /* yacc.c:1652 */ + break; + + case 387: +#line 2964 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_MASGN(0, NEW_POSTARG(NODE_SPECIAL_NO_NAME_REST, (yyvsp[0].node), &(yyloc)), &(yyloc)); + /*% %*/ + /*% ripper: mlhs_add_post!(mlhs_add_star!(mlhs_new!, Qnil), $3) %*/ + } +#line 8377 "parse.c" /* yacc.c:1652 */ + break; + + case 388: +#line 2974 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args_tail(p, (yyvsp[-3].node), (yyvsp[-1].id), (yyvsp[0].id), &(yylsp[-1])); + } +#line 8385 "parse.c" /* yacc.c:1652 */ + break; + + case 389: +#line 2978 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args_tail(p, (yyvsp[-1].node), Qnone, (yyvsp[0].id), &(yylsp[-1])); + } +#line 8393 "parse.c" /* yacc.c:1652 */ + break; + + case 390: +#line 2982 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args_tail(p, Qnone, (yyvsp[-1].id), (yyvsp[0].id), &(yylsp[-1])); + } +#line 8401 "parse.c" /* yacc.c:1652 */ + break; + + case 391: +#line 2986 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args_tail(p, Qnone, Qnone, (yyvsp[0].id), &(yylsp[0])); + } +#line 8409 "parse.c" /* yacc.c:1652 */ + break; + + case 392: +#line 2992 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = (yyvsp[0].node); + } +#line 8417 "parse.c" /* yacc.c:1652 */ + break; + + case 393: +#line 2996 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args_tail(p, Qnone, Qnone, Qnone, &(yylsp[0])); + } +#line 8425 "parse.c" /* yacc.c:1652 */ + break; + + case 394: +#line 3002 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, (yyvsp[-5].node), (yyvsp[-3].node), (yyvsp[-1].id), Qnone, (yyvsp[0].node), &(yyloc)); + } +#line 8433 "parse.c" /* yacc.c:1652 */ + break; + + case 395: +#line 3006 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, (yyvsp[-7].node), (yyvsp[-5].node), (yyvsp[-3].id), (yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + } +#line 8441 "parse.c" /* yacc.c:1652 */ + break; + + case 396: +#line 3010 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, (yyvsp[-3].node), (yyvsp[-1].node), Qnone, Qnone, (yyvsp[0].node), &(yyloc)); + } +#line 8449 "parse.c" /* yacc.c:1652 */ + break; + + case 397: +#line 3014 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, (yyvsp[-5].node), (yyvsp[-3].node), Qnone, (yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + } +#line 8457 "parse.c" /* yacc.c:1652 */ + break; + + case 398: +#line 3018 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, (yyvsp[-3].node), Qnone, (yyvsp[-1].id), Qnone, (yyvsp[0].node), &(yyloc)); + } +#line 8465 "parse.c" /* yacc.c:1652 */ + break; + + case 399: +#line 3022 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + /* magic number for rest_id in iseq_set_arguments() */ + const ID excessed_comma = 1; + (yyval.node) = new_args(p, (yyvsp[-1].node), Qnone, excessed_comma, Qnone, new_args_tail(p, Qnone, Qnone, Qnone, &(yylsp[-1])), &(yyloc)); + /*% %*/ + /*% ripper: new_args(p, $1, Qnone, excessed_comma!, Qnone, new_args_tail(p, Qnone, Qnone, Qnone, NULL), NULL) %*/ + } +#line 8478 "parse.c" /* yacc.c:1652 */ + break; + + case 400: +#line 3031 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, (yyvsp[-5].node), Qnone, (yyvsp[-3].id), (yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + } +#line 8486 "parse.c" /* yacc.c:1652 */ + break; + + case 401: +#line 3035 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, (yyvsp[-1].node), Qnone, Qnone, Qnone, (yyvsp[0].node), &(yyloc)); + } +#line 8494 "parse.c" /* yacc.c:1652 */ + break; + + case 402: +#line 3039 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, Qnone, (yyvsp[-3].node), (yyvsp[-1].id), Qnone, (yyvsp[0].node), &(yyloc)); + } +#line 8502 "parse.c" /* yacc.c:1652 */ + break; + + case 403: +#line 3043 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, Qnone, (yyvsp[-5].node), (yyvsp[-3].id), (yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + } +#line 8510 "parse.c" /* yacc.c:1652 */ + break; + + case 404: +#line 3047 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, Qnone, (yyvsp[-1].node), Qnone, Qnone, (yyvsp[0].node), &(yyloc)); + } +#line 8518 "parse.c" /* yacc.c:1652 */ + break; + + case 405: +#line 3051 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, Qnone, (yyvsp[-3].node), Qnone, (yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + } +#line 8526 "parse.c" /* yacc.c:1652 */ + break; + + case 406: +#line 3055 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, Qnone, Qnone, (yyvsp[-1].id), Qnone, (yyvsp[0].node), &(yyloc)); + } +#line 8534 "parse.c" /* yacc.c:1652 */ + break; + + case 407: +#line 3059 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, Qnone, Qnone, (yyvsp[-3].id), (yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + } +#line 8542 "parse.c" /* yacc.c:1652 */ + break; + + case 408: +#line 3063 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, Qnone, Qnone, Qnone, Qnone, (yyvsp[0].node), &(yyloc)); + } +#line 8550 "parse.c" /* yacc.c:1652 */ + break; + + case 410: +#line 3070 "parse.y" /* yacc.c:1652 */ + { + p->command_start = TRUE; + } +#line 8558 "parse.c" /* yacc.c:1652 */ + break; + + case 411: +#line 3076 "parse.y" /* yacc.c:1652 */ + { + p->cur_arg = 0; + /*%%%*/ + (yyval.node) = 0; + /*% %*/ + /*% ripper: block_var!(params_new(Qnil,Qnil,Qnil,Qnil,Qnil,Qnil,Qnil), escape_Qundef($2)) %*/ + } +#line 8570 "parse.c" /* yacc.c:1652 */ + break; + + case 412: +#line 3084 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = 0; + /*% %*/ + /*% ripper: block_var!(params_new(Qnil,Qnil,Qnil,Qnil,Qnil,Qnil,Qnil), Qnil) %*/ + } +#line 8581 "parse.c" /* yacc.c:1652 */ + break; + + case 413: +#line 3091 "parse.y" /* yacc.c:1652 */ + { + p->cur_arg = 0; + /*%%%*/ + (yyval.node) = (yyvsp[-2].node); + /*% %*/ + /*% ripper: block_var!(escape_Qundef($2), escape_Qundef($3)) %*/ + } +#line 8593 "parse.c" /* yacc.c:1652 */ + break; + + case 414: +#line 3102 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = 0; + } +#line 8601 "parse.c" /* yacc.c:1652 */ + break; + + case 415: +#line 3106 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = 0; + /*% %*/ + /*% ripper: $3 %*/ + } +#line 8612 "parse.c" /* yacc.c:1652 */ + break; + + case 418: +#line 3121 "parse.y" /* yacc.c:1652 */ + { + new_bv(p, get_id((yyvsp[0].id))); + /*% ripper: get_value($1) %*/ + } +#line 8621 "parse.c" /* yacc.c:1652 */ + break; + + case 419: +#line 3126 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = 0; + } +#line 8629 "parse.c" /* yacc.c:1652 */ + break; + + case 420: +#line 3131 "parse.y" /* yacc.c:1652 */ + { + (yyval.vars) = dyna_push(p); + } +#line 8637 "parse.c" /* yacc.c:1652 */ + break; + + case 421: +#line 3134 "parse.y" /* yacc.c:1652 */ + { + (yyval.num) = p->lex.lpar_beg; + p->lex.lpar_beg = p->lex.paren_nest; + } +#line 8646 "parse.c" /* yacc.c:1652 */ + break; + + case 422: +#line 3139 "parse.y" /* yacc.c:1652 */ + { + CMDARG_PUSH(0); + } +#line 8654 "parse.c" /* yacc.c:1652 */ + break; + + case 423: +#line 3143 "parse.y" /* yacc.c:1652 */ + { + p->lex.lpar_beg = (yyvsp[-3].num); + CMDARG_POP(); + /*%%%*/ + { + YYLTYPE loc = code_loc_gen(&(yylsp[-2]), &(yylsp[0])); + (yyval.node) = NEW_LAMBDA((yyvsp[-2].node), (yyvsp[0].node), &loc); + nd_set_line((yyval.node)->nd_body, (yylsp[0]).end_pos.lineno); + nd_set_line((yyval.node), (yylsp[-2]).end_pos.lineno); + } + /*% %*/ + /*% ripper: lambda!($3, $5) %*/ + dyna_pop(p, (yyvsp[-4].vars)); + } +#line 8673 "parse.c" /* yacc.c:1652 */ + break; + + case 424: +#line 3160 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[-2].node); + /*% %*/ + /*% ripper: paren!($2) %*/ + } +#line 8684 "parse.c" /* yacc.c:1652 */ + break; + + case 425: +#line 3167 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = (yyvsp[0].node); + } +#line 8692 "parse.c" /* yacc.c:1652 */ + break; + + case 426: +#line 3173 "parse.y" /* yacc.c:1652 */ + { + token_info_pop(p, "}", &(yylsp[0])); + (yyval.node) = (yyvsp[-1].node); + } +#line 8701 "parse.c" /* yacc.c:1652 */ + break; + + case 427: +#line 3178 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = (yyvsp[-1].node); + } +#line 8709 "parse.c" /* yacc.c:1652 */ + break; + + case 428: +#line 3184 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = (yyvsp[-1].node); + /*%%%*/ + (yyval.node)->nd_body->nd_loc = code_loc_gen(&(yylsp[-2]), &(yylsp[0])); + nd_set_line((yyval.node), (yylsp[-2]).end_pos.lineno); + /*% %*/ + } +#line 8721 "parse.c" /* yacc.c:1652 */ + break; + + case 429: +#line 3194 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + if (nd_type((yyvsp[-1].node)) == NODE_YIELD) { + compile_error(p, "block given to yield"); + } + else { + block_dup_check(p, (yyvsp[-1].node)->nd_args, (yyvsp[0].node)); + } + (yyval.node) = method_add_block(p, (yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + fixpos((yyval.node), (yyvsp[-1].node)); + /*% %*/ + /*% ripper: method_add_block!($1, $2) %*/ + } +#line 8739 "parse.c" /* yacc.c:1652 */ + break; + + case 430: +#line 3208 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_qcall(p, (yyvsp[-2].id), (yyvsp[-3].node), (yyvsp[-1].id), (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + /*% %*/ + /*% ripper: opt_event(:method_add_arg!, call!($1, $2, $3), $4) %*/ + } +#line 8750 "parse.c" /* yacc.c:1652 */ + break; + + case 431: +#line 3215 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_command_qcall(p, (yyvsp[-3].id), (yyvsp[-4].node), (yyvsp[-2].id), (yyvsp[-1].node), (yyvsp[0].node), &(yylsp[-2]), &(yyloc)); + /*% %*/ + /*% ripper: opt_event(:method_add_block!, command_call!($1, $2, $3, $4), $5) %*/ + } +#line 8761 "parse.c" /* yacc.c:1652 */ + break; + + case 432: +#line 3222 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_command_qcall(p, (yyvsp[-3].id), (yyvsp[-4].node), (yyvsp[-2].id), (yyvsp[-1].node), (yyvsp[0].node), &(yylsp[-2]), &(yyloc)); + /*% %*/ + /*% ripper: method_add_block!(command_call!($1, $2, $3, $4), $5) %*/ + } +#line 8772 "parse.c" /* yacc.c:1652 */ + break; + + case 433: +#line 3231 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[-1].node); + (yyval.node)->nd_args = (yyvsp[0].node); + nd_set_last_loc((yyvsp[-1].node), (yylsp[0]).end_pos); + /*% %*/ + /*% ripper: method_add_arg!(fcall!($1), $2) %*/ + } +#line 8785 "parse.c" /* yacc.c:1652 */ + break; + + case 434: +#line 3240 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_qcall(p, (yyvsp[-2].id), (yyvsp[-3].node), (yyvsp[-1].id), (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + nd_set_line((yyval.node), (yylsp[-1]).end_pos.lineno); + /*% %*/ + /*% ripper: opt_event(:method_add_arg!, call!($1, $2, $3), $4) %*/ + } +#line 8797 "parse.c" /* yacc.c:1652 */ + break; + + case 435: +#line 3248 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_qcall(p, ID2VAL(idCOLON2), (yyvsp[-3].node), (yyvsp[-1].id), (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + nd_set_line((yyval.node), (yylsp[-1]).end_pos.lineno); + /*% %*/ + /*% ripper: method_add_arg!(call!($1, ID2VAL(idCOLON2), $3), $4) %*/ + } +#line 8809 "parse.c" /* yacc.c:1652 */ + break; + + case 436: +#line 3256 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_qcall(p, ID2VAL(idCOLON2), (yyvsp[-2].node), (yyvsp[0].id), Qnull, &(yylsp[0]), &(yyloc)); + /*% %*/ + /*% ripper: call!($1, ID2VAL(idCOLON2), $3) %*/ + } +#line 8820 "parse.c" /* yacc.c:1652 */ + break; + + case 437: +#line 3263 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_qcall(p, (yyvsp[-1].id), (yyvsp[-2].node), ID2VAL(idCall), (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + nd_set_line((yyval.node), (yylsp[-1]).end_pos.lineno); + /*% %*/ + /*% ripper: method_add_arg!(call!($1, $2, ID2VAL(idCall)), $3) %*/ + } +#line 8832 "parse.c" /* yacc.c:1652 */ + break; + + case 438: +#line 3271 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_qcall(p, ID2VAL(idCOLON2), (yyvsp[-2].node), ID2VAL(idCall), (yyvsp[0].node), &(yylsp[-1]), &(yyloc)); + nd_set_line((yyval.node), (yylsp[-1]).end_pos.lineno); + /*% %*/ + /*% ripper: method_add_arg!(call!($1, ID2VAL(idCOLON2), ID2VAL(idCall)), $3) %*/ + } +#line 8844 "parse.c" /* yacc.c:1652 */ + break; + + case 439: +#line 3279 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_SUPER((yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: super!($2) %*/ + } +#line 8855 "parse.c" /* yacc.c:1652 */ + break; + + case 440: +#line 3286 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_ZSUPER(&(yyloc)); + /*% %*/ + /*% ripper: zsuper! %*/ + } +#line 8866 "parse.c" /* yacc.c:1652 */ + break; + + case 441: +#line 3293 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + if ((yyvsp[-3].node) && nd_type((yyvsp[-3].node)) == NODE_SELF) + (yyval.node) = NEW_FCALL(tAREF, (yyvsp[-1].node), &(yyloc)); + else + (yyval.node) = NEW_CALL((yyvsp[-3].node), tAREF, (yyvsp[-1].node), &(yyloc)); + fixpos((yyval.node), (yyvsp[-3].node)); + /*% %*/ + /*% ripper: aref!($1, escape_Qundef($3)) %*/ + } +#line 8881 "parse.c" /* yacc.c:1652 */ + break; + + case 442: +#line 3306 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = (yyvsp[-1].node); + /*%%%*/ + (yyval.node)->nd_body->nd_loc = code_loc_gen(&(yylsp[-2]), &(yylsp[0])); + nd_set_line((yyval.node), (yylsp[-2]).end_pos.lineno); + /*% %*/ + } +#line 8893 "parse.c" /* yacc.c:1652 */ + break; + + case 443: +#line 3314 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = (yyvsp[-1].node); + /*%%%*/ + (yyval.node)->nd_body->nd_loc = code_loc_gen(&(yylsp[-2]), &(yylsp[0])); + nd_set_line((yyval.node), (yylsp[-2]).end_pos.lineno); + /*% %*/ + } +#line 8905 "parse.c" /* yacc.c:1652 */ + break; + + case 444: +#line 3323 "parse.y" /* yacc.c:1652 */ + {(yyval.vars) = dyna_push(p);} +#line 8911 "parse.c" /* yacc.c:1652 */ + break; + + case 445: +#line 3325 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_ITER((yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: brace_block!(escape_Qundef($2), $3) %*/ + dyna_pop(p, (yyvsp[-2].vars)); + } +#line 8923 "parse.c" /* yacc.c:1652 */ + break; + + case 446: +#line 3334 "parse.y" /* yacc.c:1652 */ + {(yyval.vars) = dyna_push(p);} +#line 8929 "parse.c" /* yacc.c:1652 */ + break; + + case 447: +#line 3335 "parse.y" /* yacc.c:1652 */ + {CMDARG_PUSH(0);} +#line 8935 "parse.c" /* yacc.c:1652 */ + break; + + case 448: +#line 3337 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_ITER((yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: do_block!(escape_Qundef($3), $4) %*/ + CMDARG_POP(); + dyna_pop(p, (yyvsp[-3].vars)); + } +#line 8948 "parse.c" /* yacc.c:1652 */ + break; + + case 449: +#line 3350 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_WHEN((yyvsp[-3].node), (yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + fixpos((yyval.node), (yyvsp[-3].node)); + /*% %*/ + /*% ripper: when!($2, $4, escape_Qundef($5)) %*/ + } +#line 8960 "parse.c" /* yacc.c:1652 */ + break; + + case 452: +#line 3366 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_RESBODY((yyvsp[-4].node), + (yyvsp[-3].node) ? block_append(p, node_assign(p, (yyvsp[-3].node), NEW_ERRINFO(&(yylsp[-3])), &(yylsp[-3])), (yyvsp[-1].node)) : (yyvsp[-1].node), + (yyvsp[0].node), &(yyloc)); + fixpos((yyval.node), (yyvsp[-4].node)?(yyvsp[-4].node):(yyvsp[-1].node)); + /*% %*/ + /*% ripper: rescue!(escape_Qundef($2), escape_Qundef($3), escape_Qundef($5), escape_Qundef($6)) %*/ + } +#line 8974 "parse.c" /* yacc.c:1652 */ + break; + + case 454: +#line 3379 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_LIST((yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: rb_ary_new3(1, get_value($1)) %*/ + } +#line 8985 "parse.c" /* yacc.c:1652 */ + break; + + case 455: +#line 3386 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + if (!((yyval.node) = splat_array((yyvsp[0].node)))) (yyval.node) = (yyvsp[0].node); + /*% %*/ + /*% ripper: $1 %*/ + } +#line 8996 "parse.c" /* yacc.c:1652 */ + break; + + case 457: +#line 3396 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = (yyvsp[0].node); + } +#line 9004 "parse.c" /* yacc.c:1652 */ + break; + + case 459: +#line 3403 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[0].node); + /*% %*/ + /*% ripper: ensure!($2) %*/ + } +#line 9015 "parse.c" /* yacc.c:1652 */ + break; + + case 462: +#line 3414 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_LIT(ID2SYM((yyvsp[0].id)), &(yyloc)); + /*% %*/ + /*% ripper: symbol_literal!($1) %*/ + } +#line 9026 "parse.c" /* yacc.c:1652 */ + break; + + case 464: +#line 3424 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + NODE *node = (yyvsp[0].node); + if (!node) { + node = NEW_STR(add_mark_object(p, STR_NEW0()), &(yyloc)); + } + else { + node = evstr2dstr(p, node); + } + (yyval.node) = node; + /*% %*/ + /*% ripper: $1 %*/ + } +#line 9044 "parse.c" /* yacc.c:1652 */ + break; + + case 467: +#line 3442 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = literal_concat(p, (yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: string_concat!($1, $2) %*/ + } +#line 9055 "parse.c" /* yacc.c:1652 */ + break; + + case 468: +#line 3451 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = heredoc_dedent(p, (yyvsp[-1].node)); + if ((yyval.node)) nd_set_loc((yyval.node), &(yyloc)); + /*% %*/ + /*% ripper: string_literal!(heredoc_dedent(p, $2)) %*/ + } +#line 9067 "parse.c" /* yacc.c:1652 */ + break; + + case 469: +#line 3461 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_xstring(p, heredoc_dedent(p, (yyvsp[-1].node)), &(yyloc)); + /*% %*/ + /*% ripper: xstring_literal!(heredoc_dedent(p, $2)) %*/ + } +#line 9078 "parse.c" /* yacc.c:1652 */ + break; + + case 470: +#line 3470 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_regexp(p, (yyvsp[-1].node), (yyvsp[0].num), &(yyloc)); + } +#line 9086 "parse.c" /* yacc.c:1652 */ + break; + + case 471: +#line 3476 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = make_array((yyvsp[-1].node), &(yyloc)); + /*% %*/ + /*% ripper: array!($3) %*/ + } +#line 9097 "parse.c" /* yacc.c:1652 */ + break; + + case 472: +#line 3485 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = 0; + /*% %*/ + /*% ripper: words_new! %*/ + } +#line 9108 "parse.c" /* yacc.c:1652 */ + break; + + case 473: +#line 3492 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = list_append(p, (yyvsp[-2].node), evstr2dstr(p, (yyvsp[-1].node))); + /*% %*/ + /*% ripper: words_add!($1, $2) %*/ + } +#line 9119 "parse.c" /* yacc.c:1652 */ + break; + + case 475: +#line 3503 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = literal_concat(p, (yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: word_add!($1, $2) %*/ + } +#line 9130 "parse.c" /* yacc.c:1652 */ + break; + + case 476: +#line 3512 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = make_array((yyvsp[-1].node), &(yyloc)); + /*% %*/ + /*% ripper: array!($3) %*/ + } +#line 9141 "parse.c" /* yacc.c:1652 */ + break; + + case 477: +#line 3521 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = 0; + /*% %*/ + /*% ripper: symbols_new! %*/ + } +#line 9152 "parse.c" /* yacc.c:1652 */ + break; + + case 478: +#line 3528 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = symbol_append(p, (yyvsp[-2].node), evstr2dstr(p, (yyvsp[-1].node))); + /*% %*/ + /*% ripper: symbols_add!($1, $2) %*/ + } +#line 9163 "parse.c" /* yacc.c:1652 */ + break; + + case 479: +#line 3537 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = make_array((yyvsp[-1].node), &(yyloc)); + /*% %*/ + /*% ripper: array!($3) %*/ + } +#line 9174 "parse.c" /* yacc.c:1652 */ + break; + + case 480: +#line 3546 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = make_array((yyvsp[-1].node), &(yyloc)); + /*% %*/ + /*% ripper: array!($3) %*/ + } +#line 9185 "parse.c" /* yacc.c:1652 */ + break; + + case 481: +#line 3555 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = 0; + /*% %*/ + /*% ripper: qwords_new! %*/ + } +#line 9196 "parse.c" /* yacc.c:1652 */ + break; + + case 482: +#line 3562 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = list_append(p, (yyvsp[-2].node), (yyvsp[-1].node)); + /*% %*/ + /*% ripper: qwords_add!($1, $2) %*/ + } +#line 9207 "parse.c" /* yacc.c:1652 */ + break; + + case 483: +#line 3571 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = 0; + /*% %*/ + /*% ripper: qsymbols_new! %*/ + } +#line 9218 "parse.c" /* yacc.c:1652 */ + break; + + case 484: +#line 3578 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = symbol_append(p, (yyvsp[-2].node), (yyvsp[-1].node)); + /*% %*/ + /*% ripper: qsymbols_add!($1, $2) %*/ + } +#line 9229 "parse.c" /* yacc.c:1652 */ + break; + + case 485: +#line 3587 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = 0; + /*% %*/ + /*% ripper: string_content! %*/ + } +#line 9240 "parse.c" /* yacc.c:1652 */ + break; + + case 486: +#line 3594 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = literal_concat(p, (yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: string_add!($1, $2) %*/ + } +#line 9251 "parse.c" /* yacc.c:1652 */ + break; + + case 487: +#line 3603 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = 0; + /*% %*/ + /*% ripper: xstring_new! %*/ + } +#line 9262 "parse.c" /* yacc.c:1652 */ + break; + + case 488: +#line 3610 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = literal_concat(p, (yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + /*% %*/ + /*% ripper: xstring_add!($1, $2) %*/ + } +#line 9273 "parse.c" /* yacc.c:1652 */ + break; + + case 489: +#line 3619 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = 0; + /*% %*/ + /*% ripper: regexp_new! %*/ + /*%%%*/ + /*% + $$ = ripper_new_yylval(p, 0, $$, 0); + %*/ + } +#line 9288 "parse.c" /* yacc.c:1652 */ + break; + + case 490: +#line 3630 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + NODE *head = (yyvsp[-1].node), *tail = (yyvsp[0].node); + if (!head) { + (yyval.node) = tail; + } + else if (!tail) { + (yyval.node) = head; + } + else { + switch (nd_type(head)) { + case NODE_STR: + nd_set_type(head, NODE_DSTR); + break; + case NODE_DSTR: + break; + default: + head = list_append(p, NEW_DSTR(Qnil, &(yyloc)), head); + break; + } + (yyval.node) = list_append(p, head, tail); + } + /*% + VALUE s1 = 1, s2 = 0, n1 = $1, n2 = $2; + if (ripper_is_node_yylval(n1)) { + s1 = RNODE(n1)->nd_cval; + n1 = RNODE(n1)->nd_rval; + } + if (ripper_is_node_yylval(n2)) { + s2 = RNODE(n2)->nd_cval; + n2 = RNODE(n2)->nd_rval; + } + $$ = dispatch2(regexp_add, n1, n2); + if (!s1 && s2) { + $$ = ripper_new_yylval(p, 0, $$, s2); + } + %*/ + } +#line 9331 "parse.c" /* yacc.c:1652 */ + break; + + case 492: +#line 3672 "parse.y" /* yacc.c:1652 */ + { + /* need to backup p->lex.strterm so that a string literal `%&foo,#$&,bar&` can be parsed */ + (yyval.strterm) = p->lex.strterm; + p->lex.strterm = 0; + SET_LEX_STATE(EXPR_BEG); + } +#line 9342 "parse.c" /* yacc.c:1652 */ + break; + + case 493: +#line 3679 "parse.y" /* yacc.c:1652 */ + { + p->lex.strterm = (yyvsp[-1].strterm); + /*%%%*/ + (yyval.node) = NEW_EVSTR((yyvsp[0].node), &(yyloc)); + nd_set_line((yyval.node), (yylsp[0]).end_pos.lineno); + /*% %*/ + /*% ripper: string_dvar!($3) %*/ + } +#line 9355 "parse.c" /* yacc.c:1652 */ + break; + + case 494: +#line 3688 "parse.y" /* yacc.c:1652 */ + { + CMDARG_PUSH(0); + COND_PUSH(0); + } +#line 9364 "parse.c" /* yacc.c:1652 */ + break; + + case 495: +#line 3692 "parse.y" /* yacc.c:1652 */ + { + /* need to backup p->lex.strterm so that a string literal `%!foo,#{ !0 },bar!` can be parsed */ + (yyval.strterm) = p->lex.strterm; + p->lex.strterm = 0; + } +#line 9374 "parse.c" /* yacc.c:1652 */ + break; + + case 496: +#line 3697 "parse.y" /* yacc.c:1652 */ + { + (yyval.num) = p->lex.state; + SET_LEX_STATE(EXPR_BEG); + } +#line 9383 "parse.c" /* yacc.c:1652 */ + break; + + case 497: +#line 3701 "parse.y" /* yacc.c:1652 */ + { + (yyval.num) = p->lex.brace_nest; + p->lex.brace_nest = 0; + } +#line 9392 "parse.c" /* yacc.c:1652 */ + break; + + case 498: +#line 3705 "parse.y" /* yacc.c:1652 */ + { + (yyval.num) = p->heredoc_indent; + p->heredoc_indent = 0; + } +#line 9401 "parse.c" /* yacc.c:1652 */ + break; + + case 499: +#line 3710 "parse.y" /* yacc.c:1652 */ + { + COND_POP(); + CMDARG_POP(); + p->lex.strterm = (yyvsp[-5].strterm); + SET_LEX_STATE((yyvsp[-4].num)); + p->lex.brace_nest = (yyvsp[-3].num); + p->heredoc_indent = (yyvsp[-2].num); + p->heredoc_line_indent = -1; + /*%%%*/ + if ((yyvsp[-1].node)) (yyvsp[-1].node)->flags &= ~NODE_FL_NEWLINE; + (yyval.node) = new_evstr(p, (yyvsp[-1].node), &(yyloc)); + /*% %*/ + /*% ripper: string_embexpr!($7) %*/ + } +#line 9420 "parse.c" /* yacc.c:1652 */ + break; + + case 500: +#line 3727 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_GVAR((yyvsp[0].id), &(yyloc)); + /*% %*/ + /*% ripper: var_ref!($1) %*/ + } +#line 9431 "parse.c" /* yacc.c:1652 */ + break; + + case 501: +#line 3734 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_IVAR((yyvsp[0].id), &(yyloc)); + /*% %*/ + /*% ripper: var_ref!($1) %*/ + } +#line 9442 "parse.c" /* yacc.c:1652 */ + break; + + case 502: +#line 3741 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = NEW_CVAR((yyvsp[0].id), &(yyloc)); + /*% %*/ + /*% ripper: var_ref!($1) %*/ + } +#line 9453 "parse.c" /* yacc.c:1652 */ + break; + + case 504: +#line 3751 "parse.y" /* yacc.c:1652 */ + { + SET_LEX_STATE(EXPR_END); + /*%%%*/ + (yyval.id) = (yyvsp[0].id); + /*% %*/ + /*% ripper: symbol!($2) %*/ + } +#line 9465 "parse.c" /* yacc.c:1652 */ + break; + + case 509: +#line 3767 "parse.y" /* yacc.c:1652 */ + { + SET_LEX_STATE(EXPR_END); + /*%%%*/ + (yyval.node) = dsym_node(p, (yyvsp[-1].node), &(yyloc)); + /*% %*/ + /*% ripper: dyna_symbol!($2) %*/ + } +#line 9477 "parse.c" /* yacc.c:1652 */ + break; + + case 511: +#line 3778 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[0].node); + add_mark_object(p, (yyval.node)->nd_lit = negate_lit(p, (yyval.node)->nd_lit)); + /*% %*/ + /*% ripper: unary!(ID2VAL(idUMinus), $2) %*/ + } +#line 9489 "parse.c" /* yacc.c:1652 */ + break; + + case 521: +#line 3800 "parse.y" /* yacc.c:1652 */ + {(yyval.id) = KWD2EID(nil, (yyvsp[0].id));} +#line 9495 "parse.c" /* yacc.c:1652 */ + break; + + case 522: +#line 3801 "parse.y" /* yacc.c:1652 */ + {(yyval.id) = KWD2EID(self, (yyvsp[0].id));} +#line 9501 "parse.c" /* yacc.c:1652 */ + break; + + case 523: +#line 3802 "parse.y" /* yacc.c:1652 */ + {(yyval.id) = KWD2EID(true, (yyvsp[0].id));} +#line 9507 "parse.c" /* yacc.c:1652 */ + break; + + case 524: +#line 3803 "parse.y" /* yacc.c:1652 */ + {(yyval.id) = KWD2EID(false, (yyvsp[0].id));} +#line 9513 "parse.c" /* yacc.c:1652 */ + break; + + case 525: +#line 3804 "parse.y" /* yacc.c:1652 */ + {(yyval.id) = KWD2EID(_FILE__, (yyvsp[0].id));} +#line 9519 "parse.c" /* yacc.c:1652 */ + break; + + case 526: +#line 3805 "parse.y" /* yacc.c:1652 */ + {(yyval.id) = KWD2EID(_LINE__, (yyvsp[0].id));} +#line 9525 "parse.c" /* yacc.c:1652 */ + break; + + case 527: +#line 3806 "parse.y" /* yacc.c:1652 */ + {(yyval.id) = KWD2EID(_ENCODING__, (yyvsp[0].id));} +#line 9531 "parse.c" /* yacc.c:1652 */ + break; + + case 528: +#line 3810 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + if (!((yyval.node) = gettable(p, (yyvsp[0].id), &(yyloc)))) (yyval.node) = NEW_BEGIN(0, &(yyloc)); + /*% + if (id_is_var(p, get_id($1))) { + $$ = dispatch1(var_ref, $1); + } + else { + $$ = dispatch1(vcall, $1); + } + %*/ + } +#line 9548 "parse.c" /* yacc.c:1652 */ + break; + + case 529: +#line 3823 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + if (!((yyval.node) = gettable(p, (yyvsp[0].id), &(yyloc)))) (yyval.node) = NEW_BEGIN(0, &(yyloc)); + /*% %*/ + /*% ripper: var_ref!($1) %*/ + } +#line 9559 "parse.c" /* yacc.c:1652 */ + break; + + case 530: +#line 3832 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = assignable(p, (yyvsp[0].id), 0, &(yyloc)); + /*% %*/ + /*% ripper: assignable(p, var_field(p, $1)) %*/ + } +#line 9570 "parse.c" /* yacc.c:1652 */ + break; + + case 531: +#line 3839 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = assignable(p, (yyvsp[0].id), 0, &(yyloc)); + /*% %*/ + /*% ripper: assignable(p, var_field(p, $1)) %*/ + } +#line 9581 "parse.c" /* yacc.c:1652 */ + break; + + case 534: +#line 3852 "parse.y" /* yacc.c:1652 */ + { + SET_LEX_STATE(EXPR_BEG); + p->command_start = TRUE; + } +#line 9590 "parse.c" /* yacc.c:1652 */ + break; + + case 535: +#line 3857 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = (yyvsp[-1].node); + } +#line 9598 "parse.c" /* yacc.c:1652 */ + break; + + case 536: +#line 3861 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = 0; + /*% %*/ + /*% ripper: Qnil %*/ + } +#line 9609 "parse.c" /* yacc.c:1652 */ + break; + + case 537: +#line 3870 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[-1].node); + /*% %*/ + /*% ripper: paren!($2) %*/ + SET_LEX_STATE(EXPR_BEG); + p->command_start = TRUE; + } +#line 9622 "parse.c" /* yacc.c:1652 */ + break; + + case 538: +#line 3878 "parse.y" /* yacc.c:1652 */ + { + (yyval.num) = p->in_kwarg; + p->in_kwarg = 1; + SET_LEX_STATE(p->lex.state|EXPR_LABEL); /* force for args */ + } +#line 9632 "parse.c" /* yacc.c:1652 */ + break; + + case 539: +#line 3884 "parse.y" /* yacc.c:1652 */ + { + p->in_kwarg = !!(yyvsp[-2].num); + (yyval.node) = (yyvsp[-1].node); + SET_LEX_STATE(EXPR_BEG); + p->command_start = TRUE; + } +#line 9643 "parse.c" /* yacc.c:1652 */ + break; + + case 540: +#line 3893 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args_tail(p, (yyvsp[-3].node), (yyvsp[-1].id), (yyvsp[0].id), &(yylsp[-1])); + } +#line 9651 "parse.c" /* yacc.c:1652 */ + break; + + case 541: +#line 3897 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args_tail(p, (yyvsp[-1].node), Qnone, (yyvsp[0].id), &(yylsp[-1])); + } +#line 9659 "parse.c" /* yacc.c:1652 */ + break; + + case 542: +#line 3901 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args_tail(p, Qnone, (yyvsp[-1].id), (yyvsp[0].id), &(yylsp[-1])); + } +#line 9667 "parse.c" /* yacc.c:1652 */ + break; + + case 543: +#line 3905 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args_tail(p, Qnone, Qnone, (yyvsp[0].id), &(yylsp[0])); + } +#line 9675 "parse.c" /* yacc.c:1652 */ + break; + + case 544: +#line 3911 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = (yyvsp[0].node); + } +#line 9683 "parse.c" /* yacc.c:1652 */ + break; + + case 545: +#line 3915 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args_tail(p, Qnone, Qnone, Qnone, &(yylsp[0])); + } +#line 9691 "parse.c" /* yacc.c:1652 */ + break; + + case 546: +#line 3921 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, (yyvsp[-5].node), (yyvsp[-3].node), (yyvsp[-1].id), Qnone, (yyvsp[0].node), &(yyloc)); + } +#line 9699 "parse.c" /* yacc.c:1652 */ + break; + + case 547: +#line 3925 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, (yyvsp[-7].node), (yyvsp[-5].node), (yyvsp[-3].id), (yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + } +#line 9707 "parse.c" /* yacc.c:1652 */ + break; + + case 548: +#line 3929 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, (yyvsp[-3].node), (yyvsp[-1].node), Qnone, Qnone, (yyvsp[0].node), &(yyloc)); + } +#line 9715 "parse.c" /* yacc.c:1652 */ + break; + + case 549: +#line 3933 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, (yyvsp[-5].node), (yyvsp[-3].node), Qnone, (yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + } +#line 9723 "parse.c" /* yacc.c:1652 */ + break; + + case 550: +#line 3937 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, (yyvsp[-3].node), Qnone, (yyvsp[-1].id), Qnone, (yyvsp[0].node), &(yyloc)); + } +#line 9731 "parse.c" /* yacc.c:1652 */ + break; + + case 551: +#line 3941 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, (yyvsp[-5].node), Qnone, (yyvsp[-3].id), (yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + } +#line 9739 "parse.c" /* yacc.c:1652 */ + break; + + case 552: +#line 3945 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, (yyvsp[-1].node), Qnone, Qnone, Qnone, (yyvsp[0].node), &(yyloc)); + } +#line 9747 "parse.c" /* yacc.c:1652 */ + break; + + case 553: +#line 3949 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, Qnone, (yyvsp[-3].node), (yyvsp[-1].id), Qnone, (yyvsp[0].node), &(yyloc)); + } +#line 9755 "parse.c" /* yacc.c:1652 */ + break; + + case 554: +#line 3953 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, Qnone, (yyvsp[-5].node), (yyvsp[-3].id), (yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + } +#line 9763 "parse.c" /* yacc.c:1652 */ + break; + + case 555: +#line 3957 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, Qnone, (yyvsp[-1].node), Qnone, Qnone, (yyvsp[0].node), &(yyloc)); + } +#line 9771 "parse.c" /* yacc.c:1652 */ + break; + + case 556: +#line 3961 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, Qnone, (yyvsp[-3].node), Qnone, (yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + } +#line 9779 "parse.c" /* yacc.c:1652 */ + break; + + case 557: +#line 3965 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, Qnone, Qnone, (yyvsp[-1].id), Qnone, (yyvsp[0].node), &(yyloc)); + } +#line 9787 "parse.c" /* yacc.c:1652 */ + break; + + case 558: +#line 3969 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, Qnone, Qnone, (yyvsp[-3].id), (yyvsp[-1].node), (yyvsp[0].node), &(yyloc)); + } +#line 9795 "parse.c" /* yacc.c:1652 */ + break; + + case 559: +#line 3973 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args(p, Qnone, Qnone, Qnone, Qnone, (yyvsp[0].node), &(yyloc)); + } +#line 9803 "parse.c" /* yacc.c:1652 */ + break; + + case 560: +#line 3977 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = new_args_tail(p, Qnone, Qnone, Qnone, &(yylsp[0])); + (yyval.node) = new_args(p, Qnone, Qnone, Qnone, Qnone, (yyval.node), &(yylsp[0])); + } +#line 9812 "parse.c" /* yacc.c:1652 */ + break; + + case 561: +#line 3984 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + yyerror1(&(yylsp[0]), "formal argument cannot be a constant"); + (yyval.id) = 0; + /*% %*/ + /*% ripper[error]: param_error!($1) %*/ + } +#line 9824 "parse.c" /* yacc.c:1652 */ + break; + + case 562: +#line 3992 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + yyerror1(&(yylsp[0]), "formal argument cannot be an instance variable"); + (yyval.id) = 0; + /*% %*/ + /*% ripper[error]: param_error!($1) %*/ + } +#line 9836 "parse.c" /* yacc.c:1652 */ + break; + + case 563: +#line 4000 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + yyerror1(&(yylsp[0]), "formal argument cannot be a global variable"); + (yyval.id) = 0; + /*% %*/ + /*% ripper[error]: param_error!($1) %*/ + } +#line 9848 "parse.c" /* yacc.c:1652 */ + break; + + case 564: +#line 4008 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + yyerror1(&(yylsp[0]), "formal argument cannot be a class variable"); + (yyval.id) = 0; + /*% %*/ + /*% ripper[error]: param_error!($1) %*/ + } +#line 9860 "parse.c" /* yacc.c:1652 */ + break; + + case 566: +#line 4019 "parse.y" /* yacc.c:1652 */ + { + formal_argument(p, get_id((yyvsp[0].id))); + (yyval.id) = (yyvsp[0].id); + } +#line 9869 "parse.c" /* yacc.c:1652 */ + break; + + case 567: +#line 4026 "parse.y" /* yacc.c:1652 */ + { + ID id = get_id((yyvsp[0].id)); + arg_var(p, id); + p->cur_arg = id; + (yyval.id) = (yyvsp[0].id); + } +#line 9880 "parse.c" /* yacc.c:1652 */ + break; + + case 568: +#line 4035 "parse.y" /* yacc.c:1652 */ + { + p->cur_arg = 0; + /*%%%*/ + (yyval.node) = NEW_ARGS_AUX((yyvsp[0].id), 1, &NULL_LOC); + /*% %*/ + /*% ripper: get_value($1) %*/ + } +#line 9892 "parse.c" /* yacc.c:1652 */ + break; + + case 569: +#line 4043 "parse.y" /* yacc.c:1652 */ + { + ID tid = internal_id(p); + /*%%%*/ + YYLTYPE loc; + loc.beg_pos = (yylsp[-1]).beg_pos; + loc.end_pos = (yylsp[-1]).beg_pos; + /*% %*/ + arg_var(p, tid); + /*%%%*/ + if (dyna_in_block(p)) { + (yyvsp[-1].node)->nd_value = NEW_DVAR(tid, &loc); + } + else { + (yyvsp[-1].node)->nd_value = NEW_LVAR(tid, &loc); + } + (yyval.node) = NEW_ARGS_AUX(tid, 1, &NULL_LOC); + (yyval.node)->nd_next = (yyvsp[-1].node); + /*% %*/ + /*% ripper: mlhs_paren!($2) %*/ + } +#line 9917 "parse.c" /* yacc.c:1652 */ + break; + + case 571: +#line 4068 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[-2].node); + (yyval.node)->nd_plen++; + (yyval.node)->nd_next = block_append(p, (yyval.node)->nd_next, (yyvsp[0].node)->nd_next); + rb_discard_node(p, (yyvsp[0].node)); + /*% %*/ + /*% ripper: rb_ary_push($1, get_value($3)) %*/ + } +#line 9931 "parse.c" /* yacc.c:1652 */ + break; + + case 572: +#line 4081 "parse.y" /* yacc.c:1652 */ + { + ID id = get_id((yyvsp[0].id)); + arg_var(p, formal_argument(p, id)); + p->cur_arg = id; + (yyval.id) = (yyvsp[0].id); + } +#line 9942 "parse.c" /* yacc.c:1652 */ + break; + + case 573: +#line 4090 "parse.y" /* yacc.c:1652 */ + { + p->cur_arg = 0; + /*%%%*/ + (yyval.node) = new_kw_arg(p, assignable(p, (yyvsp[-1].id), (yyvsp[0].node), &(yyloc)), &(yyloc)); + /*% %*/ + /*% ripper: rb_assoc_new(get_value(assignable(p, $1)), get_value($2)) %*/ + } +#line 9954 "parse.c" /* yacc.c:1652 */ + break; + + case 574: +#line 4098 "parse.y" /* yacc.c:1652 */ + { + p->cur_arg = 0; + /*%%%*/ + (yyval.node) = new_kw_arg(p, assignable(p, (yyvsp[0].id), NODE_SPECIAL_REQUIRED_KEYWORD, &(yyloc)), &(yyloc)); + /*% %*/ + /*% ripper: rb_assoc_new(get_value(assignable(p, $1)), 0) %*/ + } +#line 9966 "parse.c" /* yacc.c:1652 */ + break; + + case 575: +#line 4108 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_kw_arg(p, assignable(p, (yyvsp[-1].id), (yyvsp[0].node), &(yyloc)), &(yyloc)); + /*% %*/ + /*% ripper: rb_assoc_new(get_value(assignable(p, $1)), get_value($2)) %*/ + } +#line 9977 "parse.c" /* yacc.c:1652 */ + break; + + case 576: +#line 4115 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = new_kw_arg(p, assignable(p, (yyvsp[0].id), NODE_SPECIAL_REQUIRED_KEYWORD, &(yyloc)), &(yyloc)); + /*% %*/ + /*% ripper: rb_assoc_new(get_value(assignable(p, $1)), 0) %*/ + } +#line 9988 "parse.c" /* yacc.c:1652 */ + break; + + case 577: +#line 4124 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[0].node); + /*% %*/ + /*% ripper: rb_ary_new3(1, get_value($1)) %*/ + } +#line 9999 "parse.c" /* yacc.c:1652 */ + break; + + case 578: +#line 4131 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = kwd_append((yyvsp[-2].node), (yyvsp[0].node)); + /*% %*/ + /*% ripper: rb_ary_push($1, get_value($3)) %*/ + } +#line 10010 "parse.c" /* yacc.c:1652 */ + break; + + case 579: +#line 4141 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[0].node); + /*% %*/ + /*% ripper: rb_ary_new3(1, get_value($1)) %*/ + } +#line 10021 "parse.c" /* yacc.c:1652 */ + break; + + case 580: +#line 4148 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = kwd_append((yyvsp[-2].node), (yyvsp[0].node)); + /*% %*/ + /*% ripper: rb_ary_push($1, get_value($3)) %*/ + } +#line 10032 "parse.c" /* yacc.c:1652 */ + break; + + case 583: +#line 4161 "parse.y" /* yacc.c:1652 */ + { + arg_var(p, shadowing_lvar(p, get_id((yyvsp[0].id)))); + /*%%%*/ + (yyval.id) = (yyvsp[0].id); + /*% %*/ + /*% ripper: kwrest_param!($2) %*/ + } +#line 10044 "parse.c" /* yacc.c:1652 */ + break; + + case 584: +#line 4169 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.id) = internal_id(p); + arg_var(p, (yyval.id)); + /*% %*/ + /*% ripper: kwrest_param!(Qnil) %*/ + } +#line 10056 "parse.c" /* yacc.c:1652 */ + break; + + case 585: +#line 4179 "parse.y" /* yacc.c:1652 */ + { + p->cur_arg = 0; + /*%%%*/ + (yyval.node) = NEW_OPT_ARG(0, assignable(p, (yyvsp[-2].id), (yyvsp[0].node), &(yyloc)), &(yyloc)); + /*% %*/ + /*% ripper: rb_assoc_new(get_value(assignable(p, $1)), get_value($3)) %*/ + } +#line 10068 "parse.c" /* yacc.c:1652 */ + break; + + case 586: +#line 4189 "parse.y" /* yacc.c:1652 */ + { + p->cur_arg = 0; + /*%%%*/ + (yyval.node) = NEW_OPT_ARG(0, assignable(p, (yyvsp[-2].id), (yyvsp[0].node), &(yyloc)), &(yyloc)); + /*% %*/ + /*% ripper: rb_assoc_new(get_value(assignable(p, $1)), get_value($3)) %*/ + } +#line 10080 "parse.c" /* yacc.c:1652 */ + break; + + case 587: +#line 4199 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[0].node); + /*% %*/ + /*% ripper: rb_ary_new3(1, get_value($1)) %*/ + } +#line 10091 "parse.c" /* yacc.c:1652 */ + break; + + case 588: +#line 4206 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = opt_arg_append((yyvsp[-2].node), (yyvsp[0].node)); + /*% %*/ + /*% ripper: rb_ary_push($1, get_value($3)) %*/ + } +#line 10102 "parse.c" /* yacc.c:1652 */ + break; + + case 589: +#line 4215 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[0].node); + /*% %*/ + /*% ripper: rb_ary_new3(1, get_value($1)) %*/ + } +#line 10113 "parse.c" /* yacc.c:1652 */ + break; + + case 590: +#line 4222 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = opt_arg_append((yyvsp[-2].node), (yyvsp[0].node)); + /*% %*/ + /*% ripper: rb_ary_push($1, get_value($3)) %*/ + } +#line 10124 "parse.c" /* yacc.c:1652 */ + break; + + case 593: +#line 4235 "parse.y" /* yacc.c:1652 */ + { + arg_var(p, shadowing_lvar(p, get_id((yyvsp[0].id)))); + /*%%%*/ + (yyval.id) = (yyvsp[0].id); + /*% %*/ + /*% ripper: rest_param!($2) %*/ + } +#line 10136 "parse.c" /* yacc.c:1652 */ + break; + + case 594: +#line 4243 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.id) = internal_id(p); + arg_var(p, (yyval.id)); + /*% %*/ + /*% ripper: rest_param!(Qnil) %*/ + } +#line 10148 "parse.c" /* yacc.c:1652 */ + break; + + case 597: +#line 4257 "parse.y" /* yacc.c:1652 */ + { + arg_var(p, shadowing_lvar(p, get_id((yyvsp[0].id)))); + /*%%%*/ + (yyval.id) = (yyvsp[0].id); + /*% %*/ + /*% ripper: blockarg!($2) %*/ + } +#line 10160 "parse.c" /* yacc.c:1652 */ + break; + + case 598: +#line 4267 "parse.y" /* yacc.c:1652 */ + { + (yyval.id) = (yyvsp[0].id); + } +#line 10168 "parse.c" /* yacc.c:1652 */ + break; + + case 599: +#line 4271 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.id) = 0; + /*% %*/ + /*% ripper: Qundef %*/ + } +#line 10179 "parse.c" /* yacc.c:1652 */ + break; + + case 600: +#line 4280 "parse.y" /* yacc.c:1652 */ + { + value_expr((yyvsp[0].node)); + (yyval.node) = (yyvsp[0].node); + } +#line 10188 "parse.c" /* yacc.c:1652 */ + break; + + case 601: +#line 4284 "parse.y" /* yacc.c:1652 */ + {SET_LEX_STATE(EXPR_BEG);} +#line 10194 "parse.c" /* yacc.c:1652 */ + break; + + case 602: +#line 4285 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + switch (nd_type((yyvsp[-1].node))) { + case NODE_STR: + case NODE_DSTR: + case NODE_XSTR: + case NODE_DXSTR: + case NODE_DREGX: + case NODE_LIT: + case NODE_ARRAY: + case NODE_ZARRAY: + yyerror1(&(yylsp[-1]), "can't define singleton method for literals"); + break; + default: + value_expr((yyvsp[-1].node)); + break; + } + (yyval.node) = (yyvsp[-1].node); + /*% %*/ + /*% ripper: paren!($3) %*/ + } +#line 10220 "parse.c" /* yacc.c:1652 */ + break; + + case 604: +#line 4310 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = (yyvsp[-1].node); + /*% %*/ + /*% ripper: assoclist_from_args!($1) %*/ + } +#line 10231 "parse.c" /* yacc.c:1652 */ + break; + + case 606: +#line 4321 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + NODE *assocs = (yyvsp[-2].node); + NODE *tail = (yyvsp[0].node); + if (!assocs) { + assocs = tail; + } + else if (tail) { + if (assocs->nd_head && + !tail->nd_head && nd_type(tail->nd_next) == NODE_ARRAY && + nd_type(tail->nd_next->nd_head) == NODE_HASH) { + /* DSTAR */ + tail = tail->nd_next->nd_head->nd_head; + } + assocs = list_concat(assocs, tail); + } + (yyval.node) = assocs; + /*% %*/ + /*% ripper: rb_ary_push($1, get_value($3)) %*/ + } +#line 10256 "parse.c" /* yacc.c:1652 */ + break; + + case 607: +#line 4344 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + if (nd_type((yyvsp[-2].node)) == NODE_STR) { + nd_set_type((yyvsp[-2].node), NODE_LIT); + add_mark_object(p, (yyvsp[-2].node)->nd_lit = rb_fstring((yyvsp[-2].node)->nd_lit)); + } + (yyval.node) = list_append(p, NEW_LIST((yyvsp[-2].node), &(yyloc)), (yyvsp[0].node)); + /*% %*/ + /*% ripper: assoc_new!($1, $3) %*/ + } +#line 10271 "parse.c" /* yacc.c:1652 */ + break; + + case 608: +#line 4355 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + (yyval.node) = list_append(p, NEW_LIST(NEW_LIT(ID2SYM((yyvsp[-1].id)), &(yylsp[-1])), &(yyloc)), (yyvsp[0].node)); + /*% %*/ + /*% ripper: assoc_new!($1, $2) %*/ + } +#line 10282 "parse.c" /* yacc.c:1652 */ + break; + + case 609: +#line 4362 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + YYLTYPE loc = code_loc_gen(&(yylsp[-3]), &(yylsp[-1])); + (yyval.node) = list_append(p, NEW_LIST(dsym_node(p, (yyvsp[-2].node), &loc), &loc), (yyvsp[0].node)); + /*% %*/ + /*% ripper: assoc_new!(dyna_symbol!($2), $4) %*/ + } +#line 10294 "parse.c" /* yacc.c:1652 */ + break; + + case 610: +#line 4370 "parse.y" /* yacc.c:1652 */ + { + /*%%%*/ + if (nd_type((yyvsp[0].node)) == NODE_HASH && + !((yyvsp[0].node)->nd_head && (yyvsp[0].node)->nd_head->nd_alen)) + (yyval.node) = 0; + else + (yyval.node) = list_append(p, NEW_LIST(0, &(yyloc)), (yyvsp[0].node)); + /*% %*/ + /*% ripper: assoc_splat!($2) %*/ + } +#line 10309 "parse.c" /* yacc.c:1652 */ + break; + + case 636: +#line 4429 "parse.y" /* yacc.c:1652 */ + {yyerrok;token_flush(p);} +#line 10315 "parse.c" /* yacc.c:1652 */ + break; + + case 637: +#line 4430 "parse.y" /* yacc.c:1652 */ + {token_flush(p);} +#line 10321 "parse.c" /* yacc.c:1652 */ + break; + + case 639: +#line 4434 "parse.y" /* yacc.c:1652 */ + {yyerrok;} +#line 10327 "parse.c" /* yacc.c:1652 */ + break; + + case 640: +#line 4438 "parse.y" /* yacc.c:1652 */ + { + (yyval.node) = Qnull; + } +#line 10335 "parse.c" /* yacc.c:1652 */ + break; + + +#line 10339 "parse.c" /* yacc.c:1652 */ + default: break; + } + /* User semantic actions sometimes alter yychar, and that requires + that yytoken be updated with the new translation. We take the + approach of translating immediately before every use of yytoken. + One alternative is translating here after every semantic action, + but that translation would be missed if the semantic action invokes + YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or + if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an + incorrect destructor might then be invoked immediately. In the + case of YYERROR or YYBACKUP, subsequent parser actions might lead + to an incorrect destructor call or verbose syntax error message + before the lookahead is translated. */ + YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); + + YYPOPSTACK (yylen); + yylen = 0; + YY_STACK_PRINT (yyss, yyssp); + + *++yyvsp = yyval; + *++yylsp = yyloc; + + /* Now 'shift' the result of the reduction. Determine what state + that goes to, based on the state we popped back to and the rule + number reduced by. */ + { + const int yylhs = yyr1[yyn] - YYNTOKENS; + const int yyi = yypgoto[yylhs] + *yyssp; + yystate = (0 <= yyi && yyi <= YYLAST && yycheck[yyi] == *yyssp + ? yytable[yyi] + : yydefgoto[yylhs]); + } + + goto yynewstate; + + +/*--------------------------------------. +| yyerrlab -- here on detecting error. | +`--------------------------------------*/ +yyerrlab: + /* Make sure we have latest lookahead translation. See comments at + user semantic actions for why this is necessary. */ + yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar); + + /* If not already recovering from an error, report this error. */ + if (!yyerrstatus) + { + ++yynerrs; +#if ! YYERROR_VERBOSE + yyerror (&yylloc, p, YY_("syntax error")); +#else +# define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \ + yyssp, yytoken) + { + char const *yymsgp = YY_("syntax error"); + int yysyntax_error_status; + yysyntax_error_status = YYSYNTAX_ERROR; + if (yysyntax_error_status == 0) + yymsgp = yymsg; + else if (yysyntax_error_status == 1) + { + if (yymsg != yymsgbuf) + YYSTACK_FREE (yymsg); + yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc); + if (!yymsg) + { + yymsg = yymsgbuf; + yymsg_alloc = sizeof yymsgbuf; + yysyntax_error_status = 2; + } + else + { + yysyntax_error_status = YYSYNTAX_ERROR; + yymsgp = yymsg; + } + } + yyerror (&yylloc, p, yymsgp); + if (yysyntax_error_status == 2) + goto yyexhaustedlab; + } +# undef YYSYNTAX_ERROR +#endif + } + + yyerror_range[1] = yylloc; + + if (yyerrstatus == 3) + { + /* If just tried and failed to reuse lookahead token after an + error, discard it. */ + + if (yychar <= YYEOF) + { + /* Return failure if at end of input. */ + if (yychar == YYEOF) + YYABORT; + } + else + { + yydestruct ("Error: discarding", + yytoken, &yylval, &yylloc, p); + yychar = YYEMPTY; + } + } + + /* Else will try to reuse lookahead token after shifting the error + token. */ + goto yyerrlab1; + + +/*---------------------------------------------------. +| yyerrorlab -- error raised explicitly by YYERROR. | +`---------------------------------------------------*/ +yyerrorlab: + /* Pacify compilers when the user code never invokes YYERROR and the + label yyerrorlab therefore never appears in user code. */ + if (0) + YYERROR; + + /* Do not reclaim the symbols of the rule whose action triggered + this YYERROR. */ + YYPOPSTACK (yylen); + yylen = 0; + YY_STACK_PRINT (yyss, yyssp); + yystate = *yyssp; + goto yyerrlab1; + + +/*-------------------------------------------------------------. +| yyerrlab1 -- common code for both syntax error and YYERROR. | +`-------------------------------------------------------------*/ +yyerrlab1: + yyerrstatus = 3; /* Each real token shifted decrements this. */ + + for (;;) + { + yyn = yypact[yystate]; + if (!yypact_value_is_default (yyn)) + { + yyn += YYTERROR; + if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) + { + yyn = yytable[yyn]; + if (0 < yyn) + break; + } + } + + /* Pop the current state because it cannot handle the error token. */ + if (yyssp == yyss) + YYABORT; + + yyerror_range[1] = *yylsp; + yydestruct ("Error: popping", + yystos[yystate], yyvsp, yylsp, p); + YYPOPSTACK (1); + yystate = *yyssp; + YY_STACK_PRINT (yyss, yyssp); + } + + YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN + *++yyvsp = yylval; + YY_IGNORE_MAYBE_UNINITIALIZED_END + + yyerror_range[2] = yylloc; + /* Using YYLLOC is tempting, but would change the location of + the lookahead. YYLOC is available though. */ + YYLLOC_DEFAULT (yyloc, yyerror_range, 2); + *++yylsp = yyloc; + + /* Shift the error token. */ + YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp); + + yystate = yyn; + goto yynewstate; + + +/*-------------------------------------. +| yyacceptlab -- YYACCEPT comes here. | +`-------------------------------------*/ +yyacceptlab: + yyresult = 0; + goto yyreturn; + + +/*-----------------------------------. +| yyabortlab -- YYABORT comes here. | +`-----------------------------------*/ +yyabortlab: + yyresult = 1; + goto yyreturn; + + +#if !defined yyoverflow || YYERROR_VERBOSE +/*-------------------------------------------------. +| yyexhaustedlab -- memory exhaustion comes here. | +`-------------------------------------------------*/ +yyexhaustedlab: + yyerror (&yylloc, p, YY_("memory exhausted")); + yyresult = 2; + /* Fall through. */ +#endif + + +/*-----------------------------------------------------. +| yyreturn -- parsing is finished, return the result. | +`-----------------------------------------------------*/ +yyreturn: + if (yychar != YYEMPTY) + { + /* Make sure we have latest lookahead translation. See comments at + user semantic actions for why this is necessary. */ + yytoken = YYTRANSLATE (yychar); + yydestruct ("Cleanup: discarding lookahead", + yytoken, &yylval, &yylloc, p); + } + /* Do not reclaim the symbols of the rule whose action triggered + this YYABORT or YYACCEPT. */ + YYPOPSTACK (yylen); + YY_STACK_PRINT (yyss, yyssp); + while (yyssp != yyss) + { + yydestruct ("Cleanup: popping", + yystos[*yyssp], yyvsp, yylsp, p); + YYPOPSTACK (1); + } +#ifndef yyoverflow + if (yyss != yyssa) + YYSTACK_FREE (yyss); +#endif +#if YYERROR_VERBOSE + if (yymsg != yymsgbuf) + YYSTACK_FREE (yymsg); +#endif + return yyresult; +} +#line 4442 "parse.y" /* yacc.c:1918 */ + +# undef p +# undef yylex +# undef yylval +# define yylval (*p->lval) + +static int regx_options(struct parser_params*); +static int tokadd_string(struct parser_params*,int,int,int,long*,rb_encoding**,rb_encoding**); +static void tokaddmbc(struct parser_params *p, int c, rb_encoding *enc); +static enum yytokentype parse_string(struct parser_params*,rb_strterm_literal_t*); +static enum yytokentype here_document(struct parser_params*,rb_strterm_heredoc_t*); + +#ifndef RIPPER +# define set_yylval_node(x) { \ + YYLTYPE _cur_loc; \ + rb_parser_set_location(p, &_cur_loc); \ + yylval.node = (x); \ +} +# define set_yylval_str(x) set_yylval_node(NEW_STR(x, &_cur_loc)) +# define set_yylval_literal(x) set_yylval_node(NEW_LIT(x, &_cur_loc)) +# define set_yylval_num(x) (yylval.num = (x)) +# define set_yylval_id(x) (yylval.id = (x)) +# define set_yylval_name(x) (yylval.id = (x)) +# define yylval_id() (yylval.id) +#else +static inline VALUE +ripper_yylval_id(struct parser_params *p, ID x) +{ + return ripper_new_yylval(p, x, ID2SYM(x), 0); +} +# define set_yylval_str(x) (yylval.val = (x)) +# define set_yylval_num(x) (yylval.val = ripper_new_yylval(p, (x), 0, 0)) +# define set_yylval_id(x) (void)(x) +# define set_yylval_name(x) (void)(yylval.val = ripper_yylval_id(p, x)) +# define set_yylval_literal(x) (void)(x) +# define set_yylval_node(x) (void)(x) +# define yylval_id() yylval.id +# define _cur_loc NULL_LOC /* dummy */ +#endif + +#ifndef RIPPER +#define literal_flush(p, ptr) ((p)->lex.ptok = (ptr)) +#define dispatch_scan_event(p, t) ((void)0) +#define dispatch_delayed_token(p, t) ((void)0) +#define has_delayed_token(p) (0) +#else +#define literal_flush(p, ptr) ((void)(ptr)) + +#define yylval_rval (*(RB_TYPE_P(yylval.val, T_NODE) ? &yylval.node->nd_rval : &yylval.val)) + +static inline VALUE +intern_sym(const char *name) +{ + ID id = rb_intern_const(name); + return ID2SYM(id); +} + +static int +ripper_has_scan_event(struct parser_params *p) +{ + if (p->lex.pcur < p->lex.ptok) rb_raise(rb_eRuntimeError, "lex.pcur < lex.ptok"); + return p->lex.pcur > p->lex.ptok; +} + +static VALUE +ripper_scan_event_val(struct parser_params *p, int t) +{ + VALUE str = STR_NEW(p->lex.ptok, p->lex.pcur - p->lex.ptok); + VALUE rval = ripper_dispatch1(p, ripper_token2eventid(t), str); + token_flush(p); + return rval; +} + +static void +ripper_dispatch_scan_event(struct parser_params *p, int t) +{ + if (!ripper_has_scan_event(p)) return; + add_mark_object(p, yylval_rval = ripper_scan_event_val(p, t)); +} +#define dispatch_scan_event(p, t) ripper_dispatch_scan_event(p, t) + +static void +ripper_dispatch_delayed_token(struct parser_params *p, int t) +{ + int saved_line = p->ruby_sourceline; + const char *saved_tokp = p->lex.ptok; + + p->ruby_sourceline = p->delayed_line; + p->lex.ptok = p->lex.pbeg + p->delayed_col; + add_mark_object(p, yylval_rval = ripper_dispatch1(p, ripper_token2eventid(t), p->delayed)); + p->delayed = Qnil; + p->ruby_sourceline = saved_line; + p->lex.ptok = saved_tokp; +} +#define dispatch_delayed_token(p, t) ripper_dispatch_delayed_token(p, t) +#define has_delayed_token(p) (!NIL_P(p->delayed)) +#endif /* RIPPER */ + +#include "ruby/regex.h" +#include "ruby/util.h" + +static inline int +is_identchar(const char *ptr, const char *MAYBE_UNUSED(ptr_end), rb_encoding *enc) +{ + return rb_enc_isalnum((unsigned char)*ptr, enc) || *ptr == '_' || !ISASCII(*ptr); +} + +static inline int +parser_is_identchar(struct parser_params *p) +{ + return !(p)->eofp && is_identchar(p->lex.pcur-1, p->lex.pend, p->enc); +} + +static inline int +parser_isascii(struct parser_params *p) +{ + return ISASCII(*(p->lex.pcur-1)); +} + +static void +setup_token_info(token_info *ptinfo, const char *ptr, const rb_code_location_t *loc) +{ + int column = 1, nonspc = 0, i; + for (i = 0; i < loc->beg_pos.column; i++, ptr++) { + if (*ptr == '\t') { + column = (((column - 1) / TAB_WIDTH) + 1) * TAB_WIDTH; + } + column++; + if (*ptr != ' ' && *ptr != '\t') { + nonspc = 1; + } + } + + ptinfo->linenum = loc->beg_pos.lineno; + ptinfo->column = column; + ptinfo->nonspc = nonspc; +} + +static void +token_info_push(struct parser_params *p, const char *token, const rb_code_location_t *loc) +{ + token_info *ptinfo; + + if (!p->token_info_enabled) return; + ptinfo = ALLOC(token_info); + ptinfo->token = token; + ptinfo->next = p->token_info; + setup_token_info(ptinfo, p->lex.pbeg, loc); + + p->token_info = ptinfo; +} + +static void +token_info_pop(struct parser_params *p, const char *token, const rb_code_location_t *loc) +{ + token_info *ptinfo_beg = p->token_info; + + if (!ptinfo_beg) return; + p->token_info = ptinfo_beg->next; + + /* indentation check of matched keywords (begin..end, if..end, etc.) */ + token_info_warn(p, token, ptinfo_beg, 1, loc); + ruby_sized_xfree(ptinfo_beg, sizeof(*ptinfo_beg)); +} + +static void +token_info_warn(struct parser_params *p, const char *token, token_info *ptinfo_beg, int same, const rb_code_location_t *loc) +{ + token_info ptinfo_end_body, *ptinfo_end = &ptinfo_end_body; + if (!p->token_info_enabled) return; + if (!ptinfo_beg) return; + setup_token_info(ptinfo_end, p->lex.pbeg, loc); + if (ptinfo_beg->linenum == ptinfo_end->linenum) return; /* ignore one-line block */ + if (ptinfo_beg->nonspc || ptinfo_end->nonspc) return; /* ignore keyword in the middle of a line */ + if (ptinfo_beg->column == ptinfo_end->column) return; /* the indents are matched */ + if (!same && ptinfo_beg->column < ptinfo_end->column) return; + rb_warn3L(ptinfo_end->linenum, + "mismatched indentations at '%s' with '%s' at %d", + WARN_S(token), WARN_S(ptinfo_beg->token), WARN_I(ptinfo_beg->linenum)); +} + +static int +parser_precise_mbclen(struct parser_params *p, const char *ptr) +{ + int len = rb_enc_precise_mbclen(ptr, p->lex.pend, p->enc); + if (!MBCLEN_CHARFOUND_P(len)) { + compile_error(p, "invalid multibyte char (%s)", rb_enc_name(p->enc)); + return -1; + } + return len; +} + +static int +parser_yyerror(struct parser_params *p, const YYLTYPE *yylloc, const char *msg) +{ +#ifndef RIPPER + const int max_line_margin = 30; + const char *ptr, *ptr_end, *pt, *pb; + const char *pre = "", *post = "", *pend; + const char *code = "", *caret = "", *newline = ""; + const char *lim; + char *buf; + long len; + int i; + YYLTYPE current; + + if (!yylloc) { + RUBY_SET_YYLLOC(current); + yylloc = &current; + } + else if ((p->ruby_sourceline != yylloc->beg_pos.lineno && + p->ruby_sourceline != yylloc->end_pos.lineno) || + (yylloc->beg_pos.lineno == yylloc->end_pos.lineno && + yylloc->beg_pos.column == yylloc->end_pos.column)) { + compile_error(p, "%s", msg); + return 0; + } + + pend = p->lex.pend; + if (pend > p->lex.pbeg && pend[-1] == '\n') { + if (--pend > p->lex.pbeg && pend[-1] == '\r') --pend; + } + + pt = (p->ruby_sourceline == yylloc->end_pos.lineno) ? + p->lex.pbeg + yylloc->end_pos.column : p->lex.pend; + ptr = ptr_end = pt < pend ? pt : pend; + lim = ptr - p->lex.pbeg > max_line_margin ? ptr - max_line_margin : p->lex.pbeg; + while ((lim < ptr) && (*(ptr-1) != '\n')) ptr--; + + lim = pend - ptr_end > max_line_margin ? ptr_end + max_line_margin : pend; + while ((ptr_end < lim) && (*ptr_end != '\n')) ptr_end++; + + len = ptr_end - ptr; + if (len > 4) { + if (ptr > p->lex.pbeg) { + ptr = rb_enc_prev_char(p->lex.pbeg, ptr, pt, rb_enc_get(p->lex.lastline)); + if (ptr > p->lex.pbeg) pre = "..."; + } + if (ptr_end < pend) { + ptr_end = rb_enc_prev_char(pt, ptr_end, pend, rb_enc_get(p->lex.lastline)); + if (ptr_end < pend) post = "..."; + } + } + pb = p->lex.pbeg; + if (p->ruby_sourceline == yylloc->beg_pos.lineno) { + pb += yylloc->beg_pos.column; + if (pb > pt) pb = pt; + } + if (pb < ptr) pb = ptr; + if (len <= 4 && yylloc->beg_pos.lineno == yylloc->end_pos.lineno) { + compile_error(p, "%s", msg); + } + else if (!p->error_buffer && rb_stderr_tty_p()) { +#define CSI_BEGIN "\033[" +#define CSI_SGR "m" + compile_error(p, "%s\n" + CSI_BEGIN""CSI_SGR"%s" /* pre */ + CSI_BEGIN"1"CSI_SGR"%.*s" + CSI_BEGIN"1;4"CSI_SGR"%.*s" + CSI_BEGIN";1"CSI_SGR"%.*s" + CSI_BEGIN""CSI_SGR"%s" /* post */, + msg, pre, + (int)(pb - ptr), ptr, + (int)(pt - pb), pb, + (int)(ptr_end - pt), pt, + post); + } + else { + char *p2; + + len = ptr_end - ptr; + lim = pt < pend ? pt : pend; + i = (int)(lim - ptr); + buf = ALLOCA_N(char, i+2); + code = ptr; + caret = p2 = buf; + if (ptr <= pb) { + while (ptr < pb) { + *p2++ = *ptr++ == '\t' ? '\t' : ' '; + } + *p2++ = '^'; + ptr++; + } + if (lim > ptr) { + memset(p2, '~', (lim - ptr)); + p2 += (lim - ptr); + } + *p2 = '\0'; + newline = "\n"; + compile_error(p, "%s%s""%s%.*s%s%s""%s%s", + msg, newline, + pre, (int)len, code, post, newline, + pre, caret); + } +#else + dispatch1(parse_error, STR_NEW2(msg)); + ripper_error(p); +#endif /* !RIPPER */ + return 0; +} + +static int +vtable_size(const struct vtable *tbl) +{ + if (!DVARS_TERMINAL_P(tbl)) { + return tbl->pos; + } + else { + return 0; + } +} + +static struct vtable * +vtable_alloc_gen(struct parser_params *p, int line, struct vtable *prev) +{ + struct vtable *tbl = ALLOC(struct vtable); + tbl->pos = 0; + tbl->capa = 8; + tbl->tbl = ALLOC_N(ID, tbl->capa); + tbl->prev = prev; +#ifndef RIPPER + if (p->debug) { + rb_parser_printf(p, "vtable_alloc:%d: %p\n", line, (void *)tbl); + } +#endif + return tbl; +} +#define vtable_alloc(prev) vtable_alloc_gen(p, __LINE__, prev) + +static void +vtable_free_gen(struct parser_params *p, int line, const char *name, + struct vtable *tbl) +{ +#ifndef RIPPER + if (p->debug) { + rb_parser_printf(p, "vtable_free:%d: %s(%p)\n", line, name, (void *)tbl); + } +#endif + if (!DVARS_TERMINAL_P(tbl)) { + if (tbl->tbl) { + ruby_sized_xfree(tbl->tbl, tbl->capa * sizeof(ID)); + } + ruby_sized_xfree(tbl, sizeof(tbl)); + } +} +#define vtable_free(tbl) vtable_free_gen(p, __LINE__, #tbl, tbl) + +static void +vtable_add_gen(struct parser_params *p, int line, const char *name, + struct vtable *tbl, ID id) +{ +#ifndef RIPPER + if (p->debug) { + rb_parser_printf(p, "vtable_add:%d: %s(%p), %s\n", + line, name, (void *)tbl, rb_id2name(id)); + } +#endif + if (DVARS_TERMINAL_P(tbl)) { + rb_parser_fatal(p, "vtable_add: vtable is not allocated (%p)", (void *)tbl); + return; + } + if (tbl->pos == tbl->capa) { + tbl->capa = tbl->capa * 2; + SIZED_REALLOC_N(tbl->tbl, ID, tbl->capa, tbl->pos); + } + tbl->tbl[tbl->pos++] = id; +} +#define vtable_add(tbl, id) vtable_add_gen(p, __LINE__, #tbl, tbl, id) + +#ifndef RIPPER +static void +vtable_pop_gen(struct parser_params *p, int line, const char *name, + struct vtable *tbl, int n) +{ + if (p->debug) { + rb_parser_printf(p, "vtable_pop:%d: %s(%p), %d\n", + line, name, (void *)tbl, n); + } + if (tbl->pos < n) { + rb_parser_fatal(p, "vtable_pop: unreachable (%d < %d)", tbl->pos, n); + return; + } + tbl->pos -= n; +} +#define vtable_pop(tbl, n) vtable_pop_gen(p, __LINE__, #tbl, tbl, n) +#endif + +static int +vtable_included(const struct vtable * tbl, ID id) +{ + int i; + + if (!DVARS_TERMINAL_P(tbl)) { + for (i = 0; i < tbl->pos; i++) { + if (tbl->tbl[i] == id) { + return i+1; + } + } + } + return 0; +} + +static void parser_prepare(struct parser_params *p); + +#ifndef RIPPER +static NODE *parser_append_options(struct parser_params *p, NODE *node); + +static VALUE +debug_lines(VALUE fname) +{ + ID script_lines; + CONST_ID(script_lines, "SCRIPT_LINES__"); + if (rb_const_defined_at(rb_cObject, script_lines)) { + VALUE hash = rb_const_get_at(rb_cObject, script_lines); + if (RB_TYPE_P(hash, T_HASH)) { + VALUE lines = rb_ary_new(); + rb_hash_aset(hash, fname, lines); + return lines; + } + } + return 0; +} + +static int +e_option_supplied(struct parser_params *p) +{ + return strcmp(p->ruby_sourcefile, "-e") == 0; +} + +static VALUE +yycompile0(VALUE arg) +{ + int n; + NODE *tree; + struct parser_params *p = (struct parser_params *)arg; + VALUE cov = Qfalse; + + if (!compile_for_eval && rb_safe_level() == 0 && !NIL_P(p->ruby_sourcefile_string)) { + p->debug_lines = debug_lines(p->ruby_sourcefile_string); + if (p->debug_lines && p->ruby_sourceline > 0) { + VALUE str = STR_NEW0(); + n = p->ruby_sourceline; + do { + rb_ary_push(p->debug_lines, str); + } while (--n); + } + + if (!e_option_supplied(p)) { + cov = Qtrue; + } + } + + parser_prepare(p); +#define RUBY_DTRACE_PARSE_HOOK(name) \ + if (RUBY_DTRACE_PARSE_##name##_ENABLED()) { \ + RUBY_DTRACE_PARSE_##name(p->ruby_sourcefile, p->ruby_sourceline); \ + } + RUBY_DTRACE_PARSE_HOOK(BEGIN); + n = yyparse(p); + RUBY_DTRACE_PARSE_HOOK(END); + p->debug_lines = 0; + + p->lex.strterm = 0; + p->lex.pcur = p->lex.pbeg = p->lex.pend = 0; + p->lex.prevline = p->lex.lastline = p->lex.nextline = 0; + if (n || p->error_p) { + VALUE mesg = p->error_buffer; + if (!mesg) { + mesg = rb_class_new_instance(0, 0, rb_eSyntaxError); + } + rb_set_errinfo(mesg); + return FALSE; + } + tree = p->eval_tree; + if (!tree) { + tree = NEW_NIL(&NULL_LOC); + } + else { + VALUE opt = p->compile_option; + NODE *prelude; + NODE *body = parser_append_options(p, tree->nd_body); + if (!opt) opt = rb_obj_hide(rb_ident_hash_new()); + rb_hash_aset(opt, rb_sym_intern_ascii_cstr("coverage_enabled"), cov); + prelude = block_append(p, p->eval_tree_begin, body); + add_mark_object(p, opt); + tree->nd_body = prelude; + p->ast->body.compile_option = opt; + } + p->ast->body.root = tree; + p->ast->body.line_count = p->line_count; + return TRUE; +} + +static rb_ast_t * +yycompile(VALUE vparser, struct parser_params *p, VALUE fname, int line) +{ + rb_ast_t *ast; + if (NIL_P(fname)) { + p->ruby_sourcefile_string = Qnil; + p->ruby_sourcefile = "(none)"; + } + else { + p->ruby_sourcefile_string = rb_fstring(fname); + p->ruby_sourcefile = StringValueCStr(fname); + } + p->ruby_sourceline = line - 1; + + p->ast = ast = rb_ast_new(); + rb_suppress_tracing(yycompile0, (VALUE)p); + p->ast = 0; + RB_GC_GUARD(vparser); /* prohibit tail call optimization */ + + return ast; +} +#endif /* !RIPPER */ + +static rb_encoding * +must_be_ascii_compatible(VALUE s) +{ + rb_encoding *enc = rb_enc_get(s); + if (!rb_enc_asciicompat(enc)) { + rb_raise(rb_eArgError, "invalid source encoding"); + } + return enc; +} + +static VALUE +lex_get_str(struct parser_params *p, VALUE s) +{ + char *beg, *end, *start; + long len; + + beg = RSTRING_PTR(s); + len = RSTRING_LEN(s); + start = beg; + if (p->lex.gets_.ptr) { + if (len == p->lex.gets_.ptr) return Qnil; + beg += p->lex.gets_.ptr; + len -= p->lex.gets_.ptr; + } + end = memchr(beg, '\n', len); + if (end) len = ++end - beg; + p->lex.gets_.ptr += len; + return rb_str_subseq(s, beg - start, len); +} + +static VALUE +lex_getline(struct parser_params *p) +{ + VALUE line = (*p->lex.gets)(p, p->lex.input); + if (NIL_P(line)) return line; + must_be_ascii_compatible(line); +#ifndef RIPPER + if (p->debug_lines) { + rb_enc_associate(line, p->enc); + rb_ary_push(p->debug_lines, line); + } +#endif + p->line_count++; + return line; +} + +static const rb_data_type_t parser_data_type; + +#ifndef RIPPER +static rb_ast_t* +parser_compile_string(VALUE vparser, VALUE fname, VALUE s, int line) +{ + struct parser_params *p; + + TypedData_Get_Struct(vparser, struct parser_params, &parser_data_type, p); + + p->lex.gets = lex_get_str; + p->lex.gets_.ptr = 0; + p->lex.input = rb_str_new_frozen(s); + p->lex.pbeg = p->lex.pcur = p->lex.pend = 0; + + return yycompile(vparser, p, fname, line); +} + +rb_ast_t* +rb_compile_string(const char *f, VALUE s, int line) +{ + must_be_ascii_compatible(s); + return parser_compile_string(rb_parser_new(), rb_filesystem_str_new_cstr(f), s, line); +} + +rb_ast_t* +rb_parser_compile_string(VALUE vparser, const char *f, VALUE s, int line) +{ + return rb_parser_compile_string_path(vparser, rb_filesystem_str_new_cstr(f), s, line); +} + +rb_ast_t* +rb_parser_compile_string_path(VALUE vparser, VALUE f, VALUE s, int line) +{ + must_be_ascii_compatible(s); + return parser_compile_string(vparser, f, s, line); +} + +rb_ast_t* +rb_compile_cstr(const char *f, const char *s, int len, int line) +{ + VALUE str = rb_str_new(s, len); + return parser_compile_string(rb_parser_new(), rb_filesystem_str_new_cstr(f), str, line); +} + +rb_ast_t* +rb_parser_compile_cstr(VALUE vparser, const char *f, const char *s, int len, int line) +{ + VALUE str = rb_str_new(s, len); + return parser_compile_string(vparser, rb_filesystem_str_new_cstr(f), str, line); +} + +VALUE rb_io_gets_internal(VALUE io); + +static VALUE +lex_io_gets(struct parser_params *p, VALUE io) +{ + return rb_io_gets_internal(io); +} + +rb_ast_t* +rb_compile_file(const char *f, VALUE file, int start) +{ + VALUE vparser = rb_parser_new(); + + return rb_parser_compile_file(vparser, f, file, start); +} + +rb_ast_t* +rb_parser_compile_file(VALUE vparser, const char *f, VALUE file, int start) +{ + return rb_parser_compile_file_path(vparser, rb_filesystem_str_new_cstr(f), file, start); +} + +rb_ast_t* +rb_parser_compile_file_path(VALUE vparser, VALUE fname, VALUE file, int start) +{ + struct parser_params *p; + + TypedData_Get_Struct(vparser, struct parser_params, &parser_data_type, p); + + p->lex.gets = lex_io_gets; + p->lex.input = file; + p->lex.pbeg = p->lex.pcur = p->lex.pend = 0; + + return yycompile(vparser, p, fname, start); +} + +static VALUE +lex_generic_gets(struct parser_params *p, VALUE input) +{ + return (*p->lex.gets_.call)(input, p->line_count); +} + +rb_ast_t* +rb_parser_compile_generic(VALUE vparser, VALUE (*lex_gets)(VALUE, int), VALUE fname, VALUE input, int start) +{ + struct parser_params *p; + + TypedData_Get_Struct(vparser, struct parser_params, &parser_data_type, p); + + p->lex.gets = lex_generic_gets; + p->lex.gets_.call = lex_gets; + p->lex.input = input; + p->lex.pbeg = p->lex.pcur = p->lex.pend = 0; + + return yycompile(vparser, p, fname, start); +} +#endif /* !RIPPER */ + +#define STR_FUNC_ESCAPE 0x01 +#define STR_FUNC_EXPAND 0x02 +#define STR_FUNC_REGEXP 0x04 +#define STR_FUNC_QWORDS 0x08 +#define STR_FUNC_SYMBOL 0x10 +#define STR_FUNC_INDENT 0x20 +#define STR_FUNC_LABEL 0x40 +#define STR_FUNC_LIST 0x4000 +#define STR_FUNC_TERM 0x8000 + +enum string_type { + str_label = STR_FUNC_LABEL, + str_squote = (0), + str_dquote = (STR_FUNC_EXPAND), + str_xquote = (STR_FUNC_EXPAND), + str_regexp = (STR_FUNC_REGEXP|STR_FUNC_ESCAPE|STR_FUNC_EXPAND), + str_sword = (STR_FUNC_QWORDS|STR_FUNC_LIST), + str_dword = (STR_FUNC_QWORDS|STR_FUNC_EXPAND|STR_FUNC_LIST), + str_ssym = (STR_FUNC_SYMBOL), + str_dsym = (STR_FUNC_SYMBOL|STR_FUNC_EXPAND) +}; + +static VALUE +parser_str_new(const char *ptr, long len, rb_encoding *enc, int func, rb_encoding *enc0) +{ + VALUE str; + + str = rb_enc_str_new(ptr, len, enc); + if (!(func & STR_FUNC_REGEXP) && rb_enc_asciicompat(enc)) { + if (rb_enc_str_coderange(str) == ENC_CODERANGE_7BIT) { + } + else if (enc0 == rb_usascii_encoding() && enc != rb_utf8_encoding()) { + rb_enc_associate(str, rb_ascii8bit_encoding()); + } + } + + return str; +} + +#define lex_goto_eol(p) ((p)->lex.pcur = (p)->lex.pend) +#define lex_eol_p(p) ((p)->lex.pcur >= (p)->lex.pend) +#define lex_eol_n_p(p,n) ((p)->lex.pcur+(n) >= (p)->lex.pend) +#define peek(p,c) peek_n(p, (c), 0) +#define peek_n(p,c,n) (!lex_eol_n_p(p, n) && (c) == (unsigned char)(p)->lex.pcur[n]) +#define peekc(p) peekc_n(p, 0) +#define peekc_n(p,n) (lex_eol_n_p(p, n) ? -1 : (unsigned char)(p)->lex.pcur[n]) + +#ifdef RIPPER +static void +add_delayed_token(struct parser_params *p, const char *tok, const char *end) +{ + if (tok < end) { + if (!has_delayed_token(p)) { + p->delayed = rb_str_buf_new(1024); + rb_enc_associate(p->delayed, p->enc); + p->delayed_line = p->ruby_sourceline; + p->delayed_col = (int)(tok - p->lex.pbeg); + } + rb_str_buf_cat(p->delayed, tok, end - tok); + p->lex.ptok = end; + } +} +#else +#define add_delayed_token(p, tok, end) ((void)(tok), (void)(end)) +#endif + +static int +nextline(struct parser_params *p) +{ + VALUE v = p->lex.nextline; + p->lex.nextline = 0; + if (!v) { + if (p->eofp) + return -1; + + if (!p->lex.input || NIL_P(v = lex_getline(p))) { + p->eofp = 1; + lex_goto_eol(p); + return -1; + } + p->cr_seen = FALSE; + } + add_delayed_token(p, p->lex.ptok, p->lex.pend); + if (p->heredoc_end > 0) { + p->ruby_sourceline = p->heredoc_end; + p->heredoc_end = 0; + } + p->ruby_sourceline++; + p->lex.pbeg = p->lex.pcur = RSTRING_PTR(v); + p->lex.pend = p->lex.pcur + RSTRING_LEN(v); + token_flush(p); + p->lex.prevline = p->lex.lastline; + p->lex.lastline = v; + return 0; +} + +static int +parser_cr(struct parser_params *p, int c) +{ + if (peek(p, '\n')) { + p->lex.pcur++; + c = '\n'; + } + else if (!p->cr_seen) { + p->cr_seen = TRUE; + /* carried over with p->lex.nextline for nextc() */ + rb_warn0("encountered \\r in middle of line, treated as a mere space"); + } + return c; +} + +static inline int +nextc(struct parser_params *p) +{ + int c; + + if (UNLIKELY((p->lex.pcur == p->lex.pend) || p->eofp || p->lex.nextline)) { + if (nextline(p)) return -1; + } + c = (unsigned char)*p->lex.pcur++; + if (UNLIKELY(c == '\r')) { + c = parser_cr(p, c); + } + + return c; +} + +static void +pushback(struct parser_params *p, int c) +{ + if (c == -1) return; + p->lex.pcur--; + if (p->lex.pcur > p->lex.pbeg && p->lex.pcur[0] == '\n' && p->lex.pcur[-1] == '\r') { + p->lex.pcur--; + } +} + +#define was_bol(p) ((p)->lex.pcur == (p)->lex.pbeg + 1) + +#define tokfix(p) ((p)->tokenbuf[(p)->tokidx]='\0') +#define tok(p) (p)->tokenbuf +#define toklen(p) (p)->tokidx + +static char* +newtok(struct parser_params *p) +{ + p->tokidx = 0; + p->tokline = p->ruby_sourceline; + if (!p->tokenbuf) { + p->toksiz = 60; + p->tokenbuf = ALLOC_N(char, 60); + } + if (p->toksiz > 4096) { + p->toksiz = 60; + REALLOC_N(p->tokenbuf, char, 60); + } + return p->tokenbuf; +} + +static char * +tokspace(struct parser_params *p, int n) +{ + p->tokidx += n; + + if (p->tokidx >= p->toksiz) { + do {p->toksiz *= 2;} while (p->toksiz < p->tokidx); + REALLOC_N(p->tokenbuf, char, p->toksiz); + } + return &p->tokenbuf[p->tokidx-n]; +} + +static void +tokadd(struct parser_params *p, int c) +{ + p->tokenbuf[p->tokidx++] = (char)c; + if (p->tokidx >= p->toksiz) { + p->toksiz *= 2; + REALLOC_N(p->tokenbuf, char, p->toksiz); + } +} + +static int +tok_hex(struct parser_params *p, size_t *numlen) +{ + int c; + + c = scan_hex(p->lex.pcur, 2, numlen); + if (!*numlen) { + p->lex.ptok = p->lex.pcur; + yyerror0("invalid hex escape"); + return 0; + } + p->lex.pcur += *numlen; + return c; +} + +#define tokcopy(p, n) memcpy(tokspace(p, n), (p)->lex.pcur - (n), (n)) + +static int +tokadd_codepoint(struct parser_params *p, rb_encoding **encp, + int regexp_literal, int wide) +{ + size_t numlen; + int codepoint = scan_hex(p->lex.pcur, wide ? p->lex.pend - p->lex.pcur : 4, &numlen); + literal_flush(p, p->lex.pcur); + p->lex.pcur += numlen; + if (wide ? (numlen == 0 || numlen > 6) : (numlen < 4)) { + yyerror0("invalid Unicode escape"); + return wide && numlen > 0; + } + if (codepoint > 0x10ffff) { + yyerror0("invalid Unicode codepoint (too large)"); + return wide; + } + if ((codepoint & 0xfffff800) == 0xd800) { + yyerror0("invalid Unicode codepoint"); + return wide; + } + if (regexp_literal) { + tokcopy(p, (int)numlen); + } + else if (codepoint >= 0x80) { + rb_encoding *utf8 = rb_utf8_encoding(); + if (*encp && utf8 != *encp) { + static const char mixed_utf8[] = "UTF-8 mixed within %s source"; + size_t len = sizeof(mixed_utf8) - 2 + strlen(rb_enc_name(*encp)); + char *mesg = alloca(len); + snprintf(mesg, len, mixed_utf8, rb_enc_name(*encp)); + yyerror0(mesg); + return wide; + } + *encp = utf8; + tokaddmbc(p, codepoint, *encp); + } + else { + tokadd(p, codepoint); + } + return TRUE; +} + +/* return value is for ?\u3042 */ +static int +parser_tokadd_utf8(struct parser_params *p, rb_encoding **encp, + int string_literal, int symbol_literal, int regexp_literal) +{ + /* + * If string_literal is true, then we allow multiple codepoints + * in \u{}, and add the codepoints to the current token. + * Otherwise we're parsing a character literal and return a single + * codepoint without adding it + */ + + const int open_brace = '{', close_brace = '}'; + + if (regexp_literal) { tokadd(p, '\\'); tokadd(p, 'u'); } + + if (peek(p, open_brace)) { /* handle \u{...} form */ + int c, last = nextc(p); + if (p->lex.pcur >= p->lex.pend) goto unterminated; + while (ISSPACE(c = *p->lex.pcur) && ++p->lex.pcur < p->lex.pend); + while (c != close_brace) { + if (regexp_literal) tokadd(p, last); + if (!tokadd_codepoint(p, encp, regexp_literal, TRUE)) { + break; + } + while (ISSPACE(c = *p->lex.pcur)) { + if (++p->lex.pcur >= p->lex.pend) goto unterminated; + last = c; + } + } + + if (c != close_brace) { + unterminated: + literal_flush(p, p->lex.pcur); + yyerror0("unterminated Unicode escape"); + return 0; + } + + if (regexp_literal) tokadd(p, close_brace); + nextc(p); + } + else { /* handle \uxxxx form */ + if (!tokadd_codepoint(p, encp, regexp_literal, FALSE)) { + return 0; + } + } + + return TRUE; +} + +#define ESCAPE_CONTROL 1 +#define ESCAPE_META 2 + +static int +read_escape(struct parser_params *p, int flags, rb_encoding **encp) +{ + int c; + size_t numlen; + + switch (c = nextc(p)) { + case '\\': /* Backslash */ + return c; + + case 'n': /* newline */ + return '\n'; + + case 't': /* horizontal tab */ + return '\t'; + + case 'r': /* carriage-return */ + return '\r'; + + case 'f': /* form-feed */ + return '\f'; + + case 'v': /* vertical tab */ + return '\13'; + + case 'a': /* alarm(bell) */ + return '\007'; + + case 'e': /* escape */ + return 033; + + case '0': case '1': case '2': case '3': /* octal constant */ + case '4': case '5': case '6': case '7': + pushback(p, c); + c = scan_oct(p->lex.pcur, 3, &numlen); + p->lex.pcur += numlen; + return c; + + case 'x': /* hex constant */ + c = tok_hex(p, &numlen); + if (numlen == 0) return 0; + return c; + + case 'b': /* backspace */ + return '\010'; + + case 's': /* space */ + return ' '; + + case 'M': + if (flags & ESCAPE_META) goto eof; + if ((c = nextc(p)) != '-') { + goto eof; + } + if ((c = nextc(p)) == '\\') { + if (peek(p, 'u')) goto eof; + return read_escape(p, flags|ESCAPE_META, encp) | 0x80; + } + else if (c == -1 || !ISASCII(c)) goto eof; + else { + return ((c & 0xff) | 0x80); + } + + case 'C': + if ((c = nextc(p)) != '-') { + goto eof; + } + case 'c': + if (flags & ESCAPE_CONTROL) goto eof; + if ((c = nextc(p))== '\\') { + if (peek(p, 'u')) goto eof; + c = read_escape(p, flags|ESCAPE_CONTROL, encp); + } + else if (c == '?') + return 0177; + else if (c == -1 || !ISASCII(c)) goto eof; + return c & 0x9f; + + eof: + case -1: + yyerror0("Invalid escape character syntax"); + pushback(p, c); + return '\0'; + + default: + return c; + } +} + +static void +tokaddmbc(struct parser_params *p, int c, rb_encoding *enc) +{ + int len = rb_enc_codelen(c, enc); + rb_enc_mbcput(c, tokspace(p, len), enc); +} + +static int +tokadd_escape(struct parser_params *p, rb_encoding **encp) +{ + int c; + int flags = 0; + size_t numlen; + + first: + switch (c = nextc(p)) { + case '\n': + return 0; /* just ignore */ + + case '0': case '1': case '2': case '3': /* octal constant */ + case '4': case '5': case '6': case '7': + { + ruby_scan_oct(--p->lex.pcur, 3, &numlen); + if (numlen == 0) goto eof; + p->lex.pcur += numlen; + tokcopy(p, (int)numlen + 1); + } + return 0; + + case 'x': /* hex constant */ + { + tok_hex(p, &numlen); + if (numlen == 0) return -1; + tokcopy(p, (int)numlen + 2); + } + return 0; + + case 'M': + if (flags & ESCAPE_META) goto eof; + if ((c = nextc(p)) != '-') { + pushback(p, c); + goto eof; + } + tokcopy(p, 3); + flags |= ESCAPE_META; + goto escaped; + + case 'C': + if (flags & ESCAPE_CONTROL) goto eof; + if ((c = nextc(p)) != '-') { + pushback(p, c); + goto eof; + } + tokcopy(p, 3); + goto escaped; + + case 'c': + if (flags & ESCAPE_CONTROL) goto eof; + tokcopy(p, 2); + flags |= ESCAPE_CONTROL; + escaped: + if ((c = nextc(p)) == '\\') { + goto first; + } + else if (c == -1) goto eof; + tokadd(p, c); + return 0; + + eof: + case -1: + yyerror0("Invalid escape character syntax"); + return -1; + + default: + tokadd(p, '\\'); + tokadd(p, c); + } + return 0; +} + +static int +regx_options(struct parser_params *p) +{ + int kcode = 0; + int kopt = 0; + int options = 0; + int c, opt, kc; + + newtok(p); + while (c = nextc(p), ISALPHA(c)) { + if (c == 'o') { + options |= RE_OPTION_ONCE; + } + else if (rb_char_to_option_kcode(c, &opt, &kc)) { + if (kc >= 0) { + if (kc != rb_ascii8bit_encindex()) kcode = c; + kopt = opt; + } + else { + options |= opt; + } + } + else { + tokadd(p, c); + } + } + options |= kopt; + pushback(p, c); + if (toklen(p)) { + tokfix(p); + compile_error(p, "unknown regexp option%s - %*s", + toklen(p) > 1 ? "s" : "", toklen(p), tok(p)); + } + return options | RE_OPTION_ENCODING(kcode); +} + +static int +tokadd_mbchar(struct parser_params *p, int c) +{ + int len = parser_precise_mbclen(p, p->lex.pcur-1); + if (len < 0) return -1; + tokadd(p, c); + p->lex.pcur += --len; + if (len > 0) tokcopy(p, len); + return c; +} + +static inline int +simple_re_meta(int c) +{ + switch (c) { + case '$': case '*': case '+': case '.': + case '?': case '^': case '|': + case ')': case ']': case '}': case '>': + return TRUE; + default: + return FALSE; + } +} + +static int +parser_update_heredoc_indent(struct parser_params *p, int c) +{ + if (p->heredoc_line_indent == -1) { + if (c == '\n') p->heredoc_line_indent = 0; + } + else { + if (c == ' ') { + p->heredoc_line_indent++; + return TRUE; + } + else if (c == '\t') { + int w = (p->heredoc_line_indent / TAB_WIDTH) + 1; + p->heredoc_line_indent = w * TAB_WIDTH; + return TRUE; + } + else if (c != '\n') { + if (p->heredoc_indent > p->heredoc_line_indent) { + p->heredoc_indent = p->heredoc_line_indent; + } + p->heredoc_line_indent = -1; + } + } + return FALSE; +} + +static void +parser_mixed_error(struct parser_params *p, rb_encoding *enc1, rb_encoding *enc2) +{ + static const char mixed_msg[] = "%s mixed within %s source"; + const char *n1 = rb_enc_name(enc1), *n2 = rb_enc_name(enc2); + const size_t len = sizeof(mixed_msg) - 4 + strlen(n1) + strlen(n2); + char *errbuf = ALLOCA_N(char, len); + snprintf(errbuf, len, mixed_msg, n1, n2); + yyerror0(errbuf); +} + +static void +parser_mixed_escape(struct parser_params *p, const char *beg, rb_encoding *enc1, rb_encoding *enc2) +{ + const char *pos = p->lex.pcur; + p->lex.pcur = beg; + parser_mixed_error(p, enc1, enc2); + p->lex.pcur = pos; +} + +static int +tokadd_string(struct parser_params *p, + int func, int term, int paren, long *nest, + rb_encoding **encp, rb_encoding **enc) +{ + int c; + bool erred = false; + +#define mixed_error(enc1, enc2) \ + (void)(erred || (parser_mixed_error(p, enc1, enc2), erred = true)) +#define mixed_escape(beg, enc1, enc2) \ + (void)(erred || (parser_mixed_escape(p, beg, enc1, enc2), erred = true)) + + while ((c = nextc(p)) != -1) { + if (p->heredoc_indent > 0) { + parser_update_heredoc_indent(p, c); + } + + if (paren && c == paren) { + ++*nest; + } + else if (c == term) { + if (!nest || !*nest) { + pushback(p, c); + break; + } + --*nest; + } + else if ((func & STR_FUNC_EXPAND) && c == '#' && p->lex.pcur < p->lex.pend) { + int c2 = *p->lex.pcur; + if (c2 == '$' || c2 == '@' || c2 == '{') { + pushback(p, c); + break; + } + } + else if (c == '\\') { + literal_flush(p, p->lex.pcur - 1); + c = nextc(p); + switch (c) { + case '\n': + if (func & STR_FUNC_QWORDS) break; + if (func & STR_FUNC_EXPAND) { + if (!(func & STR_FUNC_INDENT) || (p->heredoc_indent < 0)) + continue; + if (c == term) { + c = '\\'; + goto terminate; + } + } + tokadd(p, '\\'); + break; + + case '\\': + if (func & STR_FUNC_ESCAPE) tokadd(p, c); + break; + + case 'u': + if ((func & STR_FUNC_EXPAND) == 0) { + tokadd(p, '\\'); + break; + } + if (!parser_tokadd_utf8(p, enc, term, + func & STR_FUNC_SYMBOL, + func & STR_FUNC_REGEXP)) { + return -1; + } + continue; + + default: + if (c == -1) return -1; + if (!ISASCII(c)) { + if ((func & STR_FUNC_EXPAND) == 0) tokadd(p, '\\'); + goto non_ascii; + } + if (func & STR_FUNC_REGEXP) { + if (c == term && !simple_re_meta(c)) { + tokadd(p, c); + continue; + } + pushback(p, c); + if ((c = tokadd_escape(p, enc)) < 0) + return -1; + if (*enc && *enc != *encp) { + mixed_escape(p->lex.ptok+2, *enc, *encp); + } + continue; + } + else if (func & STR_FUNC_EXPAND) { + pushback(p, c); + if (func & STR_FUNC_ESCAPE) tokadd(p, '\\'); + c = read_escape(p, 0, enc); + } + else if ((func & STR_FUNC_QWORDS) && ISSPACE(c)) { + /* ignore backslashed spaces in %w */ + } + else if (c != term && !(paren && c == paren)) { + tokadd(p, '\\'); + pushback(p, c); + continue; + } + } + } + else if (!parser_isascii(p)) { + non_ascii: + if (!*enc) { + *enc = *encp; + } + else if (*enc != *encp) { + mixed_error(*enc, *encp); + continue; + } + if (tokadd_mbchar(p, c) == -1) return -1; + continue; + } + else if ((func & STR_FUNC_QWORDS) && ISSPACE(c)) { + pushback(p, c); + break; + } + if (c & 0x80) { + if (!*enc) { + *enc = *encp; + } + else if (*enc != *encp) { + mixed_error(*enc, *encp); + continue; + } + } + tokadd(p, c); + } + terminate: + if (*enc) *encp = *enc; + return c; +} + +static inline rb_strterm_t * +new_strterm(VALUE v1, VALUE v2, VALUE v3, VALUE v0) +{ + return (rb_strterm_t*)rb_imemo_new(imemo_parser_strterm, v1, v2, v3, v0); +} + +/* imemo_parser_strterm for literal */ +#define NEW_STRTERM(func, term, paren) \ + new_strterm((VALUE)(func), (VALUE)(paren), (VALUE)(term), 0) + +#ifdef RIPPER +static void +flush_string_content(struct parser_params *p, rb_encoding *enc) +{ + VALUE content = yylval.val; + if (!ripper_is_node_yylval(content)) + content = ripper_new_yylval(p, 0, 0, content); + if (has_delayed_token(p)) { + ptrdiff_t len = p->lex.pcur - p->lex.ptok; + if (len > 0) { + rb_enc_str_buf_cat(p->delayed, p->lex.ptok, len, enc); + } + dispatch_delayed_token(p, tSTRING_CONTENT); + p->lex.ptok = p->lex.pcur; + RNODE(content)->nd_rval = yylval.val; + } + dispatch_scan_event(p, tSTRING_CONTENT); + if (yylval.val != content) + RNODE(content)->nd_rval = yylval.val; + yylval.val = content; +} +#else +#define flush_string_content(p, enc) ((void)(enc)) +#endif + +RUBY_FUNC_EXPORTED const unsigned int ruby_global_name_punct_bits[(0x7e - 0x20 + 31) / 32]; +/* this can be shared with ripper, since it's independent from struct + * parser_params. */ +#ifndef RIPPER +#define BIT(c, idx) (((c) / 32 - 1 == idx) ? (1U << ((c) % 32)) : 0) +#define SPECIAL_PUNCT(idx) ( \ + BIT('~', idx) | BIT('*', idx) | BIT('$', idx) | BIT('?', idx) | \ + BIT('!', idx) | BIT('@', idx) | BIT('/', idx) | BIT('\\', idx) | \ + BIT(';', idx) | BIT(',', idx) | BIT('.', idx) | BIT('=', idx) | \ + BIT(':', idx) | BIT('<', idx) | BIT('>', idx) | BIT('\"', idx) | \ + BIT('&', idx) | BIT('`', idx) | BIT('\'', idx) | BIT('+', idx) | \ + BIT('0', idx)) +const unsigned int ruby_global_name_punct_bits[] = { + SPECIAL_PUNCT(0), + SPECIAL_PUNCT(1), + SPECIAL_PUNCT(2), +}; +#undef BIT +#undef SPECIAL_PUNCT +#endif + +static enum yytokentype +parser_peek_variable_name(struct parser_params *p) +{ + int c; + const char *ptr = p->lex.pcur; + + if (ptr + 1 >= p->lex.pend) return 0; + c = *ptr++; + switch (c) { + case '$': + if ((c = *ptr) == '-') { + if (++ptr >= p->lex.pend) return 0; + c = *ptr; + } + else if (is_global_name_punct(c) || ISDIGIT(c)) { + return tSTRING_DVAR; + } + break; + case '@': + if ((c = *ptr) == '@') { + if (++ptr >= p->lex.pend) return 0; + c = *ptr; + } + break; + case '{': + p->lex.pcur = ptr; + p->command_start = TRUE; + return tSTRING_DBEG; + default: + return 0; + } + if (!ISASCII(c) || c == '_' || ISALPHA(c)) + return tSTRING_DVAR; + return 0; +} + +#define IS_ARG() IS_lex_state(EXPR_ARG_ANY) +#define IS_END() IS_lex_state(EXPR_END_ANY) +#define IS_BEG() (IS_lex_state(EXPR_BEG_ANY) || IS_lex_state_all(EXPR_ARG|EXPR_LABELED)) +#define IS_SPCARG(c) (IS_ARG() && space_seen && !ISSPACE(c)) +#define IS_LABEL_POSSIBLE() (\ + (IS_lex_state(EXPR_LABEL|EXPR_ENDFN) && !cmd_state) || \ + IS_ARG()) +#define IS_LABEL_SUFFIX(n) (peek_n(p, ':',(n)) && !peek_n(p, ':', (n)+1)) +#define IS_AFTER_OPERATOR() IS_lex_state(EXPR_FNAME | EXPR_DOT) + +static inline enum yytokentype +parser_string_term(struct parser_params *p, int func) +{ + p->lex.strterm = 0; + if (func & STR_FUNC_REGEXP) { + set_yylval_num(regx_options(p)); + dispatch_scan_event(p, tREGEXP_END); + SET_LEX_STATE(EXPR_END); + return tREGEXP_END; + } + if ((func & STR_FUNC_LABEL) && IS_LABEL_SUFFIX(0)) { + nextc(p); + SET_LEX_STATE(EXPR_BEG|EXPR_LABEL); + return tLABEL_END; + } + SET_LEX_STATE(EXPR_END); + return tSTRING_END; +} + +static enum yytokentype +parse_string(struct parser_params *p, rb_strterm_literal_t *quote) +{ + int func = (int)quote->u1.func; + int term = (int)quote->u3.term; + int paren = (int)quote->u2.paren; + int c, space = 0; + rb_encoding *enc = p->enc; + rb_encoding *base_enc = 0; + VALUE lit; + + if (func & STR_FUNC_TERM) { + if (func & STR_FUNC_QWORDS) nextc(p); /* delayed term */ + SET_LEX_STATE(EXPR_END); + p->lex.strterm = 0; + return func & STR_FUNC_REGEXP ? tREGEXP_END : tSTRING_END; + } + c = nextc(p); + if ((func & STR_FUNC_QWORDS) && ISSPACE(c)) { + do {c = nextc(p);} while (ISSPACE(c)); + space = 1; + } + if (func & STR_FUNC_LIST) { + quote->u1.func &= ~STR_FUNC_LIST; + space = 1; + } + if (c == term && !quote->u0.nest) { + if (func & STR_FUNC_QWORDS) { + quote->u1.func |= STR_FUNC_TERM; + pushback(p, c); /* dispatch the term at tSTRING_END */ + add_delayed_token(p, p->lex.ptok, p->lex.pcur); + return ' '; + } + return parser_string_term(p, func); + } + if (space) { + pushback(p, c); + add_delayed_token(p, p->lex.ptok, p->lex.pcur); + return ' '; + } + newtok(p); + if ((func & STR_FUNC_EXPAND) && c == '#') { + int t = parser_peek_variable_name(p); + if (t) return t; + tokadd(p, '#'); + c = nextc(p); + } + pushback(p, c); + if (tokadd_string(p, func, term, paren, &quote->u0.nest, + &enc, &base_enc) == -1) { + if (p->eofp) { +#ifndef RIPPER +# define unterminated_literal(mesg) yyerror0(mesg) +#else +# define unterminated_literal(mesg) compile_error(p, mesg) +#endif + literal_flush(p, p->lex.pcur); + if (func & STR_FUNC_REGEXP) { + unterminated_literal("unterminated regexp meets end of file"); + } + else { + unterminated_literal("unterminated string meets end of file"); + } + quote->u1.func |= STR_FUNC_TERM; + } + } + + tokfix(p); + add_mark_object(p, lit = STR_NEW3(tok(p), toklen(p), enc, func)); + set_yylval_str(lit); + flush_string_content(p, enc); + + return tSTRING_CONTENT; +} + +static enum yytokentype +heredoc_identifier(struct parser_params *p) +{ + /* + * term_len is length of `<<"END"` except `END`, + * in this case term_len is 4 (<, <, " and "). + */ + int c = nextc(p), term, func = 0, term_len = 2; + enum yytokentype token = tSTRING_BEG; + long len; + int newline = 0; + int indent = 0; + + if (c == '-') { + c = nextc(p); + term_len++; + func = STR_FUNC_INDENT; + } + else if (c == '~') { + c = nextc(p); + term_len++; + func = STR_FUNC_INDENT; + indent = INT_MAX; + } + switch (c) { + case '\'': + term_len++; + func |= str_squote; goto quoted; + case '"': + term_len++; + func |= str_dquote; goto quoted; + case '`': + term_len++; + token = tXSTRING_BEG; + func |= str_xquote; goto quoted; + + quoted: + term_len++; + newtok(p); + tokadd(p, term_len); + tokadd(p, func); + term = c; + while ((c = nextc(p)) != -1 && c != term) { + if (tokadd_mbchar(p, c) == -1) return 0; + if (!newline && c == '\n') newline = 1; + else if (newline) newline = 2; + } + if (c == -1) { + yyerror(NULL, p, "unterminated here document identifier"); + return -1; + } + switch (newline) { + case 1: + rb_warn0("here document identifier ends with a newline"); + if (--p->tokidx > 0 && p->tokenbuf[p->tokidx] == '\r') --p->tokidx; + break; + case 2: + compile_error(p, "here document identifier across newlines, never match"); + return -1; + } + break; + + default: + if (!parser_is_identchar(p)) { + pushback(p, c); + if (func & STR_FUNC_INDENT) { + pushback(p, indent > 0 ? '~' : '-'); + } + return 0; + } + newtok(p); + tokadd(p, term_len); + tokadd(p, func |= str_dquote); + do { + if (tokadd_mbchar(p, c) == -1) return 0; + } while ((c = nextc(p)) != -1 && parser_is_identchar(p)); + pushback(p, c); + break; + } + + tokfix(p); + dispatch_scan_event(p, tHEREDOC_BEG); + len = p->lex.pcur - p->lex.pbeg; + lex_goto_eol(p); + + p->lex.strterm = new_strterm(STR_NEW(tok(p), toklen(p)), /* term */ + p->lex.lastline, /* lastline */ + len, /* lastidx */ + p->ruby_sourceline); + p->lex.strterm->flags |= STRTERM_HEREDOC; + + token_flush(p); + p->heredoc_indent = indent; + p->heredoc_line_indent = 0; + return token; +} + +static void +heredoc_restore(struct parser_params *p, rb_strterm_heredoc_t *here) +{ + VALUE line; + + p->lex.strterm = 0; + line = here->lastline; + p->lex.lastline = line; + p->lex.pbeg = RSTRING_PTR(line); + p->lex.pend = p->lex.pbeg + RSTRING_LEN(line); + p->lex.pcur = p->lex.pbeg + here->u3.lastidx; + p->heredoc_end = p->ruby_sourceline; + p->ruby_sourceline = (int)here->sourceline; + token_flush(p); +} + +static int +dedent_string(VALUE string, int width) +{ + char *str; + long len; + int i, col = 0; + + RSTRING_GETMEM(string, str, len); + for (i = 0; i < len && col < width; i++) { + if (str[i] == ' ') { + col++; + } + else if (str[i] == '\t') { + int n = TAB_WIDTH * (col / TAB_WIDTH + 1); + if (n > width) break; + col = n; + } + else { + break; + } + } + if (!i) return 0; + rb_str_modify(string); + str = RSTRING_PTR(string); + if (RSTRING_LEN(string) != len) + rb_fatal("literal string changed: %+"PRIsVALUE, string); + MEMMOVE(str, str + i, char, len - i); + rb_str_set_len(string, len - i); + return i; +} + +#ifndef RIPPER +static NODE * +heredoc_dedent(struct parser_params *p, NODE *root) +{ + NODE *node, *str_node, *prev_node; + int indent = p->heredoc_indent; + VALUE prev_lit = 0; + + if (indent <= 0) return root; + p->heredoc_indent = 0; + if (!root) return root; + + prev_node = node = str_node = root; + if (nd_type(root) == NODE_ARRAY) str_node = root->nd_head; + + while (str_node) { + VALUE lit = str_node->nd_lit; + if (str_node->flags & NODE_FL_NEWLINE) { + dedent_string(lit, indent); + } + if (!prev_lit) { + prev_lit = lit; + } + else if (!literal_concat0(p, prev_lit, lit)) { + return 0; + } + else { + NODE *end = node->nd_end; + node = prev_node->nd_next = node->nd_next; + if (!node) { + if (nd_type(prev_node) == NODE_DSTR) + nd_set_type(prev_node, NODE_STR); + break; + } + node->nd_end = end; + goto next_str; + } + + str_node = 0; + while ((node = (prev_node = node)->nd_next) != 0) { + next_str: + if (nd_type(node) != NODE_ARRAY) break; + if ((str_node = node->nd_head) != 0) { + enum node_type type = nd_type(str_node); + if (type == NODE_STR || type == NODE_DSTR) break; + prev_lit = 0; + str_node = 0; + } + } + } + return root; +} +#else /* RIPPER */ +static VALUE +heredoc_dedent(struct parser_params *p, VALUE array) +{ + int indent = p->heredoc_indent; + + if (indent <= 0) return array; + p->heredoc_indent = 0; + dispatch2(heredoc_dedent, array, INT2NUM(indent)); + return array; +} + +/* + * call-seq: + * Ripper.dedent_string(input, width) -> Integer + * + * USE OF RIPPER LIBRARY ONLY. + * + * Strips up to +width+ leading whitespaces from +input+, + * and returns the stripped column width. + */ +static VALUE +parser_dedent_string(VALUE self, VALUE input, VALUE width) +{ + int wid, col; + + StringValue(input); + wid = NUM2UINT(width); + col = dedent_string(input, wid); + return INT2NUM(col); +} +#endif + +static int +whole_match_p(struct parser_params *p, const char *eos, long len, int indent) +{ + const char *ptr = p->lex.pbeg; + long n; + + if (indent) { + while (*ptr && ISSPACE(*ptr)) ptr++; + } + n = p->lex.pend - (ptr + len); + if (n < 0) return FALSE; + if (n > 0 && ptr[len] != '\n') { + if (ptr[len] != '\r') return FALSE; + if (n <= 1 || ptr[len+1] != '\n') return FALSE; + } + return strncmp(eos, ptr, len) == 0; +} + +#define NUM_SUFFIX_R (1<<0) +#define NUM_SUFFIX_I (1<<1) +#define NUM_SUFFIX_ALL 3 + +static int +number_literal_suffix(struct parser_params *p, int mask) +{ + int c, result = 0; + const char *lastp = p->lex.pcur; + + while ((c = nextc(p)) != -1) { + if ((mask & NUM_SUFFIX_I) && c == 'i') { + result |= (mask & NUM_SUFFIX_I); + mask &= ~NUM_SUFFIX_I; + /* r after i, rational of complex is disallowed */ + mask &= ~NUM_SUFFIX_R; + continue; + } + if ((mask & NUM_SUFFIX_R) && c == 'r') { + result |= (mask & NUM_SUFFIX_R); + mask &= ~NUM_SUFFIX_R; + continue; + } + if (!ISASCII(c) || ISALPHA(c) || c == '_') { + p->lex.pcur = lastp; + literal_flush(p, p->lex.pcur); + return 0; + } + pushback(p, c); + if (c == '.') { + c = peekc_n(p, 1); + if (ISDIGIT(c)) { + yyerror0("unexpected fraction part after numeric literal"); + p->lex.pcur += 2; + while (parser_is_identchar(p)) nextc(p); + } + } + break; + } + return result; +} + +static enum yytokentype +set_number_literal(struct parser_params *p, VALUE v, + enum yytokentype type, int suffix) +{ + if (suffix & NUM_SUFFIX_I) { + v = rb_complex_raw(INT2FIX(0), v); + type = tIMAGINARY; + } + set_yylval_literal(v); + add_mark_object(p, v); + SET_LEX_STATE(EXPR_END); + return type; +} + +static enum yytokentype +set_integer_literal(struct parser_params *p, VALUE v, int suffix) +{ + enum yytokentype type = tINTEGER; + if (suffix & NUM_SUFFIX_R) { + v = rb_rational_raw1(v); + type = tRATIONAL; + } + return set_number_literal(p, v, type, suffix); +} + +#ifdef RIPPER +static void +dispatch_heredoc_end(struct parser_params *p) +{ + VALUE str; + if (has_delayed_token(p)) + dispatch_delayed_token(p, tSTRING_CONTENT); + str = STR_NEW(p->lex.ptok, p->lex.pend - p->lex.ptok); + ripper_dispatch1(p, ripper_token2eventid(tHEREDOC_END), str); + lex_goto_eol(p); + token_flush(p); +} + +#else +#define dispatch_heredoc_end(p) ((void)0) +#endif + +static enum yytokentype +here_document(struct parser_params *p, rb_strterm_heredoc_t *here) +{ + int c, func, indent = 0; + const char *eos, *ptr, *ptr_end; + long len; + VALUE str = 0; + rb_encoding *enc = p->enc; + rb_encoding *base_enc = 0; + int bol; + + eos = RSTRING_PTR(here->term); + len = RSTRING_LEN(here->term) - 2; /* here->term includes term_len and func */ + eos++; /* skip term_len */ + indent = (func = *eos++) & STR_FUNC_INDENT; + + if ((c = nextc(p)) == -1) { + error: + compile_error(p, "can't find string \"%s\" anywhere before EOF", eos); +#ifdef RIPPER + if (!has_delayed_token(p)) { + dispatch_scan_event(p, tSTRING_CONTENT); + } + else { + if (str) { + rb_str_append(p->delayed, str); + } + else if ((len = p->lex.pcur - p->lex.ptok) > 0) { + if (!(func & STR_FUNC_REGEXP) && rb_enc_asciicompat(enc)) { + int cr = ENC_CODERANGE_UNKNOWN; + rb_str_coderange_scan_restartable(p->lex.ptok, p->lex.pcur, enc, &cr); + if (cr != ENC_CODERANGE_7BIT && + p->enc == rb_usascii_encoding() && + enc != rb_utf8_encoding()) { + enc = rb_ascii8bit_encoding(); + } + } + rb_enc_str_buf_cat(p->delayed, p->lex.ptok, len, enc); + } + dispatch_delayed_token(p, tSTRING_CONTENT); + } + lex_goto_eol(p); +#endif + restore: + heredoc_restore(p, &p->lex.strterm->u.heredoc); + p->lex.strterm = 0; + return 0; + } + bol = was_bol(p); + /* `heredoc_line_indent == -1` means + * - "after an interpolation in the same line", or + * - "in a continuing line" + */ + if (bol && + (p->heredoc_line_indent != -1 || (p->heredoc_line_indent = 0)) && + whole_match_p(p, eos, len, indent)) { + dispatch_heredoc_end(p); + heredoc_restore(p, &p->lex.strterm->u.heredoc); + p->lex.strterm = 0; + SET_LEX_STATE(EXPR_END); + return tSTRING_END; + } + + if (!(func & STR_FUNC_EXPAND)) { + do { + ptr = RSTRING_PTR(p->lex.lastline); + ptr_end = p->lex.pend; + if (ptr_end > ptr) { + switch (ptr_end[-1]) { + case '\n': + if (--ptr_end == ptr || ptr_end[-1] != '\r') { + ptr_end++; + break; + } + case '\r': + --ptr_end; + } + } + + if (p->heredoc_indent > 0) { + long i = 0; + while (ptr + i < ptr_end && parser_update_heredoc_indent(p, ptr[i])) + i++; + p->heredoc_line_indent = 0; + } + + if (str) + rb_str_cat(str, ptr, ptr_end - ptr); + else + str = STR_NEW(ptr, ptr_end - ptr); + if (ptr_end < p->lex.pend) rb_str_cat(str, "\n", 1); + lex_goto_eol(p); + if (p->heredoc_indent > 0) { + goto flush_str; + } + if (nextc(p) == -1) { + if (str) { + str = 0; + } + goto error; + } + } while (!whole_match_p(p, eos, len, indent)); + } + else { + /* int mb = ENC_CODERANGE_7BIT, *mbp = &mb;*/ + newtok(p); + if (c == '#') { + int t = parser_peek_variable_name(p); + if (p->heredoc_line_indent != -1) { + if (p->heredoc_indent > p->heredoc_line_indent) { + p->heredoc_indent = p->heredoc_line_indent; + } + p->heredoc_line_indent = -1; + } + if (t) return t; + tokadd(p, '#'); + c = nextc(p); + } + do { + pushback(p, c); + enc = p->enc; + if ((c = tokadd_string(p, func, '\n', 0, NULL, &enc, &base_enc)) == -1) { + if (p->eofp) goto error; + goto restore; + } + if (c != '\n') { + if (c == '\\') p->heredoc_line_indent = -1; + flush: + str = STR_NEW3(tok(p), toklen(p), enc, func); + flush_str: + set_yylval_str(str); + add_mark_object(p, str); +#ifndef RIPPER + if (bol) yylval.node->flags |= NODE_FL_NEWLINE; +#endif + flush_string_content(p, enc); + return tSTRING_CONTENT; + } + tokadd(p, nextc(p)); + if (p->heredoc_indent > 0) { + lex_goto_eol(p); + goto flush; + } + /* if (mbp && mb == ENC_CODERANGE_UNKNOWN) mbp = 0;*/ + if ((c = nextc(p)) == -1) goto error; + } while (!whole_match_p(p, eos, len, indent)); + str = STR_NEW3(tok(p), toklen(p), enc, func); + } + dispatch_heredoc_end(p); +#ifdef RIPPER + str = ripper_new_yylval(p, ripper_token2eventid(tSTRING_CONTENT), + yylval.val, str); +#endif + heredoc_restore(p, &p->lex.strterm->u.heredoc); + p->lex.strterm = NEW_STRTERM(func | STR_FUNC_TERM, 0, 0); + set_yylval_str(str); + add_mark_object(p, str); +#ifndef RIPPER + if (bol) yylval.node->flags |= NODE_FL_NEWLINE; +#endif + return tSTRING_CONTENT; +} + +#include "lex.c" + +static int +arg_ambiguous(struct parser_params *p, char c) +{ +#ifndef RIPPER + rb_warning1("ambiguous first argument; put parentheses or a space even after `%c' operator", WARN_I(c)); +#else + dispatch1(arg_ambiguous, rb_usascii_str_new(&c, 1)); +#endif + return TRUE; +} + +static ID +formal_argument(struct parser_params *p, ID lhs) +{ + switch (id_type(lhs)) { + case ID_LOCAL: + break; +#ifndef RIPPER + case ID_CONST: + yyerror0("formal argument cannot be a constant"); + return 0; + case ID_INSTANCE: + yyerror0("formal argument cannot be an instance variable"); + return 0; + case ID_GLOBAL: + yyerror0("formal argument cannot be a global variable"); + return 0; + case ID_CLASS: + yyerror0("formal argument cannot be a class variable"); + return 0; + default: + yyerror0("formal argument must be local variable"); + return 0; +#else + default: + lhs = dispatch1(param_error, lhs); + ripper_error(p); + return 0; +#endif + } + shadowing_lvar(p, lhs); + return lhs; +} + +static int +lvar_defined(struct parser_params *p, ID id) +{ + return (dyna_in_block(p) && dvar_defined(p, id)) || local_id(p, id); +} + +/* emacsen -*- hack */ +static long +parser_encode_length(struct parser_params *p, const char *name, long len) +{ + long nlen; + + if (len > 5 && name[nlen = len - 5] == '-') { + if (rb_memcicmp(name + nlen + 1, "unix", 4) == 0) + return nlen; + } + if (len > 4 && name[nlen = len - 4] == '-') { + if (rb_memcicmp(name + nlen + 1, "dos", 3) == 0) + return nlen; + if (rb_memcicmp(name + nlen + 1, "mac", 3) == 0 && + !(len == 8 && rb_memcicmp(name, "utf8-mac", len) == 0)) + /* exclude UTF8-MAC because the encoding named "UTF8" doesn't exist in Ruby */ + return nlen; + } + return len; +} + +static void +parser_set_encode(struct parser_params *p, const char *name) +{ + int idx = rb_enc_find_index(name); + rb_encoding *enc; + VALUE excargs[3]; + + if (idx < 0) { + excargs[1] = rb_sprintf("unknown encoding name: %s", name); + error: + excargs[0] = rb_eArgError; + excargs[2] = rb_make_backtrace(); + rb_ary_unshift(excargs[2], rb_sprintf("%"PRIsVALUE":%d", p->ruby_sourcefile_string, p->ruby_sourceline)); + rb_exc_raise(rb_make_exception(3, excargs)); + } + enc = rb_enc_from_index(idx); + if (!rb_enc_asciicompat(enc)) { + excargs[1] = rb_sprintf("%s is not ASCII compatible", rb_enc_name(enc)); + goto error; + } + p->enc = enc; +#ifndef RIPPER + if (p->debug_lines) { + VALUE lines = p->debug_lines; + long i, n = RARRAY_LEN(lines); + for (i = 0; i < n; ++i) { + rb_enc_associate_index(RARRAY_AREF(lines, i), idx); + } + } +#endif +} + +static int +comment_at_top(struct parser_params *p) +{ + const char *ptr = p->lex.pbeg, *ptr_end = p->lex.pcur - 1; + if (p->line_count != (p->has_shebang ? 2 : 1)) return 0; + while (ptr < ptr_end) { + if (!ISSPACE(*ptr)) return 0; + ptr++; + } + return 1; +} + +typedef long (*rb_magic_comment_length_t)(struct parser_params *p, const char *name, long len); +typedef void (*rb_magic_comment_setter_t)(struct parser_params *p, const char *name, const char *val); + +static void +magic_comment_encoding(struct parser_params *p, const char *name, const char *val) +{ + if (!comment_at_top(p)) { + return; + } + parser_set_encode(p, val); +} + +static int +parser_get_bool(struct parser_params *p, const char *name, const char *val) +{ + switch (*val) { + case 't': case 'T': + if (strcasecmp(val, "true") == 0) { + return TRUE; + } + break; + case 'f': case 'F': + if (strcasecmp(val, "false") == 0) { + return FALSE; + } + break; + } + rb_compile_warning(p->ruby_sourcefile, p->ruby_sourceline, "invalid value for %s: %s", name, val); + return -1; +} + +static void +parser_set_token_info(struct parser_params *p, const char *name, const char *val) +{ + int b = parser_get_bool(p, name, val); + if (b >= 0) p->token_info_enabled = b; +} + +static void +parser_set_compile_option_flag(struct parser_params *p, const char *name, const char *val) +{ + int b; + + if (p->token_seen) { + rb_warning1("`%s' is ignored after any tokens", WARN_S(name)); + return; + } + + b = parser_get_bool(p, name, val); + if (b < 0) return; + + if (!p->compile_option) + p->compile_option = rb_obj_hide(rb_ident_hash_new()); + rb_hash_aset(p->compile_option, ID2SYM(rb_intern(name)), + (b ? Qtrue : Qfalse)); +} + +# if WARN_PAST_SCOPE +static void +parser_set_past_scope(struct parser_params *p, const char *name, const char *val) +{ + int b = parser_get_bool(p, name, val); + if (b >= 0) p->past_scope_enabled = b; +} +# endif + +struct magic_comment { + const char *name; + rb_magic_comment_setter_t func; + rb_magic_comment_length_t length; +}; + +static const struct magic_comment magic_comments[] = { + {"coding", magic_comment_encoding, parser_encode_length}, + {"encoding", magic_comment_encoding, parser_encode_length}, + {"frozen_string_literal", parser_set_compile_option_flag}, + {"warn_indent", parser_set_token_info}, +# if WARN_PAST_SCOPE + {"warn_past_scope", parser_set_past_scope}, +# endif +}; + +static const char * +magic_comment_marker(const char *str, long len) +{ + long i = 2; + + while (i < len) { + switch (str[i]) { + case '-': + if (str[i-1] == '*' && str[i-2] == '-') { + return str + i + 1; + } + i += 2; + break; + case '*': + if (i + 1 >= len) return 0; + if (str[i+1] != '-') { + i += 4; + } + else if (str[i-1] != '-') { + i += 2; + } + else { + return str + i + 2; + } + break; + default: + i += 3; + break; + } + } + return 0; +} + +static int +parser_magic_comment(struct parser_params *p, const char *str, long len) +{ + int indicator = 0; + VALUE name = 0, val = 0; + const char *beg, *end, *vbeg, *vend; +#define str_copy(_s, _p, _n) ((_s) \ + ? (void)(rb_str_resize((_s), (_n)), \ + MEMCPY(RSTRING_PTR(_s), (_p), char, (_n)), (_s)) \ + : (void)((_s) = STR_NEW((_p), (_n)))) + + if (len <= 7) return FALSE; + if (!!(beg = magic_comment_marker(str, len))) { + if (!(end = magic_comment_marker(beg, str + len - beg))) + return FALSE; + indicator = TRUE; + str = beg; + len = end - beg - 3; + } + + /* %r"([^\\s\'\":;]+)\\s*:\\s*(\"(?:\\\\.|[^\"])*\"|[^\"\\s;]+)[\\s;]*" */ + while (len > 0) { + const struct magic_comment *mc = magic_comments; + char *s; + int i; + long n = 0; + + for (; len > 0 && *str; str++, --len) { + switch (*str) { + case '\'': case '"': case ':': case ';': + continue; + } + if (!ISSPACE(*str)) break; + } + for (beg = str; len > 0; str++, --len) { + switch (*str) { + case '\'': case '"': case ':': case ';': + break; + default: + if (ISSPACE(*str)) break; + continue; + } + break; + } + for (end = str; len > 0 && ISSPACE(*str); str++, --len); + if (!len) break; + if (*str != ':') { + if (!indicator) return FALSE; + continue; + } + + do str++; while (--len > 0 && ISSPACE(*str)); + if (!len) break; + if (*str == '"') { + for (vbeg = ++str; --len > 0 && *str != '"'; str++) { + if (*str == '\\') { + --len; + ++str; + } + } + vend = str; + if (len) { + --len; + ++str; + } + } + else { + for (vbeg = str; len > 0 && *str != '"' && *str != ';' && !ISSPACE(*str); --len, str++); + vend = str; + } + if (indicator) { + while (len > 0 && (*str == ';' || ISSPACE(*str))) --len, str++; + } + else { + while (len > 0 && (ISSPACE(*str))) --len, str++; + if (len) return FALSE; + } + + n = end - beg; + str_copy(name, beg, n); + s = RSTRING_PTR(name); + for (i = 0; i < n; ++i) { + if (s[i] == '-') s[i] = '_'; + } + do { + if (STRNCASECMP(mc->name, s, n) == 0 && !mc->name[n]) { + n = vend - vbeg; + if (mc->length) { + n = (*mc->length)(p, vbeg, n); + } + str_copy(val, vbeg, n); + (*mc->func)(p, mc->name, RSTRING_PTR(val)); + break; + } + } while (++mc < magic_comments + numberof(magic_comments)); +#ifdef RIPPER + str_copy(val, vbeg, vend - vbeg); + dispatch2(magic_comment, name, val); +#endif + } + + return TRUE; +} + +static void +set_file_encoding(struct parser_params *p, const char *str, const char *send) +{ + int sep = 0; + const char *beg = str; + VALUE s; + + for (;;) { + if (send - str <= 6) return; + switch (str[6]) { + case 'C': case 'c': str += 6; continue; + case 'O': case 'o': str += 5; continue; + case 'D': case 'd': str += 4; continue; + case 'I': case 'i': str += 3; continue; + case 'N': case 'n': str += 2; continue; + case 'G': case 'g': str += 1; continue; + case '=': case ':': + sep = 1; + str += 6; + break; + default: + str += 6; + if (ISSPACE(*str)) break; + continue; + } + if (STRNCASECMP(str-6, "coding", 6) == 0) break; + } + for (;;) { + do { + if (++str >= send) return; + } while (ISSPACE(*str)); + if (sep) break; + if (*str != '=' && *str != ':') return; + sep = 1; + str++; + } + beg = str; + while ((*str == '-' || *str == '_' || ISALNUM(*str)) && ++str < send); + s = rb_str_new(beg, parser_encode_length(p, beg, str - beg)); + parser_set_encode(p, RSTRING_PTR(s)); + rb_str_resize(s, 0); +} + +static void +parser_prepare(struct parser_params *p) +{ + int c = nextc(p); + p->token_info_enabled = !compile_for_eval && RTEST(ruby_verbose); + switch (c) { + case '#': + if (peek(p, '!')) p->has_shebang = 1; + break; + case 0xef: /* UTF-8 BOM marker */ + if (p->lex.pend - p->lex.pcur >= 2 && + (unsigned char)p->lex.pcur[0] == 0xbb && + (unsigned char)p->lex.pcur[1] == 0xbf) { + p->enc = rb_utf8_encoding(); + p->lex.pcur += 2; + p->lex.pbeg = p->lex.pcur; + return; + } + break; + case EOF: + return; + } + pushback(p, c); + p->enc = rb_enc_get(p->lex.lastline); +} + +#ifndef RIPPER +#define ambiguous_operator(tok, op, syn) ( \ + rb_warning0("`"op"' after local variable or literal is interpreted as binary operator"), \ + rb_warning0("even though it seems like "syn"")) +#else +#define ambiguous_operator(tok, op, syn) \ + dispatch2(operator_ambiguous, TOKEN2VAL(tok), rb_str_new_cstr(syn)) +#endif +#define warn_balanced(tok, op, syn) ((void) \ + (!IS_lex_state_for(last_state, EXPR_CLASS|EXPR_DOT|EXPR_FNAME|EXPR_ENDFN) && \ + space_seen && !ISSPACE(c) && \ + (ambiguous_operator(tok, op, syn), 0)), \ + (enum yytokentype)(tok)) + +static VALUE +parse_rational(struct parser_params *p, char *str, int len, int seen_point) +{ + VALUE v; + char *point = &str[seen_point]; + size_t fraclen = len-seen_point-1; + memmove(point, point+1, fraclen+1); + v = rb_cstr_to_inum(str, 10, FALSE); + return rb_rational_new(v, rb_int_positive_pow(10, fraclen)); +} + +static enum yytokentype +no_digits(struct parser_params *p) +{ + yyerror0("numeric literal without digits"); + if (peek(p, '_')) nextc(p); + /* dummy 0, for tUMINUS_NUM at numeric */ + return set_integer_literal(p, INT2FIX(0), 0); +} + +static enum yytokentype +parse_numeric(struct parser_params *p, int c) +{ + int is_float, seen_point, seen_e, nondigit; + int suffix; + + is_float = seen_point = seen_e = nondigit = 0; + SET_LEX_STATE(EXPR_END); + newtok(p); + if (c == '-' || c == '+') { + tokadd(p, c); + c = nextc(p); + } + if (c == '0') { + int start = toklen(p); + c = nextc(p); + if (c == 'x' || c == 'X') { + /* hexadecimal */ + c = nextc(p); + if (c != -1 && ISXDIGIT(c)) { + do { + if (c == '_') { + if (nondigit) break; + nondigit = c; + continue; + } + if (!ISXDIGIT(c)) break; + nondigit = 0; + tokadd(p, c); + } while ((c = nextc(p)) != -1); + } + pushback(p, c); + tokfix(p); + if (toklen(p) == start) { + return no_digits(p); + } + else if (nondigit) goto trailing_uc; + suffix = number_literal_suffix(p, NUM_SUFFIX_ALL); + return set_integer_literal(p, rb_cstr_to_inum(tok(p), 16, FALSE), suffix); + } + if (c == 'b' || c == 'B') { + /* binary */ + c = nextc(p); + if (c == '0' || c == '1') { + do { + if (c == '_') { + if (nondigit) break; + nondigit = c; + continue; + } + if (c != '0' && c != '1') break; + nondigit = 0; + tokadd(p, c); + } while ((c = nextc(p)) != -1); + } + pushback(p, c); + tokfix(p); + if (toklen(p) == start) { + return no_digits(p); + } + else if (nondigit) goto trailing_uc; + suffix = number_literal_suffix(p, NUM_SUFFIX_ALL); + return set_integer_literal(p, rb_cstr_to_inum(tok(p), 2, FALSE), suffix); + } + if (c == 'd' || c == 'D') { + /* decimal */ + c = nextc(p); + if (c != -1 && ISDIGIT(c)) { + do { + if (c == '_') { + if (nondigit) break; + nondigit = c; + continue; + } + if (!ISDIGIT(c)) break; + nondigit = 0; + tokadd(p, c); + } while ((c = nextc(p)) != -1); + } + pushback(p, c); + tokfix(p); + if (toklen(p) == start) { + return no_digits(p); + } + else if (nondigit) goto trailing_uc; + suffix = number_literal_suffix(p, NUM_SUFFIX_ALL); + return set_integer_literal(p, rb_cstr_to_inum(tok(p), 10, FALSE), suffix); + } + if (c == '_') { + /* 0_0 */ + goto octal_number; + } + if (c == 'o' || c == 'O') { + /* prefixed octal */ + c = nextc(p); + if (c == -1 || c == '_' || !ISDIGIT(c)) { + return no_digits(p); + } + } + if (c >= '0' && c <= '7') { + /* octal */ + octal_number: + do { + if (c == '_') { + if (nondigit) break; + nondigit = c; + continue; + } + if (c < '0' || c > '9') break; + if (c > '7') goto invalid_octal; + nondigit = 0; + tokadd(p, c); + } while ((c = nextc(p)) != -1); + if (toklen(p) > start) { + pushback(p, c); + tokfix(p); + if (nondigit) goto trailing_uc; + suffix = number_literal_suffix(p, NUM_SUFFIX_ALL); + return set_integer_literal(p, rb_cstr_to_inum(tok(p), 8, FALSE), suffix); + } + if (nondigit) { + pushback(p, c); + goto trailing_uc; + } + } + if (c > '7' && c <= '9') { + invalid_octal: + yyerror0("Invalid octal digit"); + } + else if (c == '.' || c == 'e' || c == 'E') { + tokadd(p, '0'); + } + else { + pushback(p, c); + suffix = number_literal_suffix(p, NUM_SUFFIX_ALL); + return set_integer_literal(p, INT2FIX(0), suffix); + } + } + + for (;;) { + switch (c) { + case '0': case '1': case '2': case '3': case '4': + case '5': case '6': case '7': case '8': case '9': + nondigit = 0; + tokadd(p, c); + break; + + case '.': + if (nondigit) goto trailing_uc; + if (seen_point || seen_e) { + goto decode_num; + } + else { + int c0 = nextc(p); + if (c0 == -1 || !ISDIGIT(c0)) { + pushback(p, c0); + goto decode_num; + } + c = c0; + } + seen_point = toklen(p); + tokadd(p, '.'); + tokadd(p, c); + is_float++; + nondigit = 0; + break; + + case 'e': + case 'E': + if (nondigit) { + pushback(p, c); + c = nondigit; + goto decode_num; + } + if (seen_e) { + goto decode_num; + } + nondigit = c; + c = nextc(p); + if (c != '-' && c != '+' && !ISDIGIT(c)) { + pushback(p, c); + nondigit = 0; + goto decode_num; + } + tokadd(p, nondigit); + seen_e++; + is_float++; + tokadd(p, c); + nondigit = (c == '-' || c == '+') ? c : 0; + break; + + case '_': /* `_' in number just ignored */ + if (nondigit) goto decode_num; + nondigit = c; + break; + + default: + goto decode_num; + } + c = nextc(p); + } + + decode_num: + pushback(p, c); + if (nondigit) { + char tmp[30]; + trailing_uc: + literal_flush(p, p->lex.pcur - 1); + snprintf(tmp, sizeof(tmp), "trailing `%c' in number", nondigit); + yyerror0(tmp); + } + tokfix(p); + if (is_float) { + enum yytokentype type = tFLOAT; + VALUE v; + + suffix = number_literal_suffix(p, seen_e ? NUM_SUFFIX_I : NUM_SUFFIX_ALL); + if (suffix & NUM_SUFFIX_R) { + type = tRATIONAL; + v = parse_rational(p, tok(p), toklen(p), seen_point); + } + else { + double d = strtod(tok(p), 0); + if (errno == ERANGE) { + rb_warning1("Float %s out of range", WARN_S(tok(p))); + errno = 0; + } + v = DBL2NUM(d); + } + return set_number_literal(p, v, type, suffix); + } + suffix = number_literal_suffix(p, NUM_SUFFIX_ALL); + return set_integer_literal(p, rb_cstr_to_inum(tok(p), 10, FALSE), suffix); +} + +static enum yytokentype +parse_qmark(struct parser_params *p, int space_seen) +{ + rb_encoding *enc; + register int c; + VALUE lit; + + if (IS_END()) { + SET_LEX_STATE(EXPR_VALUE); + return '?'; + } + c = nextc(p); + if (c == -1) { + compile_error(p, "incomplete character syntax"); + return 0; + } + if (rb_enc_isspace(c, p->enc)) { + if (!IS_ARG()) { + int c2 = 0; + switch (c) { + case ' ': + c2 = 's'; + break; + case '\n': + c2 = 'n'; + break; + case '\t': + c2 = 't'; + break; + case '\v': + c2 = 'v'; + break; + case '\r': + c2 = 'r'; + break; + case '\f': + c2 = 'f'; + break; + } + if (c2) { + rb_warn1("invalid character syntax; use ?\\%c", WARN_I(c2)); + } + } + ternary: + pushback(p, c); + SET_LEX_STATE(EXPR_VALUE); + return '?'; + } + newtok(p); + enc = p->enc; + if (!parser_isascii(p)) { + if (tokadd_mbchar(p, c) == -1) return 0; + } + else if ((rb_enc_isalnum(c, p->enc) || c == '_') && + p->lex.pcur < p->lex.pend && is_identchar(p->lex.pcur, p->lex.pend, p->enc)) { + if (space_seen) { + const char *start = p->lex.pcur - 1, *ptr = start; + do { + int n = parser_precise_mbclen(p, ptr); + if (n < 0) return -1; + ptr += n; + } while (ptr < p->lex.pend && is_identchar(ptr, p->lex.pend, p->enc)); + rb_warn2("`?' just followed by `%.*s' is interpreted as" \ + " a conditional operator, put a space after `?'", + WARN_I((int)(ptr - start)), WARN_S_L(start, (ptr - start))); + } + goto ternary; + } + else if (c == '\\') { + if (peek(p, 'u')) { + nextc(p); + enc = rb_utf8_encoding(); + if (!parser_tokadd_utf8(p, &enc, -1, 0, 0)) + return 0; + } + else if (!lex_eol_p(p) && !(c = *p->lex.pcur, ISASCII(c))) { + nextc(p); + if (tokadd_mbchar(p, c) == -1) return 0; + } + else { + c = read_escape(p, 0, &enc); + tokadd(p, c); + } + } + else { + tokadd(p, c); + } + tokfix(p); + add_mark_object(p, lit = STR_NEW3(tok(p), toklen(p), enc, 0)); + set_yylval_str(lit); + SET_LEX_STATE(EXPR_END); + return tCHAR; +} + +static enum yytokentype +parse_percent(struct parser_params *p, const int space_seen, const enum lex_state_e last_state) +{ + register int c; + + if (IS_BEG()) { + int term; + int paren; + + c = nextc(p); + quotation: + if (c == -1 || !ISALNUM(c)) { + term = c; + c = 'Q'; + } + else { + term = nextc(p); + if (rb_enc_isalnum(term, p->enc) || !parser_isascii(p)) { + yyerror0("unknown type of %string"); + return 0; + } + } + if (c == -1 || term == -1) { + compile_error(p, "unterminated quoted string meets end of file"); + return 0; + } + paren = term; + if (term == '(') term = ')'; + else if (term == '[') term = ']'; + else if (term == '{') term = '}'; + else if (term == '<') term = '>'; + else paren = 0; + + switch (c) { + case 'Q': + p->lex.strterm = NEW_STRTERM(str_dquote, term, paren); + return tSTRING_BEG; + + case 'q': + p->lex.strterm = NEW_STRTERM(str_squote, term, paren); + return tSTRING_BEG; + + case 'W': + p->lex.strterm = NEW_STRTERM(str_dword, term, paren); + return tWORDS_BEG; + + case 'w': + p->lex.strterm = NEW_STRTERM(str_sword, term, paren); + return tQWORDS_BEG; + + case 'I': + p->lex.strterm = NEW_STRTERM(str_dword, term, paren); + return tSYMBOLS_BEG; + + case 'i': + p->lex.strterm = NEW_STRTERM(str_sword, term, paren); + return tQSYMBOLS_BEG; + + case 'x': + p->lex.strterm = NEW_STRTERM(str_xquote, term, paren); + return tXSTRING_BEG; + + case 'r': + p->lex.strterm = NEW_STRTERM(str_regexp, term, paren); + return tREGEXP_BEG; + + case 's': + p->lex.strterm = NEW_STRTERM(str_ssym, term, paren); + SET_LEX_STATE(EXPR_FNAME|EXPR_FITEM); + return tSYMBEG; + + default: + yyerror0("unknown type of %string"); + return 0; + } + } + if ((c = nextc(p)) == '=') { + set_yylval_id('%'); + SET_LEX_STATE(EXPR_BEG); + return tOP_ASGN; + } + if (IS_SPCARG(c) || (IS_lex_state(EXPR_FITEM) && c == 's')) { + goto quotation; + } + SET_LEX_STATE(IS_AFTER_OPERATOR() ? EXPR_ARG : EXPR_BEG); + pushback(p, c); + return warn_balanced('%', "%%", "string literal"); +} + +static int +tokadd_ident(struct parser_params *p, int c) +{ + do { + if (tokadd_mbchar(p, c) == -1) return -1; + c = nextc(p); + } while (parser_is_identchar(p)); + pushback(p, c); + return 0; +} + +static ID +tokenize_ident(struct parser_params *p, const enum lex_state_e last_state) +{ + ID ident = TOK_INTERN(); + + set_yylval_name(ident); + + return ident; +} + +static int +parse_numvar(struct parser_params *p) +{ + size_t len; + int overflow; + unsigned long n = ruby_scan_digits(tok(p)+1, toklen(p)-1, 10, &len, &overflow); + const unsigned long nth_ref_max = + ((FIXNUM_MAX < INT_MAX) ? FIXNUM_MAX : INT_MAX) >> 1; + /* NTH_REF is left-shifted to be ORed with back-ref flag and + * turned into a Fixnum, in compile.c */ + + if (overflow || n > nth_ref_max) { + /* compile_error()? */ + rb_warn1("`%s' is too big for a number variable, always nil", WARN_S(tok(p))); + return 0; /* $0 is $PROGRAM_NAME, not NTH_REF */ + } + else { + return (int)n; + } +} + +static enum yytokentype +parse_gvar(struct parser_params *p, const enum lex_state_e last_state) +{ + register int c; + + SET_LEX_STATE(EXPR_END); + newtok(p); + c = nextc(p); + switch (c) { + case '_': /* $_: last read line string */ + c = nextc(p); + if (parser_is_identchar(p)) { + tokadd(p, '$'); + tokadd(p, '_'); + break; + } + pushback(p, c); + c = '_'; + /* fall through */ + case '~': /* $~: match-data */ + case '*': /* $*: argv */ + case '$': /* $$: pid */ + case '?': /* $?: last status */ + case '!': /* $!: error string */ + case '@': /* $@: error position */ + case '/': /* $/: input record separator */ + case '\\': /* $\: output record separator */ + case ';': /* $;: field separator */ + case ',': /* $,: output field separator */ + case '.': /* $.: last read line number */ + case '=': /* $=: ignorecase */ + case ':': /* $:: load path */ + case '<': /* $<: reading filename */ + case '>': /* $>: default output handle */ + case '\"': /* $": already loaded files */ + tokadd(p, '$'); + tokadd(p, c); + goto gvar; + + case '-': + tokadd(p, '$'); + tokadd(p, c); + c = nextc(p); + if (parser_is_identchar(p)) { + if (tokadd_mbchar(p, c) == -1) return 0; + } + else { + pushback(p, c); + pushback(p, '-'); + return '$'; + } + gvar: + set_yylval_name(TOK_INTERN()); + return tGVAR; + + case '&': /* $&: last match */ + case '`': /* $`: string before last match */ + case '\'': /* $': string after last match */ + case '+': /* $+: string matches last paren. */ + if (IS_lex_state_for(last_state, EXPR_FNAME)) { + tokadd(p, '$'); + tokadd(p, c); + goto gvar; + } + set_yylval_node(NEW_BACK_REF(c, &_cur_loc)); + return tBACK_REF; + + case '1': case '2': case '3': + case '4': case '5': case '6': + case '7': case '8': case '9': + tokadd(p, '$'); + do { + tokadd(p, c); + c = nextc(p); + } while (c != -1 && ISDIGIT(c)); + pushback(p, c); + if (IS_lex_state_for(last_state, EXPR_FNAME)) goto gvar; + tokfix(p); + set_yylval_node(NEW_NTH_REF(parse_numvar(p), &_cur_loc)); + return tNTH_REF; + + default: + if (!parser_is_identchar(p)) { + if (c == -1 || ISSPACE(c)) { + compile_error(p, "`$' without identifiers is not allowed as a global variable name"); + } + else { + pushback(p, c); + compile_error(p, "`$%c' is not allowed as a global variable name", c); + } + return 0; + } + case '0': + tokadd(p, '$'); + } + + if (tokadd_ident(p, c)) return 0; + SET_LEX_STATE(EXPR_END); + tokenize_ident(p, last_state); + return tGVAR; +} + +static enum yytokentype +parse_atmark(struct parser_params *p, const enum lex_state_e last_state) +{ + enum yytokentype result = tIVAR; + register int c = nextc(p); + + newtok(p); + tokadd(p, '@'); + if (c == '@') { + result = tCVAR; + tokadd(p, '@'); + c = nextc(p); + } + if (c == -1 || ISSPACE(c)) { + if (result == tIVAR) { + compile_error(p, "`@' without identifiers is not allowed as an instance variable name"); + } + else { + compile_error(p, "`@@' without identifiers is not allowed as a class variable name"); + } + return 0; + } + else if (ISDIGIT(c) || !parser_is_identchar(p)) { + pushback(p, c); + if (result == tIVAR) { + compile_error(p, "`@%c' is not allowed as an instance variable name", c); + } + else { + compile_error(p, "`@@%c' is not allowed as a class variable name", c); + } + return 0; + } + + if (tokadd_ident(p, c)) return 0; + SET_LEX_STATE(EXPR_END); + tokenize_ident(p, last_state); + return result; +} + +static enum yytokentype +parse_ident(struct parser_params *p, int c, int cmd_state) +{ + enum yytokentype result; + int mb = ENC_CODERANGE_7BIT; + const enum lex_state_e last_state = p->lex.state; + ID ident; + + do { + if (!ISASCII(c)) mb = ENC_CODERANGE_UNKNOWN; + if (tokadd_mbchar(p, c) == -1) return 0; + c = nextc(p); + } while (parser_is_identchar(p)); + if ((c == '!' || c == '?') && !peek(p, '=')) { + result = tFID; + tokadd(p, c); + } + else if (c == '=' && IS_lex_state(EXPR_FNAME) && + (!peek(p, '~') && !peek(p, '>') && (!peek(p, '=') || (peek_n(p, '>', 1))))) { + result = tIDENTIFIER; + tokadd(p, c); + } + else { + result = tCONSTANT; /* assume provisionally */ + pushback(p, c); + } + tokfix(p); + + if (IS_LABEL_POSSIBLE()) { + if (IS_LABEL_SUFFIX(0)) { + SET_LEX_STATE(EXPR_ARG|EXPR_LABELED); + nextc(p); + set_yylval_name(TOK_INTERN()); + return tLABEL; + } + } + if (mb == ENC_CODERANGE_7BIT && !IS_lex_state(EXPR_DOT)) { + const struct kwtable *kw; + + /* See if it is a reserved word. */ + kw = rb_reserved_word(tok(p), toklen(p)); + if (kw) { + enum lex_state_e state = p->lex.state; + SET_LEX_STATE(kw->state); + if (IS_lex_state_for(state, EXPR_FNAME)) { + set_yylval_name(rb_intern2(tok(p), toklen(p))); + return kw->id[0]; + } + if (IS_lex_state(EXPR_BEG)) { + p->command_start = TRUE; + } + if (kw->id[0] == keyword_do) { + if (lambda_beginning_p()) { + p->lex.lpar_beg = -1; /* make lambda_beginning_p() == FALSE in the body of "-> do ... end" */ + return keyword_do_LAMBDA; + } + if (COND_P()) return keyword_do_cond; + if (CMDARG_P() && !IS_lex_state_for(state, EXPR_CMDARG)) + return keyword_do_block; + return keyword_do; + } + if (IS_lex_state_for(state, (EXPR_BEG | EXPR_LABELED))) + return kw->id[0]; + else { + if (kw->id[0] != kw->id[1]) + SET_LEX_STATE(EXPR_BEG | EXPR_LABEL); + return kw->id[1]; + } + } + } + + if (IS_lex_state(EXPR_BEG_ANY | EXPR_ARG_ANY | EXPR_DOT)) { + if (cmd_state) { + SET_LEX_STATE(EXPR_CMDARG); + } + else { + SET_LEX_STATE(EXPR_ARG); + } + } + else if (p->lex.state == EXPR_FNAME) { + SET_LEX_STATE(EXPR_ENDFN); + } + else { + SET_LEX_STATE(EXPR_END); + } + + ident = tokenize_ident(p, last_state); + if (result == tCONSTANT && is_local_id(ident)) result = tIDENTIFIER; + if (!IS_lex_state_for(last_state, EXPR_DOT|EXPR_FNAME) && + (result == tIDENTIFIER) && /* not EXPR_FNAME, not attrasgn */ + lvar_defined(p, ident)) { + SET_LEX_STATE(EXPR_END|EXPR_LABEL); + } + return result; +} + +static enum yytokentype +parser_yylex(struct parser_params *p) +{ + register int c; + int space_seen = 0; + int cmd_state; + int label; + enum lex_state_e last_state; + int fallthru = FALSE; + int token_seen = p->token_seen; + + if (p->lex.strterm) { + if (p->lex.strterm->flags & STRTERM_HEREDOC) { + return here_document(p, &p->lex.strterm->u.heredoc); + } + else { + token_flush(p); + return parse_string(p, &p->lex.strterm->u.literal); + } + } + cmd_state = p->command_start; + p->command_start = FALSE; + p->token_seen = TRUE; + retry: + last_state = p->lex.state; +#ifndef RIPPER + token_flush(p); +#endif + switch (c = nextc(p)) { + case '\0': /* NUL */ + case '\004': /* ^D */ + case '\032': /* ^Z */ + case -1: /* end of script. */ + return 0; + + /* white spaces */ + case ' ': case '\t': case '\f': case '\r': + case '\13': /* '\v' */ + space_seen = 1; +#ifdef RIPPER + while ((c = nextc(p))) { + switch (c) { + case ' ': case '\t': case '\f': case '\r': + case '\13': /* '\v' */ + break; + default: + goto outofloop; + } + } + outofloop: + pushback(p, c); + dispatch_scan_event(p, tSP); +#endif + goto retry; + + case '#': /* it's a comment */ + p->token_seen = token_seen; + /* no magic_comment in shebang line */ + if (!parser_magic_comment(p, p->lex.pcur, p->lex.pend - p->lex.pcur)) { + if (comment_at_top(p)) { + set_file_encoding(p, p->lex.pcur, p->lex.pend); + } + } + lex_goto_eol(p); + dispatch_scan_event(p, tCOMMENT); + fallthru = TRUE; + /* fall through */ + case '\n': + p->token_seen = token_seen; + c = (IS_lex_state(EXPR_BEG|EXPR_CLASS|EXPR_FNAME|EXPR_DOT) && + !IS_lex_state(EXPR_LABELED)); + if (c || IS_lex_state_all(EXPR_ARG|EXPR_LABELED)) { + if (!fallthru) { + dispatch_scan_event(p, tIGNORED_NL); + } + fallthru = FALSE; + if (!c && p->in_kwarg) { + goto normal_newline; + } + goto retry; + } + while (1) { + switch (c = nextc(p)) { + case ' ': case '\t': case '\f': case '\r': + case '\13': /* '\v' */ + space_seen = 1; + break; + case '&': + case '.': { + dispatch_delayed_token(p, tIGNORED_NL); + if (peek(p, '.') == (c == '&')) { + pushback(p, c); + dispatch_scan_event(p, tSP); + goto retry; + } + } + default: + p->ruby_sourceline--; + p->lex.nextline = p->lex.lastline; + case -1: /* EOF no decrement*/ +#ifndef RIPPER + if (p->lex.prevline && !p->eofp) p->lex.lastline = p->lex.prevline; + p->lex.pbeg = RSTRING_PTR(p->lex.lastline); + p->lex.pend = p->lex.pcur = p->lex.pbeg + RSTRING_LEN(p->lex.lastline); + pushback(p, 1); /* always pushback */ + p->lex.ptok = p->lex.pcur; +#else + lex_goto_eol(p); + if (c != -1) { + p->lex.ptok = p->lex.pcur; + } +#endif + goto normal_newline; + } + } + normal_newline: + p->command_start = TRUE; + SET_LEX_STATE(EXPR_BEG); + return '\n'; + + case '*': + if ((c = nextc(p)) == '*') { + if ((c = nextc(p)) == '=') { + set_yylval_id(idPow); + SET_LEX_STATE(EXPR_BEG); + return tOP_ASGN; + } + pushback(p, c); + if (IS_SPCARG(c)) { + rb_warning0("`**' interpreted as argument prefix"); + c = tDSTAR; + } + else if (IS_BEG()) { + c = tDSTAR; + } + else { + c = warn_balanced((enum ruby_method_ids)tPOW, "**", "argument prefix"); + } + } + else { + if (c == '=') { + set_yylval_id('*'); + SET_LEX_STATE(EXPR_BEG); + return tOP_ASGN; + } + pushback(p, c); + if (IS_SPCARG(c)) { + rb_warning0("`*' interpreted as argument prefix"); + c = tSTAR; + } + else if (IS_BEG()) { + c = tSTAR; + } + else { + c = warn_balanced('*', "*", "argument prefix"); + } + } + SET_LEX_STATE(IS_AFTER_OPERATOR() ? EXPR_ARG : EXPR_BEG); + return c; + + case '!': + c = nextc(p); + if (IS_AFTER_OPERATOR()) { + SET_LEX_STATE(EXPR_ARG); + if (c == '@') { + return '!'; + } + } + else { + SET_LEX_STATE(EXPR_BEG); + } + if (c == '=') { + return tNEQ; + } + if (c == '~') { + return tNMATCH; + } + pushback(p, c); + return '!'; + + case '=': + if (was_bol(p)) { + /* skip embedded rd document */ + if (strncmp(p->lex.pcur, "begin", 5) == 0 && ISSPACE(p->lex.pcur[5])) { + int first_p = TRUE; + + lex_goto_eol(p); + dispatch_scan_event(p, tEMBDOC_BEG); + for (;;) { + lex_goto_eol(p); + if (!first_p) { + dispatch_scan_event(p, tEMBDOC); + } + first_p = FALSE; + c = nextc(p); + if (c == -1) { + compile_error(p, "embedded document meets end of file"); + return 0; + } + if (c != '=') continue; + if (c == '=' && strncmp(p->lex.pcur, "end", 3) == 0 && + (p->lex.pcur + 3 == p->lex.pend || ISSPACE(p->lex.pcur[3]))) { + break; + } + } + lex_goto_eol(p); + dispatch_scan_event(p, tEMBDOC_END); + goto retry; + } + } + + SET_LEX_STATE(IS_AFTER_OPERATOR() ? EXPR_ARG : EXPR_BEG); + if ((c = nextc(p)) == '=') { + if ((c = nextc(p)) == '=') { + return tEQQ; + } + pushback(p, c); + return tEQ; + } + if (c == '~') { + return tMATCH; + } + else if (c == '>') { + return tASSOC; + } + pushback(p, c); + return '='; + + case '<': + last_state = p->lex.state; + c = nextc(p); + if (c == '<' && + !IS_lex_state(EXPR_DOT | EXPR_CLASS) && + !IS_END() && + (!IS_ARG() || IS_lex_state(EXPR_LABELED) || space_seen)) { + int token = heredoc_identifier(p); + if (token) return token; + } + if (IS_AFTER_OPERATOR()) { + SET_LEX_STATE(EXPR_ARG); + } + else { + if (IS_lex_state(EXPR_CLASS)) + p->command_start = TRUE; + SET_LEX_STATE(EXPR_BEG); + } + if (c == '=') { + if ((c = nextc(p)) == '>') { + return tCMP; + } + pushback(p, c); + return tLEQ; + } + if (c == '<') { + if ((c = nextc(p)) == '=') { + set_yylval_id(idLTLT); + SET_LEX_STATE(EXPR_BEG); + return tOP_ASGN; + } + pushback(p, c); + return warn_balanced((enum ruby_method_ids)tLSHFT, "<<", "here document"); + } + pushback(p, c); + return '<'; + + case '>': + SET_LEX_STATE(IS_AFTER_OPERATOR() ? EXPR_ARG : EXPR_BEG); + if ((c = nextc(p)) == '=') { + return tGEQ; + } + if (c == '>') { + if ((c = nextc(p)) == '=') { + set_yylval_id(idGTGT); + SET_LEX_STATE(EXPR_BEG); + return tOP_ASGN; + } + pushback(p, c); + return tRSHFT; + } + pushback(p, c); + return '>'; + + case '"': + label = (IS_LABEL_POSSIBLE() ? str_label : 0); + p->lex.strterm = NEW_STRTERM(str_dquote | label, '"', 0); + return tSTRING_BEG; + + case '`': + if (IS_lex_state(EXPR_FNAME)) { + SET_LEX_STATE(EXPR_ENDFN); + return c; + } + if (IS_lex_state(EXPR_DOT)) { + if (cmd_state) + SET_LEX_STATE(EXPR_CMDARG); + else + SET_LEX_STATE(EXPR_ARG); + return c; + } + p->lex.strterm = NEW_STRTERM(str_xquote, '`', 0); + return tXSTRING_BEG; + + case '\'': + label = (IS_LABEL_POSSIBLE() ? str_label : 0); + p->lex.strterm = NEW_STRTERM(str_squote | label, '\'', 0); + return tSTRING_BEG; + + case '?': + return parse_qmark(p, space_seen); + + case '&': + if ((c = nextc(p)) == '&') { + SET_LEX_STATE(EXPR_BEG); + if ((c = nextc(p)) == '=') { + set_yylval_id(idANDOP); + SET_LEX_STATE(EXPR_BEG); + return tOP_ASGN; + } + pushback(p, c); + return tANDOP; + } + else if (c == '=') { + set_yylval_id('&'); + SET_LEX_STATE(EXPR_BEG); + return tOP_ASGN; + } + else if (c == '.') { + set_yylval_id(idANDDOT); + SET_LEX_STATE(EXPR_DOT); + return tANDDOT; + } + pushback(p, c); + if (IS_SPCARG(c)) { + if ((c != ':') || + (c = peekc_n(p, 1)) == -1 || + !(c == '\'' || c == '"' || + is_identchar((p->lex.pcur+1), p->lex.pend, p->enc))) { + rb_warning0("`&' interpreted as argument prefix"); + } + c = tAMPER; + } + else if (IS_BEG()) { + c = tAMPER; + } + else { + c = warn_balanced('&', "&", "argument prefix"); + } + SET_LEX_STATE(IS_AFTER_OPERATOR() ? EXPR_ARG : EXPR_BEG); + return c; + + case '|': + if ((c = nextc(p)) == '|') { + SET_LEX_STATE(EXPR_BEG); + if ((c = nextc(p)) == '=') { + set_yylval_id(idOROP); + SET_LEX_STATE(EXPR_BEG); + return tOP_ASGN; + } + pushback(p, c); + return tOROP; + } + if (c == '=') { + set_yylval_id('|'); + SET_LEX_STATE(EXPR_BEG); + return tOP_ASGN; + } + SET_LEX_STATE(IS_AFTER_OPERATOR() ? EXPR_ARG : EXPR_BEG|EXPR_LABEL); + pushback(p, c); + return '|'; + + case '+': + c = nextc(p); + if (IS_AFTER_OPERATOR()) { + SET_LEX_STATE(EXPR_ARG); + if (c == '@') { + return tUPLUS; + } + pushback(p, c); + return '+'; + } + if (c == '=') { + set_yylval_id('+'); + SET_LEX_STATE(EXPR_BEG); + return tOP_ASGN; + } + if (IS_BEG() || (IS_SPCARG(c) && arg_ambiguous(p, '+'))) { + SET_LEX_STATE(EXPR_BEG); + pushback(p, c); + if (c != -1 && ISDIGIT(c)) { + return parse_numeric(p, '+'); + } + return tUPLUS; + } + SET_LEX_STATE(EXPR_BEG); + pushback(p, c); + return warn_balanced('+', "+", "unary operator"); + + case '-': + c = nextc(p); + if (IS_AFTER_OPERATOR()) { + SET_LEX_STATE(EXPR_ARG); + if (c == '@') { + return tUMINUS; + } + pushback(p, c); + return '-'; + } + if (c == '=') { + set_yylval_id('-'); + SET_LEX_STATE(EXPR_BEG); + return tOP_ASGN; + } + if (c == '>') { + SET_LEX_STATE(EXPR_ENDFN); + return tLAMBDA; + } + if (IS_BEG() || (IS_SPCARG(c) && arg_ambiguous(p, '-'))) { + SET_LEX_STATE(EXPR_BEG); + pushback(p, c); + if (c != -1 && ISDIGIT(c)) { + return tUMINUS_NUM; + } + return tUMINUS; + } + SET_LEX_STATE(EXPR_BEG); + pushback(p, c); + return warn_balanced('-', "-", "unary operator"); + + case '.': + SET_LEX_STATE(EXPR_BEG); + if ((c = nextc(p)) == '.') { + if ((c = nextc(p)) == '.') { + return tDOT3; + } + pushback(p, c); + return tDOT2; + } + pushback(p, c); + if (c != -1 && ISDIGIT(c)) { + yyerror0("no .<digit> floating literal anymore; put 0 before dot"); + } + set_yylval_id('.'); + SET_LEX_STATE(EXPR_DOT); + return '.'; + + case '0': case '1': case '2': case '3': case '4': + case '5': case '6': case '7': case '8': case '9': + return parse_numeric(p, c); + + case ')': + COND_POP(); + CMDARG_POP(); + SET_LEX_STATE(EXPR_ENDFN); + p->lex.paren_nest--; + return c; + + case ']': + COND_POP(); + CMDARG_POP(); + SET_LEX_STATE(EXPR_END); + p->lex.paren_nest--; + return c; + + case '}': + /* tSTRING_DEND does COND_POP and CMDARG_POP in the yacc's rule */ + if (!p->lex.brace_nest--) return tSTRING_DEND; + COND_POP(); + CMDARG_POP(); + SET_LEX_STATE(EXPR_END); + p->lex.paren_nest--; + return c; + + case ':': + c = nextc(p); + if (c == ':') { + if (IS_BEG() || IS_lex_state(EXPR_CLASS) || IS_SPCARG(-1)) { + SET_LEX_STATE(EXPR_BEG); + return tCOLON3; + } + set_yylval_id(idCOLON2); + SET_LEX_STATE(EXPR_DOT); + return tCOLON2; + } + if (IS_END() || ISSPACE(c) || c == '#') { + pushback(p, c); + c = warn_balanced(':', ":", "symbol literal"); + SET_LEX_STATE(EXPR_BEG); + return c; + } + switch (c) { + case '\'': + p->lex.strterm = NEW_STRTERM(str_ssym, c, 0); + break; + case '"': + p->lex.strterm = NEW_STRTERM(str_dsym, c, 0); + break; + default: + pushback(p, c); + break; + } + SET_LEX_STATE(EXPR_FNAME); + return tSYMBEG; + + case '/': + if (IS_BEG()) { + p->lex.strterm = NEW_STRTERM(str_regexp, '/', 0); + return tREGEXP_BEG; + } + if ((c = nextc(p)) == '=') { + set_yylval_id('/'); + SET_LEX_STATE(EXPR_BEG); + return tOP_ASGN; + } + pushback(p, c); + if (IS_SPCARG(c)) { + arg_ambiguous(p, '/'); + p->lex.strterm = NEW_STRTERM(str_regexp, '/', 0); + return tREGEXP_BEG; + } + SET_LEX_STATE(IS_AFTER_OPERATOR() ? EXPR_ARG : EXPR_BEG); + return warn_balanced('/', "/", "regexp literal"); + + case '^': + if ((c = nextc(p)) == '=') { + set_yylval_id('^'); + SET_LEX_STATE(EXPR_BEG); + return tOP_ASGN; + } + SET_LEX_STATE(IS_AFTER_OPERATOR() ? EXPR_ARG : EXPR_BEG); + pushback(p, c); + return '^'; + + case ';': + SET_LEX_STATE(EXPR_BEG); + p->command_start = TRUE; + return ';'; + + case ',': + SET_LEX_STATE(EXPR_BEG|EXPR_LABEL); + return ','; + + case '~': + if (IS_AFTER_OPERATOR()) { + if ((c = nextc(p)) != '@') { + pushback(p, c); + } + SET_LEX_STATE(EXPR_ARG); + } + else { + SET_LEX_STATE(EXPR_BEG); + } + return '~'; + + case '(': + if (IS_BEG()) { + c = tLPAREN; + } + else if (!space_seen) { + /* foo( ... ) => method call, no ambiguity */ + } + else if (IS_ARG() || IS_lex_state_all(EXPR_END|EXPR_LABEL)) { + c = tLPAREN_ARG; + } + else if (IS_lex_state(EXPR_ENDFN) && !lambda_beginning_p()) { + rb_warning0("parentheses after method name is interpreted as " + "an argument list, not a decomposed argument"); + } + p->lex.paren_nest++; + COND_PUSH(0); + CMDARG_PUSH(0); + SET_LEX_STATE(EXPR_BEG|EXPR_LABEL); + return c; + + case '[': + p->lex.paren_nest++; + if (IS_AFTER_OPERATOR()) { + if ((c = nextc(p)) == ']') { + SET_LEX_STATE(EXPR_ARG); + if ((c = nextc(p)) == '=') { + return tASET; + } + pushback(p, c); + return tAREF; + } + pushback(p, c); + SET_LEX_STATE(EXPR_ARG|EXPR_LABEL); + return '['; + } + else if (IS_BEG()) { + c = tLBRACK; + } + else if (IS_ARG() && (space_seen || IS_lex_state(EXPR_LABELED))) { + c = tLBRACK; + } + SET_LEX_STATE(EXPR_BEG|EXPR_LABEL); + COND_PUSH(0); + CMDARG_PUSH(0); + return c; + + case '{': + ++p->lex.brace_nest; + if (lambda_beginning_p()) { + SET_LEX_STATE(EXPR_BEG); + COND_PUSH(0); + CMDARG_PUSH(0); + p->lex.paren_nest++; + return tLAMBEG; + } + p->lex.paren_nest++; + if (IS_lex_state(EXPR_LABELED)) + c = tLBRACE; /* hash */ + else if (IS_lex_state(EXPR_ARG_ANY | EXPR_END | EXPR_ENDFN)) + c = '{'; /* block (primary) */ + else if (IS_lex_state(EXPR_ENDARG)) + c = tLBRACE_ARG; /* block (expr) */ + else + c = tLBRACE; /* hash */ + COND_PUSH(0); + CMDARG_PUSH(0); + SET_LEX_STATE(c != tLBRACE ? EXPR_BEG : EXPR_BEG|EXPR_LABEL); + if (c != tLBRACE) p->command_start = TRUE; + return c; + + case '\\': + c = nextc(p); + if (c == '\n') { + space_seen = 1; + dispatch_scan_event(p, tSP); + goto retry; /* skip \\n */ + } + if (c == ' ') return tSP; + if (ISSPACE(c)) return c; + pushback(p, c); + return '\\'; + + case '%': + return parse_percent(p, space_seen, last_state); + + case '$': + return parse_gvar(p, last_state); + + case '@': + return parse_atmark(p, last_state); + + case '_': + if (was_bol(p) && whole_match_p(p, "__END__", 7, 0)) { + p->ruby__end__seen = 1; + p->eofp = 1; +#ifndef RIPPER + return -1; +#else + lex_goto_eol(p); + dispatch_scan_event(p, k__END__); + return 0; +#endif + } + newtok(p); + break; + + default: + if (!parser_is_identchar(p)) { + compile_error(p, "Invalid char `\\x%02X' in expression", c); + goto retry; + } + + newtok(p); + break; + } + + return parse_ident(p, c, cmd_state); +} + +static enum yytokentype +yylex(YYSTYPE *lval, YYLTYPE *yylloc, struct parser_params *p) +{ + enum yytokentype t; + + p->lval = lval; + lval->val = Qundef; + t = parser_yylex(p); + if (has_delayed_token(p)) + dispatch_delayed_token(p, t); + else if (t != 0) + dispatch_scan_event(p, t); + + if (p->lex.strterm && (p->lex.strterm->flags & STRTERM_HEREDOC)) + RUBY_SET_YYLLOC_FROM_STRTERM_HEREDOC(*yylloc); + else + RUBY_SET_YYLLOC(*yylloc); + + return t; +} + +#define LVAR_USED ((ID)1 << (sizeof(ID) * CHAR_BIT - 1)) + +static NODE* +node_newnode(struct parser_params *p, enum node_type type, VALUE a0, VALUE a1, VALUE a2, const rb_code_location_t *loc) +{ + NODE *n = rb_ast_newnode(p->ast); + + rb_node_init(n, type, a0, a1, a2); + + nd_set_loc(n, loc); + nd_set_node_id(n, parser_get_node_id(p)); + return n; +} + +static NODE * +nd_set_loc(NODE *nd, const YYLTYPE *loc) +{ + nd->nd_loc = *loc; + nd_set_line(nd, loc->beg_pos.lineno); + return nd; +} + +#ifndef RIPPER +static enum node_type +nodetype(NODE *node) /* for debug */ +{ + return (enum node_type)nd_type(node); +} + +static int +nodeline(NODE *node) +{ + return nd_line(node); +} + +static NODE* +newline_node(NODE *node) +{ + if (node) { + node = remove_begin(node); + node->flags |= NODE_FL_NEWLINE; + } + return node; +} + +static void +fixpos(NODE *node, NODE *orig) +{ + if (!node) return; + if (!orig) return; + nd_set_line(node, nd_line(orig)); +} + +static void +parser_warning(struct parser_params *p, NODE *node, const char *mesg) +{ + rb_compile_warning(p->ruby_sourcefile, nd_line(node), "%s", mesg); +} + +static void +parser_warn(struct parser_params *p, NODE *node, const char *mesg) +{ + rb_compile_warn(p->ruby_sourcefile, nd_line(node), "%s", mesg); +} + +static NODE* +block_append(struct parser_params *p, NODE *head, NODE *tail) +{ + NODE *end, *h = head, *nd; + + if (tail == 0) return head; + + if (h == 0) return tail; + switch (nd_type(h)) { + case NODE_LIT: + case NODE_STR: + case NODE_SELF: + case NODE_TRUE: + case NODE_FALSE: + case NODE_NIL: + parser_warning(p, h, "unused literal ignored"); + return tail; + default: + h = end = NEW_BLOCK(head, &head->nd_loc); + end->nd_end = end; + head = end; + break; + case NODE_BLOCK: + end = h->nd_end; + break; + } + + nd = end->nd_head; + switch (nd_type(nd)) { + case NODE_RETURN: + case NODE_BREAK: + case NODE_NEXT: + case NODE_REDO: + case NODE_RETRY: + if (RTEST(ruby_verbose)) { + parser_warning(p, tail, "statement not reached"); + } + break; + + default: + break; + } + + if (nd_type(tail) != NODE_BLOCK) { + tail = NEW_BLOCK(tail, &tail->nd_loc); + tail->nd_end = tail; + } + end->nd_next = tail; + h->nd_end = tail->nd_end; + nd_set_last_loc(head, nd_last_loc(tail)); + return head; +} + +/* append item to the list */ +static NODE* +list_append(struct parser_params *p, NODE *list, NODE *item) +{ + NODE *last; + + if (list == 0) return NEW_LIST(item, &item->nd_loc); + if (list->nd_next) { + last = list->nd_next->nd_end; + } + else { + last = list; + } + + list->nd_alen += 1; + last->nd_next = NEW_LIST(item, &item->nd_loc); + list->nd_next->nd_end = last->nd_next; + + nd_set_last_loc(list, nd_last_loc(item)); + + return list; +} + +/* concat two lists */ +static NODE* +list_concat(NODE *head, NODE *tail) +{ + NODE *last; + + if (head->nd_next) { + last = head->nd_next->nd_end; + } + else { + last = head; + } + + head->nd_alen += tail->nd_alen; + last->nd_next = tail; + if (tail->nd_next) { + head->nd_next->nd_end = tail->nd_next->nd_end; + } + else { + head->nd_next->nd_end = tail; + } + + nd_set_last_loc(head, nd_last_loc(tail)); + + return head; +} + +static int +literal_concat0(struct parser_params *p, VALUE head, VALUE tail) +{ + if (NIL_P(tail)) return 1; + if (!rb_enc_compatible(head, tail)) { + compile_error(p, "string literal encodings differ (%s / %s)", + rb_enc_name(rb_enc_get(head)), + rb_enc_name(rb_enc_get(tail))); + rb_str_resize(head, 0); + rb_str_resize(tail, 0); + return 0; + } + rb_str_buf_append(head, tail); + return 1; +} + +/* concat two string literals */ +static NODE * +literal_concat(struct parser_params *p, NODE *head, NODE *tail, const YYLTYPE *loc) +{ + enum node_type htype; + NODE *headlast; + VALUE lit; + + if (!head) return tail; + if (!tail) return head; + + htype = nd_type(head); + if (htype == NODE_EVSTR) { + NODE *node = NEW_DSTR(add_mark_object(p, STR_NEW0()), loc); + head = list_append(p, node, head); + htype = NODE_DSTR; + } + if (p->heredoc_indent > 0) { + switch (htype) { + case NODE_STR: + nd_set_type(head, NODE_DSTR); + case NODE_DSTR: + return list_append(p, head, tail); + default: + break; + } + } + switch (nd_type(tail)) { + case NODE_STR: + if (htype == NODE_DSTR && (headlast = head->nd_next->nd_end->nd_head) && + nd_type(headlast) == NODE_STR) { + htype = NODE_STR; + lit = headlast->nd_lit; + } + else { + lit = head->nd_lit; + } + if (htype == NODE_STR) { + if (!literal_concat0(p, lit, tail->nd_lit)) { + error: + rb_discard_node(p, head); + rb_discard_node(p, tail); + return 0; + } + rb_discard_node(p, tail); + } + else { + list_append(p, head, tail); + } + break; + + case NODE_DSTR: + if (htype == NODE_STR) { + if (!literal_concat0(p, head->nd_lit, tail->nd_lit)) + goto error; + tail->nd_lit = head->nd_lit; + rb_discard_node(p, head); + head = tail; + } + else if (NIL_P(tail->nd_lit)) { + append: + head->nd_alen += tail->nd_alen - 1; + head->nd_next->nd_end->nd_next = tail->nd_next; + head->nd_next->nd_end = tail->nd_next->nd_end; + rb_discard_node(p, tail); + } + else if (htype == NODE_DSTR && (headlast = head->nd_next->nd_end->nd_head) && + nd_type(headlast) == NODE_STR) { + lit = headlast->nd_lit; + if (!literal_concat0(p, lit, tail->nd_lit)) + goto error; + tail->nd_lit = Qnil; + goto append; + } + else { + nd_set_type(tail, NODE_ARRAY); + tail->nd_head = NEW_STR(tail->nd_lit, loc); + list_concat(head, tail); + } + break; + + case NODE_EVSTR: + if (htype == NODE_STR) { + nd_set_type(head, NODE_DSTR); + head->nd_alen = 1; + } + list_append(p, head, tail); + break; + } + return head; +} + +static NODE * +evstr2dstr(struct parser_params *p, NODE *node) +{ + if (nd_type(node) == NODE_EVSTR) { + node = list_append(p, NEW_DSTR(add_mark_object(p, STR_NEW0()), &node->nd_loc), node); + } + return node; +} + +static NODE * +new_evstr(struct parser_params *p, NODE *node, const YYLTYPE *loc) +{ + NODE *head = node; + + if (node) { + switch (nd_type(node)) { + case NODE_STR: case NODE_DSTR: case NODE_EVSTR: + return node; + } + } + return NEW_EVSTR(head, loc); +} + +static NODE * +call_bin_op(struct parser_params *p, NODE *recv, ID id, NODE *arg1, + const YYLTYPE *op_loc, const YYLTYPE *loc) +{ + NODE *expr; + value_expr(recv); + value_expr(arg1); + expr = NEW_OPCALL(recv, id, NEW_LIST(arg1, &arg1->nd_loc), loc); + nd_set_line(expr, op_loc->beg_pos.lineno); + return expr; +} + +static NODE * +call_uni_op(struct parser_params *p, NODE *recv, ID id, const YYLTYPE *op_loc, const YYLTYPE *loc) +{ + NODE *opcall; + value_expr(recv); + opcall = NEW_OPCALL(recv, id, 0, loc); + nd_set_line(opcall, op_loc->beg_pos.lineno); + return opcall; +} + +static NODE * +new_qcall(struct parser_params* p, ID atype, NODE *recv, ID mid, NODE *args, const YYLTYPE *op_loc, const YYLTYPE *loc) +{ + NODE *qcall = NEW_QCALL(atype, recv, mid, args, loc); + nd_set_line(qcall, op_loc->beg_pos.lineno); + return qcall; +} + +static NODE* +new_command_qcall(struct parser_params* p, ID atype, NODE *recv, ID mid, NODE *args, NODE *block, const YYLTYPE *op_loc, const YYLTYPE *loc) +{ + NODE *ret; + if (block) block_dup_check(p, args, block); + ret = new_qcall(p, atype, recv, mid, args, op_loc, loc); + if (block) ret = method_add_block(p, ret, block, loc); + fixpos(ret, recv); + return ret; +} + +#define nd_once_body(node) (nd_type(node) == NODE_ONCE ? (node)->nd_body : node) +static NODE* +match_op(struct parser_params *p, NODE *node1, NODE *node2, const YYLTYPE *op_loc, const YYLTYPE *loc) +{ + NODE *n; + int line = op_loc->beg_pos.lineno; + + value_expr(node1); + value_expr(node2); + if (node1 && (n = nd_once_body(node1)) != 0) { + switch (nd_type(n)) { + case NODE_DREGX: + { + NODE *match = NEW_MATCH2(node1, node2, loc); + nd_set_line(match, line); + return match; + } + + case NODE_LIT: + if (RB_TYPE_P(n->nd_lit, T_REGEXP)) { + const VALUE lit = n->nd_lit; + NODE *match = NEW_MATCH2(node1, node2, loc); + match->nd_args = reg_named_capture_assign(p, lit, loc); + nd_set_line(match, line); + return match; + } + } + } + + if (node2 && (n = nd_once_body(node2)) != 0) { + NODE *match3; + + switch (nd_type(n)) { + case NODE_LIT: + if (!RB_TYPE_P(n->nd_lit, T_REGEXP)) break; + /* fallthru */ + case NODE_DREGX: + match3 = NEW_MATCH3(node2, node1, loc); + return match3; + } + } + + n = NEW_CALL(node1, tMATCH, NEW_LIST(node2, &node2->nd_loc), loc); + nd_set_line(n, line); + return n; +} + +# if WARN_PAST_SCOPE +static int +past_dvar_p(struct parser_params *p, ID id) +{ + struct vtable *past = p->lvtbl->past; + while (past) { + if (vtable_included(past, id)) return 1; + past = past->prev; + } + return 0; +} +# endif + +#define WARN_LOCATION(type) do { \ + if (p->warn_location) { \ + rb_warning0(type" in eval may not return location in binding;" \ + " use Binding#source_location instead"); \ + } \ +} while (0) + +static NODE* +gettable(struct parser_params *p, ID id, const YYLTYPE *loc) +{ + ID *vidp = NULL; + NODE *node; + switch (id) { + case keyword_self: + return NEW_SELF(loc); + case keyword_nil: + return NEW_NIL(loc); + case keyword_true: + return NEW_TRUE(loc); + case keyword_false: + return NEW_FALSE(loc); + case keyword__FILE__: + WARN_LOCATION("__FILE__"); + { + VALUE file = p->ruby_sourcefile_string; + if (NIL_P(file)) + file = rb_str_new(0, 0); + else + file = rb_str_dup(file); + node = NEW_STR(add_mark_object(p, file), loc); + } + return node; + case keyword__LINE__: + WARN_LOCATION("__LINE__"); + return NEW_LIT(INT2FIX(p->tokline), loc); + case keyword__ENCODING__: + return NEW_LIT(add_mark_object(p, rb_enc_from_encoding(p->enc)), loc); + } + switch (id_type(id)) { + case ID_LOCAL: + if (dyna_in_block(p) && dvar_defined_ref(p, id, &vidp)) { + if (id == p->cur_arg) { + rb_warn1("circular argument reference - %"PRIsWARN, rb_id2str(id)); + } + if (vidp) *vidp |= LVAR_USED; + node = NEW_DVAR(id, loc); + return node; + } + if (local_id_ref(p, id, &vidp)) { + if (id == p->cur_arg) { + rb_warn1("circular argument reference - %"PRIsWARN, rb_id2str(id)); + } + if (vidp) *vidp |= LVAR_USED; + node = NEW_LVAR(id, loc); + return node; + } +# if WARN_PAST_SCOPE + if (!p->in_defined && RTEST(ruby_verbose) && past_dvar_p(p, id)) { + rb_warning1("possible reference to past scope - %"PRIsWARN, rb_id2str(id)); + } +# endif + /* method call without arguments */ + return NEW_VCALL(id, loc); + case ID_GLOBAL: + return NEW_GVAR(id, loc); + case ID_INSTANCE: + return NEW_IVAR(id, loc); + case ID_CONST: + return NEW_CONST(id, loc); + case ID_CLASS: + return NEW_CVAR(id, loc); + } + compile_error(p, "identifier %"PRIsVALUE" is not valid to get", rb_id2str(id)); + return 0; +} + +static NODE * +opt_arg_append(NODE *opt_list, NODE *opt) +{ + NODE *opts = opt_list; + opts->nd_loc.end_pos = opt->nd_loc.end_pos; + + while (opts->nd_next) { + opts = opts->nd_next; + opts->nd_loc.end_pos = opt->nd_loc.end_pos; + } + opts->nd_next = opt; + + return opt_list; +} + +static NODE * +kwd_append(NODE *kwlist, NODE *kw) +{ + if (kwlist) { + NODE *kws = kwlist; + kws->nd_loc.end_pos = kw->nd_loc.end_pos; + while (kws->nd_next) { + kws = kws->nd_next; + kws->nd_loc.end_pos = kw->nd_loc.end_pos; + } + kws->nd_next = kw; + } + return kwlist; +} + +static NODE * +new_defined(struct parser_params *p, NODE *expr, const YYLTYPE *loc) +{ + return NEW_DEFINED(remove_begin_all(expr), loc); +} + +static NODE* +symbol_append(struct parser_params *p, NODE *symbols, NODE *symbol) +{ + if (nd_type(symbol) == NODE_DSTR) { + nd_set_type(symbol, NODE_DSYM); + } + else { + nd_set_type(symbol, NODE_LIT); + symbol->nd_lit = add_mark_object(p, rb_str_intern(symbol->nd_lit)); + } + return list_append(p, symbols, symbol); +} + +static NODE * +new_regexp(struct parser_params *p, NODE *node, int options, const YYLTYPE *loc) +{ + NODE *list, *prev; + VALUE lit; + + if (!node) { + return NEW_LIT(add_mark_object(p, reg_compile(p, STR_NEW0(), options)), loc); + } + switch (nd_type(node)) { + case NODE_STR: + { + VALUE src = node->nd_lit; + nd_set_type(node, NODE_LIT); + nd_set_loc(node, loc); + add_mark_object(p, node->nd_lit = reg_compile(p, src, options)); + } + break; + default: + add_mark_object(p, lit = STR_NEW0()); + node = NEW_NODE(NODE_DSTR, lit, 1, NEW_LIST(node, loc), loc); + case NODE_DSTR: + nd_set_type(node, NODE_DREGX); + nd_set_loc(node, loc); + node->nd_cflag = options & RE_OPTION_MASK; + if (!NIL_P(node->nd_lit)) reg_fragment_check(p, node->nd_lit, options); + for (list = (prev = node)->nd_next; list; list = list->nd_next) { + if (nd_type(list->nd_head) == NODE_STR) { + VALUE tail = list->nd_head->nd_lit; + if (reg_fragment_check(p, tail, options) && prev && !NIL_P(prev->nd_lit)) { + VALUE lit = prev == node ? prev->nd_lit : prev->nd_head->nd_lit; + if (!literal_concat0(p, lit, tail)) { + return NEW_NIL(loc); /* dummy node on error */ + } + rb_str_resize(tail, 0); + prev->nd_next = list->nd_next; + rb_discard_node(p, list->nd_head); + rb_discard_node(p, list); + list = prev; + } + else { + prev = list; + } + } + else { + prev = 0; + } + } + if (!node->nd_next) { + VALUE src = node->nd_lit; + nd_set_type(node, NODE_LIT); + add_mark_object(p, node->nd_lit = reg_compile(p, src, options)); + } + if (options & RE_OPTION_ONCE) { + node = NEW_NODE(NODE_ONCE, 0, node, 0, loc); + } + break; + } + return node; +} + +static NODE * +new_kw_arg(struct parser_params *p, NODE *k, const YYLTYPE *loc) +{ + if (!k) return 0; + return NEW_KW_ARG(0, (k), loc); +} + +static NODE * +new_xstring(struct parser_params *p, NODE *node, const YYLTYPE *loc) +{ + if (!node) { + VALUE lit = STR_NEW0(); + NODE *xstr = NEW_XSTR(lit, loc); + add_mark_object(p, lit); + return xstr; + } + switch (nd_type(node)) { + case NODE_STR: + nd_set_type(node, NODE_XSTR); + nd_set_loc(node, loc); + break; + case NODE_DSTR: + nd_set_type(node, NODE_DXSTR); + nd_set_loc(node, loc); + break; + default: + node = NEW_NODE(NODE_DXSTR, Qnil, 1, NEW_LIST(node, loc), loc); + break; + } + return node; +} + +#else /* !RIPPER */ +static int +id_is_var(struct parser_params *p, ID id) +{ + if (is_notop_id(id)) { + switch (id & ID_SCOPE_MASK) { + case ID_GLOBAL: case ID_INSTANCE: case ID_CONST: case ID_CLASS: + return 1; + case ID_LOCAL: + if (dyna_in_block(p) && dvar_defined(p, id)) return 1; + if (local_id(p, id)) return 1; + /* method call without arguments */ + return 0; + } + } + compile_error(p, "identifier %"PRIsVALUE" is not valid to get", rb_id2str(id)); + return 0; +} + +static VALUE +new_regexp(struct parser_params *p, VALUE re, VALUE opt, const YYLTYPE *loc) +{ + VALUE src = 0, err; + int options = 0; + if (ripper_is_node_yylval(re)) { + src = RNODE(re)->nd_cval; + re = RNODE(re)->nd_rval; + } + if (ripper_is_node_yylval(opt)) { + options = (int)RNODE(opt)->nd_tag; + opt = RNODE(opt)->nd_rval; + } + if (src && NIL_P(parser_reg_compile(p, src, options, &err))) { + compile_error(p, "%"PRIsVALUE, err); + } + return dispatch2(regexp_literal, re, opt); +} +#endif /* !RIPPER */ + +#ifndef RIPPER +static const char rb_parser_lex_state_names[][13] = { + "EXPR_BEG", "EXPR_END", "EXPR_ENDARG", "EXPR_ENDFN", "EXPR_ARG", + "EXPR_CMDARG", "EXPR_MID", "EXPR_FNAME", "EXPR_DOT", "EXPR_CLASS", + "EXPR_LABEL", "EXPR_LABELED","EXPR_FITEM", +}; + +static VALUE +append_lex_state_name(enum lex_state_e state, VALUE buf) +{ + int i, sep = 0; + unsigned int mask = 1; + static const char none[] = "EXPR_NONE"; + + for (i = 0; i < EXPR_MAX_STATE; ++i, mask <<= 1) { + if ((unsigned)state & mask) { + if (sep) { + rb_str_cat(buf, "|", 1); + } + sep = 1; + rb_str_cat_cstr(buf, rb_parser_lex_state_names[i]); + } + } + if (!sep) { + rb_str_cat(buf, none, sizeof(none)-1); + } + return buf; +} + +static void +flush_debug_buffer(struct parser_params *p, VALUE out, VALUE str) +{ + VALUE mesg = p->debug_buffer; + + if (!NIL_P(mesg) && RSTRING_LEN(mesg)) { + p->debug_buffer = Qnil; + rb_io_puts(1, &mesg, out); + } + if (!NIL_P(str) && RSTRING_LEN(str)) { + rb_io_write(p->debug_output, str); + } +} + +enum lex_state_e +rb_parser_trace_lex_state(struct parser_params *p, enum lex_state_e from, + enum lex_state_e to, int line) +{ + VALUE mesg; + mesg = rb_str_new_cstr("lex_state: "); + append_lex_state_name(from, mesg); + rb_str_cat_cstr(mesg, " -> "); + append_lex_state_name(to, mesg); + rb_str_catf(mesg, " at line %d\n", line); + flush_debug_buffer(p, p->debug_output, mesg); + return to; +} + +VALUE +rb_parser_lex_state_name(enum lex_state_e state) +{ + return rb_fstring(append_lex_state_name(state, rb_str_new(0, 0))); +} + +static void +append_bitstack_value(stack_type stack, VALUE mesg) +{ + if (stack == 0) { + rb_str_cat_cstr(mesg, "0"); + } + else { + stack_type mask = (stack_type)1U << (CHAR_BIT * sizeof(stack_type) - 1); + for (; mask && !(stack & mask); mask >>= 1) continue; + for (; mask; mask >>= 1) rb_str_cat(mesg, stack & mask ? "1" : "0", 1); + } +} + +void +rb_parser_show_bitstack(struct parser_params *p, stack_type stack, + const char *name, int line) +{ + VALUE mesg = rb_sprintf("%s: ", name); + append_bitstack_value(stack, mesg); + rb_str_catf(mesg, " at line %d\n", line); + flush_debug_buffer(p, p->debug_output, mesg); +} + +void +rb_parser_fatal(struct parser_params *p, const char *fmt, ...) +{ + va_list ap; + VALUE mesg = rb_str_new_cstr("internal p error: "); + + va_start(ap, fmt); + rb_str_vcatf(mesg, fmt, ap); + va_end(ap); + parser_yyerror(p, NULL, RSTRING_PTR(mesg)); + RB_GC_GUARD(mesg); + + mesg = rb_str_new(0, 0); + append_lex_state_name(p->lex.state, mesg); + compile_error(p, "p->lex.state: %"PRIsVALUE, mesg); + rb_str_resize(mesg, 0); + append_bitstack_value(p->cond_stack, mesg); + compile_error(p, "p->cond_stack: %"PRIsVALUE, mesg); + rb_str_resize(mesg, 0); + append_bitstack_value(p->cmdarg_stack, mesg); + compile_error(p, "p->cmdarg_stack: %"PRIsVALUE, mesg); + if (p->debug_output == rb_stdout) + p->debug_output = rb_stderr; + p->debug = TRUE; +} + +void +rb_parser_set_location_from_strterm_heredoc(struct parser_params *p, rb_strterm_heredoc_t *here, YYLTYPE *yylloc) +{ + const char *eos = RSTRING_PTR(here->term); + long term_len = RSTRING_LEN(here->term) - 2 + (unsigned char)eos[0]; + + yylloc->beg_pos.lineno = (int)here->sourceline; + yylloc->beg_pos.column = (int)(here->u3.lastidx - term_len); + yylloc->end_pos.lineno = (int)here->sourceline; + yylloc->end_pos.column = (int)(here->u3.lastidx); +} + +void +rb_parser_set_location_of_none(struct parser_params *p, YYLTYPE *yylloc) +{ + yylloc->beg_pos.lineno = p->ruby_sourceline; + yylloc->beg_pos.column = (int)(p->lex.ptok - p->lex.pbeg); + yylloc->end_pos.lineno = p->ruby_sourceline; + yylloc->end_pos.column = (int)(p->lex.ptok - p->lex.pbeg); +} + +void +rb_parser_set_location(struct parser_params *p, YYLTYPE *yylloc) +{ + yylloc->beg_pos.lineno = p->ruby_sourceline; + yylloc->beg_pos.column = (int)(p->lex.ptok - p->lex.pbeg); + yylloc->end_pos.lineno = p->ruby_sourceline; + yylloc->end_pos.column = (int)(p->lex.pcur - p->lex.pbeg); +} +#endif /* !RIPPER */ + +static void +parser_token_value_print(struct parser_params *p, enum yytokentype type, const YYSTYPE *valp) +{ + VALUE v; + + switch (type) { + case tIDENTIFIER: case tFID: case tGVAR: case tIVAR: + case tCONSTANT: case tCVAR: case tLABEL: case tOP_ASGN: +#ifndef RIPPER + v = rb_id2str(valp->id); +#else + v = valp->val; +#endif + rb_parser_printf(p, "%"PRIsVALUE, v); + break; + case tINTEGER: case tFLOAT: case tRATIONAL: case tIMAGINARY: + case tSTRING_CONTENT: case tCHAR: +#ifndef RIPPER + v = valp->node->nd_lit; +#else + v = valp->val; +#endif + rb_parser_printf(p, "%+"PRIsVALUE, v); + break; + case tNTH_REF: +#ifndef RIPPER + rb_parser_printf(p, "$%ld", valp->node->nd_nth); +#else + rb_parser_printf(p, "%"PRIsVALUE, valp->val); +#endif + break; + case tBACK_REF: +#ifndef RIPPER + rb_parser_printf(p, "$%c", (int)valp->node->nd_nth); +#else + rb_parser_printf(p, "%"PRIsVALUE, valp->val); +#endif + break; + default: + break; + } +} + +static int +assignable0(struct parser_params *p, ID id, const char **err) +{ + if (!id) return -1; + switch (id) { + case keyword_self: + *err = "Can't change the value of self"; + return -1; + case keyword_nil: + *err = "Can't assign to nil"; + return -1; + case keyword_true: + *err = "Can't assign to true"; + return -1; + case keyword_false: + *err = "Can't assign to false"; + return -1; + case keyword__FILE__: + *err = "Can't assign to __FILE__"; + return -1; + case keyword__LINE__: + *err = "Can't assign to __LINE__"; + return -1; + case keyword__ENCODING__: + *err = "Can't assign to __ENCODING__"; + return -1; + } + switch (id_type(id)) { + case ID_LOCAL: + if (dyna_in_block(p)) { + if (dvar_curr(p, id)) return NODE_DASGN_CURR; + if (dvar_defined(p, id)) return NODE_DASGN; + if (local_id(p, id)) return NODE_LASGN; + dyna_var(p, id); + return NODE_DASGN_CURR; + } + else { + if (!local_id(p, id)) local_var(p, id); + return NODE_LASGN; + } + break; + case ID_GLOBAL: return NODE_GASGN; + case ID_INSTANCE: return NODE_IASGN; + case ID_CONST: + if (!p->in_def) return NODE_CDECL; + *err = "dynamic constant assignment"; + return -1; + case ID_CLASS: return NODE_CVASGN; + default: + compile_error(p, "identifier %"PRIsVALUE" is not valid to set", rb_id2str(id)); + } + return -1; +} + +#ifndef RIPPER +static NODE* +assignable(struct parser_params *p, ID id, NODE *val, const YYLTYPE *loc) +{ + const char *err = 0; + int node_type = assignable0(p, id, &err); + switch (node_type) { + case NODE_DASGN_CURR: return NEW_DASGN_CURR(id, val, loc); + case NODE_DASGN: return NEW_DASGN(id, val, loc); + case NODE_LASGN: return NEW_LASGN(id, val, loc); + case NODE_GASGN: return NEW_GASGN(id, val, loc); + case NODE_IASGN: return NEW_IASGN(id, val, loc); + case NODE_CDECL: return NEW_CDECL(id, val, 0, loc); + case NODE_CVASGN: return NEW_CVASGN(id, val, loc); + } + if (err) yyerror1(loc, err); + return NEW_BEGIN(0, loc); +} +#else +static VALUE +assignable(struct parser_params *p, VALUE lhs) +{ + const char *err = 0; + assignable0(p, get_id(lhs), &err); + if (err) lhs = assign_error(p, lhs); + return lhs; +} +#endif + +static int +is_private_local_id(ID name) +{ + VALUE s; + if (name == idUScore) return 1; + if (!is_local_id(name)) return 0; + s = rb_id2str(name); + if (!s) return 0; + return RSTRING_PTR(s)[0] == '_'; +} + +static int +shadowing_lvar_0(struct parser_params *p, ID name) +{ + if (is_private_local_id(name)) return 1; + if (dyna_in_block(p)) { + if (dvar_curr(p, name)) { + yyerror0("duplicated argument name"); + } + else if (dvar_defined(p, name) || local_id(p, name)) { + vtable_add(p->lvtbl->vars, name); + if (p->lvtbl->used) { + vtable_add(p->lvtbl->used, (ID)p->ruby_sourceline | LVAR_USED); + } + return 0; + } + } + else { + if (local_id(p, name)) { + yyerror0("duplicated argument name"); + } + } + return 1; +} + +static ID +shadowing_lvar(struct parser_params *p, ID name) +{ + shadowing_lvar_0(p, name); + return name; +} + +static void +new_bv(struct parser_params *p, ID name) +{ + if (!name) return; + if (!is_local_id(name)) { + compile_error(p, "invalid local variable - %"PRIsVALUE, + rb_id2str(name)); + return; + } + if (!shadowing_lvar_0(p, name)) return; + dyna_var(p, name); +} + +#ifndef RIPPER +static NODE * +aryset(struct parser_params *p, NODE *recv, NODE *idx, const YYLTYPE *loc) +{ + return NEW_ATTRASGN(recv, tASET, idx, loc); +} + +static void +block_dup_check(struct parser_params *p, NODE *node1, NODE *node2) +{ + if (node2 && node1 && nd_type(node1) == NODE_BLOCK_PASS) { + compile_error(p, "both block arg and actual block given"); + } +} + +static NODE * +attrset(struct parser_params *p, NODE *recv, ID atype, ID id, const YYLTYPE *loc) +{ + if (!CALL_Q_P(atype)) id = rb_id_attrset(id); + return NEW_ATTRASGN(recv, id, 0, loc); +} + +static void +rb_backref_error(struct parser_params *p, NODE *node) +{ + switch (nd_type(node)) { + case NODE_NTH_REF: + compile_error(p, "Can't set variable $%ld", node->nd_nth); + break; + case NODE_BACK_REF: + compile_error(p, "Can't set variable $%c", (int)node->nd_nth); + break; + } +} + +static NODE * +arg_append(struct parser_params *p, NODE *node1, NODE *node2, const YYLTYPE *loc) +{ + if (!node1) return NEW_LIST(node2, &node2->nd_loc); + switch (nd_type(node1)) { + case NODE_ARRAY: + return list_append(p, node1, node2); + case NODE_BLOCK_PASS: + node1->nd_head = arg_append(p, node1->nd_head, node2, loc); + node1->nd_loc.end_pos = node1->nd_head->nd_loc.end_pos; + return node1; + case NODE_ARGSPUSH: + node1->nd_body = list_append(p, NEW_LIST(node1->nd_body, &node1->nd_body->nd_loc), node2); + node1->nd_loc.end_pos = node1->nd_body->nd_loc.end_pos; + nd_set_type(node1, NODE_ARGSCAT); + return node1; + case NODE_ARGSCAT: + if (nd_type(node1->nd_body) != NODE_ARRAY) break; + node1->nd_body = list_append(p, node1->nd_body, node2); + node1->nd_loc.end_pos = node1->nd_body->nd_loc.end_pos; + return node1; + } + return NEW_ARGSPUSH(node1, node2, loc); +} + +static NODE * +arg_concat(struct parser_params *p, NODE *node1, NODE *node2, const YYLTYPE *loc) +{ + if (!node2) return node1; + switch (nd_type(node1)) { + case NODE_BLOCK_PASS: + if (node1->nd_head) + node1->nd_head = arg_concat(p, node1->nd_head, node2, loc); + else + node1->nd_head = NEW_LIST(node2, loc); + return node1; + case NODE_ARGSPUSH: + if (nd_type(node2) != NODE_ARRAY) break; + node1->nd_body = list_concat(NEW_LIST(node1->nd_body, loc), node2); + nd_set_type(node1, NODE_ARGSCAT); + return node1; + case NODE_ARGSCAT: + if (nd_type(node2) != NODE_ARRAY || + nd_type(node1->nd_body) != NODE_ARRAY) break; + node1->nd_body = list_concat(node1->nd_body, node2); + return node1; + } + return NEW_ARGSCAT(node1, node2, loc); +} + +static NODE * +last_arg_append(struct parser_params *p, NODE *args, NODE *last_arg, const YYLTYPE *loc) +{ + NODE *n1; + if ((n1 = splat_array(args)) != 0) { + return list_append(p, n1, last_arg); + } + return arg_append(p, args, last_arg, loc); +} + +static NODE * +rest_arg_append(struct parser_params *p, NODE *args, NODE *rest_arg, const YYLTYPE *loc) +{ + NODE *n1; + if ((nd_type(rest_arg) == NODE_ARRAY) && (n1 = splat_array(args)) != 0) { + return list_concat(n1, rest_arg); + } + return arg_concat(p, args, rest_arg, loc); +} + +static NODE * +splat_array(NODE* node) +{ + if (nd_type(node) == NODE_SPLAT) node = node->nd_head; + if (nd_type(node) == NODE_ARRAY) return node; + return 0; +} + +static void +mark_lvar_used(struct parser_params *p, NODE *rhs) +{ + ID *vidp = NULL; + if (!rhs) return; + switch (nd_type(rhs)) { + case NODE_LASGN: + if (local_id_ref(p, rhs->nd_vid, &vidp)) { + if (vidp) *vidp |= LVAR_USED; + } + break; + case NODE_DASGN: + case NODE_DASGN_CURR: + if (dvar_defined_ref(p, rhs->nd_vid, &vidp)) { + if (vidp) *vidp |= LVAR_USED; + } + break; +#if 0 + case NODE_MASGN: + for (rhs = rhs->nd_head; rhs; rhs = rhs->nd_next) { + mark_lvar_used(p, rhs->nd_head); + } + break; +#endif + } +} + +static NODE * +node_assign(struct parser_params *p, NODE *lhs, NODE *rhs, const YYLTYPE *loc) +{ + if (!lhs) return 0; + + switch (nd_type(lhs)) { + case NODE_GASGN: + case NODE_IASGN: + case NODE_LASGN: + case NODE_DASGN: + case NODE_DASGN_CURR: + case NODE_MASGN: + case NODE_CDECL: + case NODE_CVASGN: + lhs->nd_value = rhs; + nd_set_loc(lhs, loc); + break; + + case NODE_ATTRASGN: + lhs->nd_args = arg_append(p, lhs->nd_args, rhs, loc); + nd_set_loc(lhs, loc); + break; + + default: + /* should not happen */ + break; + } + + return lhs; +} + +static int +value_expr_gen(struct parser_params *p, NODE *node) +{ + int cond = 0; + + if (!node) { + rb_warning0("empty expression"); + } + while (node) { + switch (nd_type(node)) { + case NODE_RETURN: + case NODE_BREAK: + case NODE_NEXT: + case NODE_REDO: + case NODE_RETRY: + if (!cond) yyerror1(&node->nd_loc, "void value expression"); + /* or "control never reach"? */ + return FALSE; + + case NODE_BLOCK: + while (node->nd_next) { + node = node->nd_next; + } + node = node->nd_head; + break; + + case NODE_BEGIN: + node = node->nd_body; + break; + + case NODE_IF: + case NODE_UNLESS: + if (!node->nd_body) { + node = node->nd_else; + break; + } + else if (!node->nd_else) { + node = node->nd_body; + break; + } + if (!value_expr(node->nd_body)) return FALSE; + node = node->nd_else; + break; + + case NODE_AND: + case NODE_OR: + cond = 1; + node = node->nd_2nd; + break; + + case NODE_LASGN: + case NODE_DASGN: + case NODE_DASGN_CURR: + case NODE_MASGN: + mark_lvar_used(p, node); + return TRUE; + + default: + return TRUE; + } + } + + return TRUE; +} + +static void +void_expr(struct parser_params *p, NODE *node) +{ + const char *useless = 0; + + if (!RTEST(ruby_verbose)) return; + + if (!node || !(node = nd_once_body(node))) return; + switch (nd_type(node)) { + case NODE_OPCALL: + switch (node->nd_mid) { + case '+': + case '-': + case '*': + case '/': + case '%': + case tPOW: + case tUPLUS: + case tUMINUS: + case '|': + case '^': + case '&': + case tCMP: + case '>': + case tGEQ: + case '<': + case tLEQ: + case tEQ: + case tNEQ: + useless = rb_id2name(node->nd_mid); + break; + } + break; + + case NODE_LVAR: + case NODE_DVAR: + case NODE_GVAR: + case NODE_IVAR: + case NODE_CVAR: + case NODE_NTH_REF: + case NODE_BACK_REF: + useless = "a variable"; + break; + case NODE_CONST: + useless = "a constant"; + break; + case NODE_LIT: + case NODE_STR: + case NODE_DSTR: + case NODE_DREGX: + useless = "a literal"; + break; + case NODE_COLON2: + case NODE_COLON3: + useless = "::"; + break; + case NODE_DOT2: + useless = ".."; + break; + case NODE_DOT3: + useless = "..."; + break; + case NODE_SELF: + useless = "self"; + break; + case NODE_NIL: + useless = "nil"; + break; + case NODE_TRUE: + useless = "true"; + break; + case NODE_FALSE: + useless = "false"; + break; + case NODE_DEFINED: + useless = "defined?"; + break; + } + + if (useless) { + rb_warn1L(nd_line(node), "possibly useless use of %s in void context", WARN_S(useless)); + } +} + +static NODE * +void_stmts(struct parser_params *p, NODE *node) +{ + NODE *const n = node; + if (!RTEST(ruby_verbose)) return n; + if (!node) return n; + if (nd_type(node) != NODE_BLOCK) return n; + + while (node->nd_next) { + void_expr(p, node->nd_head); + node = node->nd_next; + } + return n; +} + +static NODE * +remove_begin(NODE *node) +{ + NODE **n = &node, *n1 = node; + while (n1 && nd_type(n1) == NODE_BEGIN && n1->nd_body) { + *n = n1 = n1->nd_body; + } + return node; +} + +static NODE * +remove_begin_all(NODE *node) +{ + NODE **n = &node, *n1 = node; + while (n1 && nd_type(n1) == NODE_BEGIN) { + *n = n1 = n1->nd_body; + } + return node; +} + +static void +reduce_nodes(struct parser_params *p, NODE **body) +{ + NODE *node = *body; + + if (!node) { + *body = NEW_NIL(&NULL_LOC); + return; + } +#define subnodes(n1, n2) \ + ((!node->n1) ? (node->n2 ? (body = &node->n2, 1) : 0) : \ + (!node->n2) ? (body = &node->n1, 1) : \ + (reduce_nodes(p, &node->n1), body = &node->n2, 1)) + + while (node) { + int newline = (int)(node->flags & NODE_FL_NEWLINE); + switch (nd_type(node)) { + end: + case NODE_NIL: + *body = 0; + return; + case NODE_RETURN: + *body = node = node->nd_stts; + if (newline && node) node->flags |= NODE_FL_NEWLINE; + continue; + case NODE_BEGIN: + *body = node = node->nd_body; + if (newline && node) node->flags |= NODE_FL_NEWLINE; + continue; + case NODE_BLOCK: + body = &node->nd_end->nd_head; + break; + case NODE_IF: + case NODE_UNLESS: + if (subnodes(nd_body, nd_else)) break; + return; + case NODE_CASE: + body = &node->nd_body; + break; + case NODE_WHEN: + if (!subnodes(nd_body, nd_next)) goto end; + break; + case NODE_ENSURE: + if (!subnodes(nd_head, nd_resq)) goto end; + break; + case NODE_RESCUE: + if (node->nd_else) { + body = &node->nd_resq; + break; + } + if (!subnodes(nd_head, nd_resq)) goto end; + break; + default: + return; + } + node = *body; + if (newline && node) node->flags |= NODE_FL_NEWLINE; + } + +#undef subnodes +} + +static int +is_static_content(NODE *node) +{ + if (!node) return 1; + switch (nd_type(node)) { + case NODE_HASH: + if (!(node = node->nd_head)) break; + case NODE_ARRAY: + do { + if (!is_static_content(node->nd_head)) return 0; + } while ((node = node->nd_next) != 0); + case NODE_LIT: + case NODE_STR: + case NODE_NIL: + case NODE_TRUE: + case NODE_FALSE: + case NODE_ZARRAY: + break; + default: + return 0; + } + return 1; +} + +static int +assign_in_cond(struct parser_params *p, NODE *node) +{ + switch (nd_type(node)) { + case NODE_MASGN: + case NODE_LASGN: + case NODE_DASGN: + case NODE_DASGN_CURR: + case NODE_GASGN: + case NODE_IASGN: + break; + + default: + return 0; + } + + if (!node->nd_value) return 1; + if (is_static_content(node->nd_value)) { + /* reports always */ + parser_warn(p, node->nd_value, "found `= literal' in conditional, should be =="); + } + return 1; +} + +static void +warn_unless_e_option(struct parser_params *p, NODE *node, const char *str) +{ + if (!e_option_supplied(p)) parser_warn(p, node, str); +} + +static void +warning_unless_e_option(struct parser_params *p, NODE *node, const char *str) +{ + if (!e_option_supplied(p)) parser_warning(p, node, str); +} + +static NODE *cond0(struct parser_params*,NODE*,int,const YYLTYPE*); + +static NODE* +range_op(struct parser_params *p, NODE *node, const YYLTYPE *loc) +{ + enum node_type type; + + if (node == 0) return 0; + + type = nd_type(node); + value_expr(node); + if (type == NODE_LIT && FIXNUM_P(node->nd_lit)) { + warn_unless_e_option(p, node, "integer literal in conditional range"); + return NEW_CALL(node, tEQ, NEW_LIST(NEW_GVAR(rb_intern("$."), loc), loc), loc); + } + return cond0(p, node, FALSE, loc); +} + +static int +literal_node(NODE *node) +{ + if (!node) return 1; /* same as NODE_NIL */ + if (!(node = nd_once_body(node))) return 1; + switch (nd_type(node)) { + case NODE_LIT: + case NODE_STR: + case NODE_DSTR: + case NODE_EVSTR: + case NODE_DREGX: + case NODE_DSYM: + return 2; + case NODE_TRUE: + case NODE_FALSE: + case NODE_NIL: + return 1; + } + return 0; +} + +static NODE* +cond0(struct parser_params *p, NODE *node, int method_op, const YYLTYPE *loc) +{ + if (node == 0) return 0; + if (!(node = nd_once_body(node))) return 0; + assign_in_cond(p, node); + + switch (nd_type(node)) { + case NODE_DSTR: + case NODE_EVSTR: + case NODE_STR: + if (!method_op) rb_warn0("string literal in condition"); + break; + + case NODE_DREGX: + { + if (!method_op) + warning_unless_e_option(p, node, "regex literal in condition"); + + return NEW_MATCH2(node, NEW_GVAR(idLASTLINE, loc), loc); + } + + case NODE_AND: + case NODE_OR: + node->nd_1st = cond0(p, node->nd_1st, FALSE, loc); + node->nd_2nd = cond0(p, node->nd_2nd, FALSE, loc); + break; + + case NODE_DOT2: + case NODE_DOT3: + node->nd_beg = range_op(p, node->nd_beg, loc); + node->nd_end = range_op(p, node->nd_end, loc); + if (nd_type(node) == NODE_DOT2) nd_set_type(node,NODE_FLIP2); + else if (nd_type(node) == NODE_DOT3) nd_set_type(node, NODE_FLIP3); + if (!method_op && !e_option_supplied(p)) { + int b = literal_node(node->nd_beg); + int e = literal_node(node->nd_end); + if ((b == 1 && e == 1) || (b + e >= 2 && RTEST(ruby_verbose))) { + parser_warn(p, node, "range literal in condition"); + } + } + break; + + case NODE_DSYM: + if (!method_op) parser_warning(p, node, "literal in condition"); + break; + + case NODE_LIT: + if (RB_TYPE_P(node->nd_lit, T_REGEXP)) { + if (!method_op) + warn_unless_e_option(p, node, "regex literal in condition"); + nd_set_type(node, NODE_MATCH); + } + else if (node->nd_lit == Qtrue || + node->nd_lit == Qfalse) { + /* booleans are OK, e.g., while true */ + } + else { + if (!method_op) + parser_warning(p, node, "literal in condition"); + } + default: + break; + } + return node; +} + +static NODE* +cond(struct parser_params *p, NODE *node, const YYLTYPE *loc) +{ + if (node == 0) return 0; + return cond0(p, node, FALSE, loc); +} + +static NODE* +method_cond(struct parser_params *p, NODE *node, const YYLTYPE *loc) +{ + if (node == 0) return 0; + return cond0(p, node, TRUE, loc); +} + +static NODE* +new_if(struct parser_params *p, NODE *cc, NODE *left, NODE *right, const YYLTYPE *loc) +{ + if (!cc) return right; + cc = cond0(p, cc, FALSE, loc); + return newline_node(NEW_IF(cc, left, right, loc)); +} + +static NODE* +new_unless(struct parser_params *p, NODE *cc, NODE *left, NODE *right, const YYLTYPE *loc) +{ + if (!cc) return right; + cc = cond0(p, cc, FALSE, loc); + return newline_node(NEW_UNLESS(cc, left, right, loc)); +} + +static NODE* +logop(struct parser_params *p, ID id, NODE *left, NODE *right, + const YYLTYPE *op_loc, const YYLTYPE *loc) +{ + enum node_type type = id == idAND || id == idANDOP ? NODE_AND : NODE_OR; + NODE *op; + value_expr(left); + if (left && (enum node_type)nd_type(left) == type) { + NODE *node = left, *second; + while ((second = node->nd_2nd) != 0 && (enum node_type)nd_type(second) == type) { + node = second; + } + node->nd_2nd = NEW_NODE(type, second, right, 0, loc); + nd_set_line(node->nd_2nd, op_loc->beg_pos.lineno); + left->nd_loc.end_pos = loc->end_pos; + return left; + } + op = NEW_NODE(type, left, right, 0, loc); + nd_set_line(op, op_loc->beg_pos.lineno); + return op; +} + +static void +no_blockarg(struct parser_params *p, NODE *node) +{ + if (node && nd_type(node) == NODE_BLOCK_PASS) { + compile_error(p, "block argument should not be given"); + } +} + +static NODE * +ret_args(struct parser_params *p, NODE *node) +{ + if (node) { + no_blockarg(p, node); + if (nd_type(node) == NODE_ARRAY) { + if (node->nd_next == 0) { + node = node->nd_head; + } + else { + nd_set_type(node, NODE_VALUES); + } + } + } + return node; +} + +static NODE * +new_yield(struct parser_params *p, NODE *node, const YYLTYPE *loc) +{ + if (node) no_blockarg(p, node); + + return NEW_YIELD(node, loc); +} + +static VALUE +negate_lit(struct parser_params *p, VALUE lit) +{ + if (FIXNUM_P(lit)) { + return LONG2FIX(-FIX2LONG(lit)); + } + if (SPECIAL_CONST_P(lit)) { +#if USE_FLONUM + if (FLONUM_P(lit)) { + return DBL2NUM(-RFLOAT_VALUE(lit)); + } +#endif + goto unknown; + } + switch (BUILTIN_TYPE(lit)) { + case T_BIGNUM: + BIGNUM_NEGATE(lit); + lit = rb_big_norm(lit); + break; + case T_RATIONAL: + RRATIONAL_SET_NUM(lit, negate_lit(p, RRATIONAL(lit)->num)); + break; + case T_COMPLEX: + RCOMPLEX_SET_REAL(lit, negate_lit(p, RCOMPLEX(lit)->real)); + RCOMPLEX_SET_IMAG(lit, negate_lit(p, RCOMPLEX(lit)->imag)); + break; + case T_FLOAT: + RFLOAT(lit)->float_value = -RFLOAT_VALUE(lit); + break; + unknown: + default: + rb_parser_fatal(p, "unknown literal type (%s) passed to negate_lit", + rb_builtin_class_name(lit)); + break; + } + return lit; +} + +static NODE * +arg_blk_pass(NODE *node1, NODE *node2) +{ + if (node2) { + if (!node1) return node2; + node2->nd_head = node1; + nd_set_first_lineno(node2, nd_first_lineno(node1)); + nd_set_first_column(node2, nd_first_column(node1)); + return node2; + } + return node1; +} + + +static NODE* +new_args(struct parser_params *p, NODE *pre_args, NODE *opt_args, ID rest_arg, NODE *post_args, NODE *tail, const YYLTYPE *loc) +{ + int saved_line = p->ruby_sourceline; + struct rb_args_info *args = tail->nd_ainfo; + + args->pre_args_num = pre_args ? rb_long2int(pre_args->nd_plen) : 0; + args->pre_init = pre_args ? pre_args->nd_next : 0; + + args->post_args_num = post_args ? rb_long2int(post_args->nd_plen) : 0; + args->post_init = post_args ? post_args->nd_next : 0; + args->first_post_arg = post_args ? post_args->nd_pid : 0; + + args->rest_arg = rest_arg; + + args->opt_args = opt_args; + + p->ruby_sourceline = saved_line; + nd_set_loc(tail, loc); + + return tail; +} + +static NODE* +new_args_tail(struct parser_params *p, NODE *kw_args, ID kw_rest_arg, ID block, const YYLTYPE *loc) +{ + int saved_line = p->ruby_sourceline; + struct rb_args_info *args; + NODE *node; + rb_imemo_tmpbuf_t *tmpbuf = new_tmpbuf(); + + args = ZALLOC(struct rb_args_info); + tmpbuf->ptr = (VALUE *)args; + node = NEW_NODE(NODE_ARGS, 0, 0, args, &NULL_LOC); + if (p->error_p) return node; + + args->block_arg = block; + args->kw_args = kw_args; + + if (kw_args) { + /* + * def foo(k1: 1, kr1:, k2: 2, **krest, &b) + * variable order: k1, kr1, k2, &b, internal_id, krest + * #=> <reorder> + * variable order: kr1, k1, k2, internal_id, krest, &b + */ + ID kw_bits = internal_id(p), *required_kw_vars, *kw_vars; + struct vtable *vtargs = p->lvtbl->args; + NODE *kwn = kw_args; + + vtable_pop(vtargs, !!block + !!kw_rest_arg); + required_kw_vars = kw_vars = &vtargs->tbl[vtargs->pos]; + while (kwn) { + if (!NODE_REQUIRED_KEYWORD_P(kwn->nd_body)) + --kw_vars; + --required_kw_vars; + kwn = kwn->nd_next; + } + + for (kwn = kw_args; kwn; kwn = kwn->nd_next) { + ID vid = kwn->nd_body->nd_vid; + if (NODE_REQUIRED_KEYWORD_P(kwn->nd_body)) { + *required_kw_vars++ = vid; + } + else { + *kw_vars++ = vid; + } + } + + arg_var(p, kw_bits); + if (kw_rest_arg) arg_var(p, kw_rest_arg); + if (block) arg_var(p, block); + + args->kw_rest_arg = NEW_DVAR(kw_rest_arg, loc); + args->kw_rest_arg->nd_cflag = kw_bits; + } + else if (kw_rest_arg) { + args->kw_rest_arg = NEW_DVAR(kw_rest_arg, loc); + } + + p->ruby_sourceline = saved_line; + return node; +} + +static NODE* +dsym_node(struct parser_params *p, NODE *node, const YYLTYPE *loc) +{ + VALUE lit; + + if (!node) { + return NEW_LIT(ID2SYM(idNULL), loc); + } + + switch (nd_type(node)) { + case NODE_DSTR: + nd_set_type(node, NODE_DSYM); + nd_set_loc(node, loc); + break; + case NODE_STR: + lit = node->nd_lit; + add_mark_object(p, node->nd_lit = ID2SYM(rb_intern_str(lit))); + nd_set_type(node, NODE_LIT); + nd_set_loc(node, loc); + break; + default: + node = NEW_NODE(NODE_DSYM, Qnil, 1, NEW_LIST(node, loc), loc); + break; + } + return node; +} + +static int +append_literal_keys(st_data_t k, st_data_t v, st_data_t h) +{ + NODE *node = (NODE *)v; + NODE **result = (NODE **)h; + node->nd_alen = 2; + node->nd_next->nd_end = node->nd_next; + node->nd_next->nd_next = 0; + if (*result) + list_concat(*result, node); + else + *result = node; + return ST_CONTINUE; +} + +static NODE * +remove_duplicate_keys(struct parser_params *p, NODE *hash) +{ + st_table *literal_keys = st_init_numtable_with_size(hash->nd_alen / 2); + NODE *result = 0; + while (hash && hash->nd_head && hash->nd_next) { + NODE *head = hash->nd_head; + NODE *value = hash->nd_next; + NODE *next = value->nd_next; + VALUE key = (VALUE)head; + st_data_t data; + if (nd_type(head) == NODE_LIT && + st_lookup(literal_keys, (key = head->nd_lit), &data)) { + rb_compile_warn(p->ruby_sourcefile, nd_line((NODE *)data), + "key %+"PRIsVALUE" is duplicated and overwritten on line %d", + head->nd_lit, nd_line(head)); + head = ((NODE *)data)->nd_next; + head->nd_head = block_append(p, head->nd_head, value->nd_head); + } + else { + st_insert(literal_keys, (st_data_t)key, (st_data_t)hash); + } + hash = next; + } + st_foreach(literal_keys, append_literal_keys, (st_data_t)&result); + st_free_table(literal_keys); + if (hash) { + if (!result) result = hash; + else list_concat(result, hash); + } + return result; +} + +static NODE * +new_hash(struct parser_params *p, NODE *hash, const YYLTYPE *loc) +{ + if (hash) hash = remove_duplicate_keys(p, hash); + return NEW_HASH(hash, loc); +} +#endif /* !RIPPER */ + +#ifndef RIPPER +static NODE * +new_op_assign(struct parser_params *p, NODE *lhs, ID op, NODE *rhs, const YYLTYPE *loc) +{ + NODE *asgn; + + if (lhs) { + ID vid = lhs->nd_vid; + YYLTYPE lhs_loc = lhs->nd_loc; + if (op == tOROP) { + lhs->nd_value = rhs; + nd_set_loc(lhs, loc); + asgn = NEW_OP_ASGN_OR(gettable(p, vid, &lhs_loc), lhs, loc); + if (is_notop_id(vid)) { + switch (id_type(vid)) { + case ID_GLOBAL: + case ID_INSTANCE: + case ID_CLASS: + asgn->nd_aid = vid; + } + } + } + else if (op == tANDOP) { + lhs->nd_value = rhs; + nd_set_loc(lhs, loc); + asgn = NEW_OP_ASGN_AND(gettable(p, vid, &lhs_loc), lhs, loc); + } + else { + asgn = lhs; + asgn->nd_value = NEW_CALL(gettable(p, vid, &lhs_loc), op, NEW_LIST(rhs, &rhs->nd_loc), loc); + nd_set_loc(asgn, loc); + } + } + else { + asgn = NEW_BEGIN(0, loc); + } + return asgn; +} + +static NODE * +new_ary_op_assign(struct parser_params *p, NODE *ary, + NODE *args, ID op, NODE *rhs, const YYLTYPE *args_loc, const YYLTYPE *loc) +{ + NODE *asgn; + + args = make_array(args, args_loc); + if (nd_type(args) == NODE_BLOCK_PASS) { + args = NEW_ARGSCAT(args, rhs, loc); + } + else { + args = arg_concat(p, args, rhs, loc); + } + asgn = NEW_OP_ASGN1(ary, op, args, loc); + fixpos(asgn, ary); + return asgn; +} + +static NODE * +new_attr_op_assign(struct parser_params *p, NODE *lhs, + ID atype, ID attr, ID op, NODE *rhs, const YYLTYPE *loc) +{ + NODE *asgn; + + asgn = NEW_OP_ASGN2(lhs, CALL_Q_P(atype), attr, op, rhs, loc); + fixpos(asgn, lhs); + return asgn; +} + +static NODE * +new_const_op_assign(struct parser_params *p, NODE *lhs, ID op, NODE *rhs, const YYLTYPE *loc) +{ + NODE *asgn; + + if (lhs) { + asgn = NEW_OP_CDECL(lhs, op, rhs, loc); + } + else { + asgn = NEW_BEGIN(0, loc); + } + fixpos(asgn, lhs); + return asgn; +} + +static NODE * +const_decl(struct parser_params *p, NODE *path, const YYLTYPE *loc) +{ + if (p->in_def) { + yyerror1(loc, "dynamic constant assignment"); + } + return NEW_CDECL(0, 0, (path), loc); +} +#else +static VALUE +const_decl(struct parser_params *p, VALUE path) +{ + if (p->in_def) { + path = dispatch1(assign_error, path); + ripper_error(p); + } + return path; +} + +static VALUE +assign_error(struct parser_params *p, VALUE a) +{ + a = dispatch1(assign_error, a); + ripper_error(p); + return a; +} + +static VALUE +var_field(struct parser_params *p, VALUE a) +{ + return ripper_new_yylval(p, get_id(a), dispatch1(var_field, a), 0); +} +#endif + +#ifndef RIPPER +static NODE * +new_bodystmt(struct parser_params *p, NODE *head, NODE *rescue, NODE *rescue_else, NODE *ensure, const YYLTYPE *loc) +{ + NODE *result = head; + if (rescue) { + NODE *tmp = rescue_else ? rescue_else : rescue; + YYLTYPE rescue_loc = code_loc_gen(&head->nd_loc, &tmp->nd_loc); + + result = NEW_RESCUE(head, rescue, rescue_else, &rescue_loc); + nd_set_line(result, rescue->nd_loc.beg_pos.lineno); + } + else if (rescue_else) { + result = block_append(p, result, rescue_else); + } + if (ensure) { + result = NEW_ENSURE(result, ensure, loc); + } + fixpos(result, head); + return result; +} +#endif + +static void +warn_unused_var(struct parser_params *p, struct local_vars *local) +{ + int i, cnt; + ID *v, *u; + + if (!local->used) return; + v = local->vars->tbl; + u = local->used->tbl; + cnt = local->used->pos; + if (cnt != local->vars->pos) { + rb_parser_fatal(p, "local->used->pos != local->vars->pos"); + } + for (i = 0; i < cnt; ++i) { + if (!v[i] || (u[i] & LVAR_USED)) continue; + if (is_private_local_id(v[i])) continue; + rb_warn1L((int)u[i], "assigned but unused variable - %"PRIsWARN, rb_id2str(v[i])); + } +} + +static void +local_push(struct parser_params *p, int toplevel_scope) +{ + struct local_vars *local; + int inherits_dvars = toplevel_scope && (compile_for_eval || p->in_main /* is p->in_main really needed? */); + int warn_unused_vars = RTEST(ruby_verbose); + + local = ALLOC(struct local_vars); + local->prev = p->lvtbl; + local->args = vtable_alloc(0); + local->vars = vtable_alloc(inherits_dvars ? DVARS_INHERIT : DVARS_TOPSCOPE); +#ifndef RIPPER + if (toplevel_scope && compile_for_eval) warn_unused_vars = 0; + if (toplevel_scope && e_option_supplied(p)) warn_unused_vars = 0; +#endif + local->used = warn_unused_vars ? vtable_alloc(0) : 0; + +# if WARN_PAST_SCOPE + local->past = 0; +# endif + CMDARG_PUSH(0); + COND_PUSH(0); + p->lvtbl = local; +} + +static void +local_pop(struct parser_params *p) +{ + struct local_vars *local = p->lvtbl->prev; + if (p->lvtbl->used) { + warn_unused_var(p, p->lvtbl); + vtable_free(p->lvtbl->used); + } +# if WARN_PAST_SCOPE + while (p->lvtbl->past) { + struct vtable *past = p->lvtbl->past; + p->lvtbl->past = past->prev; + vtable_free(past); + } +# endif + vtable_free(p->lvtbl->args); + vtable_free(p->lvtbl->vars); + CMDARG_POP(); + COND_POP(); + ruby_sized_xfree(p->lvtbl, sizeof(*p->lvtbl)); + p->lvtbl = local; +} + +#ifndef RIPPER +static ID* +local_tbl(struct parser_params *p) +{ + int cnt_args = vtable_size(p->lvtbl->args); + int cnt_vars = vtable_size(p->lvtbl->vars); + int cnt = cnt_args + cnt_vars; + int i, j; + ID *buf; + rb_imemo_tmpbuf_t *tmpbuf = new_tmpbuf(); + + if (cnt <= 0) return 0; + buf = ALLOC_N(ID, cnt + 1); + tmpbuf->ptr = (void *)buf; + MEMCPY(buf+1, p->lvtbl->args->tbl, ID, cnt_args); + /* remove IDs duplicated to warn shadowing */ + for (i = 0, j = cnt_args+1; i < cnt_vars; ++i) { + ID id = p->lvtbl->vars->tbl[i]; + if (!vtable_included(p->lvtbl->args, id)) { + buf[j++] = id; + } + } + if (--j < cnt) tmpbuf->ptr = (void *)REALLOC_N(buf, ID, (cnt = j) + 1); + buf[0] = cnt; + + return buf; +} +#endif + +static void +arg_var(struct parser_params *p, ID id) +{ + vtable_add(p->lvtbl->args, id); +} + +static void +local_var(struct parser_params *p, ID id) +{ + vtable_add(p->lvtbl->vars, id); + if (p->lvtbl->used) { + vtable_add(p->lvtbl->used, (ID)p->ruby_sourceline); + } +} + +static int +local_id_ref(struct parser_params *p, ID id, ID **vidrefp) +{ + struct vtable *vars, *args, *used; + + vars = p->lvtbl->vars; + args = p->lvtbl->args; + used = p->lvtbl->used; + + while (vars && !DVARS_TERMINAL_P(vars->prev)) { + vars = vars->prev; + args = args->prev; + if (used) used = used->prev; + } + + if (vars && vars->prev == DVARS_INHERIT) { + return rb_local_defined(id, p->base_block); + } + else if (vtable_included(args, id)) { + return 1; + } + else { + int i = vtable_included(vars, id); + if (i && used && vidrefp) *vidrefp = &used->tbl[i-1]; + return i != 0; + } +} + +static int +local_id(struct parser_params *p, ID id) +{ + return local_id_ref(p, id, NULL); +} + +static const struct vtable * +dyna_push(struct parser_params *p) +{ + p->lvtbl->args = vtable_alloc(p->lvtbl->args); + p->lvtbl->vars = vtable_alloc(p->lvtbl->vars); + if (p->lvtbl->used) { + p->lvtbl->used = vtable_alloc(p->lvtbl->used); + } + return p->lvtbl->args; +} + +static void +dyna_pop_vtable(struct parser_params *p, struct vtable **vtblp) +{ + struct vtable *tmp = *vtblp; + *vtblp = tmp->prev; +# if WARN_PAST_SCOPE + if (p->past_scope_enabled) { + tmp->prev = p->lvtbl->past; + p->lvtbl->past = tmp; + return; + } +# endif + vtable_free(tmp); +} + +static void +dyna_pop_1(struct parser_params *p) +{ + struct vtable *tmp; + + if ((tmp = p->lvtbl->used) != 0) { + warn_unused_var(p, p->lvtbl); + p->lvtbl->used = p->lvtbl->used->prev; + vtable_free(tmp); + } + dyna_pop_vtable(p, &p->lvtbl->args); + dyna_pop_vtable(p, &p->lvtbl->vars); +} + +static void +dyna_pop(struct parser_params *p, const struct vtable *lvargs) +{ + while (p->lvtbl->args != lvargs) { + dyna_pop_1(p); + if (!p->lvtbl->args) { + struct local_vars *local = p->lvtbl->prev; + ruby_sized_xfree(p->lvtbl, sizeof(*p->lvtbl)); + p->lvtbl = local; + } + } + dyna_pop_1(p); +} + +static int +dyna_in_block(struct parser_params *p) +{ + return !DVARS_TERMINAL_P(p->lvtbl->vars) && p->lvtbl->vars->prev != DVARS_TOPSCOPE; +} + +static int +dvar_defined_ref(struct parser_params *p, ID id, ID **vidrefp) +{ + struct vtable *vars, *args, *used; + int i; + + args = p->lvtbl->args; + vars = p->lvtbl->vars; + used = p->lvtbl->used; + + while (!DVARS_TERMINAL_P(vars)) { + if (vtable_included(args, id)) { + return 1; + } + if ((i = vtable_included(vars, id)) != 0) { + if (used && vidrefp) *vidrefp = &used->tbl[i-1]; + return 1; + } + args = args->prev; + vars = vars->prev; + if (!vidrefp) used = 0; + if (used) used = used->prev; + } + + if (vars == DVARS_INHERIT) { + return rb_dvar_defined(id, p->base_block); + } + + return 0; +} + +static int +dvar_defined(struct parser_params *p, ID id) +{ + return dvar_defined_ref(p, id, NULL); +} + +static int +dvar_curr(struct parser_params *p, ID id) +{ + return (vtable_included(p->lvtbl->args, id) || + vtable_included(p->lvtbl->vars, id)); +} + +static void +reg_fragment_enc_error(struct parser_params* p, VALUE str, int c) +{ + compile_error(p, + "regexp encoding option '%c' differs from source encoding '%s'", + c, rb_enc_name(rb_enc_get(str))); +} + +#ifndef RIPPER +int +rb_reg_fragment_setenc(struct parser_params* p, VALUE str, int options) +{ + int c = RE_OPTION_ENCODING_IDX(options); + + if (c) { + int opt, idx; + rb_char_to_option_kcode(c, &opt, &idx); + if (idx != ENCODING_GET(str) && + rb_enc_str_coderange(str) != ENC_CODERANGE_7BIT) { + goto error; + } + ENCODING_SET(str, idx); + } + else if (RE_OPTION_ENCODING_NONE(options)) { + if (!ENCODING_IS_ASCII8BIT(str) && + rb_enc_str_coderange(str) != ENC_CODERANGE_7BIT) { + c = 'n'; + goto error; + } + rb_enc_associate(str, rb_ascii8bit_encoding()); + } + else if (p->enc == rb_usascii_encoding()) { + if (rb_enc_str_coderange(str) != ENC_CODERANGE_7BIT) { + /* raise in re.c */ + rb_enc_associate(str, rb_usascii_encoding()); + } + else { + rb_enc_associate(str, rb_ascii8bit_encoding()); + } + } + return 0; + + error: + return c; +} + +static void +reg_fragment_setenc(struct parser_params* p, VALUE str, int options) +{ + int c = rb_reg_fragment_setenc(p, str, options); + if (c) reg_fragment_enc_error(p, str, c); +} + +static int +reg_fragment_check(struct parser_params* p, VALUE str, int options) +{ + VALUE err; + reg_fragment_setenc(p, str, options); + err = rb_reg_check_preprocess(str); + if (err != Qnil) { + err = rb_obj_as_string(err); + compile_error(p, "%"PRIsVALUE, err); + return 0; + } + return 1; +} + +typedef struct { + struct parser_params* parser; + rb_encoding *enc; + NODE *succ_block; + const YYLTYPE *loc; +} reg_named_capture_assign_t; + +static int +reg_named_capture_assign_iter(const OnigUChar *name, const OnigUChar *name_end, + int back_num, int *back_refs, OnigRegex regex, void *arg0) +{ + reg_named_capture_assign_t *arg = (reg_named_capture_assign_t*)arg0; + struct parser_params* p = arg->parser; + rb_encoding *enc = arg->enc; + long len = name_end - name; + const char *s = (const char *)name; + ID var; + NODE *node, *succ; + + if (!len) return ST_CONTINUE; + if (len < MAX_WORD_LENGTH && rb_reserved_word(s, (int)len)) + return ST_CONTINUE; + if (rb_enc_symname_type(s, len, enc, (1U<<ID_LOCAL)) != ID_LOCAL) + return ST_CONTINUE; + + var = intern_cstr(s, len, enc); + node = node_assign(p, assignable(p, var, 0, arg->loc), NEW_LIT(ID2SYM(var), arg->loc), arg->loc); + succ = arg->succ_block; + if (!succ) succ = NEW_BEGIN(0, arg->loc); + succ = block_append(p, succ, node); + arg->succ_block = succ; + return ST_CONTINUE; +} + +static NODE * +reg_named_capture_assign(struct parser_params* p, VALUE regexp, const YYLTYPE *loc) +{ + reg_named_capture_assign_t arg; + + arg.parser = p; + arg.enc = rb_enc_get(regexp); + arg.succ_block = 0; + arg.loc = loc; + onig_foreach_name(RREGEXP_PTR(regexp), reg_named_capture_assign_iter, &arg); + + if (!arg.succ_block) return 0; + return arg.succ_block->nd_next; +} + +static VALUE +parser_reg_compile(struct parser_params* p, VALUE str, int options) +{ + reg_fragment_setenc(p, str, options); + return rb_parser_reg_compile(p, str, options); +} + +VALUE +rb_parser_reg_compile(struct parser_params* p, VALUE str, int options) +{ + return rb_reg_compile(str, options & RE_OPTION_MASK, p->ruby_sourcefile, p->ruby_sourceline); +} + +static VALUE +reg_compile(struct parser_params* p, VALUE str, int options) +{ + VALUE re; + VALUE err; + + err = rb_errinfo(); + re = parser_reg_compile(p, str, options); + if (NIL_P(re)) { + VALUE m = rb_attr_get(rb_errinfo(), idMesg); + rb_set_errinfo(err); + compile_error(p, "%"PRIsVALUE, m); + return Qnil; + } + return re; +} +#else +static VALUE +parser_reg_compile(struct parser_params* p, VALUE str, int options, VALUE *errmsg) +{ + VALUE err = rb_errinfo(); + VALUE re; + int c = rb_reg_fragment_setenc(p, str, options); + if (c) reg_fragment_enc_error(p, str, c); + re = rb_parser_reg_compile(p, str, options); + if (NIL_P(re)) { + *errmsg = rb_attr_get(rb_errinfo(), idMesg); + rb_set_errinfo(err); + } + return re; +} +#endif + +#ifndef RIPPER +void +rb_parser_set_options(VALUE vparser, int print, int loop, int chomp, int split) +{ + struct parser_params *p; + TypedData_Get_Struct(vparser, struct parser_params, &parser_data_type, p); + p->do_print = print; + p->do_loop = loop; + p->do_chomp = chomp; + p->do_split = split; +} + +void +rb_parser_warn_location(VALUE vparser, int warn) +{ + struct parser_params *p; + TypedData_Get_Struct(vparser, struct parser_params, &parser_data_type, p); + p->warn_location = warn; +} + +static NODE * +parser_append_options(struct parser_params *p, NODE *node) +{ + static const YYLTYPE default_location = {{1, 0}, {1, 0}}; + const YYLTYPE *const LOC = &default_location; + + if (p->do_print) { + NODE *print = NEW_FCALL(rb_intern("print"), + NEW_ARRAY(NEW_GVAR(idLASTLINE, LOC), LOC), + LOC); + node = block_append(p, node, print); + } + + if (p->do_loop) { + if (p->do_split) { + NODE *split = NEW_GASGN(rb_intern("$F"), + NEW_CALL(NEW_GVAR(idLASTLINE, LOC), + rb_intern("split"), 0, LOC), + LOC); + node = block_append(p, split, node); + } + if (p->do_chomp) { + NODE *chomp = NEW_CALL(NEW_GVAR(idLASTLINE, LOC), + rb_intern("chomp!"), 0, LOC); + node = block_append(p, chomp, node); + } + + node = NEW_WHILE(NEW_VCALL(idGets, LOC), node, 1, LOC); + } + + return node; +} + +void +rb_init_parse(void) +{ + /* just to suppress unused-function warnings */ + (void)nodetype; + (void)nodeline; +} +#endif /* !RIPPER */ + +static ID +internal_id(struct parser_params *p) +{ + const ID max_id = RB_ID_SERIAL_MAX & ~0xffff; + ID id = (ID)vtable_size(p->lvtbl->args) + (ID)vtable_size(p->lvtbl->vars); + id = max_id - id; + return ID_STATIC_SYM | ID_INTERNAL | (id << ID_SCOPE_SHIFT); +} + +static void +parser_initialize(struct parser_params *p) +{ + /* note: we rely on TypedData_Make_Struct to set most fields to 0 */ + p->command_start = TRUE; + p->ruby_sourcefile_string = Qnil; + p->lex.lpar_beg = -1; /* make lambda_beginning_p() == FALSE at first */ + p->node_id = 0; +#ifdef RIPPER + p->delayed = Qnil; + p->result = Qnil; + p->parsing_thread = Qnil; +#else + p->error_buffer = Qfalse; +#endif + p->debug_buffer = Qnil; + p->debug_output = rb_stdout; + p->enc = rb_utf8_encoding(); +} + +#ifdef RIPPER +#define parser_mark ripper_parser_mark +#define parser_free ripper_parser_free +#endif + +static void +parser_mark(void *ptr) +{ + struct parser_params *p = (struct parser_params*)ptr; + + rb_gc_mark(p->lex.input); + rb_gc_mark(p->lex.prevline); + rb_gc_mark(p->lex.lastline); + rb_gc_mark(p->lex.nextline); + rb_gc_mark(p->ruby_sourcefile_string); + rb_gc_mark((VALUE)p->lex.strterm); + rb_gc_mark((VALUE)p->ast); +#ifndef RIPPER + rb_gc_mark(p->debug_lines); + rb_gc_mark(p->compile_option); + rb_gc_mark(p->error_buffer); +#else + rb_gc_mark(p->delayed); + rb_gc_mark(p->value); + rb_gc_mark(p->result); + rb_gc_mark(p->parsing_thread); +#endif + rb_gc_mark(p->debug_buffer); + rb_gc_mark(p->debug_output); +#ifdef YYMALLOC + rb_gc_mark((VALUE)p->heap); +#endif +} + +static void +parser_free(void *ptr) +{ + struct parser_params *p = (struct parser_params*)ptr; + struct local_vars *local, *prev; + + if (p->tokenbuf) { + ruby_sized_xfree(p->tokenbuf, p->toksiz); + } + for (local = p->lvtbl; local; local = prev) { + if (local->vars) xfree(local->vars); + prev = local->prev; + xfree(local); + } + { + token_info *ptinfo; + while ((ptinfo = p->token_info) != 0) { + p->token_info = ptinfo->next; + xfree(ptinfo); + } + } + xfree(ptr); +} + +static size_t +parser_memsize(const void *ptr) +{ + struct parser_params *p = (struct parser_params*)ptr; + struct local_vars *local; + size_t size = sizeof(*p); + + size += p->toksiz; + for (local = p->lvtbl; local; local = local->prev) { + size += sizeof(*local); + if (local->vars) size += local->vars->capa * sizeof(ID); + } + return size; +} + +static const rb_data_type_t parser_data_type = { +#ifndef RIPPER + "parser", +#else + "ripper", +#endif + { + parser_mark, + parser_free, + parser_memsize, + }, + 0, 0, RUBY_TYPED_FREE_IMMEDIATELY +}; + +#ifndef RIPPER +#undef rb_reserved_word + +const struct kwtable * +rb_reserved_word(const char *str, unsigned int len) +{ + return reserved_word(str, len); +} + +VALUE +rb_parser_new(void) +{ + struct parser_params *p; + VALUE parser = TypedData_Make_Struct(0, struct parser_params, + &parser_data_type, p); + parser_initialize(p); + return parser; +} + +VALUE +rb_parser_set_context(VALUE vparser, const struct rb_block *base, int main) +{ + struct parser_params *p; + + TypedData_Get_Struct(vparser, struct parser_params, &parser_data_type, p); + p->error_buffer = main ? Qfalse : Qnil; + p->base_block = base; + p->in_main = main; + return vparser; +} +#endif + +#ifdef RIPPER +#define rb_parser_end_seen_p ripper_parser_end_seen_p +#define rb_parser_encoding ripper_parser_encoding +#define rb_parser_get_yydebug ripper_parser_get_yydebug +#define rb_parser_set_yydebug ripper_parser_set_yydebug +static VALUE ripper_parser_end_seen_p(VALUE vparser); +static VALUE ripper_parser_encoding(VALUE vparser); +static VALUE ripper_parser_get_yydebug(VALUE self); +static VALUE ripper_parser_set_yydebug(VALUE self, VALUE flag); + +/* + * call-seq: + * ripper.error? -> Boolean + * + * Return true if parsed source has errors. + */ +static VALUE +ripper_error_p(VALUE vparser) +{ + struct parser_params *p; + + TypedData_Get_Struct(vparser, struct parser_params, &parser_data_type, p); + return p->error_p ? Qtrue : Qfalse; +} +#endif + +/* + * call-seq: + * ripper.end_seen? -> Boolean + * + * Return true if parsed source ended by +\_\_END\_\_+. + */ +VALUE +rb_parser_end_seen_p(VALUE vparser) +{ + struct parser_params *p; + + TypedData_Get_Struct(vparser, struct parser_params, &parser_data_type, p); + return p->ruby__end__seen ? Qtrue : Qfalse; +} + +/* + * call-seq: + * ripper.encoding -> encoding + * + * Return encoding of the source. + */ +VALUE +rb_parser_encoding(VALUE vparser) +{ + struct parser_params *p; + + TypedData_Get_Struct(vparser, struct parser_params, &parser_data_type, p); + return rb_enc_from_encoding(p->enc); +} + +/* + * call-seq: + * ripper.yydebug -> true or false + * + * Get yydebug. + */ +VALUE +rb_parser_get_yydebug(VALUE self) +{ + struct parser_params *p; + + TypedData_Get_Struct(self, struct parser_params, &parser_data_type, p); + return p->debug ? Qtrue : Qfalse; +} + +/* + * call-seq: + * ripper.yydebug = flag + * + * Set yydebug. + */ +VALUE +rb_parser_set_yydebug(VALUE self, VALUE flag) +{ + struct parser_params *p; + + TypedData_Get_Struct(self, struct parser_params, &parser_data_type, p); + p->debug = RTEST(flag); + return flag; +} + +#ifndef RIPPER +#ifdef YYMALLOC +#define HEAPCNT(n, size) ((n) * (size) / sizeof(YYSTYPE)) +/* Keep the order; NEWHEAP then xmalloc and ADD2HEAP to get rid of + * potential memory leak */ +#define NEWHEAP() rb_imemo_tmpbuf_parser_heap(0, p->heap, 0) +#define ADD2HEAP(new, cnt, ptr) ((p->heap = (new))->ptr = (ptr), \ + (new)->cnt = (cnt), (ptr)) + +void * +rb_parser_malloc(struct parser_params *p, size_t size) +{ + size_t cnt = HEAPCNT(1, size); + rb_imemo_tmpbuf_t *n = NEWHEAP(); + void *ptr = xmalloc(size); + + return ADD2HEAP(n, cnt, ptr); +} + +void * +rb_parser_calloc(struct parser_params *p, size_t nelem, size_t size) +{ + size_t cnt = HEAPCNT(nelem, size); + rb_imemo_tmpbuf_t *n = NEWHEAP(); + void *ptr = xcalloc(nelem, size); + + return ADD2HEAP(n, cnt, ptr); +} + +void * +rb_parser_realloc(struct parser_params *p, void *ptr, size_t size) +{ + rb_imemo_tmpbuf_t *n; + size_t cnt = HEAPCNT(1, size); + + if (ptr && (n = p->heap) != NULL) { + do { + if (n->ptr == ptr) { + n->ptr = ptr = xrealloc(ptr, size); + if (n->cnt) n->cnt = cnt; + return ptr; + } + } while ((n = n->next) != NULL); + } + n = NEWHEAP(); + ptr = xrealloc(ptr, size); + return ADD2HEAP(n, cnt, ptr); +} + +void +rb_parser_free(struct parser_params *p, void *ptr) +{ + rb_imemo_tmpbuf_t **prev = &p->heap, *n; + + while ((n = *prev) != NULL) { + if (n->ptr == ptr) { + *prev = n->next; + rb_gc_force_recycle((VALUE)n); + break; + } + prev = &n->next; + } + xfree(ptr); +} +#endif + +void +rb_parser_printf(struct parser_params *p, const char *fmt, ...) +{ + va_list ap; + VALUE mesg = p->debug_buffer; + + if (NIL_P(mesg)) p->debug_buffer = mesg = rb_str_new(0, 0); + va_start(ap, fmt); + rb_str_vcatf(mesg, fmt, ap); + va_end(ap); + if (RSTRING_END(mesg)[-1] == '\n') { + rb_io_write(p->debug_output, mesg); + p->debug_buffer = Qnil; + } +} + +static void +parser_compile_error(struct parser_params *p, const char *fmt, ...) +{ + va_list ap; + + rb_io_flush(p->debug_output); + p->error_p = 1; + va_start(ap, fmt); + p->error_buffer = + rb_syntax_error_append(p->error_buffer, + p->ruby_sourcefile_string, + p->ruby_sourceline, + rb_long2int(p->lex.pcur - p->lex.pbeg), + p->enc, fmt, ap); + va_end(ap); +} +#endif + +#ifdef RIPPER +#ifdef RIPPER_DEBUG +extern int rb_is_pointer_to_heap(VALUE); + +/* :nodoc: */ +static VALUE +ripper_validate_object(VALUE self, VALUE x) +{ + if (x == Qfalse) return x; + if (x == Qtrue) return x; + if (x == Qnil) return x; + if (x == Qundef) + rb_raise(rb_eArgError, "Qundef given"); + if (FIXNUM_P(x)) return x; + if (SYMBOL_P(x)) return x; + if (!rb_is_pointer_to_heap(x)) + rb_raise(rb_eArgError, "invalid pointer: %p", x); + switch (BUILTIN_TYPE(x)) { + case T_STRING: + case T_OBJECT: + case T_ARRAY: + case T_BIGNUM: + case T_FLOAT: + case T_COMPLEX: + case T_RATIONAL: + return x; + case T_NODE: + if (nd_type(x) != NODE_RIPPER) { + rb_raise(rb_eArgError, "NODE given: %p", x); + } + return ((NODE *)x)->nd_rval; + default: + rb_raise(rb_eArgError, "wrong type of ruby object: %p (%s)", + x, rb_obj_classname(x)); + } + return x; +} +#endif + +#define validate(x) ((x) = get_value(x)) + +static VALUE +ripper_dispatch0(struct parser_params *p, ID mid) +{ + return rb_funcall(p->value, mid, 0); +} + +static VALUE +ripper_dispatch1(struct parser_params *p, ID mid, VALUE a) +{ + validate(a); + return rb_funcall(p->value, mid, 1, a); +} + +static VALUE +ripper_dispatch2(struct parser_params *p, ID mid, VALUE a, VALUE b) +{ + validate(a); + validate(b); + return rb_funcall(p->value, mid, 2, a, b); +} + +static VALUE +ripper_dispatch3(struct parser_params *p, ID mid, VALUE a, VALUE b, VALUE c) +{ + validate(a); + validate(b); + validate(c); + return rb_funcall(p->value, mid, 3, a, b, c); +} + +static VALUE +ripper_dispatch4(struct parser_params *p, ID mid, VALUE a, VALUE b, VALUE c, VALUE d) +{ + validate(a); + validate(b); + validate(c); + validate(d); + return rb_funcall(p->value, mid, 4, a, b, c, d); +} + +static VALUE +ripper_dispatch5(struct parser_params *p, ID mid, VALUE a, VALUE b, VALUE c, VALUE d, VALUE e) +{ + validate(a); + validate(b); + validate(c); + validate(d); + validate(e); + return rb_funcall(p->value, mid, 5, a, b, c, d, e); +} + +static VALUE +ripper_dispatch7(struct parser_params *p, ID mid, VALUE a, VALUE b, VALUE c, VALUE d, VALUE e, VALUE f, VALUE g) +{ + validate(a); + validate(b); + validate(c); + validate(d); + validate(e); + validate(f); + validate(g); + return rb_funcall(p->value, mid, 7, a, b, c, d, e, f, g); +} + +static ID +ripper_get_id(VALUE v) +{ + NODE *nd; + if (!RB_TYPE_P(v, T_NODE)) return 0; + nd = (NODE *)v; + if (nd_type(nd) != NODE_RIPPER) return 0; + return nd->nd_vid; +} + +static VALUE +ripper_get_value(VALUE v) +{ + NODE *nd; + if (v == Qundef) return Qnil; + if (!RB_TYPE_P(v, T_NODE)) return v; + nd = (NODE *)v; + if (nd_type(nd) != NODE_RIPPER) return Qnil; + return nd->nd_rval; +} + +static void +ripper_error(struct parser_params *p) +{ + p->error_p = TRUE; +} + +static void +ripper_compile_error(struct parser_params *p, const char *fmt, ...) +{ + VALUE str; + va_list args; + + va_start(args, fmt); + str = rb_vsprintf(fmt, args); + va_end(args); + rb_funcall(p->value, rb_intern("compile_error"), 1, str); + ripper_error(p); +} + +static VALUE +ripper_lex_get_generic(struct parser_params *p, VALUE src) +{ + VALUE line = rb_funcallv_public(src, id_gets, 0, 0); + if (!NIL_P(line) && !RB_TYPE_P(line, T_STRING)) { + rb_raise(rb_eTypeError, + "gets returned %"PRIsVALUE" (expected String or nil)", + rb_obj_class(line)); + } + return line; +} + +static VALUE +ripper_lex_io_get(struct parser_params *p, VALUE src) +{ + return rb_io_gets(src); +} + +static VALUE +ripper_s_allocate(VALUE klass) +{ + struct parser_params *p; + VALUE self = TypedData_Make_Struct(klass, struct parser_params, + &parser_data_type, p); + p->value = self; + return self; +} + +#define ripper_initialized_p(r) ((r)->lex.input != 0) + +/* + * call-seq: + * Ripper.new(src, filename="(ripper)", lineno=1) -> ripper + * + * Create a new Ripper object. + * _src_ must be a String, an IO, or an Object which has #gets method. + * + * This method does not starts parsing. + * See also Ripper#parse and Ripper.parse. + */ +static VALUE +ripper_initialize(int argc, VALUE *argv, VALUE self) +{ + struct parser_params *p; + VALUE src, fname, lineno; + + TypedData_Get_Struct(self, struct parser_params, &parser_data_type, p); + rb_scan_args(argc, argv, "12", &src, &fname, &lineno); + if (RB_TYPE_P(src, T_FILE)) { + p->lex.gets = ripper_lex_io_get; + } + else if (rb_respond_to(src, id_gets)) { + p->lex.gets = ripper_lex_get_generic; + } + else { + StringValue(src); + p->lex.gets = lex_get_str; + } + p->lex.input = src; + p->eofp = 0; + if (NIL_P(fname)) { + fname = STR_NEW2("(ripper)"); + OBJ_FREEZE(fname); + } + else { + StringValueCStr(fname); + fname = rb_str_new_frozen(fname); + } + parser_initialize(p); + + p->ruby_sourcefile_string = fname; + p->ruby_sourcefile = RSTRING_PTR(fname); + p->ruby_sourceline = NIL_P(lineno) ? 0 : NUM2INT(lineno) - 1; + + return Qnil; +} + +static VALUE +ripper_parse0(VALUE parser_v) +{ + struct parser_params *p; + + TypedData_Get_Struct(parser_v, struct parser_params, &parser_data_type, p); + parser_prepare(p); + p->ast = rb_ast_new(); + ripper_yyparse((void*)p); + rb_ast_dispose(p->ast); + p->ast = 0; + return p->result; +} + +static VALUE +ripper_ensure(VALUE parser_v) +{ + struct parser_params *p; + + TypedData_Get_Struct(parser_v, struct parser_params, &parser_data_type, p); + p->parsing_thread = Qnil; + return Qnil; +} + +/* + * call-seq: + * ripper.parse + * + * Start parsing and returns the value of the root action. + */ +static VALUE +ripper_parse(VALUE self) +{ + struct parser_params *p; + + TypedData_Get_Struct(self, struct parser_params, &parser_data_type, p); + if (!ripper_initialized_p(p)) { + rb_raise(rb_eArgError, "method called for uninitialized object"); + } + if (!NIL_P(p->parsing_thread)) { + if (p->parsing_thread == rb_thread_current()) + rb_raise(rb_eArgError, "Ripper#parse is not reentrant"); + else + rb_raise(rb_eArgError, "Ripper#parse is not multithread-safe"); + } + p->parsing_thread = rb_thread_current(); + rb_ensure(ripper_parse0, self, ripper_ensure, self); + + return p->result; +} + +/* + * call-seq: + * ripper.column -> Integer + * + * Return column number of current parsing line. + * This number starts from 0. + */ +static VALUE +ripper_column(VALUE self) +{ + struct parser_params *p; + long col; + + TypedData_Get_Struct(self, struct parser_params, &parser_data_type, p); + if (!ripper_initialized_p(p)) { + rb_raise(rb_eArgError, "method called for uninitialized object"); + } + if (NIL_P(p->parsing_thread)) return Qnil; + col = p->lex.ptok - p->lex.pbeg; + return LONG2NUM(col); +} + +/* + * call-seq: + * ripper.filename -> String + * + * Return current parsing filename. + */ +static VALUE +ripper_filename(VALUE self) +{ + struct parser_params *p; + + TypedData_Get_Struct(self, struct parser_params, &parser_data_type, p); + if (!ripper_initialized_p(p)) { + rb_raise(rb_eArgError, "method called for uninitialized object"); + } + return p->ruby_sourcefile_string; +} + +/* + * call-seq: + * ripper.lineno -> Integer + * + * Return line number of current parsing line. + * This number starts from 1. + */ +static VALUE +ripper_lineno(VALUE self) +{ + struct parser_params *p; + + TypedData_Get_Struct(self, struct parser_params, &parser_data_type, p); + if (!ripper_initialized_p(p)) { + rb_raise(rb_eArgError, "method called for uninitialized object"); + } + if (NIL_P(p->parsing_thread)) return Qnil; + return INT2NUM(p->ruby_sourceline); +} + +/* + * call-seq: + * ripper.state -> Integer + * + * Return scanner state of current token. + */ +static VALUE +ripper_state(VALUE self) +{ + struct parser_params *p; + + TypedData_Get_Struct(self, struct parser_params, &parser_data_type, p); + if (!ripper_initialized_p(p)) { + rb_raise(rb_eArgError, "method called for uninitialized object"); + } + if (NIL_P(p->parsing_thread)) return Qnil; + return INT2NUM(p->lex.state); +} + +#ifdef RIPPER_DEBUG +/* :nodoc: */ +static VALUE +ripper_assert_Qundef(VALUE self, VALUE obj, VALUE msg) +{ + StringValue(msg); + if (obj == Qundef) { + rb_raise(rb_eArgError, "%"PRIsVALUE, msg); + } + return Qnil; +} + +/* :nodoc: */ +static VALUE +ripper_value(VALUE self, VALUE obj) +{ + return ULONG2NUM(obj); +} +#endif + +/* + * call-seq: + * Ripper.lex_state_name(integer) -> string + * + * Returns a string representation of lex_state. + */ +static VALUE +ripper_lex_state_name(VALUE self, VALUE state) +{ + return rb_parser_lex_state_name(NUM2INT(state)); +} + +void +Init_ripper(void) +{ + ripper_init_eventids1(); + ripper_init_eventids2(); + id_warn = rb_intern_const("warn"); + id_warning = rb_intern_const("warning"); + id_gets = rb_intern_const("gets"); + + InitVM(ripper); +} + +void +InitVM_ripper(void) +{ + VALUE Ripper; + + Ripper = rb_define_class("Ripper", rb_cObject); + /* version of Ripper */ + rb_define_const(Ripper, "Version", rb_usascii_str_new2(RIPPER_VERSION)); + rb_define_alloc_func(Ripper, ripper_s_allocate); + rb_define_method(Ripper, "initialize", ripper_initialize, -1); + rb_define_method(Ripper, "parse", ripper_parse, 0); + rb_define_method(Ripper, "column", ripper_column, 0); + rb_define_method(Ripper, "filename", ripper_filename, 0); + rb_define_method(Ripper, "lineno", ripper_lineno, 0); + rb_define_method(Ripper, "state", ripper_state, 0); + rb_define_method(Ripper, "end_seen?", rb_parser_end_seen_p, 0); + rb_define_method(Ripper, "encoding", rb_parser_encoding, 0); + rb_define_method(Ripper, "yydebug", rb_parser_get_yydebug, 0); + rb_define_method(Ripper, "yydebug=", rb_parser_set_yydebug, 1); + rb_define_method(Ripper, "error?", ripper_error_p, 0); +#ifdef RIPPER_DEBUG + rb_define_method(rb_mKernel, "assert_Qundef", ripper_assert_Qundef, 2); + rb_define_method(rb_mKernel, "rawVALUE", ripper_value, 1); + rb_define_method(rb_mKernel, "validate_object", ripper_validate_object, 1); +#endif + + rb_define_singleton_method(Ripper, "dedent_string", parser_dedent_string, 2); + rb_define_private_method(Ripper, "dedent_string", parser_dedent_string, 2); + + rb_define_singleton_method(Ripper, "lex_state_name", ripper_lex_state_name, 1); + +<% @exprs.each do |expr, desc| -%> + /* <%=desc%> */ + rb_define_const(Ripper, "<%=expr%>", INT2NUM(<%=expr%>)); +<% end %> + ripper_init_eventids1_table(Ripper); + ripper_init_eventids2_table(Ripper); + +# if 0 + /* Hack to let RDoc document SCRIPT_LINES__ */ + + /* + * When a Hash is assigned to +SCRIPT_LINES__+ the contents of files loaded + * after the assignment will be added as an Array of lines with the file + * name as the key. + */ + rb_define_global_const("SCRIPT_LINES__", Qnil); +#endif + +} +#endif /* RIPPER */ diff --git a/generated/parse.h b/generated/parse.h new file mode 100644 index 0000000..4ae3788 --- /dev/null +++ b/generated/parse.h @@ -0,0 +1,211 @@ +/* A Bison parser, made by GNU Bison 3.3.2. */ + +/* Bison interface for Yacc-like parsers in C + + Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2019 Free Software Foundation, + Inc. + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see <http://www.gnu.org/licenses/>. */ + +/* As a special exception, you may create a larger work that contains + part or all of the Bison parser skeleton and distribute that work + under terms of your choice, so long as that work isn't itself a + parser generator using the skeleton or a modified version thereof + as a parser skeleton. Alternatively, if you modify or redistribute + the parser skeleton itself, you may (at your option) remove this + special exception, which will cause the skeleton and the resulting + Bison output files to be licensed under the GNU General Public + License without this special exception. + + This special exception was added by the Free Software Foundation in + version 2.2 of Bison. */ + +/* Undocumented macros, especially those whose name start with YY_, + are private implementation details. Do not rely on them. */ + +#ifndef YY_YY_Y_TAB_H_INCLUDED +# define YY_YY_Y_TAB_H_INCLUDED +/* Debug traces. */ +#ifndef YYDEBUG +# define YYDEBUG 0 +#endif +#if YYDEBUG +extern int yydebug; +#endif + +/* Token type. */ +#ifndef YYTOKENTYPE +# define YYTOKENTYPE + enum yytokentype + { + END_OF_INPUT = 0, + keyword_class = 258, + keyword_module = 259, + keyword_def = 260, + keyword_undef = 261, + keyword_begin = 262, + keyword_rescue = 263, + keyword_ensure = 264, + keyword_end = 265, + keyword_if = 266, + keyword_unless = 267, + keyword_then = 268, + keyword_elsif = 269, + keyword_else = 270, + keyword_case = 271, + keyword_when = 272, + keyword_while = 273, + keyword_until = 274, + keyword_for = 275, + keyword_break = 276, + keyword_next = 277, + keyword_redo = 278, + keyword_retry = 279, + keyword_in = 280, + keyword_do = 281, + keyword_do_cond = 282, + keyword_do_block = 283, + keyword_do_LAMBDA = 284, + keyword_return = 285, + keyword_yield = 286, + keyword_super = 287, + keyword_self = 288, + keyword_nil = 289, + keyword_true = 290, + keyword_false = 291, + keyword_and = 292, + keyword_or = 293, + keyword_not = 294, + modifier_if = 295, + modifier_unless = 296, + modifier_while = 297, + modifier_until = 298, + modifier_rescue = 299, + keyword_alias = 300, + keyword_defined = 301, + keyword_BEGIN = 302, + keyword_END = 303, + keyword__LINE__ = 304, + keyword__FILE__ = 305, + keyword__ENCODING__ = 306, + tIDENTIFIER = 307, + tFID = 308, + tGVAR = 309, + tIVAR = 310, + tCONSTANT = 311, + tCVAR = 312, + tLABEL = 313, + tINTEGER = 314, + tFLOAT = 315, + tRATIONAL = 316, + tIMAGINARY = 317, + tSTRING_CONTENT = 318, + tCHAR = 319, + tNTH_REF = 320, + tBACK_REF = 321, + tREGEXP_END = 322, + tSP = 323, + tUPLUS = 130, + tUMINUS = 131, + tPOW = 132, + tCMP = 133, + tEQ = 138, + tEQQ = 139, + tNEQ = 140, + tGEQ = 137, + tLEQ = 136, + tANDOP = 146, + tOROP = 147, + tMATCH = 141, + tNMATCH = 142, + tDOT2 = 128, + tDOT3 = 129, + tAREF = 143, + tASET = 144, + tLSHFT = 134, + tRSHFT = 135, + tANDDOT = 148, + tCOLON2 = 145, + tCOLON3 = 324, + tOP_ASGN = 325, + tASSOC = 326, + tLPAREN = 327, + tLPAREN_ARG = 328, + tRPAREN = 329, + tLBRACK = 330, + tLBRACE = 331, + tLBRACE_ARG = 332, + tSTAR = 333, + tDSTAR = 334, + tAMPER = 335, + tLAMBDA = 336, + tSYMBEG = 337, + tSTRING_BEG = 338, + tXSTRING_BEG = 339, + tREGEXP_BEG = 340, + tWORDS_BEG = 341, + tQWORDS_BEG = 342, + tSYMBOLS_BEG = 343, + tQSYMBOLS_BEG = 344, + tSTRING_DBEG = 345, + tSTRING_DEND = 346, + tSTRING_DVAR = 347, + tSTRING_END = 348, + tLAMBEG = 349, + tLABEL_END = 350, + tLOWEST = 351, + tUMINUS_NUM = 352, + tLAST_TOKEN = 353 + }; +#endif + +/* Value type. */ +#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED + +union YYSTYPE +{ + + VALUE val; + NODE *node; + ID id; + int num; + const struct vtable *vars; + struct rb_strterm_struct *strterm; + +}; + +typedef union YYSTYPE YYSTYPE; +# define YYSTYPE_IS_TRIVIAL 1 +# define YYSTYPE_IS_DECLARED 1 +#endif + +/* Location type. */ +#if ! defined YYLTYPE && ! defined YYLTYPE_IS_DECLARED +typedef struct YYLTYPE YYLTYPE; +struct YYLTYPE +{ + int first_line; + int first_column; + int last_line; + int last_column; +}; +# define YYLTYPE_IS_DECLARED 1 +# define YYLTYPE_IS_TRIVIAL 1 +#endif + + + +int yyparse (struct parser_params *p); + +#endif /* !YY_YY_Y_TAB_H_INCLUDED */ diff --git a/generated/prelude.c b/generated/prelude.c new file mode 100644 index 0000000..2a426e3 --- /dev/null +++ b/generated/prelude.c @@ -0,0 +1,246 @@ +/* -*-c-*- + THIS FILE WAS AUTOGENERATED BY template/prelude.c.tmpl. DO NOT EDIT. + + sources: ./prelude, ./gem_prelude +*/ +#include "ruby/ruby.h" +#include "internal.h" +#include "vm_core.h" +#include "iseq.h" + + +static const char prelude_name0[] = "<internal:prelude>"; +static const struct { + char L0[491]; /* 1..130 */ + char L130[351]; /* 131..163 */ +} prelude_code0 = { +#line 1 "prelude.rb" +"class << Thread\n" +"\n"/* call-seq: */ +"\n"/* Thread.exclusive { block } => obj */ +"\n"/* */ +"\n"/* Wraps the block in a single, VM-global Mutex.synchronize, returning the */ +"\n"/* value of the block. A thread executing inside the exclusive section will */ +"\n"/* only block other threads which also use the Thread.exclusive mechanism. */ +" def exclusive(&block) end if false\n" +" mutex = Mutex.new\n"/* :nodoc: */ +" define_method(:exclusive) do |&block|\n" +" warn \"Thread.exclusive is deprecated, use Thread::Mutex\", caller\n" +" mutex.synchronize(&block)\n" +" end\n" +"end\n" +"\n" +"class IO\n" +"\n" +"\n"/* call-seq: */ +"\n"/* ios.read_nonblock(maxlen [, options]) -> string */ +"\n"/* ios.read_nonblock(maxlen, outbuf [, options]) -> outbuf */ +"\n"/* */ +"\n"/* Reads at most maxlen bytes from ios using */ +"\n"/* the read(2) system call after O_NONBLOCK is set for */ +"\n"/* the underlying file descriptor. */ +"\n"/* */ +"\n"/* If the optional outbuf argument is present, */ +"\n"/* it must reference a String, which will receive the data. */ +"\n"/* The outbuf will contain only the received data after the method call */ +"\n"/* even if it is not empty at the beginning. */ +"\n"/* */ +"\n"/* read_nonblock just calls the read(2) system call. */ +"\n"/* It causes all errors the read(2) system call causes: Errno::EWOULDBLOCK, Errno::EINTR, etc. */ +"\n"/* The caller should care such errors. */ +"\n"/* */ +"\n"/* If the exception is Errno::EWOULDBLOCK or Errno::EAGAIN, */ +"\n"/* it is extended by IO::WaitReadable. */ +"\n"/* So IO::WaitReadable can be used to rescue the exceptions for retrying */ +"\n"/* read_nonblock. */ +"\n"/* */ +"\n"/* read_nonblock causes EOFError on EOF. */ +"\n"/* */ +"\n"/* If the read byte buffer is not empty, */ +"\n"/* read_nonblock reads from the buffer like readpartial. */ +"\n"/* In this case, the read(2) system call is not called. */ +"\n"/* */ +"\n"/* When read_nonblock raises an exception kind of IO::WaitReadable, */ +"\n"/* read_nonblock should not be called */ +"\n"/* until io is readable for avoiding busy loop. */ +"\n"/* This can be done as follows. */ +"\n"/* */ +"\n"/* # emulates blocking read (readpartial). */ +"\n"/* begin */ +"\n"/* result = io.read_nonblock(maxlen) */ +"\n"/* rescue IO::WaitReadable */ +"\n"/* IO.select([io]) */ +"\n"/* retry */ +"\n"/* end */ +"\n"/* */ +"\n"/* Although IO#read_nonblock doesn't raise IO::WaitWritable. */ +"\n"/* OpenSSL::Buffering#read_nonblock can raise IO::WaitWritable. */ +"\n"/* If IO and SSL should be used polymorphically, */ +"\n"/* IO::WaitWritable should be rescued too. */ +"\n"/* See the document of OpenSSL::Buffering#read_nonblock for sample code. */ +"\n"/* */ +"\n"/* Note that this method is identical to readpartial */ +"\n"/* except the non-blocking flag is set. */ +"\n"/* */ +"\n"/* By specifying a keyword argument _exception_ to +false+, you can indicate */ +"\n"/* that read_nonblock should not raise an IO::WaitReadable exception, but */ +"\n"/* return the symbol +:wait_readable+ instead. At EOF, it will return nil */ +"\n"/* instead of raising EOFError. */ +" def read_nonblock(len, buf = nil, exception: true)\n" +" __read_nonblock(len, buf, exception)\n" +" end\n" +"\n" +"\n"/* call-seq: */ +"\n"/* ios.write_nonblock(string) -> integer */ +"\n"/* ios.write_nonblock(string [, options]) -> integer */ +"\n"/* */ +"\n"/* Writes the given string to ios using */ +"\n"/* the write(2) system call after O_NONBLOCK is set for */ +"\n"/* the underlying file descriptor. */ +"\n"/* */ +"\n"/* It returns the number of bytes written. */ +"\n"/* */ +"\n"/* write_nonblock just calls the write(2) system call. */ +"\n"/* It causes all errors the write(2) system call causes: Errno::EWOULDBLOCK, Errno::EINTR, etc. */ +"\n"/* The result may also be smaller than string.length (partial write). */ +"\n"/* The caller should care such errors and partial write. */ +"\n"/* */ +"\n"/* If the exception is Errno::EWOULDBLOCK or Errno::EAGAIN, */ +"\n"/* it is extended by IO::WaitWritable. */ +"\n"/* So IO::WaitWritable can be used to rescue the exceptions for retrying write_nonblock. */ +"\n"/* */ +"\n"/* # Creates a pipe. */ +"\n"/* r, w = IO.pipe */ +"\n"/* */ +"\n"/* # write_nonblock writes only 65536 bytes and return 65536. */ +"\n"/* # (The pipe size is 65536 bytes on this environment.) */ +"\n"/* s = \"a\" * 100000 */ +"\n"/* p w.write_nonblock(s) #=> 65536 */ +"\n"/* */ +"\n"/* # write_nonblock cannot write a byte and raise EWOULDBLOCK (EAGAIN). */ +"\n"/* p w.write_nonblock(\"b\") # Resource temporarily unavailable (Errno::EAGAIN) */ +"\n"/* */ +"\n"/* If the write buffer is not empty, it is flushed at first. */ +"\n"/* */ +"\n"/* When write_nonblock raises an exception kind of IO::WaitWritable, */ +"\n"/* write_nonblock should not be called */ +"\n"/* until io is writable for avoiding busy loop. */ +"\n"/* This can be done as follows. */ +"\n"/* */ +"\n"/* begin */ +"\n"/* result = io.write_nonblock(string) */ +"\n"/* rescue IO::WaitWritable, Errno::EINTR */ +"\n"/* IO.select(nil, [io]) */ +"\n"/* retry */ +"\n"/* end */ +"\n"/* */ +"\n"/* Note that this doesn't guarantee to write all data in string. */ +"\n"/* The length written is reported as result and it should be checked later. */ +"\n"/* */ +"\n"/* On some platforms such as Windows, write_nonblock is not supported */ +"\n"/* according to the kind of the IO object. */ +"\n"/* In such cases, write_nonblock raises <code>Errno::EBADF</code>. */ +"\n"/* */ +"\n"/* By specifying a keyword argument _exception_ to +false+, you can indicate */ +"\n"/* that write_nonblock should not raise an IO::WaitWritable exception, but */ +"\n"/* return the symbol +:wait_writable+ instead. */ +" def write_nonblock(buf, exception: true)\n" +, +#line 131 "prelude.rb" +" __write_nonblock(buf, exception)\n" +" end\n" +"end\n" +"\n" +"class TracePoint\n" +" def enable target: nil, target_line: nil, &blk\n" +" self.__enable target, target_line, &blk\n" +" end\n" +"end\n" +"\n" +"class Binding\n" +"\n"/* :nodoc: */ +" def irb\n" +" require 'irb'\n" +" irb\n" +" end\n" +"\n" +"\n"/* suppress redefinition warning */ +" alias irb irb\n"/* :nodoc: */ +"end\n" +"\n" +"module Kernel\n" +" def pp(*objs)\n" +" require 'pp'\n" +" pp(*objs)\n" +" end\n" +"\n" +"\n"/* suppress redefinition warning */ +" alias pp pp\n"/* :nodoc: */ +"\n" +" private :pp\n" +"end\n" +#line 183 "prelude.c" +}; + +static const char prelude_name1[] = "<internal:gem_prelude>"; +static const struct { + char L0[168]; /* 1..9 */ +} prelude_code1 = { +#line 1 "gem_prelude.rb" +"if defined?(Gem)\n" +" require 'rubygems.rb'\n" +" begin\n" +" gem 'did_you_mean'\n" +" require 'did_you_mean'\n" +" rescue Gem::LoadError, LoadError\n" +" end if defined?(DidYouMean)\n" +"end\n" +#line 199 "prelude.c" +}; + + +#define PRELUDE_NAME(n) rb_usascii_str_new_static(prelude_name##n, sizeof(prelude_name##n)-1) +#define PRELUDE_CODE(n) rb_usascii_str_new_static(prelude_code##n.L0, sizeof(prelude_code##n)) +COMPILER_WARNING_PUSH +#if GCC_VERSION_SINCE(4, 2, 0) +COMPILER_WARNING_ERROR(-Wmissing-field-initializers) +#endif +static void +prelude_eval(VALUE code, VALUE name, int line) +{ + static const rb_compile_option_t optimization = { + TRUE, /* int inline_const_cache; */ + TRUE, /* int peephole_optimization; */ + FALSE,/* int tailcall_optimization; */ + TRUE, /* int specialized_instruction; */ + TRUE, /* int operands_unification; */ + TRUE, /* int instructions_unification; */ + TRUE, /* int stack_caching; */ + TRUE, /* int frozen_string_literal; */ + FALSE, /* int debug_frozen_string_literal; */ + FALSE, /* unsigned int coverage_enabled; */ + 0, /* int debug_level; */ + }; + + rb_ast_t *ast = rb_parser_compile_string_path(rb_parser_new(), name, code, line); + if (!ast->body.root) { + rb_ast_dispose(ast); + rb_exc_raise(rb_errinfo()); + } + rb_iseq_eval(rb_iseq_new_with_opt(&ast->body, name, name, Qnil, INT2FIX(line), + NULL, ISEQ_TYPE_TOP, &optimization)); + rb_ast_dispose(ast); +} +COMPILER_WARNING_POP + +void +Init_prelude(void) +{ + prelude_eval(PRELUDE_CODE(0), PRELUDE_NAME(0), 1); + prelude_eval(PRELUDE_CODE(1), PRELUDE_NAME(1), 1); + +#if 0 + printf("%.*s", (int)sizeof(prelude_code0), prelude_code0.L0); + printf("%.*s", (int)sizeof(prelude_code1), prelude_code1.L0); +#endif +} diff --git a/generated/probes.dmyh b/generated/probes.dmyh new file mode 100644 index 0000000..fffa901 --- /dev/null +++ b/generated/probes.dmyh @@ -0,0 +1,80 @@ +/* -*- c -*- */ + +#ifndef _PROBES_H +#define _PROBES_H +#define DTRACE_PROBES_DISABLED 1 + +#define RUBY_DTRACE_METHOD_ENTRY_ENABLED() 0 +#define RUBY_DTRACE_METHOD_ENTRY(classname, methodname, filename, lineno) do {} while (0) +#define RUBY_DTRACE_METHOD_RETURN_ENABLED() 0 +#define RUBY_DTRACE_METHOD_RETURN(classname, methodname, filename, lineno) do {} while (0) + +#define RUBY_DTRACE_CMETHOD_ENTRY_ENABLED() 0 +#define RUBY_DTRACE_CMETHOD_ENTRY(classname, methodname, filename, lineno) do {} while (0) +#define RUBY_DTRACE_CMETHOD_RETURN_ENABLED() 0 +#define RUBY_DTRACE_CMETHOD_RETURN(classname, methodname, filename, lineno) do {} while (0) + +#define RUBY_DTRACE_REQUIRE_ENTRY_ENABLED() 0 +#define RUBY_DTRACE_REQUIRE_ENTRY(rquiredfile, filename, lineno) do {} while (0) + +#define RUBY_DTRACE_REQUIRE_RETURN_ENABLED() 0 +#define RUBY_DTRACE_REQUIRE_RETURN(requiredfile, filename, lineno) do {} while (0) + +#define RUBY_DTRACE_FIND_REQUIRE_ENTRY_ENABLED() 0 +#define RUBY_DTRACE_FIND_REQUIRE_ENTRY(requiredfile, filename, lineno) do {} while (0) + +#define RUBY_DTRACE_FIND_REQUIRE_RETURN_ENABLED() 0 +#define RUBY_DTRACE_FIND_REQUIRE_RETURN(requiredfile, filename, lineno) do {} while (0) + +#define RUBY_DTRACE_LOAD_ENTRY_ENABLED() 0 +#define RUBY_DTRACE_LOAD_ENTRY(loadedfile, filename, lineno) do {} while (0) + +#define RUBY_DTRACE_LOAD_RETURN_ENABLED() 0 +#define RUBY_DTRACE_LOAD_RETURN(loadedfile, filename, lineno) do {} while (0) + +#define RUBY_DTRACE_RAISE_ENABLED() 0 +#define RUBY_DTRACE_RAISE(classname, filename, lineno) do {} while (0) + +#define RUBY_DTRACE_OBJECT_CREATE_ENABLED() 0 +#define RUBY_DTRACE_OBJECT_CREATE(classname, filename, lineno) do {} while (0) + +#define RUBY_DTRACE_ARRAY_CREATE_ENABLED() 0 +#define RUBY_DTRACE_ARRAY_CREATE(length, filename, lineno) do {} while (0) + +#define RUBY_DTRACE_HASH_CREATE_ENABLED() 0 +#define RUBY_DTRACE_HASH_CREATE(length, filename, lineno) do {} while (0) + +#define RUBY_DTRACE_STRING_CREATE_ENABLED() 0 +#define RUBY_DTRACE_STRING_CREATE(length, filename, lineno) do {} while (0) + +#define RUBY_DTRACE_SYMBOL_CREATE_ENABLED() 0 +#define RUBY_DTRACE_SYMBOL_CREATE(str, filename, lineno) do {} while (0) + +#define RUBY_DTRACE_PARSE_BEGIN_ENABLED() 0 +#define RUBY_DTRACE_PARSE_BEGIN(sourcefile, lineno) do {} while (0) + +#define RUBY_DTRACE_PARSE_END_ENABLED() 0 +#define RUBY_DTRACE_PARSE_END(sourcefile, lineno) do {} while (0) + +#define RUBY_DTRACE_INSN_ENABLED() 0 +#define RUBY_DTRACE_INSN(insns_name) do {} while (0) +#define RUBY_DTRACE_INSN_OPERAND_ENABLED() 0 +#define RUBY_DTRACE_INSN_OPERAND(val, insns_name) do {} while (0) + +#define RUBY_DTRACE_GC_MARK_BEGIN_ENABLED() 0 +#define RUBY_DTRACE_GC_MARK_BEGIN() do {} while (0) + +#define RUBY_DTRACE_GC_MARK_END_ENABLED() 0 +#define RUBY_DTRACE_GC_MARK_END() do {} while (0) + +#define RUBY_DTRACE_GC_SWEEP_BEGIN_ENABLED() 0 +#define RUBY_DTRACE_GC_SWEEP_BEGIN() do {} while (0) + +#define RUBY_DTRACE_GC_SWEEP_END_ENABLED() 0 +#define RUBY_DTRACE_GC_SWEEP_END() do {} while (0) + +#define RUBY_DTRACE_METHOD_CACHE_CLEAR_ENABLED() 0 +#define RUBY_DTRACE_METHOD_CACHE_CLEAR(class, filename, lineno) do {} while (0) + +#endif /* _PROBES_H */ + diff --git a/generated/probes.h b/generated/probes.h new file mode 100644 index 0000000..b051a4f --- /dev/null +++ b/generated/probes.h @@ -0,0 +1 @@ +#include "probes.dmyh" diff --git a/generated/revision.h b/generated/revision.h new file mode 100644 index 0000000..e69de29 diff --git a/generated/verconf.h b/generated/verconf.h new file mode 100644 index 0000000..3aecdb9 --- /dev/null +++ b/generated/verconf.h @@ -0,0 +1,13 @@ +#define RUBY_BASE_NAME "ruby" +#define RUBY_VERSION_NAME "ruby-"RUBY_LIB_VERSION +#define RUBY_LIB_VERSION_STYLE 3 /* full */ +#define RUBY_EXEC_PREFIX "/home/wolf/nfv/dev/unikraft/apps/ukutest.git/build/libruby/origin/ruby-ruby_2_6/dist" +#define RUBY_LIB_PREFIX RUBY_EXEC_PREFIX"/lib/ruby" +#define RUBY_ARCH_PREFIX_FOR(arch) RUBY_LIB_PREFIX"/"arch +#define RUBY_SITEARCH_PREFIX_FOR(arch) RUBY_LIB_PREFIX"/"arch +#define RUBY_LIB RUBY_LIB_PREFIX"/"RUBY_LIB_VERSION +#define RUBY_ARCH_LIB_FOR(arch) RUBY_LIB"/"arch +#define RUBY_SITE_LIB RUBY_LIB_PREFIX"/site_ruby" +#define RUBY_SITE_ARCH_LIB_FOR(arch) RUBY_SITE_LIB2"/"arch +#define RUBY_VENDOR_LIB RUBY_LIB_PREFIX"/vendor_ruby" +#define RUBY_VENDOR_ARCH_LIB_FOR(arch) RUBY_VENDOR_LIB2"/"arch diff --git a/generated/vm.inc b/generated/vm.inc new file mode 100644 index 0000000..b7b9b66 --- /dev/null +++ b/generated/vm.inc @@ -0,0 +1,4504 @@ +/* -*- mode:c; style:ruby; coding: utf-8; indent-tabs-mode: nil -*- */ + +/* This is an auto-generated file and is a part of the programming language + * Ruby. The person who created a program to generate this file (``I'' + * hereafter) would like to refrain from defining licensing of this generated + * source code. + * + * This file consist of many small parts of codes copyrighted by each authors, + * not only the ``I'' person. Those original authors agree with some + * open-source license. I believe that the license we agree is the condition + * mentioned in the file COPYING. It states "4. You may modify and include + * the part of the software into any other software ...". But the problem is, + * the license never makes it clear if such modified parts still remain in the + * same license, or not. The fact that we agree with the source code's + * licensing terms do not automatically define that of generated ones. This is + * the reason why this file is under unclear situation. All that I know is + * that above provision guarantees this file to exist. + * + * Please let me hesitate to declare something about this nuanced contract. I + * am not in the position to take over other authors' license to merge into my + * one. Changing them to (say) GPLv3 is not doable by myself. Perhaps someday + * it might turn out to be okay to say this file is under a license. I wish the + * situation would become more clear in the future. */ + +/*******************************************************************/ +/*******************************************************************/ +/*******************************************************************/ +/** + This file is VM main loop. + + ---- + This file is auto generated by insns2vm.rb + DO NOT TOUCH! + + If you want to fix something, you must edit "tool/ruby_vm/views/vm.inc.erb" + or tool/insns2vm.rb + */ + +#include "vm_insnhelper.h" + +/* insn nop()()() */ +INSN_ENTRY(nop) +{ +# define NAME_OF_CURRENT_INSN nop +# define INSN_ATTR(x) attr_ ## x ## _nop() + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + START_OF_ORIGINAL_INSN(nop); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + INC_SP(INSN_ATTR(sp_inc)); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(nop); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn getlocal(idx, level)()(val) */ +INSN_ENTRY(getlocal) +{ +# define NAME_OF_CURRENT_INSN getlocal +# define INSN_ATTR(x) attr_ ## x ## _getlocal(idx, level) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + MAYBE_UNUSED(lindex_t) idx; + MAYBE_UNUSED(rb_num_t) level; + + START_OF_ORIGINAL_INSN(getlocal); + idx = (lindex_t)GET_OPERAND(1); + level = (rb_num_t)GET_OPERAND(2); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, idx); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, level); +#line 81 "insns.def" +{ + val = *(vm_get_ep(GET_EP(), level) - idx); + RB_DEBUG_COUNTER_INC(lvar_get); + (void)RB_DEBUG_COUNTER_INC_IF(lvar_get_dynamic, level > 0); +} +#line 87 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(getlocal); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn setlocal(idx, level)(val)() */ +INSN_ENTRY(setlocal) +{ +# define NAME_OF_CURRENT_INSN setlocal +# define INSN_ATTR(x) attr_ ## x ## _setlocal(idx, level) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + MAYBE_UNUSED(lindex_t) idx; + MAYBE_UNUSED(rb_num_t) level; + + START_OF_ORIGINAL_INSN(setlocal); + idx = (lindex_t)GET_OPERAND(1); + level = (rb_num_t)GET_OPERAND(2); + val = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, idx); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, level); +#line 95 "insns.def" +{ + vm_env_write(vm_get_ep(GET_EP(), level), -(int)idx, val); + RB_DEBUG_COUNTER_INC(lvar_set); + (void)RB_DEBUG_COUNTER_INC_IF(lvar_set_dynamic, level > 0); +} +#line 125 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(setlocal); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn getblockparam(idx, level)()(val) */ +INSN_ENTRY(getblockparam) +{ +# define NAME_OF_CURRENT_INSN getblockparam +# define INSN_ATTR(x) attr_ ## x ## _getblockparam(idx, level) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + MAYBE_UNUSED(lindex_t) idx; + MAYBE_UNUSED(rb_num_t) level; + + START_OF_ORIGINAL_INSN(getblockparam); + idx = (lindex_t)GET_OPERAND(1); + level = (rb_num_t)GET_OPERAND(2); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, idx); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, level); +#line 107 "insns.def" +{ + const VALUE *ep = vm_get_ep(GET_EP(), level); + VM_ASSERT(VM_ENV_LOCAL_P(ep)); + + if (!VM_ENV_FLAGS(ep, VM_FRAME_FLAG_MODIFIED_BLOCK_PARAM)) { + val = rb_vm_bh_to_procval(ec, VM_ENV_BLOCK_HANDLER(ep)); + vm_env_write(ep, -(int)idx, val); + VM_ENV_FLAGS_SET(ep, VM_FRAME_FLAG_MODIFIED_BLOCK_PARAM); + } + else { + val = *(ep - idx); + RB_DEBUG_COUNTER_INC(lvar_get); + (void)RB_DEBUG_COUNTER_INC_IF(lvar_get_dynamic, level > 0); + } +} +#line 171 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(getblockparam); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn setblockparam(idx, level)(val)() */ +INSN_ENTRY(setblockparam) +{ +# define NAME_OF_CURRENT_INSN setblockparam +# define INSN_ATTR(x) attr_ ## x ## _setblockparam(idx, level) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + MAYBE_UNUSED(lindex_t) idx; + MAYBE_UNUSED(rb_num_t) level; + + START_OF_ORIGINAL_INSN(setblockparam); + idx = (lindex_t)GET_OPERAND(1); + level = (rb_num_t)GET_OPERAND(2); + val = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, idx); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, level); +#line 129 "insns.def" +{ + const VALUE *ep = vm_get_ep(GET_EP(), level); + VM_ASSERT(VM_ENV_LOCAL_P(ep)); + + vm_env_write(ep, -(int)idx, val); + RB_DEBUG_COUNTER_INC(lvar_set); + (void)RB_DEBUG_COUNTER_INC_IF(lvar_set_dynamic, level > 0); + + VM_ENV_FLAGS_SET(ep, VM_FRAME_FLAG_MODIFIED_BLOCK_PARAM); +} +#line 214 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(setblockparam); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn getblockparamproxy(idx, level)()(val) */ +INSN_ENTRY(getblockparamproxy) +{ +# define NAME_OF_CURRENT_INSN getblockparamproxy +# define INSN_ATTR(x) attr_ ## x ## _getblockparamproxy(idx, level) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + MAYBE_UNUSED(lindex_t) idx; + MAYBE_UNUSED(rb_num_t) level; + + START_OF_ORIGINAL_INSN(getblockparamproxy); + idx = (lindex_t)GET_OPERAND(1); + level = (rb_num_t)GET_OPERAND(2); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, idx); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, level); +#line 148 "insns.def" +{ + const VALUE *ep = vm_get_ep(GET_EP(), level); + VM_ASSERT(VM_ENV_LOCAL_P(ep)); + + if (!VM_ENV_FLAGS(ep, VM_FRAME_FLAG_MODIFIED_BLOCK_PARAM)) { + VALUE block_handler = VM_ENV_BLOCK_HANDLER(ep); + + if (block_handler) { + switch (vm_block_handler_type(block_handler)) { + case block_handler_type_iseq: + case block_handler_type_ifunc: + val = rb_block_param_proxy; + break; + case block_handler_type_symbol: + val = rb_sym_to_proc(VM_BH_TO_SYMBOL(block_handler)); + goto INSN_LABEL(set); + case block_handler_type_proc: + val = VM_BH_TO_PROC(block_handler); + goto INSN_LABEL(set); + default: + VM_UNREACHABLE(getblockparamproxy); + } + } + else { + val = Qnil; + INSN_LABEL(set): + vm_env_write(ep, -(int)idx, val); + VM_ENV_FLAGS_SET(ep, VM_FRAME_FLAG_MODIFIED_BLOCK_PARAM); + } + } + else { + val = *(ep - idx); + RB_DEBUG_COUNTER_INC(lvar_get); + (void)RB_DEBUG_COUNTER_INC_IF(lvar_get_dynamic, level > 0); + } +} +#line 281 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(getblockparamproxy); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn getspecial(key, type)()(val) */ +INSN_ENTRY(getspecial) +{ +# define NAME_OF_CURRENT_INSN getspecial +# define INSN_ATTR(x) attr_ ## x ## _getspecial(key, type) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + MAYBE_UNUSED(rb_num_t) key, type; + + START_OF_ORIGINAL_INSN(getspecial); + key = (rb_num_t)GET_OPERAND(1); + type = (rb_num_t)GET_OPERAND(2); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, key); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, type); +#line 191 "insns.def" +{ + val = vm_getspecial(ec, GET_LEP(), key, type); +} +#line 315 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(getspecial); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn setspecial(key)(obj)() */ +INSN_ENTRY(setspecial) +{ +# define NAME_OF_CURRENT_INSN setspecial +# define INSN_ATTR(x) attr_ ## x ## _setspecial(key) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) obj; + MAYBE_UNUSED(rb_num_t) key; + + START_OF_ORIGINAL_INSN(setspecial); + key = (rb_num_t)GET_OPERAND(1); + obj = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, key); +#line 201 "insns.def" +{ + lep_svar_set(ec, GET_LEP(), key, obj); +} +#line 348 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(setspecial); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn getinstancevariable(id, ic)()(val) */ +INSN_ENTRY(getinstancevariable) +{ +# define NAME_OF_CURRENT_INSN getinstancevariable +# define INSN_ATTR(x) attr_ ## x ## _getinstancevariable(id, ic) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(IC) ic; + MAYBE_UNUSED(ID) id; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(getinstancevariable); + id = (ID)GET_OPERAND(1); + ic = (IC)GET_OPERAND(2); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, id); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, ic); +#line 213 "insns.def" +{ + val = vm_getinstancevariable(GET_SELF(), id, ic); +} +#line 382 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(getinstancevariable); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn setinstancevariable(id, ic)(val)() */ +INSN_ENTRY(setinstancevariable) +{ +# define NAME_OF_CURRENT_INSN setinstancevariable +# define INSN_ATTR(x) attr_ ## x ## _setinstancevariable(id, ic) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(IC) ic; + MAYBE_UNUSED(ID) id; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(setinstancevariable); + id = (ID)GET_OPERAND(1); + ic = (IC)GET_OPERAND(2); + val = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, id); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, ic); +#line 223 "insns.def" +{ + vm_setinstancevariable(GET_SELF(), id, val, ic); +} +#line 418 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(setinstancevariable); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn getclassvariable(id)()(val) */ +INSN_ENTRY(getclassvariable) +{ +# define NAME_OF_CURRENT_INSN getclassvariable +# define INSN_ATTR(x) attr_ ## x ## _getclassvariable(id) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(ID) id; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(getclassvariable); + id = (ID)GET_OPERAND(1); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, id); +#line 235 "insns.def" +{ + val = rb_cvar_get(vm_get_cvar_base(rb_vm_get_cref(GET_EP()), GET_CFP()), id); +} +#line 449 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(getclassvariable); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn setclassvariable(id)(val)() */ +INSN_ENTRY(setclassvariable) +{ +# define NAME_OF_CURRENT_INSN setclassvariable +# define INSN_ATTR(x) attr_ ## x ## _setclassvariable(id) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(ID) id; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(setclassvariable); + id = (ID)GET_OPERAND(1); + val = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, id); +#line 247 "insns.def" +{ + vm_ensure_not_refinement_module(GET_SELF()); + rb_cvar_set(vm_get_cvar_base(rb_vm_get_cref(GET_EP()), GET_CFP()), id, val); +} +#line 483 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(setclassvariable); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn getconstant(id)(klass)(val) */ +INSN_ENTRY(getconstant) +{ +# define NAME_OF_CURRENT_INSN getconstant +# define INSN_ATTR(x) attr_ ## x ## _getconstant(id) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(ID) id; + MAYBE_UNUSED(VALUE) klass, val; + + START_OF_ORIGINAL_INSN(getconstant); + id = (ID)GET_OPERAND(1); + klass = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, id); +#line 263 "insns.def" +{ + val = vm_get_ev_const(ec, klass, id, 0); +} +#line 515 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(getconstant); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn setconstant(id)(val, cbase)() */ +INSN_ENTRY(setconstant) +{ +# define NAME_OF_CURRENT_INSN setconstant +# define INSN_ATTR(x) attr_ ## x ## _setconstant(id) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(ID) id; + MAYBE_UNUSED(VALUE) cbase, val; + + START_OF_ORIGINAL_INSN(setconstant); + id = (ID)GET_OPERAND(1); + val = TOPN(1); + cbase = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, id); +#line 279 "insns.def" +{ + vm_check_if_namespace(cbase); + vm_ensure_not_refinement_module(GET_SELF()); + rb_const_set(cbase, id, val); +} +#line 551 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(setconstant); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn getglobal(entry)()(val) */ +INSN_ENTRY(getglobal) +{ +# define NAME_OF_CURRENT_INSN getglobal +# define INSN_ATTR(x) attr_ ## x ## _getglobal(entry) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(GENTRY) entry; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(getglobal); + entry = (GENTRY)GET_OPERAND(1); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, entry); +#line 292 "insns.def" +{ + val = GET_GLOBAL((VALUE)entry); +} +#line 582 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(getglobal); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn setglobal(entry)(val)() */ +INSN_ENTRY(setglobal) +{ +# define NAME_OF_CURRENT_INSN setglobal +# define INSN_ATTR(x) attr_ ## x ## _setglobal(entry) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(GENTRY) entry; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(setglobal); + entry = (GENTRY)GET_OPERAND(1); + val = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, entry); +#line 303 "insns.def" +{ + SET_GLOBAL((VALUE)entry, val); +} +#line 615 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(setglobal); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn putnil()()(val) */ +INSN_ENTRY(putnil) +{ +# define NAME_OF_CURRENT_INSN putnil +# define INSN_ATTR(x) attr_ ## x ## _putnil() + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(putnil); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); +#line 317 "insns.def" +{ + val = Qnil; +} +#line 643 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(putnil); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn putself()()(val) */ +INSN_ENTRY(putself) +{ +# define NAME_OF_CURRENT_INSN putself +# define INSN_ATTR(x) attr_ ## x ## _putself() + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(putself); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); +#line 327 "insns.def" +{ + val = GET_SELF(); +} +#line 672 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(putself); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn putobject(val)()(val) */ +INSN_ENTRY(putobject) +{ +# define NAME_OF_CURRENT_INSN putobject +# define INSN_ATTR(x) attr_ ## x ## _putobject(val) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(putobject); + val = (VALUE)GET_OPERAND(1); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, val); + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(putobject); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn putspecialobject(value_type)()(val) */ +INSN_ENTRY(putspecialobject) +{ +# define NAME_OF_CURRENT_INSN putspecialobject +# define INSN_ATTR(x) attr_ ## x ## _putspecialobject(value_type) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + MAYBE_UNUSED(rb_num_t) value_type; + + START_OF_ORIGINAL_INSN(putspecialobject); + value_type = (rb_num_t)GET_OPERAND(1); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, value_type); +#line 349 "insns.def" +{ + enum vm_special_object_type type; + + type = (enum vm_special_object_type)value_type; + val = vm_get_special_object(GET_EP(), type); +} +#line 731 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(putspecialobject); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn putiseq(iseq)()(ret) */ +INSN_ENTRY(putiseq) +{ +# define NAME_OF_CURRENT_INSN putiseq +# define INSN_ATTR(x) attr_ ## x ## _putiseq(iseq) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(ISEQ) iseq; + MAYBE_UNUSED(VALUE) ret; + + START_OF_ORIGINAL_INSN(putiseq); + iseq = (ISEQ)GET_OPERAND(1); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, iseq); +#line 363 "insns.def" +{ + ret = (VALUE)iseq; +} +#line 763 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = ret; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(putiseq); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn putstring(str)()(val) */ +INSN_ENTRY(putstring) +{ +# define NAME_OF_CURRENT_INSN putstring +# define INSN_ATTR(x) attr_ ## x ## _putstring(str) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) str, val; + + START_OF_ORIGINAL_INSN(putstring); + str = (VALUE)GET_OPERAND(1); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, str); +#line 373 "insns.def" +{ + val = rb_str_resurrect(str); +} +#line 794 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(putstring); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn concatstrings(num)(...)(val) */ +INSN_ENTRY(concatstrings) +{ +# define NAME_OF_CURRENT_INSN concatstrings +# define INSN_ATTR(x) attr_ ## x ## _concatstrings(num) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + MAYBE_UNUSED(rb_num_t) num; + + START_OF_ORIGINAL_INSN(concatstrings); + num = (rb_num_t)GET_OPERAND(1); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, num); +#line 384 "insns.def" +{ + val = rb_str_concat_literals(num, STACK_ADDR_FROM_TOP(num)); +} +#line 826 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(concatstrings); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn tostring()(val, str)(val) */ +INSN_ENTRY(tostring) +{ +# define NAME_OF_CURRENT_INSN tostring +# define INSN_ATTR(x) attr_ ## x ## _tostring() + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) str, val; + + START_OF_ORIGINAL_INSN(tostring); + val = TOPN(1); + str = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); +#line 394 "insns.def" +{ + val = rb_obj_as_string_result(str, val); +} +#line 857 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(tostring); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn freezestring(debug_info)(str)(str) */ +INSN_ENTRY(freezestring) +{ +# define NAME_OF_CURRENT_INSN freezestring +# define INSN_ATTR(x) attr_ ## x ## _freezestring(debug_info) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) debug_info, str; + + START_OF_ORIGINAL_INSN(freezestring); + debug_info = (VALUE)GET_OPERAND(1); + str = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, debug_info); +#line 404 "insns.def" +{ + vm_freezestring(str, debug_info); +} +#line 889 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = str; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(freezestring); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn toregexp(opt, cnt)(...)(val) */ +INSN_ENTRY(toregexp) +{ +# define NAME_OF_CURRENT_INSN toregexp +# define INSN_ATTR(x) attr_ ## x ## _toregexp(opt, cnt) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + MAYBE_UNUSED(rb_num_t) cnt, opt; + + START_OF_ORIGINAL_INSN(toregexp); + opt = (rb_num_t)GET_OPERAND(1); + cnt = (rb_num_t)GET_OPERAND(2); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, opt); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cnt); +#line 420 "insns.def" +{ + const VALUE ary = rb_ary_tmp_new_from_values(0, cnt, STACK_ADDR_FROM_TOP(cnt)); + val = rb_reg_new_ary(ary, (int)opt); + rb_ary_clear(ary); +} +#line 925 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(toregexp); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn intern()(str)(sym) */ +INSN_ENTRY(intern) +{ +# define NAME_OF_CURRENT_INSN intern +# define INSN_ATTR(x) attr_ ## x ## _intern() + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) str, sym; + + START_OF_ORIGINAL_INSN(intern); + str = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); +#line 432 "insns.def" +{ + sym = rb_str_intern(str); +} +#line 955 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = sym; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(intern); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn newarray(num)(...)(val) */ +INSN_ENTRY(newarray) +{ +# define NAME_OF_CURRENT_INSN newarray +# define INSN_ATTR(x) attr_ ## x ## _newarray(num) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + MAYBE_UNUSED(rb_num_t) num; + + START_OF_ORIGINAL_INSN(newarray); + num = (rb_num_t)GET_OPERAND(1); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, num); +#line 443 "insns.def" +{ + val = rb_ary_new4(num, STACK_ADDR_FROM_TOP(num)); +} +#line 987 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(newarray); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn duparray(ary)()(val) */ +INSN_ENTRY(duparray) +{ +# define NAME_OF_CURRENT_INSN duparray +# define INSN_ATTR(x) attr_ ## x ## _duparray(ary) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) ary, val; + + START_OF_ORIGINAL_INSN(duparray); + ary = (VALUE)GET_OPERAND(1); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ary); +#line 453 "insns.def" +{ + RUBY_DTRACE_CREATE_HOOK(ARRAY, RARRAY_LEN(ary)); + val = rb_ary_resurrect(ary); +} +#line 1019 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(duparray); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn duphash(hash)()(val) */ +INSN_ENTRY(duphash) +{ +# define NAME_OF_CURRENT_INSN duphash +# define INSN_ATTR(x) attr_ ## x ## _duphash(hash) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) hash, val; + + START_OF_ORIGINAL_INSN(duphash); + hash = (VALUE)GET_OPERAND(1); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, hash); +#line 464 "insns.def" +{ + RUBY_DTRACE_CREATE_HOOK(HASH, RHASH_SIZE(hash) << 1); + val = rb_hash_resurrect(hash); +} +#line 1051 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(duphash); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn expandarray(num, flag)(..., ary)(...) */ +INSN_ENTRY(expandarray) +{ +# define NAME_OF_CURRENT_INSN expandarray +# define INSN_ATTR(x) attr_ ## x ## _expandarray(num, flag) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) ary; + MAYBE_UNUSED(rb_num_t) flag, num; + + START_OF_ORIGINAL_INSN(expandarray); + num = (rb_num_t)GET_OPERAND(1); + flag = (rb_num_t)GET_OPERAND(2); + ary = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, num); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, flag); +#line 485 "insns.def" +{ + vm_expandarray(GET_SP(), ary, num, (int)flag); +} +#line 1085 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + INC_SP(INSN_ATTR(sp_inc)); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(expandarray); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn concatarray()(ary1, ary2)(ary) */ +INSN_ENTRY(concatarray) +{ +# define NAME_OF_CURRENT_INSN concatarray +# define INSN_ATTR(x) attr_ ## x ## _concatarray() + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) ary, ary1, ary2; + + START_OF_ORIGINAL_INSN(concatarray); + ary1 = TOPN(1); + ary2 = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); +#line 496 "insns.def" +{ + ary = vm_concat_array(ary1, ary2); +} +#line 1114 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = ary; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(concatarray); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn splatarray(flag)(ary)(obj) */ +INSN_ENTRY(splatarray) +{ +# define NAME_OF_CURRENT_INSN splatarray +# define INSN_ATTR(x) attr_ ## x ## _splatarray(flag) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) ary, flag, obj; + + START_OF_ORIGINAL_INSN(splatarray); + flag = (VALUE)GET_OPERAND(1); + ary = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, flag); +#line 507 "insns.def" +{ + obj = vm_splat_array(flag, ary); +} +#line 1146 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = obj; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(splatarray); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn newhash(num)(...)(val) */ +INSN_ENTRY(newhash) +{ +# define NAME_OF_CURRENT_INSN newhash +# define INSN_ATTR(x) attr_ ## x ## _newhash(num) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + MAYBE_UNUSED(rb_num_t) num; + + START_OF_ORIGINAL_INSN(newhash); + num = (rb_num_t)GET_OPERAND(1); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, num); +#line 519 "insns.def" +{ + RUBY_DTRACE_CREATE_HOOK(HASH, num); + + val = rb_hash_new_with_size(num / 2); + + if (num) { + rb_hash_bulk_insert(num, STACK_ADDR_FROM_TOP(num), val); + } +} +#line 1184 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(newhash); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn newrange(flag)(low, high)(val) */ +INSN_ENTRY(newrange) +{ +# define NAME_OF_CURRENT_INSN newrange +# define INSN_ATTR(x) attr_ ## x ## _newrange(flag) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) high, low, val; + MAYBE_UNUSED(rb_num_t) flag; + + START_OF_ORIGINAL_INSN(newrange); + flag = (rb_num_t)GET_OPERAND(1); + low = TOPN(1); + high = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, flag); +#line 537 "insns.def" +{ + val = rb_range_new(low, high, (int)flag); +} +#line 1218 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(newrange); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn pop()(val)() */ +INSN_ENTRY(pop) +{ +# define NAME_OF_CURRENT_INSN pop +# define INSN_ATTR(x) attr_ ## x ## _pop() + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(pop); + val = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); +#line 551 "insns.def" +{ + (void)val; + /* none */ +} +#line 1249 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(pop); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn dup()(val)(val1, val2) */ +INSN_ENTRY(dup) +{ +# define NAME_OF_CURRENT_INSN dup +# define INSN_ATTR(x) attr_ ## x ## _dup() + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val, val1, val2; + + START_OF_ORIGINAL_INSN(dup); + val = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); +#line 562 "insns.def" +{ + val1 = val2 = val; +} +#line 1278 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val2; + TOPN(1) = val1; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(dup); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn dupn(n)(...)(...) */ +INSN_ENTRY(dupn) +{ +# define NAME_OF_CURRENT_INSN dupn +# define INSN_ATTR(x) attr_ ## x ## _dupn(n) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(rb_num_t) n; + + START_OF_ORIGINAL_INSN(dupn); + n = (rb_num_t)GET_OPERAND(1); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, n); +#line 573 "insns.def" +{ + void *dst = GET_SP(); + void *src = STACK_ADDR_FROM_TOP(n); + + MEMCPY(dst, src, VALUE, n); +} +#line 1312 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + INC_SP(INSN_ATTR(sp_inc)); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(dupn); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn swap()(val, obj)(obj, val) */ +INSN_ENTRY(swap) +{ +# define NAME_OF_CURRENT_INSN swap +# define INSN_ATTR(x) attr_ ## x ## _swap() + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) obj, val; + + START_OF_ORIGINAL_INSN(swap); + val = TOPN(1); + obj = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + TOPN(1) = obj; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(swap); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn reverse(n)(...)(...) */ +INSN_ENTRY(reverse) +{ +# define NAME_OF_CURRENT_INSN reverse +# define INSN_ATTR(x) attr_ ## x ## _reverse(n) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(rb_num_t) n; + + START_OF_ORIGINAL_INSN(reverse); + n = (rb_num_t)GET_OPERAND(1); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, n); +#line 597 "insns.def" +{ + rb_num_t i; + VALUE *sp = STACK_ADDR_FROM_TOP(n); + + for (i=0; i<n/2; i++) { + VALUE v0 = sp[i]; + VALUE v1 = TOPN(i); + sp[i] = v1; + TOPN(i) = v0; + } +} +#line 1373 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + INC_SP(INSN_ATTR(sp_inc)); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(reverse); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn reput()(..., val)(val) */ +INSN_ENTRY(reput) +{ +# define NAME_OF_CURRENT_INSN reput +# define INSN_ATTR(x) attr_ ## x ## _reput() + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(reput); + val = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(reput); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn topn(n)(...)(val) */ +INSN_ENTRY(topn) +{ +# define NAME_OF_CURRENT_INSN topn +# define INSN_ATTR(x) attr_ ## x ## _topn(n) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + MAYBE_UNUSED(rb_num_t) n; + + START_OF_ORIGINAL_INSN(topn); + n = (rb_num_t)GET_OPERAND(1); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, n); +#line 627 "insns.def" +{ + val = TOPN(n); +} +#line 1426 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(topn); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn setn(n)(..., val)(val) */ +INSN_ENTRY(setn) +{ +# define NAME_OF_CURRENT_INSN setn +# define INSN_ATTR(x) attr_ ## x ## _setn(n) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + MAYBE_UNUSED(rb_num_t) n; + + START_OF_ORIGINAL_INSN(setn); + n = (rb_num_t)GET_OPERAND(1); + val = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, n); +#line 638 "insns.def" +{ + TOPN(n) = val; +} +#line 1459 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(setn); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn adjuststack(n)(...)(...) */ +INSN_ENTRY(adjuststack) +{ +# define NAME_OF_CURRENT_INSN adjuststack +# define INSN_ATTR(x) attr_ ## x ## _adjuststack(n) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(rb_num_t) n; + + START_OF_ORIGINAL_INSN(adjuststack); + n = (rb_num_t)GET_OPERAND(1); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, n); + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + INC_SP(INSN_ATTR(sp_inc)); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(adjuststack); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn defined(op_type, obj, needstr)(v)(val) */ +INSN_ENTRY(defined) +{ +# define NAME_OF_CURRENT_INSN defined +# define INSN_ATTR(x) attr_ ## x ## _defined(op_type, obj, needstr) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) needstr, obj, v, val; + MAYBE_UNUSED(rb_num_t) op_type; + + START_OF_ORIGINAL_INSN(defined); + op_type = (rb_num_t)GET_OPERAND(1); + obj = (VALUE)GET_OPERAND(2); + needstr = (VALUE)GET_OPERAND(3); + v = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, op_type); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, obj); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 2, needstr); +#line 664 "insns.def" +{ + val = vm_defined(ec, GET_CFP(), op_type, obj, needstr, v); +} +#line 1519 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(defined); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn checkmatch(flag)(target, pattern)(result) */ +INSN_ENTRY(checkmatch) +{ +# define NAME_OF_CURRENT_INSN checkmatch +# define INSN_ATTR(x) attr_ ## x ## _checkmatch(flag) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) pattern, result, target; + MAYBE_UNUSED(rb_num_t) flag; + + START_OF_ORIGINAL_INSN(checkmatch); + flag = (rb_num_t)GET_OPERAND(1); + target = TOPN(1); + pattern = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, flag); +#line 681 "insns.def" +{ + result = vm_check_match(ec, target, pattern, flag); +} +#line 1553 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = result; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(checkmatch); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn checkkeyword(kw_bits_index, keyword_index)()(ret) */ +INSN_ENTRY(checkkeyword) +{ +# define NAME_OF_CURRENT_INSN checkkeyword +# define INSN_ATTR(x) attr_ ## x ## _checkkeyword(kw_bits_index, keyword_index) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) ret; + MAYBE_UNUSED(lindex_t) keyword_index, kw_bits_index; + + START_OF_ORIGINAL_INSN(checkkeyword); + kw_bits_index = (lindex_t)GET_OPERAND(1); + keyword_index = (lindex_t)GET_OPERAND(2); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, kw_bits_index); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, keyword_index); +#line 691 "insns.def" +{ + ret = vm_check_keyword(kw_bits_index, keyword_index, GET_EP()); +} +#line 1587 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = ret; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(checkkeyword); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn checktype(type)(val)(ret) */ +INSN_ENTRY(checktype) +{ +# define NAME_OF_CURRENT_INSN checktype +# define INSN_ATTR(x) attr_ ## x ## _checktype(type) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) ret, val; + MAYBE_UNUSED(rb_num_t) type; + + START_OF_ORIGINAL_INSN(checktype); + type = (rb_num_t)GET_OPERAND(1); + val = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, type); +#line 701 "insns.def" +{ + ret = (TYPE(val) == (int)type) ? Qtrue : Qfalse; +} +#line 1620 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = ret; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(checktype); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn defineclass(id, class_iseq, flags)(cbase, super)(val) */ +INSN_ENTRY(defineclass) +{ +# define NAME_OF_CURRENT_INSN defineclass +# define INSN_ATTR(x) attr_ ## x ## _defineclass(id, class_iseq, flags) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(ID) id; + MAYBE_UNUSED(ISEQ) class_iseq; + MAYBE_UNUSED(VALUE) cbase, super, val; + MAYBE_UNUSED(rb_num_t) flags; + + START_OF_ORIGINAL_INSN(defineclass); + id = (ID)GET_OPERAND(1); + class_iseq = (ISEQ)GET_OPERAND(2); + flags = (rb_num_t)GET_OPERAND(3); + cbase = TOPN(1); + super = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + POPN(INSN_ATTR(popn)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, id); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, class_iseq); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 2, flags); +#line 717 "insns.def" +{ + VALUE klass = vm_find_or_create_class_by_id(id, flags, cbase, super); + + rb_iseq_check(class_iseq); + + /* enter scope */ + vm_push_frame(ec, class_iseq, VM_FRAME_MAGIC_CLASS | VM_ENV_FLAG_LOCAL, klass, + GET_BLOCK_HANDLER(), + (VALUE)vm_cref_push(ec, klass, NULL, FALSE), + class_iseq->body->iseq_encoded, GET_SP(), + class_iseq->body->local_table_size, + class_iseq->body->stack_max); + RESTORE_REGS(); + NEXT_INSN(); +} +#line 1673 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + PUSH(val); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(defineclass); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn send(ci, cc, blockiseq)(...)(val) */ +INSN_ENTRY(send) +{ +# define NAME_OF_CURRENT_INSN send +# define INSN_ATTR(x) attr_ ## x ## _send(ci, cc, blockiseq) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(ISEQ) blockiseq; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(send); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + blockiseq = (ISEQ)GET_OPERAND(3); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + POPN(INSN_ATTR(popn)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 2, blockiseq); +#line 744 "insns.def" +{ + struct rb_calling_info calling; + + calling.block_handler = vm_caller_setup_arg_block(ec, reg_cfp, ci, blockiseq, FALSE); + calling.recv = TOPN(calling.argc = ci->orig_argc); + vm_search_method(ci, cc, calling.recv); + CALL_METHOD(&calling, ci, cc); +} +#line 1716 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + PUSH(val); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(send); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_send_without_block(ci, cc)(...)(val) */ +INSN_ENTRY(opt_send_without_block) +{ +# define NAME_OF_CURRENT_INSN opt_send_without_block +# define INSN_ATTR(x) attr_ ## x ## _opt_send_without_block(ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(opt_send_without_block); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + POPN(INSN_ATTR(popn)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); +#line 761 "insns.def" +{ + struct rb_calling_info calling; + calling.block_handler = VM_BLOCK_HANDLER_NONE; + vm_search_method(ci, cc, calling.recv = TOPN(calling.argc = ci->orig_argc)); + CALL_METHOD(&calling, ci, cc); +} +#line 1754 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + PUSH(val); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_send_without_block); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_str_freeze(str, ci, cc)()(val) */ +INSN_ENTRY(opt_str_freeze) +{ +# define NAME_OF_CURRENT_INSN opt_str_freeze +# define INSN_ATTR(x) attr_ ## x ## _opt_str_freeze(str, ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) str, val; + + START_OF_ORIGINAL_INSN(opt_str_freeze); + str = (VALUE)GET_OPERAND(1); + ci = (CALL_INFO)GET_OPERAND(2); + cc = (CALL_CACHE)GET_OPERAND(3); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, str); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 2, cc); +#line 773 "insns.def" +{ + val = vm_opt_str_freeze(str, BOP_FREEZE, idFreeze); + + if (val == Qundef) { + PUSH(rb_str_resurrect(str)); + CALL_SIMPLE_METHOD(); + } +} +#line 1795 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_str_freeze); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_str_uminus(str, ci, cc)()(val) */ +INSN_ENTRY(opt_str_uminus) +{ +# define NAME_OF_CURRENT_INSN opt_str_uminus +# define INSN_ATTR(x) attr_ ## x ## _opt_str_uminus(str, ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) str, val; + + START_OF_ORIGINAL_INSN(opt_str_uminus); + str = (VALUE)GET_OPERAND(1); + ci = (CALL_INFO)GET_OPERAND(2); + cc = (CALL_CACHE)GET_OPERAND(3); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, str); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 2, cc); +#line 787 "insns.def" +{ + val = vm_opt_str_freeze(str, BOP_UMINUS, idUMinus); + + if (val == Qundef) { + PUSH(rb_str_resurrect(str)); + CALL_SIMPLE_METHOD(); + } +} +#line 1837 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_str_uminus); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_newarray_max(num)(...)(val) */ +INSN_ENTRY(opt_newarray_max) +{ +# define NAME_OF_CURRENT_INSN opt_newarray_max +# define INSN_ATTR(x) attr_ ## x ## _opt_newarray_max(num) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + MAYBE_UNUSED(rb_num_t) num; + + START_OF_ORIGINAL_INSN(opt_newarray_max); + num = (rb_num_t)GET_OPERAND(1); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, num); +#line 807 "insns.def" +{ + val = vm_opt_newarray_max(num, STACK_ADDR_FROM_TOP(num)); +} +#line 1869 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_newarray_max); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_newarray_min(num)(...)(val) */ +INSN_ENTRY(opt_newarray_min) +{ +# define NAME_OF_CURRENT_INSN opt_newarray_min +# define INSN_ATTR(x) attr_ ## x ## _opt_newarray_min(num) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + MAYBE_UNUSED(rb_num_t) num; + + START_OF_ORIGINAL_INSN(opt_newarray_min); + num = (rb_num_t)GET_OPERAND(1); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, num); +#line 819 "insns.def" +{ + val = vm_opt_newarray_min(num, STACK_ADDR_FROM_TOP(num)); +} +#line 1901 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_newarray_min); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn invokesuper(ci, cc, blockiseq)(...)(val) */ +INSN_ENTRY(invokesuper) +{ +# define NAME_OF_CURRENT_INSN invokesuper +# define INSN_ATTR(x) attr_ ## x ## _invokesuper(ci, cc, blockiseq) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(ISEQ) blockiseq; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(invokesuper); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + blockiseq = (ISEQ)GET_OPERAND(3); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + POPN(INSN_ATTR(popn)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 2, blockiseq); +#line 830 "insns.def" +{ + struct rb_calling_info calling; + + calling.block_handler = vm_caller_setup_arg_block(ec, reg_cfp, ci, blockiseq, TRUE); + calling.recv = TOPN(calling.argc = ci->orig_argc); + vm_search_super_method(ec, GET_CFP(), &calling, ci, cc); + CALL_METHOD(&calling, ci, cc); +} +#line 1945 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + PUSH(val); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(invokesuper); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn invokeblock(ci)(...)(val) */ +INSN_ENTRY(invokeblock) +{ +# define NAME_OF_CURRENT_INSN invokeblock +# define INSN_ATTR(x) attr_ ## x ## _invokeblock(ci) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(invokeblock); + ci = (CALL_INFO)GET_OPERAND(1); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + POPN(INSN_ATTR(popn)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); +#line 847 "insns.def" +{ + struct rb_calling_info calling; + VALUE block_handler; + + calling.argc = ci->orig_argc; + calling.block_handler = VM_BLOCK_HANDLER_NONE; + calling.recv = Qundef; /* should not be used */ + + block_handler = VM_CF_BLOCK_HANDLER(GET_CFP()); + if (block_handler == VM_BLOCK_HANDLER_NONE) { + rb_vm_localjump_error("no block given (yield)", Qnil, 0); + } + + val = vm_invoke_block(ec, GET_CFP(), &calling, ci, block_handler); + if (val == Qundef) { + EXEC_EC_CFP(val); + } +} +#line 1992 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + PUSH(val); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(invokeblock); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn leave()(val)(val) */ +INSN_ENTRY(leave) +{ +# define NAME_OF_CURRENT_INSN leave +# define INSN_ATTR(x) attr_ ## x ## _leave() + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(leave); + val = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + POPN(INSN_ATTR(popn)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); +#line 877 "insns.def" +{ + if (OPT_CHECKED_RUN) { + const VALUE *const bp = vm_base_ptr(reg_cfp); + if (reg_cfp->sp != bp) { + vm_stack_consistency_error(ec, reg_cfp, bp); + } + } + + RUBY_VM_CHECK_INTS(ec); + + if (vm_pop_frame(ec, GET_CFP(), GET_EP())) { +#if OPT_CALL_THREADED_CODE + rb_ec_thread_ptr(ec)->retval = val; + return 0; +#else + return val; +#endif + } + else { + RESTORE_REGS(); + } +} +#line 2041 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + PUSH(val); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(leave); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn throw(throw_state)(throwobj)(val) */ +INSN_ENTRY(throw) +{ +# define NAME_OF_CURRENT_INSN throw +# define INSN_ATTR(x) attr_ ## x ## _throw(throw_state) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) throwobj, val; + MAYBE_UNUSED(rb_num_t) throw_state; + + START_OF_ORIGINAL_INSN(throw); + throw_state = (rb_num_t)GET_OPERAND(1); + throwobj = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, throw_state); +#line 912 "insns.def" +{ + RUBY_VM_CHECK_INTS(ec); + val = vm_throw(ec, GET_CFP(), throw_state, throwobj); + THROW_EXCEPTION(val); + /* unreachable */ +} +#line 2076 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(throw); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn jump(dst)()() */ +INSN_ENTRY(jump) +{ +# define NAME_OF_CURRENT_INSN jump +# define INSN_ATTR(x) attr_ ## x ## _jump(dst) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(OFFSET) dst; + + START_OF_ORIGINAL_INSN(jump); + dst = (OFFSET)GET_OPERAND(1); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, dst); +#line 931 "insns.def" +{ + RUBY_VM_CHECK_INTS(ec); + JUMP(dst); +} +#line 2108 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(jump); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn branchif(dst)(val)() */ +INSN_ENTRY(branchif) +{ +# define NAME_OF_CURRENT_INSN branchif +# define INSN_ATTR(x) attr_ ## x ## _branchif(dst) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(OFFSET) dst; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(branchif); + dst = (OFFSET)GET_OPERAND(1); + val = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, dst); +#line 944 "insns.def" +{ + if (RTEST(val)) { + RUBY_VM_CHECK_INTS(ec); + JUMP(dst); + } +} +#line 2143 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(branchif); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn branchunless(dst)(val)() */ +INSN_ENTRY(branchunless) +{ +# define NAME_OF_CURRENT_INSN branchunless +# define INSN_ATTR(x) attr_ ## x ## _branchunless(dst) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(OFFSET) dst; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(branchunless); + dst = (OFFSET)GET_OPERAND(1); + val = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, dst); +#line 959 "insns.def" +{ + if (!RTEST(val)) { + RUBY_VM_CHECK_INTS(ec); + JUMP(dst); + } +} +#line 2178 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(branchunless); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn branchnil(dst)(val)() */ +INSN_ENTRY(branchnil) +{ +# define NAME_OF_CURRENT_INSN branchnil +# define INSN_ATTR(x) attr_ ## x ## _branchnil(dst) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(OFFSET) dst; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(branchnil); + dst = (OFFSET)GET_OPERAND(1); + val = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, dst); +#line 974 "insns.def" +{ + if (NIL_P(val)) { + RUBY_VM_CHECK_INTS(ec); + JUMP(dst); + } +} +#line 2213 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(branchnil); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_getinlinecache(dst, ic)()(val) */ +INSN_ENTRY(opt_getinlinecache) +{ +# define NAME_OF_CURRENT_INSN opt_getinlinecache +# define INSN_ATTR(x) attr_ ## x ## _opt_getinlinecache(dst, ic) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(IC) ic; + MAYBE_UNUSED(OFFSET) dst; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(opt_getinlinecache); + dst = (OFFSET)GET_OPERAND(1); + ic = (IC)GET_OPERAND(2); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, dst); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, ic); +#line 991 "insns.def" +{ + if (vm_ic_hit_p(ic, GET_EP())) { + val = ic->ic_value.value; + JUMP(dst); + } + else { + val = Qnil; + } +} +#line 2253 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_getinlinecache); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_setinlinecache(ic)(val)(val) */ +INSN_ENTRY(opt_setinlinecache) +{ +# define NAME_OF_CURRENT_INSN opt_setinlinecache +# define INSN_ATTR(x) attr_ ## x ## _opt_setinlinecache(ic) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(IC) ic; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(opt_setinlinecache); + ic = (IC)GET_OPERAND(1); + val = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ic); +#line 1007 "insns.def" +{ + vm_ic_update(ic, val, GET_EP()); +} +#line 2286 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_setinlinecache); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn once(iseq, ise)()(val) */ +INSN_ENTRY(once) +{ +# define NAME_OF_CURRENT_INSN once +# define INSN_ATTR(x) attr_ ## x ## _once(iseq, ise) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(ISE) ise; + MAYBE_UNUSED(ISEQ) iseq; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(once); + iseq = (ISEQ)GET_OPERAND(1); + ise = (ISE)GET_OPERAND(2); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + POPN(INSN_ATTR(popn)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, iseq); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, ise); +#line 1017 "insns.def" +{ + val = vm_once_dispatch(ec, iseq, ise); +} +#line 2322 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + PUSH(val); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(once); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_case_dispatch(hash, else_offset)(..., key)() */ +INSN_ENTRY(opt_case_dispatch) +{ +# define NAME_OF_CURRENT_INSN opt_case_dispatch +# define INSN_ATTR(x) attr_ ## x ## _opt_case_dispatch(hash, else_offset) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CDHASH) hash; + MAYBE_UNUSED(OFFSET) else_offset; + MAYBE_UNUSED(VALUE) key; + + START_OF_ORIGINAL_INSN(opt_case_dispatch); + hash = (CDHASH)GET_OPERAND(1); + else_offset = (OFFSET)GET_OPERAND(2); + key = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, hash); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, else_offset); +#line 1028 "insns.def" +{ + OFFSET dst = vm_case_dispatch(hash, else_offset, key); + + if (dst) { + JUMP(dst); + } +} +#line 2361 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_case_dispatch); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_plus(ci, cc)(recv, obj)(val) */ +INSN_ENTRY(opt_plus) +{ +# define NAME_OF_CURRENT_INSN opt_plus +# define INSN_ATTR(x) attr_ ## x ## _opt_plus(ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) obj, recv, val; + + START_OF_ORIGINAL_INSN(opt_plus); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + recv = TOPN(1); + obj = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); +#line 1047 "insns.def" +{ + val = vm_opt_plus(recv, obj); + + if (val == Qundef) { + CALL_SIMPLE_METHOD(); + } +} +#line 2401 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_plus); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_minus(ci, cc)(recv, obj)(val) */ +INSN_ENTRY(opt_minus) +{ +# define NAME_OF_CURRENT_INSN opt_minus +# define INSN_ATTR(x) attr_ ## x ## _opt_minus(ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) obj, recv, val; + + START_OF_ORIGINAL_INSN(opt_minus); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + recv = TOPN(1); + obj = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); +#line 1061 "insns.def" +{ + val = vm_opt_minus(recv, obj); + + if (val == Qundef) { + CALL_SIMPLE_METHOD(); + } +} +#line 2442 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_minus); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_mult(ci, cc)(recv, obj)(val) */ +INSN_ENTRY(opt_mult) +{ +# define NAME_OF_CURRENT_INSN opt_mult +# define INSN_ATTR(x) attr_ ## x ## _opt_mult(ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) obj, recv, val; + + START_OF_ORIGINAL_INSN(opt_mult); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + recv = TOPN(1); + obj = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); +#line 1075 "insns.def" +{ + val = vm_opt_mult(recv, obj); + + if (val == Qundef) { + CALL_SIMPLE_METHOD(); + } +} +#line 2483 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_mult); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_div(ci, cc)(recv, obj)(val) */ +INSN_ENTRY(opt_div) +{ +# define NAME_OF_CURRENT_INSN opt_div +# define INSN_ATTR(x) attr_ ## x ## _opt_div(ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) obj, recv, val; + + START_OF_ORIGINAL_INSN(opt_div); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + recv = TOPN(1); + obj = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); +#line 1089 "insns.def" +{ + val = vm_opt_div(recv, obj); + + if (val == Qundef) { + CALL_SIMPLE_METHOD(); + } +} +#line 2524 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_div); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_mod(ci, cc)(recv, obj)(val) */ +INSN_ENTRY(opt_mod) +{ +# define NAME_OF_CURRENT_INSN opt_mod +# define INSN_ATTR(x) attr_ ## x ## _opt_mod(ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) obj, recv, val; + + START_OF_ORIGINAL_INSN(opt_mod); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + recv = TOPN(1); + obj = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); +#line 1103 "insns.def" +{ + val = vm_opt_mod(recv, obj); + + if (val == Qundef) { + CALL_SIMPLE_METHOD(); + } +} +#line 2565 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_mod); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_eq(ci, cc)(recv, obj)(val) */ +INSN_ENTRY(opt_eq) +{ +# define NAME_OF_CURRENT_INSN opt_eq +# define INSN_ATTR(x) attr_ ## x ## _opt_eq(ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) obj, recv, val; + + START_OF_ORIGINAL_INSN(opt_eq); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + recv = TOPN(1); + obj = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); +#line 1121 "insns.def" +{ + val = opt_eq_func(recv, obj, ci, cc); + + if (val == Qundef) { + CALL_SIMPLE_METHOD(); + } +} +#line 2606 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_eq); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_neq(ci_eq, cc_eq, ci, cc)(recv, obj)(val) */ +INSN_ENTRY(opt_neq) +{ +# define NAME_OF_CURRENT_INSN opt_neq +# define INSN_ATTR(x) attr_ ## x ## _opt_neq(ci_eq, cc_eq, ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc, cc_eq; + MAYBE_UNUSED(CALL_INFO) ci, ci_eq; + MAYBE_UNUSED(VALUE) obj, recv, val; + + START_OF_ORIGINAL_INSN(opt_neq); + ci_eq = (CALL_INFO)GET_OPERAND(1); + cc_eq = (CALL_CACHE)GET_OPERAND(2); + ci = (CALL_INFO)GET_OPERAND(3); + cc = (CALL_CACHE)GET_OPERAND(4); + recv = TOPN(1); + obj = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci_eq); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc_eq); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 2, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 3, cc); +#line 1137 "insns.def" +{ + val = vm_opt_neq(ci, cc, ci_eq, cc_eq, recv, obj); + + if (val == Qundef) { + CALL_SIMPLE_METHOD(); + } +} +#line 2651 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_neq); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_lt(ci, cc)(recv, obj)(val) */ +INSN_ENTRY(opt_lt) +{ +# define NAME_OF_CURRENT_INSN opt_lt +# define INSN_ATTR(x) attr_ ## x ## _opt_lt(ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) obj, recv, val; + + START_OF_ORIGINAL_INSN(opt_lt); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + recv = TOPN(1); + obj = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); +#line 1151 "insns.def" +{ + val = vm_opt_lt(recv, obj); + + if (val == Qundef) { + CALL_SIMPLE_METHOD(); + } +} +#line 2692 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_lt); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_le(ci, cc)(recv, obj)(val) */ +INSN_ENTRY(opt_le) +{ +# define NAME_OF_CURRENT_INSN opt_le +# define INSN_ATTR(x) attr_ ## x ## _opt_le(ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) obj, recv, val; + + START_OF_ORIGINAL_INSN(opt_le); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + recv = TOPN(1); + obj = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); +#line 1165 "insns.def" +{ + val = vm_opt_le(recv, obj); + + if (val == Qundef) { + CALL_SIMPLE_METHOD(); + } +} +#line 2733 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_le); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_gt(ci, cc)(recv, obj)(val) */ +INSN_ENTRY(opt_gt) +{ +# define NAME_OF_CURRENT_INSN opt_gt +# define INSN_ATTR(x) attr_ ## x ## _opt_gt(ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) obj, recv, val; + + START_OF_ORIGINAL_INSN(opt_gt); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + recv = TOPN(1); + obj = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); +#line 1179 "insns.def" +{ + val = vm_opt_gt(recv, obj); + + if (val == Qundef) { + CALL_SIMPLE_METHOD(); + } +} +#line 2774 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_gt); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_ge(ci, cc)(recv, obj)(val) */ +INSN_ENTRY(opt_ge) +{ +# define NAME_OF_CURRENT_INSN opt_ge +# define INSN_ATTR(x) attr_ ## x ## _opt_ge(ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) obj, recv, val; + + START_OF_ORIGINAL_INSN(opt_ge); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + recv = TOPN(1); + obj = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); +#line 1193 "insns.def" +{ + val = vm_opt_ge(recv, obj); + + if (val == Qundef) { + CALL_SIMPLE_METHOD(); + } +} +#line 2815 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_ge); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_ltlt(ci, cc)(recv, obj)(val) */ +INSN_ENTRY(opt_ltlt) +{ +# define NAME_OF_CURRENT_INSN opt_ltlt +# define INSN_ATTR(x) attr_ ## x ## _opt_ltlt(ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) obj, recv, val; + + START_OF_ORIGINAL_INSN(opt_ltlt); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + recv = TOPN(1); + obj = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); +#line 1207 "insns.def" +{ + val = vm_opt_ltlt(recv, obj); + + if (val == Qundef) { + CALL_SIMPLE_METHOD(); + } +} +#line 2856 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_ltlt); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_and(ci, cc)(recv, obj)(val) */ +INSN_ENTRY(opt_and) +{ +# define NAME_OF_CURRENT_INSN opt_and +# define INSN_ATTR(x) attr_ ## x ## _opt_and(ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) obj, recv, val; + + START_OF_ORIGINAL_INSN(opt_and); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + recv = TOPN(1); + obj = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); +#line 1221 "insns.def" +{ + val = vm_opt_and(recv, obj); + + if (val == Qundef) { + CALL_SIMPLE_METHOD(); + } +} +#line 2897 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_and); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_or(ci, cc)(recv, obj)(val) */ +INSN_ENTRY(opt_or) +{ +# define NAME_OF_CURRENT_INSN opt_or +# define INSN_ATTR(x) attr_ ## x ## _opt_or(ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) obj, recv, val; + + START_OF_ORIGINAL_INSN(opt_or); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + recv = TOPN(1); + obj = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); +#line 1235 "insns.def" +{ + val = vm_opt_or(recv, obj); + + if (val == Qundef) { + CALL_SIMPLE_METHOD(); + } +} +#line 2938 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_or); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_aref(ci, cc)(recv, obj)(val) */ +INSN_ENTRY(opt_aref) +{ +# define NAME_OF_CURRENT_INSN opt_aref +# define INSN_ATTR(x) attr_ ## x ## _opt_aref(ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) obj, recv, val; + + START_OF_ORIGINAL_INSN(opt_aref); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + recv = TOPN(1); + obj = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); +#line 1254 "insns.def" +{ + val = vm_opt_aref(recv, obj); + + if (val == Qundef) { + CALL_SIMPLE_METHOD(); + } +} +#line 2979 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_aref); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_aset(ci, cc)(recv, obj, set)(val) */ +INSN_ENTRY(opt_aset) +{ +# define NAME_OF_CURRENT_INSN opt_aset +# define INSN_ATTR(x) attr_ ## x ## _opt_aset(ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) obj, recv, set, val; + + START_OF_ORIGINAL_INSN(opt_aset); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + recv = TOPN(2); + obj = TOPN(1); + set = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); +#line 1271 "insns.def" +{ + val = vm_opt_aset(recv, obj, set); + + if (val == Qundef) { + CALL_SIMPLE_METHOD(); + } +} +#line 3021 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_aset); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_aset_with(key, ci, cc)(recv, val)(val) */ +INSN_ENTRY(opt_aset_with) +{ +# define NAME_OF_CURRENT_INSN opt_aset_with +# define INSN_ATTR(x) attr_ ## x ## _opt_aset_with(key, ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) key, recv, val; + + START_OF_ORIGINAL_INSN(opt_aset_with); + key = (VALUE)GET_OPERAND(1); + ci = (CALL_INFO)GET_OPERAND(2); + cc = (CALL_CACHE)GET_OPERAND(3); + recv = TOPN(1); + val = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, key); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 2, cc); +#line 1287 "insns.def" +{ + VALUE tmp = vm_opt_aset_with(recv, key, val); + + if (tmp != Qundef) { + val = tmp; + } + else { +#ifndef MJIT_HEADER + TOPN(0) = rb_str_resurrect(key); + PUSH(val); +#endif + CALL_SIMPLE_METHOD(); + } +} +#line 3071 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_aset_with); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_aref_with(key, ci, cc)(recv)(val) */ +INSN_ENTRY(opt_aref_with) +{ +# define NAME_OF_CURRENT_INSN opt_aref_with +# define INSN_ATTR(x) attr_ ## x ## _opt_aref_with(key, ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) key, recv, val; + + START_OF_ORIGINAL_INSN(opt_aref_with); + key = (VALUE)GET_OPERAND(1); + ci = (CALL_INFO)GET_OPERAND(2); + cc = (CALL_CACHE)GET_OPERAND(3); + recv = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, key); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 2, cc); +#line 1310 "insns.def" +{ + val = vm_opt_aref_with(recv, key); + + if (val == Qundef) { +#ifndef MJIT_HEADER + PUSH(rb_str_resurrect(key)); +#endif + CALL_SIMPLE_METHOD(); + } +} +#line 3116 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_aref_with); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_length(ci, cc)(recv)(val) */ +INSN_ENTRY(opt_length) +{ +# define NAME_OF_CURRENT_INSN opt_length +# define INSN_ATTR(x) attr_ ## x ## _opt_length(ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) recv, val; + + START_OF_ORIGINAL_INSN(opt_length); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + recv = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); +#line 1327 "insns.def" +{ + val = vm_opt_length(recv, BOP_LENGTH); + + if (val == Qundef) { + CALL_SIMPLE_METHOD(); + } +} +#line 3156 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_length); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_size(ci, cc)(recv)(val) */ +INSN_ENTRY(opt_size) +{ +# define NAME_OF_CURRENT_INSN opt_size +# define INSN_ATTR(x) attr_ ## x ## _opt_size(ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) recv, val; + + START_OF_ORIGINAL_INSN(opt_size); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + recv = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); +#line 1341 "insns.def" +{ + val = vm_opt_length(recv, BOP_SIZE); + + if (val == Qundef) { + CALL_SIMPLE_METHOD(); + } +} +#line 3196 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_size); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_empty_p(ci, cc)(recv)(val) */ +INSN_ENTRY(opt_empty_p) +{ +# define NAME_OF_CURRENT_INSN opt_empty_p +# define INSN_ATTR(x) attr_ ## x ## _opt_empty_p(ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) recv, val; + + START_OF_ORIGINAL_INSN(opt_empty_p); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + recv = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); +#line 1355 "insns.def" +{ + val = vm_opt_empty_p(recv); + + if (val == Qundef) { + CALL_SIMPLE_METHOD(); + } +} +#line 3236 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_empty_p); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_succ(ci, cc)(recv)(val) */ +INSN_ENTRY(opt_succ) +{ +# define NAME_OF_CURRENT_INSN opt_succ +# define INSN_ATTR(x) attr_ ## x ## _opt_succ(ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) recv, val; + + START_OF_ORIGINAL_INSN(opt_succ); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + recv = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); +#line 1369 "insns.def" +{ + val = vm_opt_succ(recv); + + if (val == Qundef) { + CALL_SIMPLE_METHOD(); + } +} +#line 3276 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_succ); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_not(ci, cc)(recv)(val) */ +INSN_ENTRY(opt_not) +{ +# define NAME_OF_CURRENT_INSN opt_not +# define INSN_ATTR(x) attr_ ## x ## _opt_not(ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) recv, val; + + START_OF_ORIGINAL_INSN(opt_not); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + recv = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); +#line 1383 "insns.def" +{ + val = vm_opt_not(ci, cc, recv); + + if (val == Qundef) { + CALL_SIMPLE_METHOD(); + } +} +#line 3316 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_not); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_regexpmatch1(recv)(obj)(val) */ +INSN_ENTRY(opt_regexpmatch1) +{ +# define NAME_OF_CURRENT_INSN opt_regexpmatch1 +# define INSN_ATTR(x) attr_ ## x ## _opt_regexpmatch1(recv) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) obj, recv, val; + + START_OF_ORIGINAL_INSN(opt_regexpmatch1); + recv = (VALUE)GET_OPERAND(1); + obj = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, recv); +#line 1398 "insns.def" +{ + val = vm_opt_regexpmatch1(recv, obj); +} +#line 3348 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_regexpmatch1); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_regexpmatch2(ci, cc)(obj2, obj1)(val) */ +INSN_ENTRY(opt_regexpmatch2) +{ +# define NAME_OF_CURRENT_INSN opt_regexpmatch2 +# define INSN_ATTR(x) attr_ ## x ## _opt_regexpmatch2(ci, cc) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(CALL_CACHE) cc; + MAYBE_UNUSED(CALL_INFO) ci; + MAYBE_UNUSED(VALUE) obj1, obj2, val; + + START_OF_ORIGINAL_INSN(opt_regexpmatch2); + ci = (CALL_INFO)GET_OPERAND(1); + cc = (CALL_CACHE)GET_OPERAND(2); + obj2 = TOPN(1); + obj1 = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, ci); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 1, cc); +#line 1408 "insns.def" +{ + val = vm_opt_regexpmatch2(obj2, obj1); + + if (val == Qundef) { + CALL_SIMPLE_METHOD(); + } +} +#line 3389 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_regexpmatch2); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn opt_call_c_function(funcptr)()() */ +INSN_ENTRY(opt_call_c_function) +{ +# define NAME_OF_CURRENT_INSN opt_call_c_function +# define INSN_ATTR(x) attr_ ## x ## _opt_call_c_function(funcptr) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(rb_insn_func_t) funcptr; + + START_OF_ORIGINAL_INSN(opt_call_c_function); + funcptr = (rb_insn_func_t)GET_OPERAND(1); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + POPN(INSN_ATTR(popn)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, funcptr); +#line 1424 "insns.def" +{ + reg_cfp = (funcptr)(ec, reg_cfp); + + if (reg_cfp == 0) { + VALUE err = ec->errinfo; + ec->errinfo = Qnil; + THROW_EXCEPTION(err); + } + + RESTORE_REGS(); + NEXT_INSN(); +} +#line 3430 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(opt_call_c_function); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn bitblt()()(ret) */ +INSN_ENTRY(bitblt) +{ +# define NAME_OF_CURRENT_INSN bitblt +# define INSN_ATTR(x) attr_ ## x ## _bitblt() + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) ret; + + START_OF_ORIGINAL_INSN(bitblt); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); +#line 1443 "insns.def" +{ + ret = rb_str_new2("a bit of bacon, lettuce and tomato"); +} +#line 3457 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = ret; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(bitblt); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn answer()()(ret) */ +INSN_ENTRY(answer) +{ +# define NAME_OF_CURRENT_INSN answer +# define INSN_ATTR(x) attr_ ## x ## _answer() + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) ret; + + START_OF_ORIGINAL_INSN(answer); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); +#line 1453 "insns.def" +{ + ret = INT2FIX(42); +} +#line 3486 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = ret; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(answer); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn getlocal_WC_0(idx)()(val) */ +INSN_ENTRY(getlocal_WC_0) +{ +# define NAME_OF_CURRENT_INSN getlocal_WC_0 +# define INSN_ATTR(x) attr_ ## x ## _getlocal_WC_0(idx) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + MAYBE_UNUSED(lindex_t) idx; + MAYBE_UNUSED(rb_num_t) level; + + START_OF_ORIGINAL_INSN(getlocal_WC_0); +#line 10 "defs/opt_operand.def" + level = 0; +#line 3511 "vm.inc" + idx = (lindex_t)GET_OPERAND(1); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, idx); +#line 81 "insns.def" +{ + val = *(vm_get_ep(GET_EP(), level) - idx); + RB_DEBUG_COUNTER_INC(lvar_get); + (void)RB_DEBUG_COUNTER_INC_IF(lvar_get_dynamic, level > 0); +} +#line 3524 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(getlocal_WC_0); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn getlocal_WC_1(idx)()(val) */ +INSN_ENTRY(getlocal_WC_1) +{ +# define NAME_OF_CURRENT_INSN getlocal_WC_1 +# define INSN_ATTR(x) attr_ ## x ## _getlocal_WC_1(idx) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + MAYBE_UNUSED(lindex_t) idx; + MAYBE_UNUSED(rb_num_t) level; + + START_OF_ORIGINAL_INSN(getlocal_WC_1); +#line 11 "defs/opt_operand.def" + level = 1; +#line 3549 "vm.inc" + idx = (lindex_t)GET_OPERAND(1); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, idx); +#line 81 "insns.def" +{ + val = *(vm_get_ep(GET_EP(), level) - idx); + RB_DEBUG_COUNTER_INC(lvar_get); + (void)RB_DEBUG_COUNTER_INC_IF(lvar_get_dynamic, level > 0); +} +#line 3562 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(getlocal_WC_1); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn setlocal_WC_0(idx)(val)() */ +INSN_ENTRY(setlocal_WC_0) +{ +# define NAME_OF_CURRENT_INSN setlocal_WC_0 +# define INSN_ATTR(x) attr_ ## x ## _setlocal_WC_0(idx) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + MAYBE_UNUSED(lindex_t) idx; + MAYBE_UNUSED(rb_num_t) level; + + START_OF_ORIGINAL_INSN(setlocal_WC_0); +#line 12 "defs/opt_operand.def" + level = 0; +#line 3587 "vm.inc" + idx = (lindex_t)GET_OPERAND(1); + val = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, idx); +#line 95 "insns.def" +{ + vm_env_write(vm_get_ep(GET_EP(), level), -(int)idx, val); + RB_DEBUG_COUNTER_INC(lvar_set); + (void)RB_DEBUG_COUNTER_INC_IF(lvar_set_dynamic, level > 0); +} +#line 3601 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(setlocal_WC_0); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn setlocal_WC_1(idx)(val)() */ +INSN_ENTRY(setlocal_WC_1) +{ +# define NAME_OF_CURRENT_INSN setlocal_WC_1 +# define INSN_ATTR(x) attr_ ## x ## _setlocal_WC_1(idx) + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + MAYBE_UNUSED(lindex_t) idx; + MAYBE_UNUSED(rb_num_t) level; + + START_OF_ORIGINAL_INSN(setlocal_WC_1); +#line 13 "defs/opt_operand.def" + level = 1; +#line 3625 "vm.inc" + idx = (lindex_t)GET_OPERAND(1); + val = TOPN(0); + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + SETUP_CANARY(); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + COLLECT_USAGE_OPERAND(INSN_ATTR(bin), 0, idx); +#line 95 "insns.def" +{ + vm_env_write(vm_get_ep(GET_EP(), level), -(int)idx, val); + RB_DEBUG_COUNTER_INC(lvar_set); + (void)RB_DEBUG_COUNTER_INC_IF(lvar_set_dynamic, level > 0); +} +#line 3639 "vm.inc" + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + CHECK_CANARY(); + INC_SP(INSN_ATTR(sp_inc)); + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(setlocal_WC_1); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn putobject_INT2FIX_0_()()(val) */ +INSN_ENTRY(putobject_INT2FIX_0_) +{ +# define NAME_OF_CURRENT_INSN putobject_INT2FIX_0_ +# define INSN_ATTR(x) attr_ ## x ## _putobject_INT2FIX_0_() + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(putobject_INT2FIX_0_); +#line 15 "defs/opt_operand.def" + val = INT2FIX(0); +#line 3661 "vm.inc" + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(putobject_INT2FIX_0_); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn putobject_INT2FIX_1_()()(val) */ +INSN_ENTRY(putobject_INT2FIX_1_) +{ +# define NAME_OF_CURRENT_INSN putobject_INT2FIX_1_ +# define INSN_ATTR(x) attr_ ## x ## _putobject_INT2FIX_1_() + bool leaf; + MAYBE_UNUSED(VALUE *) canary; + MAYBE_UNUSED(VALUE) val; + + START_OF_ORIGINAL_INSN(putobject_INT2FIX_1_); +#line 16 "defs/opt_operand.def" + val = INT2FIX(1); +#line 3686 "vm.inc" + DEBUG_ENTER_INSN(INSN_ATTR(name)); + if (! (leaf = INSN_ATTR(leaf))) ADD_PC(INSN_ATTR(width)); + COLLECT_USAGE_INSN(INSN_ATTR(bin)); + CHECK_VM_STACK_OVERFLOW_FOR_INSN(VM_REG_CFP, INSN_ATTR(retn)); + INC_SP(INSN_ATTR(sp_inc)); + TOPN(0) = val; + if (leaf) ADD_PC(INSN_ATTR(width)); + END_INSN(putobject_INT2FIX_1_); +# undef INSN_ATTR +# undef NAME_OF_CURRENT_INSN +} + +/* insn trace_nop(...)(...)(...) */ +INSN_ENTRY(trace_nop) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(nop); + END_INSN(trace_nop); +} + +/* insn trace_getlocal(...)(...)(...) */ +INSN_ENTRY(trace_getlocal) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(getlocal); + END_INSN(trace_getlocal); +} + +/* insn trace_setlocal(...)(...)(...) */ +INSN_ENTRY(trace_setlocal) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(setlocal); + END_INSN(trace_setlocal); +} + +/* insn trace_getblockparam(...)(...)(...) */ +INSN_ENTRY(trace_getblockparam) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(getblockparam); + END_INSN(trace_getblockparam); +} + +/* insn trace_setblockparam(...)(...)(...) */ +INSN_ENTRY(trace_setblockparam) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(setblockparam); + END_INSN(trace_setblockparam); +} + +/* insn trace_getblockparamproxy(...)(...)(...) */ +INSN_ENTRY(trace_getblockparamproxy) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(getblockparamproxy); + END_INSN(trace_getblockparamproxy); +} + +/* insn trace_getspecial(...)(...)(...) */ +INSN_ENTRY(trace_getspecial) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(getspecial); + END_INSN(trace_getspecial); +} + +/* insn trace_setspecial(...)(...)(...) */ +INSN_ENTRY(trace_setspecial) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(setspecial); + END_INSN(trace_setspecial); +} + +/* insn trace_getinstancevariable(...)(...)(...) */ +INSN_ENTRY(trace_getinstancevariable) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(getinstancevariable); + END_INSN(trace_getinstancevariable); +} + +/* insn trace_setinstancevariable(...)(...)(...) */ +INSN_ENTRY(trace_setinstancevariable) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(setinstancevariable); + END_INSN(trace_setinstancevariable); +} + +/* insn trace_getclassvariable(...)(...)(...) */ +INSN_ENTRY(trace_getclassvariable) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(getclassvariable); + END_INSN(trace_getclassvariable); +} + +/* insn trace_setclassvariable(...)(...)(...) */ +INSN_ENTRY(trace_setclassvariable) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(setclassvariable); + END_INSN(trace_setclassvariable); +} + +/* insn trace_getconstant(...)(...)(...) */ +INSN_ENTRY(trace_getconstant) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(getconstant); + END_INSN(trace_getconstant); +} + +/* insn trace_setconstant(...)(...)(...) */ +INSN_ENTRY(trace_setconstant) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(setconstant); + END_INSN(trace_setconstant); +} + +/* insn trace_getglobal(...)(...)(...) */ +INSN_ENTRY(trace_getglobal) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(getglobal); + END_INSN(trace_getglobal); +} + +/* insn trace_setglobal(...)(...)(...) */ +INSN_ENTRY(trace_setglobal) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(setglobal); + END_INSN(trace_setglobal); +} + +/* insn trace_putnil(...)(...)(...) */ +INSN_ENTRY(trace_putnil) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(putnil); + END_INSN(trace_putnil); +} + +/* insn trace_putself(...)(...)(...) */ +INSN_ENTRY(trace_putself) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(putself); + END_INSN(trace_putself); +} + +/* insn trace_putobject(...)(...)(...) */ +INSN_ENTRY(trace_putobject) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(putobject); + END_INSN(trace_putobject); +} + +/* insn trace_putspecialobject(...)(...)(...) */ +INSN_ENTRY(trace_putspecialobject) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(putspecialobject); + END_INSN(trace_putspecialobject); +} + +/* insn trace_putiseq(...)(...)(...) */ +INSN_ENTRY(trace_putiseq) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(putiseq); + END_INSN(trace_putiseq); +} + +/* insn trace_putstring(...)(...)(...) */ +INSN_ENTRY(trace_putstring) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(putstring); + END_INSN(trace_putstring); +} + +/* insn trace_concatstrings(...)(...)(...) */ +INSN_ENTRY(trace_concatstrings) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(concatstrings); + END_INSN(trace_concatstrings); +} + +/* insn trace_tostring(...)(...)(...) */ +INSN_ENTRY(trace_tostring) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(tostring); + END_INSN(trace_tostring); +} + +/* insn trace_freezestring(...)(...)(...) */ +INSN_ENTRY(trace_freezestring) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(freezestring); + END_INSN(trace_freezestring); +} + +/* insn trace_toregexp(...)(...)(...) */ +INSN_ENTRY(trace_toregexp) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(toregexp); + END_INSN(trace_toregexp); +} + +/* insn trace_intern(...)(...)(...) */ +INSN_ENTRY(trace_intern) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(intern); + END_INSN(trace_intern); +} + +/* insn trace_newarray(...)(...)(...) */ +INSN_ENTRY(trace_newarray) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(newarray); + END_INSN(trace_newarray); +} + +/* insn trace_duparray(...)(...)(...) */ +INSN_ENTRY(trace_duparray) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(duparray); + END_INSN(trace_duparray); +} + +/* insn trace_duphash(...)(...)(...) */ +INSN_ENTRY(trace_duphash) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(duphash); + END_INSN(trace_duphash); +} + +/* insn trace_expandarray(...)(...)(...) */ +INSN_ENTRY(trace_expandarray) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(expandarray); + END_INSN(trace_expandarray); +} + +/* insn trace_concatarray(...)(...)(...) */ +INSN_ENTRY(trace_concatarray) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(concatarray); + END_INSN(trace_concatarray); +} + +/* insn trace_splatarray(...)(...)(...) */ +INSN_ENTRY(trace_splatarray) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(splatarray); + END_INSN(trace_splatarray); +} + +/* insn trace_newhash(...)(...)(...) */ +INSN_ENTRY(trace_newhash) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(newhash); + END_INSN(trace_newhash); +} + +/* insn trace_newrange(...)(...)(...) */ +INSN_ENTRY(trace_newrange) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(newrange); + END_INSN(trace_newrange); +} + +/* insn trace_pop(...)(...)(...) */ +INSN_ENTRY(trace_pop) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(pop); + END_INSN(trace_pop); +} + +/* insn trace_dup(...)(...)(...) */ +INSN_ENTRY(trace_dup) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(dup); + END_INSN(trace_dup); +} + +/* insn trace_dupn(...)(...)(...) */ +INSN_ENTRY(trace_dupn) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(dupn); + END_INSN(trace_dupn); +} + +/* insn trace_swap(...)(...)(...) */ +INSN_ENTRY(trace_swap) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(swap); + END_INSN(trace_swap); +} + +/* insn trace_reverse(...)(...)(...) */ +INSN_ENTRY(trace_reverse) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(reverse); + END_INSN(trace_reverse); +} + +/* insn trace_reput(...)(...)(...) */ +INSN_ENTRY(trace_reput) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(reput); + END_INSN(trace_reput); +} + +/* insn trace_topn(...)(...)(...) */ +INSN_ENTRY(trace_topn) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(topn); + END_INSN(trace_topn); +} + +/* insn trace_setn(...)(...)(...) */ +INSN_ENTRY(trace_setn) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(setn); + END_INSN(trace_setn); +} + +/* insn trace_adjuststack(...)(...)(...) */ +INSN_ENTRY(trace_adjuststack) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(adjuststack); + END_INSN(trace_adjuststack); +} + +/* insn trace_defined(...)(...)(...) */ +INSN_ENTRY(trace_defined) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(defined); + END_INSN(trace_defined); +} + +/* insn trace_checkmatch(...)(...)(...) */ +INSN_ENTRY(trace_checkmatch) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(checkmatch); + END_INSN(trace_checkmatch); +} + +/* insn trace_checkkeyword(...)(...)(...) */ +INSN_ENTRY(trace_checkkeyword) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(checkkeyword); + END_INSN(trace_checkkeyword); +} + +/* insn trace_checktype(...)(...)(...) */ +INSN_ENTRY(trace_checktype) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(checktype); + END_INSN(trace_checktype); +} + +/* insn trace_defineclass(...)(...)(...) */ +INSN_ENTRY(trace_defineclass) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(defineclass); + END_INSN(trace_defineclass); +} + +/* insn trace_send(...)(...)(...) */ +INSN_ENTRY(trace_send) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(send); + END_INSN(trace_send); +} + +/* insn trace_opt_send_without_block(...)(...)(...) */ +INSN_ENTRY(trace_opt_send_without_block) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_send_without_block); + END_INSN(trace_opt_send_without_block); +} + +/* insn trace_opt_str_freeze(...)(...)(...) */ +INSN_ENTRY(trace_opt_str_freeze) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_str_freeze); + END_INSN(trace_opt_str_freeze); +} + +/* insn trace_opt_str_uminus(...)(...)(...) */ +INSN_ENTRY(trace_opt_str_uminus) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_str_uminus); + END_INSN(trace_opt_str_uminus); +} + +/* insn trace_opt_newarray_max(...)(...)(...) */ +INSN_ENTRY(trace_opt_newarray_max) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_newarray_max); + END_INSN(trace_opt_newarray_max); +} + +/* insn trace_opt_newarray_min(...)(...)(...) */ +INSN_ENTRY(trace_opt_newarray_min) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_newarray_min); + END_INSN(trace_opt_newarray_min); +} + +/* insn trace_invokesuper(...)(...)(...) */ +INSN_ENTRY(trace_invokesuper) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(invokesuper); + END_INSN(trace_invokesuper); +} + +/* insn trace_invokeblock(...)(...)(...) */ +INSN_ENTRY(trace_invokeblock) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(invokeblock); + END_INSN(trace_invokeblock); +} + +/* insn trace_leave(...)(...)(...) */ +INSN_ENTRY(trace_leave) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(leave); + END_INSN(trace_leave); +} + +/* insn trace_throw(...)(...)(...) */ +INSN_ENTRY(trace_throw) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(throw); + END_INSN(trace_throw); +} + +/* insn trace_jump(...)(...)(...) */ +INSN_ENTRY(trace_jump) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(jump); + END_INSN(trace_jump); +} + +/* insn trace_branchif(...)(...)(...) */ +INSN_ENTRY(trace_branchif) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(branchif); + END_INSN(trace_branchif); +} + +/* insn trace_branchunless(...)(...)(...) */ +INSN_ENTRY(trace_branchunless) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(branchunless); + END_INSN(trace_branchunless); +} + +/* insn trace_branchnil(...)(...)(...) */ +INSN_ENTRY(trace_branchnil) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(branchnil); + END_INSN(trace_branchnil); +} + +/* insn trace_opt_getinlinecache(...)(...)(...) */ +INSN_ENTRY(trace_opt_getinlinecache) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_getinlinecache); + END_INSN(trace_opt_getinlinecache); +} + +/* insn trace_opt_setinlinecache(...)(...)(...) */ +INSN_ENTRY(trace_opt_setinlinecache) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_setinlinecache); + END_INSN(trace_opt_setinlinecache); +} + +/* insn trace_once(...)(...)(...) */ +INSN_ENTRY(trace_once) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(once); + END_INSN(trace_once); +} + +/* insn trace_opt_case_dispatch(...)(...)(...) */ +INSN_ENTRY(trace_opt_case_dispatch) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_case_dispatch); + END_INSN(trace_opt_case_dispatch); +} + +/* insn trace_opt_plus(...)(...)(...) */ +INSN_ENTRY(trace_opt_plus) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_plus); + END_INSN(trace_opt_plus); +} + +/* insn trace_opt_minus(...)(...)(...) */ +INSN_ENTRY(trace_opt_minus) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_minus); + END_INSN(trace_opt_minus); +} + +/* insn trace_opt_mult(...)(...)(...) */ +INSN_ENTRY(trace_opt_mult) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_mult); + END_INSN(trace_opt_mult); +} + +/* insn trace_opt_div(...)(...)(...) */ +INSN_ENTRY(trace_opt_div) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_div); + END_INSN(trace_opt_div); +} + +/* insn trace_opt_mod(...)(...)(...) */ +INSN_ENTRY(trace_opt_mod) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_mod); + END_INSN(trace_opt_mod); +} + +/* insn trace_opt_eq(...)(...)(...) */ +INSN_ENTRY(trace_opt_eq) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_eq); + END_INSN(trace_opt_eq); +} + +/* insn trace_opt_neq(...)(...)(...) */ +INSN_ENTRY(trace_opt_neq) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_neq); + END_INSN(trace_opt_neq); +} + +/* insn trace_opt_lt(...)(...)(...) */ +INSN_ENTRY(trace_opt_lt) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_lt); + END_INSN(trace_opt_lt); +} + +/* insn trace_opt_le(...)(...)(...) */ +INSN_ENTRY(trace_opt_le) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_le); + END_INSN(trace_opt_le); +} + +/* insn trace_opt_gt(...)(...)(...) */ +INSN_ENTRY(trace_opt_gt) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_gt); + END_INSN(trace_opt_gt); +} + +/* insn trace_opt_ge(...)(...)(...) */ +INSN_ENTRY(trace_opt_ge) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_ge); + END_INSN(trace_opt_ge); +} + +/* insn trace_opt_ltlt(...)(...)(...) */ +INSN_ENTRY(trace_opt_ltlt) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_ltlt); + END_INSN(trace_opt_ltlt); +} + +/* insn trace_opt_and(...)(...)(...) */ +INSN_ENTRY(trace_opt_and) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_and); + END_INSN(trace_opt_and); +} + +/* insn trace_opt_or(...)(...)(...) */ +INSN_ENTRY(trace_opt_or) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_or); + END_INSN(trace_opt_or); +} + +/* insn trace_opt_aref(...)(...)(...) */ +INSN_ENTRY(trace_opt_aref) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_aref); + END_INSN(trace_opt_aref); +} + +/* insn trace_opt_aset(...)(...)(...) */ +INSN_ENTRY(trace_opt_aset) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_aset); + END_INSN(trace_opt_aset); +} + +/* insn trace_opt_aset_with(...)(...)(...) */ +INSN_ENTRY(trace_opt_aset_with) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_aset_with); + END_INSN(trace_opt_aset_with); +} + +/* insn trace_opt_aref_with(...)(...)(...) */ +INSN_ENTRY(trace_opt_aref_with) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_aref_with); + END_INSN(trace_opt_aref_with); +} + +/* insn trace_opt_length(...)(...)(...) */ +INSN_ENTRY(trace_opt_length) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_length); + END_INSN(trace_opt_length); +} + +/* insn trace_opt_size(...)(...)(...) */ +INSN_ENTRY(trace_opt_size) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_size); + END_INSN(trace_opt_size); +} + +/* insn trace_opt_empty_p(...)(...)(...) */ +INSN_ENTRY(trace_opt_empty_p) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_empty_p); + END_INSN(trace_opt_empty_p); +} + +/* insn trace_opt_succ(...)(...)(...) */ +INSN_ENTRY(trace_opt_succ) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_succ); + END_INSN(trace_opt_succ); +} + +/* insn trace_opt_not(...)(...)(...) */ +INSN_ENTRY(trace_opt_not) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_not); + END_INSN(trace_opt_not); +} + +/* insn trace_opt_regexpmatch1(...)(...)(...) */ +INSN_ENTRY(trace_opt_regexpmatch1) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_regexpmatch1); + END_INSN(trace_opt_regexpmatch1); +} + +/* insn trace_opt_regexpmatch2(...)(...)(...) */ +INSN_ENTRY(trace_opt_regexpmatch2) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_regexpmatch2); + END_INSN(trace_opt_regexpmatch2); +} + +/* insn trace_opt_call_c_function(...)(...)(...) */ +INSN_ENTRY(trace_opt_call_c_function) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(opt_call_c_function); + END_INSN(trace_opt_call_c_function); +} + +/* insn trace_bitblt(...)(...)(...) */ +INSN_ENTRY(trace_bitblt) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(bitblt); + END_INSN(trace_bitblt); +} + +/* insn trace_answer(...)(...)(...) */ +INSN_ENTRY(trace_answer) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(answer); + END_INSN(trace_answer); +} + +/* insn trace_getlocal_WC_0(...)(...)(...) */ +INSN_ENTRY(trace_getlocal_WC_0) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(getlocal_WC_0); + END_INSN(trace_getlocal_WC_0); +} + +/* insn trace_getlocal_WC_1(...)(...)(...) */ +INSN_ENTRY(trace_getlocal_WC_1) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(getlocal_WC_1); + END_INSN(trace_getlocal_WC_1); +} + +/* insn trace_setlocal_WC_0(...)(...)(...) */ +INSN_ENTRY(trace_setlocal_WC_0) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(setlocal_WC_0); + END_INSN(trace_setlocal_WC_0); +} + +/* insn trace_setlocal_WC_1(...)(...)(...) */ +INSN_ENTRY(trace_setlocal_WC_1) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(setlocal_WC_1); + END_INSN(trace_setlocal_WC_1); +} + +/* insn trace_putobject_INT2FIX_0_(...)(...)(...) */ +INSN_ENTRY(trace_putobject_INT2FIX_0_) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(putobject_INT2FIX_0_); + END_INSN(trace_putobject_INT2FIX_0_); +} + +/* insn trace_putobject_INT2FIX_1_(...)(...)(...) */ +INSN_ENTRY(trace_putobject_INT2FIX_1_) +{ + vm_trace(ec, GET_CFP(), GET_PC()); + DISPATCH_ORIGINAL_INSN(putobject_INT2FIX_1_); + END_INSN(trace_putobject_INT2FIX_1_); +} diff --git a/generated/vm_call_iseq_optimized.inc b/generated/vm_call_iseq_optimized.inc new file mode 100644 index 0000000..6900b30 --- /dev/null +++ b/generated/vm_call_iseq_optimized.inc @@ -0,0 +1,213 @@ +/* -*- c -*- */ +#if 1 /* enable or disable this optimization */ + +/* DO NOT EDIT THIS FILE DIRECTLY + * + * This file is generated by tool/mk_call_iseq_optimized.rb + */ + +static VALUE +vm_call_iseq_setup_normal_0start_0params_0locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 0, 0); +} + +static VALUE +vm_call_iseq_setup_normal_0start_0params_1locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 0, 1); +} + +static VALUE +vm_call_iseq_setup_normal_0start_0params_2locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 0, 2); +} + +static VALUE +vm_call_iseq_setup_normal_0start_0params_3locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 0, 3); +} + +static VALUE +vm_call_iseq_setup_normal_0start_0params_4locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 0, 4); +} + +static VALUE +vm_call_iseq_setup_normal_0start_0params_5locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 0, 5); +} + +static VALUE +vm_call_iseq_setup_normal_0start_1params_0locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 1, 0); +} + +static VALUE +vm_call_iseq_setup_normal_0start_1params_1locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 1, 1); +} + +static VALUE +vm_call_iseq_setup_normal_0start_1params_2locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 1, 2); +} + +static VALUE +vm_call_iseq_setup_normal_0start_1params_3locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 1, 3); +} + +static VALUE +vm_call_iseq_setup_normal_0start_1params_4locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 1, 4); +} + +static VALUE +vm_call_iseq_setup_normal_0start_1params_5locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 1, 5); +} + +static VALUE +vm_call_iseq_setup_normal_0start_2params_0locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 2, 0); +} + +static VALUE +vm_call_iseq_setup_normal_0start_2params_1locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 2, 1); +} + +static VALUE +vm_call_iseq_setup_normal_0start_2params_2locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 2, 2); +} + +static VALUE +vm_call_iseq_setup_normal_0start_2params_3locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 2, 3); +} + +static VALUE +vm_call_iseq_setup_normal_0start_2params_4locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 2, 4); +} + +static VALUE +vm_call_iseq_setup_normal_0start_2params_5locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 2, 5); +} + +static VALUE +vm_call_iseq_setup_normal_0start_3params_0locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 3, 0); +} + +static VALUE +vm_call_iseq_setup_normal_0start_3params_1locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 3, 1); +} + +static VALUE +vm_call_iseq_setup_normal_0start_3params_2locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 3, 2); +} + +static VALUE +vm_call_iseq_setup_normal_0start_3params_3locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 3, 3); +} + +static VALUE +vm_call_iseq_setup_normal_0start_3params_4locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 3, 4); +} + +static VALUE +vm_call_iseq_setup_normal_0start_3params_5locals(rb_execution_context_t *ec, rb_control_frame_t *cfp, struct rb_calling_info *calling, const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + return vm_call_iseq_setup_normal(ec, cfp, calling, cc->me, 0, 3, 5); +} + +/* vm_call_iseq_handlers[param][local] */ +static const vm_call_handler vm_call_iseq_handlers[][6] = { +{vm_call_iseq_setup_normal_0start_0params_0locals, + vm_call_iseq_setup_normal_0start_0params_1locals, + vm_call_iseq_setup_normal_0start_0params_2locals, + vm_call_iseq_setup_normal_0start_0params_3locals, + vm_call_iseq_setup_normal_0start_0params_4locals, + vm_call_iseq_setup_normal_0start_0params_5locals}, +{vm_call_iseq_setup_normal_0start_1params_0locals, + vm_call_iseq_setup_normal_0start_1params_1locals, + vm_call_iseq_setup_normal_0start_1params_2locals, + vm_call_iseq_setup_normal_0start_1params_3locals, + vm_call_iseq_setup_normal_0start_1params_4locals, + vm_call_iseq_setup_normal_0start_1params_5locals}, +{vm_call_iseq_setup_normal_0start_2params_0locals, + vm_call_iseq_setup_normal_0start_2params_1locals, + vm_call_iseq_setup_normal_0start_2params_2locals, + vm_call_iseq_setup_normal_0start_2params_3locals, + vm_call_iseq_setup_normal_0start_2params_4locals, + vm_call_iseq_setup_normal_0start_2params_5locals}, +{vm_call_iseq_setup_normal_0start_3params_0locals, + vm_call_iseq_setup_normal_0start_3params_1locals, + vm_call_iseq_setup_normal_0start_3params_2locals, + vm_call_iseq_setup_normal_0start_3params_3locals, + vm_call_iseq_setup_normal_0start_3params_4locals, + vm_call_iseq_setup_normal_0start_3params_5locals} +}; + +static inline vm_call_handler +vm_call_iseq_setup_func(const struct rb_call_info *ci, const int param_size, const int local_size) +{ + if (UNLIKELY(ci->flag & VM_CALL_TAILCALL)) { + return &vm_call_iseq_setup_tailcall_0start; + } + else if (0) { /* to disable optimize */ + return &vm_call_iseq_setup_normal_0start; + } + else { + if (param_size <= 3 && + local_size <= 5) { + VM_ASSERT(local_size >= 0); + return vm_call_iseq_handlers[param_size][local_size]; + } + return &vm_call_iseq_setup_normal_0start; + } +} + +#else + + +static inline vm_call_handler +vm_call_iseq_setup_func(const struct rb_call_info *ci, struct rb_call_cache *cc) +{ + if (UNLIKELY(ci->flag & VM_CALL_TAILCALL)) { + return &vm_call_iseq_setup_tailcall_0start; + } + else { + return &vm_call_iseq_setup_normal_0start; + } +} +#endif diff --git a/generated/vmtc.inc b/generated/vmtc.inc new file mode 100644 index 0000000..ce6cfd6 --- /dev/null +++ b/generated/vmtc.inc @@ -0,0 +1,243 @@ +/* -*- mode:c; style:ruby; coding: utf-8; indent-tabs-mode: nil -*- */ + +/* This is an auto-generated file and is a part of the programming language + * Ruby. The person who created a program to generate this file (``I'' + * hereafter) would like to refrain from defining licensing of this generated + * source code. + * + * This file consist of many small parts of codes copyrighted by each authors, + * not only the ``I'' person. Those original authors agree with some + * open-source license. I believe that the license we agree is the condition + * mentioned in the file COPYING. It states "4. You may modify and include + * the part of the software into any other software ...". But the problem is, + * the license never makes it clear if such modified parts still remain in the + * same license, or not. The fact that we agree with the source code's + * licensing terms do not automatically define that of generated ones. This is + * the reason why this file is under unclear situation. All that I know is + * that above provision guarantees this file to exist. + * + * Please let me hesitate to declare something about this nuanced contract. I + * am not in the position to take over other authors' license to merge into my + * one. Changing them to (say) GPLv3 is not doable by myself. Perhaps someday + * it might turn out to be okay to say this file is under a license. I wish the + * situation would become more clear in the future. */ +/*******************************************************************/ +/*******************************************************************/ +/*******************************************************************/ +/** + This file is for threaded code. + + ---- + This file is auto generated by insns2vm.rb + DO NOT TOUCH! + + If you want to fix something, you must edit "tool/ruby_vm/views/vmtc.inc.erb" + or tool/insns2vm.rb + */ + +static const void *const insns_address_table[] = { + LABEL_PTR(nop), + LABEL_PTR(getlocal), + LABEL_PTR(setlocal), + LABEL_PTR(getblockparam), + LABEL_PTR(setblockparam), + LABEL_PTR(getblockparamproxy), + LABEL_PTR(getspecial), + LABEL_PTR(setspecial), + LABEL_PTR(getinstancevariable), + LABEL_PTR(setinstancevariable), + LABEL_PTR(getclassvariable), + LABEL_PTR(setclassvariable), + LABEL_PTR(getconstant), + LABEL_PTR(setconstant), + LABEL_PTR(getglobal), + LABEL_PTR(setglobal), + LABEL_PTR(putnil), + LABEL_PTR(putself), + LABEL_PTR(putobject), + LABEL_PTR(putspecialobject), + LABEL_PTR(putiseq), + LABEL_PTR(putstring), + LABEL_PTR(concatstrings), + LABEL_PTR(tostring), + LABEL_PTR(freezestring), + LABEL_PTR(toregexp), + LABEL_PTR(intern), + LABEL_PTR(newarray), + LABEL_PTR(duparray), + LABEL_PTR(duphash), + LABEL_PTR(expandarray), + LABEL_PTR(concatarray), + LABEL_PTR(splatarray), + LABEL_PTR(newhash), + LABEL_PTR(newrange), + LABEL_PTR(pop), + LABEL_PTR(dup), + LABEL_PTR(dupn), + LABEL_PTR(swap), + LABEL_PTR(reverse), + LABEL_PTR(reput), + LABEL_PTR(topn), + LABEL_PTR(setn), + LABEL_PTR(adjuststack), + LABEL_PTR(defined), + LABEL_PTR(checkmatch), + LABEL_PTR(checkkeyword), + LABEL_PTR(checktype), + LABEL_PTR(defineclass), + LABEL_PTR(send), + LABEL_PTR(opt_send_without_block), + LABEL_PTR(opt_str_freeze), + LABEL_PTR(opt_str_uminus), + LABEL_PTR(opt_newarray_max), + LABEL_PTR(opt_newarray_min), + LABEL_PTR(invokesuper), + LABEL_PTR(invokeblock), + LABEL_PTR(leave), + LABEL_PTR(throw), + LABEL_PTR(jump), + LABEL_PTR(branchif), + LABEL_PTR(branchunless), + LABEL_PTR(branchnil), + LABEL_PTR(opt_getinlinecache), + LABEL_PTR(opt_setinlinecache), + LABEL_PTR(once), + LABEL_PTR(opt_case_dispatch), + LABEL_PTR(opt_plus), + LABEL_PTR(opt_minus), + LABEL_PTR(opt_mult), + LABEL_PTR(opt_div), + LABEL_PTR(opt_mod), + LABEL_PTR(opt_eq), + LABEL_PTR(opt_neq), + LABEL_PTR(opt_lt), + LABEL_PTR(opt_le), + LABEL_PTR(opt_gt), + LABEL_PTR(opt_ge), + LABEL_PTR(opt_ltlt), + LABEL_PTR(opt_and), + LABEL_PTR(opt_or), + LABEL_PTR(opt_aref), + LABEL_PTR(opt_aset), + LABEL_PTR(opt_aset_with), + LABEL_PTR(opt_aref_with), + LABEL_PTR(opt_length), + LABEL_PTR(opt_size), + LABEL_PTR(opt_empty_p), + LABEL_PTR(opt_succ), + LABEL_PTR(opt_not), + LABEL_PTR(opt_regexpmatch1), + LABEL_PTR(opt_regexpmatch2), + LABEL_PTR(opt_call_c_function), + LABEL_PTR(bitblt), + LABEL_PTR(answer), + LABEL_PTR(getlocal_WC_0), + LABEL_PTR(getlocal_WC_1), + LABEL_PTR(setlocal_WC_0), + LABEL_PTR(setlocal_WC_1), + LABEL_PTR(putobject_INT2FIX_0_), + LABEL_PTR(putobject_INT2FIX_1_), + LABEL_PTR(trace_nop), + LABEL_PTR(trace_getlocal), + LABEL_PTR(trace_setlocal), + LABEL_PTR(trace_getblockparam), + LABEL_PTR(trace_setblockparam), + LABEL_PTR(trace_getblockparamproxy), + LABEL_PTR(trace_getspecial), + LABEL_PTR(trace_setspecial), + LABEL_PTR(trace_getinstancevariable), + LABEL_PTR(trace_setinstancevariable), + LABEL_PTR(trace_getclassvariable), + LABEL_PTR(trace_setclassvariable), + LABEL_PTR(trace_getconstant), + LABEL_PTR(trace_setconstant), + LABEL_PTR(trace_getglobal), + LABEL_PTR(trace_setglobal), + LABEL_PTR(trace_putnil), + LABEL_PTR(trace_putself), + LABEL_PTR(trace_putobject), + LABEL_PTR(trace_putspecialobject), + LABEL_PTR(trace_putiseq), + LABEL_PTR(trace_putstring), + LABEL_PTR(trace_concatstrings), + LABEL_PTR(trace_tostring), + LABEL_PTR(trace_freezestring), + LABEL_PTR(trace_toregexp), + LABEL_PTR(trace_intern), + LABEL_PTR(trace_newarray), + LABEL_PTR(trace_duparray), + LABEL_PTR(trace_duphash), + LABEL_PTR(trace_expandarray), + LABEL_PTR(trace_concatarray), + LABEL_PTR(trace_splatarray), + LABEL_PTR(trace_newhash), + LABEL_PTR(trace_newrange), + LABEL_PTR(trace_pop), + LABEL_PTR(trace_dup), + LABEL_PTR(trace_dupn), + LABEL_PTR(trace_swap), + LABEL_PTR(trace_reverse), + LABEL_PTR(trace_reput), + LABEL_PTR(trace_topn), + LABEL_PTR(trace_setn), + LABEL_PTR(trace_adjuststack), + LABEL_PTR(trace_defined), + LABEL_PTR(trace_checkmatch), + LABEL_PTR(trace_checkkeyword), + LABEL_PTR(trace_checktype), + LABEL_PTR(trace_defineclass), + LABEL_PTR(trace_send), + LABEL_PTR(trace_opt_send_without_block), + LABEL_PTR(trace_opt_str_freeze), + LABEL_PTR(trace_opt_str_uminus), + LABEL_PTR(trace_opt_newarray_max), + LABEL_PTR(trace_opt_newarray_min), + LABEL_PTR(trace_invokesuper), + LABEL_PTR(trace_invokeblock), + LABEL_PTR(trace_leave), + LABEL_PTR(trace_throw), + LABEL_PTR(trace_jump), + LABEL_PTR(trace_branchif), + LABEL_PTR(trace_branchunless), + LABEL_PTR(trace_branchnil), + LABEL_PTR(trace_opt_getinlinecache), + LABEL_PTR(trace_opt_setinlinecache), + LABEL_PTR(trace_once), + LABEL_PTR(trace_opt_case_dispatch), + LABEL_PTR(trace_opt_plus), + LABEL_PTR(trace_opt_minus), + LABEL_PTR(trace_opt_mult), + LABEL_PTR(trace_opt_div), + LABEL_PTR(trace_opt_mod), + LABEL_PTR(trace_opt_eq), + LABEL_PTR(trace_opt_neq), + LABEL_PTR(trace_opt_lt), + LABEL_PTR(trace_opt_le), + LABEL_PTR(trace_opt_gt), + LABEL_PTR(trace_opt_ge), + LABEL_PTR(trace_opt_ltlt), + LABEL_PTR(trace_opt_and), + LABEL_PTR(trace_opt_or), + LABEL_PTR(trace_opt_aref), + LABEL_PTR(trace_opt_aset), + LABEL_PTR(trace_opt_aset_with), + LABEL_PTR(trace_opt_aref_with), + LABEL_PTR(trace_opt_length), + LABEL_PTR(trace_opt_size), + LABEL_PTR(trace_opt_empty_p), + LABEL_PTR(trace_opt_succ), + LABEL_PTR(trace_opt_not), + LABEL_PTR(trace_opt_regexpmatch1), + LABEL_PTR(trace_opt_regexpmatch2), + LABEL_PTR(trace_opt_call_c_function), + LABEL_PTR(trace_bitblt), + LABEL_PTR(trace_answer), + LABEL_PTR(trace_getlocal_WC_0), + LABEL_PTR(trace_getlocal_WC_1), + LABEL_PTR(trace_setlocal_WC_0), + LABEL_PTR(trace_setlocal_WC_1), + LABEL_PTR(trace_putobject_INT2FIX_0_), + LABEL_PTR(trace_putobject_INT2FIX_1_), +}; + +ASSERT_VM_INSTRUCTION_SIZE(insns_address_table); -- 2.20.1 _______________________________________________ Minios-devel mailing list Minios-devel@xxxxxxxxxxxxxxxxxxxx https://lists.xenproject.org/mailman/listinfo/minios-devel

©2013 Xen Project, A Linux Foundation Collaborative Project. All Rights Reserved.
Linux Foundation is a registered trademark of The Linux Foundation.
Xen Project is a trademark of The Linux Foundation.