This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
473edb6
)
markstack_grow(): fix debugging stuff
author
David Mitchell
<davem@iabyn.com>
Wed, 2 Dec 2015 12:04:08 +0000
(12:04 +0000)
committer
David 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
patch
|
blob
|
blame
|
history
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;
}