diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-17 08:58:27 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-17 08:58:27 +0000 |
commit | 1ba5ccd12b32522415ae4578f660117b06e162c1 (patch) | |
tree | 692f3cff833557f93d87b62af52c59f5ef3777fb | |
parent | 148f31de7147feef52c19cc7227e81faeca017ba (diff) | |
download | guile-1ba5ccd12b32522415ae4578f660117b06e162c1.tar.gz |
* gc.c, gc.h: Cleanup of the change of 2000-03-15.
Cluster sizes are now independent of GC trigger values.
GUILE_GC_TRIGGER_n can now specify a relative trigger value:
A negative integer gives fraction of total heap size in percent.
(SCM_GC_TRIGGER_1, SCM_GC_TRIGGER_2): Default values set to -40.
-rw-r--r-- | libguile/gc.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/gc.c b/libguile/gc.c index 831497a85..e22bd884b 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -111,14 +111,14 @@ #define SCM_INIT_HEAP_SIZE_1 (40000L * sizeof (scm_cell)) #define SCM_CLUSTER_SIZE_1 2000L -#define SCM_GC_TRIGGER_1 -25 +#define SCM_GC_TRIGGER_1 -40 #define SCM_INIT_HEAP_SIZE_2 (2500L * 2 * sizeof (scm_cell)) #define SCM_CLUSTER_SIZE_2 1000L /* The following value may seem large, but note that if we get to GC at * all, this means that we have a numerically intensive application */ -#define SCM_GC_TRIGGER_2 -25 +#define SCM_GC_TRIGGER_2 -40 #define SCM_MAX_SEGMENT_SIZE 2097000L /* a little less (adm) than 2 Mb */ |