From: Jarkko Hietaniemi Date: Sat, 23 Aug 2003 07:15:58 +0000 (+0000) Subject: Forgot to regen byterun.c. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ebc18564261e706c77f947245d26506241c40f11;p=p5sagit%2Fp5-mst-13.2.git Forgot to regen byterun.c. p4raw-id: //depot/perl@20852 --- diff --git a/ext/ByteLoader/byterun.c b/ext/ByteLoader/byterun.c index abf8fec..c93b6cd 100644 --- a/ext/ByteLoader/byterun.c +++ b/ext/ByteLoader/byterun.c @@ -175,7 +175,7 @@ byterun(pTHX_ register struct byteloader_state *bstate) case INSN_PV_CUR: /* 15 */ { STRLEN arg; - BGET_U32(arg); + BGET_PADOFFSET(arg); bstate->bs_pv.xpv_cur = arg; break; } @@ -227,14 +227,14 @@ byterun(pTHX_ register struct byteloader_state *bstate) case INSN_XPV_CUR: /* 23 */ { STRLEN arg; - BGET_U32(arg); + BGET_PADOFFSET(arg); SvCUR(bstate->bs_sv) = arg; break; } case INSN_XPV_LEN: /* 24 */ { STRLEN arg; - BGET_U32(arg); + BGET_PADOFFSET(arg); SvLEN(bstate->bs_sv) = arg; break; } @@ -255,14 +255,14 @@ byterun(pTHX_ register struct byteloader_state *bstate) case INSN_XLV_TARGOFF: /* 27 */ { STRLEN arg; - BGET_U32(arg); + BGET_PADOFFSET(arg); LvTARGOFF(bstate->bs_sv) = arg; break; } case INSN_XLV_TARGLEN: /* 28 */ { STRLEN arg; - BGET_U32(arg); + BGET_PADOFFSET(arg); LvTARGLEN(bstate->bs_sv) = arg; break; } @@ -444,7 +444,7 @@ byterun(pTHX_ register struct byteloader_state *bstate) case INSN_XCV_DEPTH: /* 55 */ { long arg; - BGET_I32(arg); + BGET_long(arg); CvDEPTH(bstate->bs_sv) = arg; break; } @@ -479,7 +479,7 @@ byterun(pTHX_ register struct byteloader_state *bstate) case INSN_AV_EXTEND: /* 60 */ { SSize_t arg; - BGET_I32(arg); + BGET_PADOFFSET(arg); BSET_av_extend(bstate->bs_sv, arg); break; } @@ -500,14 +500,14 @@ byterun(pTHX_ register struct byteloader_state *bstate) case INSN_XAV_FILL: /* 63 */ { SSize_t arg; - BGET_I32(arg); + BGET_PADOFFSET(arg); AvFILLp(bstate->bs_sv) = arg; break; } case INSN_XAV_MAX: /* 64 */ { SSize_t arg; - BGET_I32(arg); + BGET_PADOFFSET(arg); AvMAX(bstate->bs_sv) = arg; break; }