Back to index

cell-binutils  2.17cvs20070401
Defines | Functions | Variables
gprof.c File Reference
#include "libiberty.h"
#include "gprof.h"
#include "bfdver.h"
#include "search_list.h"
#include "source.h"
#include "symtab.h"
#include "basic_blocks.h"
#include "call_graph.h"
#include "cg_arcs.h"
#include "cg_print.h"
#include "corefile.h"
#include "gmon_io.h"
#include "hertz.h"
#include "hist.h"
#include "sym_ids.h"
#include "demangle.h"
#include "getopt.h"

Go to the source code of this file.

Defines

#define OPTION_DEMANGLE   (150)
#define OPTION_NO_DEMANGLE   (OPTION_DEMANGLE + 1)

Functions

static void usage (FILE *, int)
int main (int argc, char **argv)
void done (int status)

Variables

static struct option []

Define Documentation

#define OPTION_DEMANGLE   (150)

Definition at line 95 of file gprof.c.

#define OPTION_NO_DEMANGLE   (OPTION_DEMANGLE + 1)

Definition at line 96 of file gprof.c.


Function Documentation

void done ( int  status)

Definition at line 632 of file gprof.c.

{
  exit (status);
}
int main ( int  argc,
char **  argv 
)

Definition at line 181 of file gprof.c.

{
  char **sp, *str;
  Sym **cg = 0;
  int ch, user_specified = 0;

#if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
  setlocale (LC_MESSAGES, "");
#endif
#if defined (HAVE_SETLOCALE)
  setlocale (LC_CTYPE, "");
#endif
#ifdef ENABLE_NLS
  bindtextdomain (PACKAGE, LOCALEDIR);
  textdomain (PACKAGE);
#endif

  whoami = argv[0];
  xmalloc_set_program_name (whoami);

  expandargv (&argc, &argv);

  while ((ch = getopt_long (argc, argv,
       "aA::bBcC::d::De:E:f:F:hiI:J::k:lLm:n:N:O:p::P::q::Q::rR:st:Tvw:xyzZ::",
                         long_options, 0))
        != EOF)
    {
      switch (ch)
       {
       case 'a':
         ignore_static_funcs = TRUE;
         break;
       case 'A':
         if (optarg)
           {
             sym_id_add (optarg, INCL_ANNO);
           }
         output_style |= STYLE_ANNOTATED_SOURCE;
         user_specified |= STYLE_ANNOTATED_SOURCE;
         break;
       case 'b':
         print_descriptions = FALSE;
         break;
       case 'B':
         output_style |= STYLE_CALL_GRAPH;
         user_specified |= STYLE_CALL_GRAPH;
         break;
       case 'c':
         ignore_direct_calls = TRUE;
         break;
       case 'C':
         if (optarg)
           {
             sym_id_add (optarg, INCL_EXEC);
           }
         output_style |= STYLE_EXEC_COUNTS;
         user_specified |= STYLE_EXEC_COUNTS;
         break;
       case 'd':
         if (optarg)
           {
             debug_level |= atoi (optarg);
             debug_level |= ANYDEBUG;
           }
         else
           {
             debug_level = ~0;
           }
         DBG (ANYDEBUG, printf ("[main] debug-level=0x%x\n", debug_level));
#ifndef DEBUG
         printf (_("%s: debugging not supported; -d ignored\n"), whoami);
#endif /* DEBUG */
         break;
       case 'D':
         ignore_non_functions = TRUE;
         break;
       case 'E':
         sym_id_add (optarg, EXCL_TIME);
       case 'e':
         sym_id_add (optarg, EXCL_GRAPH);
         break;
       case 'F':
         sym_id_add (optarg, INCL_TIME);
       case 'f':
         sym_id_add (optarg, INCL_GRAPH);
         break;
       case 'g':
         sym_id_add (optarg, EXCL_FLAT);
         break;
       case 'G':
         sym_id_add (optarg, INCL_FLAT);
         break;
       case 'h':
         usage (stdout, 0);
       case 'i':
         output_style |= STYLE_GMON_INFO;
         user_specified |= STYLE_GMON_INFO;
         break;
       case 'I':
         search_list_append (&src_search_list, optarg);
         break;
       case 'J':
         if (optarg)
           {
             sym_id_add (optarg, EXCL_ANNO);
             output_style |= STYLE_ANNOTATED_SOURCE;
           }
         else
           {
             output_style &= ~STYLE_ANNOTATED_SOURCE;
           }
         user_specified |= STYLE_ANNOTATED_SOURCE;
         break;
       case 'k':
         sym_id_add (optarg, EXCL_ARCS);
         break;
       case 'l':
         line_granularity = TRUE;
         break;
       case 'L':
         print_path = TRUE;
         break;
       case 'm':
         bb_min_calls = (unsigned long) strtoul (optarg, (char **) NULL, 10);
         break;
       case 'n':
         sym_id_add (optarg, INCL_TIME);
         break;
       case 'N':
         sym_id_add (optarg, EXCL_TIME);
         break;
       case 'O':
         switch (optarg[0])
           {
           case 'a':
             file_format = FF_AUTO;
             break;
           case 'm':
             file_format = FF_MAGIC;
             break;
           case 'b':
             file_format = FF_BSD;
             break;
           case '4':
             file_format = FF_BSD44;
             break;
           case 'p':
             file_format = FF_PROF;
             break;
           default:
             fprintf (stderr, _("%s: unknown file format %s\n"),
                     optarg, whoami);
             done (1);
           }
         break;
       case 'p':
         if (optarg)
           {
             sym_id_add (optarg, INCL_FLAT);
           }
         output_style |= STYLE_FLAT_PROFILE;
         user_specified |= STYLE_FLAT_PROFILE;
         break;
       case 'P':
         if (optarg)
           {
             sym_id_add (optarg, EXCL_FLAT);
             output_style |= STYLE_FLAT_PROFILE;
           }
         else
           {
             output_style &= ~STYLE_FLAT_PROFILE;
           }
         user_specified |= STYLE_FLAT_PROFILE;
         break;
       case 'q':
         if (optarg)
           {
             if (strchr (optarg, '/'))
              {
                sym_id_add (optarg, INCL_ARCS);
              }
             else
              {
                sym_id_add (optarg, INCL_GRAPH);
              }
           }
         output_style |= STYLE_CALL_GRAPH;
         user_specified |= STYLE_CALL_GRAPH;
         break;
       case 'r':
         output_style |= STYLE_FUNCTION_ORDER;
         user_specified |= STYLE_FUNCTION_ORDER;
         break;
       case 'R':
         output_style |= STYLE_FILE_ORDER;
         user_specified |= STYLE_FILE_ORDER;
         function_mapping_file = optarg;
         break;
       case 'Q':
         if (optarg)
           {
             if (strchr (optarg, '/'))
              {
                sym_id_add (optarg, EXCL_ARCS);
              }
             else
              {
                sym_id_add (optarg, EXCL_GRAPH);
              }
             output_style |= STYLE_CALL_GRAPH;
           }
         else
           {
             output_style &= ~STYLE_CALL_GRAPH;
           }
         user_specified |= STYLE_CALL_GRAPH;
         break;
       case 's':
         output_style |= STYLE_SUMMARY_FILE;
         user_specified |= STYLE_SUMMARY_FILE;
         break;
       case 't':
         bb_table_length = atoi (optarg);
         if (bb_table_length < 0)
           {
             bb_table_length = 0;
           }
         break;
       case 'T':
         bsd_style_output = TRUE;
         break;
       case 'v':
         /* This output is intended to follow the GNU standards document.  */
         printf (_("GNU gprof %s\n"), BFD_VERSION_STRING);
         printf (_("Based on BSD gprof, copyright 1983 Regents of the University of California.\n"));
         printf (_("\
This program is free software.  This program has absolutely no warranty.\n"));
         done (0);
       case 'w':
         output_width = atoi (optarg);
         if (output_width < 1)
           {
             output_width = 1;
           }
         break;
       case 'x':
         bb_annotate_all_lines = TRUE;
         break;
       case 'y':
         create_annotation_files = TRUE;
         break;
       case 'z':
         ignore_zeros = FALSE;
         break;
       case 'Z':
         if (optarg)
           {
             sym_id_add (optarg, EXCL_EXEC);
             output_style |= STYLE_EXEC_COUNTS;
           }
         else
           {
             output_style &= ~STYLE_EXEC_COUNTS;
           }
         user_specified |= STYLE_ANNOTATED_SOURCE;
         break;
       case OPTION_DEMANGLE:
         demangle = TRUE;
         if (optarg != NULL)
           {
             enum demangling_styles style;

             style = cplus_demangle_name_to_style (optarg);
             if (style == unknown_demangling)
              {
                fprintf (stderr,
                        _("%s: unknown demangling style `%s'\n"),
                        whoami, optarg);
                xexit (1);
              }

             cplus_demangle_set_style (style);
          }
         break;
       case OPTION_NO_DEMANGLE:
         demangle = FALSE;
         break;
       default:
         usage (stderr, 1);
       }
    }

  /* Don't allow both ordering options, they modify the arc data in-place.  */
  if ((user_specified & STYLE_FUNCTION_ORDER)
      && (user_specified & STYLE_FILE_ORDER))
    {
      fprintf (stderr,_("\
%s: Only one of --function-ordering and --file-ordering may be specified.\n"),
              whoami);
      done (1);
    }

  /* --sum implies --line, otherwise we'd lose basic block counts in
       gmon.sum */
  if (output_style & STYLE_SUMMARY_FILE)
    line_granularity = 1;

  /* append value of GPROF_PATH to source search list if set: */
  str = (char *) getenv ("GPROF_PATH");
  if (str)
    search_list_append (&src_search_list, str);

  if (optind < argc)
    a_out_name = argv[optind++];

  if (optind < argc)
    gmon_name = argv[optind++];

  /* Turn off default functions.  */
  for (sp = &default_excluded_list[0]; *sp; sp++)
    {
      sym_id_add (*sp, EXCL_TIME);
      sym_id_add (*sp, EXCL_GRAPH);
      sym_id_add (*sp, EXCL_FLAT);
    }

  /* Read symbol table from core file.  */
  core_init (a_out_name);

  /* If we should ignore direct function calls, we need to load to
     core's text-space.  */
  if (ignore_direct_calls)
    core_get_text_space (core_bfd);

  /* Create symbols from core image.  */
  if (line_granularity)
    core_create_line_syms ();
  else
    core_create_function_syms ();

  /* Translate sym specs into syms.  */
  sym_id_parse ();

  if (file_format == FF_PROF)
    {
      fprintf (stderr,
              _("%s: sorry, file format `prof' is not yet supported\n"),
              whoami);
      done (1);
    }
  else
    {
      /* Get information about gmon.out file(s).  */
      do
       {
         gmon_out_read (gmon_name);
         if (optind < argc)
           gmon_name = argv[optind];
       }
      while (optind++ < argc);
    }

  /* If user did not specify output style, try to guess something
     reasonable.  */
  if (output_style == 0)
    {
      if (gmon_input & (INPUT_HISTOGRAM | INPUT_CALL_GRAPH))
       {
         if (gmon_input & INPUT_HISTOGRAM)
           output_style |= STYLE_FLAT_PROFILE;
         if (gmon_input & INPUT_CALL_GRAPH)
           output_style |= STYLE_CALL_GRAPH;
       }
      else
       output_style = STYLE_EXEC_COUNTS;

      output_style &= ~user_specified;
    }

  /* Dump a gmon.sum file if requested (before any other
     processing!)  */
  if (output_style & STYLE_SUMMARY_FILE)
    {
      gmon_out_write (GMONSUM);
    }

  if (gmon_input & INPUT_HISTOGRAM)
    {
      hist_assign_samples ();
    }

  if (gmon_input & INPUT_CALL_GRAPH)
    {
      cg = cg_assemble ();
    }

  /* Do some simple sanity checks.  */
  if ((output_style & STYLE_FLAT_PROFILE)
      && !(gmon_input & INPUT_HISTOGRAM))
    {
      fprintf (stderr, _("%s: gmon.out file is missing histogram\n"), whoami);
      done (1);
    }

  if ((output_style & STYLE_CALL_GRAPH) && !(gmon_input & INPUT_CALL_GRAPH))
    {
      fprintf (stderr,
              _("%s: gmon.out file is missing call-graph data\n"), whoami);
      done (1);
    }

  /* Output whatever user whishes to see.  */
  if (cg && (output_style & STYLE_CALL_GRAPH) && bsd_style_output)
    {
      /* Print the dynamic profile.  */
      cg_print (cg);
    }

  if (output_style & STYLE_FLAT_PROFILE)
    {
      /* Print the flat profile.  */
      hist_print ();        
    }

  if (cg && (output_style & STYLE_CALL_GRAPH))
    {
      if (!bsd_style_output)
       {
         /* Print the dynamic profile.  */
         cg_print (cg);     
       }
      cg_print_index ();
    }

  if (output_style & STYLE_EXEC_COUNTS)
    print_exec_counts ();
  
  if (output_style & STYLE_ANNOTATED_SOURCE)
    print_annotated_source ();
  
  if (output_style & STYLE_FUNCTION_ORDER)
    cg_print_function_ordering ();
  
  if (output_style & STYLE_FILE_ORDER)
    cg_print_file_ordering ();

  return 0;
}

Here is the call graph for this function:

static void usage ( FILE *  stream,
int  status 
) [static]

Definition at line 48 of file gprof.c.

{
  "_gprof_mcount", "mcount", "_mcount", "__mcount", "__mcount_internal",
  "__mcleanup",
  "<locore>", "<hicore>",
  0
};

Here is the caller graph for this function:


Variable Documentation

struct option[] [static]

Definition at line 98 of file gprof.c.