From c0c339510b215512fdb3105da5d9690a29fffe30 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Tue, 2 Feb 2010 00:05:50 +0100
Subject: [PATCH] Do not define the free list and new kind unless needed.

---
 src/c/alloc_2.d | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/c/alloc_2.d b/src/c/alloc_2.d
index 957d48b1d..f72bc20c5 100755
--- a/src/c/alloc_2.d
+++ b/src/c/alloc_2.d
@@ -39,8 +39,10 @@ static void finalize_queued();
 # else
 #include "private/gc_priv.h"
 #include "gc_typed.h"
+#  ifdef GBC_BOEHM_OWN_ALLOCATOR
 static int cl_object_kind;
 static void **cl_object_free_list;
+#  endif
 # endif
 #endif
 
@@ -472,10 +474,12 @@ init_alloc(void)
 	GC_disable();
 
 #ifdef GBC_BOEHM_PRECISE
+# ifdef GBC_BOEHM_OWN_ALLOCATOR
         cl_object_free_list = (void **)GC_new_free_list_inner();
         cl_object_kind = GC_new_kind_inner(cl_object_free_list,
                                            (((word)WORDS_TO_BYTES(-1)) | GC_DS_PER_OBJECT),
                                            TRUE, TRUE);
+# endif
 #endif /* !GBC_BOEHM_PRECISE */
 
 	GC_set_max_heap_size(cl_core.max_heap_size = ecl_get_option(ECL_OPT_HEAP_SIZE));