diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-08-28 18:26:36 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-09-15 06:19:32 -0700 |
commit | ae77754ae288180ef1b6bab63dd49fa724d9fddd (patch) | |
tree | 2117fa17eff09c3b743f144a60d16c352c152bcd /cv.h | |
parent | e38faec93a3dca999da366b2f1cec7a005c2b41b (diff) | |
download | perl-ae77754ae288180ef1b6bab63dd49fa724d9fddd.tar.gz |
For lexical subs, reify CvGV from CvSTASH and CvNAME_HEK
From now on, the presence of a name hek implies a GV. Any access to
CvGV will cause that implicit GV to be reified.
Diffstat (limited to 'cv.h')
-rw-r--r-- | cv.h | 10 |
1 files changed, 2 insertions, 8 deletions
@@ -49,8 +49,9 @@ See L<perlguts/Autoloading with XSUBs>. #define CvROOT(sv) ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_root_u.xcv_root #define CvXSUB(sv) ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_root_u.xcv_xsub #define CvXSUBANY(sv) ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_start_u.xcv_xsubany -#define CvGV(sv) S_CvGV((const CV *)(sv)) +#define CvGV(sv) S_CvGV(aTHX_ (CV *)(sv)) #define CvGV_set(cv,gv) Perl_cvgv_set(aTHX_ cv, gv) +#define CvHASGV(cv) cBOOL(SvANY(cv)->xcv_gv_u.xcv_gv) #define CvFILE(sv) ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_file #ifdef USE_ITHREADS # define CvFILE_set_from_cop(sv, cop) \ @@ -193,13 +194,6 @@ See L<perlguts/Autoloading with XSUBs>. /* Flags for newXS_flags */ #define XS_DYNAMIC_FILENAME 0x01 /* The filename isn't static */ -PERL_STATIC_INLINE GV * -S_CvGV(const CV *sv) -{ - return CvNAMED(sv) - ? 0 - : ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_gv_u.xcv_gv; -} PERL_STATIC_INLINE HEK * CvNAME_HEK(CV *sv) { |