diff options
| author | Karl Williamson <khw@cpan.org> | 2019-09-11 15:56:11 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2019-09-15 10:39:56 -0600 |
| commit | b9d5702c94e722aa7b69045bcffee45cc7d7d517 (patch) | |
| tree | 5074bd302d3e51ea60fa12db55408926592b69a1 | |
| parent | 3f2f854a8971dad2da7193c73a1a3d2bdc3085d4 (diff) | |
| download | perl-b9d5702c94e722aa7b69045bcffee45cc7d7d517.tar.gz | |
Make PadnameIN_SCOPE() name begin with S_
All functions should have a prefix.
| -rw-r--r-- | embed.fnc | 3 | ||||
| -rw-r--r-- | embed.h | 3 | ||||
| -rw-r--r-- | inline.h | 4 | ||||
| -rw-r--r-- | proto.h | 7 |
4 files changed, 16 insertions, 1 deletions
@@ -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 @@ -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) @@ -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 */ @@ -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); |