From patchwork Sun Nov 18 10:24:06 2012 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Subject: VEC re-write [patch 04/25] Date: Sun, 18 Nov 2012 00:24:06 -0000 From: Eric Botcazou X-Patchwork-Id: 199899 Message-Id: <3661744.pNhyNtmbkC@polaris> To: Diego Novillo Cc: gcc-patches@gcc.gnu.org > 2012-11-15 Diego Novillo > > Adjust for new vec API (http://gcc.gnu.org/wiki/cxx-conversion/cxx-vec) > > * gcc-interface/decl.c: Use new vec API in vec.h. > * gcc-interface/gigi.h: Likewise. > * gcc-interface/trans.c: Likewise. > * gcc-interface/utils.c: Likewise. > * gcc-interface/utils2.c: Likewise. Thanks for the great work, everything seems to be working fine in Ada. Minor nit: the patch has introduced a couple of trailing spaces. No big deal, but we have a script that rejects the changes in this case. Fixed thusly. 2012-11-18 Eric Botcazou * gcc-interface/decl.c: Remove trailing spaces. * gcc-interface/trans.c: Remove trailing spaces. Index: gcc-interface/decl.c =================================================================== --- gcc-interface/decl.c (revision 193596) +++ gcc-interface/decl.c (working copy) @@ -7549,7 +7549,7 @@ build_position_list (tree gnu_type, bool of operands to SUBSTITUTE_IN_EXPR. DEFINITION is true if this is for a definition of GNAT_SUBTYPE. */ -static vec +static vec build_subst_list (Entity_Id gnat_subtype, Entity_Id gnat_type, bool definition) { vec gnu_list = vec(); @@ -7582,7 +7582,7 @@ build_subst_list (Entity_Id gnat_subtype the substitutions described in SUBST_LIST. GNU_LIST is a pre-existing list to be prepended to the newly created entries. */ -static vec +static vec build_variant_list (tree qual_union_type, vec subst_list, vec gnu_list) { Index: gcc-interface/trans.c =================================================================== --- gcc-interface/trans.c (revision 193596) +++ gcc-interface/trans.c (working copy) @@ -3323,7 +3323,7 @@ Subprogram_Body_to_gnu (Node_Id gnat_nod { tree gnu_return_var = NULL_TREE; - vec_safe_push (gnu_return_label_stack, + vec_safe_push (gnu_return_label_stack, create_artificial_label (input_location)); start_stmt_group (); @@ -4385,7 +4385,7 @@ Handled_Sequence_Of_Statements_to_gnu (N start_stmt_group (); gnat_pushlevel (); - vec_safe_push (gnu_except_ptr_stack, + vec_safe_push (gnu_except_ptr_stack, create_var_decl (get_identifier ("EXCEPT_PTR"), NULL_TREE, build_pointer_type (except_type_node), build_call_n_expr (get_excptr_decl, 0),