diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-07-23 10:01:29 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-09-24 11:36:12 -0600 |
| commit | 892d82595257ad4946d399f004a293a79f6ab611 (patch) | |
| tree | 4e8841914093e2fb1200685aff68a7495c2c20a8 /charclass_invlists.h | |
| parent | ecfdcf399ee052379b6d0552e332d8503d554233 (diff) | |
| download | perl-892d82595257ad4946d399f004a293a79f6ab611.tar.gz | |
Add inversion list for U+80 - U+FF
This is the upper half of the Latin1 range. This simplifies some code
very slightly, but will be of use in future commits.
Diffstat (limited to 'charclass_invlists.h')
| -rw-r--r-- | charclass_invlists.h | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/charclass_invlists.h b/charclass_invlists.h index f3de65ab7a..c2f9f248b1 100644 --- a/charclass_invlists.h +++ b/charclass_invlists.h @@ -772,4 +772,18 @@ static const UV _Perl_Multi_Char_Folds_invlist[] = { #endif +#ifndef PERL_IN_XSUB_RE + +static const UV UpperLatin1_invlist[] = { + 3, /* Number of elements */ + 148565664, /* Version and data structure type */ + 1, /* 0 if the list starts at 0; + 1 if it starts at the element beyond 0 */ + 0, + 128, + 256 +}; + +#endif + /* ex: set ro: */ |