From: Jim Kingdon <jkingdon@engr.sgi.com>
Date: Thu, 13 Apr 1995 00:46:52 +0000 (+0000)
Subject: 	* gdb.gdb: New file.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=56b73ad2e36ef28dcff02c8929b3a4878a7c4a3d;p=binutils-gdb.git

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

diff --git a/gdb/.Sanitize b/gdb/.Sanitize
index f7af5c1c8c6..2e2366fe1a8 100644
--- 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 97cb380667b..f60802e5009 100644
--- 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 7d1998607dc..ad3c11deaa7 100644
--- 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
index 00000000000..437784102c1
--- /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