From: Tim Bunce <Tim.Bunce@pobox.com>
Date: Thu, 11 Oct 2012 15:33:33 +0000 (+0100)
Subject: ifdef PL_my_cxt_size
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5bb04a692312ba7dd90c5fec351d60f872503fcb;p=p5sagit%2FDevel-Size.git

ifdef PL_my_cxt_size
---

diff --git a/SizeMe.xs b/SizeMe.xs
index 61b58d2..a079400 100644
--- a/SizeMe.xs
+++ b/SizeMe.xs
@@ -1656,6 +1656,7 @@ perl_size(pTHX_ struct state *const st, pPATH)
     ADD_SIZE(st, "PL_exitlist", (PL_exitlistlen * sizeof(PerlExitListEntry *))
                               + (PL_exitlistlen * sizeof(PerlExitListEntry)));
 #ifdef PERL_IMPLICIT_CONTEXT
+#ifdef PL_my_cxt_size
   if (PL_my_cxt_size && check_new(st, PL_my_cxt_list)) {
     ADD_SIZE(st, "PL_my_cxt_list", (PL_my_cxt_size * sizeof(void *)));
 #ifdef PERL_GLOBAL_STRUCT_PRIVATE
@@ -1663,6 +1664,7 @@ perl_size(pTHX_ struct state *const st, pPATH)
 #endif
   }
 #endif
+#endif
   /* TODO PL_stashpad */
   op_size_class(aTHX_ (OP*)&PL_compiling, OPc_COP, 1, st, NPathLink("PL_compiling"));
   op_size_class(aTHX_ (OP*)PL_curcopdb, OPc_COP, 0, st, NPathLink("PL_curcopdb"));