[svn:parrot] r49739 - branches/gc_ms2_sf/src/gc

[chromatic at svn.parrot.org]

Author: chromatic
Date: Sat Oct 30 23:06:14 2010
New Revision: 49739
URL: https://trac.parrot.org/parrot/changeset/49739

Log:
[GC] Removed constant STRINGs from memory stats.

Modified:
   branches/gc_ms2_sf/src/gc/gc_ms2.c

Modified: branches/gc_ms2_sf/src/gc/gc_ms2.c
==============================================================================
--- branches/gc_ms2_sf/src/gc/gc_ms2.c	Sat Oct 30 23:06:11 2010	(r49738)
+++ branches/gc_ms2_sf/src/gc/gc_ms2.c	Sat Oct 30 23:06:14 2010	(r49739)
@@ -869,8 +869,6 @@
 
     /* Increase used memory. Not precisely accurate due Pool_Allocator paging */
     ++interp->gc_sys->stats.header_allocs_since_last_collect;
-    interp->gc_sys->stats.memory_allocated      += sizeof (STRING);
-    interp->gc_sys->stats.mem_used_last_collect += sizeof (STRING);
 
     ptr = (List_Item_Header *)Parrot_gc_pool_allocate(interp, pool);
 
@@ -878,7 +876,10 @@
         LIST_APPEND(self->constant_strings, ptr);
     }
     else {
+        /* only reclaimable STRINGs count toward memory limits */
         LIST_APPEND(self->strings, ptr);
+        interp->gc_sys->stats.memory_allocated      += sizeof (STRING);
+        interp->gc_sys->stats.mem_used_last_collect += sizeof (STRING);
     }
 
     ret = LLH2Obj_typed(ptr, STRING);