summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2012-04-01 13:59:58 +0100
committerDavid Mitchell <davem@iabyn.com>2012-06-13 13:32:51 +0100
commit1f4d1a1e6bd841571627e26005938e8fc1b14fe6 (patch)
tree1b565f0c93834cfa2801fe1a3d8ee7c5c916acc0 /regexec.c
parented3014387bd9d3831218de840f41bd52a11f66df (diff)
downloadperl-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.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/regexec.c b/regexec.c
index ea40e4a1ef..e14c69cbec 100644
--- a/regexec.c
+++ b/regexec.c
@@ -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