diff options
author | David Mitchell <davem@iabyn.com> | 2012-04-01 13:59:58 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2012-06-13 13:32:51 +0100 |
commit | 1f4d1a1e6bd841571627e26005938e8fc1b14fe6 (patch) | |
tree | 1b565f0c93834cfa2801fe1a3d8ee7c5c916acc0 /regexec.c | |
parent | ed3014387bd9d3831218de840f41bd52a11f66df (diff) | |
download | perl-1f4d1a1e6bd841571627e26005938e8fc1b14fe6.tar.gz |
eliminate OP_4tree type
This was an alias to OP, and formerly used by the old re_eval mechanism
Diffstat (limited to 'regexec.c')
-rw-r--r-- | regexec.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -4246,7 +4246,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog) /* execute the code in the {...} */ dSP; SV ** const before = SP; - OP_4tree * const oop = PL_op; + OP * const oop = PL_op; COP * const ocurcop = PL_curcop; PAD *old_comppad, *new_comppad; char *saved_regeol = PL_regeol; @@ -4278,17 +4278,17 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog) (REGEXP*)(rexi->data->data[n]) ))->qr_anoncv ))[1]; - PL_op = (OP_4tree*)rexi->data->data[n+1]; + PL_op = (OP*)rexi->data->data[n+1]; } else if (rexi->data->what[n] == 'l') { /* literal code */ new_comppad = initial_pad; /* the pad of the current sub */ - PL_op = (OP_4tree*)rexi->data->data[n]; + PL_op = (OP*)rexi->data->data[n]; } else { /* literal with own CV */ assert(rexi->data->what[n] == 'L'); new_comppad = (PAD*)AvARRAY(CvPADLIST(rex->qr_anoncv))[1]; - PL_op = (OP_4tree*)rexi->data->data[n]; + PL_op = (OP*)rexi->data->data[n]; } /* the initial nextstate you would normally execute * at the start of an eval (which would cause error |