diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-08-28 20:25:49 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-08-28 21:02:42 +0200 |
commit | 760fb97d1f5ae2fc745cbe6b6af3d8fe0023ebbd (patch) | |
tree | 3ce0afb56d26c48776118f9772e9cf0910c54a8e /libguile/gc-malloc.c | |
parent | 7af531508c5931261ff8957708642cac67bf86a5 (diff) | |
download | guile-760fb97d1f5ae2fc745cbe6b6af3d8fe0023ebbd.tar.gz |
Remove deprecated variables/macros from the GC headers.
* libguile/deprecated.c (scm_mtrigger, scm_mallocated,
scm_max_segment_size): New global variables, from gc.c.
(scm_map_free_list,
scm_gc_set_debug_check_freelist_x)[GUILE_DEBUG_FREELIST]: New stubs.
* libguile/deprecated.h (scm_mallocated, scm_mtrigger,
scm_max_segment_size): New declarations.
(scm_map_free_list,
scm_gc_set_debug_check_freelist_x)[GUILE_DEBUG_FREELIST]: New
declarations.
* libguile/gc-malloc.c (scm_i_minyield_malloc): Remove.
(scm_gc_init_malloc): Remove references to `scm_i_minyield_malloc' and
`scm_mtrigger'.
* libguile/gc.c (scm_mtrigger, scm_mallocated): Remove.
(scm_init_storage): Remove reference to `SCM_HEAP_SEG_SIZE'.
* libguile/gc.h (scm_max_segment_size, SCM_SET_FREELIST_LOC,
SCM_FREELIST_LOC, scm_i_master_freelist, scm_i_master_freelist2,
scm_mallocated, scm_mtrigger): Remove.
(scm_map_free_list,
scm_gc_set_debug_check_freelist_x)[SCM_ENABLE_DEPRECATED &&
GUILE_DEBUG_FREELIST]: Remove.
* libguile/private-gc.h (SCM_DEFAULT_INIT_HEAP_SIZE_1,
SCM_DEFAULT_MIN_YIELD_1, SCM_DEFAULT_MIN_YIELD_2,
DEFAULT_SWEEP_AMOUNT, SCM_DEFAULT_MAX_SEGMENT_SIZE,
SCM_MIN_HEAP_SEG_SIZE, SCM_HEAP_SEG_SIZE,
SCM_GC_CARD_BVEC_SIZE_IN_LONGS, SCM_GC_IN_CARD_HEADERP): Remove.
(scm_getenv_int): Made internal.
(scm_i_marking, scm_mark_all, scm_i_deprecated_memory_return,
scm_i_find_heap_calls, scm_gc_init_malloc, scm_gc_init_freelist,
scm_gc_init_segments, scm_gc_init_mark): Remove declarations.
* libguile/gc-segment-table.c: Remove, finally.
Diffstat (limited to 'libguile/gc-malloc.c')
-rw-r--r-- | libguile/gc-malloc.c | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/libguile/gc-malloc.c b/libguile/gc-malloc.c index 81c4f5a9f..e48d2cfd1 100644 --- a/libguile/gc-malloc.c +++ b/libguile/gc-malloc.c @@ -78,27 +78,6 @@ extern unsigned long * __libc_ia64_register_backing_store_base; /* #define DEBUGINFO */ -static int scm_i_minyield_malloc; - -void -scm_gc_init_malloc (void) -{ - int mtrigger = scm_getenv_int ("GUILE_INIT_MALLOC_LIMIT", - SCM_DEFAULT_INIT_MALLOC_LIMIT); - scm_i_minyield_malloc = scm_getenv_int ("GUILE_MIN_YIELD_MALLOC", - SCM_DEFAULT_MALLOC_MINYIELD); - - if (scm_i_minyield_malloc >= 100) - scm_i_minyield_malloc = 99; - if (scm_i_minyield_malloc < 1) - scm_i_minyield_malloc = 1; - - if (mtrigger < 0) - scm_mtrigger = SCM_DEFAULT_INIT_MALLOC_LIMIT; - else - scm_mtrigger = mtrigger; -} - /* Function for non-cell memory management. |