From: Dave Mitchell <davem@fdisolutions.com>
Date: Mon, 11 Dec 2006 11:41:10 +0000 (+0000)
Subject: remove extraneous debugging code introduced by #29504
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c79bbeaf9959de37889eda1f77c9af1212f538ec;hp=910ad8ddac314a1e7431e609ac34bf3a0adc304b;p=p5sagit%2Fp5-mst-13.2.git

remove extraneous debugging code introduced by #29504

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

diff --git a/perly.c b/perly.c
index bc83ab4..b0c8bab 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)