mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* init.c (scm_boot_guile_1): Introduced new variable

Browse source 
GUILE_MAX_SEGMENT_SIZE; New environment variable names:
GUILE_INIT_SEGMENT_SIZE_1, GUILE_GC_TRIGGER_1,
GUILE_INIT_SEGMENT_SIZE_2, GUILE_GC_TRIGGER_2
This commit is contained in:
Mikael Djurfeldt 2000-03-17 08:09:03 +00:00
parent 176067df1a
commit 08f77a4459
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/init.c
View file

@ -475,10 +475,11 @@ scm_boot_guile_1 (SCM_STACKITEM *base, struct main_func_closure *closure)
scm_smob_prehistory ();
scm_tables_prehistory ();
#if defined (GUILE_NEW_GC_SCHEME)
scm_init_storage (scm_i_getenv_int ("GUILE_INIT_HEAP_SIZE", 0),
scm_i_getenv_int ("GUILE_GC_TRIGGER", 0),
scm_i_getenv_int ("GUILE_INIT_HEAP_SIZE2", 40000),
scm_i_getenv_int ("GUILE_GC_TRIGGER2", 0));
scm_init_storage (scm_i_getenv_int ("GUILE_INIT_SEGMENT_SIZE_1", 0),
scm_i_getenv_int ("GUILE_GC_TRIGGER_1", 0),
scm_i_getenv_int ("GUILE_INIT_SEGMENT_SIZE_2", 0),
scm_i_getenv_int ("GUILE_GC_TRIGGER_2", 0),
scm_i_getenv_int ("GUILE_MAX_SEGMENT_SIZE", 0));
#else
scm_init_storage (0, 0);
#endif