This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make -Dpv display the parser stack before reduction
authorDave Mitchell <davem@fdisolutions.com>
Wed, 13 Dec 2006 17:24:49 +0000 (17:24 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Wed, 13 Dec 2006 17:24:49 +0000 (17:24 +0000)
(rather than afterwards)

p4raw-id: //depot/perl@29549

perly.c

diff --git a/perly.c b/perly.c
index 8ac349a..193bae3 100644 (file)
--- 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;