5% speedup in an empty loop

p4raw-id: //depot/perl@545

diff --git a/op.c b/op.c
index 593667d..d622b0e 100644 (file)
--- 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;