diff options
| author | Robin Barker <RMBarker@cpan.org> | 2005-04-12 19:53:32 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-04-13 08:25:43 +0000 |
| commit | e45843364c6c14961f5f9e7f270e051a7c0891dc (patch) | |
| tree | 0316baca9c377f81ce1a2f12d3d9674cb1c0f056 /toke.c | |
| parent | 76ca89edebb126a10dcdc3521c9db0680eba1b5c (diff) | |
| download | perl-e45843364c6c14961f5f9e7f270e051a7c0891dc.tar.gz | |
-Wformat
Message-ID: <533D273D4014D411AB1D00062938C4D90849C634@hotel.npl.co.uk>
p4raw-id: //depot/perl@24233
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -297,7 +297,7 @@ S_tokereport(pTHX_ const char* s, I32 rv) case TOKENTYPE_GVVAL: /* doesn't appear to be used */ break; case TOKENTYPE_IVAL: - Perl_sv_catpvf(aTHX_ report, "(ival=%"IVdf")", yylval.ival); + Perl_sv_catpvf(aTHX_ report, "(ival=%"IVdf")", (IV)yylval.ival); break; case TOKENTYPE_OPNUM: Perl_sv_catpvf(aTHX_ report, "(ival=op_%s)", @@ -314,7 +314,7 @@ S_tokereport(pTHX_ const char* s, I32 rv) Perl_sv_catpv(aTHX_ report, "(opval=null)"); break; } - Perl_sv_catpvf(aTHX_ report, " at line %d [", CopLINE(PL_curcop)); + Perl_sv_catpvf(aTHX_ report, " at line %"IVdf" [", (IV)CopLINE(PL_curcop)); if (s - PL_bufptr > 0) sv_catpvn(report, PL_bufptr, s - PL_bufptr); else { |