mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

regen/mk_invlists.pl: Use INIT(), not DOINIT

Browse Source 
There are no tables currently generated by this file that are affected,
however.
This commit is contained in:
Karl Williamson 2025-09-20 10:18:39 -06:00 committed by Karl Williamson
parent 8df915f5ca
commit d548e4e47d
5 changed files with 8 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
charclass_invlists.inc
View File

@ -492662,5 +492662,5 @@ static const U8 WB_dfa_table[] = {
* 8c30575264b2772c7a69c5bb6069a28f0e0a7a0df735871bde2d99ee674316ac lib/unicore/version
* 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl
* c7ff8e0d207d3538c7feb4a1a152b159e5e902d20293b303569ea8323e84633e regen/mk_PL_charclass.pl
* 33a5e583d836b8bb97b6b1d1c6d1766defe4cbdeb8bcbe865d76f71206762be9 regen/mk_invlists.pl
* 20a6e3d507a66f4594586485568134873485b08e23383f3dc4e6b3047569267b regen/mk_invlists.pl
* ex: set ro ft=c: */

2
lib/unicore/uni_keywords.pl generated
View File

@ -1428,5 +1428,5 @@
# 8c30575264b2772c7a69c5bb6069a28f0e0a7a0df735871bde2d99ee674316ac lib/unicore/version
# 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl
# c7ff8e0d207d3538c7feb4a1a152b159e5e902d20293b303569ea8323e84633e regen/mk_PL_charclass.pl
# 33a5e583d836b8bb97b6b1d1c6d1766defe4cbdeb8bcbe865d76f71206762be9 regen/mk_invlists.pl
# 20a6e3d507a66f4594586485568134873485b08e23383f3dc4e6b3047569267b regen/mk_invlists.pl
# ex: set ro ft=perl:

13
regen/mk_invlists.pl
View File

@ -348,13 +348,7 @@ sub start_charset_pound_if ($charset, $indent_level=undef) {
$in_doinit = 1;
print $fh <<EOF;
# ifndef DOINIT
EXTCONST $declaration;
# else
EXTCONST $declaration = {$comment
EXTCONST $declaration INIT( {$comment
EOF
}
}
@ -363,11 +357,12 @@ EOF
# Close out a table started by output_table_header()
print $fh "};\n";
print $fh "}";
if ($in_doinit) {
print $fh "\n# endif /* DOINIT */\n\n";
print $fh ")";
$in_doinit = 0;
}
print $fh ";\n";
}
} # End closure

2
regexp_constants.h
View File

@ -83,5 +83,5 @@
* 8c30575264b2772c7a69c5bb6069a28f0e0a7a0df735871bde2d99ee674316ac lib/unicore/version
* 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl
* c7ff8e0d207d3538c7feb4a1a152b159e5e902d20293b303569ea8323e84633e regen/mk_PL_charclass.pl
* 33a5e583d836b8bb97b6b1d1c6d1766defe4cbdeb8bcbe865d76f71206762be9 regen/mk_invlists.pl
* 20a6e3d507a66f4594586485568134873485b08e23383f3dc4e6b3047569267b regen/mk_invlists.pl
* ex: set ro ft=c: */

2
uni_keywords.h generated
View File

@ -8175,6 +8175,6 @@ match_uniprop( const unsigned char * const key, const U16 key_len ) {
* 8c30575264b2772c7a69c5bb6069a28f0e0a7a0df735871bde2d99ee674316ac lib/unicore/version
* 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl
* c7ff8e0d207d3538c7feb4a1a152b159e5e902d20293b303569ea8323e84633e regen/mk_PL_charclass.pl
* 33a5e583d836b8bb97b6b1d1c6d1766defe4cbdeb8bcbe865d76f71206762be9 regen/mk_invlists.pl
* 20a6e3d507a66f4594586485568134873485b08e23383f3dc4e6b3047569267b regen/mk_invlists.pl
* d6987e01ad538d1567394851cf199f99815f7701bebd6092be4bc7a6d8f147c6 regen/mph.pl
* ex: set ro ft=c: */