summaryrefslogtreecommitdiff
path: root/parser.h
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2016-08-03 13:31:06 -0700
committerFather Chrysostomos <sprout@cpan.org>2016-08-04 13:12:18 -0700
commit4e46c5e2b0b1df7bde99da38de42feed2bb31f08 (patch)
tree7a82027130170307aff18e2e85ddaec8e2b04d54 /parser.h
parent346c6a2954c23fb46d892160e65f9ea2d7d4a4fd (diff)
downloadperl-4e46c5e2b0b1df7bde99da38de42feed2bb31f08.tar.gz
Revert "Um, finish reordering the parser struct"
This reverts commit d64e121b07bda895f7f3a5d0e449fc948986e2f1. It contained stupid blunders. See <20160803202545.2999.qmail@lists-nntp.develooper.com>.
Diffstat (limited to 'parser.h')
-rw-r--r--parser.h14
1 files changed, 6 insertions, 8 deletions
diff --git a/parser.h b/parser.h
index d5f1b88d88..8be2eaa429 100644
--- a/parser.h
+++ b/parser.h
@@ -95,28 +95,26 @@ typedef struct yy_parser {
U16 in_my; /* we're compiling a "my"/"our" declaration */
U8 lex_state; /* next token is determined */
U8 error_count; /* how many compile errors so far, max 10 */
- U8 form_lex_state; /* remember lex_state when parsing fmt */
- /* 8-BIT HOLE */
+ /* 16-BIT HOLE */
HV *in_my_stash; /* declared class of this "my" declaration */
PerlIO *rsfp; /* current source file pointer */
AV *rsfp_filters; /* holds chain of active source filters */
+ U8 form_lex_state; /* remember lex_state when parsing fmt */
YYSTYPE nextval[5]; /* value of next token, if any */
I32 nexttype[5]; /* type of next token */
U8 nexttoke;
+ COP *saved_curcop; /* the previous PL_curcop */
+ char tokenbuf[256];
+ line_t herelines; /* number of lines in here-doc */
+ line_t preambling; /* line # when processing $ENV{PERL5DB} */
U8 lex_fakeeof; /* precedence at which to fake EOF */
U8 lex_flags;
PERL_BITFIELD16 in_pod:1; /* lexer is within a =pod section */
PERL_BITFIELD16 filtered:1; /* source filters in evalbytes */
PERL_BITFIELD16 saw_infix_sigil:1; /* saw & or * or % operator */
PERL_BITFIELD16 parsed_sub:1; /* last thing parsed was a sub */
- /* 4 spare bits */
- COP *saved_curcop; /* the previous PL_curcop */
- char tokenbuf[256];
- line_t herelines; /* number of lines in here-doc */
- line_t preambling; /* line # when processing $ENV{PERL5DB} */
-
/* these are valid whiling parsing a subroutine signature */
IV sig_elems; /* number of signature elements seen so far */
IV sig_optelems; /* number of optional signature elems seen */