diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-12-08 13:41:56 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-12-08 13:41:56 +0000 |
commit | 93d40df216ff9d8b528d67d20b7867e31ad89827 (patch) | |
tree | 7431e3bcb9be96c8884e8b5f988f5131e158d4fd /libguile/gc.c | |
parent | 23670993da5437eb5560559b45164eae539f3319 (diff) | |
download | guile-93d40df216ff9d8b528d67d20b7867e31ad89827.tar.gz |
* Guile does not assume a hash table size of scm_symhash_dim any more.
Diffstat (limited to 'libguile/gc.c')
-rw-r--r-- | libguile/gc.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/libguile/gc.c b/libguile/gc.c index b50281cda..e04d50b18 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -2506,9 +2506,12 @@ scm_init_storage (scm_sizet init_heap_size_1, int gc_trigger_1, scm_listofnull = scm_cons (SCM_EOL, SCM_EOL); scm_nullstr = scm_makstr (0L, 0); scm_nullvect = scm_make_vector (SCM_INUM0, SCM_UNDEFINED); - scm_symhash = scm_make_vector (SCM_MAKINUM (scm_symhash_dim), SCM_EOL); - scm_weak_symhash = scm_make_weak_key_hash_table (SCM_MAKINUM (scm_symhash_dim)); - scm_symhash_vars = scm_make_vector (SCM_MAKINUM (scm_symhash_dim), SCM_EOL); + +#define DEFAULT_SYMHASH_SIZE 277 + scm_symhash = scm_make_vector (SCM_MAKINUM (DEFAULT_SYMHASH_SIZE), SCM_EOL); + scm_weak_symhash = scm_make_weak_key_hash_table (SCM_MAKINUM (DEFAULT_SYMHASH_SIZE)); + scm_symhash_vars = scm_make_vector (SCM_MAKINUM (DEFAULT_SYMHASH_SIZE), SCM_EOL); + scm_stand_in_procs = SCM_EOL; scm_permobjs = SCM_EOL; scm_protects = scm_make_vector (SCM_MAKINUM (31), SCM_EOL); |