diff options
author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2022-08-11 16:03:35 +0100 |
---|---|---|
committer | Paul Evans <leonerd@leonerd.org.uk> | 2022-08-15 14:50:25 +0100 |
commit | cf1717027b95225cb27f33b15b84ff798c8bacaf (patch) | |
tree | 77c395adbb53785438610d4cdac046356a990f1f /pp_ctl.c | |
parent | 867a530c83f84d4542a286d018a220af39864c1a (diff) | |
download | perl-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.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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; |