assert op not freed in finalize_op() and rpeep()

This should never happen.

1 files changed, 4 insertions, 0 deletions

diff --git a/op.c b/op.c
index cedc5e80b4..306395afa6 100644
--- a/op.c
+++ b/op.c
@@ -2501,6 +2501,7 @@ S_finalize_op(pTHX_ OP* o)
 {
     PERL_ARGS_ASSERT_FINALIZE_OP;
 
+    assert(o->op_type != OP_FREED);
 
     switch (o->op_type) {
     case OP_NEXTSTATE:
@@ -13297,6 +13298,9 @@ Perl_rpeep(pTHX_ OP *o)
 
     if (!o || o->op_opt)
 	return;
+
+    assert(o->op_type != OP_FREED);
+
     ENTER;
     SAVEOP();
     SAVEVPTR(PL_curcop);