* gimplify.h (recalculate_side_effects): Delete.
authorebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 23 Nov 2013 10:23:02 +0000 (10:23 +0000)
committerebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 23 Nov 2013 10:23:02 +0000 (10:23 +0000)
* gimplify.c (recalculate_side_effects): Make static and add comment.
ada/
* gcc-interface/trans.c (Loop_Statement_to_gnu): Set TREE_SIDE_EFFECTS
on the conditional expression directly.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@205305 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/ChangeLog
gcc/ada/ChangeLog
gcc/ada/gcc-interface/trans.c
gcc/gimplify.c
gcc/gimplify.h

index df5b4b8..32955d7 100644 (file)
@@ -1,3 +1,8 @@
+2013-11-23  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gimplify.h (recalculate_side_effects): Delete.
+       * gimplify.c (recalculate_side_effects): Make static and add comment.
+
 2013-11-23  Richard Sandiford  <rdsandiford@googlemail.com>
 
        * config/sh/sh.md: Use nonimmediate_operand rather than general_operand
index 12737c9..8bb3462 100644 (file)
@@ -1,3 +1,8 @@
+2013-11-23  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gcc-interface/trans.c (Loop_Statement_to_gnu): Set TREE_SIDE_EFFECTS
+       on the conditional expression directly.
+
 2013-11-22  Andrew MacLeod  <amacleod@redhat.com>
 
        * gcc-interface/trans.c: Add required include files from gimple.h.
index 2266a5b..e533de6 100644 (file)
@@ -2808,8 +2808,8 @@ Loop_Statement_to_gnu (Node_Id gnat_node)
   if (gnu_cond_expr)
     {
       COND_EXPR_THEN (gnu_cond_expr) = gnu_loop_stmt;
+      TREE_SIDE_EFFECTS (gnu_cond_expr) = 1;
       gnu_result = gnu_cond_expr;
-      recalculate_side_effects (gnu_cond_expr);
     }
   else
     gnu_result = gnu_loop_stmt;
index b3608c3..b252bef 100644 (file)
@@ -1757,7 +1757,9 @@ gimplify_var_or_parm_decl (tree *expr_p)
   return GS_ALL_DONE;
 }
 
-void
+/* Recalculate the value of the TREE_SIDE_EFFECTS flag for T.  */
+
+static void
 recalculate_side_effects (tree t)
 {
   enum tree_code code = TREE_CODE (t);
index 049f80d..91000d1 100644 (file)
@@ -64,7 +64,6 @@ extern tree unshare_expr (tree);
 extern tree unshare_expr_without_location (tree);
 extern tree voidify_wrapper_expr (tree, tree);
 extern tree build_and_jump (tree *);
-extern void recalculate_side_effects (tree);
 extern enum gimplify_status gimplify_self_mod_expr (tree *, gimple_seq *,
                                                    gimple_seq *, bool, tree);
 extern tree gimple_boolify (tree);