move some more variables into the PL_parser struct:

    PL_bufptr PL_oldbufptr PL_oldoldbufptr
    PL_linestart PL_bufend
    PL_last_uni PL_last_lop PL_last_lop_op

p4raw-id: //depot/perl@31147

1 files changed, 8 insertions, 0 deletions

diff --git a/parser.h b/parser.h
index 847e50a5f9..2dfcfa7d42 100644
--- a/parser.h
+++ b/parser.h
@@ -51,6 +51,7 @@ typedef struct yy_parser {
     OP		*lex_op;	/* extra info to pass back on op */
     SV		*lex_repl;	/* runtime replacement from s/// */
     U16		lex_inwhat;	/* what kind of quoting are we in */
+    OPCODE	last_lop_op;	/* last list operator */
     I32		lex_starts;	/* how many interps done on level */
     SV		*lex_stuff;	/* runtime pattern from m// or s/// */
     I32		multi_start;	/* 1st line of multi-line string */
@@ -61,6 +62,13 @@ typedef struct yy_parser {
     SUBLEXINFO	sublex_info;
     SV		*linestr;	/* current chunk of src text */
     line_t	copline;	/* current line number */
+    char	*bufptr;	
+    char	*oldbufptr;	
+    char	*oldoldbufptr;	
+    char	*bufend;	
+    char	*linestart;	/* beginning of most recently read line */
+    char	*last_uni;	/* position of last named-unary op */
+    char	*last_lop;	/* position of last list operator */
 
 #ifdef PERL_MAD
     SV		*endwhite;