X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=blobdiff_plain;f=Upper.xs;h=114161a4879cd4ddfe7f13162360f09ecd0ce89e;hp=f1a3e2491b8a13ff1dd59bc49ce625a695c3831e;hb=70148496e0d2fce5974ae1a869f06b22bd7c119d;hpb=4229b39e5533bbe91f1c56d47401b8602ed62dbc

diff --git a/Upper.xs b/Upper.xs
index f1a3e24..114161a 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -1050,6 +1050,8 @@ static const char *su_block_type[] = {
 
 #define SU_CXNAME(C) SU_CX_TYPENAME(CxTYPE(C))
 
+#if XSH_DEBUG
+
 /* for debugging. These indicate how many ENTERs each context type
  * does before the PUSHBLOCK */
 
@@ -1069,6 +1071,8 @@ static const int su_cxt_enter_count[] = {
 # endif
 };
 
+#endif /* XSH_DEBUG */
+
 /* push at least 'size' slots worth of padding onto the savestack */
 
 static void su_ss_push_padding(pTHX_ void *ud, I32 size) {