diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-02-03 22:01:03 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-02-09 10:13:57 -0700 |
| commit | a3e1f3a6180fe54649735a678cb15de8aaacf5e9 (patch) | |
| tree | 84ac04a68e651e7c81e3ead7ea1e9fc7cca31fa2 /intrpvar.h | |
| parent | 9d9177bec752277fb0bb090203f47d85c3aba878 (diff) | |
| download | perl-a3e1f3a6180fe54649735a678cb15de8aaacf5e9.tar.gz | |
regcomp.c: Use compile-time invlists
This creates three simple compile-time inversion lists from the data
that has been generated in a previous commit, and uses two of them.
Three PL_ variables are used to store them.
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/intrpvar.h b/intrpvar.h index c9211128d6..96125b6027 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -565,7 +565,12 @@ PERLVAR(I, numeric_radix_sv, SV *) /* The radix separator if not '.' */ #endif /* !USE_LOCALE_NUMERIC */ -/* utf8 character classes */ +/* Unicode inversion lists */ +PERLVAR(I, ASCII, SV *) +PERLVAR(I, Latin1, SV *) +PERLVAR(I, AboveLatin1, SV *) + +/* utf8 character class swashes */ PERLVAR(I, utf8_alnum, SV *) PERLVAR(I, utf8_alpha, SV *) PERLVAR(I, utf8_space, SV *) |