regcomp.c: Remove no longer called function

The invlist_destroy function was misleading, as it has changed to
just decrement the reference count, which may or may not lead to
immediate destruction

diff --git a/embed.fnc b/embed.fnc
index bee3ef8..6493b64 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1308,7 +1308,6 @@ EXMp      |void   |_append_range_to_invlist   |NN SV* const invlist|const UV start|cons
 EiMR   |SV*    |add_cp_to_invlist      |NULLOK SV* invlist|const UV cp
 EsMR   |SV*    |add_range_to_invlist   |NULLOK SV* invlist|const UV start|const UV end
 EiMR   |UV*    |invlist_array  |NN SV* const invlist
-EiM    |void   |invlist_destroy        |NN SV* const invlist
 EsM    |void   |invlist_extend    |NN SV* const invlist|const UV len
 EsM    |void   |invlist_intersection   |NN SV* const a|NN SV* const b|NN SV** i
 EiMR   |UV     |invlist_len    |NN SV* const invlist

diff --git a/embed.h b/embed.h
index ae09513..2c636b1 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -876,7 +876,6 @@
 #define cl_is_anything         S_cl_is_anything
 #define cl_or                  S_cl_or
 #define invlist_array(a)       S_invlist_array(aTHX_ a)
-#define invlist_destroy(a)     S_invlist_destroy(aTHX_ a)
 #define invlist_extend(a,b)    S_invlist_extend(aTHX_ a,b)
 #define invlist_intersection(a,b,c)    S_invlist_intersection(aTHX_ a,b,c)
 #define invlist_len(a)         S_invlist_len(aTHX_ a)

diff --git a/proto.h b/proto.h
index a93a7b0..3b10a93 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -6047,11 +6047,6 @@ PERL_STATIC_INLINE UV*   S_invlist_array(pTHX_ SV* const invlist)
 #define PERL_ARGS_ASSERT_INVLIST_ARRAY \
        assert(invlist)
 
-PERL_STATIC_INLINE void        S_invlist_destroy(pTHX_ SV* const invlist)
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_INVLIST_DESTROY       \
-       assert(invlist)
-
 STATIC void    S_invlist_extend(pTHX_ SV* const invlist, const UV len)
                        __attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_INVLIST_EXTEND        \

diff --git a/regcomp.c b/regcomp.c
index a93cc67..d2d6e55 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -5913,16 +5913,6 @@ Perl__new_invlist(pTHX_ IV initial_size)
 }
 #endif
 
-PERL_STATIC_INLINE void
-S_invlist_destroy(pTHX_ SV* const invlist)
-{
-   /* Inversion list destructor */
-
-    PERL_ARGS_ASSERT_INVLIST_DESTROY;
-
-    SvREFCNT_dec(invlist);
-}
-
 STATIC void
 S_invlist_extend(pTHX_ SV* const invlist, const UV new_max)
 {