diff options
| author | David Mitchell <davem@iabyn.com> | 2015-04-17 15:15:57 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2015-04-19 18:42:00 +0100 |
| commit | 86cd3a13b6713cc9d8406c9316fe126788e2497f (patch) | |
| tree | a6c38fd58677d1eba2a11198d15e39225df4eaee /ext | |
| parent | 93059c1aaf5fd5adc05efe29bdcc6c719aef3108 (diff) | |
| download | perl-86cd3a13b6713cc9d8406c9316fe126788e2497f.tar.gz | |
op_sibling => op_sibparent under PERL_OP_PARENT
On perls built under -DPERL_OP_PARENT, rename the op_sibling OP field
to op_sibparent, since it can now contain either a pointer to the next
sibling if not the last sibling, or back to the parent if it is.
Code written to work under PERL_OP_PARENT should be using macros like
OpSIBLING() rather than accessing op_sibling directly, so this should
be a transparent change. It will also make code naughtily accessing this
field directly give a compile error.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/XS-APItest/APItest.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index 6171e9b3a5..c78dc7b50a 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -3677,7 +3677,7 @@ CODE: CvROOT(PL_compcv) = (OP *)1; o = newFOROP(0, 0, newOP(OP_PUSHMARK, 0), 0, 0); #ifdef PERL_OP_PARENT - if (cLOOPx(cUNOPo->op_first)->op_last->op_sibling + if (cLOOPx(cUNOPo->op_first)->op_last->op_sibparent != cUNOPo->op_first) { Perl_warn(aTHX_ "Op parent pointer is stale"); |