* st.c (st_foreach): check if unpacked.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@30679 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nobu 2011-01-27 14:30:00 +00:00
parent c5b45d252a
commit 4a42b101a9
2 changed files with 14 additions and 1 deletions

View File

@ -1,3 +1,7 @@
Thu Jan 27 23:29:36 2011 Nobuyoshi Nakada <nobu@ruby-lang.org>
* st.c (st_foreach): check if unpacked.
Thu Jan 27 23:14:19 2011 Nobuyoshi Nakada <nobu@ruby-lang.org>
* misc/ruby-mode.el (ruby-mode-map): remove deprecated binding.

11
st.c
View File

@ -745,6 +745,7 @@ st_foreach(st_table *table, int (*func)(ANYARGS), st_data_t arg)
key = (st_data_t)table->bins[i*2];
val = (st_data_t)table->bins[i*2+1];
retval = (*func)(key, val, arg);
if (!table->entries_packed) goto unpacked;
switch (retval) {
case ST_CHECK: /* check if hash is modified during iteration */
for (j = 0; j < table->num_entries; j++) {
@ -770,9 +771,17 @@ st_foreach(st_table *table, int (*func)(ANYARGS), st_data_t arg)
}
}
return 0;
unpacked:
ptr = table->head;
while (i-- > 0) {
if (!(ptr = ptr->fore)) return 0;
}
}
else {
ptr = table->head;
}
if ((ptr = table->head) != 0) {
if (ptr != 0) {
do {
i = ptr->hash % table->num_bins;
retval = (*func)(ptr->key, ptr->record, arg);