From: Dave Mitchell <davem@fdisolutions.com>
Date: Tue, 19 Dec 2006 02:25:19 +0000 (+0000)
Subject: make -Dpv print 8 parser stack items, not 9
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2d29f438a90c25ad972d2cbbc131c54da2b0d8ba;p=p5sagit%2Fp5-mst-13.2.git

make -Dpv print 8 parser stack items, not 9

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

diff --git a/perly.c b/perly.c
index ad01d38..d5b243b 100644
--- a/perly.c
+++ b/perly.c
@@ -106,7 +106,7 @@ yy_stack_print (pTHX_ const yy_parser *parser)
 {
     const yy_stack_frame *ps, *min;
 
-    min = parser->ps - 8;
+    min = parser->ps - 8 + 1;
     if (min <= &parser->stack[0])
 	min = &parser->stack[0] + 1;