From 760ac839baf413929cd31cc32ffd6dba6b781a81 Mon Sep 17 00:00:00 2001 From: Larry Wall Date: Sat, 10 Aug 1996 15:24:58 +0000 Subject: perl 5.003_02: [no incremental changelog available] --- perly.c | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'perly.c') diff --git a/perly.c b/perly.c index 2735893005..735330a73d 100644 --- a/perly.c +++ b/perly.c @@ -1406,7 +1406,7 @@ yyloop: yys = 0; if (yychar <= YYMAXTOKEN) yys = yyname[yychar]; if (!yys) yys = "illegal-symbol"; - fprintf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n", yystate, + PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n", yystate, yychar, yys); } #endif @@ -1416,7 +1416,7 @@ yyloop: { #if YYDEBUG if (yydebug) - fprintf(Perl_debug_log, "yydebug: state %d, shifting to state %d\n", + PerlIO_printf(Perl_debug_log, "yydebug: state %d, shifting to state %d\n", yystate, yytable[yyn]); #endif if (yyssp >= yyss + yystacksize - 1) @@ -1471,7 +1471,7 @@ yyinrecovery: { #if YYDEBUG if (yydebug) - fprintf(Perl_debug_log, + PerlIO_printf(Perl_debug_log, "yydebug: state %d, error recovery shifting to state %d\n", *yyssp, yytable[yyn]); #endif @@ -1501,7 +1501,7 @@ yyinrecovery: { #if YYDEBUG if (yydebug) - fprintf(Perl_debug_log, + PerlIO_printf(Perl_debug_log, "yydebug: error recovery discarding state %d\n", *yyssp); #endif @@ -1520,7 +1520,7 @@ yyinrecovery: yys = 0; if (yychar <= YYMAXTOKEN) yys = yyname[yychar]; if (!yys) yys = "illegal-symbol"; - fprintf(Perl_debug_log, + PerlIO_printf(Perl_debug_log, "yydebug: state %d, error recovery discards token %d (%s)\n", yystate, yychar, yys); } @@ -1531,7 +1531,7 @@ yyinrecovery: yyreduce: #if YYDEBUG if (yydebug) - fprintf(Perl_debug_log, "yydebug: state %d, reducing by rule %d (%s)\n", + PerlIO_printf(Perl_debug_log, "yydebug: state %d, reducing by rule %d (%s)\n", yystate, yyn, yyrule[yyn]); #endif yym = yylen[yyn]; @@ -2250,7 +2250,7 @@ break; { #if YYDEBUG if (yydebug) - fprintf(Perl_debug_log, + PerlIO_printf(Perl_debug_log, "yydebug: after reduction, shifting from state 0 to state %d\n", YYFINAL); #endif @@ -2266,7 +2266,7 @@ break; yys = 0; if (yychar <= YYMAXTOKEN) yys = yyname[yychar]; if (!yys) yys = "illegal-symbol"; - fprintf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n", + PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n", YYFINAL, yychar, yys); } #endif @@ -2281,7 +2281,7 @@ break; yystate = yydgoto[yym]; #if YYDEBUG if (yydebug) - fprintf(Perl_debug_log, + PerlIO_printf(Perl_debug_log, "yydebug: after reduction, shifting from state %d to state %d\n", *yyssp, yystate); #endif -- cgit v1.2.1