* gdb.gdb: New file.

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

diff --git a/gdb/.Sanitize b/gdb/.Sanitize
index f7af5c1c8c63c1a90b4f140ac1b2c4d791ae88db..2e2366fe1a80fe3fe8de21b2f8107d6149dcfba4 100644 (file)
--- a/gdb/.Sanitize
+++ b/gdb/.Sanitize
@@ -142,6 +142,7 @@ frame.h
 gcc.patch
 gdb-stabs.h
 gdb.1
+gdb.gdb
 gdba.el
 gdbcmd.h
 gdbcore.h

diff --git a/gdb/.gdbinit b/gdb/.gdbinit
index 97cb380667bb11a6d4662275a4aadeb32562e7b1..f60802e50093650d65d2377048f0eca9121fc528 100644 (file)
--- a/gdb/.gdbinit
+++ b/gdb/.gdbinit
@@ -14,15 +14,3 @@ dir ../mmalloc
 dir ../libiberty
 dir ../bfd
 set prompt (top-gdb) 
-
-# This only works with recent (post-4.13) GDB's, but there is no way to
-# tell what version we are.  So leave it commented out for now.
-#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

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 7d1998607dc66e96579ea9d99c48a65227da40c2..ad3c11deaa7d2ce72d8703f7c9bfda1c068e8a78 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,8 @@
 Wed Apr 12 16:36:44 1995  Jim Kingdon  (kingdon@lioth.cygnus.com)
 
+       * gdb.gdb: New file.
+       * .gdbinit: Move list-objfiles to gdb.gdb.
+
        * values.c (set_internalvar): Set modifiable flag of newval.
 
 Wed Apr 12 14:34:31 1995  Jim Kingdon  <kingdon@deneb.cygnus.com>

diff --git a/gdb/gdb.gdb b/gdb/gdb.gdb
new file mode 100644 (file)
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