summaryrefslogtreecommitdiff
path: root/inline.h
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2019-09-11 17:24:38 -0600
committerKarl Williamson <khw@cpan.org>2019-09-15 10:39:56 -0600
commit74804ad189340f2812955e3c4308a6a82c0cc0eb (patch)
tree01891d566d72b257679694fe7e8fce804bf08445 /inline.h
parent94b0cb42d04bb202dba31ef85db6c93b0c93ae6d (diff)
downloadperl-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.h6
1 files changed, 5 insertions, 1 deletions
diff --git a/inline.h b/inline.h
index f31ce6a8c9..5bae44e2bd 100644
--- a/inline.h
+++ b/inline.h
@@ -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;
}