This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Change name of static function
authorKarl Williamson <khw@cpan.org>
Sat, 27 Feb 2016 19:36:37 +0000 (12:36 -0700)
committerKarl Williamson <khw@cpan.org>
Sun, 28 Feb 2016 01:04:04 +0000 (18:04 -0700)
I found myself using this function, forgetting that it zapped one of the
parameters, so change the name so that can't be forgotten.

embed.fnc
embed.h
proto.h
regcomp.c

index c35a815..6e6333e 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1526,7 +1526,7 @@ EiMRn     |UV     |invlist_max    |NN SV* const invlist
 EiM    |void   |invlist_set_len|NN SV* const invlist|const UV len|const bool offset
 EiMRn  |bool   |invlist_is_iterating|NN SV* const invlist
 #ifndef PERL_EXT_RE_BUILD
-EsM    |void   |invlist_replace_list|NN SV *dest|NN SV *src
+EsM    |void   |invlist_replace_list_destroys_src|NN SV *dest|NN SV *src
 EiMRn  |IV*    |get_invlist_previous_index_addr|NN SV* invlist
 EiMn   |void   |invlist_set_previous_index|NN SV* const invlist|const IV index
 EiMRn  |IV     |invlist_previous_index|NN SV* const invlist
diff --git a/embed.h b/embed.h
index 75275c4..5d3f719 100644 (file)
--- a/embed.h
+++ b/embed.h
 #    if defined(PERL_IN_REGCOMP_C)
 #define get_invlist_previous_index_addr        S_get_invlist_previous_index_addr
 #define invlist_previous_index S_invlist_previous_index
-#define invlist_replace_list(a,b)      S_invlist_replace_list(aTHX_ a,b)
+#define invlist_replace_list_destroys_src(a,b) S_invlist_replace_list_destroys_src(aTHX_ a,b)
 #define invlist_set_previous_index     S_invlist_set_previous_index
 #define invlist_trim           S_invlist_trim
 #    endif
diff --git a/proto.h b/proto.h
index 9f970a3..100a111 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -3664,8 +3664,8 @@ PERL_STATIC_INLINE IV     S_invlist_previous_index(SV* const invlist)
 #define PERL_ARGS_ASSERT_INVLIST_PREVIOUS_INDEX        \
        assert(invlist)
 
-STATIC void    S_invlist_replace_list(pTHX_ SV *dest, SV *src);
-#define PERL_ARGS_ASSERT_INVLIST_REPLACE_LIST  \
+STATIC void    S_invlist_replace_list_destroys_src(pTHX_ SV *dest, SV *src);
+#define PERL_ARGS_ASSERT_INVLIST_REPLACE_LIST_DESTROYS_SRC     \
        assert(dest); assert(src)
 PERL_STATIC_INLINE void        S_invlist_set_previous_index(SV* const invlist, const IV index);
 #define PERL_ARGS_ASSERT_INVLIST_SET_PREVIOUS_INDEX    \
index 022cfba..4773b3a 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -8348,7 +8348,7 @@ S_invlist_set_len(pTHX_ SV* const invlist, const UV len, const bool offset)
 #ifndef PERL_IN_XSUB_RE
 
 STATIC void
-S_invlist_replace_list(pTHX_ SV * dest, SV * src)
+S_invlist_replace_list_destroys_src(pTHX_ SV * dest, SV * src)
 {
     /* Replaces the inversion list in 'src' with the one in 'dest'.  It steals
      * the list from 'src', so 'src' is made to have a NULL list.  This is
@@ -8362,7 +8362,7 @@ S_invlist_replace_list(pTHX_ SV * dest, SV * src)
 
     const int oldtainted = TAINT_get;
 
-    PERL_ARGS_ASSERT_INVLIST_REPLACE_LIST;
+    PERL_ARGS_ASSERT_INVLIST_REPLACE_LIST_DESTROYS_SRC;
 
     assert(SvTYPE(src) == SVt_INVLIST);
     assert(SvTYPE(dest) == SVt_INVLIST);
@@ -9102,7 +9102,7 @@ Perl__invlist_union_maybe_complement_2nd(pTHX_ SV* const a, SV* const b,
             *output = u;
         }
         else {
-            invlist_replace_list(*output, u);
+            invlist_replace_list_destroys_src(*output, u);
             SvREFCNT_dec_NN(u);
         }
     }
@@ -9354,7 +9354,7 @@ Perl__invlist_intersection_maybe_complement_2nd(pTHX_ SV* const a, SV* const b,
         }
         else {
             if (len_r) {
-                invlist_replace_list(*i, r);
+                invlist_replace_list_destroys_src(*i, r);
             }
             else {
                 invlist_set_len(*i, 0, 0);