diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-12-12 20:26:08 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-12-22 11:11:28 -0700 |
| commit | 86f72d56e71cb202c98802b68923dfca4797c3e2 (patch) | |
| tree | 10d09c56be441c5ebb8b9ef7515cc7a5c330347a /intrpvar.h | |
| parent | 9c0b68885345dfc017948c78b79c222b1468d96c (diff) | |
| download | perl-86f72d56e71cb202c98802b68923dfca4797c3e2.tar.gz | |
Use array for some inversion lists
This patch creates an array pointing to the inversion lists that cover
the Latin-1 ranges for Posix character classes, and uses it instead of
the individual variables previously referred to.
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/intrpvar.h b/intrpvar.h index a50ad51d4a..5fd84b4de1 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -569,10 +569,8 @@ PERLVAR(I, AboveLatin1, SV *) PERLVAR(I, PerlSpace, SV *) PERLVAR(I, XPerlSpace, SV *) -PERLVAR(I, L1PosixAlnum,SV *) PERLVAR(I, PosixAlnum, SV *) -PERLVAR(I, L1PosixAlpha,SV *) PERLVAR(I, PosixAlpha, SV *) PERLVAR(I, PosixBlank, SV *) @@ -585,25 +583,19 @@ PERLVAR(I, XPosixCntrl, SV *) PERLVAR(I, PosixDigit, SV *) -PERLVAR(I, L1PosixGraph,SV *) PERLVAR(I, PosixGraph, SV *) -PERLVAR(I, L1PosixLower,SV *) PERLVAR(I, PosixLower, SV *) -PERLVAR(I, L1PosixPrint,SV *) PERLVAR(I, PosixPrint, SV *) -PERLVAR(I, L1PosixPunct,SV *) PERLVAR(I, PosixPunct, SV *) PERLVAR(I, PosixSpace, SV *) PERLVAR(I, XPosixSpace, SV *) -PERLVAR(I, L1PosixUpper,SV *) PERLVAR(I, PosixUpper, SV *) -PERLVAR(I, L1PosixWord, SV *) PERLVAR(I, PosixWord, SV *) PERLVAR(I, PosixXDigit, SV *) @@ -625,6 +617,7 @@ PERLVAR(I, utf8_tofold, SV *) PERLVAR(I, utf8_charname_begin, SV *) PERLVAR(I, utf8_charname_continue, SV *) PERLVARA(I, utf8_swash_ptrs, POSIX_SWASH_COUNT, SV *) +PERLVARA(I, L1Posix_ptrs, POSIX_CC_COUNT, SV *) PERLVAR(I, last_swash_hv, HV *) PERLVAR(I, last_swash_tmps, U8 *) PERLVAR(I, last_swash_slen, STRLEN) |