summaryrefslogtreecommitdiff
path: root/perly.c
diff options
context:
space:
mode:
authorRobin Barker <RMBarker@cpan.org>2005-04-12 19:53:32 +0100
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-04-13 08:25:43 +0000
commite45843364c6c14961f5f9e7f270e051a7c0891dc (patch)
tree0316baca9c377f81ce1a2f12d3d9674cb1c0f056 /perly.c
parent76ca89edebb126a10dcdc3521c9db0680eba1b5c (diff)
downloadperl-e45843364c6c14961f5f9e7f270e051a7c0891dc.tar.gz
-Wformat
Message-ID: <533D273D4014D411AB1D00062938C4D90849C634@hotel.npl.co.uk> p4raw-id: //depot/perl@24233
Diffstat (limited to 'perly.c')
-rw-r--r--perly.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/perly.c b/perly.c
index 75c7ed3d43..d763c0e15a 100644
--- a/perly.c
+++ b/perly.c
@@ -119,7 +119,7 @@ yysymprint (pTHX_ PerlIO *yyoutput, int yytype, YYSTYPE *yyvaluep)
# ifdef YYPRINT
YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
# else
- YYFPRINTF (yyoutput, "0x%x", yyvaluep->ival);
+ YYFPRINTF (yyoutput, "0x%"UVxf, (UV)yyvaluep->ival);
# endif
}
else
@@ -160,7 +160,7 @@ yy_stack_print (pTHX_ short *yyss, short *yyssp, YYSTYPE *yyvs, const char**yyns
PerlIO_printf(Perl_debug_log, " %8.8s", *yyns);
PerlIO_printf(Perl_debug_log, "\nvalue:");
for (i=0, yyvs += start; i < count; i++, yyvs++)
- PerlIO_printf(Perl_debug_log, " %8x", yyvs->ival);
+ PerlIO_printf(Perl_debug_log, " %8"UVxf, (UV)yyvs->ival);
PerlIO_printf(Perl_debug_log, "\n\n");
}