This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
silence a warning in perly.c
authorDave Mitchell <davem@fdisolutions.com>
Sun, 7 Jan 2007 14:55:27 +0000 (14:55 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Sun, 7 Jan 2007 14:55:27 +0000 (14:55 +0000)
p4raw-id: //depot/perl@29706

perly.c

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++)