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