diff options
| author | Andy Lester <andy@petdance.com> | 2006-02-12 17:04:56 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-02-17 15:09:11 +0000 |
| commit | ac9a03528e98d7fdfa8511d06daa4240617f8b28 (patch) | |
| tree | 5d55043a69f878abaa9c7c8291912dea0db21bd1 | |
| parent | f97a0ef27cbaddb0a75b0772eacfc746e93f62f4 (diff) | |
| download | perl-ac9a03528e98d7fdfa8511d06daa4240617f8b28.tar.gz | |
cleaning up perly.c
Message-ID: <20060213050455.GA27993@petdance.com>
p4raw-id: //depot/perl@27208
| -rw-r--r-- | perly.c | 11 |
1 files changed, 2 insertions, 9 deletions
@@ -89,17 +89,11 @@ do { \ YYFPRINTF Args; \ } while (0) -# define YYDSYMPRINT(Args) \ -do { \ - if (yydebug) \ - yysymprint Args; \ -} while (0) - # define YYDSYMPRINTF(Title, Token, Value) \ do { \ if (yydebug) { \ YYFPRINTF (Perl_debug_log, "%s ", Title); \ - yysymprint (aTHX_ Perl_debug_log, Token, Value); \ + yysymprint (Perl_debug_log, Token, Value); \ YYFPRINTF (Perl_debug_log, "\n"); \ } \ } while (0) @@ -109,7 +103,7 @@ do { \ `--------------------------------*/ static void -yysymprint (pTHX_ PerlIO *yyoutput, int yytype, const YYSTYPE *yyvaluep) +yysymprint(PerlIO * const yyoutput, int yytype, const YYSTYPE * const yyvaluep) { if (yytype < YYNTOKENS) { YYFPRINTF (yyoutput, "token %s (", yytname[yytype]); @@ -189,7 +183,6 @@ do { \ #else /* !DEBUGGING */ # define YYDPRINTF(Args) -# define YYDSYMPRINT(Args) # define YYDSYMPRINTF(Title, Token, Value) # define YY_STACK_PRINT(yyss, yyssp, yyvs, yyns) # define YY_REDUCE_PRINT(Rule) |