This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
markstack_grow(): fix debugging stuff
authorDavid Mitchell <davem@iabyn.com>
Wed, 2 Dec 2015 12:04:08 +0000 (12:04 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 2 Dec 2015 12:08:48 +0000 (12:08 +0000)
This is a follow-on to commit ac07059afc75:

    FOOMARK debugging macros: fix %d cast; only -Dsv

which missed fixing up the debugging statement in markstack_grow().

scope.c

diff --git a/scope.c b/scope.c
index 037bbc0..7df465f 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -131,8 +131,9 @@ Perl_markstack_grow(pTHX)
     Renew(PL_markstack, newmax, I32);
     PL_markstack_max = PL_markstack + newmax;
     PL_markstack_ptr = PL_markstack + oldmax;
-    DEBUG_s(PerlIO_printf(Perl_debug_log, "MARK grow %p %d by %d\n",
-            PL_markstack_ptr, *PL_markstack_ptr, oldmax));
+    DEBUG_s(DEBUG_v(PerlIO_printf(Perl_debug_log,
+            "MARK grow %p %"IVdf" by %"IVdf"\n",
+            PL_markstack_ptr, (IV)*PL_markstack_ptr, (IV)oldmax)));
     return PL_markstack_ptr;
 }