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
# 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
#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 \
#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
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);
*output = u;
}
else {
- invlist_replace_list(*output, u);
+ invlist_replace_list_destroys_src(*output, u);
SvREFCNT_dec_NN(u);
}
}
}
else {
if (len_r) {
- invlist_replace_list(*i, r);
+ invlist_replace_list_destroys_src(*i, r);
}
else {
invlist_set_len(*i, 0, 0);