diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-06-13 15:21:25 -0400 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-06-13 15:41:55 -0400 |
commit | b5bbe64ad2ec51417ef02ac52304ed45fe37be3f (patch) | |
tree | 71f1b45882f215a6d886d3bc08954c02a54e6af0 /parser.h | |
parent | 7053d92917f7cb46452de86dc4c6d8644cae849c (diff) | |
download | perl-b5bbe64ad2ec51417ef02ac52304ed45fe37be3f.tar.gz |
Remove MAD.
MAD = Misc Attribute Decoration; unmaintained attempt at preserving
the Perl parse tree more faithfully so that automatic conversion to
Perl 6 would have been easier.
Diffstat (limited to 'parser.h')
-rw-r--r-- | parser.h | 19 |
1 files changed, 0 insertions, 19 deletions
@@ -98,28 +98,9 @@ typedef struct yy_parser { AV *rsfp_filters; /* holds chain of active source filters */ U8 form_lex_state; /* remember lex_state when parsing fmt */ -#ifdef PERL_MAD - SV *endwhite; - I32 faketokens; - I32 lasttoke; - SV *nextwhite; - I32 realtokenstart; - SV *skipwhite; - SV *thisclose; - MADPROP * thismad; - SV *thisopen; - SV *thisstuff; - SV *thistoken; - SV *thiswhite; - -/* What we know when we're in LEX_KNOWNEXT state. */ - NEXTTOKE nexttoke[5]; /* value of next token, if any */ - I32 curforce; -#else YYSTYPE nextval[5]; /* value of next token, if any */ I32 nexttype[5]; /* type of next token */ I32 nexttoke; -#endif COP *saved_curcop; /* the previous PL_curcop */ char tokenbuf[256]; |