.gdbinit: dump_node [ci skip]

* .gdbinit (dump_node): dump NODE list in gdb.

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

1 files changed, 8 insertions, 0 deletions

diff --git a/.gdbinit b/.gdbinit
index 03c2b653cb..bc79f51368 100644
--- a/.gdbinit
+++ b/.gdbinit
@@ -964,3 +964,11 @@ define rbi
   end
   end
 end
+
+define dump_node
+  set $str = rb_parser_dump_tree($arg0, 0)
+  set $flags = ((struct RBasic*)($str))->flags
+  printf "%s", (char *)(($flags & RUBY_FL_USER1) ? \
+                        ((struct RString*)$str)->as.heap.ptr : \
+                        ((struct RString*)$str)->as.ary)
+end