From: Dave Mitchell <davem@fdisolutions.com>
Date: Sat, 16 Dec 2006 01:36:28 +0000 (+0000)
Subject: fix a cast warning in perly.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ca06c01c30b19d0094642f2e317dadf13d4509cd;p=p5sagit%2Fp5-mst-13.2.git

fix a cast warning in perly.c

p4raw-id: //depot/perl@29560
---

diff --git a/perly.c b/perly.c
index 193bae3..e3f9357 100644
--- a/perly.c
+++ b/perly.c
@@ -174,7 +174,7 @@ yy_stack_print (pTHX_ const short *yyss, const short *yyssp, const YYSTYPE *yyvs
 	case toketype_i_tkval:
 #endif
 	case toketype_ival:
-	    PerlIO_printf(Perl_debug_log, " %8"IVdf, yyvs[start+i].ival);
+	    PerlIO_printf(Perl_debug_log, " %8"IVdf, (IV)yyvs[start+i].ival);
 	    break;
 	default:
 	    PerlIO_printf(Perl_debug_log, " %8"UVxf, (UV)yyvs[start+i].ival);