old-cross-binutils/binutils/nm.c
Alan Modra dd70071f8b * nm.c (print_symbol): Check returned filename from
bfd_find_nearest_line is non-NULL.
2002-05-01 06:43:32 +00:00

1616 lines
39 KiB
C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/* nm.c -- Describe symbol table of a rel file.
Copyright 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
2001
Free Software Foundation, Inc.
This file is part of GNU Binutils.
This program 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 of the License, or
(at your option) any later version.
This program 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 this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
02111-1307, USA. */
#include "bfd.h"
#include "progress.h"
#include "bucomm.h"
#include "getopt.h"
#include "aout/stab_gnu.h"
#include "aout/ranlib.h"
#include "demangle.h"
#include "libiberty.h"
/* When sorting by size, we use this structure to hold the size and a
pointer to the minisymbol. */
struct size_sym
{
const PTR minisym;
bfd_vma size;
};
/* When fetching relocs, we use this structure to pass information to
get_relocs. */
struct get_relocs_info
{
asection **secs;
arelent ***relocs;
long *relcount;
asymbol **syms;
};
static void
usage PARAMS ((FILE *, int));
static void
set_print_radix PARAMS ((char *));
static void
set_output_format PARAMS ((char *));
static void
display_archive PARAMS ((bfd *));
static boolean
display_file PARAMS ((char *filename));
static void
display_rel_file PARAMS ((bfd * file, bfd * archive));
static long
filter_symbols PARAMS ((bfd *, boolean, PTR, long, unsigned int));
static long
sort_symbols_by_size PARAMS ((bfd *, boolean, PTR, long, unsigned int,
struct size_sym **));
static void
print_symbols PARAMS ((bfd *, boolean, PTR, long, unsigned int, bfd *));
static void
print_size_symbols PARAMS ((bfd *, boolean, struct size_sym *, long, bfd *));
static void
print_symname PARAMS ((const char *, const char *, bfd *));
static void
print_symbol PARAMS ((bfd *, asymbol *, bfd *));
static void
print_symdef_entry PARAMS ((bfd * abfd));
/* The sorting functions. */
static int
numeric_forward PARAMS ((const PTR, const PTR));
static int
numeric_reverse PARAMS ((const PTR, const PTR));
static int
non_numeric_forward PARAMS ((const PTR, const PTR));
static int
non_numeric_reverse PARAMS ((const PTR, const PTR));
static int
size_forward1 PARAMS ((const PTR, const PTR));
static int
size_forward2 PARAMS ((const PTR, const PTR));
/* The output formatting functions. */
static void
print_object_filename_bsd PARAMS ((char *filename));
static void
print_object_filename_sysv PARAMS ((char *filename));
static void
print_object_filename_posix PARAMS ((char *filename));
static void
print_archive_filename_bsd PARAMS ((char *filename));
static void
print_archive_filename_sysv PARAMS ((char *filename));
static void
print_archive_filename_posix PARAMS ((char *filename));
static void
print_archive_member_bsd PARAMS ((char *archive, CONST char *filename));
static void
print_archive_member_sysv PARAMS ((char *archive, CONST char *filename));
static void
print_archive_member_posix PARAMS ((char *archive, CONST char *filename));
static void
print_symbol_filename_bsd PARAMS ((bfd * archive_bfd, bfd * abfd));
static void
print_symbol_filename_sysv PARAMS ((bfd * archive_bfd, bfd * abfd));
static void
print_symbol_filename_posix PARAMS ((bfd * archive_bfd, bfd * abfd));
static void
print_value PARAMS ((bfd *, bfd_vma));
static void
print_symbol_info_bsd PARAMS ((symbol_info * info, bfd * abfd));
static void
print_symbol_info_sysv PARAMS ((symbol_info * info, bfd * abfd));
static void
print_symbol_info_posix PARAMS ((symbol_info * info, bfd * abfd));
static void
get_relocs PARAMS ((bfd *, asection *, PTR));
/* Support for different output formats. */
struct output_fns
{
/* Print the name of an object file given on the command line. */
void (*print_object_filename) PARAMS ((char *filename));
/* Print the name of an archive file given on the command line. */
void (*print_archive_filename) PARAMS ((char *filename));
/* Print the name of an archive member file. */
void (*print_archive_member) PARAMS ((char *archive, CONST char *filename));
/* Print the name of the file (and archive, if there is one)
containing a symbol. */
void (*print_symbol_filename) PARAMS ((bfd * archive_bfd, bfd * abfd));
/* Print a line of information about a symbol. */
void (*print_symbol_info) PARAMS ((symbol_info * info, bfd * abfd));
};
static struct output_fns formats[] =
{
{print_object_filename_bsd,
print_archive_filename_bsd,
print_archive_member_bsd,
print_symbol_filename_bsd,
print_symbol_info_bsd},
{print_object_filename_sysv,
print_archive_filename_sysv,
print_archive_member_sysv,
print_symbol_filename_sysv,
print_symbol_info_sysv},
{print_object_filename_posix,
print_archive_filename_posix,
print_archive_member_posix,
print_symbol_filename_posix,
print_symbol_info_posix}
};
/* Indices in `formats'. */
#define FORMAT_BSD 0
#define FORMAT_SYSV 1
#define FORMAT_POSIX 2
#define FORMAT_DEFAULT FORMAT_BSD
/* The output format to use. */
static struct output_fns *format = &formats[FORMAT_DEFAULT];
/* Command options. */
static int do_demangle = 0; /* Pretty print C++ symbol names. */
static int external_only = 0; /* print external symbols only */
static int defined_only = 0; /* Print defined symbols only */
static int no_sort = 0; /* don't sort; print syms in order found */
static int print_debug_syms = 0; /* print debugger-only symbols too */
static int print_armap = 0; /* describe __.SYMDEF data in archive files. */
static int reverse_sort = 0; /* sort in downward(alpha or numeric) order */
static int sort_numerically = 0; /* sort in numeric rather than alpha order */
static int sort_by_size = 0; /* sort by size of symbol */
static int undefined_only = 0; /* print undefined symbols only */
static int dynamic = 0; /* print dynamic symbols. */
static int show_version = 0; /* show the version number */
static int show_stats = 0; /* show statistics */
static int line_numbers = 0; /* print line numbers for symbols */
/* When to print the names of files. Not mutually exclusive in SYSV format. */
static int filename_per_file = 0; /* Once per file, on its own line. */
static int filename_per_symbol = 0; /* Once per symbol, at start of line. */
/* Print formats for printing a symbol value. */
#ifndef BFD64
static char value_format[] = "%08lx";
#else
#if BFD_HOST_64BIT_LONG
static char value_format[] = "%016lx";
#else
/* We don't use value_format for this case. */
#endif
#endif
#ifdef BFD64
static int print_width = 16;
#else
static int print_width = 8;
#endif
static int print_radix = 16;
/* Print formats for printing stab info. */
static char other_format[] = "%02x";
static char desc_format[] = "%04x";
static char *target = NULL;
/* Used to cache the line numbers for a BFD. */
static bfd *lineno_cache_bfd;
static bfd *lineno_cache_rel_bfd;
#define OPTION_TARGET 200
static struct option long_options[] =
{
{"debug-syms", no_argument, &print_debug_syms, 1},
{"demangle", optional_argument, 0, 'C'},
{"dynamic", no_argument, &dynamic, 1},
{"extern-only", no_argument, &external_only, 1},
{"format", required_argument, 0, 'f'},
{"help", no_argument, 0, 'h'},
{"line-numbers", no_argument, 0, 'l'},
{"no-cplus", no_argument, &do_demangle, 0}, /* Linux compatibility. */
{"no-demangle", no_argument, &do_demangle, 0},
{"no-sort", no_argument, &no_sort, 1},
{"numeric-sort", no_argument, &sort_numerically, 1},
{"portability", no_argument, 0, 'P'},
{"print-armap", no_argument, &print_armap, 1},
{"print-file-name", no_argument, 0, 'o'},
{"radix", required_argument, 0, 't'},
{"reverse-sort", no_argument, &reverse_sort, 1},
{"size-sort", no_argument, &sort_by_size, 1},
{"stats", no_argument, &show_stats, 1},
{"target", required_argument, 0, OPTION_TARGET},
{"defined-only", no_argument, &defined_only, 1},
{"undefined-only", no_argument, &undefined_only, 1},
{"version", no_argument, &show_version, 1},
{0, no_argument, 0, 0}
};
/* Some error-reporting functions */
static void
usage (stream, status)
FILE *stream;
int status;
{
fprintf (stream, _("Usage: %s [option(s)] [file(s)]\n"), program_name);
fprintf (stream, _(" List symbols in [file(s)] (a.out by default).\n"));
fprintf (stream, _(" The options are:\n\
-a, --debug-syms Display debugger-only symbols\n\
-A, --print-file-name Print name of the input file before every symbol\n\
-B Same as --format=bsd\n\
-C, --demangle[=STYLE] Decode low-level symbol names into user-level names\n\
The STYLE, if specified, can be `auto' (the default),\n\
`gnu', 'lucid', 'arm', 'hp', 'edg' or 'gnu-new-abi'\n\
--no-demangle Do not demangle low-level symbol names\n\
-D, --dynamic Display dynamic symbols instead of normal symbols\n\
--defined-only Display only defined symbols\n\
-e (ignored)\n\
-f, --format=FORMAT Use the output format FORMAT. FORMAT can be `bsd',\n\
`sysv' or `posix'. The default is `bsd'\n\
-g, --extern-only Display only external symbols\n\
-l, --line-numbers Use debugging information to find a filename and\n\
line number for each symbol\n\
-n, --numeric-sort Sort symbols numerically by address\n\
-o Same as -A\n\
-p, --no-sort Do not sort the symbols\n\
-P, --portability Same as --format=posix\n\
-r, --reverse-sort Reverse the sense of the sort\n\
-s, --print-armap Include index for symbols from archive members\n\
--size-sort Sort symbols by size\n\
-t, --radix=RADIX Use RADIX for printing symbol values\n\
--target=BFDNAME Specify the target object format as BFDNAME\n\
-u, --undefined-only Display only undefined symbols\n\
-X 32_64 (ignored)\n\
-h, --help Display this information\n\
-V, --version Display this program's version number\n\
\n"));
list_supported_targets (program_name, stream);
if (status == 0)
fprintf (stream, _("Report bugs to %s.\n"), REPORT_BUGS_TO);
exit (status);
}
/* Set the radix for the symbol value and size according to RADIX. */
static void
set_print_radix (radix)
char *radix;
{
switch (*radix)
{
case 'x':
break;
case 'd':
case 'o':
if (*radix == 'd')
print_radix = 10;
else
print_radix = 8;
#ifndef BFD64
value_format[4] = *radix;
#else
#if BFD_HOST_64BIT_LONG
value_format[5] = *radix;
#else
/* This case requires special handling for octal and decimal
printing. */
#endif
#endif
other_format[3] = desc_format[3] = *radix;
break;
default:
fatal (_("%s: invalid radix"), radix);
}
}
static void
set_output_format (f)
char *f;
{
int i;
switch (*f)
{
case 'b':
case 'B':
i = FORMAT_BSD;
break;
case 'p':
case 'P':
i = FORMAT_POSIX;
break;
case 's':
case 'S':
i = FORMAT_SYSV;
break;
default:
fatal (_("%s: invalid output format"), f);
}
format = &formats[i];
}
int main PARAMS ((int, char **));
int
main (argc, argv)
int argc;
char **argv;
{
int c;
int retval;
#if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
setlocale (LC_MESSAGES, "");
#endif
#if defined (HAVE_SETLOCALE)
setlocale (LC_CTYPE, "");
#endif
bindtextdomain (PACKAGE, LOCALEDIR);
textdomain (PACKAGE);
program_name = *argv;
xmalloc_set_program_name (program_name);
START_PROGRESS (program_name, 0);
bfd_init ();
set_default_bfd_target ();
while ((c = getopt_long (argc, argv, "aABCDef:gHhlnopPrst:uvVvX:",
long_options, (int *) 0)) != EOF)
{
switch (c)
{
case 'a':
print_debug_syms = 1;
break;
case 'A':
case 'o':
filename_per_symbol = 1;
break;
case 'B': /* For MIPS compatibility. */
set_output_format ("bsd");
break;
case 'C':
do_demangle = 1;
if (optarg != NULL)
{
enum demangling_styles style;
style = cplus_demangle_name_to_style (optarg);
if (style == unknown_demangling)
fatal (_("unknown demangling style `%s'"),
optarg);
cplus_demangle_set_style (style);
}
break;
case 'D':
dynamic = 1;
break;
case 'e':
/* Ignored for HP/UX compatibility. */
break;
case 'f':
set_output_format (optarg);
break;
case 'g':
external_only = 1;
break;
case 'H':
case 'h':
usage (stdout, 0);
case 'l':
line_numbers = 1;
break;
case 'n':
case 'v':
sort_numerically = 1;
break;
case 'p':
no_sort = 1;
break;
case 'P':
set_output_format ("posix");
break;
case 'r':
reverse_sort = 1;
break;
case 's':
print_armap = 1;
break;
case 't':
set_print_radix (optarg);
break;
case 'u':
undefined_only = 1;
break;
case 'V':
show_version = 1;
break;
case 'X':
/* Ignored for (partial) AIX compatibility. On AIX, the
argument has values 32, 64, or 32_64, and specfies that
only 32-bit, only 64-bit, or both kinds of objects should
be examined. The default is 32. So plain AIX nm on a
library archive with both kinds of objects will ignore
the 64-bit ones. For GNU nm, the default is and always
has been -X 32_64, and other options are not supported. */
if (strcmp (optarg, "32_64") != 0)
fatal (_("Only -X 32_64 is supported"));
break;
case OPTION_TARGET: /* --target */
target = optarg;
break;
case 0: /* A long option that just sets a flag. */
break;
default:
usage (stderr, 1);
}
}
if (show_version)
print_version ("nm");
/* OK, all options now parsed. If no filename specified, do a.out. */
if (optind == argc)
return !display_file ("a.out");
retval = 0;
if (argc - optind > 1)
filename_per_file = 1;
/* We were given several filenames to do. */
while (optind < argc)
{
PROGRESS (1);
if (!display_file (argv[optind++]))
retval++;
}
END_PROGRESS (program_name);
#ifdef HAVE_SBRK
if (show_stats)
{
char *lim = (char *) sbrk (0);
non_fatal (_("data size %ld"), (long) (lim - (char *) &environ));
}
#endif
exit (retval);
return retval;
}
static void
display_archive (file)
bfd *file;
{
bfd *arfile = NULL;
bfd *last_arfile = NULL;
char **matching;
(*format->print_archive_filename) (bfd_get_filename (file));
if (print_armap)
print_symdef_entry (file);
for (;;)
{
PROGRESS (1);
arfile = bfd_openr_next_archived_file (file, arfile);
if (arfile == NULL)
{
if (bfd_get_error () != bfd_error_no_more_archived_files)
bfd_fatal (bfd_get_filename (file));
break;
}
if (bfd_check_format_matches (arfile, bfd_object, &matching))
{
(*format->print_archive_member) (bfd_get_filename (file),
bfd_get_filename (arfile));
display_rel_file (arfile, file);
}
else
{
bfd_nonfatal (bfd_get_filename (arfile));
if (bfd_get_error () == bfd_error_file_ambiguously_recognized)
{
list_matching_formats (matching);
free (matching);
}
}
if (last_arfile != NULL)
{
bfd_close (last_arfile);
lineno_cache_bfd = NULL;
lineno_cache_rel_bfd = NULL;
}
last_arfile = arfile;
}
if (last_arfile != NULL)
{
bfd_close (last_arfile);
lineno_cache_bfd = NULL;
lineno_cache_rel_bfd = NULL;
}
}
static boolean
display_file (filename)
char *filename;
{
boolean retval = true;
bfd *file;
char **matching;
file = bfd_openr (filename, target);
if (file == NULL)
{
bfd_nonfatal (filename);
return false;
}
if (bfd_check_format (file, bfd_archive))
{
display_archive (file);
}
else if (bfd_check_format_matches (file, bfd_object, &matching))
{
(*format->print_object_filename) (filename);
display_rel_file (file, NULL);
}
else
{
bfd_nonfatal (filename);
if (bfd_get_error () == bfd_error_file_ambiguously_recognized)
{
list_matching_formats (matching);
free (matching);
}
retval = false;
}
if (bfd_close (file) == false)
bfd_fatal (filename);
lineno_cache_bfd = NULL;
lineno_cache_rel_bfd = NULL;
return retval;
}
/* These globals are used to pass information into the sorting
routines. */
static bfd *sort_bfd;
static boolean sort_dynamic;
static asymbol *sort_x;
static asymbol *sort_y;
/* Symbol-sorting predicates */
#define valueof(x) ((x)->section->vma + (x)->value)
/* Numeric sorts. Undefined symbols are always considered "less than"
defined symbols with zero values. Common symbols are not treated
specially -- i.e., their sizes are used as their "values". */
static int
numeric_forward (P_x, P_y)
const PTR P_x;
const PTR P_y;
{
asymbol *x, *y;
asection *xs, *ys;
x = bfd_minisymbol_to_symbol (sort_bfd, sort_dynamic, P_x, sort_x);
y = bfd_minisymbol_to_symbol (sort_bfd, sort_dynamic, P_y, sort_y);
if (x == NULL || y == NULL)
bfd_fatal (bfd_get_filename (sort_bfd));
xs = bfd_get_section (x);
ys = bfd_get_section (y);
if (bfd_is_und_section (xs))
{
if (! bfd_is_und_section (ys))
return -1;
}
else if (bfd_is_und_section (ys))
return 1;
else if (valueof (x) != valueof (y))
return valueof (x) < valueof (y) ? -1 : 1;
return non_numeric_forward (P_x, P_y);
}
static int
numeric_reverse (x, y)
const PTR x;
const PTR y;
{
return - numeric_forward (x, y);
}
static int
non_numeric_forward (P_x, P_y)
const PTR P_x;
const PTR P_y;
{
asymbol *x, *y;
const char *xn, *yn;
x = bfd_minisymbol_to_symbol (sort_bfd, sort_dynamic, P_x, sort_x);
y = bfd_minisymbol_to_symbol (sort_bfd, sort_dynamic, P_y, sort_y);
if (x == NULL || y == NULL)
bfd_fatal (bfd_get_filename (sort_bfd));
xn = bfd_asymbol_name (x);
yn = bfd_asymbol_name (y);
return ((xn == NULL) ? ((yn == NULL) ? 0 : -1) :
((yn == NULL) ? 1 : strcmp (xn, yn)));
}
static int
non_numeric_reverse (x, y)
const PTR x;
const PTR y;
{
return - non_numeric_forward (x, y);
}
static int (*(sorters[2][2])) PARAMS ((const PTR, const PTR)) =
{
{ non_numeric_forward, non_numeric_reverse },
{ numeric_forward, numeric_reverse }
};
/* This sort routine is used by sort_symbols_by_size. It is similar
to numeric_forward, but when symbols have the same value it sorts
by section VMA. This simplifies the sort_symbols_by_size code
which handles symbols at the end of sections. Also, this routine
tries to sort file names before other symbols with the same value.
That will make the file name have a zero size, which will make
sort_symbols_by_size choose the non file name symbol, leading to
more meaningful output. For similar reasons, this code sorts
gnu_compiled_* and gcc2_compiled before other symbols with the same
value. */
static int
size_forward1 (P_x, P_y)
const PTR P_x;
const PTR P_y;
{
asymbol *x, *y;
asection *xs, *ys;
const char *xn, *yn;
size_t xnl, ynl;
int xf, yf;
x = bfd_minisymbol_to_symbol (sort_bfd, sort_dynamic, P_x, sort_x);
y = bfd_minisymbol_to_symbol (sort_bfd, sort_dynamic, P_y, sort_y);
if (x == NULL || y == NULL)
bfd_fatal (bfd_get_filename (sort_bfd));
xs = bfd_get_section (x);
ys = bfd_get_section (y);
if (bfd_is_und_section (xs))
abort ();
if (bfd_is_und_section (ys))
abort ();
if (valueof (x) != valueof (y))
return valueof (x) < valueof (y) ? -1 : 1;
if (xs->vma != ys->vma)
return xs->vma < ys->vma ? -1 : 1;
xn = bfd_asymbol_name (x);
yn = bfd_asymbol_name (y);
xnl = strlen (xn);
ynl = strlen (yn);
/* The symbols gnu_compiled and gcc2_compiled convey even less
information than the file name, so sort them out first. */
xf = (strstr (xn, "gnu_compiled") != NULL
|| strstr (xn, "gcc2_compiled") != NULL);
yf = (strstr (yn, "gnu_compiled") != NULL
|| strstr (yn, "gcc2_compiled") != NULL);
if (xf && ! yf)
return -1;
if (! xf && yf)
return 1;
/* We use a heuristic for the file name. 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')))
xf = file_symbol (x, xn, xnl);
yf = file_symbol (y, yn, ynl);
if (xf && ! yf)
return -1;
if (! xf && yf)
return 1;
return non_numeric_forward (P_x, P_y);
}
/* This sort routine is used by sort_symbols_by_size. It is sorting
an array of size_sym structures into size order. */
static int
size_forward2 (P_x, P_y)
const PTR P_x;
const PTR P_y;
{
const struct size_sym *x = (const struct size_sym *) P_x;
const struct size_sym *y = (const struct size_sym *) P_y;
if (x->size < y->size)
return reverse_sort ? 1 : -1;
else if (x->size > y->size)
return reverse_sort ? -1 : 1;
else
return sorters[0][reverse_sort] (x->minisym, y->minisym);
}
/* Sort the symbols by size. We guess the size by assuming that the
difference between the address of a symbol and the address of the
next higher symbol is the size. FIXME: ELF actually stores a size
with each symbol. We should use it. */
static long
sort_symbols_by_size (abfd, dynamic, minisyms, symcount, size, symsizesp)
bfd *abfd;
boolean dynamic;
PTR minisyms;
long symcount;
unsigned int size;
struct size_sym **symsizesp;
{
struct size_sym *symsizes;
bfd_byte *from, *fromend;
asymbol *sym = NULL;
asymbol *store_sym, *store_next;
qsort (minisyms, symcount, size, size_forward1);
/* We are going to return a special set of symbols and sizes to
print. */
symsizes = (struct size_sym *) xmalloc (symcount * sizeof (struct size_sym));
*symsizesp = symsizes;
/* Note that filter_symbols has already removed all absolute and
undefined symbols. Here we remove all symbols whose size winds
up as zero. */
from = (bfd_byte *) minisyms;
fromend = from + symcount * size;
store_sym = sort_x;
store_next = sort_y;
if (from < fromend)
{
sym = bfd_minisymbol_to_symbol (abfd, dynamic, (const PTR) from,
store_sym);
if (sym == NULL)
bfd_fatal (bfd_get_filename (abfd));
}
for (; from < fromend; from += size)
{
asymbol *next;
asection *sec;
bfd_vma sz;
asymbol *temp;
if (from + size < fromend)
{
next = bfd_minisymbol_to_symbol (abfd,
dynamic,
(const PTR) (from + size),
store_next);
if (next == NULL)
bfd_fatal (bfd_get_filename (abfd));
}
else
next = NULL;
sec = bfd_get_section (sym);
if (bfd_is_com_section (sec))
sz = sym->value;
else
{
if (from + size < fromend
&& sec == bfd_get_section (next))
sz = valueof (next) - valueof (sym);
else
sz = (bfd_get_section_vma (abfd, sec)
+ bfd_section_size (abfd, sec)
- valueof (sym));
}
if (sz != 0)
{
symsizes->minisym = (const PTR) from;
symsizes->size = sz;
++symsizes;
}
sym = next;
temp = store_sym;
store_sym = store_next;
store_next = temp;
}
symcount = symsizes - *symsizesp;
/* We must now sort again by size. */
qsort ((PTR) *symsizesp, symcount, sizeof (struct size_sym), size_forward2);
return symcount;
}
/* If ARCHIVE_BFD is non-NULL, it is the archive containing ABFD. */
static void
display_rel_file (abfd, archive_bfd)
bfd *abfd;
bfd *archive_bfd;
{
long symcount;
PTR minisyms;
unsigned int size;
struct size_sym *symsizes;
char buf[30];
if (! dynamic)
{
if (!(bfd_get_file_flags (abfd) & HAS_SYMS))
{
non_fatal (_("%s: no symbols"), bfd_get_filename (abfd));
return;
}
}
symcount = bfd_read_minisymbols (abfd, dynamic, &minisyms, &size);
if (symcount < 0)
bfd_fatal (bfd_get_filename (abfd));
if (symcount == 0)
{
non_fatal (_("%s: no symbols"), bfd_get_filename (abfd));
return;
}
bfd_sprintf_vma (abfd, buf, (bfd_vma) -1);
print_width = strlen (buf);
/* Discard the symbols we don't want to print.
It's OK to do this in place; we'll free the storage anyway
(after printing). */
symcount = filter_symbols (abfd, dynamic, minisyms, symcount, size);
symsizes = NULL;
if (! no_sort)
{
sort_bfd = abfd;
sort_dynamic = dynamic;
sort_x = bfd_make_empty_symbol (abfd);
sort_y = bfd_make_empty_symbol (abfd);
if (sort_x == NULL || sort_y == NULL)
bfd_fatal (bfd_get_filename (abfd));
if (! sort_by_size)
qsort (minisyms, symcount, size,
sorters[sort_numerically][reverse_sort]);
else
symcount = sort_symbols_by_size (abfd, dynamic, minisyms, symcount,
size, &symsizes);
}
if (! sort_by_size)
print_symbols (abfd, dynamic, minisyms, symcount, size, archive_bfd);
else
print_size_symbols (abfd, dynamic, symsizes, symcount, archive_bfd);
free (minisyms);
}
/* Choose which symbol entries to print;
compact them downward to get rid of the rest.
Return the number of symbols to be printed. */
static long
filter_symbols (abfd, dynamic, minisyms, symcount, size)
bfd *abfd;
boolean dynamic;
PTR minisyms;
long symcount;
unsigned int size;
{
bfd_byte *from, *fromend, *to;
asymbol *store;
store = bfd_make_empty_symbol (abfd);
if (store == NULL)
bfd_fatal (bfd_get_filename (abfd));
from = (bfd_byte *) minisyms;
fromend = from + symcount * size;
to = (bfd_byte *) minisyms;
for (; from < fromend; from += size)
{
int keep = 0;
asymbol *sym;
PROGRESS (1);
sym = bfd_minisymbol_to_symbol (abfd, dynamic, (const PTR) from, store);
if (sym == NULL)
bfd_fatal (bfd_get_filename (abfd));
if (undefined_only)
keep = bfd_is_und_section (sym->section);
else if (external_only)
keep = ((sym->flags & BSF_GLOBAL) != 0
|| (sym->flags & BSF_WEAK) != 0
|| bfd_is_und_section (sym->section)
|| bfd_is_com_section (sym->section));
else
keep = 1;
if (keep
&& ! print_debug_syms
&& (sym->flags & BSF_DEBUGGING) != 0)
keep = 0;
if (keep
&& sort_by_size
&& (bfd_is_abs_section (sym->section)
|| bfd_is_und_section (sym->section)))
keep = 0;
if (keep
&& defined_only)
{
if (bfd_is_und_section (sym->section))
keep = 0;
}
if (keep)
{
memcpy (to, from, size);
to += size;
}
}
return (to - (bfd_byte *) minisyms) / size;
}
/* Print symbol name NAME, read from ABFD, with printf format FORMAT,
demangling it if requested. */
static void
print_symname (format, name, abfd)
const char *format;
const char *name;
bfd *abfd;
{
if (do_demangle && *name)
{
char *res;
/* In this mode, give a user-level view of the symbol name
even if it's not mangled; strip off any leading
underscore. */
if (bfd_get_symbol_leading_char (abfd) == name[0])
name++;
res = cplus_demangle (name, DMGL_ANSI | DMGL_PARAMS);
if (res)
{
printf (format, res);
free (res);
return;
}
}
printf (format, name);
}
/* Print the symbols. If ARCHIVE_BFD is non-NULL, it is the archive
containing ABFD. */
static void
print_symbols (abfd, dynamic, minisyms, symcount, size, archive_bfd)
bfd *abfd;
boolean dynamic;
PTR minisyms;
long symcount;
unsigned int size;
bfd *archive_bfd;
{
asymbol *store;
bfd_byte *from, *fromend;
store = bfd_make_empty_symbol (abfd);
if (store == NULL)
bfd_fatal (bfd_get_filename (abfd));
from = (bfd_byte *) minisyms;
fromend = from + symcount * size;
for (; from < fromend; from += size)
{
asymbol *sym;
sym = bfd_minisymbol_to_symbol (abfd, dynamic, from, store);
if (sym == NULL)
bfd_fatal (bfd_get_filename (abfd));
print_symbol (abfd, sym, archive_bfd);
}
}
/* Print the symbols when sorting by size. */
static void
print_size_symbols (abfd, dynamic, symsizes, symcount, archive_bfd)
bfd *abfd;
boolean dynamic;
struct size_sym *symsizes;
long symcount;
bfd *archive_bfd;
{
asymbol *store;
struct size_sym *from, *fromend;
store = bfd_make_empty_symbol (abfd);
if (store == NULL)
bfd_fatal (bfd_get_filename (abfd));
from = symsizes;
fromend = from + symcount;
for (; from < fromend; from++)
{
asymbol *sym;
sym = bfd_minisymbol_to_symbol (abfd, dynamic, from->minisym, store);
if (sym == NULL)
bfd_fatal (bfd_get_filename (abfd));
/* Set the symbol value so that we actually display the symbol
size. */
sym->value = from->size - bfd_section_vma (abfd, bfd_get_section (sym));
print_symbol (abfd, sym, archive_bfd);
}
}
/* Print a single symbol. */
static void
print_symbol (abfd, sym, archive_bfd)
bfd *abfd;
asymbol *sym;
bfd *archive_bfd;
{
PROGRESS (1);
(*format->print_symbol_filename) (archive_bfd, abfd);
if (undefined_only)
{
if (bfd_is_und_section (bfd_get_section (sym)))
print_symname ("%s", bfd_asymbol_name (sym), abfd);
}
else
{
symbol_info syminfo;
bfd_get_symbol_info (abfd, sym, &syminfo);
(*format->print_symbol_info) (&syminfo, abfd);
}
if (line_numbers)
{
static asymbol **syms;
static long symcount;
const char *filename, *functionname;
unsigned int lineno;
/* We need to get the canonical symbols in order to call
bfd_find_nearest_line. This is inefficient, but, then, you
don't have to use --line-numbers. */
if (abfd != lineno_cache_bfd && syms != NULL)
{
free (syms);
syms = NULL;
}
if (syms == NULL)
{
long symsize;
symsize = bfd_get_symtab_upper_bound (abfd);
if (symsize < 0)
bfd_fatal (bfd_get_filename (abfd));
syms = (asymbol **) xmalloc (symsize);
symcount = bfd_canonicalize_symtab (abfd, syms);
if (symcount < 0)
bfd_fatal (bfd_get_filename (abfd));
lineno_cache_bfd = abfd;
}
if (bfd_is_und_section (bfd_get_section (sym)))
{
static asection **secs;
static arelent ***relocs;
static long *relcount;
static unsigned int seccount;
unsigned int i;
const char *symname;
/* For an undefined symbol, we try to find a reloc for the
symbol, and print the line number of the reloc. */
if (abfd != lineno_cache_rel_bfd && relocs != NULL)
{
for (i = 0; i < seccount; i++)
if (relocs[i] != NULL)
free (relocs[i]);
free (secs);
free (relocs);
free (relcount);
secs = NULL;
relocs = NULL;
relcount = NULL;
}
if (relocs == NULL)
{
struct get_relocs_info info;
seccount = bfd_count_sections (abfd);
secs = (asection **) xmalloc (seccount * sizeof *secs);
relocs = (arelent ***) xmalloc (seccount * sizeof *relocs);
relcount = (long *) xmalloc (seccount * sizeof *relcount);
info.secs = secs;
info.relocs = relocs;
info.relcount = relcount;
info.syms = syms;
bfd_map_over_sections (abfd, get_relocs, (PTR) &info);
lineno_cache_rel_bfd = abfd;
}
symname = bfd_asymbol_name (sym);
for (i = 0; i < seccount; i++)
{
long j;
for (j = 0; j < relcount[i]; j++)
{
arelent *r;
r = relocs[i][j];
if (r->sym_ptr_ptr != NULL
&& (*r->sym_ptr_ptr)->section == sym->section
&& (*r->sym_ptr_ptr)->value == sym->value
&& strcmp (symname,
bfd_asymbol_name (*r->sym_ptr_ptr)) == 0
&& bfd_find_nearest_line (abfd, secs[i], syms,
r->address, &filename,
&functionname, &lineno)
&& filename != NULL)
{
/* We only print the first one we find. */
printf ("\t%s:%u", filename, lineno);
i = seccount;
break;
}
}
}
}
else if (bfd_get_section (sym)->owner == abfd)
{
if (bfd_find_nearest_line (abfd, bfd_get_section (sym), syms,
sym->value, &filename, &functionname,
&lineno)
&& filename != NULL
&& lineno != 0)
{
printf ("\t%s:%u", filename, lineno);
}
}
}
putchar ('\n');
}
/* The following 3 groups of functions are called unconditionally,
once at the start of processing each file of the appropriate type.
They should check `filename_per_file' and `filename_per_symbol',
as appropriate for their output format, to determine whether to
print anything. */
/* Print the name of an object file given on the command line. */
static void
print_object_filename_bsd (filename)
char *filename;
{
if (filename_per_file && !filename_per_symbol)
printf ("\n%s:\n", filename);
}
static void
print_object_filename_sysv (filename)
char *filename;
{
if (undefined_only)
printf (_("\n\nUndefined symbols from %s:\n\n"), filename);
else
printf (_("\n\nSymbols from %s:\n\n"), filename);
printf (_("\
Name Value Class Type Size Line Section\n\n"));
}
static void
print_object_filename_posix (filename)
char *filename;
{
if (filename_per_file && !filename_per_symbol)
printf ("%s:\n", filename);
}
/* Print the name of an archive file given on the command line. */
static void
print_archive_filename_bsd (filename)
char *filename;
{
if (filename_per_file)
printf ("\n%s:\n", filename);
}
static void
print_archive_filename_sysv (filename)
char *filename ATTRIBUTE_UNUSED;
{
}
static void
print_archive_filename_posix (filename)
char *filename ATTRIBUTE_UNUSED;
{
}
/* Print the name of an archive member file. */
static void
print_archive_member_bsd (archive, filename)
char *archive ATTRIBUTE_UNUSED;
CONST char *filename;
{
if (!filename_per_symbol)
printf ("\n%s:\n", filename);
}
static void
print_archive_member_sysv (archive, filename)
char *archive;
CONST char *filename;
{
if (undefined_only)
printf (_("\n\nUndefined symbols from %s[%s]:\n\n"), archive, filename);
else
printf (_("\n\nSymbols from %s[%s]:\n\n"), archive, filename);
printf (_("\
Name Value Class Type Size Line Section\n\n"));
}
static void
print_archive_member_posix (archive, filename)
char *archive;
CONST char *filename;
{
if (!filename_per_symbol)
printf ("%s[%s]:\n", archive, filename);
}
/* Print the name of the file (and archive, if there is one)
containing a symbol. */
static void
print_symbol_filename_bsd (archive_bfd, abfd)
bfd *archive_bfd, *abfd;
{
if (filename_per_symbol)
{
if (archive_bfd)
printf ("%s:", bfd_get_filename (archive_bfd));
printf ("%s:", bfd_get_filename (abfd));
}
}
static void
print_symbol_filename_sysv (archive_bfd, abfd)
bfd *archive_bfd, *abfd;
{
if (filename_per_symbol)
{
if (archive_bfd)
printf ("%s:", bfd_get_filename (archive_bfd));
printf ("%s:", bfd_get_filename (abfd));
}
}
static void
print_symbol_filename_posix (archive_bfd, abfd)
bfd *archive_bfd, *abfd;
{
if (filename_per_symbol)
{
if (archive_bfd)
printf ("%s[%s]: ", bfd_get_filename (archive_bfd),
bfd_get_filename (abfd));
else
printf ("%s: ", bfd_get_filename (abfd));
}
}
/* Print a symbol value. */
static void
print_value (abfd, val)
bfd *abfd ATTRIBUTE_UNUSED;
bfd_vma val;
{
#if ! defined (BFD64) || BFD_HOST_64BIT_LONG
printf (value_format, val);
#else
/* We have a 64 bit value to print, but the host is only 32 bit. */
if (print_radix == 16)
bfd_fprintf_vma (abfd, stdout, val);
else
{
char buf[30];
char *s;
s = buf + sizeof buf;
*--s = '\0';
while (val > 0)
{
*--s = (val % print_radix) + '0';
val /= print_radix;
}
while ((buf + sizeof buf - 1) - s < 16)
*--s = '0';
printf ("%s", s);
}
#endif
}
/* Print a line of information about a symbol. */
static void
print_symbol_info_bsd (info, abfd)
symbol_info *info;
bfd *abfd;
{
if (bfd_is_undefined_symclass (info->type))
{
if (print_width == 16)
printf (" ");
printf (" ");
}
else
print_value (abfd, info->value);
printf (" %c", info->type);
if (info->type == '-')
{
/* A stab. */
printf (" ");
printf (other_format, info->stab_other);
printf (" ");
printf (desc_format, info->stab_desc);
printf (" %5s", info->stab_name);
}
print_symname (" %s", info->name, abfd);
}
static void
print_symbol_info_sysv (info, abfd)
symbol_info *info;
bfd *abfd;
{
print_symname ("%-20s|", info->name, abfd); /* Name */
if (bfd_is_undefined_symclass (info->type))
printf (" "); /* Value */
else
print_value (abfd, info->value);
printf ("| %c |", info->type); /* Class */
if (info->type == '-')
{
/* A stab. */
printf ("%18s| ", info->stab_name); /* (C) Type */
printf (desc_format, info->stab_desc); /* Size */
printf ("| |"); /* Line, Section */
}
else
printf (" | | |"); /* Type, Size, Line, Section */
}
static void
print_symbol_info_posix (info, abfd)
symbol_info *info;
bfd *abfd;
{
print_symname ("%s ", info->name, abfd);
printf ("%c ", info->type);
if (bfd_is_undefined_symclass (info->type))
printf (" ");
else
print_value (abfd, info->value);
/* POSIX.2 wants the symbol size printed here, when applicable;
BFD currently doesn't provide it, so we take the easy way out by
considering it to never be applicable. */
}
static void
print_symdef_entry (abfd)
bfd *abfd;
{
symindex idx = BFD_NO_MORE_SYMBOLS;
carsym *thesym;
boolean everprinted = false;
for (idx = bfd_get_next_mapent (abfd, idx, &thesym);
idx != BFD_NO_MORE_SYMBOLS;
idx = bfd_get_next_mapent (abfd, idx, &thesym))
{
bfd *elt;
if (!everprinted)
{
printf (_("\nArchive index:\n"));
everprinted = true;
}
elt = bfd_get_elt_at_index (abfd, idx);
if (elt == NULL)
bfd_fatal ("bfd_get_elt_at_index");
if (thesym->name != (char *) NULL)
{
print_symname ("%s", thesym->name, abfd);
printf (" in %s\n", bfd_get_filename (elt));
}
}
}
/* This function is used to get the relocs for a particular section.
It is called via bfd_map_over_sections. */
static void
get_relocs (abfd, sec, dataarg)
bfd *abfd;
asection *sec;
PTR dataarg;
{
struct get_relocs_info *data = (struct get_relocs_info *) dataarg;
*data->secs = sec;
if ((sec->flags & SEC_RELOC) == 0)
{
*data->relocs = NULL;
*data->relcount = 0;
}
else
{
long relsize;
relsize = bfd_get_reloc_upper_bound (abfd, sec);
if (relsize < 0)
bfd_fatal (bfd_get_filename (abfd));
*data->relocs = (arelent **) xmalloc (relsize);
*data->relcount = bfd_canonicalize_reloc (abfd, sec, *data->relocs,
data->syms);
if (*data->relcount < 0)
bfd_fatal (bfd_get_filename (abfd));
}
++data->secs;
++data->relocs;
++data->relcount;
}