* tree-ssa-dom.c (initialize_hash_element): Fix oversight.

From-SVN: r175600
This commit is contained in:
Eric Botcazou 2011-06-28 21:50:06 +00:00
parent dac9ad16ea
commit 4a9206ce4a
5 changed files with 37 additions and 7 deletions

View File

@ -1,3 +1,7 @@
2011-06-28 Eric Botcazou <ebotcazou@adacore.com>
* tree-ssa-dom.c (initialize_hash_element): Fix oversight.
2011-06-28 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
* config/sparc/sol2-64.h (TARGET_DEFAULT): Remove.
@ -122,8 +126,8 @@
2011-06-27 Jan Hubicka <jh@suse.cz>
* ipa.c (cgraph_address_taken_from_non_vtable_p): Walk references of node
instead of references in node.
* ipa.c (cgraph_address_taken_from_non_vtable_p): Walk references of
node instead of references in node.
2011-06-27 Richard Henderson <rth@redhat.com>
@ -359,13 +363,14 @@
PR tree-optimize/49373
* tree-pass.h (all_late_ipa_passes): Declare.
* cgraphunit.c (init_lowered_empty_function): Fix properties.
(cgraph_optimize): Execute late passes; remove unreachable funcions after
materialization.
* ipa-inline.c (gate_ipa_inline): Enable only when optimizing or LTOing.
(cgraph_optimize): Execute late passes; remove unreachable funcions
after materialization.
* ipa-inline.c (gate_ipa_inline): Enable only when optimizing or
LTOing.
* passes.c (all_late_ipa_passes): Declare.
(dump_passes, register_pass): Handle late ipa passes.
(init_optimization_passes): Move ipa_pta to late passes; schedule fixup_cfg
at beggining of all_passes.
(init_optimization_passes): Move ipa_pta to late passes; schedule
fixup_cfg at beggining of all_passes.
(apply_ipa_transforms): New function.
(execute_one_pass): When doing simple ipa pass, apply all transforms.

View File

@ -1,3 +1,7 @@
2011-06-28 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/opt17.ad[sb]: New test.
2011-06-28 Janis Johnson <janisjo@codesourcery.com>
Tom de Vries <tom@codesourcery.com>

View File

@ -0,0 +1,13 @@
-- { dg-do compile }
-- { dg-options "-O" }
package body Opt17 is
function Func return S is
V : String (1 .. 6);
begin
V (1 .. 3) := "ABC";
return V (1 .. 5);
end;
end Opt17;

View File

@ -0,0 +1,7 @@
package Opt17 is
subtype S is String (1 .. 5);
function Func return S;
end Opt17;

View File

@ -214,6 +214,7 @@ initialize_hash_element (gimple stmt, tree lhs,
{
case GIMPLE_SINGLE_RHS:
expr->kind = EXPR_SINGLE;
expr->type = TREE_TYPE (gimple_assign_lhs (stmt));
expr->ops.single.rhs = gimple_assign_rhs1 (stmt);
break;
case GIMPLE_UNARY_RHS: