diff options
author | Andy Wingo <wingo@pobox.com> | 2012-02-19 15:19:14 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-02-19 20:46:14 +0100 |
commit | 917b0e72f72944ecc6af48f43604593974b752de (patch) | |
tree | 378ca50caa587cb98481dafdf674df2c5cba906a /libguile/modules.c | |
parent | 3753e22736feb56ad22ec802bbad16e080066789 (diff) | |
download | guile-917b0e72f72944ecc6af48f43604593974b752de.tar.gz |
tune default hash table sizes
* libguile/modules.c: In my current image, there are 1790 bindings in
the root module, which tips over to the next hash vector size, so
declare that to prevent rehashing.
* libguile/srcprop.c (scm_init_srcprop): Don't preallocate a big
source_whash table, as we might not need it (if everything is
compiled, for example).
* module/ice-9/boot-9.scm (make-module): Don't preall-cate big hash
tables for imported bindings. Instead trust that resizing works
correctly.
Diffstat (limited to 'libguile/modules.c')
-rw-r--r-- | libguile/modules.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/modules.c b/libguile/modules.c index 7498549ee..a5150f8c7 100644 --- a/libguile/modules.c +++ b/libguile/modules.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1998,2000,2001,2002,2003,2004,2006,2007,2008,2009,2010,2011 Free Software Foundation, Inc. +/* Copyright (C) 1998,2000,2001,2002,2003,2004,2006,2007,2008,2009,2010,2011,2012 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -1000,7 +1000,7 @@ SCM_SYMBOL (scm_sym_system_module, "system-module"); void scm_modules_prehistory () { - scm_pre_modules_obarray = scm_c_make_hash_table (1533); + scm_pre_modules_obarray = scm_c_make_hash_table (1790); } void |