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