[svn:parrot] r43693 - branches/gc_encapsulate/src/gc

bacek at svn.parrot.org bacek at svn.parrot.org
Mon Feb 1 21:08:23 UTC 2010


Author: bacek
Date: Mon Feb  1 21:08:23 2010
New Revision: 43693
URL: https://trac.parrot.org/parrot/changeset/43693

Log:
Partially implement gc_ms_get_info

Modified:
   branches/gc_encapsulate/src/gc/gc_ms.c

Modified: branches/gc_encapsulate/src/gc/gc_ms.c
==============================================================================
--- branches/gc_encapsulate/src/gc/gc_ms.c	Mon Feb  1 21:08:02 2010	(r43692)
+++ branches/gc_encapsulate/src/gc/gc_ms.c	Mon Feb  1 21:08:23 2010	(r43693)
@@ -679,6 +679,29 @@
 gc_ms_get_gc_info(PARROT_INTERP, Interpinfo_enum which)
 {
     ASSERT_ARGS(gc_ms_get_gc_info)
+
+    Memory_Pools * const mem_pools = (Memory_Pools*)interp->gc_sys->gc_private;
+    switch(which) {
+        case TOTAL_MEM_ALLOC:
+            return mem_pools->memory_allocated;
+        case GC_MARK_RUNS:
+            return mem_pools->gc_mark_runs;
+        case GC_COLLECT_RUNS:
+            return mem_pools->gc_collect_runs;
+        case ACTIVE_PMCS:
+        case ACTIVE_BUFFERS:
+        case TOTAL_PMCS:
+        case TOTAL_BUFFERS:
+        case HEADER_ALLOCS_SINCE_COLLECT:
+        case MEM_ALLOCS_SINCE_COLLECT:
+        case TOTAL_COPIED:
+        case IMPATIENT_PMCS:
+        case GC_LAZY_MARK_RUNS:
+        case EXTENDED_PMCS:
+        case CURRENT_RUNCORE:
+        default:
+            break;
+    }
     return 0;
 }
 


More information about the parrot-commits mailing list