mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-09 21:40:33 +02:00
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.
This commit is contained in:
parent
c8c67eba91
commit
fdea77d01c
1 changed files with 2 additions and 11 deletions
|
@ -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 \
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue