summaryrefslogtreecommitdiff
path: root/libguile/gc-malloc.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-08-28 20:25:49 +0200
committerLudovic Courtès <ludo@gnu.org>2009-08-28 21:02:42 +0200
commit760fb97d1f5ae2fc745cbe6b6af3d8fe0023ebbd (patch)
tree3ce0afb56d26c48776118f9772e9cf0910c54a8e /libguile/gc-malloc.c
parent7af531508c5931261ff8957708642cac67bf86a5 (diff)
downloadguile-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.c21
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.