/*
- * Copyright (c) 1983 Regents of the University of California.
- * All rights reserved.
+ * Copyright (c) 1983, 1993, 1998, 2001, 2002
+ * The 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.
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ * notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ * notice, this list of conditions and the following disclaimer in the
+ * documentation and/or other materials provided with the distribution.
+ * 3. 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 BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
*/
-#include "getopt.h"
-#include "libiberty.h"
+
#include "gprof.h"
+#include "libiberty.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 "core.h"
+#include "corefile.h"
#include "gmon_io.h"
#include "hertz.h"
#include "hist.h"
-#include "source.h"
#include "sym_ids.h"
+#include "demangle.h"
+#include "getopt.h"
-#define VERSION "2.6"
+static void usage (FILE *, int) ATTRIBUTE_NORETURN;
-const char *whoami;
-const char *a_out_name = A_OUTNAME;
+const char * whoami;
+const char * function_mapping_file;
+static const char * external_symbol_table;
+const char * a_out_name = A_OUTNAME;
long hz = HZ_WRONG;
/*
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;
+bfd_boolean bsd_style_output = FALSE;
+bfd_boolean demangle = 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;
+bfd_boolean inline_file_names = FALSE;
File_Format file_format = FF_AUTO;
-bool first_output = TRUE;
+bfd_boolean first_output = TRUE;
char copyright[] =
-"@(#) Copyright (c) 1983 Regents of the University of California.\n\
+ "@(#) Copyright (c) 1983 Regents of the University of California.\n\
All rights reserved.\n";
-static char *gmon_name = GMONNAME; /* profile filename */
-
-bfd *abfd;
+static char *gmon_name = GMONNAME; /* profile filename */
/*
* Functions that get excluded by default:
*/
-static char *default_excluded_list[] = {
- "_gprof_mcount", "mcount", "_mcount", "__mcleanup",
- "<locore>", "<hicore>",
- 0
+static char *default_excluded_list[] =
+{
+ "_gprof_mcount", "mcount", "_mcount", "__mcount", "__mcount_internal",
+ "__mcleanup",
+ 0
};
+/* Codes used for the long options with no short synonyms. 150 isn't
+ special; it's just an arbitrary non-ASCII char value. */
+
+#define OPTION_DEMANGLE (150)
+#define OPTION_NO_DEMANGLE (OPTION_DEMANGLE + 1)
+#define OPTION_INLINE_FILE_NAMES (OPTION_DEMANGLE + 2)
+
static struct option long_options[] =
{
- {"line", no_argument, 0, 'l'},
- {"no-static", no_argument, 0, 'a'},
+ {"line", no_argument, 0, 'l'},
+ {"no-static", no_argument, 0, 'a'},
+ {"ignore-non-functions", no_argument, 0, 'D'},
+ {"external-symbol-table", required_argument, 0, 'S'},
/* 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'},
+ {"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'},
+ {"function-ordering", no_argument, 0, 'r'},
+ {"file-ordering", required_argument, 0, 'R'},
+ {"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'},
+ {"all-lines", no_argument, 0, 'x'},
+ {"demangle", optional_argument, 0, OPTION_DEMANGLE},
+ {"no-demangle", no_argument, 0, OPTION_NO_DEMANGLE},
+ {"directory-path", required_argument, 0, 'I'},
+ {"display-unused-functions", no_argument, 0, 'z'},
+ {"inline-file-names", no_argument, 0, OPTION_INLINE_FILE_NAMES},
+ {"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'},
+ {"", 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}
+ {"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)
+usage (FILE *stream, int status)
{
- fprintf(stream, "\
-Usage: %s [-[abchilLsTvwxyz]] [-[ACeEfFJnNOpPqQZ][name]] [-I dirs]\n\
+ fprintf (stream, _("\
+Usage: %s [-[abcDhilLrsTvwxyz]] [-[ACeEfFJnNOpPqQRStZ][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\
+ [--function-ordering] [--file-ordering] [--inline-file-names]\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);
-} /* usage */
+ [--version] [--width=n] [--ignore-non-functions]\n\
+ [--demangle[=STYLE]] [--no-demangle] [--external-symbol-table=name] [@FILE]\n\
+ [image-file] [profile-file...]\n"),
+ whoami);
+ if (REPORT_BUGS_TO[0] && status == 0)
+ fprintf (stream, _("Report bugs to %s\n"), REPORT_BUGS_TO);
+ done (status);
+}
int
-DEFUN(main, (argc, argv), int argc AND char **argv)
+main (int argc, char **argv)
{
- char **sp, *str;
- Sym **cg = 0;
- int ch, user_specified = 0;
+ char **sp, *str;
+ Sym **cg = 0;
+ int ch, user_specified = 0;
- whoami = argv[0];
- xmalloc_set_program_name(whoami);
+#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::bBcCd::e:E:f:F:hiI:J::k:lLm:n::N::O:p::P::q::Q::st:Tvw:xyzZ::",
- long_options, 0))
- != EOF)
+ 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:sS:t: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);
- } /* if */
- 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);
- } /* if */
- 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;
- } /* if */
- DBG(ANYDEBUG, printf("[main] debug-level=0x%x\n", debug_level));
+ 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;
- } /* if */
- 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);
- } /* switch */
- break;
- case 'p':
- if (optarg) {
- sym_id_add(optarg, INCL_FLAT);
- } /* if */
+ 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);
+ /* Fall through. */
+ case 'e':
+ sym_id_add (optarg, EXCL_GRAPH);
+ break;
+ case 'F':
+ sym_id_add (optarg, INCL_TIME);
+ /* Fall through. */
+ case 'f':
+ sym_id_add (optarg, INCL_GRAPH);
+ break;
+ /* FIXME: The -g and -G options are not present in the getopt_long
+ invocation above, and they are not documented in gprof.texi.
+ Therefore they appear to be deprecated. Test this theory and
+ delete them if true. */
+ 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 'S':
+ external_symbol_table = optarg;
+ DBG (AOUTDEBUG, printf ("external-symbol-table: %s\n", optarg));
+ 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_EXEC_COUNTS;
+ 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;
+ case OPTION_INLINE_FILE_NAMES:
+ inline_file_names = TRUE;
+ 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 (external_symbol_table)
+ core_create_syms_from (external_symbol_table);
+ else 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;
- 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;
- } /* if */
- 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);
- } /* if */
- } /* if */
+ if (gmon_input & INPUT_CALL_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);
- } /* if */
- output_style |= STYLE_CALL_GRAPH;
- } else {
- output_style &= ~STYLE_CALL_GRAPH;
- } /* if */
- 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;
- } /* if */
- 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;
- } /* if */
- 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;
- } /* if */
- user_specified |= STYLE_ANNOTATED_SOURCE;
- break;
- default: usage(stderr, 1);
- } /* switch */
- } /* while */
-
- /* 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 */
-
- if (optind < argc) {
- a_out_name = argv[optind++];
- } /* if */
- if (optind < argc) {
- gmon_name = argv[optind++];
- } /* if */
+ }
+ else
+ output_style = STYLE_EXEC_COUNTS;
- /*
- * 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 */
+ output_style &= ~user_specified;
+ }
- /*
- * 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);
- } /* for */
- } /* if */
+ /* Dump a gmon.sum file if requested (before any other
+ processing!) */
+ if (output_style & STYLE_SUMMARY_FILE)
+ {
+ gmon_out_write (GMONSUM);
+ }
- /*
- * Read symbol table from core file:
- */
- core_init(a_out_name);
+ if (gmon_input & INPUT_HISTOGRAM)
+ {
+ hist_assign_samples ();
+ }
- /*
- * 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);
- } /* if */
+ if (gmon_input & INPUT_CALL_GRAPH)
+ {
+ cg = cg_assemble ();
+ }
- /*
- * Create symbols from core image:
- */
- if (line_granularity) {
- core_create_line_syms(core_bfd);
- } else {
- core_create_function_syms(core_bfd);
- } /* if */
+ /* 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);
+ }
- /*
- * 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];
- } /* if */
- } 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];
- } /* if */
- } while (optind++ < argc);
- } /* if */
+ 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);
+ }
- /*
- * 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;
- } /* if */
- output_style &= ~user_specified;
- } /* if */
+ /* Output whatever user whishes to see. */
+ if (cg && (output_style & STYLE_CALL_GRAPH) && bsd_style_output)
+ {
+ /* Print the dynamic profile. */
+ cg_print (cg);
+ }
- /*
- * Dump a gmon.sum file if requested (before any other processing!):
- */
- if (output_style & STYLE_SUMMARY_FILE) {
- gmon_out_write(GMONSUM);
- } /* if */
+ 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 (gmon_input & INPUT_HISTOGRAM) {
- hist_assign_samples();
- } /* if */
+ if (output_style & STYLE_EXEC_COUNTS)
+ print_exec_counts ();
- if (gmon_input & INPUT_CALL_GRAPH) {
- cg = cg_assemble();
- } /* if */
+ if (output_style & STYLE_ANNOTATED_SOURCE)
+ print_annotated_source ();
- /* do some simple sanity checks: */
+ if (output_style & STYLE_FUNCTION_ORDER)
+ cg_print_function_ordering ();
- if ((output_style & STYLE_FLAT_PROFILE)
- && !(gmon_input & INPUT_HISTOGRAM))
- {
- fprintf(stderr, "%s: gmon.out file is missing histogram\n", whoami);
- done(1);
- } /* if */
+ if (output_style & STYLE_FILE_ORDER)
+ cg_print_file_ordering ();
- 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);
- } /* if */
-
- /* output whatever user whishes to see: */
-
- if (cg && (output_style & STYLE_CALL_GRAPH) && bsd_style_output) {
- cg_print(cg); /* print the dynamic profile */
- } /* if */
-
- if (output_style & STYLE_FLAT_PROFILE) {
- hist_print(); /* print the flat profile */
- } /* if */
-
- if (cg && (output_style & STYLE_CALL_GRAPH)) {
- if (!bsd_style_output) {
- cg_print(cg); /* print the dynamic profile */
- } /* if */
- cg_print_index();
- } /* if */
-
- if (output_style & STYLE_EXEC_COUNTS) {
- print_exec_counts();
- } /* if */
-
- if (output_style & STYLE_ANNOTATED_SOURCE) {
- print_annotated_source();
- } /* if */
- return 0;
+ return 0;
}
void
-done (status)
- int status;
+done (int status)
{
- exit(status);
+ exit (status);
}