From 9546ba46052d82bcc771b173485b6e93ff7319c9 Mon Sep 17 00:00:00 2001
From: ko1 <ko1@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 19 Mar 2015 07:16:27 +0000
Subject: * gc.c (obj_info): show allocation site if GC_DEBUG is not 0.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@50025 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog | 4 ++++
 gc.c      | 4 ++++
 2 files changed, 8 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 0b5fcd475e..e84d117673 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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.
diff --git a/gc.c b/gc.c
index 44373a4314..58f03e578a 100644
--- a/gc.c
+++ b/gc.c
@@ -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:
-- 
cgit v1.2.3