diff options
author | Jim Kingdon <jkingdon@engr.sgi.com> | 1995-04-13 00:46:52 +0000 |
---|---|---|
committer | Jim Kingdon <jkingdon@engr.sgi.com> | 1995-04-13 00:46:52 +0000 |
commit | 56b73ad2e36ef28dcff02c8929b3a4878a7c4a3d (patch) | |
tree | 1ae6262875f712f472819c4b37df4ec15da92bec /gdb/gdb.gdb | |
parent | ade016526a150ee32c0641f784b7c471d472b3d1 (diff) | |
download | binutils-56b73ad2e36ef28dcff02c8929b3a4878a7c4a3d.zip binutils-56b73ad2e36ef28dcff02c8929b3a4878a7c4a3d.tar.gz binutils-56b73ad2e36ef28dcff02c8929b3a4878a7c4a3d.tar.bz2 |
* gdb.gdb: New file.
* .gdbinit: Move list-objfiles to gdb.gdb.
Diffstat (limited to 'gdb/gdb.gdb')
-rw-r--r-- | gdb/gdb.gdb | 35 |
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 |