diff options
author | Karl Williamson <khw@cpan.org> | 2020-02-23 19:32:03 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-03-02 11:40:29 -0700 |
commit | da477c7d07d62ea553e27b79c9d63e1f7c5640e5 (patch) | |
tree | 6d1ab51102b79d419c3a07c7ef313d36a3ce2321 /regen | |
parent | aa2885ce1c52c69d1ab88052a5042193509d3de3 (diff) | |
download | perl-da477c7d07d62ea553e27b79c9d63e1f7c5640e5.tar.gz |
regen/mk_invlists.pl: Move #define in output
This value will be needed outside of where it currently is defined; this
commit makes it available elsewhere
Diffstat (limited to 'regen')
-rw-r--r-- | regen/mk_invlists.pl | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index 6ba0df26db..ee7a51af6f 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -84,6 +84,12 @@ print $out_fh "#define NUM_ANYOF_CODE_POINTS $num_anyof_code_points\n\n"; $num_anyof_code_points = eval $num_anyof_code_points; +no warnings 'once'; +print $out_fh <<"EOF"; +/* The precision to use in "%.*e" formats */ +#define PL_E_FORMAT_PRECISION $Unicode::UCD::e_precision +EOF + # enums that should be made public my %public_enums = ( _Perl_SCX => 1 @@ -3317,13 +3323,6 @@ my $keywords_fh = open_new('uni_keywords.h', '>', {style => '*', by => 'regen/mk_invlists.pl', from => "mph.pl"}); -no warnings 'once'; -print $keywords_fh <<"EOF"; -/* The precision to use in "%.*e" formats */ -#define PL_E_FORMAT_PRECISION $Unicode::UCD::e_precision - -EOF - my ($second_level, $seed1, $length_all_keys, $smart_blob, $rows) = MinimalPerfectHash::make_mph_from_hash(\%keywords); print $keywords_fh MinimalPerfectHash::make_algo($second_level, $seed1, |