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 | |
| parent | 43cc1d52f97c5f21f3207f045444707e7be33927 (diff) | |
| download | perl-760ac839baf413929cd31cc32ffd6dba6b781a81.tar.gz | |
perl 5.003_02: [no incremental changelog available]
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/perly_c.vms | 18 | ||||
| -rw-r--r-- | vms/vms.c | 2 |
2 files changed, 10 insertions, 10 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 @@ -349,7 +349,7 @@ kill_file(char *name) * VMS seem to return success on the unlock operation anyhow (after all * the unlock is successful), but others don't. */ - if (fndsts == RMS$_FNF || fndsts == SS$_NOSUCHOBJECT) fndsts == SS$_NORMAL; + if (fndsts == RMS$_FNF || fndsts == SS$_NOSUCHOBJECT) fndsts = SS$_NORMAL; if (aclsts & 1) aclsts = fndsts; if (!(aclsts & 1)) { set_errno(EVMSERR); |