contrib/binutils-2.15/binutils/size.c

   1 /* size.c -- report size of various sections of an executable file.
   2    Copyright 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001,
   3    2002, 2003 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 02111-1307, USA.  */
  20 \f
  21 /* Extensions/incompatibilities:
  22    o - BSD output has filenames at the end.
  23    o - BSD output can appear in different radicies.
  24    o - SysV output has less redundant whitespace.  Filename comes at end.
  25    o - SysV output doesn't show VMA which is always the same as the PMA.
  26    o - We also handle core files.
  27    o - We also handle archives.
  28    If you write shell scripts which manipulate this info then you may be
  29    out of luck; there's no --compatibility or --pedantic option.  */
  30
  31 #include "bfd.h"
  32 #include "bucomm.h"
  33 #include "libiberty.h"
  34 #include "getopt.h"
  35
  36 #ifndef BSD_DEFAULT
  37 #define BSD_DEFAULT 1
  38 #endif
  39
  40 /* Program options.  */
  41
  42 enum
  43   {
  44     decimal, octal, hex
  45   }
  46 radix = decimal;
  47
  48 int berkeley_format = BSD_DEFAULT;      /* 0 means use AT&T-style output.  */
  49 int show_version = 0;
  50 int show_help = 0;
  51 int show_totals = 0;
  52
  53 static bfd_size_type total_bsssize;
  54 static bfd_size_type total_datasize;
  55 static bfd_size_type total_textsize;
  56
  57 /* Program exit status.  */
  58 int return_code = 0;
  59
  60 static char *target = NULL;
  61
  62 /* Static declarations.  */
  63
  64 static void usage (FILE *, int);
  65 static void display_file (char *);
  66 static void display_bfd (bfd *);
  67 static void display_archive (bfd *);
  68 static int size_number (bfd_size_type);
  69 #if 0
  70 static void lprint_number (int, bfd_size_type);
  71 #endif
  72 static void rprint_number (int, bfd_size_type);
  73 static void print_berkeley_format (bfd *);
  74 static void sysv_internal_sizer (bfd *, asection *, void *);
  75 static void sysv_internal_printer (bfd *, asection *, void *);
  76 static void print_sysv_format (bfd *);
  77 static void print_sizes (bfd * file);
  78 static void berkeley_sum (bfd *, sec_ptr, void *);
  79 \f
  80 static void
  81 usage (FILE *stream, int status)
  82 {
  83   fprintf (stream, _("Usage: %s [option(s)] [file(s)]\n"), program_name);
  84   fprintf (stream, _(" Displays the sizes of sections inside binary files\n"));
  85   fprintf (stream, _(" If no input file(s) are specified, a.out is assumed\n"));
  86   fprintf (stream, _(" The options are:\n\
  87   -A|-B     --format={sysv|berkeley}  Select output style (default is %s)\n\
  88   -o|-d|-x  --radix={8|10|16}         Display numbers in octal, decimal or hex\n\
  89   -t        --totals                  Display the total sizes (Berkeley only)\n\
  90             --target=<bfdname>        Set the binary file format\n\
  91   -h        --help                    Display this information\n\
  92   -v        --version                 Display the program's version\n\
  93 \n"),
  94 #if BSD_DEFAULT
  95   "berkeley"
  96 #else
  97   "sysv"
  98 #endif
  99 );
 100   list_supported_targets (program_name, stream);
 101   if (status == 0)
 102     fprintf (stream, _("Report bugs to %s\n"), REPORT_BUGS_TO);
 103   exit (status);
 104 }
 105
 106 struct option long_options[] =
 107 {
 108   {"format", required_argument, 0, 200},
 109   {"radix", required_argument, 0, 201},
 110   {"target", required_argument, 0, 202},
 111   {"totals", no_argument, &show_totals, 1},
 112   {"version", no_argument, &show_version, 1},
 113   {"help", no_argument, &show_help, 1},
 114   {0, no_argument, 0, 0}
 115 };
 116
 117 int main (int, char **);
 118
 119 int
 120 main (int argc, char **argv)
 121 {
 122   int temp;
 123   int c;
 124
 125 #if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
 126   setlocale (LC_MESSAGES, "");
 127 #endif
 128 #if defined (HAVE_SETLOCALE)
 129   setlocale (LC_CTYPE, "");
 130 #endif
 131   bindtextdomain (PACKAGE, LOCALEDIR);
 132   textdomain (PACKAGE);
 133
 134   program_name = *argv;
 135   xmalloc_set_program_name (program_name);
 136
 137   bfd_init ();
 138   set_default_bfd_target ();
 139
 140   while ((c = getopt_long (argc, argv, "ABHhVvdfotx", long_options,
 141                            (int *) 0)) != EOF)
 142     switch (c)
 143       {
 144       case 200:         /* --format */
 145         switch (*optarg)
 146           {
 147           case 'B':
 148           case 'b':
 149             berkeley_format = 1;
 150             break;
 151           case 'S':
 152           case 's':
 153             berkeley_format = 0;
 154             break;
 155           default:
 156             non_fatal (_("invalid argument to --format: %s"), optarg);
 157             usage (stderr, 1);
 158           }
 159         break;
 160
 161       case 202:         /* --target */
 162         target = optarg;
 163         break;
 164
 165       case 201:         /* --radix */
 166 #ifdef ANSI_LIBRARIES
 167         temp = strtol (optarg, NULL, 10);
 168 #else
 169         temp = atol (optarg);
 170 #endif
 171         switch (temp)
 172           {
 173           case 10:
 174             radix = decimal;
 175             break;
 176           case 8:
 177             radix = octal;
 178             break;
 179           case 16:
 180             radix = hex;
 181             break;
 182           default:
 183             non_fatal (_("Invalid radix: %s\n"), optarg);
 184             usage (stderr, 1);
 185           }
 186         break;
 187
 188       case 'A':
 189         berkeley_format = 0;
 190         break;
 191       case 'B':
 192         berkeley_format = 1;
 193         break;
 194       case 'v':
 195       case 'V':
 196         show_version = 1;
 197         break;
 198       case 'd':
 199         radix = decimal;
 200         break;
 201       case 'x':
 202         radix = hex;
 203         break;
 204       case 'o':
 205         radix = octal;
 206         break;
 207       case 't':
 208         show_totals = 1;
 209         break;
 210       case 'f': /* FIXME : For sysv68, `-f' means `full format', i.e.
 211                    `[fname:] M(.text) + N(.data) + O(.bss) + P(.comment) = Q'
 212                    where `fname: ' appears only if there are >= 2 input files,
 213                    and M, N, O, P, Q are expressed in decimal by default,
 214                    hexa or octal if requested by `-x' or `-o'.
 215                    Just to make things interesting, Solaris also accepts -f,
 216                    which prints out the size of each allocatable section, the
 217                    name of the section, and the total of the section sizes.  */
 218                 /* For the moment, accept `-f' silently, and ignore it.  */
 219         break;
 220       case 0:
 221         break;
 222       case 'h':
 223       case 'H':
 224       case '?':
 225         usage (stderr, 1);
 226       }
 227
 228   if (show_version)
 229     print_version ("size");
 230   if (show_help)
 231     usage (stdout, 0);
 232
 233   if (optind == argc)
 234     display_file ("a.out");
 235   else
 236     for (; optind < argc;)
 237       display_file (argv[optind++]);
 238
 239   if (show_totals && berkeley_format)
 240     {
 241       bfd_size_type total = total_textsize + total_datasize + total_bsssize;
 242
 243       rprint_number (7, total_textsize);
 244       putchar('\t');
 245       rprint_number (7, total_datasize);
 246       putchar('\t');
 247       rprint_number (7, total_bsssize);
 248       printf (((radix == octal) ? "\t%7lo\t%7lx\t" : "\t%7lu\t%7lx\t"),
 249               (unsigned long) total, (unsigned long) total);
 250       fputs ("(TOTALS)\n", stdout);
 251     }
 252
 253   return return_code;
 254 }
 255 \f
 256 /* Display stats on file or archive member ABFD.  */
 257
 258 static void
 259 display_bfd (bfd *abfd)
 260 {
 261   char **matching;
 262
 263   if (bfd_check_format (abfd, bfd_archive))
 264     /* An archive within an archive.  */
 265     return;
 266
 267   if (bfd_check_format_matches (abfd, bfd_object, &matching))
 268     {
 269       print_sizes (abfd);
 270       printf ("\n");
 271       return;
 272     }
 273
 274   if (bfd_get_error () == bfd_error_file_ambiguously_recognized)
 275     {
 276       bfd_nonfatal (bfd_get_filename (abfd));
 277       list_matching_formats (matching);
 278       free (matching);
 279       return_code = 3;
 280       return;
 281     }
 282
 283   if (bfd_check_format_matches (abfd, bfd_core, &matching))
 284     {
 285       const char *core_cmd;
 286
 287       print_sizes (abfd);
 288       fputs (" (core file", stdout);
 289
 290       core_cmd = bfd_core_file_failing_command (abfd);
 291       if (core_cmd)
 292         printf (" invoked as %s", core_cmd);
 293
 294       puts (")\n");
 295       return;
 296     }
 297
 298   bfd_nonfatal (bfd_get_filename (abfd));
 299
 300   if (bfd_get_error () == bfd_error_file_ambiguously_recognized)
 301     {
 302       list_matching_formats (matching);
 303       free (matching);
 304     }
 305
 306   return_code = 3;
 307 }
 308
 309 static void
 310 display_archive (bfd *file)
 311 {
 312   bfd *arfile = (bfd *) NULL;
 313   bfd *last_arfile = (bfd *) NULL;
 314
 315   for (;;)
 316     {
 317       bfd_set_error (bfd_error_no_error);
 318
 319       arfile = bfd_openr_next_archived_file (file, arfile);
 320       if (arfile == NULL)
 321         {
 322           if (bfd_get_error () != bfd_error_no_more_archived_files)
 323             {
 324               bfd_nonfatal (bfd_get_filename (file));
 325               return_code = 2;
 326             }
 327           break;
 328         }
 329
 330       display_bfd (arfile);
 331
 332       if (last_arfile != NULL)
 333         bfd_close (last_arfile);
 334       last_arfile = arfile;
 335     }
 336
 337   if (last_arfile != NULL)
 338     bfd_close (last_arfile);
 339 }
 340
 341 static void
 342 display_file (char *filename)
 343 {
 344   bfd *file;
 345
 346   if (get_file_size (filename) < 1)
 347     return;
 348
 349   file = bfd_openr (filename, target);
 350   if (file == NULL)
 351     {
 352       bfd_nonfatal (filename);
 353       return_code = 1;
 354       return;
 355     }
 356
 357   if (bfd_check_format (file, bfd_archive))
 358     display_archive (file);
 359   else
 360     display_bfd (file);
 361
 362   if (!bfd_close (file))
 363     {
 364       bfd_nonfatal (filename);
 365       return_code = 1;
 366       return;
 367     }
 368 }
 369 \f
 370 /* This is what lexical functions are for.  */
 371
 372 static int
 373 size_number (bfd_size_type num)
 374 {
 375   char buffer[40];
 376
 377   sprintf (buffer,
 378            (radix == decimal ? "%lu" :
 379            ((radix == octal) ? "0%lo" : "0x%lx")),
 380            (unsigned long) num);
 381
 382   return strlen (buffer);
 383 }
 384
 385 #if 0
 386
 387 /* This is not used.  */
 388
 389 static void
 390 lprint_number (int width, bfd_size_type num)
 391 {
 392   char buffer[40];
 393
 394   sprintf (buffer,
 395            (radix == decimal ? "%lu" :
 396            ((radix == octal) ? "0%lo" : "0x%lx")),
 397            (unsigned long) num);
 398
 399   printf ("%-*s", width, buffer);
 400 }
 401
 402 #endif
 403
 404 static void
 405 rprint_number (int width, bfd_size_type num)
 406 {
 407   char buffer[40];
 408
 409   sprintf (buffer,
 410            (radix == decimal ? "%lu" :
 411            ((radix == octal) ? "0%lo" : "0x%lx")),
 412            (unsigned long) num);
 413
 414   printf ("%*s", width, buffer);
 415 }
 416
 417 static bfd_size_type bsssize;
 418 static bfd_size_type datasize;
 419 static bfd_size_type textsize;
 420
 421 static void
 422 berkeley_sum (bfd *abfd ATTRIBUTE_UNUSED, sec_ptr sec,
 423               void *ignore ATTRIBUTE_UNUSED)
 424 {
 425   flagword flags;
 426   bfd_size_type size;
 427
 428   flags = bfd_get_section_flags (abfd, sec);
 429   if ((flags & SEC_ALLOC) == 0)
 430     return;
 431
 432   size = bfd_get_section_size_before_reloc (sec);
 433   if ((flags & SEC_CODE) != 0 || (flags & SEC_READONLY) != 0)
 434     textsize += size;
 435   else if ((flags & SEC_HAS_CONTENTS) != 0)
 436     datasize += size;
 437   else
 438     bsssize += size;
 439 }
 440
 441 static void
 442 print_berkeley_format (bfd *abfd)
 443 {
 444   static int files_seen = 0;
 445   bfd_size_type total;
 446
 447   bsssize = 0;
 448   datasize = 0;
 449   textsize = 0;
 450
 451   bfd_map_over_sections (abfd, berkeley_sum, NULL);
 452
 453   if (files_seen++ == 0)
 454 #if 0
 455     /* Intel doesn't like bss/stk because they don't have core files.  */
 456     puts ((radix == octal) ? "   text\t   data\tbss/stk\t    oct\t    hex\tfilename" :
 457           "   text\t   data\tbss/stk\t    dec\t    hex\tfilename");
 458 #else
 459     puts ((radix == octal) ? "   text\t   data\t    bss\t    oct\t    hex\tfilename" :
 460           "   text\t   data\t    bss\t    dec\t    hex\tfilename");
 461 #endif
 462
 463   total = textsize + datasize + bsssize;
 464
 465   if (show_totals)
 466     {
 467       total_textsize += textsize;
 468       total_datasize += datasize;
 469       total_bsssize  += bsssize;
 470     }
 471
 472   rprint_number (7, textsize);
 473   putchar ('\t');
 474   rprint_number (7, datasize);
 475   putchar ('\t');
 476   rprint_number (7, bsssize);
 477   printf (((radix == octal) ? "\t%7lo\t%7lx\t" : "\t%7lu\t%7lx\t"),
 478           (unsigned long) total, (unsigned long) total);
 479
 480   fputs (bfd_get_filename (abfd), stdout);
 481
 482   if (bfd_my_archive (abfd))
 483     printf (" (ex %s)", bfd_get_filename (bfd_my_archive (abfd)));
 484 }
 485
 486 /* I REALLY miss lexical functions! */
 487 bfd_size_type svi_total = 0;
 488 bfd_vma svi_maxvma = 0;
 489 int svi_namelen = 0;
 490 int svi_vmalen = 0;
 491 int svi_sizelen = 0;
 492
 493 static void
 494 sysv_internal_sizer (bfd *file ATTRIBUTE_UNUSED, sec_ptr sec,
 495                      void *ignore ATTRIBUTE_UNUSED)
 496 {
 497   bfd_size_type size = bfd_section_size (file, sec);
 498
 499   if (   ! bfd_is_abs_section (sec)
 500       && ! bfd_is_com_section (sec)
 501       && ! bfd_is_und_section (sec))
 502     {
 503       int namelen = strlen (bfd_section_name (file, sec));
 504
 505       if (namelen > svi_namelen)
 506         svi_namelen = namelen;
 507
 508       svi_total += size;
 509
 510       if (bfd_section_vma (file, sec) > svi_maxvma)
 511         svi_maxvma = bfd_section_vma (file, sec);
 512     }
 513 }
 514
 515 static void
 516 sysv_internal_printer (bfd *file ATTRIBUTE_UNUSED, sec_ptr sec,
 517                        void *ignore ATTRIBUTE_UNUSED)
 518 {
 519   bfd_size_type size = bfd_section_size (file, sec);
 520
 521   if (   ! bfd_is_abs_section (sec)
 522       && ! bfd_is_com_section (sec)
 523       && ! bfd_is_und_section (sec))
 524     {
 525       svi_total += size;
 526
 527       printf ("%-*s   ", svi_namelen, bfd_section_name (file, sec));
 528       rprint_number (svi_sizelen, size);
 529       printf ("   ");
 530       rprint_number (svi_vmalen, bfd_section_vma (file, sec));
 531       printf ("\n");
 532     }
 533 }
 534
 535 static void
 536 print_sysv_format (bfd *file)
 537 {
 538   /* Size all of the columns.  */
 539   svi_total = 0;
 540   svi_maxvma = 0;
 541   svi_namelen = 0;
 542   bfd_map_over_sections (file, sysv_internal_sizer, NULL);
 543   svi_vmalen = size_number ((bfd_size_type)svi_maxvma);
 544
 545   if ((size_t) svi_vmalen < sizeof ("addr") - 1)
 546     svi_vmalen = sizeof ("addr")-1;
 547
 548   svi_sizelen = size_number (svi_total);
 549   if ((size_t) svi_sizelen < sizeof ("size") - 1)
 550     svi_sizelen = sizeof ("size")-1;
 551
 552   svi_total = 0;
 553   printf ("%s  ", bfd_get_filename (file));
 554
 555   if (bfd_my_archive (file))
 556     printf (" (ex %s)", bfd_get_filename (bfd_my_archive (file)));
 557
 558   printf (":\n%-*s   %*s   %*s\n", svi_namelen, "section",
 559           svi_sizelen, "size", svi_vmalen, "addr");
 560
 561   bfd_map_over_sections (file, sysv_internal_printer, NULL);
 562
 563   printf ("%-*s   ", svi_namelen, "Total");
 564   rprint_number (svi_sizelen, svi_total);
 565   printf ("\n\n");
 566 }
 567
 568 static void
 569 print_sizes (bfd *file)
 570 {
 571   if (berkeley_format)
 572     print_berkeley_format (file);
 573   else
 574     print_sysv_format (file);
 575 }