diff options
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/.Sanitize | 1 | ||||
| -rw-r--r-- | gdb/.gdbinit | 12 | ||||
| -rw-r--r-- | gdb/ChangeLog | 3 | ||||
| -rw-r--r-- | gdb/gdb.gdb | 35 |
4 files changed, 39 insertions, 12 deletions
diff --git a/gdb/.Sanitize b/gdb/.Sanitize index f7af5c1..2e2366f 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 97cb380..f60802e 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 7d19986..ad3c11d 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 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 |