From: Vincent Pit Date: Sat, 8 Sep 2012 17:46:21 +0000 (+0200) Subject: Make SU_CXNAME take the context as argument X-Git-Tag: v0.20~26 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=979a80f45ad9c555a698eddbc9114e696817739f;p=perl%2Fmodules%2FScope-Upper.git Make SU_CXNAME take the context as argument --- diff --git a/Upper.xs b/Upper.xs index fd2e00e..76496ac 100644 --- a/Upper.xs +++ b/Upper.xs @@ -893,9 +893,9 @@ done: #if SU_DEBUG # ifdef DEBUGGING -# define SU_CXNAME PL_block_type[CxTYPE(&cxstack[cxstack_ix])] +# define SU_CXNAME(C) PL_block_type[CxTYPE(C)] # else -# define SU_CXNAME "XXX" +# define SU_CXNAME(C) "XXX" # endif #endif @@ -908,7 +908,7 @@ STATIC void su_pop(pTHX_ void *ud) { PerlIO_printf(Perl_debug_log, "%p: --- pop a %s\n" "%p: leave scope at depth=%2d scope_ix=%2d cur_top=%2d cur_base=%2d\n", - ud, SU_CXNAME, + ud, SU_CXNAME(cxstack + cxstack_ix), ud, depth, PL_scopestack_ix,PL_savestack_ix,PL_scopestack[PL_scopestack_ix]) );