[p5sagit/p5-mst-13.2.git] / byterun.c

/*
 *      Copyright (c) 1996-1998 Malcolm Beattie
 *
 *      You may distribute under the terms of either the GNU General Public
 *      License or the Artistic License, as specified in the README file.
 *
 */
/*
 * This file is autogenerated from bytecode.pl. Changes made here will be lost.
 */

#include "EXTERN.h"
#include "perl.h"

void *
bset_obj_store(void *obj, I32 ix)
{
    if (ix > PL_bytecode_obj_list_fill) {
	if (PL_bytecode_obj_list_fill == -1)
	    New(666, PL_bytecode_obj_list, ix + 1, void*);
	else
	    Renew(PL_bytecode_obj_list, ix + 1, void*);
	PL_bytecode_obj_list_fill = ix;
    }
    PL_bytecode_obj_list[ix] = obj;
    return obj;
}

#ifdef INDIRECT_BGET_MACROS
void byterun(struct bytestream bs)
#else
void byterun(PerlIO *fp)
#endif /* INDIRECT_BGET_MACROS */
{
    dTHR;
    int insn;
    while ((insn = BGET_FGETC()) != EOF) {
	switch (insn) {
	  case INSN_COMMENT:		/* 35 */
	    {
		comment_t arg;
		BGET_comment_t(arg);
		arg = arg;
		break;
	    }
	  case INSN_NOP:		/* 10 */
	    {
		break;
	    }
	  case INSN_RET:		/* 0 */
	    {
		BSET_ret(none);
		break;
	    }
	  case INSN_LDSV:		/* 1 */
	    {
		svindex arg;
		BGET_svindex(arg);
		PL_bytecode_sv = arg;
		break;
	    }
	  case INSN_LDOP:		/* 2 */
	    {
		opindex arg;
		BGET_opindex(arg);
		PL_op = arg;
		break;
	    }
	  case INSN_STSV:		/* 3 */
	    {
		U32 arg;
		BGET_U32(arg);
		BSET_OBJ_STORE(PL_bytecode_sv, arg);
		break;
	    }
	  case INSN_STOP:		/* 4 */
	    {
		U32 arg;
		BGET_U32(arg);
		BSET_OBJ_STORE(PL_op, arg);
		break;
	    }
	  case INSN_LDSPECSV:		/* 5 */
	    {
		U8 arg;
		BGET_U8(arg);
		BSET_ldspecsv(PL_bytecode_sv, arg);
		break;
	    }
	  case INSN_NEWSV:		/* 6 */
	    {
		U8 arg;
		BGET_U8(arg);
		BSET_newsv(PL_bytecode_sv, arg);
		break;
	    }
	  case INSN_NEWOP:		/* 7 */
	    {
		U8 arg;
		BGET_U8(arg);
		BSET_newop(PL_op, arg);
		break;
	    }
	  case INSN_NEWOPN:		/* 8 */
	    {
		U8 arg;
		BGET_U8(arg);
		BSET_newopn(PL_op, arg);
		break;
	    }
	  case INSN_NEWPV:		/* 9 */
	    {
		PV arg;
		BGET_PV(arg);
		break;
	    }
	  case INSN_PV_CUR:		/* 11 */
	    {
		STRLEN arg;
		BGET_U32(arg);
		PL_bytecode_pv.xpv_cur = arg;
		break;
	    }
	  case INSN_PV_FREE:		/* 12 */
	    {
		BSET_pv_free(PL_bytecode_pv);
		break;
	    }
	  case INSN_SV_UPGRADE:		/* 13 */
	    {
		char arg;
		BGET_U8(arg);
		BSET_sv_upgrade(PL_bytecode_sv, arg);
		break;
	    }
	  case INSN_SV_REFCNT:		/* 14 */
	    {
		U32 arg;
		BGET_U32(arg);
		SvREFCNT(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_SV_REFCNT_ADD:		/* 15 */
	    {
		I32 arg;
		BGET_I32(arg);
		BSET_sv_refcnt_add(SvREFCNT(PL_bytecode_sv), arg);
		break;
	    }
	  case INSN_SV_FLAGS:		/* 16 */
	    {
		U32 arg;
		BGET_U32(arg);
		SvFLAGS(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XRV:		/* 17 */
	    {
		svindex arg;
		BGET_svindex(arg);
		SvRV(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XPV:		/* 18 */
	    {
		BSET_xpv(PL_bytecode_sv);
		break;
	    }
	  case INSN_XIV32:		/* 19 */
	    {
		I32 arg;
		BGET_I32(arg);
		SvIVX(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XIV64:		/* 20 */
	    {
		IV64 arg;
		BGET_IV64(arg);
		SvIVX(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XNV:		/* 21 */
	    {
		double arg;
		BGET_double(arg);
		SvNVX(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XLV_TARGOFF:		/* 22 */
	    {
		STRLEN arg;
		BGET_U32(arg);
		LvTARGOFF(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XLV_TARGLEN:		/* 23 */
	    {
		STRLEN arg;
		BGET_U32(arg);
		LvTARGLEN(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XLV_TARG:		/* 24 */
	    {
		svindex arg;
		BGET_svindex(arg);
		LvTARG(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XLV_TYPE:		/* 25 */
	    {
		char arg;
		BGET_U8(arg);
		LvTYPE(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XBM_USEFUL:		/* 26 */
	    {
		I32 arg;
		BGET_I32(arg);
		BmUSEFUL(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XBM_PREVIOUS:		/* 27 */
	    {
		U16 arg;
		BGET_U16(arg);
		BmPREVIOUS(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XBM_RARE:		/* 28 */
	    {
		U8 arg;
		BGET_U8(arg);
		BmRARE(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XFM_LINES:		/* 29 */
	    {
		I32 arg;
		BGET_I32(arg);
		FmLINES(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XIO_LINES:		/* 30 */
	    {
		long arg;
		BGET_I32(arg);
		IoLINES(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XIO_PAGE:		/* 31 */
	    {
		long arg;
		BGET_I32(arg);
		IoPAGE(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XIO_PAGE_LEN:		/* 32 */
	    {
		long arg;
		BGET_I32(arg);
		IoPAGE_LEN(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XIO_LINES_LEFT:		/* 33 */
	    {
		long arg;
		BGET_I32(arg);
		IoLINES_LEFT(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XIO_TOP_NAME:		/* 34 */
	    {
		pvcontents arg;
		BGET_pvcontents(arg);
		IoTOP_NAME(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XIO_TOP_GV:		/* 36 */
	    {
		svindex arg;
		BGET_svindex(arg);
		*(SV**)&IoTOP_GV(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XIO_FMT_NAME:		/* 37 */
	    {
		pvcontents arg;
		BGET_pvcontents(arg);
		IoFMT_NAME(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XIO_FMT_GV:		/* 38 */
	    {
		svindex arg;
		BGET_svindex(arg);
		*(SV**)&IoFMT_GV(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XIO_BOTTOM_NAME:		/* 39 */
	    {
		pvcontents arg;
		BGET_pvcontents(arg);
		IoBOTTOM_NAME(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XIO_BOTTOM_GV:		/* 40 */
	    {
		svindex arg;
		BGET_svindex(arg);
		*(SV**)&IoBOTTOM_GV(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XIO_SUBPROCESS:		/* 41 */
	    {
		short arg;
		BGET_U16(arg);
		IoSUBPROCESS(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XIO_TYPE:		/* 42 */
	    {
		char arg;
		BGET_U8(arg);
		IoTYPE(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XIO_FLAGS:		/* 43 */
	    {
		char arg;
		BGET_U8(arg);
		IoFLAGS(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XCV_STASH:		/* 44 */
	    {
		svindex arg;
		BGET_svindex(arg);
		*(SV**)&CvSTASH(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XCV_START:		/* 45 */
	    {
		opindex arg;
		BGET_opindex(arg);
		CvSTART(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XCV_ROOT:		/* 46 */
	    {
		opindex arg;
		BGET_opindex(arg);
		CvROOT(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XCV_GV:		/* 47 */
	    {
		svindex arg;
		BGET_svindex(arg);
		*(SV**)&CvGV(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XCV_FILEGV:		/* 48 */
	    {
		svindex arg;
		BGET_svindex(arg);
		*(SV**)&CvFILEGV(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XCV_DEPTH:		/* 49 */
	    {
		long arg;
		BGET_I32(arg);
		CvDEPTH(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XCV_PADLIST:		/* 50 */
	    {
		svindex arg;
		BGET_svindex(arg);
		*(SV**)&CvPADLIST(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XCV_OUTSIDE:		/* 51 */
	    {
		svindex arg;
		BGET_svindex(arg);
		*(SV**)&CvOUTSIDE(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XCV_FLAGS:		/* 52 */
	    {
		U8 arg;
		BGET_U8(arg);
		CvFLAGS(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_AV_EXTEND:		/* 53 */
	    {
		SSize_t arg;
		BGET_I32(arg);
		BSET_av_extend(PL_bytecode_sv, arg);
		break;
	    }
	  case INSN_AV_PUSH:		/* 54 */
	    {
		svindex arg;
		BGET_svindex(arg);
		BSET_av_push(PL_bytecode_sv, arg);
		break;
	    }
	  case INSN_XAV_FILL:		/* 55 */
	    {
		SSize_t arg;
		BGET_I32(arg);
		AvFILLp(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XAV_MAX:		/* 56 */
	    {
		SSize_t arg;
		BGET_I32(arg);
		AvMAX(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XAV_FLAGS:		/* 57 */
	    {
		U8 arg;
		BGET_U8(arg);
		AvFLAGS(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XHV_RITER:		/* 58 */
	    {
		I32 arg;
		BGET_I32(arg);
		HvRITER(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_XHV_NAME:		/* 59 */
	    {
		pvcontents arg;
		BGET_pvcontents(arg);
		HvNAME(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_HV_STORE:		/* 60 */
	    {
		svindex arg;
		BGET_svindex(arg);
		BSET_hv_store(PL_bytecode_sv, arg);
		break;
	    }
	  case INSN_SV_MAGIC:		/* 61 */
	    {
		char arg;
		BGET_U8(arg);
		BSET_sv_magic(PL_bytecode_sv, arg);
		break;
	    }
	  case INSN_MG_OBJ:		/* 62 */
	    {
		svindex arg;
		BGET_svindex(arg);
		SvMAGIC(PL_bytecode_sv)->mg_obj = arg;
		break;
	    }
	  case INSN_MG_PRIVATE:		/* 63 */
	    {
		U16 arg;
		BGET_U16(arg);
		SvMAGIC(PL_bytecode_sv)->mg_private = arg;
		break;
	    }
	  case INSN_MG_FLAGS:		/* 64 */
	    {
		U8 arg;
		BGET_U8(arg);
		SvMAGIC(PL_bytecode_sv)->mg_flags = arg;
		break;
	    }
	  case INSN_MG_PV:		/* 65 */
	    {
		pvcontents arg;
		BGET_pvcontents(arg);
		BSET_mg_pv(SvMAGIC(PL_bytecode_sv), arg);
		break;
	    }
	  case INSN_XMG_STASH:		/* 66 */
	    {
		svindex arg;
		BGET_svindex(arg);
		*(SV**)&SvSTASH(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_GV_FETCHPV:		/* 67 */
	    {
		strconst arg;
		BGET_strconst(arg);
		BSET_gv_fetchpv(PL_bytecode_sv, arg);
		break;
	    }
	  case INSN_GV_STASHPV:		/* 68 */
	    {
		strconst arg;
		BGET_strconst(arg);
		BSET_gv_stashpv(PL_bytecode_sv, arg);
		break;
	    }
	  case INSN_GP_SV:		/* 69 */
	    {
		svindex arg;
		BGET_svindex(arg);
		GvSV(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_GP_REFCNT:		/* 70 */
	    {
		U32 arg;
		BGET_U32(arg);
		GvREFCNT(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_GP_REFCNT_ADD:		/* 71 */
	    {
		I32 arg;
		BGET_I32(arg);
		BSET_gp_refcnt_add(GvREFCNT(PL_bytecode_sv), arg);
		break;
	    }
	  case INSN_GP_AV:		/* 72 */
	    {
		svindex arg;
		BGET_svindex(arg);
		*(SV**)&GvAV(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_GP_HV:		/* 73 */
	    {
		svindex arg;
		BGET_svindex(arg);
		*(SV**)&GvHV(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_GP_CV:		/* 74 */
	    {
		svindex arg;
		BGET_svindex(arg);
		*(SV**)&GvCV(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_GP_FILEGV:		/* 75 */
	    {
		svindex arg;
		BGET_svindex(arg);
		*(SV**)&GvFILEGV(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_GP_IO:		/* 76 */
	    {
		svindex arg;
		BGET_svindex(arg);
		*(SV**)&GvIOp(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_GP_FORM:		/* 77 */
	    {
		svindex arg;
		BGET_svindex(arg);
		*(SV**)&GvFORM(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_GP_CVGEN:		/* 78 */
	    {
		U32 arg;
		BGET_U32(arg);
		GvCVGEN(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_GP_LINE:		/* 79 */
	    {
		line_t arg;
		BGET_U16(arg);
		GvLINE(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_GP_SHARE:		/* 80 */
	    {
		svindex arg;
		BGET_svindex(arg);
		BSET_gp_share(PL_bytecode_sv, arg);
		break;
	    }
	  case INSN_XGV_FLAGS:		/* 81 */
	    {
		U8 arg;
		BGET_U8(arg);
		GvFLAGS(PL_bytecode_sv) = arg;
		break;
	    }
	  case INSN_OP_NEXT:		/* 82 */
	    {
		opindex arg;
		BGET_opindex(arg);
		PL_op->op_next = arg;
		break;
	    }
	  case INSN_OP_SIBLING:		/* 83 */
	    {
		opindex arg;
		BGET_opindex(arg);
		PL_op->op_sibling = arg;
		break;
	    }
	  case INSN_OP_PPADDR:		/* 84 */
	    {
		strconst arg;
		BGET_strconst(arg);
		BSET_op_ppaddr(PL_op->op_ppaddr, arg);
		break;
	    }
	  case INSN_OP_TARG:		/* 85 */
	    {
		PADOFFSET arg;
		BGET_U32(arg);
		PL_op->op_targ = arg;
		break;
	    }
	  case INSN_OP_TYPE:		/* 86 */
	    {
		OPCODE arg;
		BGET_U16(arg);
		BSET_op_type(PL_op, arg);
		break;
	    }
	  case INSN_OP_SEQ:		/* 87 */
	    {
		U16 arg;
		BGET_U16(arg);
		PL_op->op_seq = arg;
		break;
	    }
	  case INSN_OP_FLAGS:		/* 88 */
	    {
		U8 arg;
		BGET_U8(arg);
		PL_op->op_flags = arg;
		break;
	    }
	  case INSN_OP_PRIVATE:		/* 89 */
	    {
		U8 arg;
		BGET_U8(arg);
		PL_op->op_private = arg;
		break;
	    }
	  case INSN_OP_FIRST:		/* 90 */
	    {
		opindex arg;
		BGET_opindex(arg);
		cUNOP->op_first = arg;
		break;
	    }
	  case INSN_OP_LAST:		/* 91 */
	    {
		opindex arg;
		BGET_opindex(arg);
		cBINOP->op_last = arg;
		break;
	    }
	  case INSN_OP_OTHER:		/* 92 */
	    {
		opindex arg;
		BGET_opindex(arg);
		cLOGOP->op_other = arg;
		break;
	    }
	  case INSN_OP_TRUE:		/* 93 */
	    {
		opindex arg;
		BGET_opindex(arg);
		cCONDOP->op_true = arg;
		break;
	    }
	  case INSN_OP_FALSE:		/* 94 */
	    {
		opindex arg;
		BGET_opindex(arg);
		cCONDOP->op_false = arg;
		break;
	    }
	  case INSN_OP_CHILDREN:		/* 95 */
	    {
		U32 arg;
		BGET_U32(arg);
		cLISTOP->op_children = arg;
		break;
	    }
	  case INSN_OP_PMREPLROOT:		/* 96 */
	    {
		opindex arg;
		BGET_opindex(arg);
		cPMOP->op_pmreplroot = arg;
		break;
	    }
	  case INSN_OP_PMREPLROOTGV:		/* 97 */
	    {
		svindex arg;
		BGET_svindex(arg);
		*(SV**)&cPMOP->op_pmreplroot = arg;
		break;
	    }
	  case INSN_OP_PMREPLSTART:		/* 98 */
	    {
		opindex arg;
		BGET_opindex(arg);
		cPMOP->op_pmreplstart = arg;
		break;
	    }
	  case INSN_OP_PMNEXT:		/* 99 */
	    {
		opindex arg;
		BGET_opindex(arg);
		*(OP**)&cPMOP->op_pmnext = arg;
		break;
	    }
	  case INSN_PREGCOMP:		/* 100 */
	    {
		pvcontents arg;
		BGET_pvcontents(arg);
		BSET_pregcomp(PL_op, arg);
		break;
	    }
	  case INSN_OP_PMFLAGS:		/* 101 */
	    {
		U16 arg;
		BGET_U16(arg);
		cPMOP->op_pmflags = arg;
		break;
	    }
	  case INSN_OP_PMPERMFLAGS:		/* 102 */
	    {
		U16 arg;
		BGET_U16(arg);
		cPMOP->op_pmpermflags = arg;
		break;
	    }
	  case INSN_OP_SV:		/* 103 */
	    {
		svindex arg;
		BGET_svindex(arg);
		cSVOP->op_sv = arg;
		break;
	    }
	  case INSN_OP_GV:		/* 104 */
	    {
		svindex arg;
		BGET_svindex(arg);
		*(SV**)&cGVOP->op_gv = arg;
		break;
	    }
	  case INSN_OP_PV:		/* 105 */
	    {
		pvcontents arg;
		BGET_pvcontents(arg);
		cPVOP->op_pv = arg;
		break;
	    }
	  case INSN_OP_PV_TR:		/* 106 */
	    {
		op_tr_array arg;
		BGET_op_tr_array(arg);
		cPVOP->op_pv = arg;
		break;
	    }
	  case INSN_OP_REDOOP:		/* 107 */
	    {
		opindex arg;
		BGET_opindex(arg);
		cLOOP->op_redoop = arg;
		break;
	    }
	  case INSN_OP_NEXTOP:		/* 108 */
	    {
		opindex arg;
		BGET_opindex(arg);
		cLOOP->op_nextop = arg;
		break;
	    }
	  case INSN_OP_LASTOP:		/* 109 */
	    {
		opindex arg;
		BGET_opindex(arg);
		cLOOP->op_lastop = arg;
		break;
	    }
	  case INSN_COP_LABEL:		/* 110 */
	    {
		pvcontents arg;
		BGET_pvcontents(arg);
		cCOP->cop_label = arg;
		break;
	    }
	  case INSN_COP_STASH:		/* 111 */
	    {
		svindex arg;
		BGET_svindex(arg);
		*(SV**)&cCOP->cop_stash = arg;
		break;
	    }
	  case INSN_COP_FILEGV:		/* 112 */
	    {
		svindex arg;
		BGET_svindex(arg);
		*(SV**)&cCOP->cop_filegv = arg;
		break;
	    }
	  case INSN_COP_SEQ:		/* 113 */
	    {
		U32 arg;
		BGET_U32(arg);
		cCOP->cop_seq = arg;
		break;
	    }
	  case INSN_COP_ARYBASE:		/* 114 */
	    {
		I32 arg;
		BGET_I32(arg);
		cCOP->cop_arybase = arg;
		break;
	    }
	  case INSN_COP_LINE:		/* 115 */
	    {
		line_t arg;
		BGET_U16(arg);
		cCOP->cop_line = arg;
		break;
	    }
	  case INSN_COP_WARNINGS:		/* 116 */
	    {
		svindex arg;
		BGET_svindex(arg);
		cCOP->cop_warnings = arg;
		break;
	    }
	  case INSN_MAIN_START:		/* 117 */
	    {
		opindex arg;
		BGET_opindex(arg);
		PL_main_start = arg;
		break;
	    }
	  case INSN_MAIN_ROOT:		/* 118 */
	    {
		opindex arg;
		BGET_opindex(arg);
		PL_main_root = arg;
		break;
	    }
	  case INSN_CURPAD:		/* 119 */
	    {
		svindex arg;
		BGET_svindex(arg);
		BSET_curpad(PL_curpad, arg);
		break;
	    }
	  default:
	    croak("Illegal bytecode instruction %d\n", insn);
	    /* NOTREACHED */
	}
    }
}
Commit	Line	Data
79ee8297	1	/*
33b839e2	2	* Copyright (c) 1996-1998 Malcolm Beattie
79ee8297	3	*
	4	* You may distribute under the terms of either the GNU General Public
	5	* License or the Artistic License, as specified in the README file.
	6	*
	7	*/
	8	/*
	9	* This file is autogenerated from bytecode.pl. Changes made here will be lost.
	10	*/
	11
	12	#include "EXTERN.h"
	13	#include "perl.h"
d613ef02	14
	15	void *
	16	bset_obj_store(void *obj, I32 ix)
	17	{
92742e37	18	if (ix > PL_bytecode_obj_list_fill) {
	19	if (PL_bytecode_obj_list_fill == -1)
	20	New(666, PL_bytecode_obj_list, ix + 1, void*);
d613ef02	21	else
92742e37	22	Renew(PL_bytecode_obj_list, ix + 1, void*);
92742e37	23	PL_bytecode_obj_list_fill = ix;
d613ef02	24	}
92742e37	25	PL_bytecode_obj_list[ix] = obj;
d613ef02	26	return obj;
d613ef02	27	}
79ee8297	28
79ee8297	29	#ifdef INDIRECT_BGET_MACROS
33b839e2	30	void byterun(struct bytestream bs)
79ee8297	31	#else
4b534093	32	void byterun(PerlIO *fp)
79ee8297	33	#endif /* INDIRECT_BGET_MACROS */
79ee8297	34	{
ed65db6c	35	dTHR;
79ee8297	36	int insn;
47358472	37	while ((insn = BGET_FGETC()) != EOF) {
79ee8297	38	switch (insn) {
	39	case INSN_COMMENT: /* 35 */
	40	{
34e97019	41	comment_t arg;
fe3a57c4	42	BGET_comment_t(arg);
79ee8297	43	arg = arg;
	44	break;
	45	}
	46	case INSN_NOP: /* 10 */
	47	{
	48	break;
	49	}
	50	case INSN_RET: /* 0 */
	51	{
	52	BSET_ret(none);
	53	break;
	54	}
	55	case INSN_LDSV: /* 1 */
	56	{
	57	svindex arg;
01f988be	58	BGET_svindex(arg);
92742e37	59	PL_bytecode_sv = arg;
79ee8297	60	break;
	61	}
	62	case INSN_LDOP: /* 2 */
	63	{
	64	opindex arg;
01f988be	65	BGET_opindex(arg);
533c011a	66	PL_op = arg;
79ee8297	67	break;
	68	}
	69	case INSN_STSV: /* 3 */
	70	{
	71	U32 arg;
	72	BGET_U32(arg);
92742e37	73	BSET_OBJ_STORE(PL_bytecode_sv, arg);
79ee8297	74	break;
	75	}
	76	case INSN_STOP: /* 4 */
	77	{
	78	U32 arg;
	79	BGET_U32(arg);
533c011a	80	BSET_OBJ_STORE(PL_op, arg);
79ee8297	81	break;
	82	}
	83	case INSN_LDSPECSV: /* 5 */
	84	{
	85	U8 arg;
	86	BGET_U8(arg);
92742e37	87	BSET_ldspecsv(PL_bytecode_sv, arg);
79ee8297	88	break;
	89	}
	90	case INSN_NEWSV: /* 6 */
	91	{
	92	U8 arg;
	93	BGET_U8(arg);
92742e37	94	BSET_newsv(PL_bytecode_sv, arg);
79ee8297	95	break;
	96	}
	97	case INSN_NEWOP: /* 7 */
	98	{
	99	U8 arg;
	100	BGET_U8(arg);
533c011a	101	BSET_newop(PL_op, arg);
79ee8297	102	break;
	103	}
	104	case INSN_NEWOPN: /* 8 */
	105	{
	106	U8 arg;
	107	BGET_U8(arg);
533c011a	108	BSET_newopn(PL_op, arg);
79ee8297	109	break;
	110	}
	111	case INSN_NEWPV: /* 9 */
	112	{
	113	PV arg;
	114	BGET_PV(arg);
	115	break;
	116	}
	117	case INSN_PV_CUR: /* 11 */
	118	{
	119	STRLEN arg;
	120	BGET_U32(arg);
92742e37	121	PL_bytecode_pv.xpv_cur = arg;
79ee8297	122	break;
	123	}
	124	case INSN_PV_FREE: /* 12 */
	125	{
92742e37	126	BSET_pv_free(PL_bytecode_pv);
79ee8297	127	break;
	128	}
	129	case INSN_SV_UPGRADE: /* 13 */
	130	{
	131	char arg;
	132	BGET_U8(arg);
92742e37	133	BSET_sv_upgrade(PL_bytecode_sv, arg);
79ee8297	134	break;
	135	}
	136	case INSN_SV_REFCNT: /* 14 */
	137	{
	138	U32 arg;
	139	BGET_U32(arg);
92742e37	140	SvREFCNT(PL_bytecode_sv) = arg;
79ee8297	141	break;
	142	}
	143	case INSN_SV_REFCNT_ADD: /* 15 */
	144	{
	145	I32 arg;
	146	BGET_I32(arg);
92742e37	147	BSET_sv_refcnt_add(SvREFCNT(PL_bytecode_sv), arg);
79ee8297	148	break;
	149	}
	150	case INSN_SV_FLAGS: /* 16 */
	151	{
	152	U32 arg;
	153	BGET_U32(arg);
92742e37	154	SvFLAGS(PL_bytecode_sv) = arg;
79ee8297	155	break;
	156	}
	157	case INSN_XRV: /* 17 */
	158	{
	159	svindex arg;
01f988be	160	BGET_svindex(arg);
92742e37	161	SvRV(PL_bytecode_sv) = arg;
79ee8297	162	break;
	163	}
	164	case INSN_XPV: /* 18 */
	165	{
92742e37	166	BSET_xpv(PL_bytecode_sv);
79ee8297	167	break;
	168	}
	169	case INSN_XIV32: /* 19 */
	170	{
	171	I32 arg;
	172	BGET_I32(arg);
92742e37	173	SvIVX(PL_bytecode_sv) = arg;
79ee8297	174	break;
	175	}
	176	case INSN_XIV64: /* 20 */
	177	{
	178	IV64 arg;
	179	BGET_IV64(arg);
92742e37	180	SvIVX(PL_bytecode_sv) = arg;
79ee8297	181	break;
	182	}
	183	case INSN_XNV: /* 21 */
	184	{
	185	double arg;
	186	BGET_double(arg);
92742e37	187	SvNVX(PL_bytecode_sv) = arg;
79ee8297	188	break;
	189	}
	190	case INSN_XLV_TARGOFF: /* 22 */
	191	{
	192	STRLEN arg;
	193	BGET_U32(arg);
92742e37	194	LvTARGOFF(PL_bytecode_sv) = arg;
79ee8297	195	break;
	196	}
	197	case INSN_XLV_TARGLEN: /* 23 */
	198	{
	199	STRLEN arg;
	200	BGET_U32(arg);
92742e37	201	LvTARGLEN(PL_bytecode_sv) = arg;
79ee8297	202	break;
	203	}
	204	case INSN_XLV_TARG: /* 24 */
	205	{
	206	svindex arg;
01f988be	207	BGET_svindex(arg);
92742e37	208	LvTARG(PL_bytecode_sv) = arg;
79ee8297	209	break;
	210	}
	211	case INSN_XLV_TYPE: /* 25 */
	212	{
	213	char arg;
	214	BGET_U8(arg);
92742e37	215	LvTYPE(PL_bytecode_sv) = arg;
79ee8297	216	break;
	217	}
	218	case INSN_XBM_USEFUL: /* 26 */
	219	{
	220	I32 arg;
	221	BGET_I32(arg);
92742e37	222	BmUSEFUL(PL_bytecode_sv) = arg;
79ee8297	223	break;
	224	}
	225	case INSN_XBM_PREVIOUS: /* 27 */
	226	{
	227	U16 arg;
	228	BGET_U16(arg);
92742e37	229	BmPREVIOUS(PL_bytecode_sv) = arg;
79ee8297	230	break;
	231	}
	232	case INSN_XBM_RARE: /* 28 */
	233	{
	234	U8 arg;
	235	BGET_U8(arg);
92742e37	236	BmRARE(PL_bytecode_sv) = arg;
79ee8297	237	break;
	238	}
	239	case INSN_XFM_LINES: /* 29 */
	240	{
	241	I32 arg;
	242	BGET_I32(arg);
92742e37	243	FmLINES(PL_bytecode_sv) = arg;
79ee8297	244	break;
	245	}
	246	case INSN_XIO_LINES: /* 30 */
	247	{
	248	long arg;
	249	BGET_I32(arg);
92742e37	250	IoLINES(PL_bytecode_sv) = arg;
79ee8297	251	break;
	252	}
	253	case INSN_XIO_PAGE: /* 31 */
	254	{
	255	long arg;
	256	BGET_I32(arg);
92742e37	257	IoPAGE(PL_bytecode_sv) = arg;
79ee8297	258	break;
	259	}
	260	case INSN_XIO_PAGE_LEN: /* 32 */
	261	{
	262	long arg;
	263	BGET_I32(arg);
92742e37	264	IoPAGE_LEN(PL_bytecode_sv) = arg;
79ee8297	265	break;
	266	}
	267	case INSN_XIO_LINES_LEFT: /* 33 */
	268	{
	269	long arg;
	270	BGET_I32(arg);
92742e37	271	IoLINES_LEFT(PL_bytecode_sv) = arg;
79ee8297	272	break;
	273	}
	274	case INSN_XIO_TOP_NAME: /* 34 */
	275	{
	276	pvcontents arg;
	277	BGET_pvcontents(arg);
92742e37	278	IoTOP_NAME(PL_bytecode_sv) = arg;
79ee8297	279	break;
	280	}
	281	case INSN_XIO_TOP_GV: /* 36 */
	282	{
	283	svindex arg;
01f988be	284	BGET_svindex(arg);
92742e37	285	(SV*)&IoTOP_GV(PL_bytecode_sv) = arg;
79ee8297	286	break;
	287	}
	288	case INSN_XIO_FMT_NAME: /* 37 */
	289	{
	290	pvcontents arg;
	291	BGET_pvcontents(arg);
92742e37	292	IoFMT_NAME(PL_bytecode_sv) = arg;
79ee8297	293	break;
	294	}
	295	case INSN_XIO_FMT_GV: /* 38 */
	296	{
	297	svindex arg;
01f988be	298	BGET_svindex(arg);
92742e37	299	(SV*)&IoFMT_GV(PL_bytecode_sv) = arg;
79ee8297	300	break;
	301	}
	302	case INSN_XIO_BOTTOM_NAME: /* 39 */
	303	{
	304	pvcontents arg;
	305	BGET_pvcontents(arg);
92742e37	306	IoBOTTOM_NAME(PL_bytecode_sv) = arg;
79ee8297	307	break;
	308	}
	309	case INSN_XIO_BOTTOM_GV: /* 40 */
	310	{
	311	svindex arg;
01f988be	312	BGET_svindex(arg);
92742e37	313	(SV*)&IoBOTTOM_GV(PL_bytecode_sv) = arg;
79ee8297	314	break;
	315	}
	316	case INSN_XIO_SUBPROCESS: /* 41 */
	317	{
	318	short arg;
	319	BGET_U16(arg);
92742e37	320	IoSUBPROCESS(PL_bytecode_sv) = arg;
79ee8297	321	break;
	322	}
	323	case INSN_XIO_TYPE: /* 42 */
	324	{
	325	char arg;
	326	BGET_U8(arg);
92742e37	327	IoTYPE(PL_bytecode_sv) = arg;
79ee8297	328	break;
	329	}
	330	case INSN_XIO_FLAGS: /* 43 */
	331	{
	332	char arg;
	333	BGET_U8(arg);
92742e37	334	IoFLAGS(PL_bytecode_sv) = arg;
79ee8297	335	break;
	336	}
	337	case INSN_XCV_STASH: /* 44 */
	338	{
	339	svindex arg;
01f988be	340	BGET_svindex(arg);
92742e37	341	(SV*)&CvSTASH(PL_bytecode_sv) = arg;
79ee8297	342	break;
	343	}
	344	case INSN_XCV_START: /* 45 */
	345	{
	346	opindex arg;
01f988be	347	BGET_opindex(arg);
92742e37	348	CvSTART(PL_bytecode_sv) = arg;
79ee8297	349	break;
	350	}
	351	case INSN_XCV_ROOT: /* 46 */
	352	{
	353	opindex arg;
01f988be	354	BGET_opindex(arg);
92742e37	355	CvROOT(PL_bytecode_sv) = arg;
79ee8297	356	break;
	357	}
	358	case INSN_XCV_GV: /* 47 */
	359	{
	360	svindex arg;
01f988be	361	BGET_svindex(arg);
92742e37	362	(SV*)&CvGV(PL_bytecode_sv) = arg;
79ee8297	363	break;
	364	}
	365	case INSN_XCV_FILEGV: /* 48 */
	366	{
	367	svindex arg;
01f988be	368	BGET_svindex(arg);
92742e37	369	(SV*)&CvFILEGV(PL_bytecode_sv) = arg;
79ee8297	370	break;
	371	}
	372	case INSN_XCV_DEPTH: /* 49 */
	373	{
	374	long arg;
	375	BGET_I32(arg);
92742e37	376	CvDEPTH(PL_bytecode_sv) = arg;
79ee8297	377	break;
	378	}
	379	case INSN_XCV_PADLIST: /* 50 */
	380	{
	381	svindex arg;
01f988be	382	BGET_svindex(arg);
92742e37	383	(SV*)&CvPADLIST(PL_bytecode_sv) = arg;
79ee8297	384	break;
	385	}
	386	case INSN_XCV_OUTSIDE: /* 51 */
	387	{
	388	svindex arg;
01f988be	389	BGET_svindex(arg);
92742e37	390	(SV*)&CvOUTSIDE(PL_bytecode_sv) = arg;
79ee8297	391	break;
	392	}
	393	case INSN_XCV_FLAGS: /* 52 */
	394	{
	395	U8 arg;
	396	BGET_U8(arg);
92742e37	397	CvFLAGS(PL_bytecode_sv) = arg;
79ee8297	398	break;
	399	}
	400	case INSN_AV_EXTEND: /* 53 */
	401	{
	402	SSize_t arg;
	403	BGET_I32(arg);
92742e37	404	BSET_av_extend(PL_bytecode_sv, arg);
79ee8297	405	break;
	406	}
	407	case INSN_AV_PUSH: /* 54 */
	408	{
	409	svindex arg;
01f988be	410	BGET_svindex(arg);
92742e37	411	BSET_av_push(PL_bytecode_sv, arg);
79ee8297	412	break;
	413	}
	414	case INSN_XAV_FILL: /* 55 */
	415	{
	416	SSize_t arg;
	417	BGET_I32(arg);
92742e37	418	AvFILLp(PL_bytecode_sv) = arg;
79ee8297	419	break;
	420	}
	421	case INSN_XAV_MAX: /* 56 */
	422	{
	423	SSize_t arg;
	424	BGET_I32(arg);
92742e37	425	AvMAX(PL_bytecode_sv) = arg;
79ee8297	426	break;
	427	}
	428	case INSN_XAV_FLAGS: /* 57 */
	429	{
	430	U8 arg;
	431	BGET_U8(arg);
92742e37	432	AvFLAGS(PL_bytecode_sv) = arg;
79ee8297	433	break;
	434	}
	435	case INSN_XHV_RITER: /* 58 */
	436	{
	437	I32 arg;
	438	BGET_I32(arg);
92742e37	439	HvRITER(PL_bytecode_sv) = arg;
79ee8297	440	break;
	441	}
	442	case INSN_XHV_NAME: /* 59 */
	443	{
	444	pvcontents arg;
	445	BGET_pvcontents(arg);
92742e37	446	HvNAME(PL_bytecode_sv) = arg;
79ee8297	447	break;
	448	}
	449	case INSN_HV_STORE: /* 60 */
	450	{
	451	svindex arg;
01f988be	452	BGET_svindex(arg);
92742e37	453	BSET_hv_store(PL_bytecode_sv, arg);
79ee8297	454	break;
	455	}
	456	case INSN_SV_MAGIC: /* 61 */
	457	{
	458	char arg;
	459	BGET_U8(arg);
92742e37	460	BSET_sv_magic(PL_bytecode_sv, arg);
79ee8297	461	break;
	462	}
	463	case INSN_MG_OBJ: /* 62 */
	464	{
	465	svindex arg;
01f988be	466	BGET_svindex(arg);
92742e37	467	SvMAGIC(PL_bytecode_sv)->mg_obj = arg;
79ee8297	468	break;
	469	}
	470	case INSN_MG_PRIVATE: /* 63 */
	471	{
	472	U16 arg;
	473	BGET_U16(arg);
92742e37	474	SvMAGIC(PL_bytecode_sv)->mg_private = arg;
79ee8297	475	break;
	476	}
	477	case INSN_MG_FLAGS: /* 64 */
	478	{
	479	U8 arg;
	480	BGET_U8(arg);
92742e37	481	SvMAGIC(PL_bytecode_sv)->mg_flags = arg;
79ee8297	482	break;
	483	}
	484	case INSN_MG_PV: /* 65 */
	485	{
	486	pvcontents arg;
	487	BGET_pvcontents(arg);
92742e37	488	BSET_mg_pv(SvMAGIC(PL_bytecode_sv), arg);
79ee8297	489	break;
	490	}
	491	case INSN_XMG_STASH: /* 66 */
	492	{
	493	svindex arg;
01f988be	494	BGET_svindex(arg);
92742e37	495	(SV*)&SvSTASH(PL_bytecode_sv) = arg;
79ee8297	496	break;
	497	}
	498	case INSN_GV_FETCHPV: /* 67 */
	499	{
	500	strconst arg;
	501	BGET_strconst(arg);
92742e37	502	BSET_gv_fetchpv(PL_bytecode_sv, arg);
79ee8297	503	break;
	504	}
	505	case INSN_GV_STASHPV: /* 68 */
	506	{
	507	strconst arg;
	508	BGET_strconst(arg);
92742e37	509	BSET_gv_stashpv(PL_bytecode_sv, arg);
79ee8297	510	break;
	511	}
	512	case INSN_GP_SV: /* 69 */
	513	{
	514	svindex arg;
01f988be	515	BGET_svindex(arg);
92742e37	516	GvSV(PL_bytecode_sv) = arg;
79ee8297	517	break;
	518	}
	519	case INSN_GP_REFCNT: /* 70 */
	520	{
	521	U32 arg;
	522	BGET_U32(arg);
92742e37	523	GvREFCNT(PL_bytecode_sv) = arg;
79ee8297	524	break;
	525	}
	526	case INSN_GP_REFCNT_ADD: /* 71 */
	527	{
	528	I32 arg;
	529	BGET_I32(arg);
92742e37	530	BSET_gp_refcnt_add(GvREFCNT(PL_bytecode_sv), arg);
79ee8297	531	break;
	532	}
	533	case INSN_GP_AV: /* 72 */
	534	{
	535	svindex arg;
01f988be	536	BGET_svindex(arg);
92742e37	537	(SV*)&GvAV(PL_bytecode_sv) = arg;
79ee8297	538	break;
	539	}
	540	case INSN_GP_HV: /* 73 */
	541	{
	542	svindex arg;
01f988be	543	BGET_svindex(arg);
92742e37	544	(SV*)&GvHV(PL_bytecode_sv) = arg;
79ee8297	545	break;
	546	}
	547	case INSN_GP_CV: /* 74 */
	548	{
	549	svindex arg;
01f988be	550	BGET_svindex(arg);
92742e37	551	(SV*)&GvCV(PL_bytecode_sv) = arg;
79ee8297	552	break;
	553	}
	554	case INSN_GP_FILEGV: /* 75 */
	555	{
	556	svindex arg;
01f988be	557	BGET_svindex(arg);
92742e37	558	(SV*)&GvFILEGV(PL_bytecode_sv) = arg;
79ee8297	559	break;
	560	}
	561	case INSN_GP_IO: /* 76 */
	562	{
	563	svindex arg;
01f988be	564	BGET_svindex(arg);
92742e37	565	(SV*)&GvIOp(PL_bytecode_sv) = arg;
79ee8297	566	break;
	567	}
	568	case INSN_GP_FORM: /* 77 */
	569	{
	570	svindex arg;
01f988be	571	BGET_svindex(arg);
92742e37	572	(SV*)&GvFORM(PL_bytecode_sv) = arg;
79ee8297	573	break;
	574	}
	575	case INSN_GP_CVGEN: /* 78 */
	576	{
	577	U32 arg;
	578	BGET_U32(arg);
92742e37	579	GvCVGEN(PL_bytecode_sv) = arg;
79ee8297	580	break;
	581	}
	582	case INSN_GP_LINE: /* 79 */
	583	{
	584	line_t arg;
	585	BGET_U16(arg);
92742e37	586	GvLINE(PL_bytecode_sv) = arg;
79ee8297	587	break;
	588	}
	589	case INSN_GP_SHARE: /* 80 */
	590	{
	591	svindex arg;
01f988be	592	BGET_svindex(arg);
92742e37	593	BSET_gp_share(PL_bytecode_sv, arg);
79ee8297	594	break;
	595	}
	596	case INSN_XGV_FLAGS: /* 81 */
	597	{
	598	U8 arg;
	599	BGET_U8(arg);
92742e37	600	GvFLAGS(PL_bytecode_sv) = arg;
79ee8297	601	break;
	602	}
	603	case INSN_OP_NEXT: /* 82 */
	604	{
	605	opindex arg;
01f988be	606	BGET_opindex(arg);
533c011a	607	PL_op->op_next = arg;
79ee8297	608	break;
	609	}
	610	case INSN_OP_SIBLING: /* 83 */
	611	{
	612	opindex arg;
01f988be	613	BGET_opindex(arg);
533c011a	614	PL_op->op_sibling = arg;
79ee8297	615	break;
	616	}
	617	case INSN_OP_PPADDR: /* 84 */
	618	{
	619	strconst arg;
	620	BGET_strconst(arg);
6b88bc9c	621	BSET_op_ppaddr(PL_op->op_ppaddr, arg);
79ee8297	622	break;
	623	}
	624	case INSN_OP_TARG: /* 85 */
	625	{
	626	PADOFFSET arg;
	627	BGET_U32(arg);
533c011a	628	PL_op->op_targ = arg;
79ee8297	629	break;
	630	}
	631	case INSN_OP_TYPE: /* 86 */
	632	{
	633	OPCODE arg;
	634	BGET_U16(arg);
533c011a	635	BSET_op_type(PL_op, arg);
79ee8297	636	break;
	637	}
	638	case INSN_OP_SEQ: /* 87 */
	639	{
	640	U16 arg;
	641	BGET_U16(arg);
533c011a	642	PL_op->op_seq = arg;
79ee8297	643	break;
	644	}
	645	case INSN_OP_FLAGS: /* 88 */
	646	{
	647	U8 arg;
	648	BGET_U8(arg);
533c011a	649	PL_op->op_flags = arg;
79ee8297	650	break;
	651	}
	652	case INSN_OP_PRIVATE: /* 89 */
	653	{
	654	U8 arg;
	655	BGET_U8(arg);
533c011a	656	PL_op->op_private = arg;
79ee8297	657	break;
	658	}
	659	case INSN_OP_FIRST: /* 90 */
	660	{
	661	opindex arg;
01f988be	662	BGET_opindex(arg);
79ee8297	663	cUNOP->op_first = arg;
	664	break;
	665	}
	666	case INSN_OP_LAST: /* 91 */
	667	{
	668	opindex arg;
01f988be	669	BGET_opindex(arg);
79ee8297	670	cBINOP->op_last = arg;
	671	break;
	672	}
	673	case INSN_OP_OTHER: /* 92 */
	674	{
	675	opindex arg;
01f988be	676	BGET_opindex(arg);
79ee8297	677	cLOGOP->op_other = arg;
	678	break;
	679	}
	680	case INSN_OP_TRUE: /* 93 */
	681	{
	682	opindex arg;
01f988be	683	BGET_opindex(arg);
79ee8297	684	cCONDOP->op_true = arg;
	685	break;
	686	}
	687	case INSN_OP_FALSE: /* 94 */
	688	{
	689	opindex arg;
01f988be	690	BGET_opindex(arg);
79ee8297	691	cCONDOP->op_false = arg;
	692	break;
	693	}
	694	case INSN_OP_CHILDREN: /* 95 */
	695	{
	696	U32 arg;
	697	BGET_U32(arg);
	698	cLISTOP->op_children = arg;
	699	break;
	700	}
	701	case INSN_OP_PMREPLROOT: /* 96 */
	702	{
	703	opindex arg;
01f988be	704	BGET_opindex(arg);
79ee8297	705	cPMOP->op_pmreplroot = arg;
	706	break;
	707	}
	708	case INSN_OP_PMREPLROOTGV: /* 97 */
	709	{
	710	svindex arg;
01f988be	711	BGET_svindex(arg);
79ee8297	712	(SV*)&cPMOP->op_pmreplroot = arg;
	713	break;
	714	}
	715	case INSN_OP_PMREPLSTART: /* 98 */
	716	{
	717	opindex arg;
01f988be	718	BGET_opindex(arg);
79ee8297	719	cPMOP->op_pmreplstart = arg;
	720	break;
	721	}
	722	case INSN_OP_PMNEXT: /* 99 */
	723	{
	724	opindex arg;
01f988be	725	BGET_opindex(arg);
79ee8297	726	(OP*)&cPMOP->op_pmnext = arg;
	727	break;
	728	}
	729	case INSN_PREGCOMP: /* 100 */
	730	{
	731	pvcontents arg;
	732	BGET_pvcontents(arg);
533c011a	733	BSET_pregcomp(PL_op, arg);
79ee8297	734	break;
79ee8297	735	}
b15db76c	736	case INSN_OP_PMFLAGS: /* 101 */
79ee8297	737	{
	738	U16 arg;
	739	BGET_U16(arg);
	740	cPMOP->op_pmflags = arg;
	741	break;
	742	}
b15db76c	743	case INSN_OP_PMPERMFLAGS: /* 102 */
79ee8297	744	{
	745	U16 arg;
	746	BGET_U16(arg);
	747	cPMOP->op_pmpermflags = arg;
	748	break;
	749	}
b15db76c	750	case INSN_OP_SV: /* 103 */
79ee8297	751	{
79ee8297	752	svindex arg;
01f988be	753	BGET_svindex(arg);
79ee8297	754	cSVOP->op_sv = arg;
	755	break;
	756	}
b15db76c	757	case INSN_OP_GV: /* 104 */
79ee8297	758	{
79ee8297	759	svindex arg;
01f988be	760	BGET_svindex(arg);
f64a6365	761	(SV*)&cGVOP->op_gv = arg;
79ee8297	762	break;
79ee8297	763	}
b15db76c	764	case INSN_OP_PV: /* 105 */
79ee8297	765	{
	766	pvcontents arg;
	767	BGET_pvcontents(arg);
	768	cPVOP->op_pv = arg;
	769	break;
	770	}
b15db76c	771	case INSN_OP_PV_TR: /* 106 */
79ee8297	772	{
	773	op_tr_array arg;
	774	BGET_op_tr_array(arg);
	775	cPVOP->op_pv = arg;
	776	break;
	777	}
b15db76c	778	case INSN_OP_REDOOP: /* 107 */
79ee8297	779	{
79ee8297	780	opindex arg;
01f988be	781	BGET_opindex(arg);
79ee8297	782	cLOOP->op_redoop = arg;
	783	break;
	784	}
b15db76c	785	case INSN_OP_NEXTOP: /* 108 */
79ee8297	786	{
79ee8297	787	opindex arg;
01f988be	788	BGET_opindex(arg);
79ee8297	789	cLOOP->op_nextop = arg;
	790	break;
	791	}
b15db76c	792	case INSN_OP_LASTOP: /* 109 */
79ee8297	793	{
79ee8297	794	opindex arg;
01f988be	795	BGET_opindex(arg);
79ee8297	796	cLOOP->op_lastop = arg;
	797	break;
	798	}
b15db76c	799	case INSN_COP_LABEL: /* 110 */
79ee8297	800	{
	801	pvcontents arg;
	802	BGET_pvcontents(arg);
	803	cCOP->cop_label = arg;
	804	break;
	805	}
b15db76c	806	case INSN_COP_STASH: /* 111 */
79ee8297	807	{
79ee8297	808	svindex arg;
01f988be	809	BGET_svindex(arg);
79ee8297	810	(SV*)&cCOP->cop_stash = arg;
	811	break;
	812	}
b15db76c	813	case INSN_COP_FILEGV: /* 112 */
79ee8297	814	{
79ee8297	815	svindex arg;
01f988be	816	BGET_svindex(arg);
f64a6365	817	(SV*)&cCOP->cop_filegv = arg;
79ee8297	818	break;
79ee8297	819	}
b15db76c	820	case INSN_COP_SEQ: /* 113 */
79ee8297	821	{
	822	U32 arg;
	823	BGET_U32(arg);
	824	cCOP->cop_seq = arg;
	825	break;
	826	}
b15db76c	827	case INSN_COP_ARYBASE: /* 114 */
79ee8297	828	{
	829	I32 arg;
	830	BGET_I32(arg);
	831	cCOP->cop_arybase = arg;
	832	break;
	833	}
b15db76c	834	case INSN_COP_LINE: /* 115 */
79ee8297	835	{
	836	line_t arg;
	837	BGET_U16(arg);
	838	cCOP->cop_line = arg;
	839	break;
	840	}
b295d113	841	case INSN_COP_WARNINGS: /* 116 */
	842	{
	843	svindex arg;
	844	BGET_svindex(arg);
	845	cCOP->cop_warnings = arg;
	846	break;
	847	}
	848	case INSN_MAIN_START: /* 117 */
79ee8297	849	{
79ee8297	850	opindex arg;
01f988be	851	BGET_opindex(arg);
3280af22	852	PL_main_start = arg;
79ee8297	853	break;
79ee8297	854	}
b295d113	855	case INSN_MAIN_ROOT: /* 118 */
79ee8297	856	{
79ee8297	857	opindex arg;
01f988be	858	BGET_opindex(arg);
3280af22	859	PL_main_root = arg;
79ee8297	860	break;
79ee8297	861	}
b295d113	862	case INSN_CURPAD: /* 119 */
79ee8297	863	{
79ee8297	864	svindex arg;
01f988be	865	BGET_svindex(arg);
3280af22	866	BSET_curpad(PL_curpad, arg);
79ee8297	867	break;
	868	}
	869	default:
	870	croak("Illegal bytecode instruction %d\n", insn);
	871	/* NOTREACHED */
	872	}
	873	}
	874	}