mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

gv.h: Convert _gvstash to legal name

Browse Source
This commit is contained in:
Karl Williamson 2025-08-14 15:27:24 -06:00
parent 8683dc71d6
commit b5c8ae42ab
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gv.h
View File

@ -61,10 +61,10 @@ the need to cast the result to the appropriate type.
assert(isGV_with_GP(gvflags_)); \
&(GvXPVGV(gvflags_)->xpv_cur);}))
# define GvSTASH(gv) \
(*({ GV * const _gvstash = (GV *) (gv); \
assert(isGV_with_GP(_gvstash)); \
assert(SvTYPE(_gvstash) == SVt_PVGV || SvTYPE(_gvstash) >= SVt_PVLV); \
&(GvXPVGV(_gvstash)->xnv_u.xgv_stash); \
(*({ GV * const gvstash_ = (GV *) (gv); \
assert(isGV_with_GP(gvstash_)); \
assert(SvTYPE(gvstash_) == SVt_PVGV || SvTYPE(gvstash_) >= SVt_PVLV); \
&(GvXPVGV(gvstash_)->xnv_u.xgv_stash); \
}))
# define GvNAME_HEK(gv) \
(*({ GV * const _gvname_hek = (GV *) (gv); \