diff options
author | Yves Orton <demerphq@gmail.com> | 2022-08-03 15:19:51 +0200 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2022-08-06 11:32:34 +0200 |
commit | e28d2a35331ef4703caf07b4ddea0da27a9d6e6f (patch) | |
tree | 3232f31682d2277f79aaa9a20d3c52d3fb0a9d31 /reginline.h | |
parent | 1489b465ff4e90485a0fae9370f20fc560a1dba8 (diff) | |
download | perl-e28d2a35331ef4703caf07b4ddea0da27a9d6e6f.tar.gz |
regex engine - wrap PL_regnode_arg_len with macro REGNODE_ARG_LEN()
Diffstat (limited to 'reginline.h')
-rw-r--r-- | reginline.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/reginline.h b/reginline.h index 589e341e50..2da63d9639 100644 --- a/reginline.h +++ b/reginline.h @@ -37,7 +37,7 @@ Perl_regnode_after(pTHX_ const regnode *p, const bool varies) assert(p); const U8 op = OP(p); assert(op < REGNODE_MAX); - const regnode *ret = p + NODE_STEP_REGNODE + PL_regnode_arg_len[op]; + const regnode *ret = p + NODE_STEP_REGNODE + REGNODE_ARG_LEN(op); if (varies || PL_regnode_arg_len_varies[op]) ret += STR_SZ(STR_LEN(p)); return (regnode *)ret; |