diff options
| author | Yves Orton <demerphq@gmail.com> | 2013-06-22 18:16:36 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2013-06-22 18:19:52 +0200 |
| commit | 337ff3078c4082e843af19536e11f70d3d14bfe9 (patch) | |
| tree | d4ccd9328e88abe69772d4b945e14519dd98e8af /regnodes.h | |
| parent | 80e09529483332d99472e6944c1f7b1abc89c89c (diff) | |
| download | perl-337ff3078c4082e843af19536e11f70d3d14bfe9.tar.gz | |
Show intflags as well as extflags
Diffstat (limited to 'regnodes.h')
| -rw-r--r-- | regnodes.h | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/regnodes.h b/regnodes.h index 0caf86dd55..d6c57e0010 100644 --- a/regnodes.h +++ b/regnodes.h @@ -686,6 +686,21 @@ EXTCONST char * const PL_reg_extflags_name[] = { }; #endif /* DOINIT */ +/* PL_reg_intflags_name[] - Opcode/state names in string form, for debugging */ + +#ifndef DOINIT +EXTCONST char * PL_reg_intflags_name[]; +#else +EXTCONST char * const PL_reg_intflags_name[] = { + "SKIP", /* 0x00000001 - PREGf_SKIP */ + "IMPLICIT", /* 0x00000002 - PREGf_IMPLICIT - Converted .* to ^.* */ + "NAUGHTY", /* 0x00000004 - PREGf_NAUGHTY - how exponential is this pattern? */ + "VERBARG_SEEN", /* 0x00000008 - PREGf_VERBARG_SEEN */ + "CUTGROUP_SEEN", /* 0x00000010 - PREGf_CUTGROUP_SEEN */ + "USE_RE_EVAL", /* 0x00000020 - PREGf_USE_RE_EVAL - compiled with "use re 'eval'" */ +}; +#endif /* DOINIT */ + /* The following have no fixed length. U8 so we can do strchr() on it. */ #define REGNODE_VARIES(node) (PL_varies_bitmask[(node) >> 3] & (1 << ((node) & 7))) |