summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorPaul "LeoNerd" Evans <leonerd@leonerd.org.uk>2022-08-11 16:03:35 +0100
committerPaul Evans <leonerd@leonerd.org.uk>2022-08-15 14:50:25 +0100
commitcf1717027b95225cb27f33b15b84ff798c8bacaf (patch)
tree77c395adbb53785438610d4cdac046356a990f1f /pp_ctl.c
parent867a530c83f84d4542a286d018a220af39864c1a (diff)
downloadperl-cf1717027b95225cb27f33b15b84ff798c8bacaf.tar.gz
Use the cPMOPx-family of macros instead of manual (PMOP*) casting
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 88b1c4e918..f3e4f29f8f 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -78,7 +78,7 @@ PP(pp_regcreset)
PP(pp_regcomp)
{
dSP;
- PMOP *pm = (PMOP*)cLOGOP->op_other;
+ PMOP *pm = cPMOPx(cLOGOP->op_other);
SV **args;
int nargs;
REGEXP *re = NULL;
@@ -189,7 +189,7 @@ PP(pp_substcont)
{
dSP;
PERL_CONTEXT *cx = CX_CUR();
- PMOP * const pm = (PMOP*) cLOGOP->op_other;
+ PMOP * const pm = cPMOPx(cLOGOP->op_other);
SV * const dstr = cx->sb_dstr;
char *s = cx->sb_s;
char *m = cx->sb_m;
@@ -4957,7 +4957,7 @@ PP(pp_leavegiven)
STATIC PMOP *
S_make_matcher(pTHX_ REGEXP *re)
{
- PMOP *matcher = (PMOP *) newPMOP(OP_MATCH, OPf_WANT_SCALAR | OPf_STACKED);
+ PMOP *matcher = cPMOPx(newPMOP(OP_MATCH, OPf_WANT_SCALAR | OPf_STACKED));
PERL_ARGS_ASSERT_MAKE_MATCHER;