ifdef PL_my_cxt_size
Tim Bunce [Thu, 11 Oct 2012 15:33:33 +0000 (16:33 +0100)]
SizeMe.xs

index 61b58d2..a079400 100644 (file)
--- 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"));