1berry/ruby
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add write-barrier in tally

Browse Source
This commit is contained in:
Nobuyoshi Nakada 2021-03-20 23:53:57 +09:00
parent 0b6554e65b
commit cfadbf2fc4
No known key found for this signature in database
GPG Key ID: 7CD2805BFA3770C6
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
enum.c
View File

@ -1012,6 +1012,7 @@ static int
tally_up(st_data_t *group, st_data_t *value, st_data_t arg, int existing) tally_up(st_data_t *group, st_data_t *value, st_data_t arg, int existing)
{ {
VALUE tally = (VALUE)*value; VALUE tally = (VALUE)*value;
VALUE hash = (VALUE)arg;
if (!existing) { if (!existing) {
tally = INT2FIX(1); tally = INT2FIX(1);
} }
@ -1020,15 +1021,17 @@ tally_up(st_data_t *group, st_data_t *value, st_data_t arg, int existing)
} }
else { else {
tally = rb_big_plus(tally, INT2FIX(1)); tally = rb_big_plus(tally, INT2FIX(1));
RB_OBJ_WRITTEN(hash, Qundef, tally);
} }
*value = (st_data_t)tally; *value = (st_data_t)tally;
if (!SPECIAL_CONST_P(*group)) RB_OBJ_WRITTEN(hash, Qundef, *group);
return ST_CONTINUE; return ST_CONTINUE;
} }
static VALUE static VALUE
rb_enum_tally_up(VALUE hash, VALUE group) rb_enum_tally_up(VALUE hash, VALUE group)
{ {
rb_hash_stlike_update(hash, group, tally_up, 0); rb_hash_stlike_update(hash, group, tally_up, (st_data_t)hash);
return hash; return hash;
} }