summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2019-09-11 15:56:11 -0600
committerKarl Williamson <khw@cpan.org>2019-09-15 10:39:56 -0600
commitb9d5702c94e722aa7b69045bcffee45cc7d7d517 (patch)
tree5074bd302d3e51ea60fa12db55408926592b69a1
parent3f2f854a8971dad2da7193c73a1a3d2bdc3085d4 (diff)
downloadperl-b9d5702c94e722aa7b69045bcffee45cc7d7d517.tar.gz
Make PadnameIN_SCOPE() name begin with S_
All functions should have a prefix.
-rw-r--r--embed.fnc3
-rw-r--r--embed.h3
-rw-r--r--inline.h4
-rw-r--r--proto.h7
4 files changed, 16 insertions, 1 deletions
diff --git a/embed.fnc b/embed.fnc
index 53e5e0583e..a8e9debb20 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -3239,6 +3239,9 @@ pd |void |do_dump_pad |I32 level|NN PerlIO *file|NULLOK PADLIST *padlist|int ful
Sd |void |cv_dump |NN const CV *cv|NN const char *title
# endif
#endif
+#if defined(PERL_IN_PAD_C) || defined(PERL_IN_OP_C)
+iT |bool |PadnameIN_SCOPE|NN const PADNAME * const pn|const U32 seq
+#endif
Apd |CV* |cv_clone |NN CV* proto
p |CV* |cv_clone_into |NN CV* proto|NN CV *target
pd |void |pad_fixup_inner_anons|NN PADLIST *padlist|NN CV *old_cv|NN CV *new_cv
diff --git a/embed.h b/embed.h
index 9eb9a70937..2239115e2a 100644
--- a/embed.h
+++ b/embed.h
@@ -1906,6 +1906,9 @@
#define pad_findlex(a,b,c,d,e,f,g,h,i) S_pad_findlex(aTHX_ a,b,c,d,e,f,g,h,i)
#define pad_reset() S_pad_reset(aTHX)
# endif
+# if defined(PERL_IN_PAD_C) || defined(PERL_IN_OP_C)
+#define PadnameIN_SCOPE S_PadnameIN_SCOPE
+# endif
# if defined(PERL_IN_PERL_C)
#define find_beginning(a,b) S_find_beginning(aTHX_ a,b)
#define forbid_setid(a,b) S_forbid_setid(aTHX_ a,b)
diff --git a/inline.h b/inline.h
index 951818a1ed..501a264dbc 100644
--- a/inline.h
+++ b/inline.h
@@ -119,8 +119,10 @@ S_MgBYTEPOS(pTHX_ MAGIC *mg, SV *sv, const char *s, STRLEN len)
#if defined(PERL_IN_PAD_C) || defined(PERL_IN_OP_C)
PERL_STATIC_INLINE bool
-PadnameIN_SCOPE(const PADNAME * const pn, const U32 seq)
+S_PadnameIN_SCOPE(const PADNAME * const pn, const U32 seq)
{
+ PERL_ARGS_ASSERT_PADNAMEIN_SCOPE;
+
/* is seq within the range _LOW to _HIGH ?
* This is complicated by the fact that PL_cop_seqmax
* may have wrapped around at some point */
diff --git a/proto.h b/proto.h
index 6a5eb572f5..f7e1028af1 100644
--- a/proto.h
+++ b/proto.h
@@ -5708,6 +5708,13 @@ STATIC PADOFFSET S_pad_findlex(pTHX_ const char *namepv, STRLEN namelen, U32 fla
STATIC void S_pad_reset(pTHX);
#define PERL_ARGS_ASSERT_PAD_RESET
#endif
+#if defined(PERL_IN_PAD_C) || defined(PERL_IN_OP_C)
+#ifndef PERL_NO_INLINE_FUNCTIONS
+PERL_STATIC_INLINE bool S_PadnameIN_SCOPE(const PADNAME * const pn, const U32 seq);
+#define PERL_ARGS_ASSERT_PADNAMEIN_SCOPE \
+ assert(pn)
+#endif
+#endif
#if defined(PERL_IN_PERLY_C) || defined(PERL_IN_OP_C) || defined(PERL_IN_TOKE_C)
#ifndef NO_MATHOMS
PERL_CALLCONV OP* Perl_ref(pTHX_ OP* o, I32 type);