[svn:parrot] r45166 - trunk/src/gc

petdance at svn.parrot.org petdance at svn.parrot.org
Thu Mar 25 00:11:35 UTC 2010


Author: petdance
Date: Thu Mar 25 00:11:27 2010
New Revision: 45166
URL: https://trac.parrot.org/parrot/changeset/45166

Log:
more const correctness in GC land

Modified:
   trunk/src/gc/gc_private.h
   trunk/src/gc/mark_sweep.c
   trunk/src/gc/system.c

Modified: trunk/src/gc/gc_private.h
==============================================================================
--- trunk/src/gc/gc_private.h	Wed Mar 24 23:40:04 2010	(r45165)
+++ trunk/src/gc/gc_private.h	Thu Mar 25 00:11:27 2010	(r45166)
@@ -314,8 +314,7 @@
 /* HEADERIZER BEGIN: src/gc/system.c */
 /* Don't modify between HEADERIZER BEGIN / HEADERIZER END.  Your changes will be lost. */
 
-void trace_system_areas(PARROT_INTERP,
-    ARGIN(Memory_Pools * const mem_pools))
+void trace_system_areas(PARROT_INTERP, ARGIN(const Memory_Pools *mem_pools))
         __attribute__nonnull__(1)
         __attribute__nonnull__(2);
 
@@ -338,10 +337,11 @@
 PARROT_WARN_UNUSED_RESULT
 PARROT_CANNOT_RETURN_NULL
 Fixed_Size_Pool * get_bufferlike_pool(PARROT_INTERP,
-    ARGIN(Memory_Pools * const mem_pools),
+    ARGMOD(Memory_Pools *mem_pools),
     size_t buffer_size)
         __attribute__nonnull__(1)
-        __attribute__nonnull__(2);
+        __attribute__nonnull__(2)
+        FUNC_MODIFIES(*mem_pools);
 
 PARROT_IGNORABLE_RESULT
 int /*@alt void@*/
@@ -360,43 +360,41 @@
         __attribute__nonnull__(2);
 
 void mark_special(PARROT_INTERP,
-    ARGIN(Memory_Pools * const mem_pools),
+    ARGMOD(Memory_Pools *mem_pools),
     ARGIN(PMC *obj))
         __attribute__nonnull__(1)
         __attribute__nonnull__(2)
-        __attribute__nonnull__(3);
+        __attribute__nonnull__(3)
+        FUNC_MODIFIES(*mem_pools);
 
-void Parrot_add_to_free_list(PARROT_INTERP,
+void Parrot_add_to_free_list(SHIM_INTERP,
     ARGMOD(Fixed_Size_Pool *pool),
     ARGMOD(Fixed_Size_Arena *arena))
-        __attribute__nonnull__(1)
         __attribute__nonnull__(2)
         __attribute__nonnull__(3)
         FUNC_MODIFIES(*pool)
         FUNC_MODIFIES(*arena);
 
-void Parrot_append_arena_in_pool(PARROT_INTERP,
-    ARGIN(Memory_Pools * const mem_pools),
+void Parrot_append_arena_in_pool(SHIM_INTERP,
+    ARGMOD(Memory_Pools *mem_pools),
     ARGMOD(Fixed_Size_Pool *pool),
     ARGMOD(Fixed_Size_Arena *new_arena),
     size_t size)
-        __attribute__nonnull__(1)
         __attribute__nonnull__(2)
         __attribute__nonnull__(3)
         __attribute__nonnull__(4)
+        FUNC_MODIFIES(*mem_pools)
         FUNC_MODIFIES(*pool)
         FUNC_MODIFIES(*new_arena);
 
-void Parrot_gc_clear_live_bits(PARROT_INTERP,
+void Parrot_gc_clear_live_bits(SHIM_INTERP,
     ARGIN(const Fixed_Size_Pool *pool))
-        __attribute__nonnull__(1)
         __attribute__nonnull__(2);
 
 PARROT_CANNOT_RETURN_NULL
-PMC_Attribute_Pool * Parrot_gc_get_attribute_pool(PARROT_INTERP,
+PMC_Attribute_Pool * Parrot_gc_get_attribute_pool(SHIM_INTERP,
     ARGIN(Memory_Pools * const mem_pools),
     size_t attrib_size)
-        __attribute__nonnull__(1)
         __attribute__nonnull__(2);
 
 PARROT_CANNOT_RETURN_NULL
@@ -406,30 +404,30 @@
         __attribute__nonnull__(2)
         FUNC_MODIFIES(* pool);
 
-void Parrot_gc_initialize_fixed_size_pools(PARROT_INTERP,
+void Parrot_gc_initialize_fixed_size_pools(SHIM_INTERP,
     ARGIN(Memory_Pools * const mem_pools),
     size_t init_num_pools)
-        __attribute__nonnull__(1)
         __attribute__nonnull__(2);
 
-void Parrot_gc_run_init(PARROT_INTERP,
-    ARGIN(Memory_Pools * const mem_pools))
-        __attribute__nonnull__(1)
-        __attribute__nonnull__(2);
+void Parrot_gc_run_init(SHIM_INTERP, ARGMOD(Memory_Pools *mem_pools))
+        __attribute__nonnull__(2)
+        FUNC_MODIFIES(*mem_pools);
 
 void Parrot_gc_sweep_pool(PARROT_INTERP,
-    ARGIN(Memory_Pools * const mem_pools),
+    ARGMOD(Memory_Pools *mem_pools),
     ARGMOD(Fixed_Size_Pool *pool))
         __attribute__nonnull__(1)
         __attribute__nonnull__(2)
         __attribute__nonnull__(3)
+        FUNC_MODIFIES(*mem_pools)
         FUNC_MODIFIES(*pool);
 
 int Parrot_gc_trace_root(PARROT_INTERP,
-    ARGIN(Memory_Pools * const mem_pools),
+    ARGMOD(Memory_Pools *mem_pools),
     Parrot_gc_trace_type trace)
         __attribute__nonnull__(1)
-        __attribute__nonnull__(2);
+        __attribute__nonnull__(2)
+        FUNC_MODIFIES(*mem_pools);
 
 #define ASSERT_ARGS_contained_in_pool __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(pool) \
@@ -449,31 +447,25 @@
     , PARROT_ASSERT_ARG(mem_pools) \
     , PARROT_ASSERT_ARG(obj))
 #define ASSERT_ARGS_Parrot_add_to_free_list __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
-       PARROT_ASSERT_ARG(interp) \
-    , PARROT_ASSERT_ARG(pool) \
+       PARROT_ASSERT_ARG(pool) \
     , PARROT_ASSERT_ARG(arena))
 #define ASSERT_ARGS_Parrot_append_arena_in_pool __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
-       PARROT_ASSERT_ARG(interp) \
-    , PARROT_ASSERT_ARG(mem_pools) \
+       PARROT_ASSERT_ARG(mem_pools) \
     , PARROT_ASSERT_ARG(pool) \
     , PARROT_ASSERT_ARG(new_arena))
 #define ASSERT_ARGS_Parrot_gc_clear_live_bits __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
-       PARROT_ASSERT_ARG(interp) \
-    , PARROT_ASSERT_ARG(pool))
+       PARROT_ASSERT_ARG(pool))
 #define ASSERT_ARGS_Parrot_gc_get_attribute_pool __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
-       PARROT_ASSERT_ARG(interp) \
-    , PARROT_ASSERT_ARG(mem_pools))
+       PARROT_ASSERT_ARG(mem_pools))
 #define ASSERT_ARGS_Parrot_gc_get_attributes_from_pool \
      __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp) \
     , PARROT_ASSERT_ARG(pool))
 #define ASSERT_ARGS_Parrot_gc_initialize_fixed_size_pools \
      __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
-       PARROT_ASSERT_ARG(interp) \
-    , PARROT_ASSERT_ARG(mem_pools))
+       PARROT_ASSERT_ARG(mem_pools))
 #define ASSERT_ARGS_Parrot_gc_run_init __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
-       PARROT_ASSERT_ARG(interp) \
-    , PARROT_ASSERT_ARG(mem_pools))
+       PARROT_ASSERT_ARG(mem_pools))
 #define ASSERT_ARGS_Parrot_gc_sweep_pool __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp) \
     , PARROT_ASSERT_ARG(mem_pools) \

Modified: trunk/src/gc/mark_sweep.c
==============================================================================
--- trunk/src/gc/mark_sweep.c	Wed Mar 24 23:40:04 2010	(r45165)
+++ trunk/src/gc/mark_sweep.c	Thu Mar 25 00:11:27 2010	(r45166)
@@ -32,10 +32,9 @@
 /* Don't modify between HEADERIZER BEGIN / HEADERIZER END.  Your changes will be lost. */
 
 static void free_buffer(SHIM_INTERP,
-    ARGIN(Memory_Pools *mem_pools),
+    SHIM(Memory_Pools *mem_pools),
     ARGMOD(Fixed_Size_Pool *pool),
     ARGMOD(Buffer *b))
-        __attribute__nonnull__(2)
         __attribute__nonnull__(3)
         __attribute__nonnull__(4)
         FUNC_MODIFIES(*pool)
@@ -53,7 +52,7 @@
 PARROT_WARN_UNUSED_RESULT
 PARROT_CANNOT_RETURN_NULL
 static Fixed_Size_Pool * new_bufferlike_pool(PARROT_INTERP,
-    ARGIN(Memory_Pools * const mem_pools),
+    ARGIN(const Memory_Pools *mem_pools),
     size_t actual_buffer_size)
         __attribute__nonnull__(1)
         __attribute__nonnull__(2);
@@ -72,25 +71,22 @@
 PARROT_WARN_UNUSED_RESULT
 PARROT_CANNOT_RETURN_NULL
 static Fixed_Size_Pool * new_string_pool(PARROT_INTERP,
-    ARGIN(Memory_Pools * const mem_pools),
+    ARGMOD(Memory_Pools *mem_pools),
     INTVAL constant)
         __attribute__nonnull__(1)
-        __attribute__nonnull__(2);
+        __attribute__nonnull__(2)
+        FUNC_MODIFIES(*mem_pools);
 
-static void Parrot_gc_allocate_new_attributes_arena(PARROT_INTERP,
+static void Parrot_gc_allocate_new_attributes_arena(
     ARGMOD(PMC_Attribute_Pool *pool))
         __attribute__nonnull__(1)
-        __attribute__nonnull__(2)
         FUNC_MODIFIES(*pool);
 
 PARROT_CANNOT_RETURN_NULL
-static PMC_Attribute_Pool * Parrot_gc_create_attrib_pool(PARROT_INTERP,
-    size_t attrib_idx)
-        __attribute__nonnull__(1);
+static PMC_Attribute_Pool * Parrot_gc_create_attrib_pool(size_t attrib_idx);
 
 #define ASSERT_ARGS_free_buffer __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
-       PARROT_ASSERT_ARG(mem_pools) \
-    , PARROT_ASSERT_ARG(pool) \
+       PARROT_ASSERT_ARG(pool) \
     , PARROT_ASSERT_ARG(b))
 #define ASSERT_ARGS_free_pmc_in_pool __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp) \
@@ -107,10 +103,8 @@
     , PARROT_ASSERT_ARG(mem_pools))
 #define ASSERT_ARGS_Parrot_gc_allocate_new_attributes_arena \
      __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
-       PARROT_ASSERT_ARG(interp) \
-    , PARROT_ASSERT_ARG(pool))
-#define ASSERT_ARGS_Parrot_gc_create_attrib_pool __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
-       PARROT_ASSERT_ARG(interp))
+       PARROT_ASSERT_ARG(pool))
+#define ASSERT_ARGS_Parrot_gc_create_attrib_pool __attribute__unused__ int _ASSERT_ARGS_CHECK = (0)
 /* Don't modify between HEADERIZER BEGIN / HEADERIZER END.  Your changes will be lost. */
 /* HEADERIZER END: static */
 
@@ -119,7 +113,7 @@
 
 /*
 
-=item C<void Parrot_gc_run_init(PARROT_INTERP, Memory_Pools * const mem_pools)>
+=item C<void Parrot_gc_run_init(PARROT_INTERP, Memory_Pools *mem_pools)>
 
 Prepares the collector for a mark & sweep GC run. Initializes the various
 fields in the Memory_Pools structure that need to be zeroed out prior to the
@@ -130,8 +124,7 @@
 */
 
 void
-Parrot_gc_run_init(PARROT_INTERP,
-        ARGIN(Memory_Pools * const mem_pools))
+Parrot_gc_run_init(SHIM_INTERP, ARGMOD(Memory_Pools *mem_pools))
 {
     ASSERT_ARGS(Parrot_gc_run_init)
 
@@ -142,7 +135,7 @@
 
 /*
 
-=item C<int Parrot_gc_trace_root(PARROT_INTERP, Memory_Pools * const mem_pools,
+=item C<int Parrot_gc_trace_root(PARROT_INTERP, Memory_Pools *mem_pools,
 Parrot_gc_trace_type trace)>
 
 Traces the root set with behavior that's dependent on the flags passed.
@@ -173,7 +166,7 @@
 
 int
 Parrot_gc_trace_root(PARROT_INTERP,
-        ARGIN(Memory_Pools * const mem_pools),
+        ARGMOD(Memory_Pools *mem_pools),
         Parrot_gc_trace_type trace)
 {
     ASSERT_ARGS(Parrot_gc_trace_root)
@@ -257,7 +250,7 @@
 
 /*
 
-=item C<void Parrot_gc_sweep_pool(PARROT_INTERP, Memory_Pools * const mem_pools,
+=item C<void Parrot_gc_sweep_pool(PARROT_INTERP, Memory_Pools *mem_pools,
 Fixed_Size_Pool *pool)>
 
 Puts any buffers/PMCs that are marked as "dead" or "black" onto the pool
@@ -269,7 +262,7 @@
 
 void
 Parrot_gc_sweep_pool(PARROT_INTERP,
-        ARGIN(Memory_Pools * const mem_pools),
+        ARGMOD(Memory_Pools *mem_pools),
         ARGMOD(Fixed_Size_Pool *pool))
 {
     ASSERT_ARGS(Parrot_gc_sweep_pool)
@@ -360,8 +353,7 @@
 
 /*
 
-=item C<void mark_special(PARROT_INTERP, Memory_Pools * const mem_pools, PMC
-*obj)>
+=item C<void mark_special(PARROT_INTERP, Memory_Pools *mem_pools, PMC *obj)>
 
 Handles marking a PMC. Specifically, calls the VTABLE_mark for that PMC
 if one is present. Also handles marking shared PMCs.
@@ -371,9 +363,7 @@
 */
 
 void
-mark_special(PARROT_INTERP,
-        ARGIN(Memory_Pools * const mem_pools),
-        ARGIN(PMC *obj))
+mark_special(PARROT_INTERP, ARGMOD(Memory_Pools *mem_pools), ARGIN(PMC *obj))
 {
     ASSERT_ARGS(mark_special)
 
@@ -426,7 +416,7 @@
 */
 
 void
-Parrot_gc_clear_live_bits(PARROT_INTERP, ARGIN(const Fixed_Size_Pool *pool))
+Parrot_gc_clear_live_bits(SHIM_INTERP, ARGIN(const Fixed_Size_Pool *pool))
 {
     ASSERT_ARGS(Parrot_gc_clear_live_bits)
     Fixed_Size_Arena *arena;
@@ -456,7 +446,7 @@
 */
 
 void
-Parrot_add_to_free_list(PARROT_INTERP,
+Parrot_add_to_free_list(SHIM_INTERP,
         ARGMOD(Fixed_Size_Pool  *pool),
         ARGMOD(Fixed_Size_Arena *arena))
 {
@@ -489,8 +479,8 @@
 
 /*
 
-=item C<void Parrot_append_arena_in_pool(PARROT_INTERP, Memory_Pools * const
-mem_pools, Fixed_Size_Pool *pool, Fixed_Size_Arena *new_arena, size_t size)>
+=item C<void Parrot_append_arena_in_pool(PARROT_INTERP, Memory_Pools *mem_pools,
+Fixed_Size_Pool *pool, Fixed_Size_Arena *new_arena, size_t size)>
 
 Insert the new arena into the pool's structure. Arenas are stored in a
 linked list, so add the new arena to the list. Set information in the
@@ -501,8 +491,8 @@
 */
 
 void
-Parrot_append_arena_in_pool(PARROT_INTERP,
-        ARGIN(Memory_Pools * const mem_pools),
+Parrot_append_arena_in_pool(SHIM_INTERP,
+        ARGMOD(Memory_Pools *mem_pools),
         ARGMOD(Fixed_Size_Pool *pool),
         ARGMOD(Fixed_Size_Arena *new_arena), size_t size)
 {
@@ -594,8 +584,8 @@
 
 /*
 
-=item C<static Fixed_Size_Pool * new_bufferlike_pool(PARROT_INTERP, Memory_Pools
-* const mem_pools, size_t actual_buffer_size)>
+=item C<static Fixed_Size_Pool * new_bufferlike_pool(PARROT_INTERP, const
+Memory_Pools *mem_pools, size_t actual_buffer_size)>
 
 Creates a new pool for buffer-like structures. This is called from
 C<get_bufferlike_pool()>, and should probably not be called directly.
@@ -608,7 +598,7 @@
 PARROT_CANNOT_RETURN_NULL
 static Fixed_Size_Pool *
 new_bufferlike_pool(PARROT_INTERP,
-        ARGIN(Memory_Pools * const mem_pools),
+        ARGIN(const Memory_Pools *mem_pools),
         size_t actual_buffer_size)
 {
     ASSERT_ARGS(new_bufferlike_pool)
@@ -662,8 +652,8 @@
 
 /*
 
-=item C<static Fixed_Size_Pool * new_string_pool(PARROT_INTERP, Memory_Pools *
-const mem_pools, INTVAL constant)>
+=item C<static Fixed_Size_Pool * new_string_pool(PARROT_INTERP, Memory_Pools
+*mem_pools, INTVAL constant)>
 
 Creates a new pool for C<STRING>s and returns it. This calls
 C<get_bufferlike_pool> internally, which in turn calls C<new_bufferlike_pool>.
@@ -675,9 +665,7 @@
 PARROT_WARN_UNUSED_RESULT
 PARROT_CANNOT_RETURN_NULL
 static Fixed_Size_Pool *
-new_string_pool(PARROT_INTERP,
-        ARGIN(Memory_Pools * const mem_pools),
-        INTVAL constant)
+new_string_pool(PARROT_INTERP, ARGMOD(Memory_Pools *mem_pools), INTVAL constant)
 {
     ASSERT_ARGS(new_string_pool)
     Fixed_Size_Pool *pool;
@@ -708,7 +696,7 @@
 
 static void
 free_buffer(SHIM_INTERP,
-        ARGIN(Memory_Pools *mem_pools),
+        SHIM(Memory_Pools *mem_pools),
         ARGMOD(Fixed_Size_Pool *pool),
         ARGMOD(Buffer *b))
 {
@@ -730,8 +718,8 @@
 
 /*
 
-=item C<Fixed_Size_Pool * get_bufferlike_pool(PARROT_INTERP, Memory_Pools *
-const mem_pools, size_t buffer_size)>
+=item C<Fixed_Size_Pool * get_bufferlike_pool(PARROT_INTERP, Memory_Pools
+*mem_pools, size_t buffer_size)>
 
 Makes and return a bufferlike header pool for objects of a given size. If a
 pool for objects of that size already exists, no new pool will be created and
@@ -745,7 +733,7 @@
 PARROT_CANNOT_RETURN_NULL
 Fixed_Size_Pool *
 get_bufferlike_pool(PARROT_INTERP,
-        ARGIN(Memory_Pools * const mem_pools),
+        ARGMOD(Memory_Pools *mem_pools),
         size_t buffer_size)
 {
     ASSERT_ARGS(get_bufferlike_pool)
@@ -921,8 +909,8 @@
 Get a new fixed-size storage space from the given pool. The pool contains
 information on the size of the item to allocate already.
 
-=item C<static void Parrot_gc_allocate_new_attributes_arena(PARROT_INTERP,
-PMC_Attribute_Pool *pool)>
+=item C<static void Parrot_gc_allocate_new_attributes_arena(PMC_Attribute_Pool
+*pool)>
 
 Allocate a new arena of fixed-sized data structures for the given pool.
 
@@ -937,8 +925,8 @@
 Find a fixed-sized data structure pool given the size of the object to
 allocate. If the pool does not exist, create it.
 
-=item C<static PMC_Attribute_Pool * Parrot_gc_create_attrib_pool(PARROT_INTERP,
-size_t attrib_idx)>
+=item C<static PMC_Attribute_Pool * Parrot_gc_create_attrib_pool(size_t
+attrib_idx)>
 
 Create a new pool for fixed-sized data items with the given C<attrib_size>.
 
@@ -968,12 +956,12 @@
             pool->newfree = NULL;
     }
     else {
-        Parrot_gc_allocate_new_attributes_arena(interp, pool);
+        Parrot_gc_allocate_new_attributes_arena(pool);
         return Parrot_gc_get_attributes_from_pool(interp, pool);
     }
 #else
     if (pool->free_list == NULL)
-        Parrot_gc_allocate_new_attributes_arena(interp, pool);
+        Parrot_gc_allocate_new_attributes_arena(pool);
     item            = pool->free_list;
     pool->free_list = item->next;
 #endif
@@ -984,7 +972,7 @@
 
 
 static void
-Parrot_gc_allocate_new_attributes_arena(PARROT_INTERP, ARGMOD(PMC_Attribute_Pool *pool))
+Parrot_gc_allocate_new_attributes_arena(ARGMOD(PMC_Attribute_Pool *pool))
 {
     ASSERT_ARGS(Parrot_gc_allocate_new_attributes_arena)
     PMC_Attribute_Free_List *next;
@@ -1020,7 +1008,7 @@
 }
 
 void
-Parrot_gc_initialize_fixed_size_pools(PARROT_INTERP,
+Parrot_gc_initialize_fixed_size_pools(SHIM_INTERP,
         ARGIN(Memory_Pools * const mem_pools),
         size_t init_num_pools)
 {
@@ -1038,7 +1026,7 @@
 
 PARROT_CANNOT_RETURN_NULL
 PMC_Attribute_Pool *
-Parrot_gc_get_attribute_pool(PARROT_INTERP,
+Parrot_gc_get_attribute_pool(SHIM_INTERP,
         ARGIN(Memory_Pools * const mem_pools),
         size_t attrib_size)
 {
@@ -1062,9 +1050,9 @@
     }
 
     if (!pools[idx]) {
-        PMC_Attribute_Pool * const pool = Parrot_gc_create_attrib_pool(interp, idx);
+        PMC_Attribute_Pool * const pool = Parrot_gc_create_attrib_pool(idx);
         /* Create the first arena now, so we don't have to check for it later */
-        Parrot_gc_allocate_new_attributes_arena(interp, pool);
+        Parrot_gc_allocate_new_attributes_arena(pool);
         pools[idx] = pool;
     }
 
@@ -1073,7 +1061,7 @@
 
 PARROT_CANNOT_RETURN_NULL
 static PMC_Attribute_Pool *
-Parrot_gc_create_attrib_pool(PARROT_INTERP, size_t attrib_idx)
+Parrot_gc_create_attrib_pool(size_t attrib_idx)
 {
     ASSERT_ARGS(Parrot_gc_create_attrib_pool)
     const size_t attrib_size = attrib_idx + sizeof (void *);

Modified: trunk/src/gc/system.c
==============================================================================
--- trunk/src/gc/system.c	Wed Mar 24 23:40:04 2010	(r45165)
+++ trunk/src/gc/system.c	Thu Mar 25 00:11:27 2010	(r45166)
@@ -107,7 +107,7 @@
 
 /*
 
-=item C<void trace_system_areas(PARROT_INTERP, Memory_Pools * const mem_pools)>
+=item C<void trace_system_areas(PARROT_INTERP, const Memory_Pools *mem_pools)>
 
 Initiates a trace of the system stack, looking for pointers which are being
 used by functions in the call chain, but which might not be marked as alive
@@ -120,8 +120,7 @@
 */
 
 void
-trace_system_areas(PARROT_INTERP,
-        ARGIN(Memory_Pools * const mem_pools))
+trace_system_areas(PARROT_INTERP, ARGIN(const Memory_Pools *mem_pools))
 {
     ASSERT_ARGS(trace_system_areas)
     {
@@ -242,8 +241,7 @@
 */
 
 static void
-trace_system_stack(PARROT_INTERP,
-        ARGIN(const Memory_Pools *mem_pools))
+trace_system_stack(PARROT_INTERP, ARGIN(const Memory_Pools *mem_pools))
 {
     ASSERT_ARGS(trace_system_stack)
     /* Create a local variable on the system stack. This represents the


More information about the parrot-commits mailing list