Expand heap size at startup time.

* libguile/gc.c (scm_storage_prehistory): Invoke `GC_expand_hp ()'.

git-archimport-id: lcourtes@laas.fr--2005-libre/guile-core--boehm-gc--1.9--patch-49

diff --git a/libguile/gc.c b/libguile/gc.c
index afa8039..cfdc360 100644 (file)
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -681,6 +681,7 @@ scm_storage_prehistory ()
   GC_all_interior_pointers = 0;
 
   GC_INIT ();
+  GC_expand_hp (SCM_DEFAULT_INIT_HEAP_SIZE_2);
 
   /* We only need to register a displacement for those types for which the
      higher bits of the type tag are used to store a pointer (that is, a