diff options
| author | Yves Orton <demerphq@gmail.com> | 2022-08-03 15:23:09 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2022-08-06 11:32:34 +0200 |
| commit | cbf5c5ba5f44cf0fe11b64213facfc8ae7c33e4e (patch) | |
| tree | 95c707cfce01999ed6525223624de14c7f580292 /regexec.c | |
| parent | 79a585d60bd04a299e28c3f76025b5003fb41ef1 (diff) | |
| download | perl-cbf5c5ba5f44cf0fe11b64213facfc8ae7c33e4e.tar.gz | |
regex engine - wrap PL_regnode_name with macro REGNODE_NAME()
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -6183,7 +6183,7 @@ S_backup_one_WB(pTHX_ WB_enum * previous, const U8 * const strbeg, U8 ** curpos, Perl_re_printf( aTHX_ \ "%*s" pp " %s%s%s%s%s\n", \ INDENT_CHARS(depth), "", \ - PL_regnode_name[st->resume_state], \ + REGNODE_NAME(st->resume_state), \ ((st==yes_state||st==mark_state) ? "[" : ""), \ ((st==yes_state) ? "Y" : ""), \ ((st==mark_state) ? "M" : ""), \ @@ -9816,7 +9816,7 @@ NULL Perl_re_exec_indentf( aTHX_ "%4s #%-3d %-10s %s\n", depth, i ? " " : "push", - depth - i, PL_regnode_name[cur->resume_state], + depth - i, REGNODE_NAME(cur->resume_state), (curyes == cur) ? "yes" : "" ); if (curyes == cur) @@ -10643,7 +10643,7 @@ S_regrepeat(pTHX_ regexp *prog, char **startposp, const regnode *p, default: Perl_croak(aTHX_ "panic: regrepeat() called with unrecognized" - " node type %d='%s'", OP(p), PL_regnode_name[OP(p)]); + " node type %d='%s'", OP(p), REGNODE_NAME(OP(p))); NOT_REACHED; /* NOTREACHED */ } |