* gc.c (obj_info): show T_STRING more details.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@48235 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

2 files changed, 8 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index 27052bd218..ff703adcd2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Mon Nov  3 02:33:43 2014  Koichi Sasada  <ko1@atdot.net>
+
+	* gc.c (obj_info): show T_STRING more details.
+
 Sun Nov  2 01:30:32 2014  Tanaka Akira  <akr@fsij.org>
 
 	* test/openssl/test_ssl.rb: Don't ignore errors on listener threads,
diff --git a/gc.c b/gc.c
index d7ba2adc57..2139fd5022 100644
--- a/gc.c
+++ b/gc.c
@@ -8388,6 +8388,10 @@ obj_info(VALUE obj)
 		 C(ARY_SHARED_P(obj), "S"),
 		 (int)RARRAY_LEN(obj));
 	break;
+      case T_STRING: {
+	  snprintf(buff, OBJ_INFO_BUFFERS_SIZE, "%s %s", buff, RSTRING_PTR(obj));
+	  break;
+      }
       case T_CLASS: {
 	  VALUE class_path = rb_class_path_cached(obj);
 	  if (!NIL_P(class_path)) {