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

Always count PL_compiling as a COP

It's always allocated as a full COP, never as anything else that could possibly
be smaller. Pass that information along.
---

diff --git a/Memory.xs b/Memory.xs
index 594565d..993ae0e 100644
--- a/Memory.xs
+++ b/Memory.xs
@@ -1441,7 +1441,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 */
-  op_size(aTHX_ (OP *)&PL_compiling, st, NPathLink("PL_compiling"));
+  op_size_class(aTHX_ (OP *)&PL_compiling, OPc_COP, st, NPathLink("PL_compiling"));
 
   /* TODO stacks: cur, main, tmps, mark, scope, save */
   /* TODO PL_exitlist */