trans.c (gnat_gimplify_expr): Call recompute_tree_invarant_for_addr_expr when...

2005-06-03  Andrew Pinski  <pinskia@physics.uc.edu>

        * trans.c (gnat_gimplify_expr): Call
        recompute_tree_invarant_for_addr_expr when we change
        the operand of the ADDR_EXPR.

From-SVN: r100522

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 2f7e1d8ef9bc46d6d0d94184ffa7e1c04bfac2eb..68779b1483ae64da746d7e22374a1ecdb4864f12 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2005-06-03  Andrew Pinski  <pinskia@physics.uc.edu>
+
+       * trans.c (gnat_gimplify_expr): Call
+       recompute_tree_invarant_for_addr_expr when we change
+       the operand of the ADDR_EXPR.
+
 2005-05-31  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
        * misc.c: Don't include errors.h.

diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c
index 394ea1b64a02f5c032fa46774481440dc2bcadb4..36b5ba2d3bcf657e9ae66e1ac68815e7aadc5c79 100644 (file)
--- a/gcc/ada/trans.c
+++ b/gcc/ada/trans.c
@@ -4526,6 +4526,7 @@ gnat_gimplify_expr (tree *expr_p, tree *pre_p, tree *post_p ATTRIBUTE_UNUSED)
          DECL_INITIAL (new_var) = TREE_OPERAND (expr, 0);
 
          TREE_OPERAND (expr, 0) = new_var;
+         recompute_tree_invarant_for_addr_expr (expr);
          return GS_ALL_DONE;
        }
       return GS_UNHANDLED;