Revert "charclasslists.h: script enums visible to CORE,EXT"

This reverts commit fea79782ed31ac4faa71eb6193faff54b4bbe249.

This bloats perl, and is not now necessary for 5.28.

diff --git a/charclass_invlists.h b/charclass_invlists.h
index 60c64ef..72f91e3 100644 (file)
--- a/charclass_invlists.h
+++ b/charclass_invlists.h
@@ -20393,7 +20393,7 @@ static const UV _Perl_SCX_invlist[] = { /* for ASCII/Latin1 */
 
 #endif /* defined(PERL_IN_PERL_C) */
 
-#if defined(PERL_CORE) || defined(PERL_EXT)
+#if defined(PERL_IN_REGEXEC_C)
 
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
@@ -22754,7 +22754,7 @@ static const SCX_enum _Perl_SCX_invmap[] = { /* for ASCII/Latin1 */
        SCX_Unknown
 };
 
-#endif /* defined(PERL_CORE) || defined(PERL_EXT) */
+#endif /* defined(PERL_IN_REGEXEC_C) */
 
 #if defined(PERL_IN_PERL_C)
 
@@ -56784,7 +56784,7 @@ static const UV _Perl_SCX_invlist[] = { /* for EBCDIC 1047 */
 
 #endif /* defined(PERL_IN_PERL_C) */
 
-#if defined(PERL_CORE) || defined(PERL_EXT)
+#if defined(PERL_IN_REGEXEC_C)
 
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
@@ -59171,7 +59171,7 @@ static const SCX_enum _Perl_SCX_invmap[] = { /* for EBCDIC 1047 */
        SCX_Unknown
 };
 
-#endif /* defined(PERL_CORE) || defined(PERL_EXT) */
+#endif /* defined(PERL_IN_REGEXEC_C) */
 
 #if defined(PERL_IN_PERL_C)
 
@@ -93385,7 +93385,7 @@ static const UV _Perl_SCX_invlist[] = { /* for EBCDIC 037 */
 
 #endif /* defined(PERL_IN_PERL_C) */
 
-#if defined(PERL_CORE) || defined(PERL_EXT)
+#if defined(PERL_IN_REGEXEC_C)
 
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
@@ -95768,7 +95768,7 @@ static const SCX_enum _Perl_SCX_invmap[] = { /* for EBCDIC 037 */
        SCX_Unknown
 };
 
-#endif /* defined(PERL_CORE) || defined(PERL_EXT) */
+#endif /* defined(PERL_IN_REGEXEC_C) */
 
 #if defined(PERL_IN_PERL_C)
 
@@ -109537,5 +109537,5 @@ static const U8 WB_table[24][24] = {
  * 5671c3de473b25e7ea47097e4906260624dfabe3e9b1739f490aecbc3d858459 lib/unicore/mktables
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 913d2f93f3cb6cdf1664db888bf840bc4eb074eef824e082fceda24a9445e60c regen/charset_translations.pl
- * 4898ec84e2b81e8bf948dcdb1c015c14f258cc652337122719885a276ea46d7b regen/mk_invlists.pl
+ * ddcc2a146f5202e3fb5fa448eded5e53b49db82e436a742ca37b8cee15179148 regen/mk_invlists.pl
  * ex: set ro: */

diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl
index 79ceba9..00b929e 100644 (file)
--- a/regen/mk_invlists.pl
+++ b/regen/mk_invlists.pl
@@ -59,8 +59,7 @@ my %exceptions_to_where_to_define =
                           _Perl_IDStart              => 'PERL_IN_UTF8_C',
                           Currency_Symbol            => 'PERL_IN_LOCALE_C',
                         );
-my %where_to_define_enums = ( _Perl_SCX => [ qw(PERL_CORE PERL_EXT) ],
-                            );
+my %where_to_define_enums = ();
 
 my %gcb_enums;
 my @gcb_short_enums;