diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-28 12:10:50 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-28 12:10:50 +0100 |
commit | 553294d958c953f57658bad45affc15b55fcc471 (patch) | |
tree | 46f95d4329455d43ec15c7ddd6bd6851ad25e2d3 | |
parent | 87fc4596e54d69559ce27868dd1a604ea322a6b1 (diff) | |
download | guile-553294d958c953f57658bad45affc15b55fcc471.tar.gz |
Avoid needless GC on startup due to scm_gc_register_allocation
* libguile/gc.c (bytes_until_gc): Initialize to
DEFAULT_INITIAL_HEAP_SIZE, to avoid forced GC on the first
mallocation.
-rw-r--r-- | libguile/gc.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/gc.c b/libguile/gc.c index aebc13f87..d13d89b72 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -743,7 +743,7 @@ get_image_size (void) } /* These are discussed later. */ -static size_t bytes_until_gc; +static size_t bytes_until_gc = DEFAULT_INITIAL_HEAP_SIZE; static scm_i_pthread_mutex_t bytes_until_gc_lock = SCM_I_PTHREAD_MUTEX_INITIALIZER; /* Make GC run more frequently when the process image size is growing, |