diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-07-06 14:13:35 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-07-16 13:58:07 -0600 |
| commit | 3388db2c1477e99d8063e43491760752e6d05d8d (patch) | |
| tree | d7f562dd79f93427f231506529369cc5ab55291c /regen | |
| parent | 6658a1d80ed82c7328a5e2b1c365abb7de45ff92 (diff) | |
| download | perl-3388db2c1477e99d8063e43491760752e6d05d8d.tar.gz | |
Reinstate "regcomp.c: Move 2 hdr inversion fields to SV hdr"
This reverts commit 67434bafe4f2406e7c92e69013aecd446c896a9a, which
reverted 4fdeca7844470c929f35857f49078db1fd124dbc, thus reinstating the
latter commit. It turns out that the error being chased down was not
due to this commit.
Its original message was:
This commit continues the process of separating the header area of
inversion lists from the body. 2 more fields are moved out of the
header portion of the inversion list, and into the header portion of the
SV that contains it.
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/mk_invlists.pl | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index 8e131d6f58..d9f3d59ec0 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -15,7 +15,7 @@ require 'regen/regen_lib.pl'; # in the headers is used to minimize the possibility of things getting # out-of-sync, or the wrong data structure being passed. Currently that # random number is: -my $VERSION_DATA_STRUCTURE_TYPE = 1039476070; +my $VERSION_DATA_STRUCTURE_TYPE = 1511554547; my $out_fh = open_new('charclass_invlists.h', '>', {style => '*', by => $0, @@ -53,12 +53,6 @@ sub output_invlist ($$) { print $out_fh "\nstatic UV ${name}_invlist[] = {\n"; print $out_fh "\t$count,\t/* Number of elements */\n"; - - # This should be UV_MAX, but I (khw) am not confident that the suffixes - # for specifying the constant are portable, e.g. 'ull' on a 32 bit - # machine that is configured to use 64 bits; might need a Configure probe - print $out_fh "\t0,\t/* Current iteration position */\n"; - print $out_fh "\t0,\t/* Cache of previous search index result */\n"; print $out_fh "\t$VERSION_DATA_STRUCTURE_TYPE, /* Version and data structure type */\n"; print $out_fh "\t", $zero_or_one, ",\t/* 0 if the list starts at 0;", |