OpenCores
URL https://opencores.org/ocsvn/open8_urisc/open8_urisc/trunk

Subversion Repositories open8_urisc

[/] [open8_urisc/] [trunk/] [gnu/] [binutils/] [gprof/] [gprof.c] - Blame information for rev 309

Go to most recent revision | Details | Compare with Previous | View Log

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

powered by: WebSVN 2.1.0

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