From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Sun, 15 Feb 1998 17:49:46 +0000 (-0500)
Subject: 5% speedup in an empty loop
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fd4d14078b82560da929cbc223603d6d67efc540;p=p5sagit%2Fp5-mst-13.2.git

5% speedup in an empty loop

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

diff --git a/op.c b/op.c
index 593667d..d622b0e 100644
--- a/op.c
+++ b/op.c
@@ -4825,6 +4825,8 @@ peep(register OP *o)
 	case OP_AND:
 	case OP_OR:
 	    o->op_seq = op_seqmax++;
+	    while (cLOGOP->op_other->op_type == OP_NULL)
+		cLOGOP->op_other = cLOGOP->op_other->op_next;
 	    peep(cLOGOP->op_other);
 	    break;