diff options
| author | Karl Williamson <khw@cpan.org> | 2019-10-02 20:43:49 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2019-10-09 10:34:18 -0600 |
| commit | abb8abf6e19acfa4c9bb134c9430ff47bf27dc3d (patch) | |
| tree | b512a5b7614a1c32f5539dd2e73331a0f37bdd78 /regen | |
| parent | f6a6c46da220c16c019f733c278df05c4a333fd9 (diff) | |
| download | perl-abb8abf6e19acfa4c9bb134c9430ff47bf27dc3d.tar.gz | |
l1_char_class_tab.h: Remove some special EBCDIC cases
These are no longer needed.
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/mk_PL_charclass.pl | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/regen/mk_PL_charclass.pl b/regen/mk_PL_charclass.pl index 42fd8edf6e..d0c0ae8bc2 100644 --- a/regen/mk_PL_charclass.pl +++ b/regen/mk_PL_charclass.pl @@ -377,15 +377,6 @@ foreach my $charset (get_supported_code_pages()) { # are in UTF-EBCDIC; these are based on the fundamental # characteristics of UTF-EBCDIC. if (@utf_to_i8) { - if ($i8 >= 0xC5 && $i8 != 0xE0) { - $out[$index] .= '|(1U<<_CC_UTF8_IS_START)'; - if ($i8 <= 0xC7) { - $out[$index] .= '|(1U<<_CC_UTF8_IS_DOWNGRADEABLE_START)'; - } - } - if (($i8 & 0xE0) == 0xA0) { - $out[$index] .= '|(1U<<_CC_UTF8_IS_CONTINUATION)'; - } if ($i8 >= 0xF1) { $out[$index] .= '|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE)'; |