Stub implementation of GC MS get_info

git-svn-id: https://svn.parrot.org/parrot/branches/gc_encapsulate@43479 d31e2699-5ff4-0310-a27c-f18f2fbe73fe

src/gc/gc_ms.c

@@ -95,6 +95,9 @@ static void * gc_ms_get_free_object(PARROT_INTERP,
         __attribute__nonnull__(3)
         FUNC_MODIFIES(*pool);
 
+static size_t gc_ms_get_gc_info(PARROT_INTERP, Interpinfo_enum which)
+        __attribute__nonnull__(1);
+
 static void gc_ms_init_child_inter(
     ARGIN(Interp *parent_interp),
     ARGIN(Interp *child_interp))
@@ -188,6 +191,8 @@ static void Parrot_gc_free_attributes_from_pool(PARROT_INTERP,
        PARROT_ASSERT_ARG(interp) \
     , PARROT_ASSERT_ARG(mem_pools) \
     , PARROT_ASSERT_ARG(pool))
+#define ASSERT_ARGS_gc_ms_get_gc_info __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+       PARROT_ASSERT_ARG(interp))
 #define ASSERT_ARGS_gc_ms_init_child_inter __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(parent_interp) \
     , PARROT_ASSERT_ARG(child_interp))
@@ -262,6 +267,8 @@ Parrot_gc_ms_init(PARROT_INTERP)
     gc->block_gc_sweep          = gc_ms_block_gc_sweep;
     gc->unblock_gc_sweep        = gc_ms_unblock_gc_sweep;
 
+    gc->get_gc_info             = gc_ms_get_gc_info;
+
     mem_pools->init_pool          = gc_ms_pool_init;
     mem_pools->num_sized          = 0;
     mem_pools->num_attribs        = 0;
@@ -581,6 +588,13 @@ gc_ms_unblock_gc_sweep(PARROT_INTERP)
         mem_pools->gc_sweep_block_level--;
 }
 
+static size_t
+gc_ms_get_gc_info(PARROT_INTERP, Interpinfo_enum which)
+{
+    ASSERT_ARGS(gc_ms_get_gc_info)
+    return 0;
+}
+
 /*
 
 =item C<static int gc_ms_trace_active_PMCs(PARROT_INTERP, Parrot_gc_trace_type