diff options
Diffstat (limited to 'ext/ByteLoader')
-rw-r--r-- | ext/ByteLoader/ByteLoader.pm | 2 | ||||
-rw-r--r-- | ext/ByteLoader/bytecode.h | 43 | ||||
-rw-r--r-- | ext/ByteLoader/byterun.c | 310 | ||||
-rw-r--r-- | ext/ByteLoader/byterun.h | 282 |
4 files changed, 358 insertions, 279 deletions
diff --git a/ext/ByteLoader/ByteLoader.pm b/ext/ByteLoader/ByteLoader.pm index 08a53a658e..fd16cf03f5 100644 --- a/ext/ByteLoader/ByteLoader.pm +++ b/ext/ByteLoader/ByteLoader.pm @@ -2,7 +2,7 @@ package ByteLoader; use XSLoader (); -our $VERSION = '0.04'; +our $VERSION = '0.05'; XSLoader::load 'ByteLoader', $VERSION; diff --git a/ext/ByteLoader/bytecode.h b/ext/ByteLoader/bytecode.h index 4602a68dc5..bd62b2848c 100644 --- a/ext/ByteLoader/bytecode.h +++ b/ext/ByteLoader/bytecode.h @@ -88,6 +88,11 @@ typedef char *pvindex; } STMT_END #define BSET_ldspecsv(sv, arg) sv = specialsv_list[arg] +#define BSET_ldspecsvx(sv, arg) STMT_START { \ + BSET_ldspecsv(sv, arg); \ + BSET_OBJ_STOREX(sv); \ + } STMT_END + #define BSET_stpv(pv, arg) STMT_START { \ BSET_OBJ_STORE(pv, arg); \ SAVEFREEPV(pv); \ @@ -101,7 +106,17 @@ typedef char *pvindex; } STMT_END #define BSET_gv_fetchpv(sv, arg) sv = (SV*)gv_fetchpv(arg, TRUE, SVt_PV) +#define BSET_gv_fetchpvx(sv, arg) STMT_START { \ + BSET_gv_fetchpv(sv, arg); \ + BSET_OBJ_STOREX(sv); \ + } STMT_END + #define BSET_gv_stashpv(sv, arg) sv = (SV*)gv_stashpv(arg, TRUE) +#define BSET_gv_stashpvx(sv, arg) STMT_START { \ + BSET_gv_stashpv(sv, arg); \ + BSET_OBJ_STOREX(sv); \ + } STMT_END + #define BSET_sv_magic(sv, arg) sv_magic(sv, Nullsv, arg, 0, 0) #define BSET_mg_name(mg, arg) mg->mg_ptr = arg; mg->mg_len = bstate->bs_pv.xpv_cur #define BSET_mg_namex(mg, arg) \ @@ -162,8 +177,24 @@ typedef char *pvindex; NEWSV(666,0)); \ SvUPGRADE(sv, arg); \ } STMT_END +#define BSET_newsvx(sv, arg) STMT_START { \ + BSET_newsv(sv, arg & SVTYPEMASK); \ + SvFLAGS(sv) = arg; \ + BSET_OBJ_STOREX(sv); \ + } STMT_END #define BSET_newop(o, arg) \ ((o = (OP*)safemalloc(arg)), memzero((char*)o,arg)) +#define BSET_newopx(o, arg) STMT_START { \ + register int sz = arg & 0x7f; \ + register OP* new = (OP*) safemalloc(sz);\ + memzero(new, sz); \ + /* new->op_next = o; XXX */ \ + o = new; \ + arg >>=7; \ + BSET_op_type(o, arg); \ + BSET_OBJ_STOREX(o); \ + } STMT_END + #define BSET_newopn(o, arg) STMT_START { \ OP *oldop = o; \ BSET_newop(o, arg); \ @@ -284,9 +315,15 @@ typedef char *pvindex; av_store(PL_endav, 0, cv); \ } STMT_END #define BSET_OBJ_STORE(obj, ix) \ - (I32)ix > bstate->bs_obj_list_fill ? \ - bset_obj_store(aTHX_ bstate, obj, (I32)ix) : \ - (bstate->bs_obj_list[ix] = obj) + ((I32)ix > bstate->bs_obj_list_fill ? \ + bset_obj_store(aTHX_ bstate, obj, (I32)ix) : \ + (bstate->bs_obj_list[ix] = obj), \ + bstate->bs_ix = ix+1) +#define BSET_OBJ_STOREX(obj) \ + (bstate->bs_ix > bstate->bs_obj_list_fill ? \ + bset_obj_store(aTHX_ bstate, obj, bstate->bs_ix) : \ + (bstate->bs_obj_list[bstate->bs_ix] = obj), \ + bstate->bs_ix++) #define BSET_signal(cv, name) \ mg_set(*hv_store(GvHV(gv_fetchpv("SIG", TRUE, SVt_PVHV)), \ diff --git a/ext/ByteLoader/byterun.c b/ext/ByteLoader/byterun.c index d820ef8ec2..b29549e00f 100644 --- a/ext/ByteLoader/byterun.c +++ b/ext/ByteLoader/byterun.c @@ -55,6 +55,7 @@ byterun(pTHX_ register struct byteloader_state *bstate) New(666, bstate->bs_obj_list, 32, void*); /* set op objlist */ bstate->bs_obj_list_fill = 31; bstate->bs_obj_list[0] = NULL; /* first is always Null */ + bstate->bs_ix = 1; specialsv_list[0] = Nullsv; specialsv_list[1] = &PL_sv_undef; @@ -123,653 +124,688 @@ byterun(pTHX_ register struct byteloader_state *bstate) BSET_ldspecsv(bstate->bs_sv, arg); break; } - case INSN_NEWSV: /* 7 */ + case INSN_LDSPECSVX: /* 7 */ + { + U8 arg; + BGET_U8(arg); + BSET_ldspecsvx(bstate->bs_sv, arg); + break; + } + case INSN_NEWSV: /* 8 */ { U8 arg; BGET_U8(arg); BSET_newsv(bstate->bs_sv, arg); break; } - case INSN_NEWOP: /* 8 */ + case INSN_NEWSVX: /* 9 */ + { + U32 arg; + BGET_U32(arg); + BSET_newsvx(bstate->bs_sv, arg); + break; + } + case INSN_NEWOP: /* 11 */ { U8 arg; BGET_U8(arg); BSET_newop(PL_op, arg); break; } - case INSN_NEWOPN: /* 9 */ + case INSN_NEWOPX: /* 12 */ + { + U16 arg; + BGET_U16(arg); + BSET_newopx(PL_op, arg); + break; + } + case INSN_NEWOPN: /* 13 */ { U8 arg; BGET_U8(arg); BSET_newopn(PL_op, arg); break; } - case INSN_NEWPV: /* 11 */ + case INSN_NEWPV: /* 14 */ { PV arg; BGET_PV(arg); break; } - case INSN_PV_CUR: /* 12 */ + case INSN_PV_CUR: /* 15 */ { STRLEN arg; BGET_U32(arg); bstate->bs_pv.xpv_cur = arg; break; } - case INSN_PV_FREE: /* 13 */ + case INSN_PV_FREE: /* 16 */ { BSET_pv_free(bstate->bs_pv); break; } - case INSN_SV_UPGRADE: /* 14 */ + case INSN_SV_UPGRADE: /* 17 */ { U8 arg; BGET_U8(arg); BSET_sv_upgrade(bstate->bs_sv, arg); break; } - case INSN_SV_REFCNT: /* 15 */ + case INSN_SV_REFCNT: /* 18 */ { U32 arg; BGET_U32(arg); SvREFCNT(bstate->bs_sv) = arg; break; } - case INSN_SV_REFCNT_ADD: /* 16 */ + case INSN_SV_REFCNT_ADD: /* 19 */ { I32 arg; BGET_I32(arg); BSET_sv_refcnt_add(SvREFCNT(bstate->bs_sv), arg); break; } - case INSN_SV_FLAGS: /* 17 */ + case INSN_SV_FLAGS: /* 20 */ { U32 arg; BGET_U32(arg); SvFLAGS(bstate->bs_sv) = arg; break; } - case INSN_XRV: /* 18 */ + case INSN_XRV: /* 21 */ { svindex arg; BGET_svindex(arg); SvRV(bstate->bs_sv) = arg; break; } - case INSN_XPV: /* 19 */ + case INSN_XPV: /* 22 */ { BSET_xpv(bstate->bs_sv); break; } - case INSN_XPV_CUR: /* 20 */ + case INSN_XPV_CUR: /* 23 */ { STRLEN arg; BGET_U32(arg); SvCUR(bstate->bs_sv) = arg; break; } - case INSN_XPV_LEN: /* 21 */ + case INSN_XPV_LEN: /* 24 */ { STRLEN arg; BGET_U32(arg); SvLEN(bstate->bs_sv) = arg; break; } - case INSN_XIV: /* 22 */ + case INSN_XIV: /* 25 */ { IV arg; BGET_IV(arg); SvIVX(bstate->bs_sv) = arg; break; } - case INSN_XNV: /* 23 */ + case INSN_XNV: /* 26 */ { NV arg; BGET_NV(arg); SvNVX(bstate->bs_sv) = arg; break; } - case INSN_XLV_TARGOFF: /* 24 */ + case INSN_XLV_TARGOFF: /* 27 */ { STRLEN arg; BGET_U32(arg); LvTARGOFF(bstate->bs_sv) = arg; break; } - case INSN_XLV_TARGLEN: /* 25 */ + case INSN_XLV_TARGLEN: /* 28 */ { STRLEN arg; BGET_U32(arg); LvTARGLEN(bstate->bs_sv) = arg; break; } - case INSN_XLV_TARG: /* 26 */ + case INSN_XLV_TARG: /* 29 */ { svindex arg; BGET_svindex(arg); LvTARG(bstate->bs_sv) = arg; break; } - case INSN_XLV_TYPE: /* 27 */ + case INSN_XLV_TYPE: /* 30 */ { char arg; BGET_U8(arg); LvTYPE(bstate->bs_sv) = arg; break; } - case INSN_XBM_USEFUL: /* 28 */ + case INSN_XBM_USEFUL: /* 31 */ { I32 arg; BGET_I32(arg); BmUSEFUL(bstate->bs_sv) = arg; break; } - case INSN_XBM_PREVIOUS: /* 29 */ + case INSN_XBM_PREVIOUS: /* 32 */ { U16 arg; BGET_U16(arg); BmPREVIOUS(bstate->bs_sv) = arg; break; } - case INSN_XBM_RARE: /* 30 */ + case INSN_XBM_RARE: /* 33 */ { U8 arg; BGET_U8(arg); BmRARE(bstate->bs_sv) = arg; break; } - case INSN_XFM_LINES: /* 31 */ + case INSN_XFM_LINES: /* 34 */ { IV arg; BGET_IV(arg); FmLINES(bstate->bs_sv) = arg; break; } - case INSN_XIO_LINES: /* 32 */ + case INSN_XIO_LINES: /* 36 */ { IV arg; BGET_IV(arg); IoLINES(bstate->bs_sv) = arg; break; } - case INSN_XIO_PAGE: /* 33 */ + case INSN_XIO_PAGE: /* 37 */ { IV arg; BGET_IV(arg); IoPAGE(bstate->bs_sv) = arg; break; } - case INSN_XIO_PAGE_LEN: /* 34 */ + case INSN_XIO_PAGE_LEN: /* 38 */ { IV arg; BGET_IV(arg); IoPAGE_LEN(bstate->bs_sv) = arg; break; } - case INSN_XIO_LINES_LEFT: /* 36 */ + case INSN_XIO_LINES_LEFT: /* 39 */ { IV arg; BGET_IV(arg); IoLINES_LEFT(bstate->bs_sv) = arg; break; } - case INSN_XIO_TOP_NAME: /* 37 */ + case INSN_XIO_TOP_NAME: /* 40 */ { pvindex arg; BGET_pvindex(arg); IoTOP_NAME(bstate->bs_sv) = arg; break; } - case INSN_XIO_TOP_GV: /* 38 */ + case INSN_XIO_TOP_GV: /* 41 */ { svindex arg; BGET_svindex(arg); *(SV**)&IoTOP_GV(bstate->bs_sv) = arg; break; } - case INSN_XIO_FMT_NAME: /* 39 */ + case INSN_XIO_FMT_NAME: /* 42 */ { pvindex arg; BGET_pvindex(arg); IoFMT_NAME(bstate->bs_sv) = arg; break; } - case INSN_XIO_FMT_GV: /* 40 */ + case INSN_XIO_FMT_GV: /* 43 */ { svindex arg; BGET_svindex(arg); *(SV**)&IoFMT_GV(bstate->bs_sv) = arg; break; } - case INSN_XIO_BOTTOM_NAME: /* 41 */ + case INSN_XIO_BOTTOM_NAME: /* 44 */ { pvindex arg; BGET_pvindex(arg); IoBOTTOM_NAME(bstate->bs_sv) = arg; break; } - case INSN_XIO_BOTTOM_GV: /* 42 */ + case INSN_XIO_BOTTOM_GV: /* 45 */ { svindex arg; BGET_svindex(arg); *(SV**)&IoBOTTOM_GV(bstate->bs_sv) = arg; break; } - case INSN_XIO_SUBPROCESS: /* 43 */ + case INSN_XIO_SUBPROCESS: /* 46 */ { short arg; BGET_U16(arg); IoSUBPROCESS(bstate->bs_sv) = arg; break; } - case INSN_XIO_TYPE: /* 44 */ + case INSN_XIO_TYPE: /* 47 */ { char arg; BGET_U8(arg); IoTYPE(bstate->bs_sv) = arg; break; } - case INSN_XIO_FLAGS: /* 45 */ + case INSN_XIO_FLAGS: /* 48 */ { char arg; BGET_U8(arg); IoFLAGS(bstate->bs_sv) = arg; break; } - case INSN_XCV_XSUBANY: /* 46 */ + case INSN_XCV_XSUBANY: /* 49 */ { svindex arg; BGET_svindex(arg); *(SV**)&CvXSUBANY(bstate->bs_sv).any_ptr = arg; break; } - case INSN_XCV_STASH: /* 47 */ + case INSN_XCV_STASH: /* 50 */ { svindex arg; BGET_svindex(arg); *(SV**)&CvSTASH(bstate->bs_sv) = arg; break; } - case INSN_XCV_START: /* 48 */ + case INSN_XCV_START: /* 51 */ { opindex arg; BGET_opindex(arg); CvSTART(bstate->bs_sv) = arg; break; } - case INSN_XCV_ROOT: /* 49 */ + case INSN_XCV_ROOT: /* 52 */ { opindex arg; BGET_opindex(arg); CvROOT(bstate->bs_sv) = arg; break; } - case INSN_XCV_GV: /* 50 */ + case INSN_XCV_GV: /* 53 */ { svindex arg; BGET_svindex(arg); *(SV**)&CvGV(bstate->bs_sv) = arg; break; } - case INSN_XCV_FILE: /* 51 */ + case INSN_XCV_FILE: /* 54 */ { pvindex arg; BGET_pvindex(arg); CvFILE(bstate->bs_sv) = arg; break; } - case INSN_XCV_DEPTH: /* 52 */ + case INSN_XCV_DEPTH: /* 55 */ { long arg; BGET_I32(arg); CvDEPTH(bstate->bs_sv) = arg; break; } - case INSN_XCV_PADLIST: /* 53 */ + case INSN_XCV_PADLIST: /* 56 */ { svindex arg; BGET_svindex(arg); *(SV**)&CvPADLIST(bstate->bs_sv) = arg; break; } - case INSN_XCV_OUTSIDE: /* 54 */ + case INSN_XCV_OUTSIDE: /* 57 */ { svindex arg; BGET_svindex(arg); *(SV**)&CvOUTSIDE(bstate->bs_sv) = arg; break; } - case INSN_XCV_OUTSIDE_SEQ: /* 55 */ + case INSN_XCV_OUTSIDE_SEQ: /* 58 */ { U32 arg; BGET_U32(arg); CvOUTSIDE_SEQ(bstate->bs_sv) = arg; break; } - case INSN_XCV_FLAGS: /* 56 */ + case INSN_XCV_FLAGS: /* 59 */ { U16 arg; BGET_U16(arg); CvFLAGS(bstate->bs_sv) = arg; break; } - case INSN_AV_EXTEND: /* 57 */ + case INSN_AV_EXTEND: /* 60 */ { SSize_t arg; BGET_I32(arg); BSET_av_extend(bstate->bs_sv, arg); break; } - case INSN_AV_PUSHX: /* 58 */ + case INSN_AV_PUSHX: /* 61 */ { svindex arg; BGET_svindex(arg); BSET_av_pushx(bstate->bs_sv, arg); break; } - case INSN_AV_PUSH: /* 59 */ + case INSN_AV_PUSH: /* 62 */ { svindex arg; BGET_svindex(arg); BSET_av_push(bstate->bs_sv, arg); break; } - case INSN_XAV_FILL: /* 60 */ + case INSN_XAV_FILL: /* 63 */ { SSize_t arg; BGET_I32(arg); AvFILLp(bstate->bs_sv) = arg; break; } - case INSN_XAV_MAX: /* 61 */ + case INSN_XAV_MAX: /* 64 */ { SSize_t arg; BGET_I32(arg); AvMAX(bstate->bs_sv) = arg; break; } - case INSN_XAV_FLAGS: /* 62 */ + case INSN_XAV_FLAGS: /* 65 */ { U8 arg; BGET_U8(arg); AvFLAGS(bstate->bs_sv) = arg; break; } - case INSN_XHV_RITER: /* 63 */ + case INSN_XHV_RITER: /* 66 */ { I32 arg; BGET_I32(arg); HvRITER(bstate->bs_sv) = arg; break; } - case INSN_XHV_NAME: /* 64 */ + case INSN_XHV_NAME: /* 67 */ { pvindex arg; BGET_pvindex(arg); HvNAME(bstate->bs_sv) = arg; break; } - case INSN_XHV_PMROOT: /* 65 */ + case INSN_XHV_PMROOT: /* 68 */ { opindex arg; BGET_opindex(arg); *(OP**)&HvPMROOT(bstate->bs_sv) = arg; break; } - case INSN_HV_STORE: /* 66 */ + case INSN_HV_STORE: /* 69 */ { svindex arg; BGET_svindex(arg); BSET_hv_store(bstate->bs_sv, arg); break; } - case INSN_SV_MAGIC: /* 67 */ + case INSN_SV_MAGIC: /* 70 */ { char arg; BGET_U8(arg); BSET_sv_magic(bstate->bs_sv, arg); break; } - case INSN_MG_OBJ: /* 68 */ + case INSN_MG_OBJ: /* 71 */ { svindex arg; BGET_svindex(arg); SvMAGIC(bstate->bs_sv)->mg_obj = arg; break; } - case INSN_MG_PRIVATE: /* 69 */ + case INSN_MG_PRIVATE: /* 72 */ { U16 arg; BGET_U16(arg); SvMAGIC(bstate->bs_sv)->mg_private = arg; break; } - case INSN_MG_FLAGS: /* 70 */ + case INSN_MG_FLAGS: /* 73 */ { U8 arg; BGET_U8(arg); SvMAGIC(bstate->bs_sv)->mg_flags = arg; break; } - case INSN_MG_NAME: /* 71 */ + case INSN_MG_NAME: /* 74 */ { pvcontents arg; BGET_pvcontents(arg); BSET_mg_name(SvMAGIC(bstate->bs_sv), arg); break; } - case INSN_MG_NAMEX: /* 72 */ + case INSN_MG_NAMEX: /* 75 */ { svindex arg; BGET_svindex(arg); BSET_mg_namex(SvMAGIC(bstate->bs_sv), arg); break; } - case INSN_XMG_STASH: /* 73 */ + case INSN_XMG_STASH: /* 76 */ { svindex arg; BGET_svindex(arg); *(SV**)&SvSTASH(bstate->bs_sv) = arg; break; } - case INSN_GV_FETCHPV: /* 74 */ + case INSN_GV_FETCHPV: /* 77 */ { strconst arg; BGET_strconst(arg); BSET_gv_fetchpv(bstate->bs_sv, arg); break; } - case INSN_GV_STASHPV: /* 75 */ + case INSN_GV_FETCHPVX: /* 78 */ + { + strconst arg; + BGET_strconst(arg); + BSET_gv_fetchpvx(bstate->bs_sv, arg); + break; + } + case INSN_GV_STASHPV: /* 79 */ { strconst arg; BGET_strconst(arg); BSET_gv_stashpv(bstate->bs_sv, arg); break; } - case INSN_GP_SV: /* 76 */ + case INSN_GV_STASHPVX: /* 80 */ + { + strconst arg; + BGET_strconst(arg); + BSET_gv_stashpvx(bstate->bs_sv, arg); + break; + } + case INSN_GP_SV: /* 81 */ { svindex arg; BGET_svindex(arg); GvSV(bstate->bs_sv) = arg; break; } - case INSN_GP_REFCNT: /* 77 */ + case INSN_GP_REFCNT: /* 82 */ { U32 arg; BGET_U32(arg); GvREFCNT(bstate->bs_sv) = arg; break; } - case INSN_GP_REFCNT_ADD: /* 78 */ + case INSN_GP_REFCNT_ADD: /* 83 */ { I32 arg; BGET_I32(arg); BSET_gp_refcnt_add(GvREFCNT(bstate->bs_sv), arg); break; } - case INSN_GP_AV: /* 79 */ + case INSN_GP_AV: /* 84 */ { svindex arg; BGET_svindex(arg); *(SV**)&GvAV(bstate->bs_sv) = arg; break; } - case INSN_GP_HV: /* 80 */ + case INSN_GP_HV: /* 85 */ { svindex arg; BGET_svindex(arg); *(SV**)&GvHV(bstate->bs_sv) = arg; break; } - case INSN_GP_CV: /* 81 */ + case INSN_GP_CV: /* 86 */ { svindex arg; BGET_svindex(arg); *(SV**)&GvCV(bstate->bs_sv) = arg; break; } - case INSN_GP_FILE: /* 82 */ + case INSN_GP_FILE: /* 87 */ { pvindex arg; BGET_pvindex(arg); GvFILE(bstate->bs_sv) = arg; break; } - case INSN_GP_IO: /* 83 */ + case INSN_GP_IO: /* 88 */ { svindex arg; BGET_svindex(arg); *(SV**)&GvIOp(bstate->bs_sv) = arg; break; } - case INSN_GP_FORM: /* 84 */ + case INSN_GP_FORM: /* 89 */ { svindex arg; BGET_svindex(arg); *(SV**)&GvFORM(bstate->bs_sv) = arg; break; } - case INSN_GP_CVGEN: /* 85 */ + case INSN_GP_CVGEN: /* 90 */ { U32 arg; BGET_U32(arg); GvCVGEN(bstate->bs_sv) = arg; break; } - case INSN_GP_LINE: /* 86 */ + case INSN_GP_LINE: /* 91 */ { line_t arg; BGET_U32(arg); GvLINE(bstate->bs_sv) = arg; break; } - case INSN_GP_SHARE: /* 87 */ + case INSN_GP_SHARE: /* 92 */ { svindex arg; BGET_svindex(arg); BSET_gp_share(bstate->bs_sv, arg); break; } - case INSN_XGV_FLAGS: /* 88 */ + case INSN_XGV_FLAGS: /* 93 */ { U8 arg; BGET_U8(arg); GvFLAGS(bstate->bs_sv) = arg; break; } - case INSN_OP_NEXT: /* 89 */ + case INSN_OP_NEXT: /* 94 */ { opindex arg; BGET_opindex(arg); PL_op->op_next = arg; break; } - case INSN_OP_SIBLING: /* 90 */ + case INSN_OP_SIBLING: /* 95 */ { opindex arg; BGET_opindex(arg); PL_op->op_sibling = arg; break; } - case INSN_OP_PPADDR: /* 91 */ + case INSN_OP_PPADDR: /* 96 */ { strconst arg; BGET_strconst(arg); BSET_op_ppaddr(PL_op->op_ppaddr, arg); break; } - case INSN_OP_TARG: /* 92 */ + case INSN_OP_TARG: /* 97 */ { PADOFFSET arg; BGET_U32(arg); PL_op->op_targ = arg; break; } - case INSN_OP_TYPE: /* 93 */ + case INSN_OP_TYPE: /* 98 */ { OPCODE arg; BGET_U16(arg); BSET_op_type(PL_op, arg); break; } - case INSN_OP_SEQ: /* 94 */ + case INSN_OP_SEQ: /* 99 */ { U16 arg; BGET_U16(arg); PL_op->op_seq = arg; break; } - case INSN_OP_FLAGS: /* 95 */ + case INSN_OP_FLAGS: /* 100 */ { U8 arg; BGET_U8(arg); PL_op->op_flags = arg; break; } - case INSN_OP_PRIVATE: /* 96 */ + case INSN_OP_PRIVATE: /* 101 */ { U8 arg; BGET_U8(arg); PL_op->op_private = arg; break; } - case INSN_OP_FIRST: /* 97 */ + case INSN_OP_FIRST: /* 102 */ { opindex arg; BGET_opindex(arg); cUNOP->op_first = arg; break; } - case INSN_OP_LAST: /* 98 */ + case INSN_OP_LAST: /* 103 */ { opindex arg; BGET_opindex(arg); cBINOP->op_last = arg; break; } - case INSN_OP_OTHER: /* 99 */ + case INSN_OP_OTHER: /* 104 */ { opindex arg; BGET_opindex(arg); cLOGOP->op_other = arg; break; } - case INSN_OP_PMREPLROOT: /* 100 */ + case INSN_OP_PMREPLROOT: /* 105 */ { opindex arg; BGET_opindex(arg); cPMOP->op_pmreplroot = arg; break; } - case INSN_OP_PMREPLSTART: /* 101 */ + case INSN_OP_PMREPLSTART: /* 106 */ { opindex arg; BGET_opindex(arg); cPMOP->op_pmreplstart = arg; break; } - case INSN_OP_PMNEXT: /* 102 */ + case INSN_OP_PMNEXT: /* 107 */ { opindex arg; BGET_opindex(arg); @@ -777,14 +813,14 @@ byterun(pTHX_ register struct byteloader_state *bstate) break; } #ifdef USE_ITHREADS - case INSN_OP_PMSTASHPV: /* 103 */ + case INSN_OP_PMSTASHPV: /* 108 */ { pvindex arg; BGET_pvindex(arg); cPMOP->op_pmstashpv = arg; break; } - case INSN_OP_PMREPLROOTPO: /* 104 */ + case INSN_OP_PMREPLROOTPO: /* 109 */ { PADOFFSET arg; BGET_U32(arg); @@ -792,14 +828,14 @@ byterun(pTHX_ register struct byteloader_state *bstate) break; } #else - case INSN_OP_PMSTASH: /* 105 */ + case INSN_OP_PMSTASH: /* 110 */ { svindex arg; BGET_svindex(arg); *(SV**)&cPMOP->op_pmstash = arg; break; } - case INSN_OP_PMREPLROOTGV: /* 106 */ + case INSN_OP_PMREPLROOTGV: /* 111 */ { svindex arg; BGET_svindex(arg); @@ -807,84 +843,84 @@ byterun(pTHX_ register struct byteloader_state *bstate) break; } #endif - case INSN_PREGCOMP: /* 107 */ + case INSN_PREGCOMP: /* 112 */ { pvcontents arg; BGET_pvcontents(arg); BSET_pregcomp(PL_op, arg); break; } - case INSN_OP_PMFLAGS: /* 108 */ + case INSN_OP_PMFLAGS: /* 113 */ { U16 arg; BGET_U16(arg); cPMOP->op_pmflags = arg; break; } - case INSN_OP_PMPERMFLAGS: /* 109 */ + case INSN_OP_PMPERMFLAGS: /* 114 */ { U16 arg; BGET_U16(arg); cPMOP->op_pmpermflags = arg; break; } - case INSN_OP_PMDYNFLAGS: /* 110 */ + case INSN_OP_PMDYNFLAGS: /* 115 */ { U8 arg; BGET_U8(arg); cPMOP->op_pmdynflags = arg; break; } - case INSN_OP_SV: /* 111 */ + case INSN_OP_SV: /* 116 */ { svindex arg; BGET_svindex(arg); cSVOP->op_sv = arg; break; } - case INSN_OP_PADIX: /* 112 */ + case INSN_OP_PADIX: /* 117 */ { PADOFFSET arg; BGET_U32(arg); cPADOP->op_padix = arg; break; } - case INSN_OP_PV: /* 113 */ + case INSN_OP_PV: /* 118 */ { pvcontents arg; BGET_pvcontents(arg); cPVOP->op_pv = arg; break; } - case INSN_OP_PV_TR: /* 114 */ + case INSN_OP_PV_TR: /* 119 */ { op_tr_array arg; BGET_op_tr_array(arg); cPVOP->op_pv = arg; break; } - case INSN_OP_REDOOP: /* 115 */ + case INSN_OP_REDOOP: /* 120 */ { opindex arg; BGET_opindex(arg); cLOOP->op_redoop = arg; break; } - case INSN_OP_NEXTOP: /* 116 */ + case INSN_OP_NEXTOP: /* 121 */ { opindex arg; BGET_opindex(arg); cLOOP->op_nextop = arg; break; } - case INSN_OP_LASTOP: /* 117 */ + case INSN_OP_LASTOP: /* 122 */ { opindex arg; BGET_opindex(arg); cLOOP->op_lastop = arg; break; } - case INSN_COP_LABEL: /* 118 */ + case INSN_COP_LABEL: /* 123 */ { pvindex arg; BGET_pvindex(arg); @@ -892,14 +928,14 @@ byterun(pTHX_ register struct byteloader_state *bstate) break; } #ifdef USE_ITHREADS - case INSN_COP_STASHPV: /* 119 */ + case INSN_COP_STASHPV: /* 124 */ { pvindex arg; BGET_pvindex(arg); BSET_cop_stashpv(cCOP, arg); break; } - case INSN_COP_FILE: /* 120 */ + case INSN_COP_FILE: /* 125 */ { pvindex arg; BGET_pvindex(arg); @@ -907,14 +943,14 @@ byterun(pTHX_ register struct byteloader_state *bstate) break; } #else - case INSN_COP_STASH: /* 121 */ + case INSN_COP_STASH: /* 126 */ { svindex arg; BGET_svindex(arg); BSET_cop_stash(cCOP, arg); break; } - case INSN_COP_FILEGV: /* 122 */ + case INSN_COP_FILEGV: /* 127 */ { svindex arg; BGET_svindex(arg); @@ -922,119 +958,119 @@ byterun(pTHX_ register struct byteloader_state *bstate) break; } #endif - case INSN_COP_SEQ: /* 123 */ + case INSN_COP_SEQ: /* 128 */ { U32 arg; BGET_U32(arg); cCOP->cop_seq = arg; break; } - case INSN_COP_ARYBASE: /* 124 */ + case INSN_COP_ARYBASE: /* 129 */ { I32 arg; BGET_I32(arg); cCOP->cop_arybase = arg; break; } - case INSN_COP_LINE: /* 125 */ + case INSN_COP_LINE: /* 130 */ { line_t arg; BGET_U32(arg); cCOP->cop_line = arg; break; } - case INSN_COP_IO: /* 126 */ + case INSN_COP_IO: /* 131 */ { svindex arg; BGET_svindex(arg); cCOP->cop_io = arg; break; } - case INSN_COP_WARNINGS: /* 127 */ + case INSN_COP_WARNINGS: /* 132 */ { svindex arg; BGET_svindex(arg); cCOP->cop_warnings = arg; break; } - case INSN_MAIN_START: /* 128 */ + case INSN_MAIN_START: /* 133 */ { opindex arg; BGET_opindex(arg); PL_main_start = arg; break; } - case INSN_MAIN_ROOT: /* 129 */ + case INSN_MAIN_ROOT: /* 134 */ { opindex arg; BGET_opindex(arg); PL_main_root = arg; break; } - case INSN_MAIN_CV: /* 130 */ + case INSN_MAIN_CV: /* 135 */ { svindex arg; BGET_svindex(arg); *(SV**)&PL_main_cv = arg; break; } - case INSN_CURPAD: /* 131 */ + case INSN_CURPAD: /* 136 */ { svindex arg; BGET_svindex(arg); BSET_curpad(PL_curpad, arg); break; } - case INSN_PUSH_BEGIN: /* 132 */ + case INSN_PUSH_BEGIN: /* 137 */ { svindex arg; BGET_svindex(arg); BSET_push_begin(PL_beginav, arg); break; } - case INSN_PUSH_INIT: /* 133 */ + case INSN_PUSH_INIT: /* 138 */ { svindex arg; BGET_svindex(arg); BSET_push_init(PL_initav, arg); break; } - case INSN_PUSH_END: /* 134 */ + case INSN_PUSH_END: /* 139 */ { svindex arg; BGET_svindex(arg); BSET_push_end(PL_endav, arg); break; } - case INSN_CURSTASH: /* 135 */ + case INSN_CURSTASH: /* 140 */ { svindex arg; BGET_svindex(arg); *(SV**)&PL_curstash = arg; break; } - case INSN_DEFSTASH: /* 136 */ + case INSN_DEFSTASH: /* 141 */ { svindex arg; BGET_svindex(arg); *(SV**)&PL_defstash = arg; break; } - case INSN_DATA: /* 137 */ + case INSN_DATA: /* 142 */ { U8 arg; BGET_U8(arg); BSET_data(none, arg); break; } - case INSN_INCAV: /* 138 */ + case INSN_INCAV: /* 143 */ { svindex arg; BGET_svindex(arg); *(SV**)&PL_incgv = arg; break; } - case INSN_LOAD_GLOB: /* 139 */ + case INSN_LOAD_GLOB: /* 144 */ { svindex arg; BGET_svindex(arg); @@ -1042,7 +1078,7 @@ byterun(pTHX_ register struct byteloader_state *bstate) break; } #ifdef USE_ITHREADS - case INSN_REGEX_PADAV: /* 140 */ + case INSN_REGEX_PADAV: /* 145 */ { svindex arg; BGET_svindex(arg); @@ -1050,35 +1086,35 @@ byterun(pTHX_ register struct byteloader_state *bstate) break; } #endif - case INSN_DOWARN: /* 141 */ + case INSN_DOWARN: /* 146 */ { U8 arg; BGET_U8(arg); PL_dowarn = arg; break; } - case INSN_COMPPAD_NAME: /* 142 */ + case INSN_COMPPAD_NAME: /* 147 */ { svindex arg; BGET_svindex(arg); *(SV**)&PL_comppad_name = arg; break; } - case INSN_XGV_STASH: /* 143 */ + case INSN_XGV_STASH: /* 148 */ { svindex arg; BGET_svindex(arg); *(SV**)&GvSTASH(bstate->bs_sv) = arg; break; } - case INSN_SIGNAL: /* 144 */ + case INSN_SIGNAL: /* 149 */ { strconst arg; BGET_strconst(arg); BSET_signal(bstate->bs_sv, arg); break; } - case INSN_FORMFEED: /* 145 */ + case INSN_FORMFEED: /* 150 */ { svindex arg; BGET_svindex(arg); diff --git a/ext/ByteLoader/byterun.h b/ext/ByteLoader/byterun.h index 6ab4425fc7..6e28693963 100644 --- a/ext/ByteLoader/byterun.h +++ b/ext/ByteLoader/byterun.h @@ -19,6 +19,7 @@ struct byteloader_state { SV *bs_sv; void **bs_obj_list; int bs_obj_list_fill; + int bs_ix; XPV bs_pv; int bs_iv_overflows; }; @@ -35,146 +36,151 @@ enum { INSN_STOP, /* 4 */ INSN_STPV, /* 5 */ INSN_LDSPECSV, /* 6 */ - INSN_NEWSV, /* 7 */ - INSN_NEWOP, /* 8 */ - INSN_NEWOPN, /* 9 */ + INSN_LDSPECSVX, /* 7 */ + INSN_NEWSV, /* 8 */ + INSN_NEWSVX, /* 9 */ INSN_NOP, /* 10 */ - INSN_NEWPV, /* 11 */ - INSN_PV_CUR, /* 12 */ - INSN_PV_FREE, /* 13 */ - INSN_SV_UPGRADE, /* 14 */ - INSN_SV_REFCNT, /* 15 */ - INSN_SV_REFCNT_ADD, /* 16 */ - INSN_SV_FLAGS, /* 17 */ - INSN_XRV, /* 18 */ - INSN_XPV, /* 19 */ - INSN_XPV_CUR, /* 20 */ - INSN_XPV_LEN, /* 21 */ - INSN_XIV, /* 22 */ - INSN_XNV, /* 23 */ - INSN_XLV_TARGOFF, /* 24 */ - INSN_XLV_TARGLEN, /* 25 */ - INSN_XLV_TARG, /* 26 */ - INSN_XLV_TYPE, /* 27 */ - INSN_XBM_USEFUL, /* 28 */ - INSN_XBM_PREVIOUS, /* 29 */ - INSN_XBM_RARE, /* 30 */ - INSN_XFM_LINES, /* 31 */ - INSN_XIO_LINES, /* 32 */ - INSN_XIO_PAGE, /* 33 */ - INSN_XIO_PAGE_LEN, /* 34 */ + INSN_NEWOP, /* 11 */ + INSN_NEWOPX, /* 12 */ + INSN_NEWOPN, /* 13 */ + INSN_NEWPV, /* 14 */ + INSN_PV_CUR, /* 15 */ + INSN_PV_FREE, /* 16 */ + INSN_SV_UPGRADE, /* 17 */ + INSN_SV_REFCNT, /* 18 */ + INSN_SV_REFCNT_ADD, /* 19 */ + INSN_SV_FLAGS, /* 20 */ + INSN_XRV, /* 21 */ + INSN_XPV, /* 22 */ + INSN_XPV_CUR, /* 23 */ + INSN_XPV_LEN, /* 24 */ + INSN_XIV, /* 25 */ + INSN_XNV, /* 26 */ + INSN_XLV_TARGOFF, /* 27 */ + INSN_XLV_TARGLEN, /* 28 */ + INSN_XLV_TARG, /* 29 */ + INSN_XLV_TYPE, /* 30 */ + INSN_XBM_USEFUL, /* 31 */ + INSN_XBM_PREVIOUS, /* 32 */ + INSN_XBM_RARE, /* 33 */ + INSN_XFM_LINES, /* 34 */ INSN_COMMENT, /* 35 */ - INSN_XIO_LINES_LEFT, /* 36 */ - INSN_XIO_TOP_NAME, /* 37 */ - INSN_XIO_TOP_GV, /* 38 */ - INSN_XIO_FMT_NAME, /* 39 */ - INSN_XIO_FMT_GV, /* 40 */ - INSN_XIO_BOTTOM_NAME, /* 41 */ - INSN_XIO_BOTTOM_GV, /* 42 */ - INSN_XIO_SUBPROCESS, /* 43 */ - INSN_XIO_TYPE, /* 44 */ - INSN_XIO_FLAGS, /* 45 */ - INSN_XCV_XSUBANY, /* 46 */ - INSN_XCV_STASH, /* 47 */ - INSN_XCV_START, /* 48 */ - INSN_XCV_ROOT, /* 49 */ - INSN_XCV_GV, /* 50 */ - INSN_XCV_FILE, /* 51 */ - INSN_XCV_DEPTH, /* 52 */ - INSN_XCV_PADLIST, /* 53 */ - INSN_XCV_OUTSIDE, /* 54 */ - INSN_XCV_OUTSIDE_SEQ, /* 55 */ - INSN_XCV_FLAGS, /* 56 */ - INSN_AV_EXTEND, /* 57 */ - INSN_AV_PUSHX, /* 58 */ - INSN_AV_PUSH, /* 59 */ - INSN_XAV_FILL, /* 60 */ - INSN_XAV_MAX, /* 61 */ - INSN_XAV_FLAGS, /* 62 */ - INSN_XHV_RITER, /* 63 */ - INSN_XHV_NAME, /* 64 */ - INSN_XHV_PMROOT, /* 65 */ - INSN_HV_STORE, /* 66 */ - INSN_SV_MAGIC, /* 67 */ - INSN_MG_OBJ, /* 68 */ - INSN_MG_PRIVATE, /* 69 */ - INSN_MG_FLAGS, /* 70 */ - INSN_MG_NAME, /* 71 */ - INSN_MG_NAMEX, /* 72 */ - INSN_XMG_STASH, /* 73 */ - INSN_GV_FETCHPV, /* 74 */ - INSN_GV_STASHPV, /* 75 */ - INSN_GP_SV, /* 76 */ - INSN_GP_REFCNT, /* 77 */ - INSN_GP_REFCNT_ADD, /* 78 */ - INSN_GP_AV, /* 79 */ - INSN_GP_HV, /* 80 */ - INSN_GP_CV, /* 81 */ - INSN_GP_FILE, /* 82 */ - INSN_GP_IO, /* 83 */ - INSN_GP_FORM, /* 84 */ - INSN_GP_CVGEN, /* 85 */ - INSN_GP_LINE, /* 86 */ - INSN_GP_SHARE, /* 87 */ - INSN_XGV_FLAGS, /* 88 */ - INSN_OP_NEXT, /* 89 */ - INSN_OP_SIBLING, /* 90 */ - INSN_OP_PPADDR, /* 91 */ - INSN_OP_TARG, /* 92 */ - INSN_OP_TYPE, /* 93 */ - INSN_OP_SEQ, /* 94 */ - INSN_OP_FLAGS, /* 95 */ - INSN_OP_PRIVATE, /* 96 */ - INSN_OP_FIRST, /* 97 */ - INSN_OP_LAST, /* 98 */ - INSN_OP_OTHER, /* 99 */ - INSN_OP_PMREPLROOT, /* 100 */ - INSN_OP_PMREPLSTART, /* 101 */ - INSN_OP_PMNEXT, /* 102 */ - INSN_OP_PMSTASHPV, /* 103 */ - INSN_OP_PMREPLROOTPO, /* 104 */ - INSN_OP_PMSTASH, /* 105 */ - INSN_OP_PMREPLROOTGV, /* 106 */ - INSN_PREGCOMP, /* 107 */ - INSN_OP_PMFLAGS, /* 108 */ - INSN_OP_PMPERMFLAGS, /* 109 */ - INSN_OP_PMDYNFLAGS, /* 110 */ - INSN_OP_SV, /* 111 */ - INSN_OP_PADIX, /* 112 */ - INSN_OP_PV, /* 113 */ - INSN_OP_PV_TR, /* 114 */ - INSN_OP_REDOOP, /* 115 */ - INSN_OP_NEXTOP, /* 116 */ - INSN_OP_LASTOP, /* 117 */ - INSN_COP_LABEL, /* 118 */ - INSN_COP_STASHPV, /* 119 */ - INSN_COP_FILE, /* 120 */ - INSN_COP_STASH, /* 121 */ - INSN_COP_FILEGV, /* 122 */ - INSN_COP_SEQ, /* 123 */ - INSN_COP_ARYBASE, /* 124 */ - INSN_COP_LINE, /* 125 */ - INSN_COP_IO, /* 126 */ - INSN_COP_WARNINGS, /* 127 */ - INSN_MAIN_START, /* 128 */ - INSN_MAIN_ROOT, /* 129 */ - INSN_MAIN_CV, /* 130 */ - INSN_CURPAD, /* 131 */ - INSN_PUSH_BEGIN, /* 132 */ - INSN_PUSH_INIT, /* 133 */ - INSN_PUSH_END, /* 134 */ - INSN_CURSTASH, /* 135 */ - INSN_DEFSTASH, /* 136 */ - INSN_DATA, /* 137 */ - INSN_INCAV, /* 138 */ - INSN_LOAD_GLOB, /* 139 */ - INSN_REGEX_PADAV, /* 140 */ - INSN_DOWARN, /* 141 */ - INSN_COMPPAD_NAME, /* 142 */ - INSN_XGV_STASH, /* 143 */ - INSN_SIGNAL, /* 144 */ - INSN_FORMFEED, /* 145 */ - MAX_INSN = 145 + INSN_XIO_LINES, /* 36 */ + INSN_XIO_PAGE, /* 37 */ + INSN_XIO_PAGE_LEN, /* 38 */ + INSN_XIO_LINES_LEFT, /* 39 */ + INSN_XIO_TOP_NAME, /* 40 */ + INSN_XIO_TOP_GV, /* 41 */ + INSN_XIO_FMT_NAME, /* 42 */ + INSN_XIO_FMT_GV, /* 43 */ + INSN_XIO_BOTTOM_NAME, /* 44 */ + INSN_XIO_BOTTOM_GV, /* 45 */ + INSN_XIO_SUBPROCESS, /* 46 */ + INSN_XIO_TYPE, /* 47 */ + INSN_XIO_FLAGS, /* 48 */ + INSN_XCV_XSUBANY, /* 49 */ + INSN_XCV_STASH, /* 50 */ + INSN_XCV_START, /* 51 */ + INSN_XCV_ROOT, /* 52 */ + INSN_XCV_GV, /* 53 */ + INSN_XCV_FILE, /* 54 */ + INSN_XCV_DEPTH, /* 55 */ + INSN_XCV_PADLIST, /* 56 */ + INSN_XCV_OUTSIDE, /* 57 */ + INSN_XCV_OUTSIDE_SEQ, /* 58 */ + INSN_XCV_FLAGS, /* 59 */ + INSN_AV_EXTEND, /* 60 */ + INSN_AV_PUSHX, /* 61 */ + INSN_AV_PUSH, /* 62 */ + INSN_XAV_FILL, /* 63 */ + INSN_XAV_MAX, /* 64 */ + INSN_XAV_FLAGS, /* 65 */ + INSN_XHV_RITER, /* 66 */ + INSN_XHV_NAME, /* 67 */ + INSN_XHV_PMROOT, /* 68 */ + INSN_HV_STORE, /* 69 */ + INSN_SV_MAGIC, /* 70 */ + INSN_MG_OBJ, /* 71 */ + INSN_MG_PRIVATE, /* 72 */ + INSN_MG_FLAGS, /* 73 */ + INSN_MG_NAME, /* 74 */ + INSN_MG_NAMEX, /* 75 */ + INSN_XMG_STASH, /* 76 */ + INSN_GV_FETCHPV, /* 77 */ + INSN_GV_FETCHPVX, /* 78 */ + INSN_GV_STASHPV, /* 79 */ + INSN_GV_STASHPVX, /* 80 */ + INSN_GP_SV, /* 81 */ + INSN_GP_REFCNT, /* 82 */ + INSN_GP_REFCNT_ADD, /* 83 */ + INSN_GP_AV, /* 84 */ + INSN_GP_HV, /* 85 */ + INSN_GP_CV, /* 86 */ + INSN_GP_FILE, /* 87 */ + INSN_GP_IO, /* 88 */ + INSN_GP_FORM, /* 89 */ + INSN_GP_CVGEN, /* 90 */ + INSN_GP_LINE, /* 91 */ + INSN_GP_SHARE, /* 92 */ + INSN_XGV_FLAGS, /* 93 */ + INSN_OP_NEXT, /* 94 */ + INSN_OP_SIBLING, /* 95 */ + INSN_OP_PPADDR, /* 96 */ + INSN_OP_TARG, /* 97 */ + INSN_OP_TYPE, /* 98 */ + INSN_OP_SEQ, /* 99 */ + INSN_OP_FLAGS, /* 100 */ + INSN_OP_PRIVATE, /* 101 */ + INSN_OP_FIRST, /* 102 */ + INSN_OP_LAST, /* 103 */ + INSN_OP_OTHER, /* 104 */ + INSN_OP_PMREPLROOT, /* 105 */ + INSN_OP_PMREPLSTART, /* 106 */ + INSN_OP_PMNEXT, /* 107 */ + INSN_OP_PMSTASHPV, /* 108 */ + INSN_OP_PMREPLROOTPO, /* 109 */ + INSN_OP_PMSTASH, /* 110 */ + INSN_OP_PMREPLROOTGV, /* 111 */ + INSN_PREGCOMP, /* 112 */ + INSN_OP_PMFLAGS, /* 113 */ + INSN_OP_PMPERMFLAGS, /* 114 */ + INSN_OP_PMDYNFLAGS, /* 115 */ + INSN_OP_SV, /* 116 */ + INSN_OP_PADIX, /* 117 */ + INSN_OP_PV, /* 118 */ + INSN_OP_PV_TR, /* 119 */ + INSN_OP_REDOOP, /* 120 */ + INSN_OP_NEXTOP, /* 121 */ + INSN_OP_LASTOP, /* 122 */ + INSN_COP_LABEL, /* 123 */ + INSN_COP_STASHPV, /* 124 */ + INSN_COP_FILE, /* 125 */ + INSN_COP_STASH, /* 126 */ + INSN_COP_FILEGV, /* 127 */ + INSN_COP_SEQ, /* 128 */ + INSN_COP_ARYBASE, /* 129 */ + INSN_COP_LINE, /* 130 */ + INSN_COP_IO, /* 131 */ + INSN_COP_WARNINGS, /* 132 */ + INSN_MAIN_START, /* 133 */ + INSN_MAIN_ROOT, /* 134 */ + INSN_MAIN_CV, /* 135 */ + INSN_CURPAD, /* 136 */ + INSN_PUSH_BEGIN, /* 137 */ + INSN_PUSH_INIT, /* 138 */ + INSN_PUSH_END, /* 139 */ + INSN_CURSTASH, /* 140 */ + INSN_DEFSTASH, /* 141 */ + INSN_DATA, /* 142 */ + INSN_INCAV, /* 143 */ + INSN_LOAD_GLOB, /* 144 */ + INSN_REGEX_PADAV, /* 145 */ + INSN_DOWARN, /* 146 */ + INSN_COMPPAD_NAME, /* 147 */ + INSN_XGV_STASH, /* 148 */ + INSN_SIGNAL, /* 149 */ + INSN_FORMFEED, /* 150 */ + MAX_INSN = 150 }; enum { |