diff options
author | ko1 <ko1@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2013-07-24 09:42:43 +0000 |
---|---|---|
committer | ko1 <ko1@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2013-07-24 09:42:43 +0000 |
commit | 33ebcb053809f36a5a244cd587349389958c4d33 (patch) | |
tree | 3c0b778a7ad281bd5654f19c9177d4a7d2c19caf /gc.c | |
parent | 1758ff03819ce2c699345a4299f6fecdd25f8c0b (diff) | |
download | ruby-33ebcb053809f36a5a244cd587349389958c4d33.tar.gz |
* array.c, gc.c: move ary_unprotect_logging() into
rb_gc_unprotect_logging() which is general version
* include/ruby/ruby.h: add USE_RGENGC_LOGGING_WB_UNPROTECT
to enable.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@42151 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'gc.c')
-rw-r--r-- | gc.c | 43 |
1 files changed, 43 insertions, 0 deletions
@@ -3909,6 +3909,49 @@ rb_gc_writebarrier_remember_promoted(VALUE obj) rgengc_remember(objspace, obj); } +static st_table *rgengc_unprotect_logging_table; + +static int +rgengc_unprotect_logging_exit_func_i(st_data_t key, st_data_t val) +{ + fprintf(stderr, "%s\t%d\n", (char *)key, (int)val); + return ST_CONTINUE; +} + +static void +rgengc_unprotect_logging_exit_func(void) +{ + st_foreach(rgengc_unprotect_logging_table, rgengc_unprotect_logging_exit_func_i, 0); +} + +void +rb_gc_unprotect_logging(void *objptr, const char *filename, int line) +{ + VALUE obj = (VALUE)objptr; + + if (rgengc_unprotect_logging_table == 0) { + rgengc_unprotect_logging_table = st_init_strtable(); + atexit(rgengc_unprotect_logging_exit_func); + } + + if (OBJ_WB_PROTECTED(obj)) { + char buff[0x100]; + st_data_t cnt = 1; + char *ptr = buff; + + snprintf(ptr, 0x100 - 1, "%s|%s:%d", obj_type_name(obj), filename, line); + + if (st_lookup(rgengc_unprotect_logging_table, (st_data_t)ptr, &cnt)) { + cnt++; + } + else { + ptr = (char *)malloc(strlen(buff) + 1); + strcpy(ptr, buff); + } + st_insert(rgengc_unprotect_logging_table, (st_data_t)ptr, cnt); + } +} + #endif /* USE_RGENGC */ /* RGENGC analysis information */ |