diff options
author | Richard Guenther <rguenther@suse.de> | 2012-08-10 12:00:05 +0000 |
---|---|---|
committer | Richard Guenther <rguenther@suse.de> | 2012-08-10 12:00:05 +0000 |
commit | 598b476d61f72acc90702194452bba2614aeab87 (patch) | |
tree | 299ec0417c555e578ea5e1b1e80ae7cd74e79155 /gcc/tree-ssa-forwprop.c | |
parent | 8031050bb79a5ec38c9d39f225cb13e6c8e2c4af (diff) |
2012-08-10 Richard Guenther <rguenther@suse.de>
PR tree-optimization/54109
* tree-ssa-forwprop.c
(forward_propagate_addr_into_variable_array_index): Remove.
(forward_propagate_addr_expr_1): Adjust.
* gcc.dg/torture/pr54109.c: New testcase.
* gcc.dg/tree-ssa/forwprop-1.c: Adjust.
* gcc.dg/tree-ssa/forwprop-2.c: Likewise.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@190291 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/tree-ssa-forwprop.c')
-rw-r--r-- | gcc/tree-ssa-forwprop.c | 135 |
1 files changed, 0 insertions, 135 deletions
diff --git a/gcc/tree-ssa-forwprop.c b/gcc/tree-ssa-forwprop.c index 649182ba7e2..662fe49bb83 100644 --- a/gcc/tree-ssa-forwprop.c +++ b/gcc/tree-ssa-forwprop.c @@ -697,128 +697,6 @@ tidy_after_forward_propagate_addr (gimple stmt) recompute_tree_invariant_for_addr_expr (gimple_assign_rhs1 (stmt)); } -/* DEF_RHS contains the address of the 0th element in an array. - USE_STMT uses type of DEF_RHS to compute the address of an - arbitrary element within the array. The (variable) byte offset - of the element is contained in OFFSET. - - We walk back through the use-def chains of OFFSET to verify that - it is indeed computing the offset of an element within the array - and extract the index corresponding to the given byte offset. - - We then try to fold the entire address expression into a form - &array[index]. - - If we are successful, we replace the right hand side of USE_STMT - with the new address computation. */ - -static bool -forward_propagate_addr_into_variable_array_index (tree offset, - tree def_rhs, - gimple_stmt_iterator *use_stmt_gsi) -{ - tree index, tunit; - gimple offset_def, use_stmt = gsi_stmt (*use_stmt_gsi); - tree new_rhs, tmp; - - if (TREE_CODE (TREE_OPERAND (def_rhs, 0)) == ARRAY_REF) - tunit = TYPE_SIZE_UNIT (TREE_TYPE (TREE_TYPE (def_rhs))); - else if (TREE_CODE (TREE_TYPE (TREE_OPERAND (def_rhs, 0))) == ARRAY_TYPE) - tunit = TYPE_SIZE_UNIT (TREE_TYPE (TREE_TYPE (TREE_TYPE (def_rhs)))); - else - return false; - if (!host_integerp (tunit, 1)) - return false; - - /* Get the offset's defining statement. */ - offset_def = SSA_NAME_DEF_STMT (offset); - - /* Try to find an expression for a proper index. This is either a - multiplication expression by the element size or just the ssa name we came - along in case the element size is one. In that case, however, we do not - allow multiplications because they can be computing index to a higher - level dimension (PR 37861). */ - if (integer_onep (tunit)) - { - if (is_gimple_assign (offset_def) - && gimple_assign_rhs_code (offset_def) == MULT_EXPR) - return false; - - index = offset; - } - else - { - /* The statement which defines OFFSET before type conversion - must be a simple GIMPLE_ASSIGN. */ - if (!is_gimple_assign (offset_def)) - return false; - - /* The RHS of the statement which defines OFFSET must be a - multiplication of an object by the size of the array elements. - This implicitly verifies that the size of the array elements - is constant. */ - if (gimple_assign_rhs_code (offset_def) == MULT_EXPR - && TREE_CODE (gimple_assign_rhs2 (offset_def)) == INTEGER_CST - && tree_int_cst_equal (gimple_assign_rhs2 (offset_def), tunit)) - { - /* The first operand to the MULT_EXPR is the desired index. */ - index = gimple_assign_rhs1 (offset_def); - } - /* If we have idx * tunit + CST * tunit re-associate that. */ - else if ((gimple_assign_rhs_code (offset_def) == PLUS_EXPR - || gimple_assign_rhs_code (offset_def) == MINUS_EXPR) - && TREE_CODE (gimple_assign_rhs1 (offset_def)) == SSA_NAME - && TREE_CODE (gimple_assign_rhs2 (offset_def)) == INTEGER_CST - && (tmp = div_if_zero_remainder (EXACT_DIV_EXPR, - gimple_assign_rhs2 (offset_def), - tunit)) != NULL_TREE) - { - gimple offset_def2 = SSA_NAME_DEF_STMT (gimple_assign_rhs1 (offset_def)); - if (is_gimple_assign (offset_def2) - && gimple_assign_rhs_code (offset_def2) == MULT_EXPR - && TREE_CODE (gimple_assign_rhs2 (offset_def2)) == INTEGER_CST - && tree_int_cst_equal (gimple_assign_rhs2 (offset_def2), tunit)) - { - index = fold_build2 (gimple_assign_rhs_code (offset_def), - TREE_TYPE (offset), - gimple_assign_rhs1 (offset_def2), tmp); - } - else - return false; - } - else - return false; - } - - /* Replace the pointer addition with array indexing. */ - index = force_gimple_operand_gsi (use_stmt_gsi, index, true, NULL_TREE, - true, GSI_SAME_STMT); - if (TREE_CODE (TREE_OPERAND (def_rhs, 0)) == ARRAY_REF) - { - new_rhs = unshare_expr (def_rhs); - TREE_OPERAND (TREE_OPERAND (new_rhs, 0), 1) = index; - } - else - { - new_rhs = build4 (ARRAY_REF, TREE_TYPE (TREE_TYPE (TREE_TYPE (def_rhs))), - unshare_expr (TREE_OPERAND (def_rhs, 0)), - index, integer_zero_node, NULL_TREE); - new_rhs = build_fold_addr_expr (new_rhs); - if (!useless_type_conversion_p (TREE_TYPE (gimple_assign_lhs (use_stmt)), - TREE_TYPE (new_rhs))) - { - new_rhs = force_gimple_operand_gsi (use_stmt_gsi, new_rhs, true, - NULL_TREE, true, GSI_SAME_STMT); - new_rhs = fold_convert (TREE_TYPE (gimple_assign_lhs (use_stmt)), - new_rhs); - } - } - gimple_assign_set_rhs_from_tree (use_stmt_gsi, new_rhs); - fold_stmt (use_stmt_gsi); - tidy_after_forward_propagate_addr (gsi_stmt (*use_stmt_gsi)); - return true; -} - /* NAME is a SSA_NAME representing DEF_RHS which is of the form ADDR_EXPR <whatever>. @@ -1111,19 +989,6 @@ forward_propagate_addr_expr_1 (tree name, tree def_rhs, return true; } - /* Try to optimize &x[0] p+ OFFSET where OFFSET is defined by - converting a multiplication of an index by the size of the - array elements, then the result is converted into the proper - type for the arithmetic. */ - if (TREE_CODE (rhs2) == SSA_NAME - && (TREE_CODE (array_ref) != ARRAY_REF - || integer_zerop (TREE_OPERAND (array_ref, 1))) - && useless_type_conversion_p (TREE_TYPE (name), TREE_TYPE (def_rhs)) - /* Avoid problems with IVopts creating PLUS_EXPRs with a - different type than their operands. */ - && useless_type_conversion_p (TREE_TYPE (lhs), TREE_TYPE (def_rhs))) - return forward_propagate_addr_into_variable_array_index (rhs2, def_rhs, - use_stmt_gsi); return false; } |