===================================================================
@@ -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<subst_pair>
+static vec<subst_pair>
build_subst_list (Entity_Id gnat_subtype, Entity_Id gnat_type, bool definition)
{
vec<subst_pair> gnu_list = vec<subst_pair>();
@@ -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<variant_desc>
+static vec<variant_desc>
build_variant_list (tree qual_union_type, vec<subst_pair> subst_list,
vec<variant_desc> gnu_list)
{
===================================================================
@@ -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),