diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-03-10 21:54:18 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-03-10 21:54:18 +0000 |
| commit | 5336380d3e98d40ceb0f5b533b012f0e4cd65847 (patch) | |
| tree | d4ad983e1657963728b2ee18ac4112c62f92060e /intrpvar.h | |
| parent | cd81e91502ad4d6bb904961b23b1a3ff2fa664af (diff) | |
| download | perl-5336380d3e98d40ceb0f5b533b012f0e4cd65847.tar.gz | |
Move the 12 static MAD variables from toke.c into the interpeter
structure.
p4raw-id: //depot/perl@27466
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/intrpvar.h b/intrpvar.h index 6cdf894df5..3a48de54b1 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -301,6 +301,18 @@ PERLVAR(Ilex_casestack, char *) /* what kind of case mods in effect */ #ifdef PERL_MAD PERLVARA(Inexttoke,5, NEXTTOKE) /* value of next token, if any */ PERLVAR(Ilasttoke, I32) +PERLVAR(Irealtokenstart,I32) +PERLVAR(Ifaketokens, I32) +PERLVAR(Ithismad, MADPROP *) +PERLVAR(Ithistoken, SV *) +PERLVAR(Ithisopen, SV *) +PERLVAR(Ithisstuff, SV *) +PERLVAR(Ithisclose, SV *) +PERLVAR(Ithiswhite, SV *) +PERLVAR(Inextwhite, SV *) +PERLVAR(Iskipwhite, SV *) +PERLVAR(Iendwhite, SV *) +PERLVAR(Icurforce, I32) #else PERLVARA(Inextval,5, YYSTYPE) /* value of next token, if any */ PERLVARA(Inexttype,5, I32) /* type of next token */ |