diff options
author | Dave Mitchell <davem@fdisolutions.com> | 2007-05-04 00:41:51 +0000 |
---|---|---|
committer | Dave Mitchell <davem@fdisolutions.com> | 2007-05-04 00:41:51 +0000 |
commit | 53a7735b62aee14640bc8ca619b4267f07d686b9 (patch) | |
tree | eb7cf7f4d631f6b83cd24d9c98ce0cc2821df29f /parser.h | |
parent | d932daed4961bf485d739adcee3fa2136d8ca8ca (diff) | |
download | perl-53a7735b62aee14640bc8ca619b4267f07d686b9.tar.gz |
move PL_expect and PL_copline into the PL_parser structure
p4raw-id: //depot/perl@31134
Diffstat (limited to 'parser.h')
-rw-r--r-- | parser.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -45,6 +45,7 @@ typedef struct yy_parser { U8 lex_defer; /* state after determined token */ bool lex_dojoin; /* doing an array interpolation */ U8 lex_expect; /* expect after determined token */ + U8 expect; /* how to interpret ambiguous tokens */ I32 lex_formbrack; /* bracket count at outer format level */ OP *lex_inpat; /* in pattern $) and $| are special */ OP *lex_op; /* extra info to pass back on op */ @@ -59,6 +60,7 @@ typedef struct yy_parser { bool preambled; SUBLEXINFO sublex_info; SV *linestr; /* current chunk of src text */ + line_t copline; /* current line number */ #ifdef PERL_MAD SV *endwhite; |