diff options
| author | Larry Wall <lwall@sems.com> | 1996-08-10 15:24:58 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@sems.com> | 1996-08-10 15:24:58 +0000 |
| commit | 760ac839baf413929cd31cc32ffd6dba6b781a81 (patch) | |
| tree | 010ae8135426972c27b065782284341c839dc2a0 /vms/perly_c.vms | |
| parent | 43cc1d52f97c5f21f3207f045444707e7be33927 (diff) | |
| download | perl-760ac839baf413929cd31cc32ffd6dba6b781a81.tar.gz | |
perl 5.003_02: [no incremental changelog available]
Diffstat (limited to 'vms/perly_c.vms')
| -rw-r--r-- | vms/perly_c.vms | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/vms/perly_c.vms b/vms/perly_c.vms index c4cbeabcf1..b1cb69cdfc 100644 --- a/vms/perly_c.vms +++ b/vms/perly_c.vms @@ -1407,7 +1407,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 @@ -1417,7 +1417,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) @@ -1472,7 +1472,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 @@ -1502,7 +1502,7 @@ yyinrecovery: { #if YYDEBUG if (yydebug) - fprintf(Perl_debug_log, + PerlIO_printf(Perl_debug_log, "yydebug: error recovery discarding state %d\n", *yyssp); #endif @@ -1521,7 +1521,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); } @@ -1532,7 +1532,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]; @@ -2251,7 +2251,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 @@ -2267,7 +2267,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 @@ -2282,7 +2282,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 |