* corefile.c (core_init): Use a separate local variable,
[deliverable/binutils-gdb.git] / gprof / gprof.c
index 449ab203b547d03866e81ba4ab4d1a7fad7e3cdc..381118c9d05f4c7c3ffeeb1882a969240ab2181d 100644 (file)
@@ -1,34 +1,51 @@
 /*
- * 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 "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"
+
+static void usage PARAMS ((FILE *, int)) ATTRIBUTE_NORETURN;
+int main PARAMS ((int, char **));
 
 const char *whoami;
 const char *function_mapping_file;
@@ -41,21 +58,22 @@ 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;
-bool 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;
 
-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 */
@@ -73,6 +91,12 @@ static char *default_excluded_list[] =
   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)
+
 static struct option long_options[] =
 {
   {"line", no_argument, 0, 'l'},
@@ -97,6 +121,8 @@ static struct option long_options[] =
     /* various options to affect output: */
 
   {"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'},
   {"min-count", required_argument, 0, 'm'},
@@ -130,9 +156,11 @@ static struct option long_options[] =
 
 
 static void
-DEFUN (usage, (stream, status), FILE * stream AND int status)
+usage (stream, status)
+     FILE *stream;
+     int status;
 {
-  fprintf (stream, "\
+  fprintf (stream, _("\
 Usage: %s [-[abcDhilLsTvwxyz]] [-[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\
@@ -144,26 +172,38 @@ Usage: %s [-[abcDhilLsTvwxyz]] [-[ACeEfFJnNOpPqQZ][name]] [-I dirs]\n\
        [--no-static] [--print-path] [--separate-files]\n\
        [--static-call-graph] [--sum] [--table-length=len] [--traditional]\n\
        [--version] [--width=n] [--ignore-non-functions]\n\
-       [image-file] [profile-file...]\n",
+       [--demangle[=STYLE]] [--no-demangle]\n\
+       [image-file] [profile-file...]\n"),
           whoami);
   if (status == 0)
-    fprintf (stream, "Report bugs to bug-gnu-utils@prep.ai.mit.edu\n");
+    fprintf (stream, _("Report bugs to %s\n"), REPORT_BUGS_TO);
   done (status);
 }
 
 
 int
-DEFUN (main, (argc, argv), int argc AND char **argv)
+main (argc, argv)
+     int argc;
+     char **argv;
 {
   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
+  bindtextdomain (PACKAGE, LOCALEDIR);
+  textdomain (PACKAGE);
+
   whoami = argv[0];
   xmalloc_set_program_name (whoami);
 
   while ((ch = getopt_long (argc, argv,
-       "aA::bBcCdD::e:E:f:F:hiI:J::k:lLm:n::N::O:p::P::q::Q::st:Tvw:xyzZ::",
+       "aA::bBcCd::De:E:f:F:hiI:J::k:lLm:n::N::O:p::P::q::Q::st:Tvw:xyzZ::",
                            long_options, 0))
         != EOF)
     {
@@ -210,7 +250,7 @@ DEFUN (main, (argc, argv), int argc AND char **argv)
            }
          DBG (ANYDEBUG, printf ("[main] debug-level=0x%x\n", debug_level));
 #ifndef DEBUG
-         printf ("%s: debugging not supported; -d ignored\n", whoami);
+         printf (_("%s: debugging not supported; -d ignored\n"), whoami);
 #endif /* DEBUG */
          break;
        case 'D':
@@ -263,7 +303,7 @@ DEFUN (main, (argc, argv), int argc AND char **argv)
          print_path = TRUE;
          break;
        case 'm':
-         bb_min_calls = atoi (optarg);
+         bb_min_calls = (unsigned long) strtoul (optarg, (char **) NULL, 10);
          break;
        case 'n':
          sym_id_add (optarg, INCL_TIME);
@@ -283,11 +323,14 @@ DEFUN (main, (argc, argv), int argc AND char **argv)
            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",
+             fprintf (stderr, _("%s: unknown file format %s\n"),
                       optarg, whoami);
              done (1);
            }
@@ -371,10 +414,10 @@ DEFUN (main, (argc, argv), int argc AND char **argv)
          break;
        case 'v':
          /* This output is intended to follow the GNU standards document.  */
-         printf ("GNU gprof %s\n", VERSION);
-         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");
+         printf (_("GNU gprof %s\n"), VERSION);
+         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);
@@ -404,6 +447,27 @@ This program is free software.  This program has absolutely no warranty.\n");
            }
          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);
        }
@@ -413,12 +477,19 @@ This program is free software.  This program has absolutely no warranty.\n");
   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",
+      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)
@@ -442,9 +513,7 @@ This program is free software.  This program has absolutely no warranty.\n");
     {
       sym_id_add (*sp, EXCL_TIME);
       sym_id_add (*sp, EXCL_GRAPH);
-#ifdef __alpha__
       sym_id_add (*sp, EXCL_FLAT);
-#endif
     }
 
   /*
@@ -452,71 +521,36 @@ This program is free software.  This program has absolutely no warranty.\n");
    * functions off the flat profile:
    */
   if (line_granularity)
-    {
-      for (sp = &default_excluded_list[0]; *sp; sp++)
-       {
-         sym_id_add (*sp, EXCL_FLAT);
-       }
-    }
+    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",
+              _("%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);
@@ -535,19 +569,15 @@ This program is free software.  This program has absolutely no warranty.\n");
   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);
@@ -563,19 +593,18 @@ This program is free software.  This program has absolutely no warranty.\n");
       cg = cg_assemble ();
     }
 
-  /* do some simple sanity checks: */
-
+  /* 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);
+      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);
+              _("%s: gmon.out file is missing call-graph data\n"), whoami);
       done (1);
     }
 
This page took 0.029354 seconds and 4 git commands to generate.