308 lines
10 KiB
C
308 lines
10 KiB
C
|
/* Calculate branch probabilities, and basic block execution counts.
|
|||
|
|
Copyright (C) 1990, 1991, 1992, 1993, 1994, 1996, 1997, 1998, 1999,
|
|||
|
|
2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
|
|||
|
|
Contributed by James E. Wilson, UC Berkeley/Cygnus Support;
|
|||
|
|
based on some ideas from Dain Samples of UC Berkeley.
|
|||
|
|
Further mangling by Bob Manson, Cygnus Support.
|
|||
|
|
Converted to use trees by Dale Johannesen, Apple Computer.
|
|||
|
|
|
|||
|
|
This file is part of GCC.
|
|||
|
|
|
|||
|
|
GCC 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, or (at your option) any later
|
|||
|
|
version.
|
|||
|
|
|
|||
|
|
GCC 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 GCC; see the file COPYING. If not, write to the Free
|
|||
|
|
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
|
|||
|
|
02110-1301, USA. */
|
|||
|
|
|
|||
|
|
/* Generate basic block profile instrumentation and auxiliary files.
|
|||
|
|
Tree-based version. See profile.c for overview. */
|
|||
|
|
|
|||
|
|
#include "config.h"
|
|||
|
|
#include "system.h"
|
|||
|
|
#include "coretypes.h"
|
|||
|
|
#include "tm.h"
|
|||
|
|
#include "rtl.h"
|
|||
|
|
#include "flags.h"
|
|||
|
|
#include "output.h"
|
|||
|
|
#include "regs.h"
|
|||
|
|
#include "expr.h"
|
|||
|
|
#include "function.h"
|
|||
|
|
#include "toplev.h"
|
|||
|
|
#include "coverage.h"
|
|||
|
|
#include "tree.h"
|
|||
|
|
#include "tree-flow.h"
|
|||
|
|
#include "tree-dump.h"
|
|||
|
|
#include "tree-pass.h"
|
|||
|
|
#include "timevar.h"
|
|||
|
|
#include "value-prof.h"
|
|||
|
|
#include "ggc.h"
|
|||
|
|
|
|||
|
|
static GTY(()) tree gcov_type_node;
|
|||
|
|
static GTY(()) tree tree_interval_profiler_fn;
|
|||
|
|
static GTY(()) tree tree_pow2_profiler_fn;
|
|||
|
|
static GTY(()) tree tree_one_value_profiler_fn;
|
|||
|
|
|
|||
|
|
|
|||
|
|
/* Do initialization work for the edge profiler. */
|
|||
|
|
|
|||
|
|
static void
|
|||
|
|
tree_init_edge_profiler (void)
|
|||
|
|
{
|
|||
|
|
tree interval_profiler_fn_type;
|
|||
|
|
tree pow2_profiler_fn_type;
|
|||
|
|
tree one_value_profiler_fn_type;
|
|||
|
|
tree gcov_type_ptr;
|
|||
|
|
|
|||
|
|
if (!gcov_type_node)
|
|||
|
|
{
|
|||
|
|
gcov_type_node = get_gcov_type ();
|
|||
|
|
gcov_type_ptr = build_pointer_type (gcov_type_node);
|
|||
|
|
|
|||
|
|
/* void (*) (gcov_type *, gcov_type, int, unsigned) */
|
|||
|
|
interval_profiler_fn_type
|
|||
|
|
= build_function_type_list (void_type_node,
|
|||
|
|
gcov_type_ptr, gcov_type_node,
|
|||
|
|
integer_type_node,
|
|||
|
|
unsigned_type_node, NULL_TREE);
|
|||
|
|
tree_interval_profiler_fn
|
|||
|
|
= build_fn_decl ("__gcov_interval_profiler",
|
|||
|
|
interval_profiler_fn_type);
|
|||
|
|
|
|||
|
|
/* void (*) (gcov_type *, gcov_type) */
|
|||
|
|
pow2_profiler_fn_type
|
|||
|
|
= build_function_type_list (void_type_node,
|
|||
|
|
gcov_type_ptr, gcov_type_node,
|
|||
|
|
NULL_TREE);
|
|||
|
|
tree_pow2_profiler_fn = build_fn_decl ("__gcov_pow2_profiler",
|
|||
|
|
pow2_profiler_fn_type);
|
|||
|
|
|
|||
|
|
/* void (*) (gcov_type *, gcov_type) */
|
|||
|
|
one_value_profiler_fn_type
|
|||
|
|
= build_function_type_list (void_type_node,
|
|||
|
|
gcov_type_ptr, gcov_type_node,
|
|||
|
|
NULL_TREE);
|
|||
|
|
tree_one_value_profiler_fn
|
|||
|
|
= build_fn_decl ("__gcov_one_value_profiler",
|
|||
|
|
one_value_profiler_fn_type);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/* Output instructions as GIMPLE trees to increment the edge
|
|||
|
|
execution count, and insert them on E. We rely on
|
|||
|
|
bsi_insert_on_edge to preserve the order. */
|
|||
|
|
|
|||
|
|
static void
|
|||
|
|
tree_gen_edge_profiler (int edgeno, edge e)
|
|||
|
|
{
|
|||
|
|
tree tmp1 = create_tmp_var (gcov_type_node, "PROF");
|
|||
|
|
tree tmp2 = create_tmp_var (gcov_type_node, "PROF");
|
|||
|
|
tree ref = tree_coverage_counter_ref (GCOV_COUNTER_ARCS, edgeno);
|
|||
|
|
tree stmt1 = build2 (MODIFY_EXPR, gcov_type_node, tmp1, ref);
|
|||
|
|
tree stmt2 = build2 (MODIFY_EXPR, gcov_type_node, tmp2,
|
|||
|
|
build2 (PLUS_EXPR, gcov_type_node,
|
|||
|
|
tmp1, integer_one_node));
|
|||
|
|
tree stmt3 = build2 (MODIFY_EXPR, gcov_type_node, ref, tmp2);
|
|||
|
|
bsi_insert_on_edge (e, stmt1);
|
|||
|
|
bsi_insert_on_edge (e, stmt2);
|
|||
|
|
bsi_insert_on_edge (e, stmt3);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/* Emits code to get VALUE to instrument at BSI, and returns the
|
|||
|
|
variable containing the value. */
|
|||
|
|
|
|||
|
|
static tree
|
|||
|
|
prepare_instrumented_value (block_stmt_iterator *bsi,
|
|||
|
|
histogram_value value)
|
|||
|
|
{
|
|||
|
|
tree val = value->hvalue.value;
|
|||
|
|
return force_gimple_operand_bsi (bsi, fold_convert (gcov_type_node, val),
|
|||
|
|
true, NULL_TREE);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/* Output instructions as GIMPLE trees to increment the interval histogram
|
|||
|
|
counter. VALUE is the expression whose value is profiled. TAG is the
|
|||
|
|
tag of the section for counters, BASE is offset of the counter position. */
|
|||
|
|
|
|||
|
|
static void
|
|||
|
|
tree_gen_interval_profiler (histogram_value value, unsigned tag, unsigned base)
|
|||
|
|
{
|
|||
|
|
tree stmt = value->hvalue.stmt;
|
|||
|
|
block_stmt_iterator bsi = bsi_for_stmt (stmt);
|
|||
|
|
tree ref = tree_coverage_counter_ref (tag, base), ref_ptr;
|
|||
|
|
tree args, call, val;
|
|||
|
|
tree start = build_int_cst_type (integer_type_node, value->hdata.intvl.int_start);
|
|||
|
|
tree steps = build_int_cst_type (unsigned_type_node, value->hdata.intvl.steps);
|
|||
|
|
|
|||
|
|
ref_ptr = force_gimple_operand_bsi (&bsi,
|
|||
|
|
build_addr (ref, current_function_decl),
|
|||
|
|
true, NULL_TREE);
|
|||
|
|
val = prepare_instrumented_value (&bsi, value);
|
|||
|
|
args = tree_cons (NULL_TREE, ref_ptr,
|
|||
|
|
tree_cons (NULL_TREE, val,
|
|||
|
|
tree_cons (NULL_TREE, start,
|
|||
|
|
tree_cons (NULL_TREE, steps,
|
|||
|
|
NULL_TREE))));
|
|||
|
|
call = build_function_call_expr (tree_interval_profiler_fn, args);
|
|||
|
|
bsi_insert_before (&bsi, call, BSI_SAME_STMT);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/* Output instructions as GIMPLE trees to increment the power of two histogram
|
|||
|
|
counter. VALUE is the expression whose value is profiled. TAG is the tag
|
|||
|
|
of the section for counters, BASE is offset of the counter position. */
|
|||
|
|
|
|||
|
|
static void
|
|||
|
|
tree_gen_pow2_profiler (histogram_value value, unsigned tag, unsigned base)
|
|||
|
|
{
|
|||
|
|
tree stmt = value->hvalue.stmt;
|
|||
|
|
block_stmt_iterator bsi = bsi_for_stmt (stmt);
|
|||
|
|
tree ref = tree_coverage_counter_ref (tag, base), ref_ptr;
|
|||
|
|
tree args, call, val;
|
|||
|
|
|
|||
|
|
ref_ptr = force_gimple_operand_bsi (&bsi,
|
|||
|
|
build_addr (ref, current_function_decl),
|
|||
|
|
true, NULL_TREE);
|
|||
|
|
val = prepare_instrumented_value (&bsi, value);
|
|||
|
|
args = tree_cons (NULL_TREE, ref_ptr,
|
|||
|
|
tree_cons (NULL_TREE, val,
|
|||
|
|
NULL_TREE));
|
|||
|
|
call = build_function_call_expr (tree_pow2_profiler_fn, args);
|
|||
|
|
bsi_insert_before (&bsi, call, BSI_SAME_STMT);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/* Output instructions as GIMPLE trees for code to find the most common value.
|
|||
|
|
VALUE is the expression whose value is profiled. TAG is the tag of the
|
|||
|
|
section for counters, BASE is offset of the counter position. */
|
|||
|
|
|
|||
|
|
static void
|
|||
|
|
tree_gen_one_value_profiler (histogram_value value, unsigned tag, unsigned base)
|
|||
|
|
{
|
|||
|
|
tree stmt = value->hvalue.stmt;
|
|||
|
|
block_stmt_iterator bsi = bsi_for_stmt (stmt);
|
|||
|
|
tree ref = tree_coverage_counter_ref (tag, base), ref_ptr;
|
|||
|
|
tree args, call, val;
|
|||
|
|
|
|||
|
|
ref_ptr = force_gimple_operand_bsi (&bsi,
|
|||
|
|
build_addr (ref, current_function_decl),
|
|||
|
|
true, NULL_TREE);
|
|||
|
|
val = prepare_instrumented_value (&bsi, value);
|
|||
|
|
args = tree_cons (NULL_TREE, ref_ptr,
|
|||
|
|
tree_cons (NULL_TREE, val,
|
|||
|
|
NULL_TREE));
|
|||
|
|
call = build_function_call_expr (tree_one_value_profiler_fn, args);
|
|||
|
|
bsi_insert_before (&bsi, call, BSI_SAME_STMT);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/* Output instructions as GIMPLE trees for code to find the most common value
|
|||
|
|
of a difference between two evaluations of an expression.
|
|||
|
|
VALUE is the expression whose value is profiled. TAG is the tag of the
|
|||
|
|
section for counters, BASE is offset of the counter position. */
|
|||
|
|
|
|||
|
|
static void
|
|||
|
|
tree_gen_const_delta_profiler (histogram_value value ATTRIBUTE_UNUSED,
|
|||
|
|
unsigned tag ATTRIBUTE_UNUSED,
|
|||
|
|
unsigned base ATTRIBUTE_UNUSED)
|
|||
|
|
{
|
|||
|
|
/* FIXME implement this. */
|
|||
|
|
#ifdef ENABLE_CHECKING
|
|||
|
|
internal_error ("unimplemented functionality");
|
|||
|
|
#endif
|
|||
|
|
gcc_unreachable ();
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/* Return 1 if tree-based profiling is in effect, else 0.
|
|||
|
|
If it is, set up hooks for tree-based profiling.
|
|||
|
|
Gate for pass_tree_profile. */
|
|||
|
|
|
|||
|
|
static bool
|
|||
|
|
do_tree_profiling (void)
|
|||
|
|
{
|
|||
|
|
if (profile_arc_flag || flag_test_coverage || flag_branch_probabilities)
|
|||
|
|
{
|
|||
|
|
tree_register_profile_hooks ();
|
|||
|
|
tree_register_value_prof_hooks ();
|
|||
|
|
return true;
|
|||
|
|
}
|
|||
|
|
return false;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
static unsigned int
|
|||
|
|
tree_profiling (void)
|
|||
|
|
{
|
|||
|
|
branch_prob ();
|
|||
|
|
if (flag_branch_probabilities
|
|||
|
|
&& flag_profile_values
|
|||
|
|
&& flag_value_profile_transformations)
|
|||
|
|
value_profile_transformations ();
|
|||
|
|
/* The above could hose dominator info. Currently there is
|
|||
|
|
none coming in, this is a safety valve. It should be
|
|||
|
|
easy to adjust it, if and when there is some. */
|
|||
|
|
free_dominance_info (CDI_DOMINATORS);
|
|||
|
|
free_dominance_info (CDI_POST_DOMINATORS);
|
|||
|
|
return 0;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
struct tree_opt_pass pass_tree_profile =
|
|||
|
|
{
|
|||
|
|
"tree_profile", /* name */
|
|||
|
|
do_tree_profiling, /* gate */
|
|||
|
|
tree_profiling, /* execute */
|
|||
|
|
NULL, /* sub */
|
|||
|
|
NULL, /* next */
|
|||
|
|
0, /* static_pass_number */
|
|||
|
|
TV_BRANCH_PROB, /* tv_id */
|
|||
|
|
PROP_gimple_leh | PROP_cfg, /* properties_required */
|
|||
|
|
PROP_gimple_leh | PROP_cfg, /* properties_provided */
|
|||
|
|
0, /* properties_destroyed */
|
|||
|
|
0, /* todo_flags_start */
|
|||
|
|
TODO_verify_stmts, /* todo_flags_finish */
|
|||
|
|
0 /* letter */
|
|||
|
|
};
|
|||
|
|
|
|||
|
|
/* Return 1 if tree-based profiling is in effect, else 0.
|
|||
|
|
If it is, set up hooks for tree-based profiling.
|
|||
|
|
Gate for pass_tree_profile. */
|
|||
|
|
|
|||
|
|
static bool
|
|||
|
|
do_early_tree_profiling (void)
|
|||
|
|
{
|
|||
|
|
return (do_tree_profiling () && (!flag_unit_at_a_time || !optimize));
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
struct tree_opt_pass pass_early_tree_profile =
|
|||
|
|
{
|
|||
|
|
"early_tree_profile", /* name */
|
|||
|
|
do_early_tree_profiling, /* gate */
|
|||
|
|
tree_profiling, /* execute */
|
|||
|
|
NULL, /* sub */
|
|||
|
|
NULL, /* next */
|
|||
|
|
0, /* static_pass_number */
|
|||
|
|
TV_BRANCH_PROB, /* tv_id */
|
|||
|
|
PROP_gimple_leh | PROP_cfg, /* properties_required */
|
|||
|
|
PROP_gimple_leh | PROP_cfg, /* properties_provided */
|
|||
|
|
0, /* properties_destroyed */
|
|||
|
|
0, /* todo_flags_start */
|
|||
|
|
TODO_verify_stmts, /* todo_flags_finish */
|
|||
|
|
0 /* letter */
|
|||
|
|
};
|
|||
|
|
|
|||
|
|
struct profile_hooks tree_profile_hooks =
|
|||
|
|
{
|
|||
|
|
tree_init_edge_profiler, /* init_edge_profiler */
|
|||
|
|
tree_gen_edge_profiler, /* gen_edge_profiler */
|
|||
|
|
tree_gen_interval_profiler, /* gen_interval_profiler */
|
|||
|
|
tree_gen_pow2_profiler, /* gen_pow2_profiler */
|
|||
|
|
tree_gen_one_value_profiler, /* gen_one_value_profiler */
|
|||
|
|
tree_gen_const_delta_profiler /* gen_const_delta_profiler */
|
|||
|
|
};
|
|||
|
|
|
|||
|
|
#include "gt-tree-profile.h"
|