From: Hugo van der Sanden <hv@crypt.org>
Date: Wed, 4 Sep 2002 14:04:40 +0000 (+0000)
Subject: printf argument mismatch in Perl_deb_stack_all() from change #17718
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e922992d3370dcca40f9805ac727487fedcdf389;p=p5sagit%2Fp5-mst-13.2.git

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