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