[svn:parrot] r44118 - branches/sys_mem_reduce/src

[bacek at svn.parrot.org]

Author: bacek
Date: Wed Feb 17 20:43:58 2010
New Revision: 44118
URL: https://trac.parrot.org/parrot/changeset/44118

Log:
Switch threads to internal allocations.

Modified:
   branches/sys_mem_reduce/src/thread.c

Modified: branches/sys_mem_reduce/src/thread.c
==============================================================================
--- branches/sys_mem_reduce/src/thread.c	Wed Feb 17 20:43:41 2010	(r44117)
+++ branches/sys_mem_reduce/src/thread.c	Wed Feb 17 20:43:58 2010	(r44118)
@@ -257,7 +257,7 @@
     if (shared_gc_info) {
         COND_DESTROY(shared_gc_info->gc_cond);
         PARROT_ATOMIC_INT_DESTROY(shared_gc_info->gc_block_level);
-        mem_sys_free(shared_gc_info);
+        mem_internal_free(shared_gc_info);
         shared_gc_info = NULL;
     }
 }
@@ -1007,8 +1007,8 @@
         if (cur == queue->head)
             queue->head = cur->next;
 
-        mem_sys_free(ev);
-        mem_sys_free(cur);
+        mem_internal_free(ev);
+        mem_internal_free(cur);
         cur = NULL;
         DEBUG_ONLY(fprintf(stderr, "%p: remove_queued_suspend_gc: got one\n", interp));
     }
@@ -1560,18 +1560,18 @@
         PARROT_ASSERT(!interpreter_array);
         PARROT_ASSERT(n_interpreters == 0);
 
-        interpreter_array    = mem_allocate_typed(Interp *);
+        interpreter_array    = mem_internal_allocate_typed(Interp *);
         interpreter_array[0] = interp;
         n_interpreters       = 1;
 
-        shared_gc_info = (Shared_gc_info *)mem_sys_allocate_zeroed(sizeof (*shared_gc_info));
+        shared_gc_info = (Shared_gc_info *)mem_internal_allocate_zeroed(sizeof (*shared_gc_info));
         COND_INIT(shared_gc_info->gc_cond);
         PARROT_ATOMIC_INT_INIT(shared_gc_info->gc_block_level);
         PARROT_ATOMIC_INT_SET(shared_gc_info->gc_block_level, 0);
 
         /* XXX try to defer this until later */
         PARROT_ASSERT(interp == interpreter_array[0]);
-        interp->thread_data      = mem_allocate_zeroed_typed(Thread_data);
+        interp->thread_data      = mem_internal_allocate_zeroed_typed(Thread_data);
         INTERPRETER_LOCK_INIT(interp);
         interp->thread_data->tid = 0;
 
@@ -1579,7 +1579,7 @@
     }
 
 
-    new_interp->thread_data = mem_allocate_zeroed_typed(Thread_data);
+    new_interp->thread_data = mem_internal_allocate_zeroed_typed(Thread_data);
     INTERPRETER_LOCK_INIT(new_interp);
     running_threads++;
     if (Interp_debug_TEST(interp, PARROT_THREAD_DEBUG_FLAG))
@@ -1596,7 +1596,7 @@
     }
 
     /* need to resize */
-    interpreter_array = (Interp **)mem_sys_realloc(interpreter_array,
+    interpreter_array = (Interp **)mem_internal_realloc(interpreter_array,
             (n_interpreters + 1) * sizeof (Interp *));
 
     interpreter_array[n_interpreters] = new_interp;