callgrind/clo.c

   1 /*
   2    This file is part of Callgrind, a Valgrind tool for call graph
   3    profiling programs.
   4
   5    Copyright (C) 2002-2017, Josef Weidendorfer (Josef.Weidendorfer@gmx.de)
   6
   7    This tool is derived from and contains lot of code from Cachegrind
   8    Copyright (C) 2002-2017 Nicholas Nethercote (njn@valgrind.org)
   9
  10    This program is free software; you can redistribute it and/or
  11    modify it under the terms of the GNU General Public License as
  12    published by the Free Software Foundation; either version 2 of the
  13    License, or (at your option) any later version.
  14
  15    This program is distributed in the hope that it will be useful, but
  16    WITHOUT ANY WARRANTY; without even the implied warranty of
  17    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18    General Public License for more details.
  19
  20    You should have received a copy of the GNU General Public License
  21    along with this program; if not, write to the Free Software
  22    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
  23    02111-1307, USA.
  24
  25    The GNU General Public License is contained in the file COPYING.
  26 */
  27
  28 #include "config.h" // for VG_PREFIX
  29
  30 #include "global.h"
  31
  32
  33
  34 /*------------------------------------------------------------*/
  35 /*--- Function specific configuration options              ---*/
  36 /*------------------------------------------------------------*/
  37
  38 /* Special value for separate_callers: automatic = adaptive */
  39 #define CONFIG_AUTO    -1
  40
  41 #define CONFIG_DEFAULT -1
  42 #define CONFIG_FALSE    0
  43 #define CONFIG_TRUE     1
  44
  45 /* Logging configuration for a function */
  46 struct _fn_config {
  47     Int dump_before;
  48     Int dump_after;
  49     Int zero_before;
  50     Int toggle_collect;
  51
  52     Int skip;    /* Handle CALL to this function as JMP (= Skip)? */
  53     Int group;   /* don't change caller dependency inside group !=0 */
  54     Int pop_on_jump;
  55
  56     Int separate_callers;    /* separate logging dependent on caller  */
  57     Int separate_recursions; /* separate logging of rec. levels       */
  58
  59 #if CLG_ENABLE_DEBUG
  60     Int verbosity; /* Change debug verbosity level while in function */
  61 #endif
  62 };
  63
  64 /* Configurations for function name prefix patterns.
  65  * Currently, only very limit patterns are possible:
  66  * Exact prefix patterns and "*::" are allowed.
  67  * E.g.
  68  *  - "abc" matches all functions starting with "abc".
  69  *  - "abc*::def" matches all functions starting with "abc" and
  70  *    starting with "def" after the first "::" separator.
  71  *  - "*::print(" matches C++ methods "print" in all classes
  72  *    without namespace. I.e. "*" doesn't match a "::".
  73  *
  74  * We build a trie from patterns, and for a given function, we
  75  * go down the tree and apply all non-default configurations.
  76  */
  77
  78
  79 #define NODE_DEGREE 30
  80
  81 /* node of compressed trie search structure */
  82 typedef struct _config_node config_node;
  83 struct _config_node {
  84   Int length;
  85
  86   fn_config* config;
  87   config_node* sub_node[NODE_DEGREE];
  88   config_node* next;
  89   config_node* wild_star;
  90   config_node* wild_char;
  91
  92   HChar name[1];
  93 };
  94
  95 /* root of trie */
  96 static config_node* fn_configs = 0;
  97
  98 static __inline__
  99 fn_config* new_fnc(void)
 100 {
 101    fn_config* fnc = (fn_config*) CLG_MALLOC("cl.clo.nf.1",
 102                                             sizeof(fn_config));
 103
 104    fnc->dump_before  = CONFIG_DEFAULT;
 105    fnc->dump_after   = CONFIG_DEFAULT;
 106    fnc->zero_before  = CONFIG_DEFAULT;
 107    fnc->toggle_collect = CONFIG_DEFAULT;
 108    fnc->skip         = CONFIG_DEFAULT;
 109    fnc->pop_on_jump  = CONFIG_DEFAULT;
 110    fnc->group        = CONFIG_DEFAULT;
 111    fnc->separate_callers    = CONFIG_DEFAULT;
 112    fnc->separate_recursions = CONFIG_DEFAULT;
 113
 114 #if CLG_ENABLE_DEBUG
 115    fnc->verbosity    = CONFIG_DEFAULT;
 116 #endif
 117
 118    return fnc;
 119 }
 120
 121
 122 static config_node* new_config(const HChar* name, int length)
 123 {
 124     int i;
 125     config_node* node = (config_node*) CLG_MALLOC("cl.clo.nc.1",
 126                                                   sizeof(config_node) + length);
 127
 128     for(i=0;i<length;i++) {
 129       if (name[i] == 0) break;
 130       node->name[i] = name[i];
 131     }
 132     node->name[i] = 0;
 133
 134     node->length = length;
 135     node->config = 0;
 136     for(i=0;i<NODE_DEGREE;i++)
 137         node->sub_node[i] = 0;
 138     node->next = 0;
 139     node->wild_char = 0;
 140     node->wild_star = 0;
 141
 142     CLG_DEBUG(3, "   new_config('%s', len %d)\n", node->name, length);
 143
 144     return node;
 145 }
 146
 147 static __inline__
 148 Bool is_wild(HChar n)
 149 {
 150   return (n == '*') || (n == '?');
 151 }
 152
 153 /* Recursively build up function matching tree (prefix tree).
 154  * Returns function config object for pattern <name>
 155  * and starting at tree node <*pnode>.
 156  *
 157  * Tree nodes (config_node) are created as needed,
 158  * tree root is stored into <*pnode>, and the created
 159  * leaf (fn_config) for the given pattern is returned.
 160  */
 161 static fn_config* get_fnc2(config_node* node, const HChar* name)
 162 {
 163   config_node *new_sub, *n, *nprev;
 164   int offset, len;
 165
 166   CLG_DEBUG(3, "  get_fnc2(%p, '%s')\n", node, name);
 167
 168   if (name[0] == 0) {
 169     if (!node->config) node->config = new_fnc();
 170     return node->config;
 171   }
 172
 173   if (is_wild(*name)) {
 174     if (*name == '*') {
 175       while(name[1] == '*') name++;
 176       new_sub = node->wild_star;
 177     }
 178     else
 179       new_sub = node->wild_char;
 180
 181     if (!new_sub) {
 182       new_sub = new_config(name, 1);
 183       if (*name == '*')
 184         node->wild_star = new_sub;
 185       else
 186         node->wild_char = new_sub;
 187     }
 188
 189     return get_fnc2( new_sub, name+1);
 190   }
 191
 192   n = node->sub_node[ name[0]%NODE_DEGREE ];
 193   nprev = 0;
 194   len = 0;
 195   while(n) {
 196     for(len=0; name[len] == n->name[len]; len++);
 197     if (len>0) break;
 198     nprev = n;
 199     n = n->next;
 200   }
 201
 202   if (!n) {
 203     len = 1;
 204     while(name[len] && (!is_wild(name[len]))) len++;
 205     new_sub = new_config(name, len);
 206     new_sub->next = node->sub_node[ name[0]%NODE_DEGREE ];
 207     node->sub_node[ name[0]%NODE_DEGREE ] = new_sub;
 208
 209     if (name[len] == 0) {
 210       new_sub->config = new_fnc();
 211       return new_sub->config;
 212     }
 213
 214     /* recurse on wildcard */
 215     return get_fnc2( new_sub, name+len);
 216   }
 217
 218   if (len < n->length) {
 219
 220     /* split up the subnode <n> */
 221     config_node *new_node;
 222     int i;
 223
 224     new_node = new_config(n->name, len);
 225     if (nprev)
 226       nprev->next = new_node;
 227     else
 228       node->sub_node[ n->name[0]%NODE_DEGREE ] = new_node;
 229     new_node->next = n->next;
 230
 231     new_node->sub_node[ n->name[len]%NODE_DEGREE ] = n;
 232
 233     for(i=0, offset=len; offset < n->length; i++, offset++)
 234       n->name[i] = n->name[offset];
 235     n->name[i] = 0;
 236     n->length = i;
 237
 238     name += len;
 239     offset = 0;
 240     while(name[offset] && (!is_wild(name[offset]))) offset++;
 241     new_sub  = new_config(name, offset);
 242     /* this sub_node of new_node could already be set: chain! */
 243     new_sub->next = new_node->sub_node[ name[0]%NODE_DEGREE ];
 244     new_node->sub_node[ name[0]%NODE_DEGREE ] = new_sub;
 245
 246     if (name[offset]==0) {
 247       new_sub->config = new_fnc();
 248       return new_sub->config;
 249     }
 250
 251     /* recurse on wildcard */
 252     return get_fnc2( new_sub, name+offset);
 253   }
 254
 255   name += n->length;
 256
 257   if (name[0] == 0) {
 258     /* name and node name are the same */
 259     if (!n->config) n->config = new_fnc();
 260     return n->config;
 261   }
 262
 263   offset = 1;
 264   while(name[offset] && (!is_wild(name[offset]))) offset++;
 265
 266   new_sub = new_config(name, offset);
 267   new_sub->next = n->sub_node[ name[0]%NODE_DEGREE ];
 268   n->sub_node[ name[0]%NODE_DEGREE ] = new_sub;
 269
 270   return get_fnc2(new_sub, name+offset);
 271 }
 272
 273 static void print_config_node(int depth, int hash, config_node* node)
 274 {
 275   config_node* n;
 276   int i;
 277
 278   if (node != fn_configs) {
 279     const HChar sp[] = "                                        ";
 280
 281     if (depth>40) depth=40;
 282     VG_(printf)("%s", sp+40-depth);
 283     if (hash >=0) VG_(printf)(" [hash %2d]", hash);
 284     else if (hash == -2) VG_(printf)(" [wildc ?]");
 285     else if (hash == -3) VG_(printf)(" [wildc *]");
 286     VG_(printf)(" '%s' (len %d)\n", node->name, node->length);
 287   }
 288   for(i=0;i<NODE_DEGREE;i++) {
 289     n = node->sub_node[i];
 290     while(n) {
 291       print_config_node(depth+1, i, n);
 292       n = n->next;
 293     }
 294   }
 295   if (node->wild_char) print_config_node(depth+1, -2, node->wild_char);
 296   if (node->wild_star) print_config_node(depth+1, -3, node->wild_star);
 297 }
 298
 299 /* get a function config for a name pattern (from command line) */
 300 static fn_config* get_fnc(const HChar* name)
 301 {
 302   fn_config* fnc;
 303
 304   CLG_DEBUG(3, " +get_fnc(%s)\n", name);
 305   if (fn_configs == 0)
 306     fn_configs = new_config(name, 0);
 307   fnc =  get_fnc2(fn_configs, name);
 308
 309   CLG_DEBUGIF(3) {
 310     CLG_DEBUG(3, " -get_fnc(%s):\n", name);
 311     print_config_node(3, -1, fn_configs);
 312   }
 313   return fnc;
 314 }
 315
 316
 317
 318 static void update_fn_config1(fn_node* fn, fn_config* fnc)
 319 {
 320     if (fnc->dump_before != CONFIG_DEFAULT)
 321         fn->dump_before = (fnc->dump_before == CONFIG_TRUE);
 322
 323     if (fnc->dump_after != CONFIG_DEFAULT)
 324         fn->dump_after = (fnc->dump_after == CONFIG_TRUE);
 325
 326     if (fnc->zero_before != CONFIG_DEFAULT)
 327         fn->zero_before = (fnc->zero_before == CONFIG_TRUE);
 328
 329     if (fnc->toggle_collect != CONFIG_DEFAULT)
 330         fn->toggle_collect = (fnc->toggle_collect == CONFIG_TRUE);
 331
 332     if (fnc->skip != CONFIG_DEFAULT)
 333         fn->skip = (fnc->skip == CONFIG_TRUE);
 334
 335     if (fnc->pop_on_jump != CONFIG_DEFAULT)
 336         fn->pop_on_jump = (fnc->pop_on_jump == CONFIG_TRUE);
 337
 338     if (fnc->group != CONFIG_DEFAULT)
 339         fn->group = fnc->group;
 340
 341     if (fnc->separate_callers != CONFIG_DEFAULT)
 342         fn->separate_callers = fnc->separate_callers;
 343
 344     if (fnc->separate_recursions != CONFIG_DEFAULT)
 345         fn->separate_recursions = fnc->separate_recursions;
 346
 347 #if CLG_ENABLE_DEBUG
 348     if (fnc->verbosity != CONFIG_DEFAULT)
 349         fn->verbosity = fnc->verbosity;
 350 #endif
 351 }
 352
 353 /* Recursively go down the function matching tree,
 354  * looking for a match to <name>. For every matching leaf,
 355  * <fn> is updated with the pattern config.
 356  */
 357 static void update_fn_config2(fn_node* fn, const HChar* name,
 358                               config_node* node)
 359 {
 360     config_node* n;
 361
 362     CLG_DEBUG(3, "  update_fn_config2('%s', node '%s'): \n",
 363              name, node->name);
 364     if ((*name == 0) && node->config) {
 365       CLG_DEBUG(3, "   found!\n");
 366       update_fn_config1(fn, node->config);
 367       return;
 368     }
 369
 370     n = node->sub_node[ name[0]%NODE_DEGREE ];
 371     while(n) {
 372       if (VG_(strncmp)(name, n->name, n->length)==0) break;
 373       n = n->next;
 374     }
 375     if (n) {
 376         CLG_DEBUG(3, "   '%s' matching at hash %d\n",
 377                   n->name, name[0]%NODE_DEGREE);
 378         update_fn_config2(fn, name+n->length, n);
 379     }
 380
 381     if (node->wild_char) {
 382         CLG_DEBUG(3, "   skip '%c' for wildcard '?'\n", *name);
 383         update_fn_config2(fn, name+1, node->wild_char);
 384     }
 385
 386     if (node->wild_star) {
 387       CLG_DEBUG(3, "   wildcard '*'\n");
 388       while(*name) {
 389         update_fn_config2(fn, name, node->wild_star);
 390         name++;
 391       }
 392       update_fn_config2(fn, name, node->wild_star);
 393     }
 394 }
 395
 396 /* Update function config according to configs of name prefixes */
 397 void CLG_(update_fn_config)(fn_node* fn)
 398 {
 399     CLG_DEBUG(3, "  update_fn_config('%s')\n", fn->name);
 400     if (fn_configs)
 401       update_fn_config2(fn, fn->name, fn_configs);
 402 }
 403
 404
 405 /*--------------------------------------------------------------------*/
 406 /*--- Command line processing                                      ---*/
 407 /*--------------------------------------------------------------------*/
 408
 409 Bool CLG_(process_cmd_line_option)(const HChar* arg)
 410 {
 411    const HChar* tmp_str;
 412
 413    if      VG_BOOL_CLO(arg, "--skip-plt", CLG_(clo).skip_plt) {}
 414
 415    else if VG_BOOL_CLO(arg, "--collect-jumps", CLG_(clo).collect_jumps) {}
 416    /* compatibility alias, deprecated option */
 417    else if VG_BOOL_CLO(arg, "--trace-jump",    CLG_(clo).collect_jumps) {}
 418
 419    else if VG_BOOL_CLO(arg, "--combine-dumps", CLG_(clo).combine_dumps) {}
 420
 421    else if VG_BOOL_CLO(arg, "--collect-atstart", CLG_(clo).collect_atstart) {}
 422
 423    else if VG_BOOL_CLO(arg, "--instr-atstart", CLG_(clo).instrument_atstart) {}
 424
 425    else if VG_BOOL_CLO(arg, "--separate-threads", CLG_(clo).separate_threads) {}
 426
 427    else if VG_BOOL_CLO(arg, "--compress-strings", CLG_(clo).compress_strings) {}
 428    else if VG_BOOL_CLO(arg, "--compress-mangled", CLG_(clo).compress_mangled) {}
 429    else if VG_BOOL_CLO(arg, "--compress-pos",     CLG_(clo).compress_pos) {}
 430
 431    else if VG_STR_CLO(arg, "--fn-skip", tmp_str) {
 432        fn_config* fnc = get_fnc(tmp_str);
 433        fnc->skip = CONFIG_TRUE;
 434    }
 435
 436    else if VG_STR_CLO(arg, "--dump-before", tmp_str) {
 437        fn_config* fnc = get_fnc(tmp_str);
 438        fnc->dump_before = CONFIG_TRUE;
 439    }
 440
 441    else if VG_STR_CLO(arg, "--zero-before", tmp_str) {
 442        fn_config* fnc = get_fnc(tmp_str);
 443        fnc->zero_before = CONFIG_TRUE;
 444    }
 445
 446    else if VG_STR_CLO(arg, "--dump-after", tmp_str) {
 447        fn_config* fnc = get_fnc(tmp_str);
 448        fnc->dump_after = CONFIG_TRUE;
 449    }
 450
 451    else if VG_STR_CLO(arg, "--toggle-collect", tmp_str) {
 452        fn_config* fnc = get_fnc(tmp_str);
 453        fnc->toggle_collect = CONFIG_TRUE;
 454        /* defaults to initial collection off */
 455        CLG_(clo).collect_atstart = False;
 456    }
 457
 458    else if VG_INT_CLO(arg, "--separate-recs", CLG_(clo).separate_recursions) {}
 459
 460    /* change handling of a jump between functions to ret+call */
 461    else if VG_XACT_CLO(arg, "--pop-on-jump", CLG_(clo).pop_on_jump, True) {}
 462    else if VG_STR_CLO( arg, "--pop-on-jump", tmp_str) {
 463        fn_config* fnc = get_fnc(tmp_str);
 464        fnc->pop_on_jump = CONFIG_TRUE;
 465    }
 466
 467 #if CLG_ENABLE_DEBUG
 468    else if VG_INT_CLO(arg, "--ct-verbose", CLG_(clo).verbose) {}
 469    else if VG_INT_CLO(arg, "--ct-vstart",  CLG_(clo).verbose_start) {}
 470
 471    else if VG_STREQN(12, arg, "--ct-verbose") {
 472        fn_config* fnc;
 473        HChar* s;
 474        UInt n = VG_(strtoll10)(arg+12, &s);
 475        if ((n <= 0) || *s != '=') return False;
 476        fnc = get_fnc(s+1);
 477        fnc->verbosity = n;
 478    }
 479 #endif
 480
 481    else if VG_XACT_CLO(arg, "--separate-callers=auto",
 482                             CLG_(clo).separate_callers, CONFIG_AUTO) {}
 483    else if VG_INT_CLO( arg, "--separate-callers",
 484                             CLG_(clo).separate_callers) {}
 485
 486    else if VG_STREQN(10, arg, "--fn-group") {
 487        fn_config* fnc;
 488        HChar* s;
 489        UInt n = VG_(strtoll10)(arg+10, &s);
 490        if ((n <= 0) || *s != '=') return False;
 491        fnc = get_fnc(s+1);
 492        fnc->group = n;
 493    }
 494
 495    else if VG_STREQN(18, arg, "--separate-callers") {
 496        fn_config* fnc;
 497        HChar* s;
 498        UInt n = VG_(strtoll10)(arg+18, &s);
 499        if ((n <= 0) || *s != '=') return False;
 500        fnc = get_fnc(s+1);
 501        fnc->separate_callers = n;
 502    }
 503
 504    else if VG_STREQN(15, arg, "--separate-recs") {
 505        fn_config* fnc;
 506        HChar* s;
 507        UInt n = VG_(strtoll10)(arg+15, &s);
 508        if ((n <= 0) || *s != '=') return False;
 509        fnc = get_fnc(s+1);
 510        fnc->separate_recursions = n;
 511    }
 512
 513    else if VG_STR_CLO(arg, "--callgrind-out-file", CLG_(clo).out_format) {}
 514
 515    else if VG_BOOL_CLO(arg, "--mangle-names", CLG_(clo).mangle_names) {}
 516
 517    else if VG_BOOL_CLO(arg, "--skip-direct-rec",
 518                             CLG_(clo).skip_direct_recursion) {}
 519
 520    else if VG_BOOL_CLO(arg, "--dump-bbs",   CLG_(clo).dump_bbs) {}
 521    else if VG_BOOL_CLO(arg, "--dump-line",  CLG_(clo).dump_line) {}
 522    else if VG_BOOL_CLO(arg, "--dump-instr", CLG_(clo).dump_instr) {}
 523    else if VG_BOOL_CLO(arg, "--dump-bb",    CLG_(clo).dump_bb) {}
 524
 525    else if VG_INT_CLO( arg, "--dump-every-bb", CLG_(clo).dump_every_bb) {}
 526
 527    else if VG_BOOL_CLO(arg, "--collect-alloc",   CLG_(clo).collect_alloc) {}
 528    else if VG_BOOL_CLO(arg, "--collect-systime", CLG_(clo).collect_systime) {}
 529    else if VG_BOOL_CLO(arg, "--collect-bus",     CLG_(clo).collect_bus) {}
 530    /* for option compatibility with cachegrind */
 531    else if VG_BOOL_CLO(arg, "--cache-sim",       CLG_(clo).simulate_cache) {}
 532    /* compatibility alias, deprecated option */
 533    else if VG_BOOL_CLO(arg, "--simulate-cache",  CLG_(clo).simulate_cache) {}
 534    /* for option compatibility with cachegrind */
 535    else if VG_BOOL_CLO(arg, "--branch-sim",      CLG_(clo).simulate_branch) {}
 536    else {
 537        Bool isCachesimOption = (*CLG_(cachesim).parse_opt)(arg);
 538
 539        /* cache simulator is used if a simulator option is given */
 540        if (isCachesimOption)
 541            CLG_(clo).simulate_cache = True;
 542
 543        return isCachesimOption;
 544    }
 545
 546    return True;
 547 }
 548
 549 void CLG_(print_usage)(void)
 550 {
 551    VG_(printf)(
 552 "\n   dump creation options:\n"
 553 "    --callgrind-out-file=<f>  Output file name [callgrind.out.%%p]\n"
 554 "    --dump-line=no|yes        Dump source lines of costs? [yes]\n"
 555 "    --dump-instr=no|yes       Dump instruction address of costs? [no]\n"
 556 "    --compress-strings=no|yes Compress strings in profile dump? [yes]\n"
 557 "    --compress-pos=no|yes     Compress positions in profile dump? [yes]\n"
 558 "    --combine-dumps=no|yes    Concat all dumps into same file [no]\n"
 559 #if CLG_EXPERIMENTAL
 560 "    --compress-events=no|yes  Compress events in profile dump? [no]\n"
 561 "    --dump-bb=no|yes          Dump basic block address of costs? [no]\n"
 562 "    --dump-bbs=no|yes         Dump basic block info? [no]\n"
 563 "    --dump-skipped=no|yes     Dump info on skipped functions in calls? [no]\n"
 564 "    --mangle-names=no|yes     Mangle separation into names? [yes]\n"
 565 #endif
 566
 567 "\n   activity options (for interactivity use callgrind_control):\n"
 568 "    --dump-every-bb=<count>   Dump every <count> basic blocks [0=never]\n"
 569 "    --dump-before=<func>      Dump when entering function\n"
 570 "    --zero-before=<func>      Zero all costs when entering function\n"
 571 "    --dump-after=<func>       Dump when leaving function\n"
 572 #if CLG_EXPERIMENTAL
 573 "    --dump-objs=no|yes        Dump static object information [no]\n"
 574 #endif
 575
 576 "\n   data collection options:\n"
 577 "    --instr-atstart=no|yes    Do instrumentation at callgrind start [yes]\n"
 578 "    --collect-atstart=no|yes  Collect at process/thread start [yes]\n"
 579 "    --toggle-collect=<func>   Toggle collection on enter/leave function\n"
 580 "    --collect-jumps=no|yes    Collect jumps? [no]\n"
 581 "    --collect-bus=no|yes      Collect global bus events? [no]\n"
 582 #if CLG_EXPERIMENTAL
 583 "    --collect-alloc=no|yes    Collect memory allocation info? [no]\n"
 584 #endif
 585 "    --collect-systime=no|yes  Collect system call time info? [no]\n"
 586
 587 "\n   cost entity separation options:\n"
 588 "    --separate-threads=no|yes Separate data per thread [no]\n"
 589 "    --separate-callers=<n>    Separate functions by call chain length [0]\n"
 590 "    --separate-callers<n>=<f> Separate <n> callers for function <f>\n"
 591 "    --separate-recs=<n>       Separate function recursions up to level [2]\n"
 592 "    --separate-recs<n>=<f>    Separate <n> recursions for function <f>\n"
 593 "    --skip-plt=no|yes         Ignore calls to/from PLT sections? [yes]\n"
 594 "    --skip-direct-rec=no|yes  Ignore direct recursions? [yes]\n"
 595 "    --fn-skip=<function>      Ignore calls to/from function?\n"
 596 #if CLG_EXPERIMENTAL
 597 "    --fn-group<no>=<func>     Put function into separation group <no>\n"
 598 #endif
 599 "\n   simulation options:\n"
 600 "    --branch-sim=no|yes       Do branch prediction simulation [no]\n"
 601 "    --cache-sim=no|yes        Do cache simulation [no]\n"
 602     );
 603
 604    (*CLG_(cachesim).print_opts)();
 605
 606 //   VG_(printf)("\n"
 607 //             "  For full callgrind documentation, see\n"
 608 //             "  "VG_PREFIX"/share/doc/callgrind/html/callgrind.html\n\n");
 609 }
 610
 611 void CLG_(print_debug_usage)(void)
 612 {
 613     VG_(printf)(
 614
 615 #if CLG_ENABLE_DEBUG
 616 "    --ct-verbose=<level>       Verbosity of standard debug output [0]\n"
 617 "    --ct-vstart=<BB number>    Only be verbose after basic block [0]\n"
 618 "    --ct-verbose<level>=<func> Verbosity while in <func>\n"
 619 #else
 620 "    (none)\n"
 621 #endif
 622
 623     );
 624 }
 625
 626
 627 void CLG_(set_clo_defaults)(void)
 628 {
 629   /* Default values for command line arguments */
 630
 631   /* dump options */
 632   CLG_(clo).out_format       = 0;
 633   CLG_(clo).combine_dumps    = False;
 634   CLG_(clo).compress_strings = True;
 635   CLG_(clo).compress_mangled = False;
 636   CLG_(clo).compress_events  = False;
 637   CLG_(clo).compress_pos     = True;
 638   CLG_(clo).mangle_names     = True;
 639   CLG_(clo).dump_line        = True;
 640   CLG_(clo).dump_instr       = False;
 641   CLG_(clo).dump_bb          = False;
 642   CLG_(clo).dump_bbs         = False;
 643
 644   CLG_(clo).dump_every_bb    = 0;
 645
 646   /* Collection */
 647   CLG_(clo).separate_threads = False;
 648   CLG_(clo).collect_atstart  = True;
 649   CLG_(clo).collect_jumps    = False;
 650   CLG_(clo).collect_alloc    = False;
 651   CLG_(clo).collect_systime  = False;
 652   CLG_(clo).collect_bus      = False;
 653
 654   CLG_(clo).skip_plt         = True;
 655   CLG_(clo).separate_callers = 0;
 656   CLG_(clo).separate_recursions = 2;
 657   CLG_(clo).skip_direct_recursion = False;
 658
 659   /* Instrumentation */
 660   CLG_(clo).instrument_atstart = True;
 661   CLG_(clo).simulate_cache = False;
 662   CLG_(clo).simulate_branch = False;
 663
 664   /* Call graph */
 665   CLG_(clo).pop_on_jump = False;
 666
 667 #if CLG_ENABLE_DEBUG
 668   CLG_(clo).verbose = 0;
 669   CLG_(clo).verbose_start = 0;
 670 #endif
 671 }