fix a cast warning in perly.c

[p5sagit/p5-mst-13.2.git] / perly.c

diff --git a/perly.c b/perly.c
index 193bae3..e3f9357 100644 (file)
--- 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);