From: Dave Mitchell <davem@fdisolutions.com>
Date: Sun, 7 Jan 2007 14:55:27 +0000 (+0000)
Subject: silence a warning in perly.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=00c0e1ee57fe86089ee3a3ed6f81554b21786f43;p=p5sagit%2Fp5-mst-13.2.git

silence a warning in perly.c

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

diff --git a/perly.c b/perly.c
index 4505475..a9e569d 100644
--- a/perly.c
+++ b/perly.c
@@ -111,7 +111,7 @@ yy_stack_print (pTHX_ const yy_parser *parser)
 
     PerlIO_printf(Perl_debug_log, "\nindex:");
     for (ps = min; ps <= parser->ps; ps++)
-	PerlIO_printf(Perl_debug_log, " %8d", ps - parser->stack);
+	PerlIO_printf(Perl_debug_log, " %8d", (int)(ps - parser->stack));
 
     PerlIO_printf(Perl_debug_log, "\nstate:");
     for (ps = min; ps <= parser->ps; ps++)