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

gcc/ada/ChangeLog

+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.

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;