X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/802a15e9c01d1a0b6bb74d5a6e5dcd9ee1a651a4..5be997b011f57b97a53d8a50fd7dca50b17e854e:/parser.h

diff --git a/parser.h b/parser.h
index bbf3bf3..3531631 100644
--- a/parser.h
+++ b/parser.h
@@ -105,21 +105,28 @@ typedef struct yy_parser {
     COP		*saved_curcop;	/* the previous PL_curcop */
     char	tokenbuf[256];
 
-    bool	in_pod;		/* lexer is within a =pod section */
     U8		lex_fakeeof;	/* precedence at which to fake EOF */
-    U32		lex_flags;
+    PERL_BITFIELD16	lex_flags:14;
+    PERL_BITFIELD16	in_pod:1;      /* lexer is within a =pod section */
+    PERL_BITFIELD16	filtered:1;    /* source filters in evalbytes */
 } yy_parser;
 
 /* flags for lexer API */
 #define LEX_STUFF_UTF8		0x00000001
 #define LEX_KEEP_PREVIOUS	0x00000002
+
 #ifdef PERL_CORE
 # define LEX_START_SAME_FILTER	0x00000001
+# define LEX_IGNORE_UTF8_HINTS	0x00000002
+# define LEX_EVALBYTES		0x00000004
+# define LEX_START_COPIED	0x00000008
+# define LEX_START_FLAGS \
+	(LEX_START_SAME_FILTER|LEX_START_COPIED \
+	|LEX_IGNORE_UTF8_HINTS|LEX_EVALBYTES)
 #endif
 
 /* flags for parser API */
 #define PARSE_OPTIONAL          0x00000001
-#define LEX_IGNORE_UTF8_HINTS	0x00000002
 
 /* values for lex_fakeeof */
 enum {