* nm.c (main): Ignore '-X32_64' as an option.
[external/binutils.git] / binutils / nm.c
1 /* nm.c -- Describe symbol table of a rel file.
2    Copyright 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000
3    Free Software Foundation, Inc.
4
5    This file is part of GNU Binutils.
6
7    This program is free software; you can redistribute it and/or modify
8    it under the terms of the GNU General Public License as published by
9    the Free Software Foundation; either version 2 of the License, or
10    (at your option) any later version.
11
12    This program is distributed in the hope that it will be useful,
13    but WITHOUT ANY WARRANTY; without even the implied warranty of
14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15    GNU General Public License for more details.
16
17    You should have received a copy of the GNU General Public License
18    along with this program; if not, write to the Free Software
19    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
20    02111-1307, USA.  */
21
22 #include "bfd.h"
23 #include "progress.h"
24 #include "bucomm.h"
25 #include "getopt.h"
26 #include "aout/stab_gnu.h"
27 #include "aout/ranlib.h"
28 #include "demangle.h"
29 #include "libiberty.h"
30
31 /* When sorting by size, we use this structure to hold the size and a
32    pointer to the minisymbol.  */
33
34 struct size_sym
35 {
36   const PTR minisym;
37   bfd_vma size;
38 };
39
40 /* When fetching relocs, we use this structure to pass information to
41    get_relocs.  */
42
43 struct get_relocs_info
44 {
45   asection **secs;
46   arelent ***relocs;
47   long *relcount;
48   asymbol **syms;
49 };
50
51 static void
52 usage PARAMS ((FILE *, int));
53
54 static void
55 set_print_radix PARAMS ((char *));
56
57 static void
58 set_output_format PARAMS ((char *));
59
60 static void
61 display_archive PARAMS ((bfd *));
62
63 static boolean
64 display_file PARAMS ((char *filename));
65
66 static void
67 display_rel_file PARAMS ((bfd * file, bfd * archive));
68
69 static long
70 filter_symbols PARAMS ((bfd *, boolean, PTR, long, unsigned int));
71
72 static long
73 sort_symbols_by_size PARAMS ((bfd *, boolean, PTR, long, unsigned int,
74                               struct size_sym **));
75
76 static void
77 print_symbols PARAMS ((bfd *, boolean, PTR, long, unsigned int, bfd *));
78
79 static void
80 print_size_symbols PARAMS ((bfd *, boolean, struct size_sym *, long, bfd *));
81
82 static void
83 print_symname PARAMS ((const char *, const char *, bfd *));
84
85 static void
86 print_symbol PARAMS ((bfd *, asymbol *, bfd *));
87
88 static void
89 print_symdef_entry PARAMS ((bfd * abfd));
90
91 /* The sorting functions.  */
92
93 static int
94 numeric_forward PARAMS ((const PTR, const PTR));
95
96 static int
97 numeric_reverse PARAMS ((const PTR, const PTR));
98
99 static int
100 non_numeric_forward PARAMS ((const PTR, const PTR));
101
102 static int
103 non_numeric_reverse PARAMS ((const PTR, const PTR));
104
105 static int
106 size_forward1 PARAMS ((const PTR, const PTR));
107
108 static int
109 size_forward2 PARAMS ((const PTR, const PTR));
110
111 /* The output formatting functions.  */
112
113 static void
114 print_object_filename_bsd PARAMS ((char *filename));
115
116 static void
117 print_object_filename_sysv PARAMS ((char *filename));
118
119 static void
120 print_object_filename_posix PARAMS ((char *filename));
121
122
123 static void
124 print_archive_filename_bsd PARAMS ((char *filename));
125
126 static void
127 print_archive_filename_sysv PARAMS ((char *filename));
128
129 static void
130 print_archive_filename_posix PARAMS ((char *filename));
131
132
133 static void
134 print_archive_member_bsd PARAMS ((char *archive, CONST char *filename));
135
136 static void
137 print_archive_member_sysv PARAMS ((char *archive, CONST char *filename));
138
139 static void
140 print_archive_member_posix PARAMS ((char *archive, CONST char *filename));
141
142
143 static void
144 print_symbol_filename_bsd PARAMS ((bfd * archive_bfd, bfd * abfd));
145
146 static void
147 print_symbol_filename_sysv PARAMS ((bfd * archive_bfd, bfd * abfd));
148
149 static void
150 print_symbol_filename_posix PARAMS ((bfd * archive_bfd, bfd * abfd));
151
152
153 static void
154 print_value PARAMS ((bfd_vma));
155
156 static void
157 print_symbol_info_bsd PARAMS ((symbol_info * info, bfd * abfd));
158
159 static void
160 print_symbol_info_sysv PARAMS ((symbol_info * info, bfd * abfd));
161
162 static void
163 print_symbol_info_posix PARAMS ((symbol_info * info, bfd * abfd));
164
165 static void
166 get_relocs PARAMS ((bfd *, asection *, PTR));
167
168 /* Support for different output formats.  */
169 struct output_fns
170   {
171     /* Print the name of an object file given on the command line.  */
172     void (*print_object_filename) PARAMS ((char *filename));
173
174     /* Print the name of an archive file given on the command line.  */
175     void (*print_archive_filename) PARAMS ((char *filename));
176
177     /* Print the name of an archive member file.  */
178     void (*print_archive_member) PARAMS ((char *archive, CONST char *filename));
179
180     /* Print the name of the file (and archive, if there is one)
181        containing a symbol.  */
182     void (*print_symbol_filename) PARAMS ((bfd * archive_bfd, bfd * abfd));
183
184     /* Print a line of information about a symbol.  */
185     void (*print_symbol_info) PARAMS ((symbol_info * info, bfd * abfd));
186   };
187 static struct output_fns formats[] =
188 {
189   {print_object_filename_bsd,
190    print_archive_filename_bsd,
191    print_archive_member_bsd,
192    print_symbol_filename_bsd,
193    print_symbol_info_bsd},
194   {print_object_filename_sysv,
195    print_archive_filename_sysv,
196    print_archive_member_sysv,
197    print_symbol_filename_sysv,
198    print_symbol_info_sysv},
199   {print_object_filename_posix,
200    print_archive_filename_posix,
201    print_archive_member_posix,
202    print_symbol_filename_posix,
203    print_symbol_info_posix}
204 };
205
206 /* Indices in `formats'.  */
207 #define FORMAT_BSD 0
208 #define FORMAT_SYSV 1
209 #define FORMAT_POSIX 2
210 #define FORMAT_DEFAULT FORMAT_BSD
211
212 /* The output format to use.  */
213 static struct output_fns *format = &formats[FORMAT_DEFAULT];
214
215
216 /* Command options.  */
217
218 static int do_demangle = 0;     /* Pretty print C++ symbol names.  */
219 static int external_only = 0;   /* print external symbols only */
220 static int defined_only = 0;    /* Print defined symbols only */
221 static int no_sort = 0;         /* don't sort; print syms in order found */
222 static int print_debug_syms = 0;        /* print debugger-only symbols too */
223 static int print_armap = 0;     /* describe __.SYMDEF data in archive files.  */
224 static int reverse_sort = 0;    /* sort in downward(alpha or numeric) order */
225 static int sort_numerically = 0;        /* sort in numeric rather than alpha order */
226 static int sort_by_size = 0;    /* sort by size of symbol */
227 static int undefined_only = 0;  /* print undefined symbols only */
228 static int dynamic = 0;         /* print dynamic symbols.  */
229 static int show_version = 0;    /* show the version number */
230 static int show_stats = 0;      /* show statistics */
231 static int line_numbers = 0;    /* print line numbers for symbols */
232
233 /* When to print the names of files.  Not mutually exclusive in SYSV format.  */
234 static int filename_per_file = 0;       /* Once per file, on its own line.  */
235 static int filename_per_symbol = 0;     /* Once per symbol, at start of line.  */
236
237 /* Print formats for printing a symbol value.  */
238 #ifndef BFD64
239 static char value_format[] = "%08lx";
240 #else
241 #if BFD_HOST_64BIT_LONG
242 static char value_format[] = "%016lx";
243 #else
244 /* We don't use value_format for this case.  */
245 #endif
246 #endif
247 static int print_radix = 16;
248 /* Print formats for printing stab info.  */
249 static char other_format[] = "%02x";
250 static char desc_format[] = "%04x";
251
252 static char *target = NULL;
253
254 /* Used to cache the line numbers for a BFD.  */
255 static bfd *lineno_cache_bfd;
256 static bfd *lineno_cache_rel_bfd;
257
258 #define OPTION_TARGET 200
259
260 static struct option long_options[] =
261 {
262   {"debug-syms", no_argument, &print_debug_syms, 1},
263   {"demangle", optional_argument, 0, 'C'},
264   {"dynamic", no_argument, &dynamic, 1},
265   {"extern-only", no_argument, &external_only, 1},
266   {"format", required_argument, 0, 'f'},
267   {"help", no_argument, 0, 'h'},
268   {"line-numbers", no_argument, 0, 'l'},
269   {"no-cplus", no_argument, &do_demangle, 0},  /* Linux compatibility.  */
270   {"no-demangle", no_argument, &do_demangle, 0},
271   {"no-sort", no_argument, &no_sort, 1},
272   {"numeric-sort", no_argument, &sort_numerically, 1},
273   {"portability", no_argument, 0, 'P'},
274   {"print-armap", no_argument, &print_armap, 1},
275   {"print-file-name", no_argument, 0, 'o'},
276   {"radix", required_argument, 0, 't'},
277   {"reverse-sort", no_argument, &reverse_sort, 1},
278   {"size-sort", no_argument, &sort_by_size, 1},
279   {"stats", no_argument, &show_stats, 1},
280   {"target", required_argument, 0, OPTION_TARGET},
281   {"defined-only", no_argument, &defined_only, 1},
282   {"undefined-only", no_argument, &undefined_only, 1},
283   {"version", no_argument, &show_version, 1},
284   {0, no_argument, 0, 0}
285 };
286 \f
287 /* Some error-reporting functions */
288
289 static void
290 usage (stream, status)
291      FILE *stream;
292      int status;
293 {
294   fprintf (stream, _("Usage: %s [OPTION]... [FILE]...\n"), program_name);
295   fprintf (stream, _("List symbols from FILEs (a.out by default).\n"));
296   fprintf (stream, _("\n\
297   -a, --debug-syms       Display debugger-only symbols\n\
298   -A, --print-file-name  Print name of the input file before every symbol\n\
299   -B                     Same as --format=bsd\n\
300   -C, --demangle[=STYLE] Decode low-level symbol names into user-level names\n\
301                           The STYLE, if specified, can be `auto' (the default),\n\
302                           `gnu', 'lucid', 'arm', 'hp', 'edg' or 'gnu-new-abi'\n\
303       --no-demangle      Do not demangle low-level symbol names\n\
304   -D, --dynamic          Display dynamic symbols instead of normal symbols\n\
305       --defined-only     Display only defined symbols\n\
306   -e                     (ignored)\n\
307   -f, --format=FORMAT    Use the output format FORMAT.  FORMAT can be `bsd',\n\
308                            `sysv' or `posix'.  The default is `bsd'\n\
309   -g, --extern-only      Display only external symbols\n\
310   -h, --help             Display this information\n\
311   -l, --line-numbers     Use debugging information to find a filename and\n\
312                            line number for each symbol\n\
313   -n, --numeric-sort     Sort symbols numerically by address\n\
314   -o                     Same as -A\n\
315   -p, --no-sort          Do not sort the symbols\n\
316   -P, --portability      Same as --format=posix\n\
317   -r, --reverse-sort     Reverse the sense of the sort\n\
318   -s, --print-armap      Include index for symbols from archive members\n\
319       --size-sort        Sort symbols by size\n\
320   -t, --radix=RADIX      Use RADIX for printing symbol values\n\
321       --target=BFDNAME   Specify the target object format as BFDNAME\n\
322   -u, --undefined-only   Display only undefined symbols\n\
323   -V, --version          Display this program's version number\n\
324   -X 32_64               (ignored)\n\
325 \n"));
326   list_supported_targets (program_name, stream);
327   if (status == 0)
328     fprintf (stream, _("Report bugs to %s.\n"), REPORT_BUGS_TO);
329   exit (status);
330 }
331
332 /* Set the radix for the symbol value and size according to RADIX.  */
333
334 static void
335 set_print_radix (radix)
336      char *radix;
337 {
338   switch (*radix)
339     {
340     case 'x':
341       break;
342     case 'd':
343     case 'o':
344       if (*radix == 'd')
345         print_radix = 10;
346       else
347         print_radix = 8;
348 #ifndef BFD64
349       value_format[4] = *radix;
350 #else
351 #if BFD_HOST_64BIT_LONG
352       value_format[5] = *radix;
353 #else
354       /* This case requires special handling for octal and decimal
355          printing.  */
356 #endif
357 #endif
358       other_format[3] = desc_format[3] = *radix;
359       break;
360     default:
361       fatal (_("%s: invalid radix"), radix);
362     }
363 }
364
365 static void
366 set_output_format (f)
367      char *f;
368 {
369   int i;
370
371   switch (*f)
372     {
373     case 'b':
374     case 'B':
375       i = FORMAT_BSD;
376       break;
377     case 'p':
378     case 'P':
379       i = FORMAT_POSIX;
380       break;
381     case 's':
382     case 'S':
383       i = FORMAT_SYSV;
384       break;
385     default:
386       fatal (_("%s: invalid output format"), f);
387     }
388   format = &formats[i];
389 }
390 \f
391 int
392 main (argc, argv)
393      int argc;
394      char **argv;
395 {
396   int c;
397   int retval;
398
399 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
400   setlocale (LC_MESSAGES, "");
401 #endif
402   bindtextdomain (PACKAGE, LOCALEDIR);
403   textdomain (PACKAGE);
404
405   program_name = *argv;
406   xmalloc_set_program_name (program_name);
407
408   START_PROGRESS (program_name, 0);
409
410   bfd_init ();
411   set_default_bfd_target ();
412
413   while ((c = getopt_long (argc, argv, "aABCDef:glnopPrst:uvVX:",
414                            long_options, (int *) 0)) != EOF)
415     {
416       switch (c)
417         {
418         case 'a':
419           print_debug_syms = 1;
420           break;
421         case 'A':
422         case 'o':
423           filename_per_symbol = 1;
424           break;
425         case 'B':               /* For MIPS compatibility.  */
426           set_output_format ("bsd");
427           break;
428         case 'C':
429           do_demangle = 1;
430           if (optarg != NULL)
431             {
432               enum demangling_styles style;
433               
434               style = cplus_demangle_name_to_style (optarg);
435               if (style == unknown_demangling) 
436                 fatal (_("unknown demangling style `%s'"),
437                        optarg);
438               
439               cplus_demangle_set_style (style);
440            }
441           break;
442         case 'D':
443           dynamic = 1;
444           break;
445         case 'e':
446           /* Ignored for HP/UX compatibility.  */
447           break;
448         case 'f':
449           set_output_format (optarg);
450           break;
451         case 'g':
452           external_only = 1;
453           break;
454         case 'h':
455           usage (stdout, 0);
456         case 'l':
457           line_numbers = 1;
458           break;
459         case 'n':
460         case 'v':
461           sort_numerically = 1;
462           break;
463         case 'p':
464           no_sort = 1;
465           break;
466         case 'P':
467           set_output_format ("posix");
468           break;
469         case 'r':
470           reverse_sort = 1;
471           break;
472         case 's':
473           print_armap = 1;
474           break;
475         case 't':
476           set_print_radix (optarg);
477           break;
478         case 'u':
479           undefined_only = 1;
480           break;
481         case 'V':
482           show_version = 1;
483           break;
484         case 'X':
485           /* Ignored for (partial) AIX compatibility.  On AIX, the
486              argument has values 32, 64, or 32_64, and specfies that
487              only 32-bit, only 64-bit, or both kinds of objects should
488              be examined.  The default is 32.  So plain AIX nm on a
489              library archive with both kinds of objects will ignore
490              the 64-bit ones.  For GNU nm, the default is and always
491              has been -X 32_64, and other options are not supported.  */
492           if (strcmp (optarg, "32_64") != 0)
493             fatal (_("Only -X 32_64 is supported"));
494           break;
495
496         case OPTION_TARGET:     /* --target */
497           target = optarg;
498           break;
499
500         case 0:         /* A long option that just sets a flag.  */
501           break;
502
503         default:
504           usage (stderr, 1);
505         }
506     }
507
508   if (show_version)
509     print_version ("nm");
510
511   /* OK, all options now parsed.  If no filename specified, do a.out.  */
512   if (optind == argc)
513     return !display_file ("a.out");
514
515   retval = 0;
516
517   if (argc - optind > 1)
518     filename_per_file = 1;
519
520   /* We were given several filenames to do.  */
521   while (optind < argc)
522     {
523       PROGRESS (1);
524       if (!display_file (argv[optind++]))
525         retval++;
526     }
527
528   END_PROGRESS (program_name);
529
530 #ifdef HAVE_SBRK
531   if (show_stats)
532     {
533       char *lim = (char *) sbrk (0);
534
535       non_fatal (_("data size %ld"), (long) (lim - (char *) &environ));
536     }
537 #endif
538
539   exit (retval);
540   return retval;
541 }
542 \f
543 static void
544 display_archive (file)
545      bfd *file;
546 {
547   bfd *arfile = NULL;
548   bfd *last_arfile = NULL;
549   char **matching;
550
551   (*format->print_archive_filename) (bfd_get_filename (file));
552
553   if (print_armap)
554     print_symdef_entry (file);
555
556   for (;;)
557     {
558       PROGRESS (1);
559
560       arfile = bfd_openr_next_archived_file (file, arfile);
561
562       if (arfile == NULL)
563         {
564           if (bfd_get_error () != bfd_error_no_more_archived_files)
565             bfd_fatal (bfd_get_filename (file));
566           break;
567         }
568
569       if (bfd_check_format_matches (arfile, bfd_object, &matching))
570         {
571           (*format->print_archive_member) (bfd_get_filename (file),
572                                            bfd_get_filename (arfile));
573           display_rel_file (arfile, file);
574         }
575       else
576         {
577           bfd_nonfatal (bfd_get_filename (arfile));
578           if (bfd_get_error () == bfd_error_file_ambiguously_recognized)
579             {
580               list_matching_formats (matching);
581               free (matching);
582             }
583         }
584
585       if (last_arfile != NULL)
586         {
587           bfd_close (last_arfile);
588           lineno_cache_bfd = NULL;
589           lineno_cache_rel_bfd = NULL;
590         }
591       last_arfile = arfile;
592     }
593
594   if (last_arfile != NULL)
595     {
596       bfd_close (last_arfile);
597       lineno_cache_bfd = NULL;
598       lineno_cache_rel_bfd = NULL;
599     }
600 }
601
602 static boolean
603 display_file (filename)
604      char *filename;
605 {
606   boolean retval = true;
607   bfd *file;
608   char **matching;
609
610   file = bfd_openr (filename, target);
611   if (file == NULL)
612     {
613       bfd_nonfatal (filename);
614       return false;
615     }
616
617   if (bfd_check_format (file, bfd_archive))
618     {
619       display_archive (file);
620     }
621   else if (bfd_check_format_matches (file, bfd_object, &matching))
622     {
623       (*format->print_object_filename) (filename);
624       display_rel_file (file, NULL);
625     }
626   else
627     {
628       bfd_nonfatal (filename);
629       if (bfd_get_error () == bfd_error_file_ambiguously_recognized)
630         {
631           list_matching_formats (matching);
632           free (matching);
633         }
634       retval = false;
635     }
636
637   if (bfd_close (file) == false)
638     bfd_fatal (filename);
639
640   lineno_cache_bfd = NULL;
641   lineno_cache_rel_bfd = NULL;
642
643   return retval;
644 }
645 \f
646 /* These globals are used to pass information into the sorting
647    routines.  */
648 static bfd *sort_bfd;
649 static boolean sort_dynamic;
650 static asymbol *sort_x;
651 static asymbol *sort_y;
652
653 /* Symbol-sorting predicates */
654 #define valueof(x) ((x)->section->vma + (x)->value)
655
656 /* Numeric sorts.  Undefined symbols are always considered "less than"
657    defined symbols with zero values.  Common symbols are not treated
658    specially -- i.e., their sizes are used as their "values".  */
659
660 static int
661 numeric_forward (P_x, P_y)
662      const PTR P_x;
663      const PTR P_y;
664 {
665   asymbol *x, *y;
666   asection *xs, *ys;
667
668   x = bfd_minisymbol_to_symbol (sort_bfd, sort_dynamic, P_x, sort_x);
669   y =  bfd_minisymbol_to_symbol (sort_bfd, sort_dynamic, P_y, sort_y);
670   if (x == NULL || y == NULL)
671     bfd_fatal (bfd_get_filename (sort_bfd));
672
673   xs = bfd_get_section (x);
674   ys = bfd_get_section (y);
675
676   if (bfd_is_und_section (xs))
677     {
678       if (! bfd_is_und_section (ys))
679         return -1;
680     }
681   else if (bfd_is_und_section (ys))
682     return 1;
683   else if (valueof (x) != valueof (y))
684     return valueof (x) < valueof (y) ? -1 : 1;
685
686   return non_numeric_forward (P_x, P_y);
687 }
688
689 static int
690 numeric_reverse (x, y)
691      const PTR x;
692      const PTR y;
693 {
694   return - numeric_forward (x, y);
695 }
696
697 static int
698 non_numeric_forward (P_x, P_y)
699      const PTR P_x;
700      const PTR P_y;
701 {
702   asymbol *x, *y;
703   const char *xn, *yn;
704
705   x = bfd_minisymbol_to_symbol (sort_bfd, sort_dynamic, P_x, sort_x);
706   y = bfd_minisymbol_to_symbol (sort_bfd, sort_dynamic, P_y, sort_y);
707   if (x == NULL || y == NULL)
708     bfd_fatal (bfd_get_filename (sort_bfd));
709
710   xn = bfd_asymbol_name (x);
711   yn = bfd_asymbol_name (y);
712
713   return ((xn == NULL) ? ((yn == NULL) ? 0 : -1) :
714           ((yn == NULL) ? 1 : strcmp (xn, yn)));
715 }
716
717 static int
718 non_numeric_reverse (x, y)
719      const PTR x;
720      const PTR y;
721 {
722   return - non_numeric_forward (x, y);
723 }
724
725 static int (*(sorters[2][2])) PARAMS ((const PTR, const PTR)) =
726 {
727   { non_numeric_forward, non_numeric_reverse },
728   { numeric_forward, numeric_reverse }
729 };
730
731 /* This sort routine is used by sort_symbols_by_size.  It is similar
732    to numeric_forward, but when symbols have the same value it sorts
733    by section VMA.  This simplifies the sort_symbols_by_size code
734    which handles symbols at the end of sections.  Also, this routine
735    tries to sort file names before other symbols with the same value.
736    That will make the file name have a zero size, which will make
737    sort_symbols_by_size choose the non file name symbol, leading to
738    more meaningful output.  For similar reasons, this code sorts
739    gnu_compiled_* and gcc2_compiled before other symbols with the same
740    value.  */
741
742 static int
743 size_forward1 (P_x, P_y)
744      const PTR P_x;
745      const PTR P_y;
746 {
747   asymbol *x, *y;
748   asection *xs, *ys;
749   const char *xn, *yn;
750   size_t xnl, ynl;
751   int xf, yf;
752
753   x = bfd_minisymbol_to_symbol (sort_bfd, sort_dynamic, P_x, sort_x);
754   y = bfd_minisymbol_to_symbol (sort_bfd, sort_dynamic, P_y, sort_y);
755   if (x == NULL || y == NULL)
756     bfd_fatal (bfd_get_filename (sort_bfd));
757
758   xs = bfd_get_section (x);
759   ys = bfd_get_section (y);
760
761   if (bfd_is_und_section (xs))
762     abort ();
763   if (bfd_is_und_section (ys))
764     abort ();
765
766   if (valueof (x) != valueof (y))
767     return valueof (x) < valueof (y) ? -1 : 1;
768
769   if (xs->vma != ys->vma)
770     return xs->vma < ys->vma ? -1 : 1;
771
772   xn = bfd_asymbol_name (x);
773   yn = bfd_asymbol_name (y);
774   xnl = strlen (xn);
775   ynl = strlen (yn);
776
777   /* The symbols gnu_compiled and gcc2_compiled convey even less
778      information than the file name, so sort them out first.  */
779
780   xf = (strstr (xn, "gnu_compiled") != NULL
781         || strstr (xn, "gcc2_compiled") != NULL);
782   yf = (strstr (yn, "gnu_compiled") != NULL
783         || strstr (yn, "gcc2_compiled") != NULL);
784
785   if (xf && ! yf)
786     return -1;
787   if (! xf && yf)
788     return 1;
789
790   /* We use a heuristic for the file name.  It may not work on non
791      Unix systems, but it doesn't really matter; the only difference
792      is precisely which symbol names get printed.  */
793
794 #define file_symbol(s, sn, snl)                 \
795   (((s)->flags & BSF_FILE) != 0                 \
796    || ((sn)[(snl) - 2] == '.'                   \
797        && ((sn)[(snl) - 1] == 'o'               \
798            || (sn)[(snl) - 1] == 'a')))
799
800   xf = file_symbol (x, xn, xnl);
801   yf = file_symbol (y, yn, ynl);
802
803   if (xf && ! yf)
804     return -1;
805   if (! xf && yf)
806     return 1;
807
808   return non_numeric_forward (P_x, P_y);
809 }
810
811 /* This sort routine is used by sort_symbols_by_size.  It is sorting
812    an array of size_sym structures into size order.  */
813
814 static int
815 size_forward2 (P_x, P_y)
816      const PTR P_x;
817      const PTR P_y;
818 {
819   const struct size_sym *x = (const struct size_sym *) P_x;
820   const struct size_sym *y = (const struct size_sym *) P_y;
821
822   if (x->size < y->size)
823     return reverse_sort ? 1 : -1;
824   else if (x->size > y->size)
825     return reverse_sort ? -1 : 1;
826   else
827     return sorters[0][reverse_sort] (x->minisym, y->minisym);
828 }
829
830 /* Sort the symbols by size.  We guess the size by assuming that the
831    difference between the address of a symbol and the address of the
832    next higher symbol is the size.  FIXME: ELF actually stores a size
833    with each symbol.  We should use it.  */
834
835 static long
836 sort_symbols_by_size (abfd, dynamic, minisyms, symcount, size, symsizesp)
837      bfd *abfd;
838      boolean dynamic;
839      PTR minisyms;
840      long symcount;
841      unsigned int size;
842      struct size_sym **symsizesp;
843 {
844   struct size_sym *symsizes;
845   bfd_byte *from, *fromend;
846   asymbol *sym = NULL;
847   asymbol *store_sym, *store_next;
848
849   qsort (minisyms, symcount, size, size_forward1);
850
851   /* We are going to return a special set of symbols and sizes to
852      print.  */
853   symsizes = (struct size_sym *) xmalloc (symcount * sizeof (struct size_sym));
854   *symsizesp = symsizes;
855
856   /* Note that filter_symbols has already removed all absolute and
857      undefined symbols.  Here we remove all symbols whose size winds
858      up as zero.  */
859
860   from = (bfd_byte *) minisyms;
861   fromend = from + symcount * size;
862
863   store_sym = sort_x;
864   store_next = sort_y;
865
866   if (from < fromend)
867     {
868       sym = bfd_minisymbol_to_symbol (abfd, dynamic, (const PTR) from,
869                                       store_sym);
870       if (sym == NULL)
871         bfd_fatal (bfd_get_filename (abfd));
872     }
873
874   for (; from < fromend; from += size)
875     {
876       asymbol *next;
877       asection *sec;
878       bfd_vma sz;
879       asymbol *temp;
880
881       if (from + size < fromend)
882         {
883           next = bfd_minisymbol_to_symbol (abfd,
884                                            dynamic,
885                                            (const PTR) (from + size),
886                                            store_next);
887           if (next == NULL)
888             bfd_fatal (bfd_get_filename (abfd));
889         }
890       else
891         next = NULL;
892
893       sec = bfd_get_section (sym);
894
895       if (bfd_is_com_section (sec))
896         sz = sym->value;
897       else
898         {
899           if (from + size < fromend
900               && sec == bfd_get_section (next))
901             sz = valueof (next) - valueof (sym);
902           else
903             sz = (bfd_get_section_vma (abfd, sec)
904                   + bfd_section_size (abfd, sec)
905                   - valueof (sym));
906         }
907
908       if (sz != 0)
909         {
910           symsizes->minisym = (const PTR) from;
911           symsizes->size = sz;
912           ++symsizes;
913         }
914
915       sym = next;
916
917       temp = store_sym;
918       store_sym = store_next;
919       store_next = temp;
920     }
921
922   symcount = symsizes - *symsizesp;
923
924   /* We must now sort again by size.  */
925   qsort ((PTR) *symsizesp, symcount, sizeof (struct size_sym), size_forward2);
926
927   return symcount;
928 }
929 \f
930 /* If ARCHIVE_BFD is non-NULL, it is the archive containing ABFD.  */
931
932 static void
933 display_rel_file (abfd, archive_bfd)
934      bfd *abfd;
935      bfd *archive_bfd;
936 {
937   long symcount;
938   PTR minisyms;
939   unsigned int size;
940   struct size_sym *symsizes;
941
942   if (! dynamic)
943     {
944       if (!(bfd_get_file_flags (abfd) & HAS_SYMS))
945         {
946           non_fatal (_("%s: no symbols"), bfd_get_filename (abfd));
947           return;
948         }
949     }
950
951   symcount = bfd_read_minisymbols (abfd, dynamic, &minisyms, &size);
952   if (symcount < 0)
953     bfd_fatal (bfd_get_filename (abfd));
954
955   if (symcount == 0)
956     {
957       non_fatal (_("%s: no symbols"), bfd_get_filename (abfd));
958       return;
959     }
960
961   /* Discard the symbols we don't want to print.
962      It's OK to do this in place; we'll free the storage anyway
963      (after printing).  */
964
965   symcount = filter_symbols (abfd, dynamic, minisyms, symcount, size);
966
967   symsizes = NULL;
968   if (! no_sort)
969     {
970       sort_bfd = abfd;
971       sort_dynamic = dynamic;
972       sort_x = bfd_make_empty_symbol (abfd);
973       sort_y = bfd_make_empty_symbol (abfd);
974       if (sort_x == NULL || sort_y == NULL)
975         bfd_fatal (bfd_get_filename (abfd));
976
977       if (! sort_by_size)
978         qsort (minisyms, symcount, size,
979                sorters[sort_numerically][reverse_sort]);
980       else
981         symcount = sort_symbols_by_size (abfd, dynamic, minisyms, symcount,
982                                          size, &symsizes);
983     }
984
985   if (! sort_by_size)
986     print_symbols (abfd, dynamic, minisyms, symcount, size, archive_bfd);
987   else
988     print_size_symbols (abfd, dynamic, symsizes, symcount, archive_bfd);
989
990   free (minisyms);
991 }
992 \f
993 /* Choose which symbol entries to print;
994    compact them downward to get rid of the rest.
995    Return the number of symbols to be printed.  */
996
997 static long
998 filter_symbols (abfd, dynamic, minisyms, symcount, size)
999      bfd *abfd;
1000      boolean dynamic;
1001      PTR minisyms;
1002      long symcount;
1003      unsigned int size;
1004 {
1005   bfd_byte *from, *fromend, *to;
1006   asymbol *store;
1007
1008   store = bfd_make_empty_symbol (abfd);
1009   if (store == NULL)
1010     bfd_fatal (bfd_get_filename (abfd));
1011
1012   from = (bfd_byte *) minisyms;
1013   fromend = from + symcount * size;
1014   to = (bfd_byte *) minisyms;
1015
1016   for (; from < fromend; from += size)
1017     {
1018       int keep = 0;
1019       asymbol *sym;
1020
1021       PROGRESS (1);
1022       
1023       sym = bfd_minisymbol_to_symbol (abfd, dynamic, (const PTR) from, store);
1024       if (sym == NULL)
1025         bfd_fatal (bfd_get_filename (abfd));
1026
1027       if (undefined_only)
1028         keep = bfd_is_und_section (sym->section);
1029       else if (external_only)
1030         keep = ((sym->flags & BSF_GLOBAL) != 0
1031                 || (sym->flags & BSF_WEAK) != 0
1032                 || bfd_is_und_section (sym->section)
1033                 || bfd_is_com_section (sym->section));
1034       else
1035         keep = 1;
1036
1037       if (keep
1038           && ! print_debug_syms
1039           && (sym->flags & BSF_DEBUGGING) != 0)
1040         keep = 0;
1041
1042       if (keep
1043           && sort_by_size
1044           && (bfd_is_abs_section (sym->section)
1045               || bfd_is_und_section (sym->section)))
1046         keep = 0;
1047
1048       if (keep
1049           && defined_only)
1050         {
1051           if (bfd_is_und_section (sym->section))
1052             keep = 0;
1053         }
1054
1055       if (keep)
1056         {
1057           memcpy (to, from, size);
1058           to += size;
1059         }
1060     }
1061
1062   return (to - (bfd_byte *) minisyms) / size;
1063 }
1064 \f
1065 /* Print symbol name NAME, read from ABFD, with printf format FORMAT,
1066    demangling it if requested.  */
1067
1068 static void
1069 print_symname (format, name, abfd)
1070      const char *format;
1071      const char *name;
1072      bfd *abfd;
1073 {
1074   if (do_demangle && *name)
1075     {
1076       char *res;
1077
1078       /* In this mode, give a user-level view of the symbol name
1079          even if it's not mangled; strip off any leading
1080          underscore.  */
1081       if (bfd_get_symbol_leading_char (abfd) == name[0])
1082         name++;
1083
1084       res = cplus_demangle (name, DMGL_ANSI | DMGL_PARAMS);
1085       if (res)
1086         {
1087           printf (format, res);
1088           free (res);
1089           return;
1090         }
1091     }
1092
1093   printf (format, name);
1094 }
1095
1096 /* Print the symbols.  If ARCHIVE_BFD is non-NULL, it is the archive
1097    containing ABFD.  */
1098
1099 static void
1100 print_symbols (abfd, dynamic, minisyms, symcount, size, archive_bfd)
1101      bfd *abfd;
1102      boolean dynamic;
1103      PTR minisyms;
1104      long symcount;
1105      unsigned int size;
1106      bfd *archive_bfd;
1107 {
1108   asymbol *store;
1109   bfd_byte *from, *fromend;
1110
1111   store = bfd_make_empty_symbol (abfd);
1112   if (store == NULL)
1113     bfd_fatal (bfd_get_filename (abfd));
1114
1115   from = (bfd_byte *) minisyms;
1116   fromend = from + symcount * size;
1117   for (; from < fromend; from += size)
1118     {
1119       asymbol *sym;
1120
1121       sym = bfd_minisymbol_to_symbol (abfd, dynamic, from, store);
1122       if (sym == NULL)
1123         bfd_fatal (bfd_get_filename (abfd));
1124
1125       print_symbol (abfd, sym, archive_bfd);
1126     }
1127 }
1128
1129 /* Print the symbols when sorting by size.  */
1130
1131 static void 
1132 print_size_symbols (abfd, dynamic, symsizes, symcount, archive_bfd)
1133      bfd *abfd;
1134      boolean dynamic;
1135      struct size_sym *symsizes;
1136      long symcount;
1137      bfd *archive_bfd;
1138 {
1139   asymbol *store;
1140   struct size_sym *from, *fromend;
1141
1142   store = bfd_make_empty_symbol (abfd);
1143   if (store == NULL)
1144     bfd_fatal (bfd_get_filename (abfd));
1145
1146   from = symsizes;
1147   fromend = from + symcount;
1148   for (; from < fromend; from++)
1149     {
1150       asymbol *sym;
1151
1152       sym = bfd_minisymbol_to_symbol (abfd, dynamic, from->minisym, store);
1153       if (sym == NULL)
1154         bfd_fatal (bfd_get_filename (abfd));
1155
1156       /* Set the symbol value so that we actually display the symbol
1157          size.  */
1158       sym->value = from->size - bfd_section_vma (abfd, bfd_get_section (sym));
1159
1160       print_symbol (abfd, sym, archive_bfd);
1161     }
1162 }
1163
1164 /* Print a single symbol.  */
1165
1166 static void
1167 print_symbol (abfd, sym, archive_bfd)
1168      bfd *abfd;
1169      asymbol *sym;
1170      bfd *archive_bfd;
1171 {
1172   PROGRESS (1);
1173
1174   (*format->print_symbol_filename) (archive_bfd, abfd);
1175
1176   if (undefined_only)
1177     {
1178       if (bfd_is_und_section (bfd_get_section (sym)))
1179         print_symname ("%s", bfd_asymbol_name (sym), abfd);
1180     }
1181   else
1182     {
1183       symbol_info syminfo;
1184
1185       bfd_get_symbol_info (abfd, sym, &syminfo);
1186       (*format->print_symbol_info) (&syminfo, abfd);
1187     }
1188
1189   if (line_numbers)
1190     {
1191       static asymbol **syms;
1192       static long symcount;
1193       const char *filename, *functionname;
1194       unsigned int lineno;
1195
1196       /* We need to get the canonical symbols in order to call
1197          bfd_find_nearest_line.  This is inefficient, but, then, you
1198          don't have to use --line-numbers.  */
1199       if (abfd != lineno_cache_bfd && syms != NULL)
1200         {
1201           free (syms);
1202           syms = NULL;
1203         }
1204       if (syms == NULL)
1205         {
1206           long symsize;
1207
1208           symsize = bfd_get_symtab_upper_bound (abfd);
1209           if (symsize < 0)
1210             bfd_fatal (bfd_get_filename (abfd));
1211           syms = (asymbol **) xmalloc (symsize);
1212           symcount = bfd_canonicalize_symtab (abfd, syms);
1213           if (symcount < 0)
1214             bfd_fatal (bfd_get_filename (abfd));
1215           lineno_cache_bfd = abfd;
1216         }
1217
1218       if (bfd_is_und_section (bfd_get_section (sym)))
1219         {
1220           static asection **secs;
1221           static arelent ***relocs;
1222           static long *relcount;
1223           static unsigned int seccount;
1224           unsigned int i;
1225           const char *symname;
1226
1227           /* For an undefined symbol, we try to find a reloc for the
1228              symbol, and print the line number of the reloc.  */
1229
1230           if (abfd != lineno_cache_rel_bfd && relocs != NULL)
1231             {
1232               for (i = 0; i < seccount; i++)
1233                 if (relocs[i] != NULL)
1234                   free (relocs[i]);
1235               free (secs);
1236               free (relocs);
1237               free (relcount);
1238               secs = NULL;
1239               relocs = NULL;
1240               relcount = NULL;
1241             }
1242
1243           if (relocs == NULL)
1244             {
1245               struct get_relocs_info info;
1246
1247               seccount = bfd_count_sections (abfd);
1248
1249               secs = (asection **) xmalloc (seccount * sizeof *secs);
1250               relocs = (arelent ***) xmalloc (seccount * sizeof *relocs);
1251               relcount = (long *) xmalloc (seccount * sizeof *relcount);
1252
1253               info.secs = secs;
1254               info.relocs = relocs;
1255               info.relcount = relcount;
1256               info.syms = syms;
1257               bfd_map_over_sections (abfd, get_relocs, (PTR) &info);
1258               lineno_cache_rel_bfd = abfd;
1259             }
1260
1261           symname = bfd_asymbol_name (sym);
1262           for (i = 0; i < seccount; i++)
1263             {
1264               long j;
1265
1266               for (j = 0; j < relcount[i]; j++)
1267                 {
1268                   arelent *r;
1269
1270                   r = relocs[i][j];
1271                   if (r->sym_ptr_ptr != NULL
1272                       && (*r->sym_ptr_ptr)->section == sym->section
1273                       && (*r->sym_ptr_ptr)->value == sym->value
1274                       && strcmp (symname,
1275                                  bfd_asymbol_name (*r->sym_ptr_ptr)) == 0
1276                       && bfd_find_nearest_line (abfd, secs[i], syms,
1277                                                 r->address, &filename,
1278                                                 &functionname, &lineno))
1279                     {
1280                       /* We only print the first one we find.  */
1281                       printf ("\t%s:%u", filename, lineno);
1282                       i = seccount;
1283                       break;
1284                     }
1285                 }
1286             }
1287         }
1288       else if (bfd_get_section (sym)->owner == abfd)
1289         {
1290           if (bfd_find_nearest_line (abfd, bfd_get_section (sym), syms,
1291                                      sym->value, &filename, &functionname,
1292                                      &lineno)
1293               && filename != NULL
1294               && lineno != 0)
1295             {
1296               printf ("\t%s:%u", filename, lineno);
1297             }
1298         }
1299     }
1300
1301   putchar ('\n');
1302 }
1303 \f
1304 /* The following 3 groups of functions are called unconditionally,
1305    once at the start of processing each file of the appropriate type.
1306    They should check `filename_per_file' and `filename_per_symbol',
1307    as appropriate for their output format, to determine whether to
1308    print anything.  */
1309 \f
1310 /* Print the name of an object file given on the command line.  */
1311
1312 static void
1313 print_object_filename_bsd (filename)
1314      char *filename;
1315 {
1316   if (filename_per_file && !filename_per_symbol)
1317     printf ("\n%s:\n", filename);
1318 }
1319
1320 static void
1321 print_object_filename_sysv (filename)
1322      char *filename;
1323 {
1324   if (undefined_only)
1325     printf (_("\n\nUndefined symbols from %s:\n\n"), filename);
1326   else
1327     printf (_("\n\nSymbols from %s:\n\n"), filename);
1328   printf (_("\
1329 Name                  Value   Class        Type         Size   Line  Section\n\n"));
1330 }
1331
1332 static void
1333 print_object_filename_posix (filename)
1334      char *filename;
1335 {
1336   if (filename_per_file && !filename_per_symbol)
1337     printf ("%s:\n", filename);
1338 }
1339 \f
1340 /* Print the name of an archive file given on the command line.  */
1341
1342 static void
1343 print_archive_filename_bsd (filename)
1344      char *filename;
1345 {
1346   if (filename_per_file)
1347     printf ("\n%s:\n", filename);
1348 }
1349
1350 static void
1351 print_archive_filename_sysv (filename)
1352      char *filename ATTRIBUTE_UNUSED;
1353 {
1354 }
1355
1356 static void
1357 print_archive_filename_posix (filename)
1358      char *filename ATTRIBUTE_UNUSED;
1359 {
1360 }
1361 \f
1362 /* Print the name of an archive member file.  */
1363
1364 static void
1365 print_archive_member_bsd (archive, filename)
1366      char *archive ATTRIBUTE_UNUSED;
1367      CONST char *filename;
1368 {
1369   if (!filename_per_symbol)
1370     printf ("\n%s:\n", filename);
1371 }
1372
1373 static void
1374 print_archive_member_sysv (archive, filename)
1375      char *archive;
1376      CONST char *filename;
1377 {
1378   if (undefined_only)
1379     printf (_("\n\nUndefined symbols from %s[%s]:\n\n"), archive, filename);
1380   else
1381     printf (_("\n\nSymbols from %s[%s]:\n\n"), archive, filename);
1382   printf (_("\
1383 Name                  Value   Class        Type         Size   Line  Section\n\n"));
1384 }
1385
1386 static void
1387 print_archive_member_posix (archive, filename)
1388      char *archive;
1389      CONST char *filename;
1390 {
1391   if (!filename_per_symbol)
1392     printf ("%s[%s]:\n", archive, filename);
1393 }
1394 \f
1395 /* Print the name of the file (and archive, if there is one)
1396    containing a symbol.  */
1397
1398 static void
1399 print_symbol_filename_bsd (archive_bfd, abfd)
1400      bfd *archive_bfd, *abfd;
1401 {
1402   if (filename_per_symbol)
1403     {
1404       if (archive_bfd)
1405         printf ("%s:", bfd_get_filename (archive_bfd));
1406       printf ("%s:", bfd_get_filename (abfd));
1407     }
1408 }
1409
1410 static void
1411 print_symbol_filename_sysv (archive_bfd, abfd)
1412      bfd *archive_bfd, *abfd;
1413 {
1414   if (filename_per_symbol)
1415     {
1416       if (archive_bfd)
1417         printf ("%s:", bfd_get_filename (archive_bfd));
1418       printf ("%s:", bfd_get_filename (abfd));
1419     }
1420 }
1421
1422 static void
1423 print_symbol_filename_posix (archive_bfd, abfd)
1424      bfd *archive_bfd, *abfd;
1425 {
1426   if (filename_per_symbol)
1427     {
1428       if (archive_bfd)
1429         printf ("%s[%s]: ", bfd_get_filename (archive_bfd),
1430                 bfd_get_filename (abfd));
1431       else
1432         printf ("%s: ", bfd_get_filename (abfd));
1433     }
1434 }
1435 \f
1436 /* Print a symbol value.  */
1437
1438 static void
1439 print_value (val)
1440      bfd_vma val;
1441 {
1442 #if ! defined (BFD64) || BFD_HOST_64BIT_LONG
1443   printf (value_format, val);
1444 #else
1445   /* We have a 64 bit value to print, but the host is only 32 bit.  */
1446   if (print_radix == 16)
1447     fprintf_vma (stdout, val);
1448   else
1449     {
1450       char buf[30];
1451       char *s;
1452
1453       s = buf + sizeof buf;
1454       *--s = '\0';
1455       while (val > 0)
1456         {
1457           *--s = (val % print_radix) + '0';
1458           val /= print_radix;
1459         }
1460       while ((buf + sizeof buf - 1) - s < 16)
1461         *--s = '0';
1462       printf ("%s", s);
1463     }
1464 #endif
1465 }
1466
1467 /* Print a line of information about a symbol.  */
1468
1469 static void
1470 print_symbol_info_bsd (info, abfd)
1471      symbol_info *info;
1472      bfd *abfd;
1473 {
1474   if (bfd_is_undefined_symclass (info->type))
1475     {
1476       printf ("%*s",
1477 #ifdef BFD64
1478               16,
1479 #else
1480               8,
1481 #endif
1482               "");
1483     }
1484   else
1485     print_value (info->value);
1486   printf (" %c", info->type);
1487   if (info->type == '-')
1488     {
1489       /* A stab.  */
1490       printf (" ");
1491       printf (other_format, info->stab_other);
1492       printf (" ");
1493       printf (desc_format, info->stab_desc);
1494       printf (" %5s", info->stab_name);
1495     }
1496   print_symname (" %s", info->name, abfd);
1497 }
1498
1499 static void
1500 print_symbol_info_sysv (info, abfd)
1501      symbol_info *info;
1502      bfd *abfd;
1503 {
1504   print_symname ("%-20s|", info->name, abfd);   /* Name */
1505   if (bfd_is_undefined_symclass (info->type))
1506     printf ("        ");        /* Value */
1507   else
1508     print_value (info->value);
1509   printf ("|   %c  |", info->type);     /* Class */
1510   if (info->type == '-')
1511     {
1512       /* A stab.  */
1513       printf ("%18s|  ", info->stab_name);      /* (C) Type */
1514       printf (desc_format, info->stab_desc);    /* Size */
1515       printf ("|     |");       /* Line, Section */
1516     }
1517   else
1518     printf ("                  |      |     |");        /* Type, Size, Line, Section */
1519 }
1520
1521 static void
1522 print_symbol_info_posix (info, abfd)
1523      symbol_info *info;
1524      bfd *abfd;
1525 {
1526   print_symname ("%s ", info->name, abfd);
1527   printf ("%c ", info->type);
1528   if (bfd_is_undefined_symclass (info->type))
1529     printf ("        ");
1530   else
1531     print_value (info->value);
1532   /* POSIX.2 wants the symbol size printed here, when applicable;
1533      BFD currently doesn't provide it, so we take the easy way out by
1534      considering it to never be applicable.  */
1535 }
1536 \f
1537 static void
1538 print_symdef_entry (abfd)
1539      bfd *abfd;
1540 {
1541   symindex idx = BFD_NO_MORE_SYMBOLS;
1542   carsym *thesym;
1543   boolean everprinted = false;
1544
1545   for (idx = bfd_get_next_mapent (abfd, idx, &thesym);
1546        idx != BFD_NO_MORE_SYMBOLS;
1547        idx = bfd_get_next_mapent (abfd, idx, &thesym))
1548     {
1549       bfd *elt;
1550       if (!everprinted)
1551         {
1552           printf (_("\nArchive index:\n"));
1553           everprinted = true;
1554         }
1555       elt = bfd_get_elt_at_index (abfd, idx);
1556       if (elt == NULL)
1557         bfd_fatal ("bfd_get_elt_at_index");
1558       if (thesym->name != (char *) NULL)
1559         {
1560           print_symname ("%s", thesym->name, abfd);
1561           printf (" in %s\n", bfd_get_filename (elt));
1562         }
1563     }
1564 }
1565 \f
1566 /* This function is used to get the relocs for a particular section.
1567    It is called via bfd_map_over_sections.  */
1568
1569 static void
1570 get_relocs (abfd, sec, dataarg)
1571      bfd *abfd;
1572      asection *sec;
1573      PTR dataarg;
1574 {
1575   struct get_relocs_info *data = (struct get_relocs_info *) dataarg;
1576
1577   *data->secs = sec;
1578
1579   if ((sec->flags & SEC_RELOC) == 0)
1580     {
1581       *data->relocs = NULL;
1582       *data->relcount = 0;
1583     }
1584   else
1585     {
1586       long relsize;
1587
1588       relsize = bfd_get_reloc_upper_bound (abfd, sec);
1589       if (relsize < 0)
1590         bfd_fatal (bfd_get_filename (abfd));
1591
1592       *data->relocs = (arelent **) xmalloc (relsize);
1593       *data->relcount = bfd_canonicalize_reloc (abfd, sec, *data->relocs,
1594                                                 data->syms);
1595       if (*data->relcount < 0)
1596         bfd_fatal (bfd_get_filename (abfd));
1597     }
1598
1599   ++data->secs;
1600   ++data->relocs;
1601   ++data->relcount;
1602 }