[svn:parrot] r44457 - branches/boehm_gc_2/src/gc

[bacek at svn.parrot.org]

Author: bacek
Date: Wed Feb 24 20:20:49 2010
New Revision: 44457
URL: https://trac.parrot.org/parrot/changeset/44457

Log:
Comment out GC_FREE. It's faster.

Modified:
   branches/boehm_gc_2/src/gc/gc_boehm.c

Modified: branches/boehm_gc_2/src/gc/gc_boehm.c
==============================================================================
--- branches/boehm_gc_2/src/gc/gc_boehm.c	Wed Feb 24 20:20:31 2010	(r44456)
+++ branches/boehm_gc_2/src/gc/gc_boehm.c	Wed Feb 24 20:20:49 2010	(r44457)
@@ -327,14 +327,14 @@
 gc_boehm_allocate_string_header(PARROT_INTERP, UINTVAL flags)
 {
     boehm_gc_data *d = (boehm_gc_data*)interp->gc_sys->gc_private;
-    return (STRING*)GC_malloc_explicitly_typed(sizeof(STRING), d->string_descriptor);
+    return (STRING*)GC_MALLOC_EXPLICITLY_TYPED(sizeof(STRING), d->string_descriptor);
 }
 
 static void
 gc_boehm_free_string_header(PARROT_INTERP, STRING *s)
 {
-    if (s)
-        GC_FREE(s);
+    //if (s)
+        //GC_FREE(s);
 }
 
 
@@ -347,8 +347,8 @@
 static void
 gc_boehm_free_bufferlike_header(PARROT_INTERP, Buffer *b, size_t size)
 {
-    if (b)
-        GC_FREE(b);
+//    if (b)
+//        GC_FREE(b);
 }
 
 
@@ -379,8 +379,8 @@
 static void
 gc_boehm_free_pmc_attributes(PARROT_INTERP, PMC *pmc)
 {
-    if (PMC_data(pmc))
-        GC_FREE(PMC_data(pmc));
+//    if (PMC_data(pmc))
+//        GC_FREE(PMC_data(pmc));
 }
 
 
@@ -452,8 +452,8 @@
 static void
 gc_boehm_free_fixed_size_storage(PARROT_INTERP, size_t size, void *data)
 {
-    if (data)
-        GC_FREE(data);
+//    if (data)
+//        GC_FREE(data);
 }
 
 /*
@@ -512,8 +512,8 @@
 gc_boehm_free_memory_chunk(PARROT_INTERP, ARGFREE(void *data))
 {
     ASSERT_ARGS(gc_boehm_free_memory_chunk)
-    if (data)
-        GC_FREE(data);
+//    if (data)
+//        GC_FREE(data);
 }
 
 static char*
@@ -601,14 +601,14 @@
     ASSERT_ARGS(Parrot_gc_boehm_init)
     int i;
 
-    //GC_enable_incremental();
-    //GC_time_limit = GC_TIME_UNLIMITED;
+    /* Alias for gc_sys */
+    GC_Subsystem *gc_sys = interp->gc_sys;
+
 
     /* GC is disabled in src/main.c. So reenable it */
     GC_enable();
-
-    /* Alias for gc_sys */
-    GC_Subsystem *gc_sys = interp->gc_sys;
+    //GC_enable_incremental();
+    //GC_time_limit = GC_TIME_UNLIMITED;
 
     boehm_gc_data *gc_private = (boehm_gc_data*)GC_MALLOC_ATOMIC(sizeof(boehm_gc_data));