[svn:parrot] r49357 - branches/generational_gc/src/gc

[mikehh at svn.parrot.org]

Author: mikehh
Date: Mon Sep 27 12:25:04 2010
New Revision: 49357
URL: https://trac.parrot.org/parrot/changeset/49357

Log:
[generational_gc] fix codetest failures, macro args, c_parens and add documentation

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

Modified: branches/generational_gc/src/gc/gc_ms2.c
==============================================================================
--- branches/generational_gc/src/gc/gc_ms2.c	Mon Sep 27 11:25:59 2010	(r49356)
+++ branches/generational_gc/src/gc/gc_ms2.c	Mon Sep 27 12:25:04 2010	(r49357)
@@ -39,20 +39,18 @@
 #define PANIC_OUT_OF_MEM(size) failed_allocation(__LINE__, (size))
 
 /* Get generation from PObj->flags */
-#define PObj_to_generation(pobj)                    \
-    (                                               \
-        (pobj)->flags & PObj_GC_generation_0_FLAG   \
-        ? 1                                         \
-        : (pobj->flags) & PObj_GC_generation_1_FLAG \
-            ? 2                                     \
-            : 0                                     \
-    )
-
-#define generation_to_flags(gen)                    \
-    (gen) == 1                                      \
-        ? PObj_GC_generation_0_FLAG                 \
-        : (gen) == 2                                \
-            ? PObj_GC_generation_1_FLAG             \
+#define PObj_to_generation(pobj)                      \
+    ((pobj)->flags & PObj_GC_generation_0_FLAG        \
+        ? 1                                           \
+        : ((pobj)->flags) & PObj_GC_generation_1_FLAG \
+            ? 2                                       \
+            : 0)
+
+#define generation_to_flags(gen)                      \
+    (gen) == 1                                        \
+        ? PObj_GC_generation_0_FLAG                   \
+        : (gen) == 2                                  \
+            ? PObj_GC_generation_1_FLAG               \
             : 0
 
 /* Private information */
@@ -871,9 +869,10 @@
 }
 
 /*
-=item C<gc_ms2_allocate_string_header()>
 
-=item C<gc_ms2_free_string_header()>
+=item C<gc_ms2_allocate_string_header(PARROT_INTERP, STRING *str)>
+
+=item C<gc_ms2_free_string_header(PARROT_INTERP, STRING *s)>
 
 =item C<static Buffer* gc_ms2_allocate_buffer_header(PARROT_INTERP, size_t
 size)>
@@ -971,16 +970,16 @@
 
 /*
 
-item C<void gc_ms_allocate_string_storage(PARROT_INTERP, STRING *str, size_t
+item C<void gc_ms2_allocate_string_storage(PARROT_INTERP, STRING *str, size_t
 size)>
 
-=item C<void gc_ms_reallocate_string_storage(PARROT_INTERP, STRING *str, size_t
+=item C<void gc_ms2_reallocate_string_storage(PARROT_INTERP, STRING *str, size_t
 size)>
 
-=item C<void gc_ms_allocate_buffer_storage(PARROT_INTERP, Buffer *str, size_t
+=item C<void gc_ms2_allocate_buffer_storage(PARROT_INTERP, Buffer *str, size_t
 size)>
 
-=item C<void gc_ms_reallocate_buffer_storage(PARROT_INTERP, Buffer *str, size_t
+=item C<void gc_ms2_reallocate_buffer_storage(PARROT_INTERP, Buffer *str, size_t
 size)>
 
 Functions for allocating strings/buffers storage.
@@ -1024,6 +1023,16 @@
     interp->gc_sys->stats.mem_used_last_collect += size;
 }
 
+/*
+
+=item C<static void gc_ms2_mark_string_header(PARROT_INTERP, STRING *str)>
+
+Mark String
+
+=cut
+
+*/
+
 static void
 gc_ms2_mark_string_header(PARROT_INTERP, ARGIN(STRING *str))
 {
@@ -1122,6 +1131,17 @@
     gc_ms2_iterate_string_list(interp, self->strings[2], callback, data);
 }
 
+/*
+
+=item C<static void gc_ms2_iterate_string_list(PARROT_INTERP, Linked_List *list,
+string_iterator_callback callback, void *data)>
+
+Iterate over string list
+
+=cut
+
+*/
+
 static void
 gc_ms2_iterate_string_list(PARROT_INTERP,
         ARGIN(Linked_List *list),
@@ -1248,6 +1268,17 @@
     gc_ms2_compact_memory_pool(interp);
 }
 
+/*
+
+=item C<static void gc_ms2_propagate_to_older_generation(PARROT_INTERP, size_t
+current_gen, Linked_List *from, Linked_List *to)>
+
+Move to Older Generation
+
+=cut
+
+*/
+
 static void
 gc_ms2_propagate_to_older_generation(PARROT_INTERP,
         size_t current_gen,