printf argument mismatch in Perl_deb_stack_all() from change #17718

p4raw-link: @17718 on //depot/perl: d672126634c5e568812ed35d4c8ea53a9a55ee4c

p4raw-id: //depot/perl@17842

diff --git a/deb.c b/deb.c
index 37b42e1..873e2be 100644 (file)
--- a/deb.c
+++ b/deb.c
@@ -191,7 +191,7 @@ Perl_deb_stack_all(pTHX)
        else
            si_name = si_names[si_name_ix];
        PerlIO_printf(Perl_debug_log, "STACK %"IVdf": %s\n",
-                                               si_ix, si_name);
+                                               (IV)si_ix, si_name);
 
        for (ix=0; ix<=si->si_cxix; ix++) {