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

Use the `GC_FREE_SPACE_DIVISOR' environment variable.

Browse source 
* libguile/gc.c (scm_storage_prehistory): Initialize `GC_free_space_divisor'
  using the `GC_FREE_SPACE_DIVISOR' environment variable.
This commit is contained in:
Ludovic Courtès 2008-09-18 22:11:43 +02:00
parent 6033d3266c
commit 2a5bf2eeec
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/gc.c
View file

@ -625,6 +625,7 @@ void
scm_storage_prehistory () scm_storage_prehistory ()
{ {
GC_all_interior_pointers = 0; GC_all_interior_pointers = 0;
GC_free_space_divisor = scm_getenv_int ("GC_FREE_SPACE_DIVISOR", 3);
GC_INIT (); GC_INIT ();