silence a warning in perly.c

p4raw-id: //depot/perl@29706

diff --git a/perly.c b/perly.c
index 4505475..a9e569d 100644 (file)
--- 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++)