Change 27344 by [EMAIL PROTECTED] on 2006/02/27 15:43:41
Subject: [PATCH] fix up gv.c and gv.h
From: [EMAIL PROTECTED] (Andy Lester)
Date: Sat, 25 Feb 2006 20:52:16 -0600
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/gv.h#58 edit
Differences ...
==== //depot/perl/gv.h#58 (text) ====
Index: perl/gv.h
--- perl/gv.h#57~27331~ 2006-02-26 23:33:53.000000000 -0800
+++ perl/gv.h 2006-02-27 07:43:41.000000000 -0800
@@ -38,19 +38,19 @@
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); \
End of Patch.
