diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-03-09 19:22:10 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-03-09 19:22:10 +0000 |
| commit | 5db06880675667a071aa923bc110c33a81cc6d8a (patch) | |
| tree | 8d836ef4f16739baff2019c160d8db7a68fc84af /intrpvar.h | |
| parent | 6f43d98f55a6395af0dd4821c9ea30d53bab4dfd (diff) | |
| download | perl-5db06880675667a071aa923bc110c33a81cc6d8a.tar.gz | |
The remainder of the toke.c MAD changes. Now to investigate why MAD
no longer builds.
p4raw-id: //depot/perl@27445
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/intrpvar.h b/intrpvar.h index 7db6b73fe2..6cdf894df5 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -298,9 +298,14 @@ PERLVAR(Ilex_brackstack,char *) /* what kind of brackets to pop */ PERLVAR(Ilex_casestack, char *) /* what kind of case mods in effect */ /* What we know when we're in LEX_KNOWNEXT state. */ +#ifdef PERL_MAD +PERLVARA(Inexttoke,5, NEXTTOKE) /* value of next token, if any */ +PERLVAR(Ilasttoke, I32) +#else PERLVARA(Inextval,5, YYSTYPE) /* value of next token, if any */ PERLVARA(Inexttype,5, I32) /* type of next token */ PERLVAR(Inexttoke, I32) +#endif PERLVAR(Ilinestr, SV *) PERLVAR(Ibufptr, char *) |