remove extraneous debugging code introduced by #29504
Dave Mitchell [Mon, 11 Dec 2006 11:41:10 +0000 (11:41 +0000)]
p4raw-id: //depot/perl@29508

perly.c

diff --git a/perly.c b/perly.c
index bc83ab4..b0c8bab 100644 (file)
--- a/perly.c
+++ b/perly.c
@@ -676,23 +676,6 @@ Perl_yyparse (pTHX)
     yyssp++;
     *yyssp = yystate;
     YY_STACK_PRINT (yyss, yyssp, yyvs, yyns);
-    if (yydebug && DEBUG_v_TEST)
-    {
-       /* XXX */
-       int i;
-       int start = 1;
-       int count = (int)(yyssp - yyss);
-
-       if (count > 8) {
-           start = count - 8 + 1;
-           count = 8;
-       }
-
-       PerlIO_printf(Perl_debug_log, "cppad:");
-       for (i=0; i < count; i++)
-           PerlIO_printf(Perl_debug_log, " %8p", yyps[start+i]);
-       PerlIO_printf(Perl_debug_log, "\n");
-    }
     yyssp--;
 #endif
 
@@ -826,23 +809,6 @@ Perl_yyparse (pTHX)
        yystate = *--yyssp;
 
        YY_STACK_PRINT (yyss, yyssp, yyvs, yyns);
-       if (yydebug && DEBUG_v_TEST)
-       {
-           /* XXX */
-           int i;
-           int start = 1;
-           int count = (int)(yyssp - yyss);
-
-           if (count > 8) {
-               start = count - 8 + 1;
-               count = 8;
-           }
-
-           PerlIO_printf(Perl_debug_log, "cppad:");
-           for (i=0; i < count; i++)
-               PerlIO_printf(Perl_debug_log, " %8p", yyps[start+i]);
-           PerlIO_printf(Perl_debug_log, "\n");
-       }
     }
 
     if (yyn == YYFINAL)