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.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/gc-malloc.c b/libguile/gc-malloc.c
index 40d4ef907..a1d8f2dc8 100644
--- a/libguile/gc-malloc.c
+++ b/libguile/gc-malloc.c
@@ -92,7 +92,7 @@ extern unsigned long * __libc_ia64_register_backing_store_base;
alloced memory, which won't go away on GC. Let's set the init such
that we get a nice yield on the next allocation:
*/
-#define SCM_DEFAULT_INIT_MALLOC_LIMIT 200000
+#define SCM_DEFAULT_INIT_MALLOC_LIMIT 200*1024
#define SCM_DEFAULT_MALLOC_MINYIELD 40
@@ -203,8 +203,8 @@ scm_gc_register_collectable_memory (void *mem, size_t size, const char *what)
scm_igc (what);
scm_i_sweep_all_segments("mtrigger");
- yield = (prev_alloced - scm_mallocated) / (float) prev_alloced;
-
+ yield = (prev_alloced - scm_mallocated) / (float) prev_alloced;
+ scm_gc_malloc_yield_percentage = (int) (100 * yield);
/*
fprintf (stderr, "prev %lud , now %lud, yield %4.2lf, want %d",
prev_alloced, scm_mallocated, 100.0*yield, scm_i_minyield_malloc);
@@ -225,9 +225,9 @@ scm_gc_register_collectable_memory (void *mem, size_t size, const char *what)
/*
fprintf (stderr, "Mtrigger sweep: ineffective. New trigger %d\n", scm_mtrigger);
*/
-
-
}
+
+
}
#ifdef GUILE_DEBUG_MALLOC