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