summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Lester <andy@petdance.com>2006-02-12 17:04:56 -0600
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-02-17 15:09:11 +0000
commitac9a03528e98d7fdfa8511d06daa4240617f8b28 (patch)
tree5d55043a69f878abaa9c7c8291912dea0db21bd1
parentf97a0ef27cbaddb0a75b0772eacfc746e93f62f4 (diff)
downloadperl-ac9a03528e98d7fdfa8511d06daa4240617f8b28.tar.gz
cleaning up perly.c
Message-ID: <20060213050455.GA27993@petdance.com> p4raw-id: //depot/perl@27208
-rw-r--r--perly.c11
1 files changed, 2 insertions, 9 deletions
diff --git a/perly.c b/perly.c
index c3f039b5d2..c4941563c7 100644
--- a/perly.c
+++ b/perly.c
@@ -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)