diff options
author | Karl Williamson <khw@cpan.org> | 2019-09-11 17:24:38 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2019-09-15 10:39:56 -0600 |
commit | 74804ad189340f2812955e3c4308a6a82c0cc0eb (patch) | |
tree | 01891d566d72b257679694fe7e8fce804bf08445 /inline.h | |
parent | 94b0cb42d04bb202dba31ef85db6c93b0c93ae6d (diff) | |
download | perl-74804ad189340f2812955e3c4308a6a82c0cc0eb.tar.gz |
Add embed.fnc entries for Cv inline fcns
and change the name of one. CvDEPTH shouldn't have a trailing 'p' to
indicate private memeber access. It may do so internally, but the name
shouldn't indicate that.
Diffstat (limited to 'inline.h')
-rw-r--r-- | inline.h | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -53,15 +53,19 @@ Perl_av_top_index(pTHX_ AV *av) PERL_STATIC_INLINE GV * Perl_CvGV(pTHX_ CV *sv) { + PERL_ARGS_ASSERT_CVGV; + return CvNAMED(sv) ? Perl_cvgv_from_hek(aTHX_ sv) : ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_gv_u.xcv_gv; } PERL_STATIC_INLINE I32 * -Perl_CvDEPTHp(const CV * const sv) +Perl_CvDEPTH(const CV * const sv) { + PERL_ARGS_ASSERT_CVDEPTH; assert(SvTYPE(sv) == SVt_PVCV || SvTYPE(sv) == SVt_PVFM); + return &((XPVCV*)SvANY(sv))->xcv_depth; } |