* gdb.gdb: New file.

	* .gdbinit: Move list-objfiles to gdb.gdb.

1 files changed, 35 insertions, 0 deletions

diff --git a/gdb/gdb.gdb b/gdb/gdb.gdb
new file mode 100644
index 0000000..4377841
--- /dev/null
+++ b/gdb/gdb.gdb
@@ -0,0 +1,35 @@
+# Examples of using gdb's command language to print out various gdb data
+# structures.
+
+define list-objfiles
+  set $obj = object_files
+  printf "objfile    bfd        msyms  name\n"
+  while $obj != 0
+    printf "0x%-8x 0x%-8x %6d %s\n", $obj, $obj->obfd, \
+      $obj->minimal_symbol_count, $obj->name
+    set var $obj = $obj->next
+  end
+end
+document list-objfiles
+Print a table of the current objfiles.
+end
+
+define print-values
+  printf "Location  Offset        Size  Lazy   Contents0-3  Lval\n"
+  set $val = $arg0
+  while $val != 0
+    printf "%8x  %6d  %10d  %4d  %12x  ", $val->location.address, \
+      $val->offset, \
+      $val->type->length, $val->lazy, $val->aligner.contents[0]
+    output $val->lval
+    printf "\n"
+    set $val = $val->next
+  end
+end
+document print-values
+Print a list of values.
+Takes one argument, the value to print, and prints all the values which
+are chained through the next field.  Thus the most recently created values
+will be listed first.  The "Contents0-3" field gives the first "int"
+of the VALUE_CONTENTS; not the entire contents.
+end