diff options
| author | Karl Williamson <khw@cpan.org> | 2016-02-18 21:36:04 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-02-19 10:41:43 -0700 |
| commit | b9c1a2c52c1d56a2cc9c9ae73e72977d628c44ea (patch) | |
| tree | 9b7f61adc1f73110dab126d274e7007d3f01b200 /proto.h | |
| parent | 911bd04eeef784865e4400fef38495936f905e35 (diff) | |
| download | perl-b9c1a2c52c1d56a2cc9c9ae73e72977d628c44ea.tar.gz | |
Change private function to static
This function was used outside the file it contains, but was only
defined (by #ifdef's) for those few internal core files for which it was
needed. Now all those uses have gone, save for the one file. Better to
make it static so no one can circumvent those #ifdef's.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 20 |
1 files changed, 10 insertions, 10 deletions
@@ -3659,11 +3659,6 @@ PERL_STATIC_INLINE IV* S_get_invlist_previous_index_addr(SV* invlist) #define PERL_ARGS_ASSERT_GET_INVLIST_PREVIOUS_INDEX_ADDR \ assert(invlist) -PERL_STATIC_INLINE bool S_invlist_is_iterating(SV* const invlist) - __attribute__warn_unused_result__; -#define PERL_ARGS_ASSERT_INVLIST_IS_ITERATING \ - assert(invlist) - PERL_STATIC_INLINE IV S_invlist_previous_index(SV* const invlist) __attribute__warn_unused_result__; #define PERL_ARGS_ASSERT_INVLIST_PREVIOUS_INDEX \ @@ -4750,6 +4745,11 @@ PERL_STATIC_INLINE SV* S_invlist_clone(pTHX_ SV* const invlist) #define PERL_ARGS_ASSERT_INVLIST_CLONE \ assert(invlist) +STATIC SV* S_invlist_contents(pTHX_ SV* const invlist) + __attribute__warn_unused_result__; +#define PERL_ARGS_ASSERT_INVLIST_CONTENTS \ + assert(invlist) + STATIC void S_invlist_extend(pTHX_ SV* const invlist, const UV len); #define PERL_ARGS_ASSERT_INVLIST_EXTEND \ assert(invlist) @@ -4758,6 +4758,11 @@ PERL_STATIC_INLINE UV S_invlist_highest(SV* const invlist) #define PERL_ARGS_ASSERT_INVLIST_HIGHEST \ assert(invlist) +PERL_STATIC_INLINE bool S_invlist_is_iterating(SV* const invlist) + __attribute__warn_unused_result__; +#define PERL_ARGS_ASSERT_INVLIST_IS_ITERATING \ + assert(invlist) + PERL_STATIC_INLINE void S_invlist_iterfinish(SV* invlist); #define PERL_ARGS_ASSERT_INVLIST_ITERFINISH \ assert(invlist) @@ -4933,11 +4938,6 @@ PERL_STATIC_INLINE bool S__invlist_contains_cp(SV* const invlist, const UV cp) #define PERL_ARGS_ASSERT__INVLIST_CONTAINS_CP \ assert(invlist) -PERL_CALLCONV SV* Perl__invlist_contents(pTHX_ SV* const invlist) - __attribute__warn_unused_result__; -#define PERL_ARGS_ASSERT__INVLIST_CONTENTS \ - assert(invlist) - PERL_STATIC_INLINE UV S__invlist_len(SV* const invlist) __attribute__warn_unused_result__; #define PERL_ARGS_ASSERT__INVLIST_LEN \ |