admin/mruby-mruby
1
0
Fork 0
mirror of https://github.com/mruby/mruby synced 2026-06-08 16:11:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

kernel.c (mrb_obj_hash): generate hash value for big-integers.

Browse Source
This commit is contained in:
Yukihiro "Matz" Matsumoto
2022-08-05 09:13:27 +09:00
parent 6d683785f9
commit a7c3d59971
3 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
include/mruby/internal.h
+1
View File
@@ -188,6 +188,7 @@ mrb_int mrb_bint_cmp(mrb_state *mrb, mrb_value x, mrb_value y);
void mrb_gc_free_bint(mrb_state *mrb, struct RBasic *x);
void mrb_bint_copy(mrb_state *mrb, mrb_value x, mrb_value y);
size_t mrb_bint_memsize(mrb_value x);
mrb_value mrb_bint_hash(mrb_state *mrb, mrb_value x);
#endif
#endif /* MRUBY_INTERNAL_H */
mrbgems/mruby-bigint/core/bigint.c
+9
View File
@@ -1538,3 +1538,12 @@ mrb_bint_memsize(mrb_value x)
struct RBigint *b = RBIGINT(x);
return b->mp.sz * sizeof(mp_limb);
}
mrb_value
mrb_bint_hash(mrb_state *mrb, mrb_value x)
{
struct RBigint *b = RBIGINT(x);
uint32_t hash = mrb_byte_hash((uint8_t*)b->mp.p, b->mp.sz);
hash = mrb_byte_hash_step((uint8_t*)&b->mp.sn, sizeof(b->mp.sn), hash);
return mrb_int_value(mrb, hash);
}
src/kernel.c
+5
View File
@@ -249,6 +249,11 @@ mrb_obj_frozen(mrb_state *mrb, mrb_value self)
static mrb_value
mrb_obj_hash(mrb_state *mrb, mrb_value self)
{
#ifdef MRB_USE_BIGINT
if (mrb_bigint_p(self)) {
return mrb_bint_hash(mrb, self);
}
#endif
return mrb_int_value(mrb, mrb_obj_id(self));
}