From cbf5c5ba5f44cf0fe11b64213facfc8ae7c33e4e Mon Sep 17 00:00:00 2001 From: Yves Orton Date: Wed, 3 Aug 2022 15:23:09 +0200 Subject: regex engine - wrap PL_regnode_name with macro REGNODE_NAME() --- regexec.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'regexec.c') diff --git a/regexec.c b/regexec.c index 601c6ee61a..3bd0e7b51a 100644 --- a/regexec.c +++ b/regexec.c @@ -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 */ } -- cgit v1.2.1