Skip to content

Commit 3fddef4

Browse files
committed
sv.h Convert _svcur to legal name
1 parent 249a07e commit 3fddef4

File tree

1 file changed

+12
-12
lines changed

1 file changed

+12
-12
lines changed

sv.h

Lines changed: 12 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -1384,21 +1384,21 @@ object type. Exposed to perl code via Internals::SvREADONLY().
13841384
}))
13851385
# ifdef PERL_CORE
13861386
# define SvCUR(sv) \
1387-
({ const SV *const _svcur = (const SV *)(sv); \
1388-
assert(PL_valid_types_PVX[SvTYPE(_svcur) & SVt_MASK]); \
1389-
assert(!isGV_with_GP(_svcur)); \
1390-
assert(!(SvTYPE(_svcur) == SVt_PVIO \
1391-
&& !(IoFLAGS(_svcur) & IOf_FAKE_DIRP))); \
1392-
(((XPV*) MUTABLE_PTR(SvANY(_svcur)))->xpv_cur); \
1387+
({ const SV *const svcur_ = (const SV *)(sv); \
1388+
assert(PL_valid_types_PVX[SvTYPE(svcur_) & SVt_MASK]); \
1389+
assert(!isGV_with_GP(svcur_)); \
1390+
assert(!(SvTYPE(svcur_) == SVt_PVIO \
1391+
&& !(IoFLAGS(svcur_) & IOf_FAKE_DIRP))); \
1392+
(((XPV*) MUTABLE_PTR(SvANY(svcur_)))->xpv_cur); \
13931393
})
13941394
# else
13951395
# define SvCUR(sv) \
1396-
(*({ const SV *const _svcur = (const SV *)(sv); \
1397-
assert(PL_valid_types_PVX[SvTYPE(_svcur) & SVt_MASK]); \
1398-
assert(!isGV_with_GP(_svcur)); \
1399-
assert(!(SvTYPE(_svcur) == SVt_PVIO \
1400-
&& !(IoFLAGS(_svcur) & IOf_FAKE_DIRP))); \
1401-
&(((XPV*) MUTABLE_PTR(SvANY(_svcur)))->xpv_cur); \
1396+
(*({ const SV *const svcur_ = (const SV *)(sv); \
1397+
assert(PL_valid_types_PVX[SvTYPE(svcur_) & SVt_MASK]); \
1398+
assert(!isGV_with_GP(svcur_)); \
1399+
assert(!(SvTYPE(svcur_) == SVt_PVIO \
1400+
&& !(IoFLAGS(svcur_) & IOf_FAKE_DIRP))); \
1401+
&(((XPV*) MUTABLE_PTR(SvANY(svcur_)))->xpv_cur); \
14021402
}))
14031403
# endif
14041404
# define SvIVX(sv) \

0 commit comments

Comments
 (0)