trans.c (find_loop_for): Use FOR_EACH_VEC_ELT_REVERSE.

	* gcc-interface/trans.c (find_loop_for): Use FOR_EACH_VEC_ELT_REVERSE.
	(Loop_Statement_to_gnu): Use FOR_EACH_VEC_ELT.
	(finalize_nrv): Use FOR_EACH_VEC_SAFE_ELT and initialize field.
	(build_stmt_group): Add blank lines.

From-SVN: r228373

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index d4c505c..fb8c6cc 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,10 +1,17 @@
+2015-10-02  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gcc-interface/trans.c (find_loop_for): Use FOR_EACH_VEC_ELT_REVERSE.
+       (Loop_Statement_to_gnu): Use FOR_EACH_VEC_ELT.
+       (finalize_nrv): Use FOR_EACH_VEC_SAFE_ELT and initialize field.
+       (build_stmt_group): Add blank lines.
+
 2015-09-30  Thomas Schwinge  <thomas@codesourcery.com>
 
        * gcc-interface/utils.c (DEF_FUNCTION_TYPE_VAR_11): Don't define.
 
 2015-09-28  Tom de Vries  <tom@codesourcery.com>
 
-       * gcc-interface/utils.c (DEF_FUNCTION_TYPE_VAR_6): Define
+       * gcc-interface/utils.c (DEF_FUNCTION_TYPE_VAR_6): Define.
 
 2015-09-17  Eric Botcazou  <ebotcazou@adacore.com>
 

diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index 96f0c55..58e3d32 100644 (file)
--- a/gcc/ada/gcc-interface/trans.c
+++ b/gcc/ada/gcc-interface/trans.c
@@ -2644,9 +2644,7 @@ find_loop_for (tree var)
 
   gcc_assert (vec_safe_length (gnu_loop_stack) > 0);
 
-  for (i = vec_safe_length (gnu_loop_stack) - 1;
-       vec_safe_iterate (gnu_loop_stack, i, &iter);
-       i--)
+  FOR_EACH_VEC_ELT_REVERSE (*gnu_loop_stack, i, iter)
     if (var == iter->loop_var)
       break;
 
@@ -3014,9 +3012,7 @@ Loop_Statement_to_gnu (Node_Id gnat_node)
               - the front-end quickly generates useless or redundant checks
                 that can be entirely optimized away in the end.  */
       if (1 <= n_checks && n_checks <= 4)
-       for (i = 0;
-            vec_safe_iterate (gnu_loop_info->checks, i, &rci);
-            i++)
+       FOR_EACH_VEC_ELT (*gnu_loop_info->checks, i, rci)
          {
            tree low_ok
              = rci->low_bound
@@ -3426,8 +3422,9 @@ finalize_nrv (tree fndecl, bitmap nrv, vec<tree, va_gc> *other, Node_Id gnat_ret
   /* Prune the candidates that are referenced by other return values.  */
   data.nrv = nrv;
   data.result = NULL_TREE;
+  data.gnat_ret = Empty;
   data.visited = NULL;
-  for (i = 0; vec_safe_iterate (other, i, &iter); i++)
+  FOR_EACH_VEC_SAFE_ELT (other, i, iter)
     walk_tree_without_duplicates (&iter, prune_nrv_r, &data);
   if (bitmap_empty_p (nrv))
     return;
@@ -7905,10 +7902,12 @@ static tree
 build_stmt_group (List_Id gnat_list, bool binding_p)
 {
   start_stmt_group ();
+
   if (binding_p)
     gnat_pushlevel ();
 
   add_stmt_list (gnat_list);
+
   if (binding_p)
     gnat_poplevel ();