From: Dave Mitchell <davem@fdisolutions.com>
Date: Wed, 13 Dec 2006 17:24:49 +0000 (+0000)
Subject: make -Dpv display the parser stack before reduction
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4d28fe79573bb61e3777837866812631f24ed631;p=p5sagit%2Fp5-mst-13.2.git

make -Dpv display the parser stack before reduction
(rather than afterwards)

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

diff --git a/perly.c b/perly.c
index 8ac349a..193bae3 100644
--- a/perly.c
+++ b/perly.c
@@ -672,7 +672,7 @@ Perl_yyparse (pTHX)
       GCC warning that YYVAL may be used uninitialized.  */
     yyval = yyvsp[1-yylen];
 
-
+    YY_STACK_PRINT (yyss, yyssp, yyvs, yyns);
     YY_REDUCE_PRINT (yyn);
 
     /* running external code may trigger a die (eg 'use nosuchmodule'):
@@ -752,16 +752,6 @@ Perl_yyparse (pTHX)
 	yystate = yytable[yystate];
     else
 	yystate = yydefgoto[yyn - YYNTOKENS];
-
-#ifdef DEBUGGING
-    /* tmp push yystate for stack print; this is normally pushed later in
-     * yynewstate */
-    yyssp++;
-    *yyssp = yystate;
-    YY_STACK_PRINT (yyss, yyssp, yyvs, yyns);
-    yyssp--;
-#endif
-
     goto yynewstate;