dir ../libiberty
dir ../bfd
set prompt (top-gdb)
-
-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