mirror of
https://github.com/Zenithsiz/ftmemsim-valgrind.git
synced 2026-02-05 19:13:46 +00:00
772 lines
22 KiB
C
772 lines
22 KiB
C
/*
|
|
This file is part of Callgrind, a Valgrind tool for call graph
|
|
profiling programs.
|
|
|
|
Copyright (C) 2002-2008, Josef Weidendorfer (Josef.Weidendorfer@gmx.de)
|
|
|
|
This tool is derived from and contains lot of code from Cachegrind
|
|
Copyright (C) 2002 Nicholas Nethercote (njn@valgrind.org)
|
|
|
|
This program is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU General Public License as
|
|
published by the Free Software Foundation; either version 2 of the
|
|
License, or (at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful, but
|
|
WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
|
|
02111-1307, USA.
|
|
|
|
The GNU General Public License is contained in the file COPYING.
|
|
*/
|
|
|
|
#include "config.h" // for VG_PREFIX
|
|
|
|
#include "global.h"
|
|
|
|
|
|
|
|
/*------------------------------------------------------------*/
|
|
/*--- Function specific configuration options ---*/
|
|
/*------------------------------------------------------------*/
|
|
|
|
/* Special value for separate_callers: automatic = adaptive */
|
|
#define CONFIG_AUTO -1
|
|
|
|
#define CONFIG_DEFAULT -1
|
|
#define CONFIG_FALSE 0
|
|
#define CONFIG_TRUE 1
|
|
|
|
/* Logging configuration for a function */
|
|
struct _fn_config {
|
|
Int dump_before;
|
|
Int dump_after;
|
|
Int zero_before;
|
|
Int toggle_collect;
|
|
|
|
Int skip; /* Handle CALL to this function as JMP (= Skip)? */
|
|
Int group; /* don't change caller dependency inside group !=0 */
|
|
Int pop_on_jump;
|
|
|
|
Int separate_callers; /* separate logging dependent on caller */
|
|
Int separate_recursions; /* separate logging of rec. levels */
|
|
|
|
#if CLG_ENABLE_DEBUG
|
|
Int verbosity; /* Change debug verbosity level while in function */
|
|
#endif
|
|
};
|
|
|
|
/* Configurations for function name prefix patterns.
|
|
* Currently, only very limit patterns are possible:
|
|
* Exact prefix patterns and "*::" are allowed.
|
|
* E.g.
|
|
* - "abc" matches all functions starting with "abc".
|
|
* - "abc*::def" matches all functions starting with "abc" and
|
|
* starting with "def" after the first "::" separator.
|
|
* - "*::print(" matches C++ methods "print" in all classes
|
|
* without namespace. I.e. "*" doesn't match a "::".
|
|
*
|
|
* We build a trie from patterns, and for a given function, we
|
|
* go down the tree and apply all non-default configurations.
|
|
*/
|
|
|
|
|
|
#define NODE_DEGREE 30
|
|
|
|
/* node of compressed trie search structure */
|
|
typedef struct _config_node config_node;
|
|
struct _config_node {
|
|
Int length;
|
|
|
|
fn_config* config;
|
|
config_node* sub_node[NODE_DEGREE];
|
|
config_node* next;
|
|
config_node* wild_star;
|
|
config_node* wild_char;
|
|
|
|
Char name[1];
|
|
};
|
|
|
|
/* root of trie */
|
|
static config_node* fn_configs = 0;
|
|
|
|
static __inline__
|
|
fn_config* new_fnc(void)
|
|
{
|
|
fn_config* new = (fn_config*) CLG_MALLOC(sizeof(fn_config));
|
|
|
|
new->dump_before = CONFIG_DEFAULT;
|
|
new->dump_after = CONFIG_DEFAULT;
|
|
new->zero_before = CONFIG_DEFAULT;
|
|
new->toggle_collect = CONFIG_DEFAULT;
|
|
new->skip = CONFIG_DEFAULT;
|
|
new->pop_on_jump = CONFIG_DEFAULT;
|
|
new->group = CONFIG_DEFAULT;
|
|
new->separate_callers = CONFIG_DEFAULT;
|
|
new->separate_recursions = CONFIG_DEFAULT;
|
|
|
|
#if CLG_ENABLE_DEBUG
|
|
new->verbosity = CONFIG_DEFAULT;
|
|
#endif
|
|
|
|
return new;
|
|
}
|
|
|
|
|
|
static config_node* new_config(Char* name, int length)
|
|
{
|
|
int i;
|
|
config_node* node = (config_node*) CLG_MALLOC(sizeof(config_node) + length);
|
|
|
|
for(i=0;i<length;i++) {
|
|
if (name[i] == 0) break;
|
|
node->name[i] = name[i];
|
|
}
|
|
node->name[i] = 0;
|
|
|
|
node->length = length;
|
|
node->config = 0;
|
|
for(i=0;i<NODE_DEGREE;i++)
|
|
node->sub_node[i] = 0;
|
|
node->next = 0;
|
|
node->wild_char = 0;
|
|
node->wild_star = 0;
|
|
|
|
CLG_DEBUG(3, " new_config('%s', len %d)\n", node->name, length);
|
|
|
|
return node;
|
|
}
|
|
|
|
static __inline__
|
|
Bool is_wild(Char n)
|
|
{
|
|
return (n == '*') || (n == '?');
|
|
}
|
|
|
|
/* Recursively build up function matching tree (prefix tree).
|
|
* Returns function config object for pattern <name>
|
|
* and starting at tree node <*pnode>.
|
|
*
|
|
* Tree nodes (config_node) are created as needed,
|
|
* tree root is stored into <*pnode>, and the created
|
|
* leaf (fn_config) for the given pattern is returned.
|
|
*/
|
|
static fn_config* get_fnc2(config_node* node, Char* name)
|
|
{
|
|
config_node *new_sub, *n, *nprev;
|
|
int offset, len;
|
|
|
|
CLG_DEBUG(3, " get_fnc2(%p, '%s')\n", node, name);
|
|
|
|
if (name[0] == 0) {
|
|
if (!node->config) node->config = new_fnc();
|
|
return node->config;
|
|
}
|
|
|
|
if (is_wild(*name)) {
|
|
if (*name == '*') {
|
|
while(name[1] == '*') name++;
|
|
new_sub = node->wild_star;
|
|
}
|
|
else
|
|
new_sub = node->wild_char;
|
|
|
|
if (!new_sub) {
|
|
new_sub = new_config(name, 1);
|
|
if (*name == '*')
|
|
node->wild_star = new_sub;
|
|
else
|
|
node->wild_char = new_sub;
|
|
}
|
|
|
|
return get_fnc2( new_sub, name+1);
|
|
}
|
|
|
|
n = node->sub_node[ name[0]%NODE_DEGREE ];
|
|
nprev = 0;
|
|
len = 0;
|
|
while(n) {
|
|
for(len=0; name[len] == n->name[len]; len++);
|
|
if (len>0) break;
|
|
nprev = n;
|
|
n = n->next;
|
|
}
|
|
|
|
if (!n) {
|
|
len = 1;
|
|
while(name[len] && (!is_wild(name[len]))) len++;
|
|
new_sub = new_config(name, len);
|
|
new_sub->next = node->sub_node[ name[0]%NODE_DEGREE ];
|
|
node->sub_node[ name[0]%NODE_DEGREE ] = new_sub;
|
|
|
|
if (name[len] == 0) {
|
|
new_sub->config = new_fnc();
|
|
return new_sub->config;
|
|
}
|
|
|
|
/* recurse on wildcard */
|
|
return get_fnc2( new_sub, name+len);
|
|
}
|
|
|
|
if (len < n->length) {
|
|
|
|
/* split up the subnode <n> */
|
|
config_node *new_node;
|
|
int i;
|
|
|
|
new_node = new_config(n->name, len);
|
|
if (nprev)
|
|
nprev->next = new_node;
|
|
else
|
|
node->sub_node[ n->name[0]%NODE_DEGREE ] = new_node;
|
|
new_node->next = n->next;
|
|
|
|
new_node->sub_node[ n->name[len]%NODE_DEGREE ] = n;
|
|
|
|
for(i=0, offset=len; offset < n->length; i++, offset++)
|
|
n->name[i] = n->name[offset];
|
|
n->name[i] = 0;
|
|
n->length = i;
|
|
|
|
name += len;
|
|
offset = 0;
|
|
while(name[offset] && (!is_wild(name[offset]))) offset++;
|
|
new_sub = new_config(name, offset);
|
|
/* this sub_node of new_node could already be set: chain! */
|
|
new_sub->next = new_node->sub_node[ name[0]%NODE_DEGREE ];
|
|
new_node->sub_node[ name[0]%NODE_DEGREE ] = new_sub;
|
|
|
|
if (name[offset]==0) {
|
|
new_sub->config = new_fnc();
|
|
return new_sub->config;
|
|
}
|
|
|
|
/* recurse on wildcard */
|
|
return get_fnc2( new_sub, name+offset);
|
|
}
|
|
|
|
name += n->length;
|
|
|
|
if (name[0] == 0) {
|
|
/* name and node name are the same */
|
|
if (!n->config) n->config = new_fnc();
|
|
return n->config;
|
|
}
|
|
|
|
offset = 1;
|
|
while(name[offset] && (!is_wild(name[offset]))) offset++;
|
|
|
|
new_sub = new_config(name, offset);
|
|
new_sub->next = n->sub_node[ name[offset]%NODE_DEGREE ];
|
|
n->sub_node[ name[offset]%NODE_DEGREE ] = new_sub;
|
|
|
|
return get_fnc2(new_sub, name+offset);
|
|
}
|
|
|
|
static void print_config_node(int s, config_node* node)
|
|
{
|
|
config_node* n;
|
|
int i;
|
|
|
|
if (node != fn_configs) {
|
|
char sp[] = " ";
|
|
|
|
if (s>40) s=40;
|
|
VG_(printf)(sp+40-s);
|
|
VG_(printf)("'%s'/%d\n", node->name, node->length);
|
|
}
|
|
for(i=0;i<NODE_DEGREE;i++) {
|
|
n = node->sub_node[i];
|
|
while(n) {
|
|
print_config_node(s+1, n);
|
|
n = n->next;
|
|
}
|
|
}
|
|
if (node->wild_char) print_config_node(s+1, node->wild_char);
|
|
if (node->wild_star) print_config_node(s+1, node->wild_star);
|
|
}
|
|
|
|
/* get a function config for a name pattern (from command line) */
|
|
static fn_config* get_fnc(Char* name)
|
|
{
|
|
fn_config* fnc;
|
|
|
|
CLG_DEBUG(3, " +get_fnc(%s)\n", name);
|
|
if (fn_configs == 0)
|
|
fn_configs = new_config(name, 0);
|
|
fnc = get_fnc2(fn_configs, name);
|
|
|
|
CLG_DEBUGIF(3) {
|
|
CLG_DEBUG(3, " -get_fnc(%s):\n", name);
|
|
print_config_node(3, fn_configs);
|
|
}
|
|
return fnc;
|
|
}
|
|
|
|
|
|
|
|
static void update_fn_config1(fn_node* fn, fn_config* fnc)
|
|
{
|
|
if (fnc->dump_before != CONFIG_DEFAULT)
|
|
fn->dump_before = (fnc->dump_before == CONFIG_TRUE);
|
|
|
|
if (fnc->dump_after != CONFIG_DEFAULT)
|
|
fn->dump_after = (fnc->dump_after == CONFIG_TRUE);
|
|
|
|
if (fnc->zero_before != CONFIG_DEFAULT)
|
|
fn->zero_before = (fnc->zero_before == CONFIG_TRUE);
|
|
|
|
if (fnc->toggle_collect != CONFIG_DEFAULT)
|
|
fn->toggle_collect = (fnc->toggle_collect == CONFIG_TRUE);
|
|
|
|
if (fnc->skip != CONFIG_DEFAULT)
|
|
fn->skip = (fnc->skip == CONFIG_TRUE);
|
|
|
|
if (fnc->pop_on_jump != CONFIG_DEFAULT)
|
|
fn->pop_on_jump = (fnc->pop_on_jump == CONFIG_TRUE);
|
|
|
|
if (fnc->group != CONFIG_DEFAULT)
|
|
fn->group = fnc->group;
|
|
|
|
if (fnc->separate_callers != CONFIG_DEFAULT)
|
|
fn->separate_callers = fnc->separate_callers;
|
|
|
|
if (fnc->separate_recursions != CONFIG_DEFAULT)
|
|
fn->separate_recursions = fnc->separate_recursions;
|
|
|
|
#if CLG_ENABLE_DEBUG
|
|
if (fnc->verbosity != CONFIG_DEFAULT)
|
|
fn->verbosity = fnc->verbosity;
|
|
#endif
|
|
}
|
|
|
|
/* Recursively go down the function matching tree,
|
|
* looking for a match to <name>. For every matching leaf,
|
|
* <fn> is updated with the pattern config.
|
|
*/
|
|
static void update_fn_config2(fn_node* fn, Char* name, config_node* node)
|
|
{
|
|
config_node* n;
|
|
|
|
CLG_DEBUG(3, " update_fn_config2('%s', node '%s'): \n",
|
|
name, node->name);
|
|
if ((*name == 0) && node->config) {
|
|
CLG_DEBUG(3, "Found!\n");
|
|
update_fn_config1(fn, node->config);
|
|
return;
|
|
}
|
|
|
|
n = node->sub_node[ name[0]%NODE_DEGREE ];
|
|
while(n) {
|
|
if (VG_(strncmp)(name, n->name, n->length)==0) break;
|
|
n = n->next;
|
|
}
|
|
if (n) update_fn_config2(fn, name+n->length, n);
|
|
|
|
if (node->wild_char)
|
|
update_fn_config2(fn, name+1, node->wild_char);
|
|
|
|
if (node->wild_star) {
|
|
while(*name) {
|
|
update_fn_config2(fn, name, node->wild_star);
|
|
name++;
|
|
}
|
|
update_fn_config2(fn, name, node->wild_star);
|
|
}
|
|
}
|
|
|
|
/* Update function config according to configs of name prefixes */
|
|
void CLG_(update_fn_config)(fn_node* fn)
|
|
{
|
|
CLG_DEBUG(3, " update_fn_config('%s')\n", fn->name);
|
|
if (fn_configs)
|
|
update_fn_config2(fn, fn->name, fn_configs);
|
|
}
|
|
|
|
|
|
/*--------------------------------------------------------------------*/
|
|
/*--- Command line processing ---*/
|
|
/*--------------------------------------------------------------------*/
|
|
|
|
static Char* getUInt(Char* s, UInt* pn)
|
|
{
|
|
UInt n = 0;
|
|
while((*s >='0') && (*s <='9')) {
|
|
n = 10*n + (*s-'0');
|
|
s++;
|
|
}
|
|
if (pn) *pn = n;
|
|
return s;
|
|
}
|
|
|
|
__attribute__((unused))
|
|
static UWord getUWord(Char* s)
|
|
{
|
|
UWord n = 0;
|
|
Bool isHex = False;
|
|
|
|
if ((s[0] == '0') && (s[1] == 'x')) {
|
|
isHex = True;
|
|
s += 2;
|
|
}
|
|
|
|
if (!isHex) {
|
|
while((*s >='0') && (*s <='9')) {
|
|
n = 10*n + (*s-'0');
|
|
s++;
|
|
}
|
|
}
|
|
else {
|
|
while(1) {
|
|
if ((*s >='0') && (*s <='9')) {
|
|
n = 16*n + (*s-'0');
|
|
s++;
|
|
continue;
|
|
}
|
|
if ((*s >='a') && (*s <='f')) {
|
|
n = 16*n + (*s-'a'+10);
|
|
s++;
|
|
continue;
|
|
}
|
|
if ((*s >='A') && (*s <='F')) {
|
|
n = 16*n + (*s-'A'+10);
|
|
s++;
|
|
continue;
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
|
|
return n;
|
|
}
|
|
|
|
Bool CLG_(process_cmd_line_option)(Char* arg)
|
|
{
|
|
if (0 == VG_(strcmp)(arg, "--skip-plt=yes"))
|
|
CLG_(clo).skip_plt = True;
|
|
else if (0 == VG_(strcmp)(arg, "--skip-plt=no"))
|
|
CLG_(clo).skip_plt = False;
|
|
|
|
else if (0 == VG_(strcmp)(arg, "--collect-jumps=yes"))
|
|
CLG_(clo).collect_jumps = True;
|
|
else if (0 == VG_(strcmp)(arg, "--collect-jumps=no"))
|
|
CLG_(clo).collect_jumps = False;
|
|
/* compatibility alias, deprecated option */
|
|
else if (0 == VG_(strcmp)(arg, "--trace-jump=yes"))
|
|
CLG_(clo).collect_jumps = True;
|
|
else if (0 == VG_(strcmp)(arg, "--trace-jump=no"))
|
|
CLG_(clo).collect_jumps = False;
|
|
|
|
else if (0 == VG_(strcmp)(arg, "--combine-dumps=yes"))
|
|
CLG_(clo).combine_dumps = True;
|
|
else if (0 == VG_(strcmp)(arg, "--combine-dumps=no"))
|
|
CLG_(clo).combine_dumps = False;
|
|
|
|
else if (0 == VG_(strcmp)(arg, "--collect-atstart=yes"))
|
|
CLG_(clo).collect_atstart = True;
|
|
else if (0 == VG_(strcmp)(arg, "--collect-atstart=no"))
|
|
CLG_(clo).collect_atstart = False;
|
|
|
|
else if (0 == VG_(strcmp)(arg, "--instr-atstart=yes"))
|
|
CLG_(clo).instrument_atstart = True;
|
|
else if (0 == VG_(strcmp)(arg, "--instr-atstart=no"))
|
|
CLG_(clo).instrument_atstart = False;
|
|
|
|
else if (0 == VG_(strcmp)(arg, "--separate-threads=yes"))
|
|
CLG_(clo).separate_threads = True;
|
|
else if (0 == VG_(strcmp)(arg, "--separate-threads=no"))
|
|
CLG_(clo).separate_threads = False;
|
|
|
|
else if (0 == VG_(strcmp)(arg, "--compress-strings=yes"))
|
|
CLG_(clo).compress_strings = True;
|
|
else if (0 == VG_(strcmp)(arg, "--compress-strings=no"))
|
|
CLG_(clo).compress_strings = False;
|
|
|
|
else if (0 == VG_(strcmp)(arg, "--compress-mangled=yes"))
|
|
CLG_(clo).compress_mangled = True;
|
|
else if (0 == VG_(strcmp)(arg, "--compress-mangled=no"))
|
|
CLG_(clo).compress_mangled = False;
|
|
|
|
else if (0 == VG_(strcmp)(arg, "--compress-pos=yes"))
|
|
CLG_(clo).compress_pos = True;
|
|
else if (0 == VG_(strcmp)(arg, "--compress-pos=no"))
|
|
CLG_(clo).compress_pos = False;
|
|
|
|
else if (0 == VG_(strncmp)(arg, "--fn-skip=", 10)) {
|
|
fn_config* fnc = get_fnc(arg+10);
|
|
fnc->skip = CONFIG_TRUE;
|
|
}
|
|
|
|
else if (0 == VG_(strncmp)(arg, "--dump-before=", 14)) {
|
|
fn_config* fnc = get_fnc(arg+14);
|
|
fnc->dump_before = CONFIG_TRUE;
|
|
}
|
|
|
|
else if (0 == VG_(strncmp)(arg, "--zero-before=", 14)) {
|
|
fn_config* fnc = get_fnc(arg+14);
|
|
fnc->zero_before = CONFIG_TRUE;
|
|
}
|
|
|
|
else if (0 == VG_(strncmp)(arg, "--dump-after=", 13)) {
|
|
fn_config* fnc = get_fnc(arg+13);
|
|
fnc->dump_after = CONFIG_TRUE;
|
|
}
|
|
|
|
else if (0 == VG_(strncmp)(arg, "--toggle-collect=", 17)) {
|
|
fn_config* fnc = get_fnc(arg+17);
|
|
fnc->toggle_collect = CONFIG_TRUE;
|
|
/* defaults to initial collection off */
|
|
CLG_(clo).collect_atstart = False;
|
|
}
|
|
|
|
else if (0 == VG_(strncmp)(arg, "--separate-recs=", 16))
|
|
CLG_(clo).separate_recursions = (Int)VG_(atoll)(&arg[16]);
|
|
|
|
/* change handling of a jump between functions to ret+call */
|
|
else if (0 == VG_(strcmp)(arg, "--pop-on-jump")) {
|
|
CLG_(clo).pop_on_jump = True;
|
|
}
|
|
else if (0 == VG_(strncmp)(arg, "--pop-on-jump=", 14)) {
|
|
fn_config* fnc = get_fnc(arg+14);
|
|
fnc->pop_on_jump = CONFIG_TRUE;
|
|
}
|
|
|
|
#if CLG_ENABLE_DEBUG
|
|
else if (0 == VG_(strncmp)(arg, "--ct-verbose=", 13))
|
|
CLG_(clo).verbose = (Int)VG_(atoll)(&arg[13]);
|
|
|
|
else if (0 == VG_(strncmp)(arg, "--ct-vstart=", 12))
|
|
CLG_(clo).verbose_start = (ULong)VG_(atoll)(&arg[12]);
|
|
|
|
else if (0 == VG_(strncmp)(arg, "--ct-verbose", 12)) {
|
|
UInt n;
|
|
fn_config* fnc;
|
|
Char* s = getUInt(arg+12, &n);
|
|
if ((n == 0) || *s != '=') return False;
|
|
fnc = get_fnc(s+1);
|
|
fnc->verbosity = n;
|
|
}
|
|
#endif
|
|
|
|
else if (0 == VG_(strncmp)(arg, "--separate-callers=", 19)) {
|
|
if (0 == VG_(strcmp)(arg+19, "auto"))
|
|
CLG_(clo).separate_callers = CONFIG_AUTO;
|
|
else
|
|
CLG_(clo).separate_callers = (Int)VG_(atoll)(&arg[19]);
|
|
}
|
|
|
|
else if (0 == VG_(strncmp)(arg, "--fn-group", 10)) {
|
|
UInt n;
|
|
fn_config* fnc;
|
|
Char* s = getUInt(arg+10, &n);
|
|
if ((n == 0) || *s != '=') return False;
|
|
fnc = get_fnc(s+1);
|
|
fnc->group = n;
|
|
}
|
|
|
|
else if (0 == VG_(strncmp)(arg, "--separate-callers", 18)) {
|
|
UInt n;
|
|
fn_config* fnc;
|
|
Char* s = getUInt(arg+18, &n);
|
|
if ((n == 0) || *s != '=') return False;
|
|
fnc = get_fnc(s+1);
|
|
fnc->separate_callers = n;
|
|
}
|
|
|
|
else if (0 == VG_(strncmp)(arg, "--separate-recs", 15)) {
|
|
UInt n;
|
|
fn_config* fnc;
|
|
Char* s = getUInt(arg+15, &n);
|
|
if ((n == 0) || *s != '=') return False;
|
|
fnc = get_fnc(s+1);
|
|
fnc->separate_recursions = n;
|
|
}
|
|
|
|
else if (0 == VG_(strncmp)(arg, "--callgrind-out-file=", 21))
|
|
CLG_(clo).out_format = VG_(strdup)(arg+21);
|
|
|
|
else if (0 == VG_(strcmp)(arg, "--mangle-names=yes"))
|
|
CLG_(clo).mangle_names = True;
|
|
else if (0 == VG_(strcmp)(arg, "--mangle-names=no"))
|
|
CLG_(clo).mangle_names = False;
|
|
|
|
else if (0 == VG_(strcmp)(arg, "--skip-direct-rec=yes"))
|
|
CLG_(clo).skip_direct_recursion = True;
|
|
else if (0 == VG_(strcmp)(arg, "--skip-direct-rec=no"))
|
|
CLG_(clo).skip_direct_recursion = False;
|
|
|
|
else if (0 == VG_(strcmp)(arg, "--dump-bbs=yes"))
|
|
CLG_(clo).dump_bbs = True;
|
|
else if (0 == VG_(strcmp)(arg, "--dump-bbs=no"))
|
|
CLG_(clo).dump_bbs = False;
|
|
|
|
else if (0 == VG_(strcmp)(arg, "--dump-line=yes"))
|
|
CLG_(clo).dump_line = True;
|
|
else if (0 == VG_(strcmp)(arg, "--dump-line=no"))
|
|
CLG_(clo).dump_line = False;
|
|
|
|
else if (0 == VG_(strcmp)(arg, "--dump-instr=yes"))
|
|
CLG_(clo).dump_instr = True;
|
|
else if (0 == VG_(strcmp)(arg, "--dump-instr=no"))
|
|
CLG_(clo).dump_instr = False;
|
|
|
|
else if (0 == VG_(strcmp)(arg, "--dump-bb=yes"))
|
|
CLG_(clo).dump_bb = True;
|
|
else if (0 == VG_(strcmp)(arg, "--dump-bb=no"))
|
|
CLG_(clo).dump_bb = False;
|
|
|
|
else if (0 == VG_(strncmp)(arg, "--dump-every-bb=", 16))
|
|
CLG_(clo).dump_every_bb = (ULong)VG_(atoll)(&arg[16]);
|
|
|
|
|
|
else if (0 == VG_(strcmp)(arg, "--collect-alloc=yes"))
|
|
CLG_(clo).collect_alloc = True;
|
|
else if (0 == VG_(strcmp)(arg, "--collect-alloc=no"))
|
|
CLG_(clo).collect_alloc = False;
|
|
|
|
else if (0 == VG_(strcmp)(arg, "--collect-systime=yes"))
|
|
CLG_(clo).collect_systime = True;
|
|
else if (0 == VG_(strcmp)(arg, "--collect-systime=no"))
|
|
CLG_(clo).collect_systime = False;
|
|
|
|
else if (0 == VG_(strcmp)(arg, "--simulate-cache=yes"))
|
|
CLG_(clo).simulate_cache = True;
|
|
else if (0 == VG_(strcmp)(arg, "--simulate-cache=no"))
|
|
CLG_(clo).simulate_cache = False;
|
|
|
|
else {
|
|
Bool isCachesimOption = (*CLG_(cachesim).parse_opt)(arg);
|
|
|
|
/* cache simulator is used if a simulator option is given */
|
|
if (isCachesimOption)
|
|
CLG_(clo).simulate_cache = True;
|
|
|
|
return isCachesimOption;
|
|
}
|
|
|
|
return True;
|
|
}
|
|
|
|
void CLG_(print_usage)(void)
|
|
{
|
|
VG_(printf)(
|
|
"\n dump creation options:\n"
|
|
" --callgrind-out-file=<f> Output file name [callgrind.out.%%p]\n"
|
|
" --dump-line=no|yes Dump source lines of costs? [yes]\n"
|
|
" --dump-instr=no|yes Dump instruction address of costs? [no]\n"
|
|
" --compress-strings=no|yes Compress strings in profile dump? [yes]\n"
|
|
" --compress-pos=no|yes Compress positions in profile dump? [yes]\n"
|
|
" --combine-dumps=no|yes Concat all dumps into same file [no]\n"
|
|
#if CLG_EXPERIMENTAL
|
|
" --compress-events=no|yes Compress events in profile dump? [no]\n"
|
|
" --dump-bb=no|yes Dump basic block address of costs? [no]\n"
|
|
" --dump-bbs=no|yes Dump basic block info? [no]\n"
|
|
" --dump-skipped=no|yes Dump info on skipped functions in calls? [no]\n"
|
|
" --mangle-names=no|yes Mangle separation into names? [yes]\n"
|
|
#endif
|
|
|
|
"\n activity options (for interactivity use callgrind_control):\n"
|
|
" --dump-every-bb=<count> Dump every <count> basic blocks [0=never]\n"
|
|
" --dump-before=<func> Dump when entering function\n"
|
|
" --zero-before=<func> Zero all costs when entering function\n"
|
|
" --dump-after=<func> Dump when leaving function\n"
|
|
#if CLG_EXPERIMENTAL
|
|
" --dump-objs=no|yes Dump static object information [no]\n"
|
|
#endif
|
|
|
|
"\n data collection options:\n"
|
|
" --instr-atstart=no|yes Do instrumentation at callgrind start [yes]\n"
|
|
" --collect-atstart=no|yes Collect at process/thread start [yes]\n"
|
|
" --toggle-collect=<func> Toggle collection on enter/leave function\n"
|
|
" --collect-jumps=no|yes Collect jumps? [no]\n"
|
|
#if CLG_EXPERIMENTAL
|
|
" --collect-alloc=no|yes Collect memory allocation info? [no]\n"
|
|
#endif
|
|
" --collect-systime=no|yes Collect system call time info? [no]\n"
|
|
|
|
"\n cost entity separation options:\n"
|
|
" --separate-threads=no|yes Separate data per thread [no]\n"
|
|
" --separate-callers=<n> Separate functions by call chain length [0]\n"
|
|
" --separate-recs=<n> Separate function recursions upto level [2]\n"
|
|
" --skip-plt=no|yes Ignore calls to/from PLT sections? [yes]\n"
|
|
" --separate-recs<n>=<f> Separate <n> recursions for function <f>\n"
|
|
" --separate-callers<n>=<f> Separate <n> callers for function <f>\n"
|
|
" --skip-direct-rec=no|yes Ignore direct recursions? [yes]\n"
|
|
" --fn-skip=<function> Ignore calls to/from function?\n"
|
|
#if CLG_EXPERIMENTAL
|
|
" --fn-group<no>=<func> Put function into separation group <no>\n"
|
|
#endif
|
|
);
|
|
|
|
(*CLG_(cachesim).print_opts)();
|
|
|
|
// VG_(printf)("\n"
|
|
// " For full callgrind documentation, see\n"
|
|
// " "VG_PREFIX"/share/doc/callgrind/html/callgrind.html\n\n");
|
|
}
|
|
|
|
void CLG_(print_debug_usage)(void)
|
|
{
|
|
VG_(printf)(
|
|
|
|
#if CLG_ENABLE_DEBUG
|
|
" --ct-verbose=<level> Verbosity of standard debug output [0]\n"
|
|
" --ct-vstart=<BB number> Only be verbose after basic block [0]\n"
|
|
" --ct-verbose<level>=<func> Verbosity while in <func>\n"
|
|
#else
|
|
" (none)\n"
|
|
#endif
|
|
|
|
);
|
|
}
|
|
|
|
|
|
void CLG_(set_clo_defaults)(void)
|
|
{
|
|
/* Default values for command line arguments */
|
|
|
|
/* dump options */
|
|
CLG_(clo).out_format = 0;
|
|
CLG_(clo).combine_dumps = False;
|
|
CLG_(clo).compress_strings = True;
|
|
CLG_(clo).compress_mangled = False;
|
|
CLG_(clo).compress_events = False;
|
|
CLG_(clo).compress_pos = True;
|
|
CLG_(clo).mangle_names = True;
|
|
CLG_(clo).dump_line = True;
|
|
CLG_(clo).dump_instr = False;
|
|
CLG_(clo).dump_bb = False;
|
|
CLG_(clo).dump_bbs = False;
|
|
|
|
CLG_(clo).dump_every_bb = 0;
|
|
|
|
/* Collection */
|
|
CLG_(clo).separate_threads = False;
|
|
CLG_(clo).collect_atstart = True;
|
|
CLG_(clo).collect_jumps = False;
|
|
CLG_(clo).collect_alloc = False;
|
|
CLG_(clo).collect_systime = False;
|
|
|
|
CLG_(clo).skip_plt = True;
|
|
CLG_(clo).separate_callers = 0;
|
|
CLG_(clo).separate_recursions = 2;
|
|
CLG_(clo).skip_direct_recursion = False;
|
|
|
|
/* Instrumentation */
|
|
CLG_(clo).instrument_atstart = True;
|
|
CLG_(clo).simulate_cache = False;
|
|
|
|
/* Call graph */
|
|
CLG_(clo).pop_on_jump = False;
|
|
|
|
#if CLG_ENABLE_DEBUG
|
|
CLG_(clo).verbose = 0;
|
|
CLG_(clo).verbose_start = 0;
|
|
#endif
|
|
}
|