#include "demangle.h"
#include "getopt.h"
-static void usage PARAMS ((FILE *, int)) ATTRIBUTE_NORETURN;
-int main PARAMS ((int, char **));
+static void usage (FILE *, int) ATTRIBUTE_NORETURN;
const char *whoami;
const char *function_mapping_file;
int debug_level = 0;
int output_style = 0;
int output_width = 80;
-boolean bsd_style_output = false;
-boolean demangle = true;
-boolean discard_underscores = true;
-boolean ignore_direct_calls = false;
-boolean ignore_static_funcs = false;
-boolean ignore_zeros = true;
-boolean line_granularity = false;
-boolean print_descriptions = true;
-boolean print_path = false;
-boolean ignore_non_functions = false;
+bfd_boolean bsd_style_output = FALSE;
+bfd_boolean demangle = TRUE;
+bfd_boolean discard_underscores = TRUE;
+bfd_boolean ignore_direct_calls = FALSE;
+bfd_boolean ignore_static_funcs = FALSE;
+bfd_boolean ignore_zeros = TRUE;
+bfd_boolean line_granularity = FALSE;
+bfd_boolean print_descriptions = TRUE;
+bfd_boolean print_path = FALSE;
+bfd_boolean ignore_non_functions = FALSE;
File_Format file_format = FF_AUTO;
-boolean first_output = true;
+bfd_boolean first_output = TRUE;
char copyright[] =
"@(#) Copyright (c) 1983 Regents of the University of California.\n\
static char *gmon_name = GMONNAME; /* profile filename */
-bfd *abfd;
-
/*
* Functions that get excluded by default:
*/
static void
-usage (stream, status)
- FILE *stream;
- int status;
+usage (FILE *stream, int status)
{
fprintf (stream, _("\
Usage: %s [-[abcDhilLsTvwxyz]] [-[ACeEfFJnNOpPqQZ][name]] [-I dirs]\n\
int
-main (argc, argv)
- int argc;
- char **argv;
+main (int argc, char **argv)
{
char **sp, *str;
Sym **cg = 0;
switch (ch)
{
case 'a':
- ignore_static_funcs = true;
+ ignore_static_funcs = TRUE;
break;
case 'A':
if (optarg)
user_specified |= STYLE_ANNOTATED_SOURCE;
break;
case 'b':
- print_descriptions = false;
+ print_descriptions = FALSE;
break;
case 'B':
output_style |= STYLE_CALL_GRAPH;
user_specified |= STYLE_CALL_GRAPH;
break;
case 'c':
- ignore_direct_calls = true;
+ ignore_direct_calls = TRUE;
break;
case 'C':
if (optarg)
#endif /* DEBUG */
break;
case 'D':
- ignore_non_functions = true;
+ ignore_non_functions = TRUE;
break;
case 'E':
sym_id_add (optarg, EXCL_TIME);
sym_id_add (optarg, EXCL_ARCS);
break;
case 'l':
- line_granularity = true;
+ line_granularity = TRUE;
break;
case 'L':
- print_path = true;
+ print_path = TRUE;
break;
case 'm':
bb_min_calls = (unsigned long) strtoul (optarg, (char **) NULL, 10);
}
break;
case 'T':
- bsd_style_output = true;
+ bsd_style_output = TRUE;
break;
case 'v':
/* This output is intended to follow the GNU standards document. */
}
break;
case 'x':
- bb_annotate_all_lines = true;
+ bb_annotate_all_lines = TRUE;
break;
case 'y':
- create_annotation_files = true;
+ create_annotation_files = TRUE;
break;
case 'z':
- ignore_zeros = false;
+ ignore_zeros = FALSE;
break;
case 'Z':
if (optarg)
user_specified |= STYLE_ANNOTATED_SOURCE;
break;
case OPTION_DEMANGLE:
- demangle = true;
+ demangle = TRUE;
if (optarg != NULL)
{
enum demangling_styles style;
}
break;
case OPTION_NO_DEMANGLE:
- demangle = false;
+ demangle = FALSE;
break;
default:
usage (stderr, 1);
done (1);
}
- /* --sum implies --line, otherwise we'd lose b-b counts in gmon.sum */
+ /* --sum implies --line, otherwise we'd lose basic block counts in
+ gmon.sum */
if (output_style & STYLE_SUMMARY_FILE)
- {
- line_granularity = 1;
- }
+ 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);
- }
+ search_list_append (&src_search_list, str);
if (optind < argc)
- {
- a_out_name = argv[optind++];
- }
+ a_out_name = argv[optind++];
+
if (optind < argc)
- {
- gmon_name = argv[optind++];
- }
+ gmon_name = argv[optind++];
- /*
- * Turn off default functions:
- */
+ /* 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 __alpha__
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:
- */
+ /* 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 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);
- }
+ core_get_text_space (core_bfd);
- /*
- * Create symbols from core image:
- */
+ /* Create symbols from core image. */
if (line_granularity)
- {
- core_create_line_syms (core_bfd);
- }
+ core_create_line_syms ();
else
- {
- core_create_function_syms (core_bfd);
- }
+ core_create_function_syms ();
- /*
- * Translate sym specs into syms:
- */
+ /* 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):
- */
+ /* Get information about gmon.out file(s). */
do
{
gmon_out_read (gmon_name);
if (optind < argc)
- {
- gmon_name = argv[optind];
- }
+ gmon_name = argv[optind];
}
while (optind++ < argc);
}
- /*
- * If user did not specify output style, try to guess something
- * reasonable:
- */
+ /* 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;
- }
+ output_style = STYLE_FLAT_PROFILE | STYLE_CALL_GRAPH;
else
- {
- output_style = STYLE_EXEC_COUNTS;
- }
+ output_style = STYLE_EXEC_COUNTS;
+
output_style &= ~user_specified;
}
- /*
- * Dump a gmon.sum file if requested (before any other processing!):
- */
+ /* Dump a gmon.sum file if requested (before any other
+ processing!) */
if (output_style & STYLE_SUMMARY_FILE)
{
gmon_out_write (GMONSUM);
cg = cg_assemble ();
}
- /* do some simple sanity checks: */
-
+ /* Do some simple sanity checks. */
if ((output_style & STYLE_FLAT_PROFILE)
&& !(gmon_input & INPUT_HISTOGRAM))
{
done (1);
}
- /* output whatever user whishes to see: */
-
+ /* Output whatever user whishes to see. */
if (cg && (output_style & STYLE_CALL_GRAPH) && bsd_style_output)
{
- cg_print (cg); /* print the dynamic profile */
+ /* Print the dynamic profile. */
+ cg_print (cg);
}
if (output_style & STYLE_FLAT_PROFILE)
{
- hist_print (); /* print the flat profile */
+ /* Print the flat profile. */
+ hist_print ();
}
if (cg && (output_style & STYLE_CALL_GRAPH))
{
if (!bsd_style_output)
{
- cg_print (cg); /* print the dynamic profile */
+ /* Print the dynamic profile. */
+ cg_print (cg);
}
cg_print_index ();
}
if (output_style & STYLE_EXEC_COUNTS)
- {
- print_exec_counts ();
- }
-
+ print_exec_counts ();
+
if (output_style & STYLE_ANNOTATED_SOURCE)
- {
- print_annotated_source ();
- }
+ print_annotated_source ();
+
if (output_style & STYLE_FUNCTION_ORDER)
- {
- cg_print_function_ordering ();
- }
+ cg_print_function_ordering ();
+
if (output_style & STYLE_FILE_ORDER)
- {
- cg_print_file_ordering ();
- }
+ cg_print_file_ordering ();
+
return 0;
}
void
-done (status)
- int status;
+done (int status)
{
exit (status);
}