Bug #6048 ยป method_hash.patch
| internal.h | ||
|---|---|---|
|
/* proc.c */
|
||
|
VALUE rb_proc_location(VALUE self);
|
||
|
st_index_t rb_hash_proc(st_index_t hash, VALUE proc);
|
||
|
/* rational.c */
|
||
|
VALUE rb_lcm(VALUE x, VALUE y);
|
||
| method.h | ||
|---|---|---|
|
int rb_method_entry_arity(const rb_method_entry_t *me);
|
||
|
int rb_method_entry_eq(const rb_method_entry_t *m1, const rb_method_entry_t *m2);
|
||
|
st_index_t rb_hash_method_definition(st_index_t hash, const rb_method_definition_t *def);
|
||
|
void rb_mark_method_entry(const rb_method_entry_t *me);
|
||
|
void rb_free_method_entry(rb_method_entry_t *me);
|
||
| proc.c | ||
|---|---|---|
|
return Qfalse;
|
||
|
}
|
||
|
st_index_t
|
||
|
rb_hash_proc(st_index_t hash, VALUE prc)
|
||
|
{
|
||
|
const rb_proc_t *proc = (const rb_proc_t *)prc;
|
||
|
hash = rb_hash_uint(hash, (st_index_t)proc->block.iseq);
|
||
|
hash = rb_hash_uint(hash, (st_index_t)proc->envval);
|
||
|
return rb_hash_uint(hash, (st_index_t)proc->block.lfp >> 16);
|
||
|
}
|
||
|
/*
|
||
|
* call-seq:
|
||
|
* prc.hash -> integer
|
||
| ... | ... | |
|
st_index_t hash;
|
||
|
rb_proc_t *proc;
|
||
|
GetProcPtr(self, proc);
|
||
|
hash = rb_hash_start((st_index_t)proc->block.iseq);
|
||
|
hash = rb_hash_uint(hash, (st_index_t)proc->envval);
|
||
|
hash = rb_hash_uint(hash, (st_index_t)proc->block.lfp >> 16);
|
||
|
hash = rb_hash_start(0);
|
||
|
hash = rb_hash_proc(hash, proc);
|
||
|
hash = rb_hash_end(hash);
|
||
|
return LONG2FIX(hash);
|
||
|
}
|
||
| ... | ... | |
|
TypedData_Get_Struct(method, struct METHOD, &method_data_type, m);
|
||
|
hash = rb_hash_start((st_index_t)m->rclass);
|
||
|
hash = rb_hash_uint(hash, (st_index_t)m->recv);
|
||
|
hash = rb_hash_uint(hash, (st_index_t)m->me->def);
|
||
|
hash = rb_hash_method_definition(hash, m->me->def);
|
||
|
hash = rb_hash_end(hash);
|
||
|
return INT2FIX(hash);
|
||
| test/ruby/test_method.rb | ||
|---|---|---|
|
o = Object.new
|
||
|
def o.foo; end
|
||
|
assert_kind_of(Integer, o.method(:foo).hash)
|
||
|
assert_equal(Array.instance_method(:map).hash, Array.instance_method(:collect).hash)
|
||
|
end
|
||
|
def test_receiver_name_owner
|
||
| vm_method.c | ||
|---|---|---|
|
}
|
||
|
}
|
||
|
st_index_t
|
||
|
rb_hash_method_definition(st_index_t hash, const rb_method_definition_t *def)
|
||
|
{
|
||
|
hash = rb_hash_uint(hash, def->type);
|
||
|
switch (def->type) {
|
||
|
case VM_METHOD_TYPE_ISEQ:
|
||
|
return rb_hash_uint(hash, (st_index_t)def->body.iseq);
|
||
|
case VM_METHOD_TYPE_CFUNC:
|
||
|
hash = rb_hash_uint(hash, (st_index_t)def->body.cfunc.func);
|
||
|
return rb_hash_uint(hash, def->body.cfunc.argc);
|
||
|
case VM_METHOD_TYPE_ATTRSET:
|
||
|
case VM_METHOD_TYPE_IVAR:
|
||
|
return rb_hash_uint(hash, def->body.attr.id);
|
||
|
case VM_METHOD_TYPE_BMETHOD:
|
||
|
return rb_hash_proc(hash, def->body.proc);
|
||
|
case VM_METHOD_TYPE_MISSING:
|
||
|
return rb_hash_uint(hash, def->original_id);
|
||
|
case VM_METHOD_TYPE_ZSUPER:
|
||
|
case VM_METHOD_TYPE_NOTIMPLEMENTED:
|
||
|
case VM_METHOD_TYPE_UNDEF:
|
||
|
return hash;
|
||
|
case VM_METHOD_TYPE_OPTIMIZED:
|
||
|
return rb_hash_uint(hash, def->body.optimize_type);
|
||
|
default:
|
||
|
rb_bug("rb_hash_method_definition: unsupported method type (%d)\n", def->type);
|
||
|
}
|
||
|
return hash;
|
||
|
}
|
||
|
void
|
||
|
rb_alias(VALUE klass, ID name, ID def)
|
||
|
{
|
||