summaryrefslogtreecommitdiff
path: root/libguile/gc-malloc.c
diff options
context:
space:
mode:
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.