gdb/testsuite/

[binutils-gdb.git] / gdb / gdbinit.in

diff --git a/gdb/gdbinit.in b/gdb/gdbinit.in
index b6a32dba09f08ecedb394978e0cb149dcf2014b4..ffb7f53b5007788a8177382a903c53587de7a540 100644 (file)
--- a/gdb/gdbinit.in
+++ b/gdb/gdbinit.in
@@ -10,9 +10,25 @@ commands
        return
 end
 
-dir @srcdir@
-dir .
-dir @srcdir@/../mmalloc
 dir @srcdir@/../libiberty
 dir @srcdir@/../bfd
+dir @srcdir@
+dir .
 set prompt (top-gdb) 
+
+define pdie
+  if $argc == 1
+    call dump_die ($arg0, 1)
+  else
+    if $argc == 2
+      call dump_die ($arg0, $arg1)
+    else
+      printf "Syntax: pdie die [depth]\n"
+    end
+  end
+end
+
+document pdie
+Pretty print a DWARF DIE.
+Syntax: pdie die [depth]
+end