diff options
| author | Andy Wingo <wingo@pobox.com> | 2020-08-27 14:07:01 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2020-08-27 14:07:01 +0200 |
| commit | fdea77d01cab48a371606c7d8db6146cb17e25e5 (patch) | |
| tree | ee92458ad9c351fc020379d9dac7281f022a9154 /libguile/gc.c | |
| parent | c8c67eba916d97488e5f6ac4c116fce4180a9c2c (diff) | |
| download | guile-fdea77d01cab48a371606c7d8db6146cb17e25e5.tar.gz | |
Bump DEFAULT_INITIAL_HEAP_SIZE
* libguile/gc.c (DEFAULT_INITIAL_HEAP_SIZE): Bump to 1.6 MB on 64-bit
targets, or 800 kB on 32-bit targets, to account for increased
footprint. Prevents useless early GC.
(scm_storage_prehistory): Remove unused code to dynamically change the
free space divisor.
Diffstat (limited to 'libguile/gc.c')
| -rw-r--r-- | libguile/gc.c | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/libguile/gc.c b/libguile/gc.c index 5bbe1d968..0fcce32c3 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -1,4 +1,4 @@ -/* Copyright 1995-2003,2006,2008-2014,2016-2018 +/* Copyright 1995-2003,2006,2008-2014,2016-2018,2020 Free Software Foundation, Inc. This file is part of Guile. @@ -68,7 +68,7 @@ result of 'guile -c "(display (assq-ref (gc-stats) 'heap-total-allocated))"'. */ -#define DEFAULT_INITIAL_HEAP_SIZE (128 * 1024 * SIZEOF_UINTPTR_T) +#define DEFAULT_INITIAL_HEAP_SIZE (200 * 1024 * SIZEOF_UINTPTR_T) /* Set this to != 0 if every cell that is accessed shall be checked: */ @@ -145,10 +145,6 @@ unsigned long scm_gc_ports_collected = 0; static long gc_time_taken = 0; static long gc_start_time = 0; -static unsigned long free_space_divisor; -static unsigned long minimum_free_space_divisor; -static double target_free_space_divisor; - static unsigned long protected_obj_count = 0; @@ -450,11 +446,6 @@ void scm_storage_prehistory () { GC_set_all_interior_pointers (0); - - free_space_divisor = scm_getenv_int ("GC_FREE_SPACE_DIVISOR", 3); - minimum_free_space_divisor = free_space_divisor; - target_free_space_divisor = free_space_divisor; - GC_set_free_space_divisor (free_space_divisor); GC_set_finalize_on_demand (1); #if (GC_VERSION_MAJOR == 7 && GC_VERSION_MINOR == 4 \ |