regcomp.c: Rmv no longer used core-only function

diff --git a/embed.fnc b/embed.fnc
index 057e1e9..e4952bf 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1754,7 +1754,6 @@ EXpM      |SV*    |_get_regclass_nonbitmap_data                              \
                                |NULLOK SV **listsvp                       \
                                |NULLOK SV **lonly_utf8_locale             \
                                |NULLOK SV **output_invlist
-EXp    |void|_load_PL_utf8_foldclosures|
 #endif
 #if defined(PERL_IN_REGCOMP_C) || defined (PERL_IN_DUMP_C)
 EXMp   |void   |_invlist_dump  |NN PerlIO *file|I32 level   \

diff --git a/embed.h b/embed.h
index 0f0d457..d23400c 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -1079,7 +1079,6 @@
 #  endif
 #  if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C)
 #define _get_regclass_nonbitmap_data(a,b,c,d,e,f)      Perl__get_regclass_nonbitmap_data(aTHX_ a,b,c,d,e,f)
-#define _load_PL_utf8_foldclosures()   Perl__load_PL_utf8_foldclosures(aTHX)
 #ifndef PERL_IMPLICIT_CONTEXT
 #define re_printf              Perl_re_printf
 #endif

diff --git a/proto.h b/proto.h
index 93e5c96..3d18e6d 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -5441,7 +5441,6 @@ PERL_CALLCONV SV* Perl__new_invlist_C_array(pTHX_ const UV* const list)
 PERL_CALLCONV SV*      Perl__get_regclass_nonbitmap_data(pTHX_ const regexp *prog, const struct regnode *node, bool doinit, SV **listsvp, SV **lonly_utf8_locale, SV **output_invlist);
 #define PERL_ARGS_ASSERT__GET_REGCLASS_NONBITMAP_DATA  \
        assert(node)
-PERL_CALLCONV void     Perl__load_PL_utf8_foldclosures(pTHX);
 PERL_CALLCONV int      Perl_re_printf(pTHX_ const char *fmt, ...);
 #define PERL_ARGS_ASSERT_RE_PRINTF     \
        assert(fmt)

diff --git a/regcomp.c b/regcomp.c
index 9319e60..a7bf8ab 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -10175,10 +10175,6 @@ Perl__invlist_dump(pTHX_ PerlIO *file, I32 level,
     }
 }
 
-void
-Perl__load_PL_utf8_foldclosures (pTHX)
-{
-}
 #endif
 
 #if defined(PERL_ARGS_ASSERT__INVLISTEQ) && !defined(PERL_IN_XSUB_RE)