* Makefile.in (clean): Remove $(DEMANGLER_PROG).1. From Ronald
[binutils-gdb.git] / binutils / objdump.c
index 512e6a749a2f368aa83be31a178ccaaca29e0e1d..46783a0c3de8b0f3acbe5c41040a78879602bf20 100644 (file)
@@ -15,24 +15,25 @@ GNU General Public License for more details.
 
 You should have received a copy of the GNU General Public License
 along with this program; if not, write to the Free Software
-Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 
 #include "bfd.h"
-#include "sysdep.h"
 #include "getopt.h"
+#include "progress.h"
 #include "bucomm.h"
+#include <sys/types.h>
 #include <stdio.h>
 #include <ctype.h>
 #include "dis-asm.h"
+#include "libiberty.h"
 
 /* Internal headers for the ELF .stab-dump code - sorry.  */
 #define        BYTES_IN_WORD   32
 #include "aout/aout64.h"
-#include "elf/internal.h"
-extern Elf_Internal_Shdr *bfd_elf_find_section();
 
-#ifndef FPRINTF_ALREADY_DECLARED
-extern int fprintf PARAMS ((FILE *, CONST char *, ...));
+#ifdef NEED_DECLARATION_FPRINTF
+/* This is needed by INIT_DISASSEMBLE_INFO.  */
+extern int fprintf ();
 #endif
 
 char *default_target = NULL;   /* default at runtime */
@@ -44,18 +45,27 @@ int dump_section_contents;  /* -s */
 int dump_section_headers;      /* -h */
 boolean dump_file_header;      /* -f */
 int dump_symtab;               /* -t */
+int dump_dynamic_symtab;       /* -T */
 int dump_reloc_info;           /* -r */
+int dump_dynamic_reloc_info;   /* -R */
 int dump_ar_hdrs;              /* -a */
+int dump_private_headers;      /* -p */
 int with_line_numbers;         /* -l */
+boolean with_source_code;      /* -S */
 int dump_stab_section_info;    /* --stabs */
 boolean disassemble;           /* -d */
+boolean disassemble_all;       /* -D */
 boolean formats_info;          /* -i */
 char *only;                    /* -j secname */
+int wide_output;               /* -w */
+bfd_vma start_address = (bfd_vma) -1; /* --start-address */
+bfd_vma stop_address = (bfd_vma) -1;  /* --stop-address */
 
 /* Extra info to pass to the disassembler address printing function.  */
 struct objdump_disasm_info {
   bfd *abfd;
   asection *sec;
+  boolean require_sec;
 };
 
 /* Architecture to disassemble for, or default if NULL.  */
@@ -67,6 +77,18 @@ asymbol **syms;
 /* Number of symbols in `syms'.  */
 long symcount = 0;
 
+/* The sorted symbol table.  */
+asymbol **sorted_syms;
+
+/* Number of symbols in `sorted_syms'.  */
+long sorted_symcount = 0;
+
+/* The dynamic symbol table.  */
+asymbol **dynsyms;
+
+/* Number of symbols in `dynsyms'.  */
+long dynsymcount = 0;
+
 /* Forward declarations.  */
 
 static void
@@ -79,13 +101,25 @@ static void
 dump_relocs PARAMS ((bfd *abfd));
 
 static void
-dump_symbols PARAMS ((bfd *abfd));
+dump_dynamic_relocs PARAMS ((bfd * abfd));
+
+static void
+dump_reloc_set PARAMS ((bfd *, arelent **, long));
+
+static void
+dump_symbols PARAMS ((bfd *abfd, boolean dynamic));
 
 static void
 display_bfd PARAMS ((bfd *abfd));
 
+static void
+objdump_print_value PARAMS ((bfd_vma, FILE *));
+
 static void
 objdump_print_address PARAMS ((bfd_vma, struct disassemble_info *));
+
+static void
+show_line PARAMS ((bfd *, asection *, bfd_vma));
 \f
 void
 usage (stream, status)
@@ -93,22 +127,36 @@ usage (stream, status)
      int status;
 {
   fprintf (stream, "\
-Usage: %s [-ahifdrtxsl] [-b bfdname] [-m machine] [-j section-name]\n\
-       [--archive-headers] [--target=bfdname] [--disassemble] [--file-headers]\n\
-       [--section-headers] [--headers] [--info] [--section=section-name]\n\
-       [--line-numbers] [--architecture=machine] [--reloc] [--full-contents]\n\
-       [--stabs] [--syms] [--all-headers] [--version] [--help] objfile...\n\
-at least one option besides -l (--line-numbers) must be given\n",
+Usage: %s [-ahifdDprRtTxsSlw] [-b bfdname] [-m machine] [-j section-name]\n\
+       [--archive-headers] [--target=bfdname] [--disassemble]\n\
+       [--disassemble-all] [--file-headers] [--section-headers] [--headers]\n\
+       [--info] [--section=section-name] [--line-numbers] [--source]\n",
           program_name);
+  fprintf (stream, "\
+       [--architecture=machine] [--reloc] [--full-contents] [--stabs]\n\
+       [--syms] [--all-headers] [--dynamic-syms] [--dynamic-reloc]\n\
+       [--wide] [--version] [--help] [--private-headers]\n\
+       [--start-address=addr] [--stop-address=addr] objfile...\n\
+at least one option besides -l (--line-numbers) must be given\n");
+  list_supported_targets (program_name, stream);
   exit (status);
 }
 
+/* 150 isn't special; it's just an arbitrary non-ASCII char value.  */
+
+#define OPTION_START_ADDRESS (150)
+#define OPTION_STOP_ADDRESS (OPTION_START_ADDRESS + 1)
+
 static struct option long_options[]=
 {
   {"all-headers", no_argument, NULL, 'x'},
+  {"private-headers", no_argument, NULL, 'p'},
   {"architecture", required_argument, NULL, 'm'},
   {"archive-headers", no_argument, NULL, 'a'},
   {"disassemble", no_argument, NULL, 'd'},
+  {"disassemble-all", no_argument, NULL, 'D'},
+  {"dynamic-reloc", no_argument, NULL, 'R'},
+  {"dynamic-syms", no_argument, NULL, 'T'},
   {"file-headers", no_argument, NULL, 'f'},
   {"full-contents", no_argument, NULL, 's'},
   {"headers", no_argument, NULL, 'h'},
@@ -118,10 +166,14 @@ static struct option long_options[]=
   {"reloc", no_argument, NULL, 'r'},
   {"section", required_argument, NULL, 'j'},
   {"section-headers", no_argument, NULL, 'h'},
+  {"source", no_argument, NULL, 'S'},
   {"stabs", no_argument, &dump_stab_section_info, 1},
+  {"start-address", required_argument, NULL, OPTION_START_ADDRESS},
+  {"stop-address", required_argument, NULL, OPTION_STOP_ADDRESS},
   {"syms", no_argument, NULL, 't'},
   {"target", required_argument, NULL, 'b'},
-  {"version", no_argument, &show_version,    1},
+  {"version", no_argument, &show_version, 1},
+  {"wide", no_argument, &wide_output, 'w'},
   {0, no_argument, 0, 0}
 };
 \f
@@ -143,8 +195,10 @@ dump_section_header (abfd, section, ignored)
          (unsigned) bfd_get_section_size_before_reloc (section));
   printf (" vma ");
   printf_vma (section->vma);
-  printf (" align 2**%u\n ",
-         section->alignment_power);
+  printf (" lma ");
+  printf_vma (section->lma);
+  printf (" align 2**%u%s ",
+         section->alignment_power, (wide_output) ? "" : "\n");
   PF (SEC_ALLOC, "ALLOC");
   PF (SEC_CONSTRUCTOR, "CONSTRUCTOR");
   PF (SEC_CONSTRUCTOR_TEXT, "CONSTRUCTOR TEXT");
@@ -160,6 +214,7 @@ dump_section_header (abfd, section, ignored)
   PF (SEC_DATA, "DATA");
   PF (SEC_ROM, "ROM");
   PF (SEC_DEBUGGING, "DEBUGGING");
+  PF (SEC_NEVER_LOAD, "NEVER_LOAD");
   printf ("\n");
 #undef PF
 }
@@ -181,6 +236,7 @@ slurp_symtab (abfd)
   if (!(bfd_get_file_flags (abfd) & HAS_SYMS))
     {
       printf ("No symbols in \"%s\".\n", bfd_get_filename (abfd));
+      symcount = 0;
       return NULL;
     }
 
@@ -196,11 +252,44 @@ slurp_symtab (abfd)
   if (symcount < 0)
     bfd_fatal (bfd_get_filename (abfd));
   if (symcount == 0)
+    fprintf (stderr, "%s: %s: No symbols\n",
+            program_name, bfd_get_filename (abfd));
+  return sy;
+}
+
+/* Read in the dynamic symbols.  */
+
+static asymbol **
+slurp_dynamic_symtab (abfd)
+     bfd *abfd;
+{
+  asymbol **sy = (asymbol **) NULL;
+  long storage;
+
+  storage = bfd_get_dynamic_symtab_upper_bound (abfd);
+  if (storage < 0)
     {
-      fprintf (stderr, "%s: %s: Invalid symbol table\n",
-              program_name, bfd_get_filename (abfd));
-      exit (1);
+      if (!(bfd_get_file_flags (abfd) & DYNAMIC))
+       {
+         fprintf (stderr, "%s: %s: not a dynamic object\n",
+                  program_name, bfd_get_filename (abfd));
+         dynsymcount = 0;
+         return NULL;
+       }
+
+      bfd_fatal (bfd_get_filename (abfd));
+    }
+
+  if (storage)
+    {
+      sy = (asymbol **) xmalloc (storage);
     }
+  dynsymcount = bfd_canonicalize_dynamic_symtab (abfd, sy);
+  if (dynsymcount < 0)
+    bfd_fatal (bfd_get_filename (abfd));
+  if (dynsymcount == 0)
+    fprintf (stderr, "%s: %s: No dynamic symbols\n",
+            program_name, bfd_get_filename (abfd));
   return sy;
 }
 
@@ -223,7 +312,7 @@ remove_useless_symbols (symbols, count)
        continue;
       if (sym->flags & (BSF_DEBUGGING))
        continue;
-      if (sym->section == &bfd_und_section
+      if (bfd_is_und_section (sym->section)
          || bfd_is_com_section (sym->section))
        continue;
 
@@ -236,24 +325,106 @@ remove_useless_symbols (symbols, count)
 
 static int 
 compare_symbols (ap, bp)
-     PTR ap;
-     PTR bp;
+     const PTR ap;
+     const PTR bp;
 {
-  asymbol *a = *(asymbol **)ap;
-  asymbol *b = *(asymbol **)bp;
+  const asymbol *a = *(const asymbol **)ap;
+  const asymbol *b = *(const asymbol **)bp;
+  const char *an, *bn;
+  size_t anl, bnl;
+  boolean af, bf;
 
-  if (a->value > b->value)
+  if (bfd_asymbol_value (a) > bfd_asymbol_value (b))
     return 1;
-  else if (a->value < b->value)
+  else if (bfd_asymbol_value (a) < bfd_asymbol_value (b))
     return -1;
 
   if (a->section > b->section)
     return 1;
   else if (a->section < b->section)
     return -1;
+
+  an = bfd_asymbol_name (a);
+  bn = bfd_asymbol_name (b);
+  anl = strlen (an);
+  bnl = strlen (bn);
+
+  /* The symbols gnu_compiled and gcc2_compiled convey no real
+     information, so put them after other symbols with the same value.  */
+
+  af = (strstr (an, "gnu_compiled") != NULL
+       || strstr (an, "gcc2_compiled") != NULL);
+  bf = (strstr (bn, "gnu_compiled") != NULL
+       || strstr (bn, "gcc2_compiled") != NULL);
+
+  if (af && ! bf)
+    return 1;
+  if (! af && bf)
+    return -1;
+
+  /* We use a heuristic for the file name, to try to sort it after
+     more useful symbols.  It may not work on non Unix systems, but it
+     doesn't really matter; the only difference is precisely which
+     symbol names get printed.  */
+
+#define file_symbol(s, sn, snl)                        \
+  (((s)->flags & BSF_FILE) != 0                        \
+   || ((sn)[(snl) - 2] == '.'                  \
+       && ((sn)[(snl) - 1] == 'o'              \
+          || (sn)[(snl) - 1] == 'a')))
+
+  af = file_symbol (a, an, anl);
+  bf = file_symbol (b, bn, bnl);
+
+  if (af && ! bf)
+    return 1;
+  if (! af && bf)
+    return -1;
+
   return 0;
 }
 
+/* Sort relocs into address order.  */
+
+static int
+compare_relocs (ap, bp)
+     const PTR ap;
+     const PTR bp;
+{
+  const arelent *a = *(const arelent **)ap;
+  const arelent *b = *(const arelent **)bp;
+
+  if (a->address > b->address)
+    return 1;
+  else if (a->address < b->address)
+    return -1;
+
+  /* So that associated relocations tied to the same address show up
+     in the correct order, we don't do any further sorting.  */
+  if (a > b)
+    return 1;
+  else if (a < b)
+    return -1;
+  else
+    return 0;
+}
+
+/* Print VMA to STREAM with no leading zeroes.  */
+
+static void
+objdump_print_value (vma, stream)
+     bfd_vma vma;
+     FILE *stream;
+{
+  char buf[30];
+  char *p;
+
+  sprintf_vma (buf, vma);
+  for (p = buf; *p == '0'; ++p)
+    ;
+  fprintf (stream, "%s", p);
+}
+
 /* Print VMA symbolically to INFO if possible.  */
 
 static void
@@ -269,16 +440,14 @@ objdump_print_address (vma, info)
      operand can be present at a time, so the 2-entry cache wouldn't be
      constantly churned by code doing heavy memory accesses.  */
 
-  /* Indices in `syms'.  */
+  /* Indices in `sorted_syms'.  */
   long min = 0;
-  long max = symcount;
+  long max = sorted_symcount;
   long thisplace;
 
-  bfd_signed_vma vardiff;
-
   fprintf_vma (info->stream, vma);
 
-  if (symcount < 1)
+  if (sorted_symcount < 1)
     return;
 
   /* Perform a binary search looking for the closest symbol to the
@@ -288,13 +457,11 @@ objdump_print_address (vma, info)
       asymbol *sym;
 
       thisplace = (max + min) / 2;
-      sym = syms[thisplace];
+      sym = sorted_syms[thisplace];
 
-      vardiff = sym->value - vma;
-
-      if (vardiff > 0)
+      if (bfd_asymbol_value (sym) > vma)
        max = thisplace;
-      else if (vardiff < 0)
+      else if (bfd_asymbol_value (sym) < vma)
        min = thisplace;
       else
        {
@@ -306,31 +473,35 @@ objdump_print_address (vma, info)
   /* The symbol we want is now in min, the low end of the range we
      were searching.  */
   thisplace = min;
+  while (thisplace > 0
+        && (bfd_asymbol_value (sorted_syms[thisplace])
+            == bfd_asymbol_value (sorted_syms[thisplace - 1])))
+    --thisplace;
 
   {
     /* If this symbol isn't global, search for one with the same value
        that is.  */
-    bfd_vma val = syms[thisplace]->value;
+    bfd_vma val = bfd_asymbol_value (sorted_syms[thisplace]);
     long i;
-    if (syms[thisplace]->flags & (BSF_LOCAL|BSF_DEBUGGING))
+    if (sorted_syms[thisplace]->flags & (BSF_LOCAL|BSF_DEBUGGING))
       for (i = thisplace - 1; i >= 0; i--)
        {
-         if (syms[i]->value == val
-             && (!(syms[i]->flags & (BSF_LOCAL|BSF_DEBUGGING))
-                 || ((syms[thisplace]->flags & BSF_DEBUGGING)
-                     && !(syms[i]->flags & BSF_DEBUGGING))))
+         if (bfd_asymbol_value (sorted_syms[i]) == val
+             && (!(sorted_syms[i]->flags & (BSF_LOCAL|BSF_DEBUGGING))
+                 || ((sorted_syms[thisplace]->flags & BSF_DEBUGGING)
+                     && !(sorted_syms[i]->flags & BSF_DEBUGGING))))
            {
              thisplace = i;
              break;
            }
        }
-    if (syms[thisplace]->flags & (BSF_LOCAL|BSF_DEBUGGING))
-      for (i = thisplace + 1; i < symcount; i++)
+    if (sorted_syms[thisplace]->flags & (BSF_LOCAL|BSF_DEBUGGING))
+      for (i = thisplace + 1; i < sorted_symcount; i++)
        {
-         if (syms[i]->value == val
-             && (!(syms[i]->flags & (BSF_LOCAL|BSF_DEBUGGING))
-                 || ((syms[thisplace]->flags & BSF_DEBUGGING)
-                     && !(syms[i]->flags & BSF_DEBUGGING))))
+         if (bfd_asymbol_value (sorted_syms[i]) == val
+             && (!(sorted_syms[i]->flags & (BSF_LOCAL|BSF_DEBUGGING))
+                 || ((sorted_syms[thisplace]->flags & BSF_DEBUGGING)
+                     && !(sorted_syms[i]->flags & BSF_DEBUGGING))))
            {
              thisplace = i;
              break;
@@ -350,95 +521,314 @@ objdump_print_address (vma, info)
     long i;
 
     aux = (struct objdump_disasm_info *) info->application_data;
-    if ((aux->abfd->flags & HAS_RELOC)
-       && vma >= bfd_get_section_vma (aux->abfd, aux->sec)
-       && vma < (bfd_get_section_vma (aux->abfd, aux->sec)
-                 + bfd_get_section_size_before_reloc (aux->sec))
-       && syms[thisplace]->section != aux->sec)
+    if (sorted_syms[thisplace]->section != aux->sec
+       && (aux->require_sec
+           || ((aux->abfd->flags & HAS_RELOC) != 0
+               && vma >= bfd_get_section_vma (aux->abfd, aux->sec)
+               && vma < (bfd_get_section_vma (aux->abfd, aux->sec)
+                         + bfd_section_size (aux->abfd, aux->sec)))))
       {
-       for (i = thisplace + 1; i < symcount; i++)
+       for (i = thisplace + 1; i < sorted_symcount; i++)
          {
-           if (syms[i]->value != syms[thisplace]->value)
-             {
-               i--;
-               break;
-             }
+           if (bfd_asymbol_value (sorted_syms[i])
+               != bfd_asymbol_value (sorted_syms[thisplace]))
+             break;
          }
+       --i;
        for (; i >= 0; i--)
          {
-           if (syms[i]->section == aux->sec)
+           if (sorted_syms[i]->section == aux->sec
+               && (i == 0
+                   || sorted_syms[i - 1]->section != aux->sec
+                   || (bfd_asymbol_value (sorted_syms[i])
+                       != bfd_asymbol_value (sorted_syms[i - 1]))))
              {
                thisplace = i;
                break;
              }
          }
+
+       if (sorted_syms[thisplace]->section != aux->sec)
+         {
+           /* We didn't find a good symbol with a smaller value.
+               Look for one with a larger value.  */
+           for (i = thisplace + 1; i < sorted_symcount; i++)
+             {
+               if (sorted_syms[i]->section == aux->sec)
+                 {
+                   thisplace = i;
+                   break;
+                 }
+             }
+         }
+
+       if (sorted_syms[thisplace]->section != aux->sec
+           && (aux->require_sec
+               || ((aux->abfd->flags & HAS_RELOC) != 0
+                   && vma >= bfd_get_section_vma (aux->abfd, aux->sec)
+                   && vma < (bfd_get_section_vma (aux->abfd, aux->sec)
+                             + bfd_section_size (aux->abfd, aux->sec)))))
+         {
+           bfd_vma secaddr;
+
+           fprintf (info->stream, " <%s",
+                    bfd_get_section_name (aux->abfd, aux->sec));
+           secaddr = bfd_get_section_vma (aux->abfd, aux->sec);
+           if (vma < secaddr)
+             {
+               fprintf (info->stream, "-");
+               objdump_print_value (secaddr - vma, info->stream);
+             }
+           else if (vma > secaddr)
+             {
+               fprintf (info->stream, "+");
+               objdump_print_value (vma - secaddr, info->stream);
+             }
+           fprintf (info->stream, ">");
+           return;
+         }
       }
   }
-  fprintf (info->stream, " <%s", syms[thisplace]->name);
-  if (syms[thisplace]->value > vma)
+
+  fprintf (info->stream, " <%s", sorted_syms[thisplace]->name);
+  if (bfd_asymbol_value (sorted_syms[thisplace]) > vma)
     {
-      char buf[30], *p = buf;
-      sprintf_vma (buf, syms[thisplace]->value - vma);
-      while (*p == '0')
-       p++;
-      fprintf (info->stream, "-%s", p);
+      fprintf (info->stream, "-");
+      objdump_print_value (bfd_asymbol_value (sorted_syms[thisplace]) - vma,
+                          info->stream);
     }
-  else if (vma > syms[thisplace]->value)
+  else if (vma > bfd_asymbol_value (sorted_syms[thisplace]))
     {
-      char buf[30], *p = buf;
-      sprintf_vma (buf, vma - syms[thisplace]->value);
-      while (*p == '0')
-       p++;
-      fprintf (info->stream, "+%s", p);
+      fprintf (info->stream, "+");
+      objdump_print_value (vma - bfd_asymbol_value (sorted_syms[thisplace]),
+                          info->stream);
     }
   fprintf (info->stream, ">");
 }
 
-#ifdef ARCH_all
-#define ARCH_a29k
-#define ARCH_alpha
-#define ARCH_h8300
-#define ARCH_h8500
-#define ARCH_hppa
-#define ARCH_i386
-#define ARCH_i960
-#define ARCH_m68k
-#define ARCH_m88k
-#define ARCH_mips
-#define ARCH_powerpc
-#define ARCH_rs6000
-#define ARCH_sh
-#define ARCH_sparc
-#define ARCH_z8k
-#endif
+/* Hold the last function name and the last line number we displayed
+   in a disassembly.  */
+
+static char *prev_functionname;
+static unsigned int prev_line;
+
+/* We keep a list of all files that we have seen when doing a
+   dissassembly with source, so that we know how much of the file to
+   display.  This can be important for inlined functions.  */
+
+struct print_file_list
+{
+  struct print_file_list *next;
+  char *filename;
+  unsigned int line;
+  FILE *f;
+};
+
+static struct print_file_list *print_files;
+
+/* The number of preceding context lines to show when we start
+   displaying a file for the first time.  */
+
+#define SHOW_PRECEDING_CONTEXT_LINES (5)
+
+/* Skip ahead to a given line in a file, optionally printing each
+   line.  */
+
+static void
+skip_to_line PARAMS ((struct print_file_list *, unsigned int, boolean));
+
+static void
+skip_to_line (p, line, show)
+     struct print_file_list *p;
+     unsigned int line;
+     boolean show;
+{
+  while (p->line < line)
+    {
+      char buf[100];
+
+      if (fgets (buf, sizeof buf, p->f) == NULL)
+       {
+         fclose (p->f);
+         p->f = NULL;
+         break;
+       }
+
+      if (show)
+       printf ("%s", buf);
+
+      if (strchr (buf, '\n') != NULL)
+       ++p->line;
+    }
+}  
+
+/* Show the line number, or the source line, in a dissassembly
+   listing.  */
+
+static void
+show_line (abfd, section, off)
+     bfd *abfd;
+     asection *section;
+     bfd_vma off;
+{
+  CONST char *filename;
+  CONST char *functionname;
+  unsigned int line;
+
+  if (! with_line_numbers && ! with_source_code)
+    return;
+
+  if (! bfd_find_nearest_line (abfd, section, syms, off, &filename,
+                              &functionname, &line))
+    return;
+
+  if (filename != NULL && *filename == '\0')
+    filename = NULL;
+  if (functionname != NULL && *functionname == '\0')
+    functionname = NULL;
+
+  if (with_line_numbers)
+    {
+      if (functionname != NULL
+         && (prev_functionname == NULL
+             || strcmp (functionname, prev_functionname) != 0))
+       printf ("%s():\n", functionname);
+      if (line > 0 && line != prev_line)
+       printf ("%s:%u\n", filename == NULL ? "???" : filename, line);
+    }
+
+  if (with_source_code
+      && filename != NULL
+      && line > 0)
+    {
+      struct print_file_list **pp, *p;
+
+      for (pp = &print_files; *pp != NULL; pp = &(*pp)->next)
+       if (strcmp ((*pp)->filename, filename) == 0)
+         break;
+      p = *pp;
+
+      if (p != NULL)
+       {
+         if (p != print_files)
+           {
+             int l;
+
+             /* We have reencountered a file name which we saw
+                earlier.  This implies that either we are dumping out
+                code from an included file, or the same file was
+                linked in more than once.  There are two common cases
+                of an included file: inline functions in a header
+                file, and a bison or flex skeleton file.  In the
+                former case we want to just start printing (but we
+                back up a few lines to give context); in the latter
+                case we want to continue from where we left off.  I
+                can't think of a good way to distinguish the cases,
+                so I used a heuristic based on the file name.  */
+             if (strcmp (p->filename + strlen (p->filename) - 2, ".h") != 0)
+               l = p->line;
+             else
+               {
+                 l = line - SHOW_PRECEDING_CONTEXT_LINES;
+                 if (l <= 0)
+                   l = 1;
+               }
+
+             if (p->f == NULL)
+               {
+                 p->f = fopen (p->filename, "r");
+                 p->line = 0;
+               }
+             if (p->f != NULL)
+               skip_to_line (p, l, false);
+
+             if (print_files->f != NULL)
+               {
+                 fclose (print_files->f);
+                 print_files->f = NULL;
+               }
+           }
+
+         if (p->f != NULL)
+           {
+             skip_to_line (p, line, true);
+             *pp = p->next;
+             p->next = print_files;
+             print_files = p;
+           }
+       }
+      else
+       {
+         FILE *f;
+
+         f = fopen (filename, "r");
+         if (f != NULL)
+           {
+             int l;
+
+             p = ((struct print_file_list *)
+                  xmalloc (sizeof (struct print_file_list)));
+             p->filename = xmalloc (strlen (filename) + 1);
+             strcpy (p->filename, filename);
+             p->line = 0;
+             p->f = f;
+
+             if (print_files != NULL && print_files->f != NULL)
+               {
+                 fclose (print_files->f);
+                 print_files->f = NULL;
+               }
+             p->next = print_files;
+             print_files = p;
+
+             l = line - SHOW_PRECEDING_CONTEXT_LINES;
+             if (l <= 0)
+               l = 1;
+             skip_to_line (p, l, false);
+             if (p->f != NULL)
+               skip_to_line (p, line, true);
+           }
+       }
+    }
+
+  if (functionname != NULL
+      && (prev_functionname == NULL
+         || strcmp (functionname, prev_functionname) != 0))
+    {
+      if (prev_functionname != NULL)
+       free (prev_functionname);
+      prev_functionname = xmalloc (strlen (functionname) + 1);
+      strcpy (prev_functionname, functionname);
+    }
+
+  if (line > 0 && line != prev_line)
+    prev_line = line;
+}
 
 void
 disassemble_data (abfd)
      bfd *abfd;
 {
   long i;
-  unsigned int (*print) () = 0; /* Old style */
-  disassembler_ftype disassemble = 0; /* New style */
+  disassembler_ftype disassemble_fn = 0; /* New style */
   struct disassemble_info disasm_info;
   struct objdump_disasm_info aux;
-
-  int prevline;
-  CONST char *prev_function = "";
-
   asection *section;
-
   boolean done_dot = false;
 
-  /* Replace symbol section relative values with abs values.  */
-  for (i = 0; i < symcount; i++)
-    {
-      syms[i]->value += syms[i]->section->vma;
-    }
+  print_files = NULL;
+  prev_functionname = NULL;
+  prev_line = -1;
+
+  /* We make a copy of syms to sort.  We don't want to sort syms
+     because that will screw up the relocs.  */
+  sorted_syms = (asymbol **) xmalloc (symcount * sizeof (asymbol *));
+  memcpy (sorted_syms, syms, symcount * sizeof (asymbol *));
 
-  symcount = remove_useless_symbols (syms, symcount);
+  sorted_symcount = remove_useless_symbols (sorted_syms, symcount);
 
   /* Sort the symbols into section and symbol order */
-  qsort (syms, symcount, sizeof (asymbol *), compare_symbols);
+  qsort (sorted_syms, sorted_symcount, sizeof (asymbol *), compare_symbols);
 
   INIT_DISASSEMBLE_INFO(disasm_info, stdout);
   disasm_info.application_data = (PTR) &aux;
@@ -447,7 +837,7 @@ disassemble_data (abfd)
 
   if (machine != (char *) NULL)
     {
-      bfd_arch_info_type *info = bfd_scan_arch (machine);
+      const bfd_arch_info_type *info = bfd_scan_arch (machine);
       if (info == NULL)
        {
          fprintf (stderr, "%s: Can't use supplied machine %s\n",
@@ -458,114 +848,13 @@ disassemble_data (abfd)
       abfd->arch_info = info;
     }
 
-  /* See if we can disassemble using bfd.  */
-
-  if (abfd->arch_info->disassemble)
+  disassemble_fn = disassembler (abfd);
+  if (!disassemble_fn)
     {
-      print = abfd->arch_info->disassemble;
-    }
-  else
-    {
-      enum bfd_architecture a = bfd_get_arch (abfd);
-      switch (a)
-       {
-         /* If you add a case to this table, also add it to the
-            ARCH_all definition right above this function.  */
-#ifdef ARCH_a29k
-       case bfd_arch_a29k:
-         /* As far as I know we only handle big-endian 29k objects.  */
-         disassemble = print_insn_big_a29k;
-         break;
-#endif
-#ifdef ARCH_alpha
-       case bfd_arch_alpha:
-         disassemble = print_insn_alpha;
-         break;
-#endif
-#ifdef ARCH_h8300
-       case bfd_arch_h8300:
-         if (bfd_get_mach(abfd) == bfd_mach_h8300h)
-          disassemble = print_insn_h8300h;
-         else 
-          disassemble = print_insn_h8300;
-         break;
-#endif
-#ifdef ARCH_h8500
-       case bfd_arch_h8500:
-         disassemble = print_insn_h8500;
-         break;
-#endif
-#ifdef ARCH_hppa
-       case bfd_arch_hppa:
-         disassemble = print_insn_hppa;
-         break;
-#endif
-#ifdef ARCH_i386
-       case bfd_arch_i386:
-         disassemble = print_insn_i386;
-         break;
-#endif
-#ifdef ARCH_i960
-       case bfd_arch_i960:
-         disassemble = print_insn_i960;
-         break;
-#endif
-#ifdef ARCH_m68k
-       case bfd_arch_m68k:
-         disassemble = print_insn_m68k;
-         break;
-#endif
-#ifdef ARCH_m88k
-       case bfd_arch_m88k:
-         disassemble = print_insn_m88k;
-         break;
-#endif
-#ifdef ARCH_mips
-       case bfd_arch_mips:
-         if (abfd->xvec->byteorder_big_p)
-           disassemble = print_insn_big_mips;
-         else
-           disassemble = print_insn_little_mips;
-         break;
-#endif
-#ifdef ARCH_powerpc
-       case bfd_arch_powerpc:
-         if (abfd->xvec->byteorder_big_p)
-           disassemble = print_insn_big_powerpc;
-         else
-           disassemble = print_insn_little_powerpc;
-         break;
-#endif
-#ifdef ARCH_rs6000
-       case bfd_arch_rs6000:
-         disassemble = print_insn_rs6000;
-         break;
-#endif
-#ifdef ARCH_sh
-       case bfd_arch_sh:
-         disassemble = print_insn_sh;
-         break;
-#endif
-#ifdef ARCH_sparc
-       case bfd_arch_sparc:
-         disassemble = print_insn_sparc;
-         break;
-#endif
-#ifdef ARCH_z8k
-        case bfd_arch_z8k:
-         if (bfd_get_mach(abfd) == bfd_mach_z8001)
-          disassemble = print_insn_z8001;
-         else 
-          disassemble = print_insn_z8002;
-         break;
-#endif
-       default:
-         fprintf (stderr, "%s: Can't disassemble for architecture %s\n",
-                  program_name,
-                  bfd_printable_arch_mach (a, 0));
-         exit (1);
-       }
-
+      fprintf (stderr, "%s: Can't disassemble for architecture %s\n",
+              program_name,
+              bfd_printable_arch_mach (bfd_get_arch (abfd), 0));
+      exit (1);
     }
 
   for (section = abfd->sections;
@@ -574,12 +863,45 @@ disassemble_data (abfd)
     {
       bfd_byte *data = NULL;
       bfd_size_type datasize = 0;
-
-      if (!(section->flags & SEC_LOAD))
+      arelent **relbuf = NULL;
+      arelent **relpp = NULL;
+      arelent **relppend = NULL;
+      long stop;
+
+      if ((section->flags & SEC_LOAD) == 0
+         || (! disassemble_all
+             && only == NULL
+             && (section->flags & SEC_CODE) == 0))
        continue;
       if (only != (char *) NULL && strcmp (only, section->name) != 0)
        continue;
 
+      if (dump_reloc_info
+         && (section->flags & SEC_RELOC) != 0)
+       {
+         long relsize;
+
+         relsize = bfd_get_reloc_upper_bound (abfd, section);
+         if (relsize < 0)
+           bfd_fatal (bfd_get_filename (abfd));
+
+         if (relsize > 0)
+           {
+             long relcount;
+
+             relbuf = (arelent **) xmalloc (relsize);
+             relcount = bfd_canonicalize_reloc (abfd, section, relbuf, syms);
+             if (relcount < 0)
+               bfd_fatal (bfd_get_filename (abfd));
+
+             /* Sort the relocs by address.  */
+             qsort (relbuf, relcount, sizeof (arelent *), compare_relocs);
+
+             relpp = relbuf;
+             relppend = relpp + relcount;
+           }
+       }
+
       printf ("Disassembly of section %s:\n", section->name);
 
       datasize = bfd_get_section_size_before_reloc (section);
@@ -594,9 +916,27 @@ disassemble_data (abfd)
       disasm_info.buffer = data;
       disasm_info.buffer_vma = section->vma;
       disasm_info.buffer_length = datasize;
-      i = 0;
-      while (i < disasm_info.buffer_length)
+      if (start_address == (bfd_vma) -1
+         || start_address < disasm_info.buffer_vma)
+       i = 0;
+      else
+       i = start_address - disasm_info.buffer_vma;
+      if (stop_address == (bfd_vma) -1)
+       stop = datasize;
+      else
        {
+         if (stop_address < disasm_info.buffer_vma)
+           stop = 0;
+         else
+           stop = stop_address - disasm_info.buffer_vma;
+         if (stop > disasm_info.buffer_length)
+           stop = disasm_info.buffer_length;
+       }
+      while (i < stop)
+       {
+         int bytes;
+         boolean need_nl = false;
+
          if (data[i] == 0 && data[i + 1] == 0 && data[i + 2] == 0 &&
              data[i + 3] == 0)
            {
@@ -605,60 +945,86 @@ disassemble_data (abfd)
                  printf ("...\n");
                  done_dot = true;
                }
-             i += 4;
+             bytes = 4;
            }
          else
            {
              done_dot = false;
-             if (with_line_numbers)
+             if (with_line_numbers || with_source_code)
+               show_line (abfd, section, i);
+             aux.require_sec = true;
+             objdump_print_address (section->vma + i, &disasm_info);
+             aux.require_sec = false;
+             putchar (' ');
+
+             bytes = (*disassemble_fn) (section->vma + i, &disasm_info);
+             if (bytes < 0)
+               break;
+
+             if (!wide_output)
+               putchar ('\n');
+             else
+               need_nl = true;
+           }
+
+         if (dump_reloc_info
+             && (section->flags & SEC_RELOC) != 0)
+           {
+             while (relpp < relppend
+                    && ((*relpp)->address >= (bfd_vma) i
+                        && (*relpp)->address < (bfd_vma) i + bytes))
                {
-                 CONST char *filename;
-                 CONST char *functionname;
-                 unsigned int line;
-
-                 if (bfd_find_nearest_line (abfd,
-                                            section,
-                                            syms,
-                                            section->vma + i,
-                                            &filename,
-                                            &functionname,
-                                            &line))
+                 arelent *q;
+                 const char *sym_name;
+
+                 q = *relpp;
+
+                 printf ("\t\tRELOC: ");
+
+                 printf_vma (section->vma + q->address);
+
+                 printf (" %s ", q->howto->name);
+
+                 if (q->sym_ptr_ptr != NULL
+                     && *q->sym_ptr_ptr != NULL)
                    {
-                     if (functionname && *functionname
-                         && strcmp(functionname, prev_function))
-                       {
-                         printf ("%s():\n", functionname);
-                         prev_function = functionname;
-                       }
-                     if (!filename)
-                       filename = "???";
-                     if (line && line != prevline)
+                     sym_name = bfd_asymbol_name (*q->sym_ptr_ptr);
+                     if (sym_name == NULL || *sym_name == '\0')
                        {
-                         printf ("%s:%u\n", filename, line);
-                         prevline = line;
+                         asection *sym_sec;
+
+                         sym_sec = bfd_get_section (*q->sym_ptr_ptr);
+                         sym_name = bfd_get_section_name (abfd, sym_sec);
+                         if (sym_name == NULL || *sym_name == '\0')
+                           sym_name = "*unknown*";
                        }
                    }
-               }
-             objdump_print_address (section->vma + i, &disasm_info);
-             putchar (' ');
 
-             if (disassemble) /* New style */
-               {
-                 int bytes = (*disassemble)(section->vma + i,
-                                            &disasm_info);
-                 if (bytes < 0)
-                   break;
-                 i += bytes;
+                 printf ("%s", sym_name);
+
+                 if (q->addend)
+                   {
+                     printf ("+0x");
+                     printf_vma (q->addend);
+                   }
+
+                 printf ("\n");
+                 need_nl = false;
+                 ++relpp;
                }
-             else /* Old style */
-               i += print (section->vma + i,
-                           data + i,
-                           stdout);
-             putchar ('\n');
            }
+
+         if (need_nl)
+           printf ("\n");
+
+         i += bytes;
        }
+
       free (data);
+      if (relbuf != NULL)
+       free (relbuf);
     }
+  free (sorted_syms);
 }
 \f
 
@@ -728,74 +1094,50 @@ read_section_stabs (abfd, stabsect_name, strsect_name)
      char *stabsect_name;
      char *strsect_name;
 {
-  Elf_Internal_Shdr *stab_hdr, *stabstr_hdr;
   asection *stabsect, *stabstrsect;
-  int is_elf = (0 == strncmp ("elf", abfd->xvec->name, 3));
 
-  if (is_elf)
-    stab_hdr = bfd_elf_find_section (abfd, stabsect_name);
-  else
-    stabsect = bfd_get_section_by_name (abfd, stabsect_name);
-
-  if (is_elf ? (0 == stab_hdr) : (0 == stabsect))
+  stabsect = bfd_get_section_by_name (abfd, stabsect_name);
+  if (0 == stabsect)
     {
       printf ("No %s section present\n\n", stabsect_name);
       return false;
     }
 
-  if (is_elf)
-    stabstr_hdr = bfd_elf_find_section (abfd, strsect_name);
-  else
-    stabstrsect = bfd_get_section_by_name (abfd, strsect_name);
-
-  if (is_elf ? (0 == stabstr_hdr) : (0 == stabstrsect))
+  stabstrsect = bfd_get_section_by_name (abfd, strsect_name);
+  if (0 == stabstrsect)
     {
       fprintf (stderr, "%s: %s has no %s section\n", program_name,
               bfd_get_filename (abfd), strsect_name);
       return false;
     }
  
-  stab_size    = (is_elf ? stab_hdr   ->sh_size : bfd_section_size (abfd, stabsect));
-  stabstr_size = (is_elf ? stabstr_hdr->sh_size : bfd_section_size (abfd, stabstrsect));
+  stab_size    = bfd_section_size (abfd, stabsect);
+  stabstr_size = bfd_section_size (abfd, stabstrsect);
 
   stabs  = (struct internal_nlist *) xmalloc (stab_size);
   strtab = (char *) xmalloc (stabstr_size);
   
-  if (is_elf) 
+  if (! bfd_get_section_contents (abfd, stabsect, (PTR) stabs, 0, stab_size))
     {
-      if (bfd_seek (abfd, stab_hdr->sh_offset, SEEK_SET) < 0 ||
-         stab_size != bfd_read ((PTR) stabs, stab_size, 1, abfd))
-       {
-         fprintf (stderr, "%s: Reading %s section of %s failed\n",
-                  program_name, stabsect_name, 
-                  bfd_get_filename (abfd));
-         free (stabs);
-         free (strtab);
-         return false;
-       }
-    }
-  else
-    {
-      bfd_get_section_contents (abfd, stabsect, (PTR) stabs, 0, stab_size);
+      fprintf (stderr, "%s: Reading %s section of %s failed: %s\n",
+              program_name, stabsect_name, bfd_get_filename (abfd),
+              bfd_errmsg (bfd_get_error ()));
+      free (stabs);
+      free (strtab);
+      return false;
     }
 
-  if (is_elf) 
-    {
-      if (bfd_seek (abfd, stabstr_hdr->sh_offset, SEEK_SET) < 0 ||
-         stabstr_size != bfd_read ((PTR) strtab, stabstr_size, 1, abfd))
-       {
-         fprintf (stderr, "%s: Reading %s section of %s failed\n",
-                  program_name, strsect_name,
-                  bfd_get_filename (abfd));
-         free (stabs);
-         free (strtab);
-         return false;
-       }
-    }
-  else
+  if (! bfd_get_section_contents (abfd, stabstrsect, (PTR) strtab, 0,
+                                 stabstr_size))
     {
-      bfd_get_section_contents (abfd, stabstrsect, (PTR) strtab, 0, stabstr_size);
+      fprintf (stderr, "%s: Reading %s section of %s failed: %s\n",
+              program_name, strsect_name, bfd_get_filename (abfd),
+              bfd_errmsg (bfd_get_error ()));
+      free (stabs);
+      free (strtab);
+      return false;
     }
+
   return true;
 }
 
@@ -839,8 +1181,10 @@ print_section_stabs (abfd, stabsect_name, strsect_name)
         again (makes consistent formatting for tools like awk). */
       if (stab_name[stabp->n_type])
        printf ("%-6s", stab_name[stabp->n_type]);
+      else if (stabp->n_type == N_UNDF)
+       printf ("HdrSym");
       else
-       printf ("%-6d", i);
+       printf ("%-6d", stabp->n_type);
       printf (" %-6d %-6d ", stabp->n_other, stabp->n_desc);
       printf_vma (stabp->n_value);
       printf (" %-6lu", stabp->n_strx);
@@ -874,11 +1218,24 @@ dump_section_stabs (abfd, stabsect_name, strsect_name)
      char *stabsect_name;
      char *strsect_name;
 {
-  if (read_section_stabs (abfd, stabsect_name, strsect_name))
+  asection *s;
+
+  /* Check for section names for which stabsect_name is a prefix, to
+     handle .stab0, etc.  */
+  for (s = abfd->sections;
+       s != NULL;
+       s = s->next)
     {
-      print_section_stabs (abfd, stabsect_name, strsect_name);
-      free (stabs);
-      free (strtab);
+      if (strncmp (stabsect_name, s->name, strlen (stabsect_name)) == 0
+         && strncmp (strsect_name, s->name, strlen (strsect_name)) != 0)
+       {
+         if (read_section_stabs (abfd, s->name, strsect_name))
+           {
+             print_section_stabs (abfd, s->name, strsect_name);
+             free (stabs);
+             free (strtab);
+           }
+       }
     }
 }
 \f
@@ -907,7 +1264,13 @@ dump_bfd_header (abfd)
   printf ("\nstart address 0x");
   printf_vma (abfd->start_address);
 }
-
+\f
+static void
+dump_bfd_private_header (abfd)
+bfd *abfd;
+{
+  bfd_print_private_bfd_data (abfd, stdout);
+}
 static void
 display_bfd (abfd)
      bfd *abfd;
@@ -931,6 +1294,8 @@ display_bfd (abfd)
     print_arelt_descr (stdout, abfd, true);
   if (dump_file_header)
     dump_bfd_header (abfd);
+  if (dump_private_headers)
+    dump_bfd_private_header (abfd);
   putchar ('\n');
   if (dump_section_headers)
     dump_headers (abfd);
@@ -938,18 +1303,34 @@ display_bfd (abfd)
     {
       syms = slurp_symtab (abfd);
     }
+  if (dump_dynamic_symtab || dump_dynamic_reloc_info)
+    {
+      dynsyms = slurp_dynamic_symtab (abfd);
+    }
   if (dump_symtab)
-    dump_symbols (abfd);
+    dump_symbols (abfd, false);
+  if (dump_dynamic_symtab)
+    dump_symbols (abfd, true);
   if (dump_stab_section_info)
     dump_stabs (abfd);
-  if (dump_reloc_info)
+  if (dump_reloc_info && ! disassemble)
     dump_relocs (abfd);
+  if (dump_dynamic_reloc_info)
+    dump_dynamic_relocs (abfd);
   if (dump_section_contents)
     dump_data (abfd);
-  /* Note that disassemble_data re-orders the syms table, but that is
-     safe - as long as it is done last! */
   if (disassemble)
     disassemble_data (abfd);
+  if (syms)
+    {
+      free (syms);
+      syms = NULL;
+    }
+  if (dynsyms)
+    {
+      free (dynsyms);
+      dynsyms = NULL;
+    }
 }
 
 static void
@@ -1011,6 +1392,7 @@ dump_data (abfd)
   bfd_byte *data = 0;
   bfd_size_type datasize = 0;
   bfd_size_type i;
+  bfd_size_type start, stop;
 
   for (section = abfd->sections; section != NULL; section =
        section->next)
@@ -1032,14 +1414,30 @@ dump_data (abfd)
 
              bfd_get_section_contents (abfd, section, (PTR) data, 0, bfd_section_size (abfd, section));
 
-             for (i = 0; i < bfd_section_size (abfd, section); i += onaline)
+             if (start_address == (bfd_vma) -1
+                 || start_address < section->vma)
+               start = 0;
+             else
+               start = start_address - section->vma;
+             if (stop_address == (bfd_vma) -1)
+               stop = bfd_section_size (abfd, section);
+             else
+               {
+                 if (stop_address < section->vma)
+                   stop = 0;
+                 else
+                   stop = stop_address - section->vma;
+                 if (stop > bfd_section_size (abfd, section))
+                   stop = bfd_section_size (abfd, section);
+               }
+             for (i = start; i < stop; i += onaline)
                {
                  bfd_size_type j;
 
                  printf (" %04lx ", (unsigned long int) (i + section->vma));
                  for (j = i; j < i + onaline; j++)
                    {
-                     if (j < bfd_section_size (abfd, section))
+                     if (j < stop)
                        printf ("%02x", (unsigned) (data[j]));
                      else
                        printf ("  ");
@@ -1050,7 +1448,7 @@ dump_data (abfd)
                  printf (" ");
                  for (j = i; j < i + onaline; j++)
                    {
-                     if (j >= bfd_section_size (abfd, section))
+                     if (j >= stop)
                        printf (" ");
                      else
                        printf ("%c", isprint (data[j]) ? data[j] : '.');
@@ -1065,17 +1463,33 @@ dump_data (abfd)
 
 /* Should perhaps share code and display with nm? */
 static void
-dump_symbols (abfd)
+dump_symbols (abfd, dynamic)
      bfd *abfd;
+     boolean dynamic;
 {
+  asymbol **current;
+  long max;
   long count;
-  asymbol **current = syms;
-
-  printf ("SYMBOL TABLE:\n");
 
-  for (count = 0; count < symcount; count++)
+  if (dynamic)
+    {
+      current = dynsyms;
+      max = dynsymcount;
+      if (max == 0)
+       return;
+      printf ("DYNAMIC SYMBOL TABLE:\n");
+    }
+  else
     {
+      current = syms;
+      max = symcount;
+      if (max == 0)
+       return;
+      printf ("SYMBOL TABLE:\n");
+    }
 
+  for (count = 0; count < max; count++)
+    {
       if (*current)
        {
          bfd *cur_bfd = bfd_asymbol_bfd(*current);
@@ -1086,7 +1500,6 @@ dump_symbols (abfd)
                                *current, bfd_print_symbol_all);
              printf ("\n");
            }
-
        }
       current++;
     }
@@ -1106,9 +1519,9 @@ dump_relocs (abfd)
     {
       long relsize;
 
-      if (a == &bfd_abs_section)
+      if (bfd_is_abs_section (a))
        continue;
-      if (a == &bfd_und_section)
+      if (bfd_is_und_section (a))
        continue;
       if (bfd_is_com_section (a))
        continue;
@@ -1121,22 +1534,19 @@ dump_relocs (abfd)
       else if ((a->flags & SEC_RELOC) == 0)
        continue;
 
-      printf ("RELOCATION RECORDS FOR [%s]:", a->name);
-
       relsize = bfd_get_reloc_upper_bound (abfd, a);
       if (relsize < 0)
        bfd_fatal (bfd_get_filename (abfd));
 
+      printf ("RELOCATION RECORDS FOR [%s]:", a->name);
+
       if (relsize == 0)
        {
          printf (" (none)\n\n");
        }
       else
        {
-         arelent **p;
-
          relpp = (arelent **) xmalloc (relsize);
-         /* Note that this must be done *before* we sort the syms table. */
          relcount = bfd_canonicalize_reloc (abfd, a, relpp, syms);
          if (relcount < 0)
            bfd_fatal (bfd_get_filename (abfd));
@@ -1147,107 +1557,169 @@ dump_relocs (abfd)
          else
            {
              printf ("\n");
-             /* Get column headers lined up reasonably.  */
-             {
-               static int width;
-               if (width == 0)
-                 {
-                   char buf[30];
-                   sprintf_vma (buf, (bfd_vma) -1);
-                   width = strlen (buf) - 7;
-                 }
-               printf ("OFFSET %*s TYPE %*s VALUE \n", width, "", 12, "");
-             }
-
-             for (p = relpp; relcount && *p != (arelent *) NULL; p++,
-                  relcount--)
-               {
-                 arelent *q = *p;
-                 CONST char *sym_name;
-                 CONST char *section_name;
-
-                 if (q->sym_ptr_ptr && *q->sym_ptr_ptr)
-                   {
-                     sym_name = (*(q->sym_ptr_ptr))->name;
-                     section_name = (*(q->sym_ptr_ptr))->section->name;
-                   }
-                 else
-                   {
-                     sym_name = NULL;
-                     section_name = NULL;
-                   }
-                 if (sym_name)
-                   {
-                     printf_vma (q->address);
-                     printf (" %-16s  %s",
-                             q->howto->name,
-                             sym_name);
-                   }
-                 else
-                   {
-                     if (section_name == (CONST char *) NULL)
-                       section_name = "*unknown*";
-                     printf_vma (q->address);
-                     printf (" %-16s  [%s]",
-                             q->howto->name,
-                             section_name);
-                   }
-                 if (q->addend)
-                   {
-                     printf ("+0x");
-                     printf_vma (q->addend);
-                   }
-                 printf ("\n");
-               }
+             dump_reloc_set (abfd, relpp, relcount);
              printf ("\n\n");
-             free (relpp);
            }
+         free (relpp);
        }
+    }
+}
 
+static void
+dump_dynamic_relocs (abfd)
+     bfd *abfd;
+{
+  long relsize;
+  arelent **relpp;
+  long relcount;
+
+  relsize = bfd_get_dynamic_reloc_upper_bound (abfd);
+  if (relsize < 0)
+    bfd_fatal (bfd_get_filename (abfd));
+
+  printf ("DYNAMIC RELOCATION RECORDS");
+
+  if (relsize == 0)
+    {
+      printf (" (none)\n\n");
+    }
+  else
+    {
+      relpp = (arelent **) xmalloc (relsize);
+      relcount = bfd_canonicalize_dynamic_reloc (abfd, relpp, dynsyms);
+      if (relcount < 0)
+       bfd_fatal (bfd_get_filename (abfd));
+      else if (relcount == 0)
+       {
+         printf (" (none)\n\n");
+       }
+      else
+       {
+         printf ("\n");
+         dump_reloc_set (abfd, relpp, relcount);
+         printf ("\n\n");
+       }
+      free (relpp);
     }
 }
-\f
-/* A file to open each BFD on.  It will never actually be written to.  */
-#ifdef unix
-#define _DUMMY_NAME_ "/dev/null"
-#else
-#define _DUMMY_NAME_ "##dummy"
-#endif
 
+static void
+dump_reloc_set (abfd, relpp, relcount)
+     bfd *abfd;
+     arelent **relpp;
+     long relcount;
+{
+  arelent **p;
+
+  /* Get column headers lined up reasonably.  */
+  {
+    static int width;
+    if (width == 0)
+      {
+       char buf[30];
+       sprintf_vma (buf, (bfd_vma) -1);
+       width = strlen (buf) - 7;
+      }
+    printf ("OFFSET %*s TYPE %*s VALUE \n", width, "", 12, "");
+  }
+
+  for (p = relpp; relcount && *p != (arelent *) NULL; p++, relcount--)
+    {
+      arelent *q = *p;
+      CONST char *sym_name;
+      CONST char *section_name;
+
+      if (start_address != (bfd_vma) -1
+         && q->address < start_address)
+       continue;
+      if (stop_address != (bfd_vma) -1
+         && q->address > stop_address)
+       continue;
+
+      if (q->sym_ptr_ptr && *q->sym_ptr_ptr)
+       {
+         sym_name = (*(q->sym_ptr_ptr))->name;
+         section_name = (*(q->sym_ptr_ptr))->section->name;
+       }
+      else
+       {
+         sym_name = NULL;
+         section_name = NULL;
+       }
+      if (sym_name)
+       {
+         printf_vma (q->address);
+         printf (" %-16s  %s",
+                 q->howto->name,
+                 sym_name);
+       }
+      else
+       {
+         if (section_name == (CONST char *) NULL)
+           section_name = "*unknown*";
+         printf_vma (q->address);
+         printf (" %-16s  [%s]",
+                 q->howto->name,
+                 section_name);
+       }
+      if (q->addend)
+       {
+         printf ("+0x");
+         printf_vma (q->addend);
+       }
+      printf ("\n");
+    }
+}
+\f
 /* The length of the longest architecture name + 1.  */
 #define LONGEST_ARCH sizeof("rs6000:6000")
 
+#ifndef L_tmpnam
+#define L_tmpnam 25
+#endif
+
 /* List the targets that BFD is configured to support, each followed
    by its endianness and the architectures it supports.  */
 
 static void
 display_target_list ()
 {
+  extern char *tmpnam ();
   extern bfd_target *bfd_target_vector[];
+  char tmparg[L_tmpnam];
+  char *dummy_name;
   int t;
 
+  dummy_name = tmpnam (tmparg);
   for (t = 0; bfd_target_vector[t]; t++)
     {
-      int a;
       bfd_target *p = bfd_target_vector[t];
-      bfd *abfd = bfd_openw (_DUMMY_NAME_, p->name);
+      bfd *abfd = bfd_openw (dummy_name, p->name);
+      int a;
 
-      /* It *is* possible that bfd_openw might fail; avoid the
-        tragic consequences that would otherwise ensue. */
-      if (abfd == NULL)
-       {
-         bfd_nonfatal (_DUMMY_NAME_);
-         return;
-       }
-      bfd_set_format (abfd, bfd_object);
       printf ("%s\n (header %s, data %s)\n", p->name,
              p->header_byteorder_big_p ? "big endian" : "little endian",
              p->byteorder_big_p ? "big endian" : "little endian");
+
+      if (abfd == NULL)
+       {
+         bfd_nonfatal (dummy_name);
+         continue;
+       }
+
+      if (! bfd_set_format (abfd, bfd_object))
+       {
+         if (bfd_get_error () != bfd_error_invalid_operation)
+           bfd_nonfatal (p->name);
+         continue;
+       }
+
       for (a = (int) bfd_arch_obscure + 1; a < (int) bfd_arch_last; a++)
        if (bfd_set_arch_mach (abfd, (enum bfd_architecture) a, 0))
          printf ("  %s\n",
                  bfd_printable_arch_mach ((enum bfd_architecture) a, 0));
     }
+  unlink (dummy_name);
 }
 
 /* Print a table showing which architectures are supported for entries
@@ -1259,33 +1731,53 @@ display_info_table (first, last)
      int first;
      int last;
 {
-  int t, a;
   extern bfd_target *bfd_target_vector[];
+  extern char *tmpnam ();
+  char tmparg[L_tmpnam];
+  int t, a;
+  char *dummy_name;
 
   /* Print heading of target names.  */
   printf ("\n%*s", (int) LONGEST_ARCH, " ");
-  for (t = first; t++ < last && bfd_target_vector[t];)
+  for (t = first; t < last && bfd_target_vector[t]; t++)
     printf ("%s ", bfd_target_vector[t]->name);
   putchar ('\n');
 
+  dummy_name = tmpnam (tmparg);
   for (a = (int) bfd_arch_obscure + 1; a < (int) bfd_arch_last; a++)
     if (strcmp (bfd_printable_arch_mach (a, 0), "UNKNOWN!") != 0)
       {
        printf ("%*s ", (int) LONGEST_ARCH - 1,
                bfd_printable_arch_mach (a, 0));
-       for (t = first; t++ < last && bfd_target_vector[t];)
+       for (t = first; t < last && bfd_target_vector[t]; t++)
          {
            bfd_target *p = bfd_target_vector[t];
-           bfd *abfd = bfd_openw (_DUMMY_NAME_, p->name);
+           boolean ok = true;
+           bfd *abfd = bfd_openw (dummy_name, p->name);
 
-           /* Just in case the open failed somehow. */
            if (abfd == NULL)
              {
-               bfd_nonfatal (_DUMMY_NAME_);
-               return;
+               bfd_nonfatal (p->name);
+               ok = false;
+             }
+
+           if (ok)
+             {
+               if (! bfd_set_format (abfd, bfd_object))
+                 {
+                   if (bfd_get_error () != bfd_error_invalid_operation)
+                     bfd_nonfatal (p->name);
+                   ok = false;
+                 }
+             }
+
+           if (ok)
+             {
+               if (! bfd_set_arch_mach (abfd, a, 0))
+                 ok = false;
              }
-           bfd_set_format (abfd, bfd_object);
-           if (bfd_set_arch_mach (abfd, a, 0))
+
+           if (ok)
              printf ("%s ", p->name);
            else
              {
@@ -1297,6 +1789,7 @@ display_info_table (first, last)
          }
        putchar ('\n');
       }
+  unlink (dummy_name);
 }
 
 /* Print tables of all the target-architecture combinations that
@@ -1317,15 +1810,23 @@ display_target_tables ()
   if (columns == 0)
     columns = 80;
 
-  for (t = 0; bfd_target_vector[t];)
+  t = 0;
+  while (bfd_target_vector[t] != NULL)
     {
       int oldt = t, wid;
 
-      for (wid = LONGEST_ARCH; bfd_target_vector[t] && wid < columns; t++)
-       wid += strlen (bfd_target_vector[t]->name) + 1;
-      t--;
-      if (oldt == t)
-       break;
+      wid = LONGEST_ARCH + strlen (bfd_target_vector[t]->name) + 1;
+      ++t;
+      while (wid < columns && bfd_target_vector[t] != NULL)
+       {
+         int newwid;
+
+         newwid = wid + strlen (bfd_target_vector[t]->name) + 1;
+         if (newwid >= columns)
+           break;
+         wid = newwid;
+         ++t;
+       }
       display_info_table (oldt, t);
     }
 }
@@ -1350,13 +1851,16 @@ main (argc, argv)
   program_name = *argv;
   xmalloc_set_program_name (program_name);
 
+  START_PROGRESS (program_name, 0);
+
   bfd_init ();
 
-  while ((c = getopt_long (argc, argv, "ib:m:Vdlfahrtxsj:", long_options,
+  while ((c = getopt_long (argc, argv, "pib:m:VdDlfahrRtTxsSj:w", long_options,
                           (int *) 0))
         != EOF)
     {
-      seenflag = true;
+      if (c != 'l' && c != OPTION_START_ADDRESS && c != OPTION_STOP_ADDRESS)
+       seenflag = true;
       switch (c)
        {
        case 0:
@@ -1379,7 +1883,11 @@ main (argc, argv)
        case 'i':
          formats_info = true;
          break;
+       case 'p':
+         dump_private_headers = 1;
+         break;
        case 'x':
+         dump_private_headers = 1;
          dump_symtab = 1;
          dump_reloc_info = 1;
          dump_file_header = true;
@@ -1389,15 +1897,28 @@ main (argc, argv)
        case 't':
          dump_symtab = 1;
          break;
+       case 'T':
+         dump_dynamic_symtab = 1;
+         break;
        case 'd':
          disassemble = true;
          break;
+       case 'D':
+         disassemble = disassemble_all = true;
+         break;
+       case 'S':
+         disassemble = true;
+         with_source_code = true;
+         break;
        case 's':
          dump_section_contents = 1;
          break;
        case 'r':
          dump_reloc_info = 1;
          break;
+       case 'R':
+         dump_dynamic_reloc_info = 1;
+         break;
        case 'a':
          dump_ar_hdrs = 1;
          break;
@@ -1409,6 +1930,15 @@ main (argc, argv)
        case 'V':
          show_version = 1;
          break;
+       case 'w':
+         wide_output = 1;
+         break;
+       case OPTION_START_ADDRESS:
+         start_address = parse_vma (optarg, "--start-address");
+         break;
+       case OPTION_STOP_ADDRESS:
+         stop_address = parse_vma (optarg, "--stop-address");
+         break;
        default:
          usage (stderr, 1);
        }
@@ -1435,5 +1965,8 @@ main (argc, argv)
        for (; optind < argc;)
          display_file (argv[optind++], target);
     }
+
+  END_PROGRESS (program_name);
+
   return 0;
 }