mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 06:12:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

Do not define the free list and new kind unless needed.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-02 00:05:50 +01:00
parent e30ccfaec9
commit c0c339510b
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/alloc_2.d
View file

@ -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));