2004-09-24 Ben Elliston <bje@au.ibm.com> Steven Bosscher <stevenb@suse.de> Andrew Pinski <pinskia@physics.uc.edu> Merge from edge-vector-branch: * basic-block.h: Include vec.h, errors.h. Instantiate a VEC(edge). (struct edge_def): Remove pred_next, succ_next members. (struct basic_block_def): Remove pred, succ members. Add preds and succs members of type VEC(edge). (FALLTHRU_EDGE): Redefine using EDGE_SUCC. (BRANCH_EDGE): Likewise. (EDGE_CRITICAL_P): Redefine using EDGE_COUNT. (EDGE_COUNT, EDGE_I, EDGE_PRED, EDGE_SUCC): New. (edge_iterator): New. (ei_start, ei_last, ei_end_p, ei_one_before_end_p): New. (ei_next, ei_prev, ei_edge, ei_safe_edge): Likewise. (FOR_EACH_EDGE): New. * bb-reorder.c (find_traces): Use FOR_EACH_EDGE and EDGE_* macros where applicable. (rotate_loop): Likewise. (find_traces_1_route): Likewise. (bb_to_key): Likewise. (connect_traces): Likewise. (copy_bb_p): Likewise. (find_rarely_executed_basic_blocks_and_crossing_edges): Likewise. (add_labels_and_missing_jumps): Likewise. (fix_up_fall_thru_edges): Likewise. (find_jump_block): Likewise. (fix_crossing_conditional_branches): Likewise. (fix_crossing_unconditional_branches): Likewise. (add_reg_crossing_jump_notes): Likewise. * bt-load.c (augment_live_range): Likewise. * cfg.c (clear_edges): Likewise. (unchecked_make_edge): Likewise. (cached_make_edge): Likewise. (make_single_succ_edge): Likewise. (remove_edge): Likewise. (redirect_edge_succ_nodup): Likewise. (check_bb_profile): Likewise. (dump_flow_info): Likewise. (alloc_aux_for_edges): Likewise. (clear_aux_for_edges): Likewise. (dump_cfg_bb_info): Likewise. * cfganal.c (forwarder_block_p): Likewise. (can_fallthru): Likewise. (could_fall_through): Likewise. (mark_dfs_back_edges): Likewise. (set_edge_can_fallthru_flag): Likewise. (find_unreachable_blocks): Likewise. (create_edge_list): Likewise. (verify_edge_list): Likewise. (add_noreturn_fake_exit_edges): Likewise. (connect_infinite_loops_to_exit): Likewise. (flow_reverse_top_sort_order_compute): Likewise. (flow_depth_first_order_compute): Likewise. (flow_preorder_transversal_compute): Likewise. (flow_dfs_compute_reverse_execute): Likewise. (dfs_enumerate_from): Likewise. (compute_dominance_frontiers_1): Likewise. * cfgbuild.c (make_edges): Likewise. (compute_outgoing_frequencies): Likewise. (find_many_sub_basic_blocks): Likewise. (find_sub_basic_blocks): Likewise. * cfgcleanup.c (try_simplify_condjump): Likewise. (thread_jump): Likewise. (try_forward_edges): Likewise. (merge_blocks_move): Likewise. (outgoing_edges_match): Likewise. (try_crossjump_to_edge): Likewise. (try_crossjump_bb): Likewise. (try_optimize_cfg): Likewise. (merge_seq_blocks): Likewise. * cfgexpand.c (expand_gimple_tailcall): Likewise. (expand_gimple_basic_block): Likewise. (construct_init_block): Likewise. (construct_exit_block): Likewise. * cfghooks.c (verify_flow_info): Likewise. (dump_bb): Likewise. (delete_basic_block): Likewise. (split_edge): Likewise. (merge_blocks): Likewise. (make_forwarder_block): Likewise. (tidy_fallthru_edges): Likewise. (can_duplicate_block_p): Likewise. (duplicate_block): Likewise. * cfglayout.c (fixup_reorder_chain): Likewise. (fixup_fallthru_exit_predecessor): Likewise. (can_copy_bbs_p): Likewise. (copy_bbs): Likewise. * cfgloop.c (flow_loops_cfg_dump): Likewise. (flow_loop_entry_edges_find): Likewise. (flow_loop_exit_edges_find): Likewise. (flow_loop_nodes_find): Likewise. (mark_single_exit_loops): Likewise. (flow_loop_pre_header_scan): Likewise. (flow_loop_pre_header_find): Likewise. (update_latch_info): Likewise. (canonicalize_loop_headers): Likewise. (flow_loops_find): Likewise. (get_loop_body_in_bfs_order): Likewise. (get_loop_exit_edges): Likewise. (num_loop_branches): Likewise. (verify_loop_structure): Likewise. (loop_latch_edge): Likewise. (loop_preheader_edge): Likewise. * cfgloopanal.c (mark_irreducible_loops): Likewise. (expected_loop_iterations): Likewise. * cfgloopmanip.c (remove_bbs): Likewise. (fix_bb_placement): Likewise. (fix_irreducible_loops): Likewise. (remove_path): Likewise. (scale_bbs_frequencies): Likewise. (loopify): Likewise. (unloop): Likewise. (fix_loop_placement): Likewise. (loop_delete_branch_edge): Likewise. (duplicate_loop_to_header_edge): Likewise. (mfb_keep_just): Likewise. (create_preheader): Likewise. (force_single_succ_latches): Likewise. (loop_split_edge_with): Likewise. (create_loop_notes): Likewise. * cfgrtl.c (rtl_split_block): Likewise. (rtl_merge_blocks): Likewise. (rtl_can_merge_blocks): Likewise. (try_redirect_by_replacing_jump): Likewise. (force_nonfallthru_and_redirect): Likewise. (rtl_tidy_fallthru_edge): Likewise. (commit_one_edge_insertion): Likewise. (commit_edge_insertions): Likewise. (commit_edge_insertions_watch_calls): Likewise. (rtl_verify_flow_info_1): Likewise. (rtl_verify_flow_info): Likewise. (purge_dead_edges): Likewise. (cfg_layout_redirect_edge_and_branch): Likewise. (cfg_layout_can_merge_blocks_p): Likewise. (rtl_flow_call_edges_add): Likewise. * cse.c (cse_cc_succs): Likewise. * df.c (hybrid_search): Likewise. * dominance.c (calc_dfs_tree_nonrec): Likewise. (calc_dfs_tree): Likewise. (calc_idoms): Likewise. (recount_dominator): Likewise. * domwalk.c (walk_dominator_tree): Likewise. * except.c (emit_to_new_bb_before): Likewise. (connect_post_landing_pads): Likewise. (sjlj_emit_function_enter): Likewise. (sjlj_emit_function_exit): Likewise. (finish_eh_generation): Likewise. * final.c (compute_alignments): Likewise. * flow.c (calculate_global_regs_live): Likewise. (initialize_uninitialized_subregs): Likewise. (init_propagate_block_info): Likewise. * function.c (thread_prologue_and_epilogue_insns): Likewise. * gcse.c (find_implicit_sets): Likewise. (bypass_block): Likewise. (bypass_conditional_jumps): Likewise. (compute_pre_data): Likewise. (insert_insn_end_bb): Likewise. (insert_store): Likewise. (remove_reachable_equiv_notes): Likewise. * global.c (global_conflicts): Likewise. (calculate_reg_pav): Likewise. * graph.c (print_rtl_graph_with_bb): Likewise. * ifcvt.c (mark_loop_exit_edges): Likewise. (merge_if_block): Likewise. (find_if_header): Likewise. (block_jumps_and_fallthru_p): Likewise. (find_if_block): Likewise. (find_cond_trap): Likewise. (block_has_only_trap): Likewise. (find_if_case1): Likewise. (find_if_case_2): Likewise. * lambda-code.c (lambda_loopnest_to_gcc_loopnest): Likewise. (perfect_nestify): Likewise. * lcm.c (compute_antinout_edge): Likewise. (compute_laterin): Likewise. (compute_available): Likewise. (compute_nearerout): Likewise. * loop-doloop.c (doloop_modify): Likewise. * loop-init.c (loop_optimizer_init): Likewise. * loop-invariant.c (find_exits): Likewise. * loop-iv.c (simplify_using_initial_values): Likewise. (check_simple_exit): Likewise. (find_simple_exit): Likewise. * loop-unroll.c (peel_loop_completely): Likewise. (unroll_loop_constant_iterations): Likewise. (unroll_loop_runtime_iterations): Likewise. * loop-unswitch.c (may_unswitch_on): Likewise. (unswitch_loop): Likewise. * modulo-sched.c (generate_prolog_epilog): Likewise. (sms_schedule): Likewise. * postreload-gcse.c (eliminate_partially_redundant_load): Likewise. * predict.c (can_predict_insn_p): Likewise. (set_even_probabilities): Likewise. (combine_predictions_for_bb): Likewise. (predict_loops): Likewise. (estimate_probability): Likewise. (tree_predict_by_opcode): Likewise. (tree_estimate_probability): Likewise. (last_basic_block_p): Likewise. (propagate_freq): Likewise. (estimate_loops_at_level): Likewise. (estimate_bb_frequencies): Likewise. * profile.c (instrument_edges): Likewise. (get_exec_counts): Likewise. (compute_branch_probabilities): Likewise. (branch_prob): Likewise. * ra-build.c (live_in): Likewise. * ra-rewrite.c (rewrite_program2): Likewise. * ra.c (reg_alloc): Likewise. * reg-stack.c (reg_to_stack): Likewise. (convert_regs_entry): Likewise. (compensate_edge): Likewise. (convert_regs_1): Likewise, (convert_regs_2): Likewise. (convert_regs): Likewise. * regrename.c (copyprop_hardreg_forward): Likewise. * reload1.c (fixup_abnormal_edges): Likewise. * sbitmap.c (sbitmap_intersection_of_succs): Likewise. (sbitmap_insersection_of_preds): Likewise. (sbitmap_union_of_succs): Likewise. (sbitmap_union_of_preds): Likewise. * sched-ebb.c (compute_jump_reg_dependencies): Likewise. (fix_basic_block_boundaries): Likewise. (sched_ebbs): Likewise. * sched-rgn.c (build_control_flow): Likewise. (find_rgns): Likewise. * tracer.c (find_best_successor): Likewise. (find_best_predecessor): Likewise. (tail_duplicate): Likewise. * tree-cfg.c (make_edges): Likewise. (make_ctrl_stmt_edges): Likewise. (make_goto_expr_edges): Likewise. (tree_can_merge_blocks_p): Likewise. (tree_merge_blocks): Likewise. (cfg_remove_useless_stmts_bb): Likewise. (remove_phi_nodes_and_edges_for_unreachable_block): Likewise. (tree_block_forwards_to): Likewise. (cleanup_control_expr_graph): Likewise. (find_taken_edge): Likewise. (dump_cfg_stats): Likewise. (tree_cfg2vcg): Likewise. (disband_implicit_edges): Likewise. (tree_find_edge_insert_loc): Likewise. (bsi_commit_edge_inserts): Likewise. (tree_split_edge): Likewise. (tree_verify_flow_info): Likewise. (tree_make_forwarder_block): Likewise. (tree_forwarder_block_p): Likewise. (thread_jumps): Likewise. (tree_try_redirect_by_replacing_jump): Likewise. (tree_split_block): Likewise. (add_phi_args_after_copy_bb): Likewise. (rewrite_to_new_ssa_names_bb): Likewise. (dump_function_to_file): Likewise. (print_pred_bbs): Likewise. (print_loop): Likewise. (tree_flow_call_edges_add): Likewise. (split_critical_edges): Likewise. (execute_warn_function_return): Likewise. (extract_true_false_edges_from_block): Likewise. * tree-if-conv.c (tree_if_conversion): Likewise. (if_convertable_bb_p): Likewise. (find_phi_replacement_condition): Likewise. (combine_blocks): Likewise. * tree-into-ssa.c (compute_global_livein): Likewise. (ssa_mark_phi_uses): Likewise. (ssa_rewrite_initialize_block): Likewise. (rewrite_add_phi_arguments): Likewise. (ssa_rewrite_phi_arguments): Likewise. (insert_phi_nodes_for): Likewise. (rewrite_into_ssa): Likewise. (rewrite_ssa_into_ssa): Likewise. * tree-mudflap.c (mf_build_check_statement_for): Likewise. * tree-outof-ssa.c (coalesce_abnormal_edges): Likewise. (rewrite_trees): Likewise. * tree-pretty-print.c (dump_bb_header): Likewise. (dump_implicit_edges): Likewise. * tree-sra.c (insert_edge_copies): Likewise. (find_obviously_necessary_stmts): Likewise. (remove_data_stmt): Likewise. * tree-ssa-dom.c (thread_across_edge): Likewise. (dom_opt_finalize_block): Likewise. (single_incoming_edge_ignoring_loop_edges): Likewise. (record_equivalences_from_incoming_edges): Likewise. (cprop_into_successor_phis): Likewise. * tree-ssa-live.c (live_worklist): Likewise. (calculate_live_on_entry): Likewise. (calculate_live_on_exit): Likewise. * tree-ssa-loop-ch.c (should_duplicate_loop_header_p): Likewise. (copy_loop_headers): Likewise. * tree-ssa-loop-im.c (loop_commit_inserts): Likewise. (fill_always_executed_in): Likewise. * tree-ssa-loop-ivcanon.c (create_canonical_iv): Likewise. * tree-ssa-loop-ivopts.c (find_interesting_uses): Likewise. (compute_phi_arg_on_exit): Likewise. * tree-ssa-loop-manip.c (add_exit_phis_edge): Likewise. (get_loops_exit): Likewise. (split_loop_exit_edge): Likewise. (ip_normal_pos): Likewise. * tree-ssa-loop-niter.c (simplify_using_initial_conditions): Likewise. * tree-ssa-phiopt.c (candidate_bb_for_phi_optimization): Likewise. (replace_phi_with_stmt): Likewise. (value_replacement): Likewise. * tree-ssa-pre.c (compute_antic_aux): Likewise. (insert_aux): Likewise. (init_pre): Likewise. * tree-ssa-propagate.c (simulate_stmt): Likewise. (simulate_block): Likewise. (ssa_prop_init): Likewise. * tree-ssa-threadupdate.c (thread_block): Likewise. (create_block_for_threading): Likewise. (remove_last_stmt_and_useless_edges): Likewise. * tree-ssa.c (verify_phi_args): Likewise. (verify_ssa): Likewise. * tree_tailcall.c (independent_of_stmt_p): Likewise. (find_tail_calls): Likewise. (eliminate_tail_call): Likewise. (tree_optimize_tail_calls_1): Likewise. * tree-vectorizer.c (vect_transform_loop): Likewise. * var-tracking.c (prologue_stack_adjust): Likewise. (vt_stack_adjustments): Likewise. (vt_find_locations): Likewise. * config/frv/frv.c (frv_ifcvt_modify_tests): Likewise. * config/i386/i386.c (ix86_pad_returns): Likewise. * config/ia64/ia64.c (ia64_expand_prologue): Likewise. * config/rs6000/rs6000.c (rs6000_emit_prologue): Likewise. Co-Authored-By: Andrew Pinski <pinskia@physics.uc.edu> Co-Authored-By: Steven Bosscher <stevenb@suse.de> From-SVN: r88222
774 lines
22 KiB
C
774 lines
22 KiB
C
/* Control flow graph building code for GNU compiler.
|
||
Copyright (C) 1987, 1988, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
|
||
1999, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
|
||
|
||
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, 59 Temple Place - Suite 330, Boston, MA
|
||
02111-1307, USA. */
|
||
|
||
/* find_basic_blocks divides the current function's rtl into basic
|
||
blocks and constructs the CFG. The blocks are recorded in the
|
||
basic_block_info array; the CFG exists in the edge structures
|
||
referenced by the blocks.
|
||
|
||
find_basic_blocks also finds any unreachable loops and deletes them.
|
||
|
||
Available functionality:
|
||
- CFG construction
|
||
find_basic_blocks
|
||
- Local CFG construction
|
||
find_sub_basic_blocks */
|
||
|
||
#include "config.h"
|
||
#include "system.h"
|
||
#include "coretypes.h"
|
||
#include "tm.h"
|
||
#include "tree.h"
|
||
#include "rtl.h"
|
||
#include "hard-reg-set.h"
|
||
#include "basic-block.h"
|
||
#include "regs.h"
|
||
#include "flags.h"
|
||
#include "output.h"
|
||
#include "function.h"
|
||
#include "except.h"
|
||
#include "toplev.h"
|
||
#include "timevar.h"
|
||
|
||
static int count_basic_blocks (rtx);
|
||
static void find_basic_blocks_1 (rtx);
|
||
static void make_edges (basic_block, basic_block, int);
|
||
static void make_label_edge (sbitmap *, basic_block, rtx, int);
|
||
static void find_bb_boundaries (basic_block);
|
||
static void compute_outgoing_frequencies (basic_block);
|
||
|
||
/* Return true if insn is something that should be contained inside basic
|
||
block. */
|
||
|
||
bool
|
||
inside_basic_block_p (rtx insn)
|
||
{
|
||
switch (GET_CODE (insn))
|
||
{
|
||
case CODE_LABEL:
|
||
/* Avoid creating of basic block for jumptables. */
|
||
return (NEXT_INSN (insn) == 0
|
||
|| !JUMP_P (NEXT_INSN (insn))
|
||
|| (GET_CODE (PATTERN (NEXT_INSN (insn))) != ADDR_VEC
|
||
&& GET_CODE (PATTERN (NEXT_INSN (insn))) != ADDR_DIFF_VEC));
|
||
|
||
case JUMP_INSN:
|
||
return (GET_CODE (PATTERN (insn)) != ADDR_VEC
|
||
&& GET_CODE (PATTERN (insn)) != ADDR_DIFF_VEC);
|
||
|
||
case CALL_INSN:
|
||
case INSN:
|
||
return true;
|
||
|
||
case BARRIER:
|
||
case NOTE:
|
||
return false;
|
||
|
||
default:
|
||
gcc_unreachable ();
|
||
}
|
||
}
|
||
|
||
/* Return true if INSN may cause control flow transfer, so it should be last in
|
||
the basic block. */
|
||
|
||
bool
|
||
control_flow_insn_p (rtx insn)
|
||
{
|
||
rtx note;
|
||
|
||
switch (GET_CODE (insn))
|
||
{
|
||
case NOTE:
|
||
case CODE_LABEL:
|
||
return false;
|
||
|
||
case JUMP_INSN:
|
||
/* Jump insn always causes control transfer except for tablejumps. */
|
||
return (GET_CODE (PATTERN (insn)) != ADDR_VEC
|
||
&& GET_CODE (PATTERN (insn)) != ADDR_DIFF_VEC);
|
||
|
||
case CALL_INSN:
|
||
/* Noreturn and sibling call instructions terminate the basic blocks
|
||
(but only if they happen unconditionally). */
|
||
if ((SIBLING_CALL_P (insn)
|
||
|| find_reg_note (insn, REG_NORETURN, 0))
|
||
&& GET_CODE (PATTERN (insn)) != COND_EXEC)
|
||
return true;
|
||
/* Call insn may return to the nonlocal goto handler. */
|
||
return ((nonlocal_goto_handler_labels
|
||
&& (0 == (note = find_reg_note (insn, REG_EH_REGION,
|
||
NULL_RTX))
|
||
|| INTVAL (XEXP (note, 0)) >= 0))
|
||
/* Or may trap. */
|
||
|| can_throw_internal (insn));
|
||
|
||
case INSN:
|
||
return (flag_non_call_exceptions && can_throw_internal (insn));
|
||
|
||
case BARRIER:
|
||
/* It is nonsense to reach barrier when looking for the
|
||
end of basic block, but before dead code is eliminated
|
||
this may happen. */
|
||
return false;
|
||
|
||
default:
|
||
gcc_unreachable ();
|
||
}
|
||
}
|
||
|
||
/* Count the basic blocks of the function. */
|
||
|
||
static int
|
||
count_basic_blocks (rtx f)
|
||
{
|
||
int count = 0;
|
||
bool saw_insn = false;
|
||
rtx insn;
|
||
|
||
for (insn = f; insn; insn = NEXT_INSN (insn))
|
||
{
|
||
/* Code labels and barriers causes current basic block to be
|
||
terminated at previous real insn. */
|
||
if ((LABEL_P (insn) || BARRIER_P (insn))
|
||
&& saw_insn)
|
||
count++, saw_insn = false;
|
||
|
||
/* Start basic block if needed. */
|
||
if (!saw_insn && inside_basic_block_p (insn))
|
||
saw_insn = true;
|
||
|
||
/* Control flow insn causes current basic block to be terminated. */
|
||
if (saw_insn && control_flow_insn_p (insn))
|
||
count++, saw_insn = false;
|
||
}
|
||
|
||
if (saw_insn)
|
||
count++;
|
||
|
||
/* The rest of the compiler works a bit smoother when we don't have to
|
||
check for the edge case of do-nothing functions with no basic blocks. */
|
||
if (count == 0)
|
||
{
|
||
emit_insn (gen_rtx_USE (VOIDmode, const0_rtx));
|
||
count = 1;
|
||
}
|
||
|
||
return count;
|
||
}
|
||
|
||
/* Create an edge between two basic blocks. FLAGS are auxiliary information
|
||
about the edge that is accumulated between calls. */
|
||
|
||
/* Create an edge from a basic block to a label. */
|
||
|
||
static void
|
||
make_label_edge (sbitmap *edge_cache, basic_block src, rtx label, int flags)
|
||
{
|
||
gcc_assert (LABEL_P (label));
|
||
|
||
/* If the label was never emitted, this insn is junk, but avoid a
|
||
crash trying to refer to BLOCK_FOR_INSN (label). This can happen
|
||
as a result of a syntax error and a diagnostic has already been
|
||
printed. */
|
||
|
||
if (INSN_UID (label) == 0)
|
||
return;
|
||
|
||
cached_make_edge (edge_cache, src, BLOCK_FOR_INSN (label), flags);
|
||
}
|
||
|
||
/* Create the edges generated by INSN in REGION. */
|
||
|
||
void
|
||
rtl_make_eh_edge (sbitmap *edge_cache, basic_block src, rtx insn)
|
||
{
|
||
int is_call = CALL_P (insn) ? EDGE_ABNORMAL_CALL : 0;
|
||
rtx handlers, i;
|
||
|
||
handlers = reachable_handlers (insn);
|
||
|
||
for (i = handlers; i; i = XEXP (i, 1))
|
||
make_label_edge (edge_cache, src, XEXP (i, 0),
|
||
EDGE_ABNORMAL | EDGE_EH | is_call);
|
||
|
||
free_INSN_LIST_list (&handlers);
|
||
}
|
||
|
||
/* Identify the edges between basic blocks MIN to MAX.
|
||
|
||
NONLOCAL_LABEL_LIST is a list of non-local labels in the function. Blocks
|
||
that are otherwise unreachable may be reachable with a non-local goto.
|
||
|
||
BB_EH_END is an array indexed by basic block number in which we record
|
||
the list of exception regions active at the end of the basic block. */
|
||
|
||
static void
|
||
make_edges (basic_block min, basic_block max, int update_p)
|
||
{
|
||
basic_block bb;
|
||
sbitmap *edge_cache = NULL;
|
||
|
||
/* Assume no computed jump; revise as we create edges. */
|
||
current_function_has_computed_jump = 0;
|
||
|
||
/* If we are partitioning hot and cold basic blocks into separate
|
||
sections, we cannot assume there is no computed jump (partitioning
|
||
sometimes requires the use of indirect jumps; see comments about
|
||
partitioning at the top of bb-reorder.c:partition_hot_cold_basic_blocks
|
||
for complete details). */
|
||
|
||
if (flag_reorder_blocks_and_partition)
|
||
current_function_has_computed_jump = 1;
|
||
|
||
/* Heavy use of computed goto in machine-generated code can lead to
|
||
nearly fully-connected CFGs. In that case we spend a significant
|
||
amount of time searching the edge lists for duplicates. */
|
||
if (forced_labels || cfun->max_jumptable_ents > 100)
|
||
{
|
||
edge_cache = sbitmap_vector_alloc (last_basic_block, last_basic_block);
|
||
sbitmap_vector_zero (edge_cache, last_basic_block);
|
||
|
||
if (update_p)
|
||
FOR_BB_BETWEEN (bb, min, max->next_bb, next_bb)
|
||
{
|
||
edge e;
|
||
edge_iterator ei;
|
||
|
||
FOR_EACH_EDGE (e, ei, bb->succs)
|
||
if (e->dest != EXIT_BLOCK_PTR)
|
||
SET_BIT (edge_cache[bb->index], e->dest->index);
|
||
}
|
||
}
|
||
|
||
/* By nature of the way these get numbered, ENTRY_BLOCK_PTR->next_bb block
|
||
is always the entry. */
|
||
if (min == ENTRY_BLOCK_PTR->next_bb)
|
||
cached_make_edge (edge_cache, ENTRY_BLOCK_PTR, min,
|
||
EDGE_FALLTHRU);
|
||
|
||
FOR_BB_BETWEEN (bb, min, max->next_bb, next_bb)
|
||
{
|
||
rtx insn, x;
|
||
enum rtx_code code;
|
||
int force_fallthru = 0;
|
||
edge e;
|
||
edge_iterator ei;
|
||
|
||
if (LABEL_P (BB_HEAD (bb))
|
||
&& LABEL_ALT_ENTRY_P (BB_HEAD (bb)))
|
||
cached_make_edge (NULL, ENTRY_BLOCK_PTR, bb, 0);
|
||
|
||
/* Examine the last instruction of the block, and discover the
|
||
ways we can leave the block. */
|
||
|
||
insn = BB_END (bb);
|
||
code = GET_CODE (insn);
|
||
|
||
/* A branch. */
|
||
if (code == JUMP_INSN)
|
||
{
|
||
rtx tmp;
|
||
|
||
/* Recognize exception handling placeholders. */
|
||
if (GET_CODE (PATTERN (insn)) == RESX)
|
||
rtl_make_eh_edge (edge_cache, bb, insn);
|
||
|
||
/* Recognize a non-local goto as a branch outside the
|
||
current function. */
|
||
else if (find_reg_note (insn, REG_NON_LOCAL_GOTO, NULL_RTX))
|
||
;
|
||
|
||
/* Recognize a tablejump and do the right thing. */
|
||
else if (tablejump_p (insn, NULL, &tmp))
|
||
{
|
||
rtvec vec;
|
||
int j;
|
||
|
||
if (GET_CODE (PATTERN (tmp)) == ADDR_VEC)
|
||
vec = XVEC (PATTERN (tmp), 0);
|
||
else
|
||
vec = XVEC (PATTERN (tmp), 1);
|
||
|
||
for (j = GET_NUM_ELEM (vec) - 1; j >= 0; --j)
|
||
make_label_edge (edge_cache, bb,
|
||
XEXP (RTVEC_ELT (vec, j), 0), 0);
|
||
|
||
/* Some targets (eg, ARM) emit a conditional jump that also
|
||
contains the out-of-range target. Scan for these and
|
||
add an edge if necessary. */
|
||
if ((tmp = single_set (insn)) != NULL
|
||
&& SET_DEST (tmp) == pc_rtx
|
||
&& GET_CODE (SET_SRC (tmp)) == IF_THEN_ELSE
|
||
&& GET_CODE (XEXP (SET_SRC (tmp), 2)) == LABEL_REF)
|
||
make_label_edge (edge_cache, bb,
|
||
XEXP (XEXP (SET_SRC (tmp), 2), 0), 0);
|
||
|
||
#ifdef CASE_DROPS_THROUGH
|
||
/* Silly VAXen. The ADDR_VEC is going to be in the way of
|
||
us naturally detecting fallthru into the next block. */
|
||
force_fallthru = 1;
|
||
#endif
|
||
}
|
||
|
||
/* If this is a computed jump, then mark it as reaching
|
||
everything on the forced_labels list. */
|
||
else if (computed_jump_p (insn))
|
||
{
|
||
current_function_has_computed_jump = 1;
|
||
|
||
for (x = forced_labels; x; x = XEXP (x, 1))
|
||
make_label_edge (edge_cache, bb, XEXP (x, 0), EDGE_ABNORMAL);
|
||
}
|
||
|
||
/* Returns create an exit out. */
|
||
else if (returnjump_p (insn))
|
||
cached_make_edge (edge_cache, bb, EXIT_BLOCK_PTR, 0);
|
||
|
||
/* Otherwise, we have a plain conditional or unconditional jump. */
|
||
else
|
||
{
|
||
gcc_assert (JUMP_LABEL (insn));
|
||
make_label_edge (edge_cache, bb, JUMP_LABEL (insn), 0);
|
||
}
|
||
}
|
||
|
||
/* If this is a sibling call insn, then this is in effect a combined call
|
||
and return, and so we need an edge to the exit block. No need to
|
||
worry about EH edges, since we wouldn't have created the sibling call
|
||
in the first place. */
|
||
if (code == CALL_INSN && SIBLING_CALL_P (insn))
|
||
cached_make_edge (edge_cache, bb, EXIT_BLOCK_PTR,
|
||
EDGE_SIBCALL | EDGE_ABNORMAL);
|
||
|
||
/* If this is a CALL_INSN, then mark it as reaching the active EH
|
||
handler for this CALL_INSN. If we're handling non-call
|
||
exceptions then any insn can reach any of the active handlers.
|
||
Also mark the CALL_INSN as reaching any nonlocal goto handler. */
|
||
else if (code == CALL_INSN || flag_non_call_exceptions)
|
||
{
|
||
/* Add any appropriate EH edges. */
|
||
rtl_make_eh_edge (edge_cache, bb, insn);
|
||
|
||
if (code == CALL_INSN && nonlocal_goto_handler_labels)
|
||
{
|
||
/* ??? This could be made smarter: in some cases it's possible
|
||
to tell that certain calls will not do a nonlocal goto.
|
||
For example, if the nested functions that do the nonlocal
|
||
gotos do not have their addresses taken, then only calls to
|
||
those functions or to other nested functions that use them
|
||
could possibly do nonlocal gotos. */
|
||
|
||
/* We do know that a REG_EH_REGION note with a value less
|
||
than 0 is guaranteed not to perform a non-local goto. */
|
||
rtx note = find_reg_note (insn, REG_EH_REGION, NULL_RTX);
|
||
|
||
if (!note || INTVAL (XEXP (note, 0)) >= 0)
|
||
for (x = nonlocal_goto_handler_labels; x; x = XEXP (x, 1))
|
||
make_label_edge (edge_cache, bb, XEXP (x, 0),
|
||
EDGE_ABNORMAL | EDGE_ABNORMAL_CALL);
|
||
}
|
||
}
|
||
|
||
/* Find out if we can drop through to the next block. */
|
||
insn = NEXT_INSN (insn);
|
||
FOR_EACH_EDGE (e, ei, bb->succs)
|
||
if (e->dest == EXIT_BLOCK_PTR && e->flags & EDGE_FALLTHRU)
|
||
{
|
||
insn = 0;
|
||
break;
|
||
}
|
||
while (insn
|
||
&& NOTE_P (insn)
|
||
&& NOTE_LINE_NUMBER (insn) != NOTE_INSN_BASIC_BLOCK)
|
||
insn = NEXT_INSN (insn);
|
||
|
||
if (!insn || (bb->next_bb == EXIT_BLOCK_PTR && force_fallthru))
|
||
cached_make_edge (edge_cache, bb, EXIT_BLOCK_PTR, EDGE_FALLTHRU);
|
||
else if (bb->next_bb != EXIT_BLOCK_PTR)
|
||
{
|
||
if (force_fallthru || insn == BB_HEAD (bb->next_bb))
|
||
cached_make_edge (edge_cache, bb, bb->next_bb, EDGE_FALLTHRU);
|
||
}
|
||
}
|
||
|
||
if (edge_cache)
|
||
sbitmap_vector_free (edge_cache);
|
||
}
|
||
|
||
/* Find all basic blocks of the function whose first insn is F.
|
||
|
||
Collect and return a list of labels whose addresses are taken. This
|
||
will be used in make_edges for use with computed gotos. */
|
||
|
||
static void
|
||
find_basic_blocks_1 (rtx f)
|
||
{
|
||
rtx insn, next;
|
||
rtx bb_note = NULL_RTX;
|
||
rtx head = NULL_RTX;
|
||
rtx end = NULL_RTX;
|
||
basic_block prev = ENTRY_BLOCK_PTR;
|
||
|
||
/* We process the instructions in a slightly different way than we did
|
||
previously. This is so that we see a NOTE_BASIC_BLOCK after we have
|
||
closed out the previous block, so that it gets attached at the proper
|
||
place. Since this form should be equivalent to the previous,
|
||
count_basic_blocks continues to use the old form as a check. */
|
||
|
||
for (insn = f; insn; insn = next)
|
||
{
|
||
enum rtx_code code = GET_CODE (insn);
|
||
|
||
next = NEXT_INSN (insn);
|
||
|
||
if ((LABEL_P (insn) || BARRIER_P (insn))
|
||
&& head)
|
||
{
|
||
prev = create_basic_block_structure (head, end, bb_note, prev);
|
||
head = end = NULL_RTX;
|
||
bb_note = NULL_RTX;
|
||
}
|
||
|
||
if (inside_basic_block_p (insn))
|
||
{
|
||
if (head == NULL_RTX)
|
||
head = insn;
|
||
end = insn;
|
||
}
|
||
|
||
if (head && control_flow_insn_p (insn))
|
||
{
|
||
prev = create_basic_block_structure (head, end, bb_note, prev);
|
||
head = end = NULL_RTX;
|
||
bb_note = NULL_RTX;
|
||
}
|
||
|
||
switch (code)
|
||
{
|
||
case NOTE:
|
||
{
|
||
int kind = NOTE_LINE_NUMBER (insn);
|
||
|
||
/* Look for basic block notes with which to keep the
|
||
basic_block_info pointers stable. Unthread the note now;
|
||
we'll put it back at the right place in create_basic_block.
|
||
Or not at all if we've already found a note in this block. */
|
||
if (kind == NOTE_INSN_BASIC_BLOCK)
|
||
{
|
||
if (bb_note == NULL_RTX)
|
||
bb_note = insn;
|
||
else
|
||
next = delete_insn (insn);
|
||
}
|
||
break;
|
||
}
|
||
|
||
case CODE_LABEL:
|
||
case JUMP_INSN:
|
||
case CALL_INSN:
|
||
case INSN:
|
||
case BARRIER:
|
||
break;
|
||
|
||
default:
|
||
gcc_unreachable ();
|
||
}
|
||
}
|
||
|
||
if (head != NULL_RTX)
|
||
create_basic_block_structure (head, end, bb_note, prev);
|
||
else if (bb_note)
|
||
delete_insn (bb_note);
|
||
|
||
gcc_assert (last_basic_block == n_basic_blocks);
|
||
|
||
clear_aux_for_blocks ();
|
||
}
|
||
|
||
|
||
/* Find basic blocks of the current function.
|
||
F is the first insn of the function and NREGS the number of register
|
||
numbers in use. */
|
||
|
||
void
|
||
find_basic_blocks (rtx f, int nregs ATTRIBUTE_UNUSED,
|
||
FILE *file ATTRIBUTE_UNUSED)
|
||
{
|
||
basic_block bb;
|
||
|
||
timevar_push (TV_CFG);
|
||
|
||
/* Flush out existing data. */
|
||
if (basic_block_info != NULL)
|
||
{
|
||
clear_edges ();
|
||
|
||
/* Clear bb->aux on all extant basic blocks. We'll use this as a
|
||
tag for reuse during create_basic_block, just in case some pass
|
||
copies around basic block notes improperly. */
|
||
FOR_EACH_BB (bb)
|
||
bb->aux = NULL;
|
||
|
||
basic_block_info = NULL;
|
||
}
|
||
|
||
n_basic_blocks = count_basic_blocks (f);
|
||
last_basic_block = 0;
|
||
ENTRY_BLOCK_PTR->next_bb = EXIT_BLOCK_PTR;
|
||
EXIT_BLOCK_PTR->prev_bb = ENTRY_BLOCK_PTR;
|
||
|
||
/* Size the basic block table. The actual structures will be allocated
|
||
by find_basic_blocks_1, since we want to keep the structure pointers
|
||
stable across calls to find_basic_blocks. */
|
||
/* ??? This whole issue would be much simpler if we called find_basic_blocks
|
||
exactly once, and thereafter we don't have a single long chain of
|
||
instructions at all until close to the end of compilation when we
|
||
actually lay them out. */
|
||
|
||
VARRAY_BB_INIT (basic_block_info, n_basic_blocks, "basic_block_info");
|
||
|
||
find_basic_blocks_1 (f);
|
||
|
||
profile_status = PROFILE_ABSENT;
|
||
|
||
/* Discover the edges of our cfg. */
|
||
make_edges (ENTRY_BLOCK_PTR->next_bb, EXIT_BLOCK_PTR->prev_bb, 0);
|
||
|
||
/* Do very simple cleanup now, for the benefit of code that runs between
|
||
here and cleanup_cfg, e.g. thread_prologue_and_epilogue_insns. */
|
||
tidy_fallthru_edges ();
|
||
|
||
#ifdef ENABLE_CHECKING
|
||
verify_flow_info ();
|
||
#endif
|
||
timevar_pop (TV_CFG);
|
||
}
|
||
|
||
/* State of basic block as seen by find_sub_basic_blocks. */
|
||
enum state {BLOCK_NEW = 0, BLOCK_ORIGINAL, BLOCK_TO_SPLIT};
|
||
|
||
#define STATE(BB) (enum state) ((size_t) (BB)->aux)
|
||
#define SET_STATE(BB, STATE) ((BB)->aux = (void *) (size_t) (STATE))
|
||
|
||
/* Scan basic block BB for possible BB boundaries inside the block
|
||
and create new basic blocks in the progress. */
|
||
|
||
static void
|
||
find_bb_boundaries (basic_block bb)
|
||
{
|
||
rtx insn = BB_HEAD (bb);
|
||
rtx end = BB_END (bb);
|
||
rtx flow_transfer_insn = NULL_RTX;
|
||
edge fallthru = NULL;
|
||
|
||
if (insn == BB_END (bb))
|
||
return;
|
||
|
||
if (LABEL_P (insn))
|
||
insn = NEXT_INSN (insn);
|
||
|
||
/* Scan insn chain and try to find new basic block boundaries. */
|
||
while (1)
|
||
{
|
||
enum rtx_code code = GET_CODE (insn);
|
||
|
||
/* On code label, split current basic block. */
|
||
if (code == CODE_LABEL)
|
||
{
|
||
fallthru = split_block (bb, PREV_INSN (insn));
|
||
if (flow_transfer_insn)
|
||
BB_END (bb) = flow_transfer_insn;
|
||
|
||
bb = fallthru->dest;
|
||
remove_edge (fallthru);
|
||
flow_transfer_insn = NULL_RTX;
|
||
if (LABEL_ALT_ENTRY_P (insn))
|
||
make_edge (ENTRY_BLOCK_PTR, bb, 0);
|
||
}
|
||
|
||
/* In case we've previously seen an insn that effects a control
|
||
flow transfer, split the block. */
|
||
if (flow_transfer_insn && inside_basic_block_p (insn))
|
||
{
|
||
fallthru = split_block (bb, PREV_INSN (insn));
|
||
BB_END (bb) = flow_transfer_insn;
|
||
bb = fallthru->dest;
|
||
remove_edge (fallthru);
|
||
flow_transfer_insn = NULL_RTX;
|
||
}
|
||
|
||
if (control_flow_insn_p (insn))
|
||
flow_transfer_insn = insn;
|
||
if (insn == end)
|
||
break;
|
||
insn = NEXT_INSN (insn);
|
||
}
|
||
|
||
/* In case expander replaced normal insn by sequence terminating by
|
||
return and barrier, or possibly other sequence not behaving like
|
||
ordinary jump, we need to take care and move basic block boundary. */
|
||
if (flow_transfer_insn)
|
||
BB_END (bb) = flow_transfer_insn;
|
||
|
||
/* We've possibly replaced the conditional jump by conditional jump
|
||
followed by cleanup at fallthru edge, so the outgoing edges may
|
||
be dead. */
|
||
purge_dead_edges (bb);
|
||
}
|
||
|
||
/* Assume that frequency of basic block B is known. Compute frequencies
|
||
and probabilities of outgoing edges. */
|
||
|
||
static void
|
||
compute_outgoing_frequencies (basic_block b)
|
||
{
|
||
edge e, f;
|
||
edge_iterator ei;
|
||
|
||
if (EDGE_COUNT (b->succs) == 2)
|
||
{
|
||
rtx note = find_reg_note (BB_END (b), REG_BR_PROB, NULL);
|
||
int probability;
|
||
|
||
if (note)
|
||
{
|
||
probability = INTVAL (XEXP (note, 0));
|
||
e = BRANCH_EDGE (b);
|
||
e->probability = probability;
|
||
e->count = ((b->count * probability + REG_BR_PROB_BASE / 2)
|
||
/ REG_BR_PROB_BASE);
|
||
f = FALLTHRU_EDGE (b);
|
||
f->probability = REG_BR_PROB_BASE - probability;
|
||
f->count = b->count - e->count;
|
||
return;
|
||
}
|
||
}
|
||
|
||
if (EDGE_COUNT (b->succs) == 1)
|
||
{
|
||
e = EDGE_SUCC (b, 0);
|
||
e->probability = REG_BR_PROB_BASE;
|
||
e->count = b->count;
|
||
return;
|
||
}
|
||
guess_outgoing_edge_probabilities (b);
|
||
if (b->count)
|
||
FOR_EACH_EDGE (e, ei, b->succs)
|
||
e->count = ((b->count * e->probability + REG_BR_PROB_BASE / 2)
|
||
/ REG_BR_PROB_BASE);
|
||
}
|
||
|
||
/* Assume that someone emitted code with control flow instructions to the
|
||
basic block. Update the data structure. */
|
||
|
||
void
|
||
find_many_sub_basic_blocks (sbitmap blocks)
|
||
{
|
||
basic_block bb, min, max;
|
||
|
||
FOR_EACH_BB (bb)
|
||
SET_STATE (bb,
|
||
TEST_BIT (blocks, bb->index) ? BLOCK_TO_SPLIT : BLOCK_ORIGINAL);
|
||
|
||
FOR_EACH_BB (bb)
|
||
if (STATE (bb) == BLOCK_TO_SPLIT)
|
||
find_bb_boundaries (bb);
|
||
|
||
FOR_EACH_BB (bb)
|
||
if (STATE (bb) != BLOCK_ORIGINAL)
|
||
break;
|
||
|
||
min = max = bb;
|
||
for (; bb != EXIT_BLOCK_PTR; bb = bb->next_bb)
|
||
if (STATE (bb) != BLOCK_ORIGINAL)
|
||
max = bb;
|
||
|
||
/* Now re-scan and wire in all edges. This expect simple (conditional)
|
||
jumps at the end of each new basic blocks. */
|
||
make_edges (min, max, 1);
|
||
|
||
/* Update branch probabilities. Expect only (un)conditional jumps
|
||
to be created with only the forward edges. */
|
||
if (profile_status != PROFILE_ABSENT)
|
||
FOR_BB_BETWEEN (bb, min, max->next_bb, next_bb)
|
||
{
|
||
edge e;
|
||
edge_iterator ei;
|
||
|
||
if (STATE (bb) == BLOCK_ORIGINAL)
|
||
continue;
|
||
if (STATE (bb) == BLOCK_NEW)
|
||
{
|
||
bb->count = 0;
|
||
bb->frequency = 0;
|
||
FOR_EACH_EDGE (e, ei, bb->preds)
|
||
{
|
||
bb->count += e->count;
|
||
bb->frequency += EDGE_FREQUENCY (e);
|
||
}
|
||
}
|
||
|
||
compute_outgoing_frequencies (bb);
|
||
}
|
||
|
||
FOR_EACH_BB (bb)
|
||
SET_STATE (bb, 0);
|
||
}
|
||
|
||
/* Like above but for single basic block only. */
|
||
|
||
void
|
||
find_sub_basic_blocks (basic_block bb)
|
||
{
|
||
basic_block min, max, b;
|
||
basic_block next = bb->next_bb;
|
||
|
||
min = bb;
|
||
find_bb_boundaries (bb);
|
||
max = next->prev_bb;
|
||
|
||
/* Now re-scan and wire in all edges. This expect simple (conditional)
|
||
jumps at the end of each new basic blocks. */
|
||
make_edges (min, max, 1);
|
||
|
||
/* Update branch probabilities. Expect only (un)conditional jumps
|
||
to be created with only the forward edges. */
|
||
FOR_BB_BETWEEN (b, min, max->next_bb, next_bb)
|
||
{
|
||
edge e;
|
||
edge_iterator ei;
|
||
|
||
if (b != min)
|
||
{
|
||
b->count = 0;
|
||
b->frequency = 0;
|
||
FOR_EACH_EDGE (e, ei, b->preds)
|
||
{
|
||
b->count += e->count;
|
||
b->frequency += EDGE_FREQUENCY (e);
|
||
}
|
||
}
|
||
|
||
compute_outgoing_frequencies (b);
|
||
}
|
||
}
|