[deliverable/binutils-gdb.git] / gprof / gprof.c

/*
 * Copyright (c) 1983 Regents of the University of California.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms are permitted
 * provided that: (1) source distributions retain this entire copyright
 * notice and comment, and (2) distributions including binaries display
 * the following acknowledgement:  ``This product includes software
 * developed by the University of California, Berkeley and its contributors''
 * in the documentation or other materials provided with the distribution
 * and in all advertising materials mentioning features or use of this
 * software. Neither the name of the University nor the names of its
 * contributors may be used to endorse or promote products derived
 * from this software without specific prior written permission.
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 */
#include "getopt.h"
#include "libiberty.h"
#include "gprof.h"
#include "basic_blocks.h"
#include "call_graph.h"
#include "cg_arcs.h"
#include "cg_print.h"
#include "core.h"
#include "gmon_io.h"
#include "hertz.h"
#include "hist.h"
#include "source.h"
#include "sym_ids.h"

#define VERSION "2.6"

const char *whoami;
const char *a_out_name = A_OUTNAME;
long hz = HZ_WRONG;

/*
 * Default options values:
 */
int debug_level = 0;
int output_style = 0;
int output_width = 80;
bool bsd_style_output = FALSE;
bool discard_underscores = TRUE;
bool ignore_direct_calls = FALSE;
bool ignore_static_funcs = FALSE;
bool ignore_zeros = TRUE;
bool line_granularity = FALSE;
bool print_descriptions = TRUE;
bool print_path = FALSE;
File_Format file_format = FF_AUTO;

bool first_output = TRUE;

char copyright[] =
"@(#) Copyright (c) 1983 Regents of the University of California.\n\
 All rights reserved.\n";

static char *gmon_name = GMONNAME;	/* profile filename */

bfd *abfd;

/*
 * Functions that get excluded by default:
 */
static char *default_excluded_list[] =
{
  "_gprof_mcount", "mcount", "_mcount", "__mcleanup",
  "<locore>", "<hicore>",
  0
};

static struct option long_options[] =
{
  {"line", no_argument, 0, 'l'},
  {"no-static", no_argument, 0, 'a'},

    /* output styles: */

  {"annotated-source", optional_argument, 0, 'A'},
  {"no-annotated-source", optional_argument, 0, 'J'},
  {"flat-profile", optional_argument, 0, 'p'},
  {"no-flat-profile", optional_argument, 0, 'P'},
  {"graph", optional_argument, 0, 'q'},
  {"no-graph", optional_argument, 0, 'Q'},
  {"exec-counts", optional_argument, 0, 'C'},
  {"no-exec-counts", optional_argument, 0, 'Z'},
  {"file-info", no_argument, 0, 'i'},
  {"sum", no_argument, 0, 's'},

    /* various options to affect output: */

  {"all-lines", no_argument, 0, 'x'},
  {"directory-path", required_argument, 0, 'I'},
  {"display-unused-functions", no_argument, 0, 'z'},
  {"min-count", required_argument, 0, 'm'},
  {"print-path", no_argument, 0, 'L'},
  {"separate-files", no_argument, 0, 'y'},
  {"static-call-graph", no_argument, 0, 'c'},
  {"table-length", required_argument, 0, 't'},
  {"time", required_argument, 0, 'n'},
  {"no-time", required_argument, 0, 'N'},
  {"width", required_argument, 0, 'w'},
    /*
     * These are for backwards-compatibility only.  Their functionality
     * is provided by the output style options already:
     */
  {"", required_argument, 0, 'e'},
  {"", required_argument, 0, 'E'},
  {"", required_argument, 0, 'f'},
  {"", required_argument, 0, 'F'},
  {"", required_argument, 0, 'k'},

    /* miscellaneous: */

  {"brief", no_argument, 0, 'b'},
  {"debug", optional_argument, 0, 'd'},
  {"help", no_argument, 0, 'h'},
  {"file-format", required_argument, 0, 'O'},
  {"traditional", no_argument, 0, 'T'},
  {"version", no_argument, 0, 'v'},
  {0, no_argument, 0, 0}
};


static void
DEFUN (usage, (stream, status), FILE * stream AND int status)
{
  fprintf (stream, "\
Usage: %s [-[abchilLsTvwxyz]] [-[ACeEfFJnNOpPqQZ][name]] [-I dirs]\n\
	[-d[num]] [-k from/to] [-m min-count] [-t table-length]\n\
	[--[no-]annotated-source[=name]] [--[no-]exec-counts[=name]]\n\
	[--[no-]flat-profile[=name]] [--[no-]graph[=name]]\n\
	[--[no-]time=name] [--all-lines] [--brief] [--debug[=level]]\n\
	[--directory-path=dirs] [--display-unused-functions]\n\
	[--file-format=name] [--file-info] [--help] [--line] [--min-count=n]\n\
	[--no-static] [--print-path] [--separate-files]\n\
	[--static-call-graph] [--sum] [--table-length=len] [--traditional]\n\
	[--version] [--width=n]\n\
	[image-file] [profile-file...]\n",
	   whoami);
  done (status);
}


int
DEFUN (main, (argc, argv), int argc AND char **argv)
{
  char **sp, *str;
  Sym **cg = 0;
  int ch, user_specified = 0;

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

  while ((ch = getopt_long (argc, argv,
	"aA::bBcCd::e:E:f:F:hiI:J::k:lLm:n::N::O:p::P::q::Q::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 '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 = atoi (optarg);
	  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 '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 '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':
	  printf ("%s version %s\n", whoami, VERSION);
	  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;
	default:
	  usage (stderr, 1);
	}
    }

  /* append value of GPROF_PATH to source search list if set: */
  str = 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);
#ifdef __osf__
      sym_id_add (*sp, EXCL_FLAT);
#endif
    }

  /*
   * For line-by-line profiling, also want to keep those
   * functions off the flat profile:
   */
  if (line_granularity)
    {
      for (sp = &default_excluded_list[0]; *sp; sp++)
	{
	  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 (core_bfd);
    }
  else
    {
      core_create_function_syms (core_bfd);
    }

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

  if (file_format == FF_PROF)
    {
#ifdef PROF_SUPPORT_IMPLEMENTED
      /*
       * Get information about mon.out file(s):
       */
      do
	{
	  mon_out_read (gmon_name);
	  if (optind < argc)
	    {
	      gmon_name = argv[optind];
	    }
	}
      while (optind++ < argc);
#else
      fprintf (stderr,
	       "%s: sorry, file format `prof' is not yet supported\n",
	       whoami);
      done (1);
#endif
    }
  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))
	{
	  output_style = STYLE_FLAT_PROFILE | 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)
    {
      cg_print (cg);		/* print the dynamic profile */
    }

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

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

  if (output_style & STYLE_EXEC_COUNTS)
    {
      print_exec_counts ();
    }

  if (output_style & STYLE_ANNOTATED_SOURCE)
    {
      print_annotated_source ();
    }
  return 0;
}

void
done (status)
     int status;
{
  exit (status);
}
Commit	Line	Data
3d6c6501 SEF	1	/*
	2	* Copyright (c) 1983 Regents of the University of California.
	3	* All rights reserved.
	4	*
	5	* Redistribution and use in source and binary forms are permitted
	6	* provided that: (1) source distributions retain this entire copyright
	7	* notice and comment, and (2) distributions including binaries display
	8	* the following acknowledgement: ``This product includes software
	9	* developed by the University of California, Berkeley and its contributors''
	10	* in the documentation or other materials provided with the distribution
	11	* and in all advertising materials mentioning features or use of this
	12	* software. Neither the name of the University nor the names of its
	13	* contributors may be used to endorse or promote products derived
	14	* from this software without specific prior written permission.
	15	* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
	16	* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
	17	* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
	18	*/
5489fcc3 KR	19	#include "getopt.h"
	20	#include "libiberty.h"
	21	#include "gprof.h"
	22	#include "basic_blocks.h"
	23	#include "call_graph.h"
	24	#include "cg_arcs.h"
	25	#include "cg_print.h"
	26	#include "core.h"
	27	#include "gmon_io.h"
	28	#include "hertz.h"
	29	#include "hist.h"
	30	#include "source.h"
	31	#include "sym_ids.h"
	32
	33	#define VERSION "2.6"
	34
	35	const char *whoami;
	36	const char *a_out_name = A_OUTNAME;
	37	long hz = HZ_WRONG;
3d6c6501	38
5489fcc3 KR	39	/*
	40	* Default options values:
	41	*/
	42	int debug_level = 0;
	43	int output_style = 0;
	44	int output_width = 80;
	45	bool bsd_style_output = FALSE;
	46	bool discard_underscores = TRUE;
	47	bool ignore_direct_calls = FALSE;
	48	bool ignore_static_funcs = FALSE;
	49	bool ignore_zeros = TRUE;
	50	bool line_granularity = FALSE;
	51	bool print_descriptions = TRUE;
	52	bool print_path = FALSE;
	53	File_Format file_format = FF_AUTO;
	54
	55	bool first_output = TRUE;
b4f476e9	56
3d6c6501 SEF	57	char copyright[] =
	58	"@(#) Copyright (c) 1983 Regents of the University of California.\n\
	59	All rights reserved.\n";
3d6c6501	60
12516a37	61	static char gmon_name = GMONNAME; / profile filename */
c06e55d9	62
12516a37	63	bfd *abfd;
77c9b2c3	64
5489fcc3 KR	65	/*
	66	* Functions that get excluded by default:
	67	*/
12516a37 KR	68	static char *default_excluded_list[] =
	69	{
	70	"_gprof_mcount", "mcount", "_mcount", "__mcleanup",
	71	"<locore>", "<hicore>",
	72	0
5489fcc3	73	};
3d6c6501	74
5489fcc3 KR	75	static struct option long_options[] =
5489fcc3 KR	76	{
12516a37 KR	77	{"line", no_argument, 0, 'l'},
12516a37 KR	78	{"no-static", no_argument, 0, 'a'},
5489fcc3 KR	79
	80	/* output styles: */
	81
12516a37 KR	82	{"annotated-source", optional_argument, 0, 'A'},
	83	{"no-annotated-source", optional_argument, 0, 'J'},
	84	{"flat-profile", optional_argument, 0, 'p'},
	85	{"no-flat-profile", optional_argument, 0, 'P'},
	86	{"graph", optional_argument, 0, 'q'},
	87	{"no-graph", optional_argument, 0, 'Q'},
	88	{"exec-counts", optional_argument, 0, 'C'},
	89	{"no-exec-counts", optional_argument, 0, 'Z'},
	90	{"file-info", no_argument, 0, 'i'},
	91	{"sum", no_argument, 0, 's'},
5489fcc3 KR	92
	93	/* various options to affect output: */
	94
12516a37 KR	95	{"all-lines", no_argument, 0, 'x'},
	96	{"directory-path", required_argument, 0, 'I'},
	97	{"display-unused-functions", no_argument, 0, 'z'},
	98	{"min-count", required_argument, 0, 'm'},
	99	{"print-path", no_argument, 0, 'L'},
	100	{"separate-files", no_argument, 0, 'y'},
	101	{"static-call-graph", no_argument, 0, 'c'},
	102	{"table-length", required_argument, 0, 't'},
	103	{"time", required_argument, 0, 'n'},
	104	{"no-time", required_argument, 0, 'N'},
	105	{"width", required_argument, 0, 'w'},
3d6c6501	106	/*
5489fcc3 KR	107	* These are for backwards-compatibility only. Their functionality
5489fcc3 KR	108	* is provided by the output style options already:
3d6c6501	109	*/
12516a37 KR	110	{"", required_argument, 0, 'e'},
	111	{"", required_argument, 0, 'E'},
	112	{"", required_argument, 0, 'f'},
	113	{"", required_argument, 0, 'F'},
	114	{"", required_argument, 0, 'k'},
5489fcc3 KR	115
	116	/* miscellaneous: */
	117
12516a37 KR	118	{"brief", no_argument, 0, 'b'},
	119	{"debug", optional_argument, 0, 'd'},
	120	{"help", no_argument, 0, 'h'},
	121	{"file-format", required_argument, 0, 'O'},
	122	{"traditional", no_argument, 0, 'T'},
	123	{"version", no_argument, 0, 'v'},
	124	{0, no_argument, 0, 0}
5489fcc3 KR	125	};
	126
	127
	128	static void
12516a37	129	DEFUN (usage, (stream, status), FILE * stream AND int status)
5489fcc3	130	{
12516a37	131	fprintf (stream, "\
5489fcc3 KR	132	Usage: %s [-[abchilLsTvwxyz]] [-[ACeEfFJnNOpPqQZ][name]] [-I dirs]\n\
	133	[-d[num]] [-k from/to] [-m min-count] [-t table-length]\n\
	134	[--[no-]annotated-source[=name]] [--[no-]exec-counts[=name]]\n\
	135	[--[no-]flat-profile[=name]] [--[no-]graph[=name]]\n\
	136	[--[no-]time=name] [--all-lines] [--brief] [--debug[=level]]\n\
	137	[--directory-path=dirs] [--display-unused-functions]\n\
	138	[--file-format=name] [--file-info] [--help] [--line] [--min-count=n]\n\
	139	[--no-static] [--print-path] [--separate-files]\n\
	140	[--static-call-graph] [--sum] [--table-length=len] [--traditional]\n\
	141	[--version] [--width=n]\n\
	142	[image-file] [profile-file...]\n",
12516a37 KR	143	whoami);
12516a37 KR	144	done (status);
03c35bcb	145	}
5489fcc3 KR	146
	147
	148	int
12516a37	149	DEFUN (main, (argc, argv), int argc AND char **argv)
3d6c6501	150	{
12516a37 KR	151	char *sp, str;
	152	Sym **cg = 0;
	153	int ch, user_specified = 0;
3d6c6501	154
12516a37 KR	155	whoami = argv[0];
12516a37 KR	156	xmalloc_set_program_name (whoami);
5489fcc3	157
12516a37 KR	158	while ((ch = getopt_long (argc, argv,
	159	"aA::bBcCd::e:E:f:F:hiI:J::k:lLm:n::N::O:p::P::q::Q::st:Tvw:xyzZ::",
	160	long_options, 0))
	161	!= EOF)
5489fcc3	162	{
12516a37 KR	163	switch (ch)
	164	{
	165	case 'a':
	166	ignore_static_funcs = TRUE;
	167	break;
	168	case 'A':
	169	if (optarg)
	170	{
	171	sym_id_add (optarg, INCL_ANNO);
03c35bcb	172	}
12516a37 KR	173	output_style \|= STYLE_ANNOTATED_SOURCE;
	174	user_specified \|= STYLE_ANNOTATED_SOURCE;
	175	break;
	176	case 'b':
	177	print_descriptions = FALSE;
	178	break;
	179	case 'B':
	180	output_style \|= STYLE_CALL_GRAPH;
	181	user_specified \|= STYLE_CALL_GRAPH;
	182	break;
	183	case 'c':
	184	ignore_direct_calls = TRUE;
	185	break;
	186	case 'C':
	187	if (optarg)
	188	{
	189	sym_id_add (optarg, INCL_EXEC);
03c35bcb	190	}
12516a37 KR	191	output_style \|= STYLE_EXEC_COUNTS;
	192	user_specified \|= STYLE_EXEC_COUNTS;
	193	break;
	194	case 'd':
	195	if (optarg)
	196	{
	197	debug_level \|= atoi (optarg);
	198	debug_level \|= ANYDEBUG;
	199	}
	200	else
	201	{
	202	debug_level = ~0;
03c35bcb	203	}
12516a37	204	DBG (ANYDEBUG, printf ("[main] debug-level=0x%x\n", debug_level));
5489fcc3	205	#ifndef DEBUG
12516a37 KR	206	printf ("%s: debugging not supported; -d ignored\n", whoami);
	207	#endif /* DEBUG */
	208	break;
	209	case 'E':
	210	sym_id_add (optarg, EXCL_TIME);
	211	case 'e':
	212	sym_id_add (optarg, EXCL_GRAPH);
	213	break;
	214	case 'F':
	215	sym_id_add (optarg, INCL_TIME);
	216	case 'f':
	217	sym_id_add (optarg, INCL_GRAPH);
	218	break;
	219	case 'g':
	220	sym_id_add (optarg, EXCL_FLAT);
	221	break;
	222	case 'G':
	223	sym_id_add (optarg, INCL_FLAT);
	224	break;
	225	case 'h':
	226	usage (stdout, 0);
	227	case 'i':
	228	output_style \|= STYLE_GMON_INFO;
	229	user_specified \|= STYLE_GMON_INFO;
	230	break;
	231	case 'I':
	232	search_list_append (&src_search_list, optarg);
	233	break;
	234	case 'J':
	235	if (optarg)
	236	{
	237	sym_id_add (optarg, EXCL_ANNO);
	238	output_style \|= STYLE_ANNOTATED_SOURCE;
	239	}
	240	else
	241	{
	242	output_style &= ~STYLE_ANNOTATED_SOURCE;
03c35bcb	243	}
12516a37 KR	244	user_specified \|= STYLE_ANNOTATED_SOURCE;
	245	break;
	246	case 'k':
	247	sym_id_add (optarg, EXCL_ARCS);
	248	break;
	249	case 'l':
	250	line_granularity = TRUE;
	251	break;
	252	case 'L':
	253	print_path = TRUE;
	254	break;
	255	case 'm':
	256	bb_min_calls = atoi (optarg);
	257	break;
	258	case 'n':
	259	sym_id_add (optarg, INCL_TIME);
	260	break;
	261	case 'N':
	262	sym_id_add (optarg, EXCL_TIME);
	263	break;
	264	case 'O':
	265	switch (optarg[0])
	266	{
	267	case 'a':
	268	file_format = FF_AUTO;
	269	break;
	270	case 'm':
	271	file_format = FF_MAGIC;
	272	break;
	273	case 'b':
	274	file_format = FF_BSD;
	275	break;
	276	case 'p':
	277	file_format = FF_PROF;
	278	break;
	279	default:
	280	fprintf (stderr, "%s: unknown file format %s\n",
	281	optarg, whoami);
	282	done (1);
03c35bcb	283	}
12516a37 KR	284	break;
	285	case 'p':
	286	if (optarg)
	287	{
	288	sym_id_add (optarg, INCL_FLAT);
03c35bcb	289	}
12516a37 KR	290	output_style \|= STYLE_FLAT_PROFILE;
	291	user_specified \|= STYLE_FLAT_PROFILE;
	292	break;
	293	case 'P':
	294	if (optarg)
	295	{
	296	sym_id_add (optarg, EXCL_FLAT);
	297	output_style \|= STYLE_FLAT_PROFILE;
	298	}
	299	else
	300	{
	301	output_style &= ~STYLE_FLAT_PROFILE;
03c35bcb	302	}
12516a37 KR	303	user_specified \|= STYLE_FLAT_PROFILE;
	304	break;
	305	case 'q':
	306	if (optarg)
	307	{
	308	if (strchr (optarg, '/'))
	309	{
	310	sym_id_add (optarg, INCL_ARCS);
	311	}
	312	else
	313	{
	314	sym_id_add (optarg, INCL_GRAPH);
03c35bcb KR	315	}
03c35bcb KR	316	}
12516a37 KR	317	output_style \|= STYLE_CALL_GRAPH;
	318	user_specified \|= STYLE_CALL_GRAPH;
	319	break;
	320	case 'Q':
	321	if (optarg)
	322	{
	323	if (strchr (optarg, '/'))
	324	{
	325	sym_id_add (optarg, EXCL_ARCS);
	326	}
	327	else
	328	{
	329	sym_id_add (optarg, EXCL_GRAPH);
03c35bcb	330	}
12516a37 KR	331	output_style \|= STYLE_CALL_GRAPH;
	332	}
	333	else
	334	{
	335	output_style &= ~STYLE_CALL_GRAPH;
03c35bcb	336	}
12516a37 KR	337	user_specified \|= STYLE_CALL_GRAPH;
	338	break;
	339	case 's':
	340	output_style \|= STYLE_SUMMARY_FILE;
	341	user_specified \|= STYLE_SUMMARY_FILE;
	342	break;
	343	case 't':
	344	bb_table_length = atoi (optarg);
	345	if (bb_table_length < 0)
	346	{
	347	bb_table_length = 0;
03c35bcb	348	}
12516a37 KR	349	break;
	350	case 'T':
	351	bsd_style_output = TRUE;
	352	break;
	353	case 'v':
	354	printf ("%s version %s\n", whoami, VERSION);
	355	done (0);
	356	case 'w':
	357	output_width = atoi (optarg);
	358	if (output_width < 1)
	359	{
	360	output_width = 1;
03c35bcb	361	}
12516a37 KR	362	break;
	363	case 'x':
	364	bb_annotate_all_lines = TRUE;
	365	break;
	366	case 'y':
	367	create_annotation_files = TRUE;
	368	break;
	369	case 'z':
	370	ignore_zeros = FALSE;
	371	break;
	372	case 'Z':
	373	if (optarg)
	374	{
	375	sym_id_add (optarg, EXCL_EXEC);
	376	output_style \|= STYLE_EXEC_COUNTS;
	377	}
	378	else
	379	{
	380	output_style &= ~STYLE_EXEC_COUNTS;
03c35bcb	381	}
12516a37 KR	382	user_specified \|= STYLE_ANNOTATED_SOURCE;
	383	break;
	384	default:
	385	usage (stderr, 1);
03c35bcb KR	386	}
03c35bcb KR	387	}
12516a37 KR	388
	389	/* append value of GPROF_PATH to source search list if set: */
	390	str = getenv ("GPROF_PATH");
	391	if (str)
	392	{
	393	search_list_append (&src_search_list, str);
03c35bcb	394	}
3d6c6501	395
12516a37 KR	396	if (optind < argc)
	397	{
	398	a_out_name = argv[optind++];
03c35bcb	399	}
12516a37 KR	400	if (optind < argc)
	401	{
	402	gmon_name = argv[optind++];
03c35bcb	403	}
12516a37 KR	404
	405	/*
	406	* Turn off default functions:
	407	*/
	408	for (sp = &default_excluded_list[0]; *sp; sp++)
	409	{
	410	sym_id_add (*sp, EXCL_TIME);
	411	sym_id_add (*sp, EXCL_GRAPH);
5489fcc3	412	#ifdef __osf__
12516a37	413	sym_id_add (*sp, EXCL_FLAT);
5489fcc3	414	#endif
03c35bcb	415	}
5489fcc3	416
12516a37 KR	417	/*
	418	* For line-by-line profiling, also want to keep those
	419	* functions off the flat profile:
	420	*/
	421	if (line_granularity)
	422	{
	423	for (sp = &default_excluded_list[0]; *sp; sp++)
	424	{
	425	sym_id_add (*sp, EXCL_FLAT);
03c35bcb KR	426	}
03c35bcb KR	427	}
12516a37 KR	428
	429	/*
	430	* Read symbol table from core file:
	431	*/
	432	core_init (a_out_name);
	433
	434	/*
	435	* If we should ignore direct function calls, we need to load
	436	* to core's text-space:
	437	*/
	438	if (ignore_direct_calls)
	439	{
	440	core_get_text_space (core_bfd);
03c35bcb	441	}
3d6c6501	442
12516a37 KR	443	/*
	444	* Create symbols from core image:
	445	*/
	446	if (line_granularity)
	447	{
	448	core_create_line_syms (core_bfd);
	449	}
	450	else
	451	{
	452	core_create_function_syms (core_bfd);
03c35bcb	453	}
3d6c6501	454
12516a37 KR	455	/*
	456	* Translate sym specs into syms:
	457	*/
	458	sym_id_parse ();
3d6c6501	459
12516a37 KR	460	if (file_format == FF_PROF)
12516a37 KR	461	{
5489fcc3	462	#ifdef PROF_SUPPORT_IMPLEMENTED
12516a37 KR	463	/*
	464	* Get information about mon.out file(s):
	465	*/
	466	do
	467	{
	468	mon_out_read (gmon_name);
	469	if (optind < argc)
	470	{
	471	gmon_name = argv[optind];
03c35bcb	472	}
12516a37 KR	473	}
12516a37 KR	474	while (optind++ < argc);
5489fcc3	475	#else
12516a37 KR	476	fprintf (stderr,
	477	"%s: sorry, file format `prof' is not yet supported\n",
	478	whoami);
	479	done (1);
811e3c6a	480	#endif
12516a37 KR	481	}
	482	else
	483	{
	484	/*
	485	* Get information about gmon.out file(s):
	486	*/
	487	do
	488	{
	489	gmon_out_read (gmon_name);
	490	if (optind < argc)
	491	{
	492	gmon_name = argv[optind];
03c35bcb	493	}
12516a37 KR	494	}
12516a37 KR	495	while (optind++ < argc);
03c35bcb	496	}
12516a37 KR	497
	498	/*
	499	* If user did not specify output style, try to guess something
	500	* reasonable:
	501	*/
	502	if (output_style == 0)
	503	{
	504	if (gmon_input & (INPUT_HISTOGRAM \| INPUT_CALL_GRAPH))
	505	{
	506	output_style = STYLE_FLAT_PROFILE \| STYLE_CALL_GRAPH;
	507	}
	508	else
	509	{
	510	output_style = STYLE_EXEC_COUNTS;
03c35bcb	511	}
12516a37	512	output_style &= ~user_specified;
03c35bcb	513	}
12516a37 KR	514
	515	/*
	516	* Dump a gmon.sum file if requested (before any other processing!):
	517	*/
	518	if (output_style & STYLE_SUMMARY_FILE)
	519	{
	520	gmon_out_write (GMONSUM);
03c35bcb	521	}
4b8250bd	522
12516a37 KR	523	if (gmon_input & INPUT_HISTOGRAM)
	524	{
	525	hist_assign_samples ();
03c35bcb	526	}
2ea5f325	527
12516a37 KR	528	if (gmon_input & INPUT_CALL_GRAPH)
	529	{
	530	cg = cg_assemble ();
03c35bcb	531	}
12516a37 KR	532
	533	/* do some simple sanity checks: */
	534
	535	if ((output_style & STYLE_FLAT_PROFILE)
	536	&& !(gmon_input & INPUT_HISTOGRAM))
	537	{
	538	fprintf (stderr, "%s: gmon.out file is missing histogram\n", whoami);
	539	done (1);
03c35bcb	540	}
5489fcc3	541
12516a37 KR	542	if ((output_style & STYLE_CALL_GRAPH) && !(gmon_input & INPUT_CALL_GRAPH))
	543	{
	544	fprintf (stderr,
	545	"%s: gmon.out file is missing call-graph data\n", whoami);
	546	done (1);
03c35bcb	547	}
5489fcc3	548
12516a37	549	/* output whatever user whishes to see: */
5489fcc3	550
12516a37 KR	551	if (cg && (output_style & STYLE_CALL_GRAPH) && bsd_style_output)
	552	{
	553	cg_print (cg); /* print the dynamic profile */
03c35bcb	554	}
5489fcc3	555
12516a37 KR	556	if (output_style & STYLE_FLAT_PROFILE)
	557	{
	558	hist_print (); /* print the flat profile */
03c35bcb	559	}
12516a37 KR	560
	561	if (cg && (output_style & STYLE_CALL_GRAPH))
	562	{
	563	if (!bsd_style_output)
	564	{
	565	cg_print (cg); /* print the dynamic profile */
03c35bcb	566	}
12516a37	567	cg_print_index ();
03c35bcb	568	}
12516a37 KR	569
12516a37 KR	570	if (output_style & STYLE_EXEC_COUNTS)
5489fcc3	571	{
12516a37	572	print_exec_counts ();
03c35bcb	573	}
5489fcc3	574
12516a37	575	if (output_style & STYLE_ANNOTATED_SOURCE)
5489fcc3	576	{
12516a37	577	print_annotated_source ();
03c35bcb	578	}
12516a37	579	return 0;
3d6c6501 SEF	580	}
3d6c6501 SEF	581
5489fcc3 KR	582	void
	583	done (status)
	584	int status;
3d6c6501	585	{
12516a37	586	exit (status);
3d6c6501	587	}