diff options
| -rw-r--r-- | charclass_invlists.h | 26 | ||||
| -rw-r--r-- | regen/mk_invlists.pl | 5 |
2 files changed, 4 insertions, 27 deletions
diff --git a/charclass_invlists.h b/charclass_invlists.h index bbc65f9891..00628f5b41 100644 --- a/charclass_invlists.h +++ b/charclass_invlists.h @@ -3712,8 +3712,6 @@ static const UV _Perl_GCB_invlist[] = { /* for ASCII/Latin1 */ #if defined(PERL_IN_REGEXEC_C) -#define GCB_ENUM_COUNT 19 - typedef enum { GCB_Other = 0, GCB_CR = 1, @@ -10357,8 +10355,6 @@ static const UV _Perl_LB_invlist[] = { /* for ASCII/Latin1 */ #if defined(PERL_IN_REGEXEC_C) -#define LB_ENUM_COUNT 39 - typedef enum { LB_Alphabetic = 0, LB_Break_After = 1, @@ -15734,8 +15730,6 @@ static const UV _Perl_SB_invlist[] = { /* for ASCII/Latin1 */ #if defined(PERL_IN_REGEXEC_C) -#define SB_ENUM_COUNT 16 - typedef enum { SB_Other = 0, SB_ATerm = 1, @@ -20496,8 +20490,6 @@ static const UV _Perl_WB_invlist[] = { /* for ASCII/Latin1 */ #if defined(PERL_IN_REGEXEC_C) -#define WB_ENUM_COUNT 25 - typedef enum { WB_Other = 0, WB_ALetter = 1, @@ -35959,8 +35951,6 @@ static const UV _Perl_GCB_invlist[] = { /* for EBCDIC 1047 */ #if defined(PERL_IN_REGEXEC_C) -#define GCB_ENUM_COUNT 19 - typedef enum { GCB_Other = 0, GCB_CR = 1, @@ -42666,8 +42656,6 @@ static const UV _Perl_LB_invlist[] = { /* for EBCDIC 1047 */ #if defined(PERL_IN_REGEXEC_C) -#define LB_ENUM_COUNT 39 - typedef enum { LB_Alphabetic = 0, LB_Break_After = 1, @@ -48079,8 +48067,6 @@ static const UV _Perl_SB_invlist[] = { /* for EBCDIC 1047 */ #if defined(PERL_IN_REGEXEC_C) -#define SB_ENUM_COUNT 16 - typedef enum { SB_Other = 0, SB_ATerm = 1, @@ -52888,8 +52874,6 @@ static const UV _Perl_WB_invlist[] = { /* for EBCDIC 1047 */ #if defined(PERL_IN_REGEXEC_C) -#define WB_ENUM_COUNT 25 - typedef enum { WB_Other = 0, WB_ALetter = 1, @@ -68532,8 +68516,6 @@ static const UV _Perl_GCB_invlist[] = { /* for EBCDIC 037 */ #if defined(PERL_IN_REGEXEC_C) -#define GCB_ENUM_COUNT 19 - typedef enum { GCB_Other = 0, GCB_CR = 1, @@ -75231,8 +75213,6 @@ static const UV _Perl_LB_invlist[] = { /* for EBCDIC 037 */ #if defined(PERL_IN_REGEXEC_C) -#define LB_ENUM_COUNT 39 - typedef enum { LB_Alphabetic = 0, LB_Break_After = 1, @@ -80640,8 +80620,6 @@ static const UV _Perl_SB_invlist[] = { /* for EBCDIC 037 */ #if defined(PERL_IN_REGEXEC_C) -#define SB_ENUM_COUNT 16 - typedef enum { SB_Other = 0, SB_ATerm = 1, @@ -85441,8 +85419,6 @@ static const UV _Perl_WB_invlist[] = { /* for EBCDIC 037 */ #if defined(PERL_IN_REGEXEC_C) -#define WB_ENUM_COUNT 25 - typedef enum { WB_Other = 0, WB_ALetter = 1, @@ -97457,5 +97433,5 @@ static const U8 WB_table[24][24] = { * 4d296f9555c2df469eb9629c7cd53b3bf5d10331baa88087d8451966f1563865 lib/unicore/mktables * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version * 913d2f93f3cb6cdf1664db888bf840bc4eb074eef824e082fceda24a9445e60c regen/charset_translations.pl - * fd69f95fa25d8b270dcd711a21c1a7586bea8bc5081c6a63668d82795f422220 regen/mk_invlists.pl + * 520051ffc8f534c956ec809456efdd79ba9708933c5f009f823e92b4eeb7a163 regen/mk_invlists.pl * ex: set ro: */ diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index 1328f5850d..8304ee6dbe 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -349,8 +349,9 @@ sub output_invmap ($$$$$$$) { $short_name = uc($short_name) if length($short_name) < 3 || substr($short_name, 0, 1) =~ /[[:lower:]]/; $name_prefix = "${short_name}_"; - my $enum_count = keys %enums; - print $out_fh "\n#define ${name_prefix}ENUM_COUNT ", scalar keys %enums, "\n"; + + # Currently unneeded + #print $out_fh "\n#define ${name_prefix}ENUM_COUNT ", scalar keys %enums, "\n"; if ($input_format eq 'sl') { print $out_fh |