From: Andy Lester <andy@petdance.com>
Date: Sat, 25 Feb 2006 20:52:16 +0000 (-0600)
Subject: fix up gv.c and gv.h
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dd3874d7bd7bd60c75dc2e7efa06380d81f13287;p=p5sagit%2Fp5-mst-13.2.git

fix up gv.c and gv.h
Message-ID: <20060226025216.GA12758@petdance.com>

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

diff --git a/gv.h b/gv.h
index e9a3e30..22916df 100644
--- a/gv.h
+++ b/gv.h
@@ -38,19 +38,19 @@ struct gp {
 	    assert(isGV_with_GP(yaah));					\
 	    &(GvXPVGV(yaah)->xpv_cur);}))
 #  define GvSTASH(gv)							\
-	(*({ GV *_gv = (GV *) (gv);					\
+	(*({ GV * const _gv = (GV *) (gv);				\
 	    assert(isGV_with_GP(_gv));					\
 	    assert(SvTYPE(_gv) == SVt_PVGV || SvTYPE(_gv) >= SVt_PVLV);	\
 	    &(GvXPVGV(_gv)->xnv_u.xgv_stash);				\
 	 }))
 #  define GvNAME(gv)							\
-	(*({ GV *zzzz = (GV *) (gv);					\
+	(*({ GV * const zzzz = (GV *) (gv);				\
 	    assert(isGV_with_GP(zzzz));					\
 	    assert(SvTYPE(zzzz) == SVt_PVGV || SvTYPE(zzzz) >= SVt_PVLV); \
 	    &(GvXPVGV(zzzz)->xgv_name);					\
 	 }))
 #  define GvNAMELEN(gv)							\
-	(*({ GV *glank = (GV *) (gv);					\
+	(*({ GV * const glank = (GV *) (gv);				\
 	    assert(isGV_with_GP(glank));				\
 	    assert(SvTYPE(glank) == SVt_PVGV || SvTYPE(glank) >= SVt_PVLV); \
 	    &(GvXPVGV(glank)->xgv_namelen);				\