Change _invlist_invert() from being in-line

This is in preparation for it to be called from another file.  If
for performance reasons it needs to be made inline again, it could
then be moved into a header.

diff --git a/embed.fnc b/embed.fnc
index ecd163c..8fd43df 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1323,7 +1323,7 @@ EsMR      |bool   |invlist_iternext|NN SV* invlist|NN UV* start|NN UV* end
 EsM    |void   |_invlist_intersection  |NN SV* const a|NN SV* const b|NN SV** i
 EsM    |void   |_invlist_union |NN SV* const a|NN SV* const b|NN SV** output
 EsM    |void   |_invlist_subtract|NN SV* const a|NN SV* const b|NN SV** result
-EiM    |void   |_invlist_invert|NN SV* const invlist
+EsM    |void   |_invlist_invert|NN SV* const invlist
 #endif
 Ap     |void   |taint_env
 Ap     |void   |taint_proper   |NULLOK const char* f|NN const char *const s

diff --git a/proto.h b/proto.h
index 8d02302..fe234d3 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -5999,7 +5999,7 @@ STATIC void       S__invlist_intersection(pTHX_ SV* const a, SV* const b, SV** i)
 #define PERL_ARGS_ASSERT__INVLIST_INTERSECTION \
        assert(a); assert(b); assert(i)
 
-PERL_STATIC_INLINE void        S__invlist_invert(pTHX_ SV* const invlist)
+STATIC void    S__invlist_invert(pTHX_ SV* const invlist)
                        __attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT__INVLIST_INVERT       \
        assert(invlist)

diff --git a/regcomp.c b/regcomp.c
index a8b1b3c..6860cc6 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -6537,7 +6537,7 @@ S_add_cp_to_invlist(pTHX_ SV* invlist, const UV cp) {
     return add_range_to_invlist(invlist, cp, cp);
 }
 
-PERL_STATIC_INLINE void
+STATIC void
 S__invlist_invert(pTHX_ SV* const invlist)
 {
     /* Complement the input inversion list.  This adds a 0 if the list didn't