darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2025-02-21 18:11:31 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

* gdb.gdb: New file.

Browse Source 
* .gdbinit: Move list-objfiles to gdb.gdb.
This commit is contained in:
Jim Kingdon 1995-04-13 00:46:52 +00:00
parent ade016526a
commit 56b73ad2e3
4 changed files with 39 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
gdb/.Sanitize
View File

@ -142,6 +142,7 @@ frame.h
gcc.patch
gdb-stabs.h
gdb.1
gdb.gdb
gdba.el
gdbcmd.h
gdbcore.h

12
gdb/.gdbinit
View File

@ -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

3
gdb/ChangeLog
View File

@ -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>

35
gdb/gdb.gdb Normal file
View File

@ -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