This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regen/mk_invlists.pl: Remove some unnecessary #if's
authorKarl Williamson <khw@cpan.org>
Thu, 26 Apr 2018 02:58:47 +0000 (20:58 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 25 Jun 2018 13:33:28 +0000 (07:33 -0600)
Things aren't actually getting switched here, so no need for them.

charclass_invlists.h
regen/mk_invlists.pl
uni_keywords.h

index 09b445d..1034ae3 100644 (file)
@@ -374285,5 +374285,5 @@ static const U8 WB_table[24][24] = {
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 4bb677187a1a64e39d48f2e341b5ecb6c99857e49d7a79cf503bd8a3c709999b regen/charset_translations.pl
  * 03e51b0f07beebd5da62ab943899aa4934eee1f792fa27c1fb638c33bf4ac6ea regen/mk_PL_charclass.pl
- * 47720a10807fc28ffdf7143ba5f2c199fb9acf5330e4cd6f5c2601ac2c64a634 regen/mk_invlists.pl
+ * af1ad68b193a6e93dc977f46936e54710a96bab91b56bb113761af27bb8fce8b regen/mk_invlists.pl
  * ex: set ro: */
index 8d307c4..9d194f4 100644 (file)
@@ -2684,8 +2684,6 @@ print $out_fh "\nconst char * deprecated_property_msgs[] = {\n\t";
 print $out_fh join ",\n\t", map { "\"$_\"" } @deprecated_messages;
 print $out_fh "\n};\n";
 
-switch_pound_if ('binary_property_tables', 'PERL_IN_UTF8_C');
-
 my @enums = sort values %enums;
 
 # Save a copy of these before modification
@@ -2722,7 +2720,6 @@ print $out_fh "\n";
 print $out_fh "} binary_invlist_enum;\n";
 print $out_fh "\n#define MAX_UNI_KEYWORD_INDEX $enums[-1]\n";
 
-switch_pound_if ('binary_property_index_table', 'PERL_IN_UTF8_C' );
 
 print $out_fh "\nstatic const UV * const PL_uni_prop_ptrs\[] = {\n";
 print $out_fh "\tNULL,\t/* Placeholder */\n\t";
@@ -2730,8 +2727,6 @@ print $out_fh join ",\n\t", @invlist_names;
 print $out_fh "\n";
 print $out_fh "};\n";
 
-end_file_pound_if;
-
 switch_pound_if('Boundary_pair_tables', 'PERL_IN_REGEXEC_C');
 
 output_GCB_table();
index ec1a59c..a3e7211 100644 (file)
@@ -6755,6 +6755,6 @@ MPH_VALt match_uniprop( const unsigned char * const key, const U16 key_len ) {
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 4bb677187a1a64e39d48f2e341b5ecb6c99857e49d7a79cf503bd8a3c709999b regen/charset_translations.pl
  * 03e51b0f07beebd5da62ab943899aa4934eee1f792fa27c1fb638c33bf4ac6ea regen/mk_PL_charclass.pl
- * 47720a10807fc28ffdf7143ba5f2c199fb9acf5330e4cd6f5c2601ac2c64a634 regen/mk_invlists.pl
+ * af1ad68b193a6e93dc977f46936e54710a96bab91b56bb113761af27bb8fce8b regen/mk_invlists.pl
  * 5599d961e0e4ab42842b41d65db8a265c84e0b68e91a31d15585b7c9c8c6da53 regen/mph.pl
  * ex: set ro: */