Skip to content

Commit 249a07e

Browse files
committed
sv.h Convert _svpvx to legal name
1 parent d80d181 commit 249a07e

File tree

1 file changed

+6
-6
lines changed

1 file changed

+6
-6
lines changed

sv.h

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1375,12 +1375,12 @@ object type. Exposed to perl code via Internals::SvREADONLY().
13751375
# if defined (DEBUGGING) && defined(PERL_USE_GCC_BRACE_GROUPS)
13761376
/* These get expanded inside other macros that already use a variable _sv */
13771377
# define SvPVX(sv) \
1378-
(*({ SV *const _svpvx = MUTABLE_SV(sv); \
1379-
assert(PL_valid_types_PVX[SvTYPE(_svpvx) & SVt_MASK]); \
1380-
assert(!isGV_with_GP(_svpvx)); \
1381-
assert(!(SvTYPE(_svpvx) == SVt_PVIO \
1382-
&& !(IoFLAGS(_svpvx) & IOf_FAKE_DIRP))); \
1383-
&((_svpvx)->sv_u.svu_pv); \
1378+
(*({ SV *const svpvx_ = MUTABLE_SV(sv); \
1379+
assert(PL_valid_types_PVX[SvTYPE(svpvx_) & SVt_MASK]); \
1380+
assert(!isGV_with_GP(svpvx_)); \
1381+
assert(!(SvTYPE(svpvx_) == SVt_PVIO \
1382+
&& !(IoFLAGS(svpvx_) & IOf_FAKE_DIRP))); \
1383+
&((svpvx_)->sv_u.svu_pv); \
13841384
}))
13851385
# ifdef PERL_CORE
13861386
# define SvCUR(sv) \

0 commit comments

Comments
 (0)