]> git.vpit.fr Git - perl/modules/Scope-Upper.git/commitdiff
Only define su_cxt_enter_count when XSH_DEBUG is set
authorVincent Pit <perl@profvince.com>
Mon, 6 Jun 2016 09:02:52 +0000 (11:02 +0200)
committerVincent Pit <perl@profvince.com>
Mon, 6 Jun 2016 09:02:52 +0000 (11:02 +0200)
Upper.xs

index f1a3e2491b8a13ff1dd59bc49ce625a695c3831e..114161a4879cd4ddfe7f13162360f09ecd0ce89e 100644 (file)
--- 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) {