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

[bacek at svn.parrot.org]

Author: bacek
Date: Thu Sep 16 20:48:49 2010
New Revision: 49070
URL: https://trac.parrot.org/parrot/changeset/49070

Log:
Remove public version of alloc_new_block. It's not used outside of String GC

Modified:
   trunk/src/gc/string_gc.c

Modified: trunk/src/gc/string_gc.c
==============================================================================
--- trunk/src/gc/string_gc.c	Thu Sep 16 20:47:05 2010	(r49069)
+++ trunk/src/gc/string_gc.c	Thu Sep 16 20:48:49 2010	(r49070)
@@ -227,29 +227,6 @@
 
 /*
 
-=item C<void Parrot_gc_str_alloc_new_block( Memory_Pools *mem_pools, size_t
-size, Variable_Size_Pool *pool, const char *why)>
-
-Allocate a new string block
-
-=cut
-
-*/
-
-void
-Parrot_gc_str_alloc_new_block(
-        ARGMOD(Memory_Pools *mem_pools),
-        size_t size,
-        ARGMOD(Variable_Size_Pool *pool),
-        ARGIN(const char *why))
-{
-    ASSERT_ARGS(Parrot_gc_str_alloc_new_block)
-
-    alloc_new_block(mem_pools, size, pool, why);
-}
-
-/*
-
 =item C<void Parrot_gc_str_allocate_buffer_storage(PARROT_INTERP, String_GC *gc,
 Buffer *buffer, size_t size)>
 
@@ -712,7 +689,7 @@
              * Mark the block as big block (it has just one item)
              * And don't set big blocks as the top_block.
              */
-            Parrot_gc_str_alloc_new_block(mem_pools, size, pool, "compact failed");
+            alloc_new_block(mem_pools, size, pool, "compact failed");
 
             ++mem_pools->mem_allocs_since_last_collect;
 
@@ -863,7 +840,7 @@
         return;
     }
 
-    Parrot_gc_str_alloc_new_block(mem_pools, total_size, pool, "inside compact");
+    alloc_new_block(mem_pools, total_size, pool, "inside compact");
 
     cb_data.new_block = pool->top_block;