/[guile]/guile/guile-core/libguile/hashtab.c
ViewVC logotype

Diff of /guile/guile-core/libguile/hashtab.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.52 by mdj, Wed Feb 19 15:43:00 2003 UTC revision 1.53 by mdj, Wed Feb 19 17:57:01 2003 UTC
# Line 104  SCM weak_hashtables = SCM_EOL; Line 104  SCM weak_hashtables = SCM_EOL;
104  static SCM  static SCM
105  make_hash_table (int flags, unsigned long k, const char *func_name) {  make_hash_table (int flags, unsigned long k, const char *func_name) {
106    SCM table, vector;    SCM table, vector;
107      scm_t_hashtable *t;
108    int i = 0, n = k ? k : 31;    int i = 0, n = k ? k : 31;
109    while (i < HASHTABLE_SIZE_N && n > hashtable_size[i])    while (i < HASHTABLE_SIZE_N && n > hashtable_size[i])
110      ++i;      ++i;
# Line 118  make_hash_table (int flags, unsigned lon Line 119  make_hash_table (int flags, unsigned lon
119                                           func_name);                                           func_name);
120    else    else
121      vector = scm_c_make_vector (n, SCM_EOL);      vector = scm_c_make_vector (n, SCM_EOL);
122    scm_t_hashtable *t = scm_gc_malloc (sizeof (*t), s_hashtable);    t = scm_gc_malloc (sizeof (*t), s_hashtable);
123    t->min_size_index = t->size_index = i;    t->min_size_index = t->size_index = i;
124    t->n_items = 0;    t->n_items = 0;
125    t->lower = 0;    t->lower = 0;

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26