From b0af0592fdd9e9d4e4b863fde006d67ccefeac21 Mon Sep 17 00:00:00 2001 From: nobu Date: Thu, 14 Nov 2013 02:33:50 +0000 Subject: [PATCH] hash.c, st.c: fix for ST_CHECK * hash.c (foreach_safe_i, hash_foreach_iter): deal with error detected by ST_CHECK. * st.c (st_foreach_check): call with non-error argument in normal case. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@43674 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ChangeLog | 7 +++++++ hash.c | 7 +++++-- st.c | 10 +++++----- 3 files changed, 17 insertions(+), 7 deletions(-) diff --git a/ChangeLog b/ChangeLog index fd2e5ab295e60c..4e8b22e036bb10 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +Thu Nov 14 11:33:47 2013 Nobuyoshi Nakada + + * hash.c (foreach_safe_i, hash_foreach_iter): deal with error detected + by ST_CHECK. + + * st.c (st_foreach_check): call with non-error argument in normal case. + Thu Nov 14 02:37:14 2013 Zachary Scott * ext/thread/thread.c: [DOC] This patch accomplishes the following: diff --git a/hash.c b/hash.c index bcd087aec3e102..a37318be85b14f 100644 --- a/hash.c +++ b/hash.c @@ -141,10 +141,12 @@ struct foreach_safe_arg { }; static int -foreach_safe_i(st_data_t key, st_data_t value, struct foreach_safe_arg *arg) +foreach_safe_i(st_data_t key, st_data_t value, st_data_t args, int error) { int status; + struct foreach_safe_arg *arg = (void *)args; + if (error) return ST_STOP; status = (*arg->func)(key, value, arg->arg); if (status == ST_CONTINUE) { return ST_CHECK; @@ -174,12 +176,13 @@ struct hash_foreach_arg { }; static int -hash_foreach_iter(st_data_t key, st_data_t value, st_data_t argp) +hash_foreach_iter(st_data_t key, st_data_t value, st_data_t argp, int error) { struct hash_foreach_arg *arg = (struct hash_foreach_arg *)argp; int status; st_table *tbl; + if (error) return ST_STOP; tbl = RHASH(arg->hash)->ntbl; status = (*arg->func)((VALUE)key, (VALUE)value, arg->arg); if (RHASH(arg->hash)->ntbl != tbl) { diff --git a/st.c b/st.c index 6e3df628a7efa8..c8f72c68c83c23 100644 --- a/st.c +++ b/st.c @@ -948,7 +948,7 @@ st_foreach_check(st_table *table, int (*func)(ANYARGS), st_data_t arg, st_data_t val = PVAL(table, i); hash = PHASH(table, i); if (key == never) continue; - retval = (*func)(key, val, arg); + retval = (*func)(key, val, arg, 0); if (!table->entries_packed) { FIND_ENTRY(table, ptr, hash, i); if (retval == ST_CHECK) { @@ -987,7 +987,7 @@ st_foreach_check(st_table *table, int (*func)(ANYARGS), st_data_t arg, st_data_t if (ptr->key == never) goto unpacked_continue; i = ptr->hash % table->num_bins; - retval = (*func)(ptr->key, ptr->record, arg); + retval = (*func)(ptr->key, ptr->record, arg, 0); unpacked: switch (retval) { case ST_CHECK: /* check if hash is modified during iteration */ @@ -1037,7 +1037,7 @@ st_foreach(st_table *table, int (*func)(ANYARGS), st_data_t arg) key = PKEY(table, i); val = PVAL(table, i); hash = PHASH(table, i); - retval = (*func)(key, val, arg); + retval = (*func)(key, val, arg, 0); if (!table->entries_packed) { FIND_ENTRY(table, ptr, hash, i); if (!ptr) return 0; @@ -1064,7 +1064,7 @@ st_foreach(st_table *table, int (*func)(ANYARGS), st_data_t arg) if (ptr != 0) { do { i = ptr->hash % table->num_bins; - retval = (*func)(ptr->key, ptr->record, arg); + retval = (*func)(ptr->key, ptr->record, arg, 0); unpacked: switch (retval) { case ST_CONTINUE: @@ -1105,7 +1105,7 @@ st_reverse_foreach(st_table *table, int (*func)(ANYARGS), st_data_t arg) st_data_t key, val; key = PKEY(table, i); val = PVAL(table, i); - retval = (*func)(key, val, arg); + retval = (*func)(key, val, arg, 0); switch (retval) { case ST_CHECK: /* check if hash is modified during iteration */ for (j = 0; j < table->num_entries; j++) {