rpeep() assert oldoldop -> oldop -> o form a chain

[perl5.git] / op.c

diff --git a/op.c b/op.c
index 30595b7..0de303c 100644 (file)
--- a/op.c
+++ b/op.c
@@ -13127,6 +13127,11 @@ Perl_rpeep(pTHX_ OP *o)
        }
 
       redo:
        }
 
       redo:

+
+        /* oldoldop -> oldop -> o should be a chain of 3 adjacent ops */
+        assert(!oldoldop || oldoldop->op_next == oldop);
+        assert(!oldop    || oldop->op_next    == o);
+

        /* By default, this op has now been optimised. A couple of cases below
           clear this again.  */
        o->op_opt = 1;
        /* By default, this op has now been optimised. A couple of cases below
           clear this again.  */
        o->op_opt = 1;