[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