diff options
-rw-r--r-- | ChangeLog | 4 | ||||
-rw-r--r-- | gc.c | 4 |
2 files changed, 8 insertions, 0 deletions
@@ -1,3 +1,7 @@ +Thu Mar 19 16:15:24 2015 Koichi Sasada <ko1@atdot.net> + + * gc.c (obj_info): show allocation site if GC_DEBUG is not 0. + Thu Mar 19 16:12:01 2015 Koichi Sasada <ko1@atdot.net> * gc.c (newobj_of): fix RGENGC_OLD_NEWOBJ_CHECK logics. @@ -8812,6 +8812,10 @@ obj_info(VALUE obj) C(RVALUE_WB_UNPROTECTED_BITMAP(obj), "U"), obj_type_name(obj)); +#if GC_DEBUG + snprintf(buff, OBJ_INFO_BUFFERS_SIZE, "%s @%s:%d", buff, RANY(obj)->file, RANY(obj)->line); +#endif + #ifdef HAVE_VA_ARGS_MACRO switch (BUILTIN_TYPE(obj)) { case T_NODE: |