summaryrefslogtreecommitdiff
path: root/vm_insnhelper.c
diff options
context:
space:
mode:
authornagachika <nagachika@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2013-04-19 16:28:55 +0000
committernagachika <nagachika@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2013-04-19 16:28:55 +0000
commit80002f8e46059a389c99c46d548ab27bf80f7c6d (patch)
tree18132d9861f55cb65ff7fc0933275ed3f9796b08 /vm_insnhelper.c
parent26de612013813687e11793c7d991b03a0982c8e0 (diff)
merge revision(s) 40260,40377: [Backport #8260]
* vm_insnhelper.c (vm_callee_setup_keyword_arg): non-symbol key is not a keyword argument, keep it as an positional argument. a keyword argument, keep it as a positional argument. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_2_0_0@40381 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'vm_insnhelper.c')
-rw-r--r--vm_insnhelper.c39
1 files changed, 35 insertions, 4 deletions
diff --git a/vm_insnhelper.c b/vm_insnhelper.c
index 0c447aaeda..ec26f677ff 100644
--- a/vm_insnhelper.c
+++ b/vm_insnhelper.c
@@ -1064,16 +1064,47 @@ vm_caller_setup_args(const rb_thread_t *th, rb_control_frame_t *cfp, rb_call_inf
}
}
+static int
+separate_symbol(st_data_t key, st_data_t value, st_data_t arg)
+{
+ VALUE *kwdhash = (VALUE *)arg;
+
+ if (!SYMBOL_P(key)) kwdhash++;
+ if (!*kwdhash) *kwdhash = rb_hash_new();
+ rb_hash_aset(*kwdhash, (VALUE)key, (VALUE)value);
+ return ST_CONTINUE;
+}
+
+static VALUE
+extract_keywords(VALUE *orighash)
+{
+ VALUE parthash[2] = {0, 0};
+ VALUE hash = *orighash;
+
+ if (RHASH_EMPTY_P(hash)) {
+ *orighash = 0;
+ return hash;
+ }
+ st_foreach(RHASH_TBL(hash), separate_symbol, (st_data_t)&parthash);
+ *orighash = parthash[1];
+ return parthash[0];
+}
+
static inline int
vm_callee_setup_keyword_arg(const rb_iseq_t *iseq, int argc, VALUE *orig_argv, VALUE *kwd)
{
- VALUE keyword_hash;
+ VALUE keyword_hash, orig_hash;
int i, j;
if (argc > 0 &&
- !NIL_P(keyword_hash = rb_check_hash_type(orig_argv[argc-1]))) {
- argc--;
- keyword_hash = rb_hash_dup(keyword_hash);
+ !NIL_P(orig_hash = rb_check_hash_type(orig_argv[argc-1])) &&
+ (keyword_hash = extract_keywords(&orig_hash)) != 0) {
+ if (!orig_hash) {
+ argc--;
+ }
+ else {
+ orig_argv[argc-1] = orig_hash;
+ }
if (iseq->arg_keyword_check) {
for (i = j = 0; i < iseq->arg_keywords; i++) {
if (st_lookup(RHASH_TBL(keyword_hash), ID2SYM(iseq->arg_keyword_table[i]), 0)) j++;