summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-03-17 08:58:27 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-03-17 08:58:27 +0000
commit1ba5ccd12b32522415ae4578f660117b06e162c1 (patch)
tree692f3cff833557f93d87b62af52c59f5ef3777fb
parent148f31de7147feef52c19cc7227e81faeca017ba (diff)
downloadguile-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.c4
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 */