From: Dave Mitchell Date: Tue, 19 Apr 2005 23:47:38 +0000 (+0000) Subject: run regen_headers after addition of FOO_set() macros X-Git-Tag: accepted/trunk/20130322.191538~20897 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0032b46e37f26a086c6b5fda14383b25ae608028;p=platform%2Fupstream%2Fperl.git run regen_headers after addition of FOO_set() macros p4raw-id: //depot/perl@24257 --- diff --git a/ext/ByteLoader/byterun.c b/ext/ByteLoader/byterun.c index 0eaca45..3432eb3 100644 --- a/ext/ByteLoader/byterun.c +++ b/ext/ByteLoader/byterun.c @@ -216,7 +216,7 @@ byterun(pTHX_ register struct byteloader_state *bstate) { svindex arg; BGET_svindex(arg); - SvRV_set(bstate->bs_sv, arg); + SvRV(bstate->bs_sv) = arg; break; } case INSN_XPV: /* 22 */ @@ -224,32 +224,32 @@ byterun(pTHX_ register struct byteloader_state *bstate) BSET_xpv(bstate->bs_sv); break; } - case INSN_XPV_CUR: /* 23 */ + case INSN_XPV_CUR: /* 23 */ { STRLEN arg; BGET_PADOFFSET(arg); - SvCUR_set(bstate->bs_sv, arg); + SvCUR(bstate->bs_sv) = arg; break; } case INSN_XPV_LEN: /* 24 */ { STRLEN arg; BGET_PADOFFSET(arg); - SvLEN_set(bstate->bs_sv, arg); + SvLEN(bstate->bs_sv) = arg; break; } case INSN_XIV: /* 25 */ { IV arg; BGET_IV(arg); - SvIV_set(bstate->bs_sv, arg); + SvIVX(bstate->bs_sv) = arg; break; } case INSN_XNV: /* 26 */ { NV arg; BGET_NV(arg); - SvNV_set(bstate->bs_sv, arg); + SvNVX(bstate->bs_sv) = arg; break; } case INSN_XLV_TARGOFF: /* 27 */ @@ -592,7 +592,7 @@ byterun(pTHX_ register struct byteloader_state *bstate) { svindex arg; BGET_svindex(arg); - SvSTASH_set(bstate->bs_sv, arg); + *(SV**)&SvSTASH(bstate->bs_sv) = arg; break; } case INSN_GV_FETCHPV: /* 77 */