* decl.c, utils.c: Fix comment typos.

From-SVN: r102630

gcc/ada/ChangeLog

+2005-08-01  Kazu Hirata  <kazu@codesourcery.com>
+
+	* decl.c, utils.c: Fix comment typos.
+
 2005-07-29  Kazu Hirata  <kazu@codesourcery.com>
 
 	* decl.c, init.c, initialize.c: Fix comment typos.

gcc/ada/decl.c

@@ -1100,7 +1100,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
 	    SET_DECL_CONST_CORRESPONDING_VAR (gnu_decl, gnu_corr_var);
 	  }
 
-	/* If this is declared in a block that contains an block with an
+	/* If this is declared in a block that contains a block with an
 	   exception handler, we must force this variable in memory to
 	   suppress an invalid optimization.  */
 	if (Has_Nested_Block_With_Handler (Scope (gnat_entity))

gcc/ada/utils.c

@@ -712,7 +712,7 @@ finish_record_type (tree record_type, tree fieldlist, bool has_rep,
       tree this_ada_size = DECL_SIZE (field);
 
       /* We need to make an XVE/XVU record if any field has variable size,
-	 whether or not the record does.  For example, if we have an union,
+	 whether or not the record does.  For example, if we have a union,
 	 it may be that all fields, rounded up to the alignment, have the
 	 same size, in which case we'll use that size.  But the debug
 	 output routines (except Dwarf2) won't be able to output the fields,
@@ -826,7 +826,7 @@ write_record_type_debug_info (tree record_type)
   for (field = fieldlist; field; field = TREE_CHAIN (field))
     {
       /* We need to make an XVE/XVU record if any field has variable size,
-	 whether or not the record does.  For example, if we have an union,
+	 whether or not the record does.  For example, if we have a union,
 	 it may be that all fields, rounded up to the alignment, have the
 	 same size, in which case we'll use that size.  But the debug
 	 output routines (except Dwarf2) won't be able to output the fields,