Make static function non-static

This is in preparation for it to be called from outside this file

diff --git a/embed.fnc b/embed.fnc
index 30fcb88..bcb9fdd 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1712,7 +1712,6 @@ EiMn      |void   |invlist_trim   |NN SV* invlist
 EiM    |void   |invlist_clear  |NN SV* invlist
 sM     |void   |initialize_invlist_guts|NN SV* invlist|const Size_t initial_size
 #endif
-EiMR    |SV*    |invlist_clone  |NN SV* const invlist|NULLOK SV* new_invlist
 EiMRn  |STRLEN*|get_invlist_iter_addr  |NN SV* invlist
 EiMn   |void   |invlist_iterinit|NN SV* invlist
 EsMRn  |bool   |invlist_iternext|NN SV* invlist|NN UV* start|NN UV* end
@@ -1741,6 +1740,9 @@ EXMpR     |SV*    |_add_range_to_invlist  |NULLOK SV* invlist|UV start|UV end
 EXMpR  |SV*    |_setup_canned_invlist|const STRLEN size|const UV element0|NN UV** other_elements_ptr
 EXMpn  |void   |_invlist_populate_swatch   |NN SV* const invlist|const UV start|const UV end|NN U8* swatch
 #endif
+#if defined(PERL_IN_REGCOMP_C)
+EMpX   |SV*    |invlist_clone  |NN SV* const invlist|NULLOK SV* newlist
+#endif
 #if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) || defined(PERL_IN_UTF8_C) || defined(PERL_IN_TOKE_C)
 EXp    |SV*    |_core_swash_init|NN const char* pkg|NN const char* name \
                |NN SV* listsv|I32 minbits|I32 none \

diff --git a/embed.h b/embed.h
index e0b5e06..40930d9 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -1189,7 +1189,7 @@
 #define handle_named_backref(a,b,c,d)  S_handle_named_backref(aTHX_ a,b,c,d)
 #define handle_possible_posix(a,b,c,d,e)       S_handle_possible_posix(aTHX_ a,b,c,d,e)
 #define handle_regex_sets(a,b,c,d,e)   S_handle_regex_sets(aTHX_ a,b,c,d,e)
-#define invlist_clone(a,b)     S_invlist_clone(aTHX_ a,b)
+#define invlist_clone(a,b)     Perl_invlist_clone(aTHX_ a,b)
 #define invlist_contents(a,b)  S_invlist_contents(aTHX_ a,b)
 #define invlist_highest                S_invlist_highest
 #define invlist_is_iterating   S_invlist_is_iterating

diff --git a/proto.h b/proto.h
index ff772b3..dd6c789 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -5434,13 +5434,9 @@ STATIC int       S_handle_possible_posix(pTHX_ RExC_state_t *pRExC_state, const char*
 STATIC regnode*        S_handle_regex_sets(pTHX_ RExC_state_t *pRExC_state, SV ** return_invlist, I32 *flagp, U32 depth, char * const oregcomp_parse);
 #define PERL_ARGS_ASSERT_HANDLE_REGEX_SETS     \
        assert(pRExC_state); assert(flagp); assert(oregcomp_parse)
-#ifndef PERL_NO_INLINE_FUNCTIONS
-PERL_STATIC_INLINE SV* S_invlist_clone(pTHX_ SV* const invlist, SV* new_invlist)
-                       __attribute__warn_unused_result__;
+PERL_CALLCONV SV*      Perl_invlist_clone(pTHX_ SV* const invlist, SV* newlist);
 #define PERL_ARGS_ASSERT_INVLIST_CLONE \
        assert(invlist)
-#endif
-
 STATIC SV*     S_invlist_contents(pTHX_ SV* const invlist, const bool traditional_style)
                        __attribute__warn_unused_result__;
 #define PERL_ARGS_ASSERT_INVLIST_CONTENTS      \

diff --git a/regcomp.c b/regcomp.c
index dacd704..bec6a64 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -9962,10 +9962,8 @@ Perl__invlist_invert(pTHX_ SV* const invlist)
     *get_invlist_offset_addr(invlist) = ! *get_invlist_offset_addr(invlist);
 }
 
-#endif
-
-PERL_STATIC_INLINE SV*
-S_invlist_clone(pTHX_ SV* const invlist, SV* new_invlist)
+SV*
+Perl_invlist_clone(pTHX_ SV* const invlist, SV* new_invlist)
 {
 
     /* Return a new inversion list that is a copy of the input one, which is
@@ -9988,6 +9986,8 @@ S_invlist_clone(pTHX_ SV* const invlist, SV* new_invlist)
     return new_invlist;
 }
 
+#endif
+
 PERL_STATIC_INLINE STRLEN*
 S_get_invlist_iter_addr(SV* invlist)
 {