From: Vincent Pit <vince@profvince.com>
Date: Sun, 11 Jan 2009 12:08:45 +0000 (+0100)
Subject: Add some debug tracing code to su_unwind()
X-Git-Tag: v0.04~11
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=3003cd6ead0ae4788d43eb0715d63769b6bfc5fe;p=perl%2Fmodules%2FScope-Upper.git

Add some debug tracing code to su_unwind()
---

diff --git a/Upper.xs b/Upper.xs
index 8e7356d..486c28b 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -546,6 +546,14 @@ STATIC void su_unwind(pTHX_ void *ud_) {
   *PL_markstack_ptr = PL_stack_sp - PL_stack_base - items;
  }
 
+ SU_D({
+  PerlIO_printf(Perl_debug_log,
+                "%p: cx=%d gimme=%s items=%d sp=%d oldmark=%d mark=%d\n",
+                ud, cxix,
+                gimme == G_VOID ? "void" : gimme == G_ARRAY ? "list" : "scalar",
+                items, PL_stack_sp - PL_stack_base, *PL_markstack_ptr, mark);
+ });
+
  PL_op = PL_ppaddr[OP_RETURN](aTHX);
  *PL_markstack_ptr = mark;