diff options
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. |