From: Florian Ragwitz <rafl@debian.org>
Date: Mon, 1 Oct 2012 01:27:16 +0000 (+0900)
Subject: Attempt to count PL_compiling
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e00be093a90151e94f62277366ffc58d3566a392;p=p5sagit%2FDevel-Size.git

Attempt to count PL_compiling

Often, PL_compiling will have an op_type of OP_NULL, making it being counted as
a regular base op. However, it's memory is being allocated within the
PerlInterpreter structure or in a proper global as a full COP, not just a
BASEOP. Therefore it's possible for it to be counted wrong right now.
---

diff --git a/Memory.xs b/Memory.xs
index 578d5fa..03426de 100644
--- a/Memory.xs
+++ b/Memory.xs
@@ -1433,7 +1433,7 @@ perl_size(pTHX_ struct state *const st, pPATH)
   sv_size(aTHX_ st, NPathLink("PL_main_start"), (SV*)PL_main_start, TOTAL_SIZE_RECURSION);
   /* TODO PL_pidstatus */
   /* TODO PL_stashpad */
-  /* TODO PL_compiling? COP */
+  op_size(aTHX_ (OP *)&PL_compiling, st, NPathLink("PL_compiling"));
 
   /* TODO stacks: cur, main, tmps, mark, scope, save */
   /* TODO PL_exitlist */