diff options
| author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2005-07-18 13:55:44 +0000 |
|---|---|---|
| committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2005-07-18 13:55:44 +0000 |
| commit | 3e2073bd24027e8b057e22186fa08c8d7ef34b51 (patch) | |
| tree | d6009d8604819a0e8bc85deb01a98bfccf16ce99 /libguile/hashtab.c | |
| parent | 2468a3c82038526179c13e9f116064ffcab0b13f (diff) | |
| download | guile-3e2073bd24027e8b057e22186fa08c8d7ef34b51.tar.gz | |
* gc.c (scm_gc_stats): Bugfix: Measure size of the type we are
mallocating for (unsigned long *bounds).
* hashtab.c (scm_i_rehash): Cast SCM_HASHTABLE_FLAGS (table) to
scm_t_bits before storing them in the type word.
* gc.c (tag_table_to_type_alist): Modified type of c_tag from
scm_t_bits to int.
Diffstat (limited to 'libguile/hashtab.c')
| -rw-r--r-- | libguile/hashtab.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/hashtab.c b/libguile/hashtab.c index 24f16a082..0ca5a2203 100644 --- a/libguile/hashtab.c +++ b/libguile/hashtab.c @@ -176,7 +176,7 @@ scm_i_rehash (SCM table, SCM_SET_HASHTABLE_VECTOR (table, new_buckets); SCM_SET_HASHTABLE_N_ITEMS (table, 0); if (SCM_HASHTABLE_WEAK_P (table)) - SCM_I_SET_WVECT_TYPE (buckets, (SCM_HASHTABLE_FLAGS (table))); + SCM_I_SET_WVECT_TYPE (buckets, ((scm_t_bits) SCM_HASHTABLE_FLAGS (table))); old_size = SCM_SIMPLE_VECTOR_LENGTH (buckets); for (i = 0; i < old_size; ++i) |