From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 27 Jul 2003 15:43:30 +0000 (+0000)
Subject: Regen byterun once more: the incav is not yet right, but at
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2edcda664a46cf47ed5ee5520834c7e424efc8fd;p=p5sagit%2Fp5-mst-13.2.git

Regen byterun once more: the incav is not yet right, but at
least it compiles now (Tru64 cc choked on the lvalue cast).

p4raw-id: //depot/perl@20223
---

diff --git a/bytecode.pl b/bytecode.pl
index e375961..1bcf95a 100644
--- a/bytecode.pl
+++ b/bytecode.pl
@@ -479,7 +479,7 @@ push_end	PL_endav				svindex		x
 curstash	*(SV**)&PL_curstash			svindex
 defstash	*(SV**)&PL_defstash			svindex
 data		none					U8		x
-incav		*(SV**)&GvAVn(PL_incgv)			svindex
+incav		*(SV**)&PL_incgv			svindex
 load_glob	none					svindex		x
 #ifdef USE_ITHREADS
 regex_padav	*(SV**)&PL_regex_padav			svindex
diff --git a/ext/ByteLoader/byterun.c b/ext/ByteLoader/byterun.c
index f2f367e..d820ef8 100644
--- a/ext/ByteLoader/byterun.c
+++ b/ext/ByteLoader/byterun.c
@@ -1031,7 +1031,7 @@ byterun(pTHX_ register struct byteloader_state *bstate)
 	    {
 		svindex arg;
 		BGET_svindex(arg);
-		*(SV**)&GvAVn(PL_incgv) = arg;
+		*(SV**)&PL_incgv = arg;
 		break;
 	    }
 	  case INSN_LOAD_GLOB:		/* 139 */