[asperl] added AS patch#12 with minor changes

p4raw-id: //depot/asperl@806

1 files changed, 47 insertions, 47 deletions

diff --git a/byterun.c b/byterun.c
index c99fa0850e..e77d3a3e16 100644
--- a/byterun.c
+++ b/byterun.c
@@ -55,14 +55,14 @@ void byterun(PerlIO *fp)
 	  case INSN_LDSV:		/* 1 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		sv = arg;
 		break;
 	    }
 	  case INSN_LDOP:		/* 2 */
 	    {
 		opindex arg;
-		BGET_objindex(arg);
+		BGET_opindex(arg);
 		op = arg;
 		break;
 	    }
@@ -157,7 +157,7 @@ void byterun(PerlIO *fp)
 	  case INSN_XRV:		/* 17 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		SvRV(sv) = arg;
 		break;
 	    }
@@ -204,7 +204,7 @@ void byterun(PerlIO *fp)
 	  case INSN_XLV_TARG:		/* 24 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		LvTARG(sv) = arg;
 		break;
 	    }
@@ -281,7 +281,7 @@ void byterun(PerlIO *fp)
 	  case INSN_XIO_TOP_GV:		/* 36 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		*(SV**)&IoTOP_GV(sv) = arg;
 		break;
 	    }
@@ -295,7 +295,7 @@ void byterun(PerlIO *fp)
 	  case INSN_XIO_FMT_GV:		/* 38 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		*(SV**)&IoFMT_GV(sv) = arg;
 		break;
 	    }
@@ -309,7 +309,7 @@ void byterun(PerlIO *fp)
 	  case INSN_XIO_BOTTOM_GV:		/* 40 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		*(SV**)&IoBOTTOM_GV(sv) = arg;
 		break;
 	    }
@@ -337,35 +337,35 @@ void byterun(PerlIO *fp)
 	  case INSN_XCV_STASH:		/* 44 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		*(SV**)&CvSTASH(sv) = arg;
 		break;
 	    }
 	  case INSN_XCV_START:		/* 45 */
 	    {
 		opindex arg;
-		BGET_objindex(arg);
+		BGET_opindex(arg);
 		CvSTART(sv) = arg;
 		break;
 	    }
 	  case INSN_XCV_ROOT:		/* 46 */
 	    {
 		opindex arg;
-		BGET_objindex(arg);
+		BGET_opindex(arg);
 		CvROOT(sv) = arg;
 		break;
 	    }
 	  case INSN_XCV_GV:		/* 47 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		*(SV**)&CvGV(sv) = arg;
 		break;
 	    }
 	  case INSN_XCV_FILEGV:		/* 48 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		*(SV**)&CvFILEGV(sv) = arg;
 		break;
 	    }
@@ -379,14 +379,14 @@ void byterun(PerlIO *fp)
 	  case INSN_XCV_PADLIST:		/* 50 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		*(SV**)&CvPADLIST(sv) = arg;
 		break;
 	    }
 	  case INSN_XCV_OUTSIDE:		/* 51 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		*(SV**)&CvOUTSIDE(sv) = arg;
 		break;
 	    }
@@ -407,7 +407,7 @@ void byterun(PerlIO *fp)
 	  case INSN_AV_PUSH:		/* 54 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		BSET_av_push(sv, arg);
 		break;
 	    }
@@ -449,7 +449,7 @@ void byterun(PerlIO *fp)
 	  case INSN_HV_STORE:		/* 60 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		BSET_hv_store(sv, arg);
 		break;
 	    }
@@ -463,7 +463,7 @@ void byterun(PerlIO *fp)
 	  case INSN_MG_OBJ:		/* 62 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		SvMAGIC(sv)->mg_obj = arg;
 		break;
 	    }
@@ -491,7 +491,7 @@ void byterun(PerlIO *fp)
 	  case INSN_XMG_STASH:		/* 66 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		*(SV**)&SvSTASH(sv) = arg;
 		break;
 	    }
@@ -512,7 +512,7 @@ void byterun(PerlIO *fp)
 	  case INSN_GP_SV:		/* 69 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		GvSV(sv) = arg;
 		break;
 	    }
@@ -533,42 +533,42 @@ void byterun(PerlIO *fp)
 	  case INSN_GP_AV:		/* 72 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		*(SV**)&GvAV(sv) = arg;
 		break;
 	    }
 	  case INSN_GP_HV:		/* 73 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		*(SV**)&GvHV(sv) = arg;
 		break;
 	    }
 	  case INSN_GP_CV:		/* 74 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		*(SV**)&GvCV(sv) = arg;
 		break;
 	    }
 	  case INSN_GP_FILEGV:		/* 75 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		*(SV**)&GvFILEGV(sv) = arg;
 		break;
 	    }
 	  case INSN_GP_IO:		/* 76 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		*(SV**)&GvIOp(sv) = arg;
 		break;
 	    }
 	  case INSN_GP_FORM:		/* 77 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		*(SV**)&GvFORM(sv) = arg;
 		break;
 	    }
@@ -589,7 +589,7 @@ void byterun(PerlIO *fp)
 	  case INSN_GP_SHARE:		/* 80 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		BSET_gp_share(sv, arg);
 		break;
 	    }
@@ -603,14 +603,14 @@ void byterun(PerlIO *fp)
 	  case INSN_OP_NEXT:		/* 82 */
 	    {
 		opindex arg;
-		BGET_objindex(arg);
+		BGET_opindex(arg);
 		op->op_next = arg;
 		break;
 	    }
 	  case INSN_OP_SIBLING:		/* 83 */
 	    {
 		opindex arg;
-		BGET_objindex(arg);
+		BGET_opindex(arg);
 		op->op_sibling = arg;
 		break;
 	    }
@@ -659,35 +659,35 @@ void byterun(PerlIO *fp)
 	  case INSN_OP_FIRST:		/* 90 */
 	    {
 		opindex arg;
-		BGET_objindex(arg);
+		BGET_opindex(arg);
 		cUNOP->op_first = arg;
 		break;
 	    }
 	  case INSN_OP_LAST:		/* 91 */
 	    {
 		opindex arg;
-		BGET_objindex(arg);
+		BGET_opindex(arg);
 		cBINOP->op_last = arg;
 		break;
 	    }
 	  case INSN_OP_OTHER:		/* 92 */
 	    {
 		opindex arg;
-		BGET_objindex(arg);
+		BGET_opindex(arg);
 		cLOGOP->op_other = arg;
 		break;
 	    }
 	  case INSN_OP_TRUE:		/* 93 */
 	    {
 		opindex arg;
-		BGET_objindex(arg);
+		BGET_opindex(arg);
 		cCONDOP->op_true = arg;
 		break;
 	    }
 	  case INSN_OP_FALSE:		/* 94 */
 	    {
 		opindex arg;
-		BGET_objindex(arg);
+		BGET_opindex(arg);
 		cCONDOP->op_false = arg;
 		break;
 	    }
@@ -701,28 +701,28 @@ void byterun(PerlIO *fp)
 	  case INSN_OP_PMREPLROOT:		/* 96 */
 	    {
 		opindex arg;
-		BGET_objindex(arg);
+		BGET_opindex(arg);
 		cPMOP->op_pmreplroot = arg;
 		break;
 	    }
 	  case INSN_OP_PMREPLROOTGV:		/* 97 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		*(SV**)&cPMOP->op_pmreplroot = arg;
 		break;
 	    }
 	  case INSN_OP_PMREPLSTART:		/* 98 */
 	    {
 		opindex arg;
-		BGET_objindex(arg);
+		BGET_opindex(arg);
 		cPMOP->op_pmreplstart = arg;
 		break;
 	    }
 	  case INSN_OP_PMNEXT:		/* 99 */
 	    {
 		opindex arg;
-		BGET_objindex(arg);
+		BGET_opindex(arg);
 		*(OP**)&cPMOP->op_pmnext = arg;
 		break;
 	    }
@@ -750,14 +750,14 @@ void byterun(PerlIO *fp)
 	  case INSN_OP_SV:		/* 103 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		cSVOP->op_sv = arg;
 		break;
 	    }
 	  case INSN_OP_GV:		/* 104 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		*(SV**)&cGVOP->op_gv = arg;
 		break;
 	    }
@@ -778,21 +778,21 @@ void byterun(PerlIO *fp)
 	  case INSN_OP_REDOOP:		/* 107 */
 	    {
 		opindex arg;
-		BGET_objindex(arg);
+		BGET_opindex(arg);
 		cLOOP->op_redoop = arg;
 		break;
 	    }
 	  case INSN_OP_NEXTOP:		/* 108 */
 	    {
 		opindex arg;
-		BGET_objindex(arg);
+		BGET_opindex(arg);
 		cLOOP->op_nextop = arg;
 		break;
 	    }
 	  case INSN_OP_LASTOP:		/* 109 */
 	    {
 		opindex arg;
-		BGET_objindex(arg);
+		BGET_opindex(arg);
 		cLOOP->op_lastop = arg;
 		break;
 	    }
@@ -806,14 +806,14 @@ void byterun(PerlIO *fp)
 	  case INSN_COP_STASH:		/* 111 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		*(SV**)&cCOP->cop_stash = arg;
 		break;
 	    }
 	  case INSN_COP_FILEGV:		/* 112 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		*(SV**)&cCOP->cop_filegv = arg;
 		break;
 	    }
@@ -841,21 +841,21 @@ void byterun(PerlIO *fp)
 	  case INSN_MAIN_START:		/* 116 */
 	    {
 		opindex arg;
-		BGET_objindex(arg);
+		BGET_opindex(arg);
 		main_start = arg;
 		break;
 	    }
 	  case INSN_MAIN_ROOT:		/* 117 */
 	    {
 		opindex arg;
-		BGET_objindex(arg);
+		BGET_opindex(arg);
 		main_root = arg;
 		break;
 	    }
 	  case INSN_CURPAD:		/* 118 */
 	    {
 		svindex arg;
-		BGET_objindex(arg);
+		BGET_svindex(arg);
 		BSET_curpad(curpad, arg);
 		break;
 	    }