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-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0477511c8fa7fbe068dff644e8b8d94e2d5c78c9;p=p5sagit%2Fp5-mst-13.2.git

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;