Remove no-longer used inversion list function

The function _invlist_invert_prop() is hereby removed.  The recent
changes to allow \p{} to match above-Unicode means that no special
handling of properties need be done when inverting.

This function was accessible to XS code that cheated by using #defines
to pretend it was something it wasn't, but it also has been marked
as subject to change since its inception, and never appeared in any
documentation.

diff --git a/embed.fnc b/embed.fnc
index 9c4607b..dd9e6cf 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1476,7 +1476,6 @@ EXpM      |void   |_invlist_union_maybe_complement_2nd        \
                |const bool complement_b|NN SV** output
 EXmM   |void   |_invlist_subtract|NN SV* const a|NN SV* const b|NN SV** result
 EXpM   |void   |_invlist_invert|NN SV* const invlist
-EXpM   |void   |_invlist_invert_prop|NN SV* const invlist
 EXMpR  |SV*    |_new_invlist   |IV initial_size
 EXMpR  |SV*    |_swash_to_invlist      |NN SV* const swash
 EXMpR  |SV*    |_add_range_to_invlist  |NULLOK SV* invlist|const UV start|const UV end

diff --git a/embed.h b/embed.h
index c7e9579..b84b5e4 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -986,7 +986,6 @@
 #define _add_range_to_invlist(a,b,c)   Perl__add_range_to_invlist(aTHX_ a,b,c)
 #define _invlist_intersection_maybe_complement_2nd(a,b,c,d)    Perl__invlist_intersection_maybe_complement_2nd(aTHX_ a,b,c,d)
 #define _invlist_invert(a)     Perl__invlist_invert(aTHX_ a)
-#define _invlist_invert_prop(a)        Perl__invlist_invert_prop(aTHX_ a)
 #define _invlist_populate_swatch(a,b,c,d)      Perl__invlist_populate_swatch(aTHX_ a,b,c,d)
 #define _invlist_union_maybe_complement_2nd(a,b,c,d)   Perl__invlist_union_maybe_complement_2nd(aTHX_ a,b,c,d)
 #define _new_invlist(a)                Perl__new_invlist(aTHX_ a)

diff --git a/proto.h b/proto.h
index 086642a..c486045 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -7064,11 +7064,6 @@ PERL_CALLCONV void       Perl__invlist_invert(pTHX_ SV* const invlist)
 #define PERL_ARGS_ASSERT__INVLIST_INVERT       \
        assert(invlist)
 
-PERL_CALLCONV void     Perl__invlist_invert_prop(pTHX_ SV* const invlist)
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT__INVLIST_INVERT_PROP  \
-       assert(invlist)
-
 PERL_CALLCONV void     Perl__invlist_populate_swatch(pTHX_ SV* const invlist, const UV start, const UV end, U8* swatch)
                        __attribute__nonnull__(pTHX_1)
                        __attribute__nonnull__(pTHX_4);

diff --git a/regcomp.c b/regcomp.c
index 0e86710..496b756 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -8631,17 +8631,6 @@ Perl__invlist_invert(pTHX_ SV* const invlist)
     *get_invlist_offset_addr(invlist) = ! *get_invlist_offset_addr(invlist);
 }
 
-void
-Perl__invlist_invert_prop(pTHX_ SV* const invlist)
-{
-    /* Complement the input inversion list (which must be a Unicode property).
-     * Starting in v5.20, this is no different than any invert. */
-
-    PERL_ARGS_ASSERT__INVLIST_INVERT_PROP;
-
-    _invlist_invert(invlist);
-    return;
-}
 #endif
 
 PERL_STATIC_INLINE SV*

diff --git a/utf8.c b/utf8.c
index 45ea233..3773cea 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -4204,7 +4204,7 @@ Perl__swash_to_invlist(pTHX_ SV* const swash)
 
     /* Invert if the data says it should be */
     if (invert_it_svp && SvUV(*invert_it_svp)) {
-       _invlist_invert_prop(invlist);
+       _invlist_invert(invlist);
     }
 
     /* This code is copied from swatch_get()