This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Rmv no longer used core-only function
authorKarl Williamson <khw@cpan.org>
Sat, 31 Mar 2018 18:20:50 +0000 (12:20 -0600)
committerKarl Williamson <khw@cpan.org>
Sat, 31 Mar 2018 21:36:46 +0000 (15:36 -0600)
embed.fnc
embed.h
proto.h
regcomp.c

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
 #  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)
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)