mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

(SCM_GC_TRIGGER_1, SCM_GC_TRIGGER_2): Default values set to -50.

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-03-17 09:04:49 +00:00
parent 1eb489a2da
commit 85dd66c830
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/gc.c
View file

@ -111,14 +111,14 @@
#define SCM_INIT_HEAP_SIZE_1 (40000L * sizeof (scm_cell)) #define SCM_INIT_HEAP_SIZE_1 (40000L * sizeof (scm_cell))
#define SCM_CLUSTER_SIZE_1 2000L #define SCM_CLUSTER_SIZE_1 2000L
#define SCM_GC_TRIGGER_1 -40 #define SCM_GC_TRIGGER_1 -50
#define SCM_INIT_HEAP_SIZE_2 (2500L * 2 * sizeof (scm_cell)) #define SCM_INIT_HEAP_SIZE_2 (2500L * 2 * sizeof (scm_cell))
#define SCM_CLUSTER_SIZE_2 1000L #define SCM_CLUSTER_SIZE_2 1000L
/* The following value may seem large, but note that if we get to GC at /* 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 * all, this means that we have a numerically intensive application
*/ */
#define SCM_GC_TRIGGER_2 -40 #define SCM_GC_TRIGGER_2 -50
#define SCM_MAX_SEGMENT_SIZE 2097000L /* a little less (adm) than 2 Mb */ #define SCM_MAX_SEGMENT_SIZE 2097000L /* a little less (adm) than 2 Mb */