OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [binutils-2.18.50/] [gprof/] [gprof.c] - Blame information for rev 156

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 38 julius
/*
2
 * Copyright (c) 1983, 1993, 1998, 2001, 2002
3
 *      The Regents of the University of California.  All rights reserved.
4
 *
5
 * Redistribution and use in source and binary forms, with or without
6
 * modification, are permitted provided that the following conditions
7
 * are met:
8
 * 1. Redistributions of source code must retain the above copyright
9
 *    notice, this list of conditions and the following disclaimer.
10
 * 2. Redistributions in binary form must reproduce the above copyright
11
 *    notice, this list of conditions and the following disclaimer in the
12
 *    documentation and/or other materials provided with the distribution.
13
 * 3. Neither the name of the University nor the names of its contributors
14
 *    may be used to endorse or promote products derived from this software
15
 *    without specific prior written permission.
16
 *
17
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
18
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
21
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
23
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
24
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
25
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
26
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
27
 * SUCH DAMAGE.
28
 */
29
 
30
#include "libiberty.h"
31
#include "gprof.h"
32
#include "bfdver.h"
33
#include "search_list.h"
34
#include "source.h"
35
#include "symtab.h"
36
#include "basic_blocks.h"
37
#include "call_graph.h"
38
#include "cg_arcs.h"
39
#include "cg_print.h"
40
#include "corefile.h"
41
#include "gmon_io.h"
42
#include "hertz.h"
43
#include "hist.h"
44
#include "sym_ids.h"
45
#include "demangle.h"
46
#include "getopt.h"
47
 
48
static void usage (FILE *, int) ATTRIBUTE_NORETURN;
49
 
50
const char *whoami;
51
const char *function_mapping_file;
52
const char *a_out_name = A_OUTNAME;
53
long hz = HZ_WRONG;
54
 
55
/*
56
 * Default options values:
57
 */
58
int debug_level = 0;
59
int output_style = 0;
60
int output_width = 80;
61
bfd_boolean bsd_style_output = FALSE;
62
bfd_boolean demangle = TRUE;
63
bfd_boolean ignore_direct_calls = FALSE;
64
bfd_boolean ignore_static_funcs = FALSE;
65
bfd_boolean ignore_zeros = TRUE;
66
bfd_boolean line_granularity = FALSE;
67
bfd_boolean print_descriptions = TRUE;
68
bfd_boolean print_path = FALSE;
69
bfd_boolean ignore_non_functions = FALSE;
70
File_Format file_format = FF_AUTO;
71
 
72
bfd_boolean first_output = TRUE;
73
 
74
char copyright[] =
75
 "@(#) Copyright (c) 1983 Regents of the University of California.\n\
76
 All rights reserved.\n";
77
 
78
static char *gmon_name = GMONNAME;      /* profile filename */
79
 
80
/*
81
 * Functions that get excluded by default:
82
 */
83
static char *default_excluded_list[] =
84
{
85
  "_gprof_mcount", "mcount", "_mcount", "__mcount", "__mcount_internal",
86
  "__mcleanup",
87
  "<locore>", "<hicore>",
88
 
89
};
90
 
91
/* Codes used for the long options with no short synonyms.  150 isn't
92
   special; it's just an arbitrary non-ASCII char value.  */
93
 
94
#define OPTION_DEMANGLE         (150)
95
#define OPTION_NO_DEMANGLE      (OPTION_DEMANGLE + 1)
96
 
97
static struct option long_options[] =
98
{
99
  {"line", no_argument, 0, 'l'},
100
  {"no-static", no_argument, 0, 'a'},
101
  {"ignore-non-functions", no_argument, 0, 'D'},
102
 
103
    /* output styles: */
104
 
105
  {"annotated-source", optional_argument, 0, 'A'},
106
  {"no-annotated-source", optional_argument, 0, 'J'},
107
  {"flat-profile", optional_argument, 0, 'p'},
108
  {"no-flat-profile", optional_argument, 0, 'P'},
109
  {"graph", optional_argument, 0, 'q'},
110
  {"no-graph", optional_argument, 0, 'Q'},
111
  {"exec-counts", optional_argument, 0, 'C'},
112
  {"no-exec-counts", optional_argument, 0, 'Z'},
113
  {"function-ordering", no_argument, 0, 'r'},
114
  {"file-ordering", required_argument, 0, 'R'},
115
  {"file-info", no_argument, 0, 'i'},
116
  {"sum", no_argument, 0, 's'},
117
 
118
    /* various options to affect output: */
119
 
120
  {"all-lines", no_argument, 0, 'x'},
121
  {"demangle", optional_argument, 0, OPTION_DEMANGLE},
122
  {"no-demangle", no_argument, 0, OPTION_NO_DEMANGLE},
123
  {"directory-path", required_argument, 0, 'I'},
124
  {"display-unused-functions", no_argument, 0, 'z'},
125
  {"min-count", required_argument, 0, 'm'},
126
  {"print-path", no_argument, 0, 'L'},
127
  {"separate-files", no_argument, 0, 'y'},
128
  {"static-call-graph", no_argument, 0, 'c'},
129
  {"table-length", required_argument, 0, 't'},
130
  {"time", required_argument, 0, 'n'},
131
  {"no-time", required_argument, 0, 'N'},
132
  {"width", required_argument, 0, 'w'},
133
    /*
134
     * These are for backwards-compatibility only.  Their functionality
135
     * is provided by the output style options already:
136
     */
137
  {"", required_argument, 0, 'e'},
138
  {"", required_argument, 0, 'E'},
139
  {"", required_argument, 0, 'f'},
140
  {"", required_argument, 0, 'F'},
141
  {"", required_argument, 0, 'k'},
142
 
143
    /* miscellaneous: */
144
 
145
  {"brief", no_argument, 0, 'b'},
146
  {"debug", optional_argument, 0, 'd'},
147
  {"help", no_argument, 0, 'h'},
148
  {"file-format", required_argument, 0, 'O'},
149
  {"traditional", no_argument, 0, 'T'},
150
  {"version", no_argument, 0, 'v'},
151
  {0, no_argument, 0, 0}
152
};
153
 
154
 
155
static void
156
usage (FILE *stream, int status)
157
{
158
  fprintf (stream, _("\
159
Usage: %s [-[abcDhilLsTvwxyz]] [-[ACeEfFJnNOpPqQZ][name]] [-I dirs]\n\
160
        [-d[num]] [-k from/to] [-m min-count] [-t table-length]\n\
161
        [--[no-]annotated-source[=name]] [--[no-]exec-counts[=name]]\n\
162
        [--[no-]flat-profile[=name]] [--[no-]graph[=name]]\n\
163
        [--[no-]time=name] [--all-lines] [--brief] [--debug[=level]]\n\
164
        [--function-ordering] [--file-ordering]\n\
165
        [--directory-path=dirs] [--display-unused-functions]\n\
166
        [--file-format=name] [--file-info] [--help] [--line] [--min-count=n]\n\
167
        [--no-static] [--print-path] [--separate-files]\n\
168
        [--static-call-graph] [--sum] [--table-length=len] [--traditional]\n\
169
        [--version] [--width=n] [--ignore-non-functions]\n\
170
        [--demangle[=STYLE]] [--no-demangle] [@FILE]\n\
171
        [image-file] [profile-file...]\n"),
172
           whoami);
173
  if (REPORT_BUGS_TO[0] && status == 0)
174
    fprintf (stream, _("Report bugs to %s\n"), REPORT_BUGS_TO);
175
  done (status);
176
}
177
 
178
 
179
int
180
main (int argc, char **argv)
181
{
182
  char **sp, *str;
183
  Sym **cg = 0;
184
  int ch, user_specified = 0;
185
 
186
#if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
187
  setlocale (LC_MESSAGES, "");
188
#endif
189
#if defined (HAVE_SETLOCALE)
190
  setlocale (LC_CTYPE, "");
191
#endif
192
#ifdef ENABLE_NLS
193
  bindtextdomain (PACKAGE, LOCALEDIR);
194
  textdomain (PACKAGE);
195
#endif
196
 
197
  whoami = argv[0];
198
  xmalloc_set_program_name (whoami);
199
 
200
  expandargv (&argc, &argv);
201
 
202
  while ((ch = getopt_long (argc, argv,
203
        "aA::bBcC::d::De:E:f:F:hiI:J::k:lLm:n:N:O:p::P::q::Q::rR:st:Tvw:xyzZ::",
204
                            long_options, 0))
205
         != EOF)
206
    {
207
      switch (ch)
208
        {
209
        case 'a':
210
          ignore_static_funcs = TRUE;
211
          break;
212
        case 'A':
213
          if (optarg)
214
            {
215
              sym_id_add (optarg, INCL_ANNO);
216
            }
217
          output_style |= STYLE_ANNOTATED_SOURCE;
218
          user_specified |= STYLE_ANNOTATED_SOURCE;
219
          break;
220
        case 'b':
221
          print_descriptions = FALSE;
222
          break;
223
        case 'B':
224
          output_style |= STYLE_CALL_GRAPH;
225
          user_specified |= STYLE_CALL_GRAPH;
226
          break;
227
        case 'c':
228
          ignore_direct_calls = TRUE;
229
          break;
230
        case 'C':
231
          if (optarg)
232
            {
233
              sym_id_add (optarg, INCL_EXEC);
234
            }
235
          output_style |= STYLE_EXEC_COUNTS;
236
          user_specified |= STYLE_EXEC_COUNTS;
237
          break;
238
        case 'd':
239
          if (optarg)
240
            {
241
              debug_level |= atoi (optarg);
242
              debug_level |= ANYDEBUG;
243
            }
244
          else
245
            {
246
              debug_level = ~0;
247
            }
248
          DBG (ANYDEBUG, printf ("[main] debug-level=0x%x\n", debug_level));
249
#ifndef DEBUG
250
          printf (_("%s: debugging not supported; -d ignored\n"), whoami);
251
#endif  /* DEBUG */
252
          break;
253
        case 'D':
254
          ignore_non_functions = TRUE;
255
          break;
256
        case 'E':
257
          sym_id_add (optarg, EXCL_TIME);
258
        case 'e':
259
          sym_id_add (optarg, EXCL_GRAPH);
260
          break;
261
        case 'F':
262
          sym_id_add (optarg, INCL_TIME);
263
        case 'f':
264
          sym_id_add (optarg, INCL_GRAPH);
265
          break;
266
        case 'g':
267
          sym_id_add (optarg, EXCL_FLAT);
268
          break;
269
        case 'G':
270
          sym_id_add (optarg, INCL_FLAT);
271
          break;
272
        case 'h':
273
          usage (stdout, 0);
274
        case 'i':
275
          output_style |= STYLE_GMON_INFO;
276
          user_specified |= STYLE_GMON_INFO;
277
          break;
278
        case 'I':
279
          search_list_append (&src_search_list, optarg);
280
          break;
281
        case 'J':
282
          if (optarg)
283
            {
284
              sym_id_add (optarg, EXCL_ANNO);
285
              output_style |= STYLE_ANNOTATED_SOURCE;
286
            }
287
          else
288
            {
289
              output_style &= ~STYLE_ANNOTATED_SOURCE;
290
            }
291
          user_specified |= STYLE_ANNOTATED_SOURCE;
292
          break;
293
        case 'k':
294
          sym_id_add (optarg, EXCL_ARCS);
295
          break;
296
        case 'l':
297
          line_granularity = TRUE;
298
          break;
299
        case 'L':
300
          print_path = TRUE;
301
          break;
302
        case 'm':
303
          bb_min_calls = (unsigned long) strtoul (optarg, (char **) NULL, 10);
304
          break;
305
        case 'n':
306
          sym_id_add (optarg, INCL_TIME);
307
          break;
308
        case 'N':
309
          sym_id_add (optarg, EXCL_TIME);
310
          break;
311
        case 'O':
312
          switch (optarg[0])
313
            {
314
            case 'a':
315
              file_format = FF_AUTO;
316
              break;
317
            case 'm':
318
              file_format = FF_MAGIC;
319
              break;
320
            case 'b':
321
              file_format = FF_BSD;
322
              break;
323
            case '4':
324
              file_format = FF_BSD44;
325
              break;
326
            case 'p':
327
              file_format = FF_PROF;
328
              break;
329
            default:
330
              fprintf (stderr, _("%s: unknown file format %s\n"),
331
                       optarg, whoami);
332
              done (1);
333
            }
334
          break;
335
        case 'p':
336
          if (optarg)
337
            {
338
              sym_id_add (optarg, INCL_FLAT);
339
            }
340
          output_style |= STYLE_FLAT_PROFILE;
341
          user_specified |= STYLE_FLAT_PROFILE;
342
          break;
343
        case 'P':
344
          if (optarg)
345
            {
346
              sym_id_add (optarg, EXCL_FLAT);
347
              output_style |= STYLE_FLAT_PROFILE;
348
            }
349
          else
350
            {
351
              output_style &= ~STYLE_FLAT_PROFILE;
352
            }
353
          user_specified |= STYLE_FLAT_PROFILE;
354
          break;
355
        case 'q':
356
          if (optarg)
357
            {
358
              if (strchr (optarg, '/'))
359
                {
360
                  sym_id_add (optarg, INCL_ARCS);
361
                }
362
              else
363
                {
364
                  sym_id_add (optarg, INCL_GRAPH);
365
                }
366
            }
367
          output_style |= STYLE_CALL_GRAPH;
368
          user_specified |= STYLE_CALL_GRAPH;
369
          break;
370
        case 'r':
371
          output_style |= STYLE_FUNCTION_ORDER;
372
          user_specified |= STYLE_FUNCTION_ORDER;
373
          break;
374
        case 'R':
375
          output_style |= STYLE_FILE_ORDER;
376
          user_specified |= STYLE_FILE_ORDER;
377
          function_mapping_file = optarg;
378
          break;
379
        case 'Q':
380
          if (optarg)
381
            {
382
              if (strchr (optarg, '/'))
383
                {
384
                  sym_id_add (optarg, EXCL_ARCS);
385
                }
386
              else
387
                {
388
                  sym_id_add (optarg, EXCL_GRAPH);
389
                }
390
              output_style |= STYLE_CALL_GRAPH;
391
            }
392
          else
393
            {
394
              output_style &= ~STYLE_CALL_GRAPH;
395
            }
396
          user_specified |= STYLE_CALL_GRAPH;
397
          break;
398
        case 's':
399
          output_style |= STYLE_SUMMARY_FILE;
400
          user_specified |= STYLE_SUMMARY_FILE;
401
          break;
402
        case 't':
403
          bb_table_length = atoi (optarg);
404
          if (bb_table_length < 0)
405
            {
406
              bb_table_length = 0;
407
            }
408
          break;
409
        case 'T':
410
          bsd_style_output = TRUE;
411
          break;
412
        case 'v':
413
          /* This output is intended to follow the GNU standards document.  */
414
          printf (_("GNU gprof %s\n"), BFD_VERSION_STRING);
415
          printf (_("Based on BSD gprof, copyright 1983 Regents of the University of California.\n"));
416
          printf (_("\
417
This program is free software.  This program has absolutely no warranty.\n"));
418
          done (0);
419
        case 'w':
420
          output_width = atoi (optarg);
421
          if (output_width < 1)
422
            {
423
              output_width = 1;
424
            }
425
          break;
426
        case 'x':
427
          bb_annotate_all_lines = TRUE;
428
          break;
429
        case 'y':
430
          create_annotation_files = TRUE;
431
          break;
432
        case 'z':
433
          ignore_zeros = FALSE;
434
          break;
435
        case 'Z':
436
          if (optarg)
437
            {
438
              sym_id_add (optarg, EXCL_EXEC);
439
              output_style |= STYLE_EXEC_COUNTS;
440
            }
441
          else
442
            {
443
              output_style &= ~STYLE_EXEC_COUNTS;
444
            }
445
          user_specified |= STYLE_ANNOTATED_SOURCE;
446
          break;
447
        case OPTION_DEMANGLE:
448
          demangle = TRUE;
449
          if (optarg != NULL)
450
            {
451
              enum demangling_styles style;
452
 
453
              style = cplus_demangle_name_to_style (optarg);
454
              if (style == unknown_demangling)
455
                {
456
                  fprintf (stderr,
457
                           _("%s: unknown demangling style `%s'\n"),
458
                           whoami, optarg);
459
                  xexit (1);
460
                }
461
 
462
              cplus_demangle_set_style (style);
463
           }
464
          break;
465
        case OPTION_NO_DEMANGLE:
466
          demangle = FALSE;
467
          break;
468
        default:
469
          usage (stderr, 1);
470
        }
471
    }
472
 
473
  /* Don't allow both ordering options, they modify the arc data in-place.  */
474
  if ((user_specified & STYLE_FUNCTION_ORDER)
475
      && (user_specified & STYLE_FILE_ORDER))
476
    {
477
      fprintf (stderr,_("\
478
%s: Only one of --function-ordering and --file-ordering may be specified.\n"),
479
               whoami);
480
      done (1);
481
    }
482
 
483
  /* --sum implies --line, otherwise we'd lose basic block counts in
484
       gmon.sum */
485
  if (output_style & STYLE_SUMMARY_FILE)
486
    line_granularity = 1;
487
 
488
  /* append value of GPROF_PATH to source search list if set: */
489
  str = (char *) getenv ("GPROF_PATH");
490
  if (str)
491
    search_list_append (&src_search_list, str);
492
 
493
  if (optind < argc)
494
    a_out_name = argv[optind++];
495
 
496
  if (optind < argc)
497
    gmon_name = argv[optind++];
498
 
499
  /* Turn off default functions.  */
500
  for (sp = &default_excluded_list[0]; *sp; sp++)
501
    {
502
      sym_id_add (*sp, EXCL_TIME);
503
      sym_id_add (*sp, EXCL_GRAPH);
504
      sym_id_add (*sp, EXCL_FLAT);
505
    }
506
 
507
  /* Read symbol table from core file.  */
508
  core_init (a_out_name);
509
 
510
  /* If we should ignore direct function calls, we need to load to
511
     core's text-space.  */
512
  if (ignore_direct_calls)
513
    core_get_text_space (core_bfd);
514
 
515
  /* Create symbols from core image.  */
516
  if (line_granularity)
517
    core_create_line_syms ();
518
  else
519
    core_create_function_syms ();
520
 
521
  /* Translate sym specs into syms.  */
522
  sym_id_parse ();
523
 
524
  if (file_format == FF_PROF)
525
    {
526
      fprintf (stderr,
527
               _("%s: sorry, file format `prof' is not yet supported\n"),
528
               whoami);
529
      done (1);
530
    }
531
  else
532
    {
533
      /* Get information about gmon.out file(s).  */
534
      do
535
        {
536
          gmon_out_read (gmon_name);
537
          if (optind < argc)
538
            gmon_name = argv[optind];
539
        }
540
      while (optind++ < argc);
541
    }
542
 
543
  /* If user did not specify output style, try to guess something
544
     reasonable.  */
545
  if (output_style == 0)
546
    {
547
      if (gmon_input & (INPUT_HISTOGRAM | INPUT_CALL_GRAPH))
548
        {
549
          if (gmon_input & INPUT_HISTOGRAM)
550
            output_style |= STYLE_FLAT_PROFILE;
551
          if (gmon_input & INPUT_CALL_GRAPH)
552
            output_style |= STYLE_CALL_GRAPH;
553
        }
554
      else
555
        output_style = STYLE_EXEC_COUNTS;
556
 
557
      output_style &= ~user_specified;
558
    }
559
 
560
  /* Dump a gmon.sum file if requested (before any other
561
     processing!)  */
562
  if (output_style & STYLE_SUMMARY_FILE)
563
    {
564
      gmon_out_write (GMONSUM);
565
    }
566
 
567
  if (gmon_input & INPUT_HISTOGRAM)
568
    {
569
      hist_assign_samples ();
570
    }
571
 
572
  if (gmon_input & INPUT_CALL_GRAPH)
573
    {
574
      cg = cg_assemble ();
575
    }
576
 
577
  /* Do some simple sanity checks.  */
578
  if ((output_style & STYLE_FLAT_PROFILE)
579
      && !(gmon_input & INPUT_HISTOGRAM))
580
    {
581
      fprintf (stderr, _("%s: gmon.out file is missing histogram\n"), whoami);
582
      done (1);
583
    }
584
 
585
  if ((output_style & STYLE_CALL_GRAPH) && !(gmon_input & INPUT_CALL_GRAPH))
586
    {
587
      fprintf (stderr,
588
               _("%s: gmon.out file is missing call-graph data\n"), whoami);
589
      done (1);
590
    }
591
 
592
  /* Output whatever user whishes to see.  */
593
  if (cg && (output_style & STYLE_CALL_GRAPH) && bsd_style_output)
594
    {
595
      /* Print the dynamic profile.  */
596
      cg_print (cg);
597
    }
598
 
599
  if (output_style & STYLE_FLAT_PROFILE)
600
    {
601
      /* Print the flat profile.  */
602
      hist_print ();
603
    }
604
 
605
  if (cg && (output_style & STYLE_CALL_GRAPH))
606
    {
607
      if (!bsd_style_output)
608
        {
609
          /* Print the dynamic profile.  */
610
          cg_print (cg);
611
        }
612
      cg_print_index ();
613
    }
614
 
615
  if (output_style & STYLE_EXEC_COUNTS)
616
    print_exec_counts ();
617
 
618
  if (output_style & STYLE_ANNOTATED_SOURCE)
619
    print_annotated_source ();
620
 
621
  if (output_style & STYLE_FUNCTION_ORDER)
622
    cg_print_function_ordering ();
623
 
624
  if (output_style & STYLE_FILE_ORDER)
625
    cg_print_file_ordering ();
626
 
627
  return 0;
628
}
629
 
630
void
631
done (int status)
632
{
633
  exit (status);
634
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.