mirror of
https://github.com/darlinghq/darling-gdb.git
synced 2024-12-02 17:16:42 +00:00
1028 lines
23 KiB
C
1028 lines
23 KiB
C
/* objdump.c -- dump information about an object file.
|
||
Copyright (C) 1990, 1991 Free Software Foundation, Inc.
|
||
|
||
This file is part of BFD, the Binary File Diddler.
|
||
|
||
BFD is free software; you can redistribute it and/or modify
|
||
it under the terms of the GNU General Public License as published by
|
||
the Free Software Foundation; either version 2, or (at your option)
|
||
any later version.
|
||
|
||
BFD is distributed in the hope that it will be useful,
|
||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
GNU General Public License for more details.
|
||
|
||
You should have received a copy of the GNU General Public License
|
||
along with BFD; see the file COPYING. If not, write to
|
||
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||
|
||
/*
|
||
* Until there is other documentation, refer to the manual page dump(1) in
|
||
* the system 5 program's reference manual
|
||
*/
|
||
|
||
#include "bfd.h"
|
||
#include "sysdep.h"
|
||
#include "getopt.h"
|
||
#include <stdio.h>
|
||
#include <ctype.h>
|
||
|
||
#define ELF_STAB_DISPLAY /* This code works, but uses internal
|
||
bfd and elf stuff. Flip this define
|
||
off if you need to just use generic
|
||
BFD interfaces. */
|
||
|
||
#ifdef ELF_STAB_DISPLAY
|
||
/* 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();
|
||
#endif /* ELF_STAB_DISPLAY */
|
||
|
||
char *xmalloc ();
|
||
|
||
char *default_target = NULL; /* default at runtime */
|
||
|
||
char *program_name = NULL;
|
||
|
||
int dump_section_contents; /* -s */
|
||
int dump_section_headers; /* -h */
|
||
boolean dump_file_header; /* -f */
|
||
int dump_symtab; /* -t */
|
||
int dump_reloc_info; /* -r */
|
||
int dump_ar_hdrs; /* -a */
|
||
int with_line_numbers; /* -l */
|
||
int dump_stab_section_info; /* -stabs */
|
||
boolean disassemble; /* -d */
|
||
boolean info; /* -i */
|
||
char *only;
|
||
|
||
PROTO (void, display_file, (char *filename, char *target));
|
||
PROTO (void, dump_data, (bfd * abfd));
|
||
PROTO (void, dump_relocs, (bfd * abfd));
|
||
PROTO (void, dump_symbols, (bfd * abfd));
|
||
PROTO (void, print_arelt_descr, (FILE *, bfd * abfd, boolean verbose));
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
char *machine = (char *) NULL;
|
||
asymbol **syms;
|
||
asymbol **syms2;
|
||
|
||
|
||
unsigned int storage;
|
||
|
||
unsigned int symcount = 0;
|
||
|
||
void
|
||
usage ()
|
||
{
|
||
fprintf (stderr,
|
||
"usage: %s [-ahifdrtxsl] [-m machine] [-j section_name] obj ...\n",
|
||
program_name);
|
||
exit (1);
|
||
}
|
||
|
||
static struct option long_options[]=
|
||
{
|
||
{"syms", no_argument, &dump_symtab, 1},
|
||
{"reloc", no_argument, &dump_reloc_info, 1},
|
||
{"header", no_argument, &dump_section_headers, 1},
|
||
#ifdef ELF_STAB_DISPLAY
|
||
{"stabs", no_argument, &dump_stab_section_info, 1},
|
||
#endif
|
||
{0, no_argument, 0, 0}};
|
||
|
||
|
||
static void
|
||
dump_headers (abfd)
|
||
bfd *abfd;
|
||
{
|
||
asection *section;
|
||
|
||
for (section = abfd->sections;
|
||
section != (asection *) NULL;
|
||
section = section->next)
|
||
{
|
||
char *comma = "";
|
||
|
||
#define PF(x,y) \
|
||
if (section->flags & x) { printf("%s%s",comma,y); comma = ", "; }
|
||
|
||
|
||
printf ("SECTION %d [%s]\t: size %08x",
|
||
section->index,
|
||
section->name,
|
||
(unsigned) bfd_get_section_size_before_reloc (section));
|
||
printf (" vma ");
|
||
printf_vma (section->vma);
|
||
printf (" align 2**%u\n ",
|
||
section->alignment_power);
|
||
PF (SEC_ALLOC, "ALLOC");
|
||
PF (SEC_CONSTRUCTOR, "CONSTRUCTOR");
|
||
PF (SEC_CONSTRUCTOR_TEXT, "CONSTRUCTOR TEXT");
|
||
PF (SEC_CONSTRUCTOR_DATA, "CONSTRUCTOR DATA");
|
||
PF (SEC_CONSTRUCTOR_BSS, "CONSTRUCTOR BSS");
|
||
PF (SEC_LOAD, "LOAD");
|
||
PF (SEC_RELOC, "RELOC");
|
||
PF (SEC_BALIGN, "BALIGN");
|
||
PF (SEC_READONLY, "READONLY");
|
||
PF (SEC_CODE, "CODE");
|
||
PF (SEC_DATA, "DATA");
|
||
PF (SEC_ROM, "ROM");
|
||
printf ("\n");
|
||
#undef PF
|
||
}
|
||
}
|
||
|
||
static asymbol **
|
||
DEFUN (slurp_symtab, (abfd),
|
||
bfd * abfd)
|
||
{
|
||
asymbol **sy = (asymbol **) NULL;
|
||
|
||
if (!(bfd_get_file_flags (abfd) & HAS_SYMS))
|
||
{
|
||
(void) printf ("No symbols in \"%s\".\n", bfd_get_filename (abfd));
|
||
return (NULL);
|
||
}
|
||
|
||
storage = get_symtab_upper_bound (abfd);
|
||
if (storage)
|
||
{
|
||
sy = (asymbol **) malloc (storage);
|
||
if (sy == NULL)
|
||
{
|
||
fprintf (stderr, "%s: out of memory.\n", program_name);
|
||
exit (1);
|
||
}
|
||
}
|
||
symcount = bfd_canonicalize_symtab (abfd, sy);
|
||
return sy;
|
||
}
|
||
|
||
/* Sort symbols into value order */
|
||
static int
|
||
comp (ap, bp)
|
||
PTR ap;
|
||
PTR bp;
|
||
{
|
||
asymbol *a = *(asymbol **)ap;
|
||
asymbol *b = *(asymbol **)bp;
|
||
int diff;
|
||
|
||
if (a->name == (char *) NULL || (a->flags & (BSF_DEBUGGING)))
|
||
a->the_bfd = 0;
|
||
if (b->name == (char *) NULL || (b->flags & (BSF_DEBUGGING)))
|
||
b->the_bfd = 0;
|
||
|
||
diff = a->the_bfd - b->the_bfd;
|
||
if (diff)
|
||
{
|
||
return -diff;
|
||
}
|
||
diff = a->value - b->value;
|
||
if (diff)
|
||
{
|
||
return diff;
|
||
}
|
||
return a->section - b->section;
|
||
}
|
||
|
||
/* Print the supplied address symbolically if possible */
|
||
void
|
||
print_address (vma, stream)
|
||
bfd_vma vma;
|
||
FILE *stream;
|
||
{
|
||
/* Perform a binary search looking for the closest symbol to
|
||
the required value */
|
||
|
||
unsigned int min = 0;
|
||
unsigned int max = symcount;
|
||
|
||
unsigned int thisplace = 1;
|
||
unsigned int oldthisplace;
|
||
|
||
int vardiff;
|
||
|
||
if (symcount == 0)
|
||
{
|
||
fprintf_vma (stream, vma);
|
||
}
|
||
else
|
||
{
|
||
while (true)
|
||
{
|
||
oldthisplace = thisplace;
|
||
thisplace = (max + min) / 2;
|
||
if (thisplace == oldthisplace)
|
||
break;
|
||
vardiff = syms[thisplace]->value - vma;
|
||
|
||
if (vardiff)
|
||
{
|
||
if (vardiff > 0)
|
||
{
|
||
max = thisplace;
|
||
}
|
||
else
|
||
{
|
||
min = thisplace;
|
||
}
|
||
}
|
||
else
|
||
{
|
||
/* Totally awesome! the exact right symbol */
|
||
CONST char *match_name = syms[thisplace]->name;
|
||
int sym_len = strlen (match_name);
|
||
|
||
/* Avoid "filename.o" as a match */
|
||
if (sym_len > 2
|
||
&& match_name[sym_len - 2] == '.'
|
||
&& match_name[sym_len - 1] == 'o'
|
||
&& thisplace + 1 < symcount
|
||
&& syms[thisplace + 1]->value == vma)
|
||
match_name = syms[thisplace + 1]->name;
|
||
/* Totally awesome! the exact right symbol */
|
||
fprintf_vma (stream, vma);
|
||
fprintf (stream, " (%s+)0000", syms[thisplace]->name);
|
||
return;
|
||
}
|
||
}
|
||
/* We've run out of places to look, print the symbol before this one
|
||
see if this or the symbol before describes this location the best */
|
||
|
||
if (thisplace != 0)
|
||
{
|
||
if (syms[thisplace - 1]->value - vma >
|
||
syms[thisplace]->value - vma)
|
||
{
|
||
/* Previous symbol is in correct section and is closer */
|
||
thisplace--;
|
||
}
|
||
}
|
||
|
||
fprintf_vma (stream, vma);
|
||
if (syms[thisplace]->value > vma)
|
||
{
|
||
fprintf (stream, " (%s-)", syms[thisplace]->name);
|
||
fprintf (stream, "%04x", syms[thisplace]->value - vma);
|
||
}
|
||
else
|
||
{
|
||
fprintf (stream, " (%s+)", syms[thisplace]->name);
|
||
fprintf (stream, "%04x", vma - syms[thisplace]->value);
|
||
}
|
||
}
|
||
}
|
||
|
||
void
|
||
disassemble_data (abfd)
|
||
bfd *abfd;
|
||
{
|
||
bfd_byte *data = NULL;
|
||
bfd_arch_info_type *info;
|
||
bfd_size_type datasize = 0;
|
||
bfd_size_type i;
|
||
unsigned int (*print) ()= 0;
|
||
unsigned int print_insn_m68k ();
|
||
unsigned int print_insn_a29k ();
|
||
unsigned int print_insn_i960 ();
|
||
unsigned int print_insn_sparc ();
|
||
unsigned int print_insn_i386 ();
|
||
unsigned int print_insn_h8300 ();
|
||
enum bfd_architecture a;
|
||
|
||
asection *section;
|
||
|
||
/* Replace symbol section relative values with abs values */
|
||
boolean done_dot = false;
|
||
|
||
for (i = 0; i < symcount; i++)
|
||
{
|
||
syms[i]->value += syms[i]->section->vma;
|
||
}
|
||
|
||
/* We keep a copy of the symbols in the original order */
|
||
syms2 = slurp_symtab (abfd);
|
||
|
||
/* Sort the symbols into section and symbol order */
|
||
(void) qsort (syms, symcount, sizeof (asymbol *), comp);
|
||
|
||
/* Find the first useless symbol */
|
||
{
|
||
unsigned int i;
|
||
|
||
for (i = 0; i < symcount; i++)
|
||
{
|
||
if (syms[i]->the_bfd == 0)
|
||
{
|
||
symcount = i;
|
||
break;
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
if (machine != (char *) NULL)
|
||
{
|
||
info = bfd_scan_arch (machine);
|
||
if (info == 0)
|
||
{
|
||
fprintf (stderr, "%s: Can't use supplied machine %s\n",
|
||
program_name,
|
||
machine);
|
||
exit (1);
|
||
}
|
||
abfd->arch_info = info;
|
||
}
|
||
|
||
/* See if we can disassemble using bfd */
|
||
|
||
if (abfd->arch_info->disassemble)
|
||
{
|
||
print = abfd->arch_info->disassemble;
|
||
}
|
||
else
|
||
{
|
||
a = bfd_get_arch (abfd);
|
||
switch (a)
|
||
{
|
||
case bfd_arch_sparc:
|
||
print = print_insn_sparc;
|
||
break;
|
||
case bfd_arch_i386:
|
||
print = print_insn_i386;
|
||
break;
|
||
case bfd_arch_m68k:
|
||
print = print_insn_m68k;
|
||
break;
|
||
case bfd_arch_a29k:
|
||
print = print_insn_a29k;
|
||
break;
|
||
case bfd_arch_i960:
|
||
print = print_insn_i960;
|
||
break;
|
||
default:
|
||
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;
|
||
section != (asection *) NULL;
|
||
section = section->next)
|
||
{
|
||
|
||
if ((section->flags & SEC_LOAD)
|
||
&& (only == (char *) NULL || strcmp (only, section->name) == 0))
|
||
{
|
||
printf ("Disassembly of section %s:\n", section->name);
|
||
|
||
if (bfd_get_section_size_before_reloc (section) == 0)
|
||
continue;
|
||
|
||
data = (bfd_byte *) malloc (bfd_get_section_size_before_reloc (section));
|
||
|
||
if (data == (bfd_byte *) NULL)
|
||
{
|
||
fprintf (stderr, "%s: memory exhausted.\n", program_name);
|
||
exit (1);
|
||
}
|
||
datasize = bfd_get_section_size_before_reloc (section);
|
||
|
||
bfd_get_section_contents (abfd, section, data, 0, bfd_get_section_size_before_reloc (section));
|
||
|
||
i = 0;
|
||
while (i < bfd_get_section_size_before_reloc (section))
|
||
{
|
||
if (data[i] == 0 && data[i + 1] == 0 && data[i + 2] == 0 &&
|
||
data[i + 3] == 0)
|
||
{
|
||
if (done_dot == false)
|
||
{
|
||
printf ("...\n");
|
||
done_dot = true;
|
||
}
|
||
i += 4;
|
||
}
|
||
else
|
||
{
|
||
done_dot = false;
|
||
if (with_line_numbers)
|
||
{
|
||
static prevline;
|
||
CONST char *filename;
|
||
CONST char *functionname;
|
||
unsigned int line;
|
||
|
||
bfd_find_nearest_line (abfd,
|
||
section,
|
||
syms,
|
||
section->vma + i,
|
||
&filename,
|
||
&functionname,
|
||
&line);
|
||
|
||
if (filename && functionname && line && line != prevline)
|
||
{
|
||
printf ("%s:%u\n", filename, line);
|
||
prevline = line;
|
||
}
|
||
}
|
||
print_address (section->vma + i, stdout);
|
||
printf (" ");
|
||
|
||
i += print (section->vma + i,
|
||
data + i,
|
||
stdout);
|
||
putchar ('\n');
|
||
}
|
||
}
|
||
free (data);
|
||
}
|
||
}
|
||
}
|
||
|
||
#ifdef ELF_STAB_DISPLAY
|
||
|
||
/* Define a table of stab values and print-strings. We wish the initializer
|
||
could be a direct-mapped table, but instead we build one the first
|
||
time we need it. */
|
||
|
||
#define STAB_STRING_LENGTH 6
|
||
|
||
char stab_name[256][STAB_STRING_LENGTH];
|
||
|
||
struct stab_print {
|
||
int value;
|
||
char string[STAB_STRING_LENGTH];
|
||
};
|
||
|
||
struct stab_print stab_print[] = {
|
||
#define __define_stab(NAME, CODE, STRING) {CODE, STRING},
|
||
#include "aout/stab.def"
|
||
#undef __define_stab
|
||
{0, 0}
|
||
};
|
||
|
||
/* This is a kludge for dumping the stabs section from an ELF file that
|
||
uses Sun stabs encoding. It has to use some hooks into BFD because
|
||
string table sections are not normally visible to BFD callers. */
|
||
|
||
void
|
||
dump_elf_stabs (abfd)
|
||
bfd *abfd;
|
||
{
|
||
Elf_Internal_Shdr *stab_hdr, *stabstr_hdr;
|
||
char *strtab;
|
||
struct internal_nlist *stabs, *stabs_end;
|
||
int i, j;
|
||
|
||
/* Initialize stab name array if first time. */
|
||
if (stab_name[0][0] == 0)
|
||
{
|
||
/* Fill in numeric values for all possible strings. */
|
||
for (i = 0; i < 256; i++)
|
||
{
|
||
sprintf (stab_name[i], "%d", i);
|
||
}
|
||
for (i = 0; stab_print[i].string[0]; i++)
|
||
strcpy (stab_name[stab_print[i].value], stab_print[i].string);
|
||
}
|
||
|
||
if (0 != strncmp ("elf", abfd->xvec->name, 3))
|
||
{
|
||
fprintf (stderr, "%s: %s is not in ELF format.\n", program_name,
|
||
abfd->filename);
|
||
return;
|
||
}
|
||
|
||
stab_hdr = bfd_elf_find_section (abfd, ".stab");
|
||
if (0 == stab_hdr)
|
||
{
|
||
fprintf (stderr, "%s: %s has no .stab section.\n", program_name,
|
||
abfd->filename);
|
||
return;
|
||
}
|
||
|
||
stabstr_hdr = bfd_elf_find_section (abfd, ".stabstr");
|
||
if (0 == stabstr_hdr)
|
||
{
|
||
fprintf (stderr, "%s: %s has no .stabstr section.\n", program_name,
|
||
abfd->filename);
|
||
return;
|
||
}
|
||
|
||
stabs = (struct internal_nlist *) xmalloc (stab_hdr ->sh_size);
|
||
strtab = (char *) xmalloc (stabstr_hdr->sh_size);
|
||
stabs_end = (struct internal_nlist *) (stab_hdr->sh_size + (char *)stabs);
|
||
|
||
if (bfd_seek (abfd, stab_hdr->sh_offset, L_SET) < 0 ||
|
||
stab_hdr->sh_size != bfd_read ((PTR)stabs, stab_hdr->sh_size, 1, abfd))
|
||
{
|
||
fprintf (stderr, "%s: reading .stab section of %s failed.\n",
|
||
program_name,
|
||
abfd->filename);
|
||
return;
|
||
}
|
||
|
||
if (bfd_seek (abfd, stabstr_hdr->sh_offset, L_SET) < 0 ||
|
||
stabstr_hdr->sh_size != bfd_read ((PTR)strtab, stabstr_hdr->sh_size,
|
||
1, abfd))
|
||
{
|
||
fprintf (stderr, "%s: reading .stabstr section of %s failed.\n",
|
||
program_name,
|
||
abfd->filename);
|
||
return;
|
||
}
|
||
|
||
#define SWAP_SYMBOL(symp, abfd) \
|
||
{ \
|
||
(symp)->n_strx = bfd_h_get_32(abfd, \
|
||
(unsigned char *)&(symp)->n_strx); \
|
||
(symp)->n_desc = bfd_h_get_16 (abfd, \
|
||
(unsigned char *)&(symp)->n_desc); \
|
||
(symp)->n_value = bfd_h_get_32 (abfd, \
|
||
(unsigned char *)&(symp)->n_value); \
|
||
}
|
||
|
||
printf ("Contents of .stab section:\n\n");
|
||
printf ("Symnum n_type n_othr n_desc n_value n_strx String\n");
|
||
|
||
/* We start the index at -1 because there is a dummy symbol on
|
||
the front of Sun's stabs-in-elf sections. */
|
||
for (i = -1; stabs < stabs_end; stabs++, i++)
|
||
{
|
||
SWAP_SYMBOL (stabs, abfd);
|
||
printf ("\n%-6d %-6s %-6d %-6d %08x %-6d", i,
|
||
stab_name [stabs->n_type],
|
||
stabs->n_other, stabs->n_desc, stabs->n_value,
|
||
stabs->n_strx);
|
||
if (stabs->n_strx < stabstr_hdr->sh_size)
|
||
printf (" %s", &strtab[stabs->n_strx]);
|
||
}
|
||
printf ("\n\n");
|
||
}
|
||
#endif /* ELF_STAB_DISPLAY */
|
||
|
||
void
|
||
display_bfd (abfd)
|
||
bfd *abfd;
|
||
{
|
||
|
||
if (!bfd_check_format (abfd, bfd_object))
|
||
{
|
||
fprintf (stderr, "%s: %s not an object file\n", program_name,
|
||
abfd->filename);
|
||
return;
|
||
}
|
||
printf ("\n%s: file format %s\n", abfd->filename, abfd->xvec->name);
|
||
if (dump_ar_hdrs)
|
||
print_arelt_descr (stdout, abfd, true);
|
||
|
||
if (dump_file_header)
|
||
{
|
||
char *comma = "";
|
||
|
||
printf ("architecture: %s, ",
|
||
bfd_printable_arch_mach (bfd_get_arch (abfd),
|
||
bfd_get_mach (abfd)));
|
||
printf ("flags 0x%08x:\n", abfd->flags);
|
||
|
||
#define PF(x, y) if (abfd->flags & x) {printf("%s%s", comma, y); comma=", ";}
|
||
PF (HAS_RELOC, "HAS_RELOC");
|
||
PF (EXEC_P, "EXEC_P");
|
||
PF (HAS_LINENO, "HAS_LINENO");
|
||
PF (HAS_DEBUG, "HAS_DEBUG");
|
||
PF (HAS_SYMS, "HAS_SYMS");
|
||
PF (HAS_LOCALS, "HAS_LOCALS");
|
||
PF (DYNAMIC, "DYNAMIC");
|
||
PF (WP_TEXT, "WP_TEXT");
|
||
PF (D_PAGED, "D_PAGED");
|
||
printf ("\nstart address 0x");
|
||
printf_vma (abfd->start_address);
|
||
}
|
||
printf ("\n");
|
||
|
||
if (dump_section_headers)
|
||
dump_headers (abfd);
|
||
if (dump_symtab || dump_reloc_info || disassemble)
|
||
{
|
||
syms = slurp_symtab (abfd);
|
||
}
|
||
if (dump_symtab)
|
||
dump_symbols (abfd);
|
||
#ifdef ELF_STAB_DISPLAY
|
||
if (dump_stab_section_info)
|
||
dump_elf_stabs (abfd);
|
||
#endif
|
||
if (dump_reloc_info)
|
||
dump_relocs (abfd);
|
||
if (dump_section_contents)
|
||
dump_data (abfd);
|
||
if (disassemble)
|
||
disassemble_data (abfd);
|
||
}
|
||
|
||
void
|
||
display_file (filename, target)
|
||
char *filename;
|
||
char *target;
|
||
{
|
||
bfd *file, *arfile = (bfd *) NULL;
|
||
|
||
file = bfd_openr (filename, target);
|
||
if (file == NULL)
|
||
{
|
||
bfd_perror (filename);
|
||
return;
|
||
}
|
||
|
||
if (bfd_check_format (file, bfd_archive) == true)
|
||
{
|
||
printf ("In archive %s:\n", bfd_get_filename (file));
|
||
for (;;)
|
||
{
|
||
bfd_error = no_error;
|
||
|
||
arfile = bfd_openr_next_archived_file (file, arfile);
|
||
if (arfile == NULL)
|
||
{
|
||
if (bfd_error != no_more_archived_files)
|
||
bfd_perror (bfd_get_filename (file));
|
||
return;
|
||
}
|
||
|
||
display_bfd (arfile);
|
||
/* Don't close the archive elements; we need them for next_archive */
|
||
}
|
||
}
|
||
else
|
||
display_bfd (file);
|
||
|
||
bfd_close (file);
|
||
}
|
||
|
||
/* Actually display the various requested regions */
|
||
|
||
void
|
||
dump_data (abfd)
|
||
bfd *abfd;
|
||
{
|
||
asection *section;
|
||
bfd_byte *data = 0;
|
||
bfd_size_type datasize = 0;
|
||
bfd_size_type i;
|
||
|
||
for (section = abfd->sections; section != NULL; section =
|
||
section->next)
|
||
{
|
||
int onaline = 16;
|
||
|
||
if (only == (char *) NULL ||
|
||
strcmp (only, section->name) == 0)
|
||
{
|
||
if (section->flags & SEC_HAS_CONTENTS)
|
||
{
|
||
printf ("Contents of section %s:\n", section->name);
|
||
|
||
if (bfd_get_section_size_before_reloc (section) == 0)
|
||
continue;
|
||
data = (bfd_byte *) malloc (bfd_get_section_size_before_reloc (section));
|
||
if (data == (bfd_byte *) NULL)
|
||
{
|
||
fprintf (stderr, "%s: memory exhausted.\n", program_name);
|
||
exit (1);
|
||
}
|
||
datasize = bfd_get_section_size_before_reloc (section);
|
||
|
||
|
||
bfd_get_section_contents (abfd, section, (PTR) data, 0, bfd_get_section_size_before_reloc (section));
|
||
|
||
for (i = 0; i < bfd_get_section_size_before_reloc (section); i += onaline)
|
||
{
|
||
bfd_size_type j;
|
||
|
||
printf (" %04lx ", (unsigned long int) (i + section->vma));
|
||
for (j = i; j < i + onaline; j++)
|
||
{
|
||
if (j < bfd_get_section_size_before_reloc (section))
|
||
printf ("%02x", (unsigned) (data[j]));
|
||
else
|
||
printf (" ");
|
||
if ((j & 3) == 3)
|
||
printf (" ");
|
||
}
|
||
|
||
printf (" ");
|
||
for (j = i; j < i + onaline; j++)
|
||
{
|
||
if (j >= bfd_get_section_size_before_reloc (section))
|
||
printf (" ");
|
||
else
|
||
printf ("%c", isprint (data[j]) ? data[j] : '.');
|
||
}
|
||
putchar ('\n');
|
||
}
|
||
}
|
||
}
|
||
free (data);
|
||
}
|
||
}
|
||
|
||
/* Should perhaps share code and display with nm? */
|
||
void
|
||
dump_symbols (abfd)
|
||
bfd *abfd;
|
||
{
|
||
|
||
unsigned int count;
|
||
asymbol **current = syms;
|
||
|
||
printf ("SYMBOL TABLE:\n");
|
||
|
||
for (count = 0; count < symcount; count++)
|
||
{
|
||
|
||
if (*current && (*current)->the_bfd)
|
||
{
|
||
bfd_print_symbol ((*current)->the_bfd,
|
||
stdout,
|
||
*current, bfd_print_symbol_all);
|
||
|
||
printf ("\n");
|
||
|
||
}
|
||
current++;
|
||
}
|
||
printf ("\n");
|
||
printf ("\n");
|
||
}
|
||
|
||
void
|
||
dump_relocs (abfd)
|
||
bfd *abfd;
|
||
{
|
||
arelent **relpp;
|
||
unsigned int relcount;
|
||
asection *a;
|
||
|
||
for (a = abfd->sections; a != (asection *) NULL; a = a->next)
|
||
{
|
||
if (a == &bfd_abs_section)
|
||
continue;
|
||
if (a == &bfd_und_section)
|
||
continue;
|
||
if (a == &bfd_com_section)
|
||
continue;
|
||
|
||
printf ("RELOCATION RECORDS FOR [%s]:", a->name);
|
||
|
||
if (bfd_get_reloc_upper_bound (abfd, a) == 0)
|
||
{
|
||
printf (" (none)\n\n");
|
||
}
|
||
else
|
||
{
|
||
arelent **p;
|
||
|
||
relpp = (arelent **) xmalloc (bfd_get_reloc_upper_bound (abfd, a));
|
||
relcount = bfd_canonicalize_reloc (abfd, a, relpp, syms);
|
||
if (relcount == 0)
|
||
{
|
||
printf (" (none)\n\n");
|
||
}
|
||
else
|
||
{
|
||
printf ("\n");
|
||
printf ("OFFSET TYPE VALUE \n");
|
||
|
||
for (p = relpp; relcount && *p != (arelent *) NULL; p++,
|
||
relcount--)
|
||
{
|
||
arelent *q = *p;
|
||
CONST char *sym_name;
|
||
|
||
/* CONST char *section_name = q->section == (asection *)NULL ? "*abs" :*/
|
||
/* q->section->name;*/
|
||
CONST char *section_name = (*(q->sym_ptr_ptr))->section->name;
|
||
|
||
if (q->sym_ptr_ptr && *q->sym_ptr_ptr)
|
||
{
|
||
sym_name = (*(q->sym_ptr_ptr))->name;
|
||
}
|
||
else
|
||
{
|
||
sym_name = 0;
|
||
}
|
||
if (sym_name)
|
||
{
|
||
printf_vma (q->address);
|
||
printf (" %-8s %s",
|
||
q->howto->name,
|
||
sym_name);
|
||
}
|
||
else
|
||
{
|
||
printf_vma (q->address);
|
||
printf (" %-8s [%s]",
|
||
q->howto->name,
|
||
section_name);
|
||
}
|
||
if (q->addend)
|
||
{
|
||
printf ("+0x");
|
||
printf_vma (q->addend);
|
||
}
|
||
printf ("\n");
|
||
}
|
||
printf ("\n\n");
|
||
free (relpp);
|
||
}
|
||
}
|
||
|
||
}
|
||
}
|
||
|
||
#ifdef unix
|
||
#define _DUMMY_NAME_ "/dev/null"
|
||
#else
|
||
#define _DUMMY_NAME_ "##dummy"
|
||
#endif
|
||
static void
|
||
DEFUN (display_info_table, (first, last),
|
||
int first AND int last)
|
||
{
|
||
unsigned int i, j;
|
||
extern bfd_target *target_vector[];
|
||
|
||
printf ("\n%12s", " ");
|
||
for (i = first; i++ < last && target_vector[i];)
|
||
printf ("%s ", target_vector[i]->name);
|
||
printf ("\n");
|
||
|
||
for (j = (int) bfd_arch_obscure + 1; (int) j < (int) bfd_arch_last; j++)
|
||
if (strcmp (bfd_printable_arch_mach (j, 0), "UNKNOWN!") != 0)
|
||
{
|
||
printf ("%11s ", bfd_printable_arch_mach (j, 0));
|
||
for (i = first; i++ < last && target_vector[i];)
|
||
{
|
||
bfd_target *p = target_vector[i];
|
||
bfd *abfd = bfd_openw (_DUMMY_NAME_, p->name);
|
||
int l = strlen (p->name);
|
||
int ok = bfd_set_arch_mach (abfd, j, 0);
|
||
|
||
if (ok)
|
||
printf ("%s ", p->name);
|
||
else
|
||
{
|
||
while (l--)
|
||
printf ("%c", ok ? '*' : '-');
|
||
printf (" ");
|
||
}
|
||
}
|
||
printf ("\n");
|
||
}
|
||
}
|
||
|
||
static void
|
||
DEFUN_VOID (display_info)
|
||
{
|
||
char *colum;
|
||
unsigned int i, j, columns;
|
||
extern bfd_target *target_vector[];
|
||
extern char *getenv ();
|
||
|
||
printf ("BFD header file version %s\n", BFD_VERSION);
|
||
for (i = 0; target_vector[i]; i++)
|
||
{
|
||
bfd_target *p = target_vector[i];
|
||
bfd *abfd = bfd_openw (_DUMMY_NAME_, p->name);
|
||
|
||
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");
|
||
for (j = (int) bfd_arch_obscure + 1; j < (int) bfd_arch_last; j++)
|
||
if (bfd_set_arch_mach (abfd, (enum bfd_architecture) j, 0))
|
||
printf (" %s\n",
|
||
bfd_printable_arch_mach ((enum bfd_architecture) j, 0));
|
||
}
|
||
columns = 0;
|
||
if (colum = getenv ("COLUMNS"))
|
||
columns = atoi (colum);
|
||
if (!columns)
|
||
columns = 80;
|
||
for (i = 0; target_vector[i];)
|
||
{
|
||
int old;
|
||
old = i;
|
||
for (j = 12; target_vector[i] && j < columns; i++)
|
||
j += strlen (target_vector[i]->name) + 1;
|
||
i--;
|
||
if (old == i)
|
||
break;
|
||
display_info_table (old, i);
|
||
}
|
||
}
|
||
|
||
/** main and like trivia */
|
||
int
|
||
main (argc, argv)
|
||
int argc;
|
||
char **argv;
|
||
{
|
||
int c;
|
||
extern int optind;
|
||
extern char *optarg;
|
||
char *target = default_target;
|
||
boolean seenflag = false;
|
||
int ind = 0;
|
||
|
||
bfd_init ();
|
||
program_name = *argv;
|
||
|
||
while ((c = getopt_long (argc, argv, "ib:m:dlfahrtxsj:", long_options, &ind))
|
||
!= EOF)
|
||
{
|
||
seenflag = true;
|
||
switch (c)
|
||
{
|
||
case 'm':
|
||
machine = optarg;
|
||
break;
|
||
case 'j':
|
||
only = optarg;
|
||
break;
|
||
case 'l':
|
||
with_line_numbers = 1;
|
||
break;
|
||
case 'b':
|
||
target = optarg;
|
||
break;
|
||
case 'f':
|
||
dump_file_header = true;
|
||
break;
|
||
case 'i':
|
||
info = true;
|
||
break;
|
||
case 'x':
|
||
dump_symtab = 1;
|
||
dump_reloc_info = 1;
|
||
dump_file_header = true;
|
||
dump_ar_hdrs = 1;
|
||
dump_section_headers = 1;
|
||
break;
|
||
case 0:
|
||
break; /* we've been given a long option */
|
||
case 't':
|
||
dump_symtab = 1;
|
||
break;
|
||
case 'd':
|
||
disassemble = true;
|
||
break;
|
||
case 's':
|
||
dump_section_contents = 1;
|
||
break;
|
||
case 'r':
|
||
dump_reloc_info = 1;
|
||
break;
|
||
case 'a':
|
||
dump_ar_hdrs = 1;
|
||
break;
|
||
case 'h':
|
||
dump_section_headers = 1;
|
||
break;
|
||
default:
|
||
usage ();
|
||
}
|
||
}
|
||
|
||
if (seenflag == false)
|
||
usage ();
|
||
|
||
if (info)
|
||
{
|
||
display_info ();
|
||
}
|
||
else
|
||
{
|
||
if (optind == argc)
|
||
display_file ("a.out", target);
|
||
else
|
||
for (; optind < argc;)
|
||
display_file (argv[optind++], target);
|
||
}
|
||
return 0;
|
||
}
|