Change 29508 by [EMAIL PROTECTED] on 2006/12/11 11:41:10

        remove extraneous debugging code introduced by #29504

Affected files ...

... //depot/perl/perly.c#91 edit

Differences ...

==== //depot/perl/perly.c#91 (text) ====
Index: perl/perly.c
--- perl/perly.c#90~29504~      2006-12-10 16:48:06.000000000 -0800
+++ perl/perly.c        2006-12-11 03:41:10.000000000 -0800
@@ -676,23 +676,6 @@
     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 @@
        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)
End of Patch.

Reply via email to