avoid copying the whole map to the stack on each call to get_I8_2_utf()

[perl5.git] / parser.h

diff --git a/parser.h b/parser.h
index 95083d6..75f676c 100644 (file)
--- a/parser.h
+++ b/parser.h
@@ -27,7 +27,8 @@ typedef struct yy_lexshared {
     struct yy_lexshared        *ls_prev;
     SV                 *ls_linestr;    /* mirrors PL_parser->linestr */
     char               *ls_bufptr;     /* mirrors PL_parser->bufptr */
-    line_t             herelines;      /* number of lines in here-doc */
+    char               *re_eval_start; /* start of "(?{..." text */
+    SV                 *re_eval_str;   /* "(?{...})" text */
 } LEXSHARED;
 
 typedef struct yy_parser {
@@ -53,7 +54,8 @@ typedef struct yy_parser {
     char       *lex_brackstack;/* what kind of brackets to pop */
     char       *lex_casestack; /* what kind of case mods in effect */
     U8         lex_defer;      /* state after determined token */
-    bool       lex_dojoin;     /* doing an array interpolation */
+    U8         lex_dojoin;     /* doing an array interpolation
+                                  1 = @{...}  2 = ->@ */
     U8         lex_expect;     /* expect after determined token */
     U8         expect;         /* how to interpret ambiguous tokens */
     I32                lex_formbrack;  /* bracket count at outer format level */
@@ -68,8 +70,8 @@ typedef struct yy_parser {
     I32                multi_end;      /* last line of multi-line string */
     char       multi_open;     /* delimiter of said string */
     char       multi_close;    /* delimiter of said string */
-    char       pending_ident;  /* pending identifier lookup */
     bool       preambled;
+    bool        lex_re_reparsing; /* we're doing G_RE_REPARSING */
     I32                lex_allbrackets;/* (), [], {}, ?: bracket count */
     SUBLEXINFO sublex_info;
     LEXSHARED  *lex_shared;
@@ -96,36 +98,19 @@ 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];
-
+    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 */
 } yy_parser;
 
 /* flags for lexer API */