diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-12-12 22:08:39 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-12-22 11:11:28 -0700 |
| commit | 30f9bdb0a6c8a26427a02f6e149605c1a7eaaf71 (patch) | |
| tree | e93f1ad5b25480315c9a006ce848039b39f90d34 /intrpvar.h | |
| parent | e92ecb17b5267a746d4ccffc569ff1061bef62e5 (diff) | |
| download | perl-30f9bdb0a6c8a26427a02f6e149605c1a7eaaf71.tar.gz | |
Use an array for some inversion lists
An earlier commit placed some inversion list pointers into an array.
This commit extends that to another group of inversion lists.
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 31 |
1 files changed, 2 insertions, 29 deletions
diff --git a/intrpvar.h b/intrpvar.h index 5fd84b4de1..aabf454960 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -566,41 +566,12 @@ PERLVAR(I, ASCII, SV *) PERLVAR(I, Latin1, SV *) PERLVAR(I, AboveLatin1, SV *) -PERLVAR(I, PerlSpace, SV *) PERLVAR(I, XPerlSpace, SV *) - -PERLVAR(I, PosixAlnum, SV *) - -PERLVAR(I, PosixAlpha, SV *) - -PERLVAR(I, PosixBlank, SV *) PERLVAR(I, XPosixBlank, SV *) - PERLVAR(I, L1Cased, SV *) - -PERLVAR(I, PosixCntrl, SV *) PERLVAR(I, XPosixCntrl, SV *) - -PERLVAR(I, PosixDigit, SV *) - -PERLVAR(I, PosixGraph, SV *) - -PERLVAR(I, PosixLower, SV *) - -PERLVAR(I, PosixPrint, SV *) - -PERLVAR(I, PosixPunct, SV *) - -PERLVAR(I, PosixSpace, SV *) PERLVAR(I, XPosixSpace, SV *) - -PERLVAR(I, PosixUpper, SV *) - -PERLVAR(I, PosixWord, SV *) - -PERLVAR(I, PosixXDigit, SV *) PERLVAR(I, XPosixXDigit, SV *) - PERLVAR(I, VertSpace, SV *) PERLVAR(I, NonL1NonFinalFold, SV *) @@ -616,7 +587,9 @@ PERLVAR(I, utf8_tolower, SV *) 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, Posix_ptrs, POSIX_CC_COUNT, SV *) PERLVARA(I, L1Posix_ptrs, POSIX_CC_COUNT, SV *) PERLVAR(I, last_swash_hv, HV *) PERLVAR(I, last_swash_tmps, U8 *) |