From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 6 Apr 2007 22:32:02 +0000 (+0000)
Subject: assert() that OP_QR and OP_MATCH never set op_pmreplstart, which
X-Git-Tag: perl-5.9.5~626
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/0477511c8fa7fbe068dff644e8b8d94e2d5c78c9

assert() that OP_QR and OP_MATCH never set op_pmreplstart, which
simplifies the peep hole optimiser slightly.

p4raw-id: //depot/perl@30859
---

diff --git a/op.c b/op.c
index 56b9d9f..bb9dc60 100644
--- a/op.c
+++ b/op.c
@@ -8031,8 +8031,6 @@ Perl_peep(pTHX_ register OP *o)
 	    peep(cLOOP->op_lastop);
 	    break;
 
-	case OP_QR:
-	case OP_MATCH:
 	case OP_SUBST:
 	    o->op_opt = 1;
 	    while (cPMOP->op_pmreplstart &&
@@ -8427,6 +8425,10 @@ Perl_peep(pTHX_ register OP *o)
 	}
 
 	
+	case OP_QR:
+	case OP_MATCH:
+	    assert (!cPMOP->op_pmreplstart);
+	    /* FALL THROUGH */
 	default:
 	    o->op_opt = 1;
 	    break;