remove extraneous debugging code introduced by #29504

p4raw-id: //depot/perl@29508

1 files changed, 0 insertions, 34 deletions

diff --git a/perly.c b/perly.c
index bc83ab48ee..b0c8bab75d 100644
--- 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)