From: Vincent Pit <perl@profvince.com>
Date: Mon, 6 Jun 2016 09:02:52 +0000 (+0200)
Subject: Only define su_cxt_enter_count when XSH_DEBUG is set
X-Git-Tag: rt112246^2~3
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=70148496e0d2fce5974ae1a869f06b22bd7c119d;p=perl%2Fmodules%2FScope-Upper.git

Only define su_cxt_enter_count when XSH_DEBUG is set
---

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) {