adaint.c, [...]: Fix comment typos.

	* adaint.c, cal.c, decl.c, gigi.h, gmem.c, init.c, link.c,
	raise.c, tracebak.c, trans.c, utils2.c, utils.c: Fix comment
	typos.

From-SVN: r97369

13 files changed, 38 insertions, 32 deletions

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 035d831..5f04413 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2005-04-01  Kazu Hirata  <kazu@cs.umass.edu>
+
+	* adaint.c, cal.c, decl.c, gigi.h, gmem.c, init.c, link.c,
+	raise.c, tracebak.c, trans.c, utils2.c, utils.c: Fix comment
+	typos.
+
 2005-03-30  Tom Tromey  <tromey@redhat.com>
 
 	* decl.c (gnat_substitute_in_type): Don't handle FILE_TYPE.
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c
index 2760cc6..6d65efd 100644
--- a/gcc/ada/adaint.c
+++ b/gcc/ada/adaint.c
@@ -1643,7 +1643,7 @@ __gnat_dup (int oldfd)
 }
 
 /* Make newfd be the copy of oldfd, closing newfd first if necessary.
-   Return -1 if an error occured.  */
+   Return -1 if an error occurred.  */
 
 int
 __gnat_dup2 (int oldfd, int newfd)
diff --git a/gcc/ada/cal.c b/gcc/ada/cal.c
index 8f8930e..20a6316 100644
--- a/gcc/ada/cal.c
+++ b/gcc/ada/cal.c
@@ -31,7 +31,7 @@
  ****************************************************************************/
 
 /*  This file contains those routines named by Import pragmas in package    */
-/*  GNAT.Calendar. It is used to to Duration to timeval convertion.         */
+/*  GNAT.Calendar. It is used to do Duration to timeval conversion.         */
 /*  These are simple wrappers function to abstarct the fact that the C      */
 /*  struct timeval fields type are not normalized (they are generaly        */
 /*  defined as int or long values).                                         */
@@ -75,7 +75,7 @@ __gnat_timeval_to_duration (struct timeval *t, long *sec, long *usec)
 void
 __gnat_duration_to_timeval (long sec, long usec, struct timeval *t)
 {
-  /* here we are doing implicit convertion from a long to the struct timeval
+  /* here we are doing implicit conversion from a long to the struct timeval
      fields types. */
 
   t->tv_sec = sec;
diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c
index 5f53e19..c881d55 100644
--- a/gcc/ada/decl.c
+++ b/gcc/ada/decl.c
@@ -1039,7 +1039,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
 	  gnu_ext_name = create_concat_name (gnat_entity, 0);
 
 	/* If this is constant initialized to a static constant and the
-	   object has an aggregrate type, force it to be statically
+	   object has an aggregate type, force it to be statically
 	   allocated. */
 	if (const_flag && gnu_expr && TREE_CONSTANT (gnu_expr)
 	    && host_integerp (TYPE_SIZE_UNIT (gnu_type), 1)
@@ -2884,7 +2884,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
 	/* If we are pointing to an incomplete type whose completion is an
 	   unconstrained array, make a fat pointer type instead of a pointer
 	   to VOID.  The two types in our fields will be pointers to VOID and
-	   will be replaced in update_pointer_to.  Similiarly, if the type
+	   will be replaced in update_pointer_to.  Similarly, if the type
 	   itself is a dummy type or an unconstrained array.  Also make
 	   a dummy TYPE_OBJECT_RECORD_TYPE in case we have any thin
 	   pointers to it.  */
@@ -3421,7 +3421,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
 	      post_error ("unsupported mechanism for&", gnat_param);
 
 	    /* If this is either a foreign function or if the
-	       underlying type won't be passed by refererence, strip off
+	       underlying type won't be passed by reference, strip off
 	       possible padding type.  */
 	    if (TREE_CODE (gnu_param_type) == RECORD_TYPE
 		&& TYPE_IS_PADDING_P (gnu_param_type)
@@ -4348,7 +4348,7 @@ copy_alias_set (tree gnu_new_type, tree gnu_old_type)
 /* Return a TREE_LIST describing the substitutions needed to reflect
    discriminant substitutions from GNAT_SUBTYPE to GNAT_TYPE and add
    them to GNU_LIST.  If GNAT_TYPE is not specified, use the base type
-   of GNAT_SUBTYPE. The substitions can be in any order.  TREE_PURPOSE
+   of GNAT_SUBTYPE. The substitutions can be in any order.  TREE_PURPOSE
    gives the tree for the discriminant and TREE_VALUES is the replacement
    value.  They are in the form of operands to substitute_in_expr.
    DEFINITION is as in gnat_to_gnu_entity.  */
@@ -4617,7 +4617,7 @@ elaborate_expression (Node_Id gnat_expr, Entity_Id gnat_entity,
 		   && Ekind (Entity (gnat_expr)) == E_Discriminant)))
     return 0;
 
-  /* Otherwise, convert this tree to its GCC equivalant.  */
+  /* Otherwise, convert this tree to its GCC equivalent.  */
   gnu_expr
     = elaborate_expression_1 (gnat_expr, gnat_entity, gnat_to_gnu (gnat_expr),
 			      gnu_name, definition, need_debug);
@@ -5211,7 +5211,7 @@ gnat_to_gnu_field (Entity_Id gnat_field, tree gnu_record_type, int packed,
 	    }
 
 	  /* If Aliased, the size must match exactly the rounded size.  We
-	     used to be more accomodating here and accept greater sizes, but
+	     used to be more accommodating here and accept greater sizes, but
 	     fully supporting this case on big-endian platforms would require
 	     switching to a more involved layout for the field.  */
 	  else if (Is_Aliased (gnat_field)
@@ -5703,7 +5703,7 @@ annotate_value (tree gnu_size)
       /* For negative values, use NEGATE_EXPR of the supplied value.  */
       if (tree_int_cst_sgn (gnu_size) < 0)
 	{
-	  /* The rediculous code below is to handle the case of the largest
+	  /* The ridiculous code below is to handle the case of the largest
 	     negative integer.  */
 	  tree negative_size = size_diffop (bitsize_zero_node, gnu_size);
 	  bool adjust = false;
diff --git a/gcc/ada/gigi.h b/gcc/ada/gigi.h
index cdf2c22..79fdf51 100644
--- a/gcc/ada/gigi.h
+++ b/gcc/ada/gigi.h
@@ -200,7 +200,7 @@ extern int gnat_gimplify_expr (tree *expr_p, tree *pre_p,
 
 /* Do the processing for the declaration of a GNAT_ENTITY, a type.  If
    a separate Freeze node exists, delay the bulk of the processing.  Otherwise
-   make a GCC type for GNAT_ENTITY and set up the correspondance.  */
+   make a GCC type for GNAT_ENTITY and set up the correspondence.  */
 extern void process_type (Entity_Id gnat_entity);
 
 /* Convert Sloc into *LOCUS (a location_t).  Return true if this Sloc
@@ -623,7 +623,7 @@ extern tree remove_conversions (tree exp, bool true_address);
    likewise return an expression pointing to the underlying array.  */
 extern tree maybe_unconstrained_array (tree exp);
 
-/* Return an expression that does an unchecked converstion of EXPR to TYPE.
+/* Return an expression that does an unchecked conversion of EXPR to TYPE.
    If NOTRUNC_P is true, truncation operations should be suppressed.  */
 extern tree unchecked_convert (tree type, tree expr, bool notrunc_p);
 
diff --git a/gcc/ada/gmem.c b/gcc/ada/gmem.c
index 002f78f..cb7e0a2 100644
--- a/gcc/ada/gmem.c
+++ b/gcc/ada/gmem.c
@@ -83,7 +83,7 @@ gmem_read_backtrace (void)
 }
 
 /* initialize gmem feature from the dumpname file. It returns 1 if the
-   dumpname has beed generated by GMEM (instrumented malloc/free) and 0 if not
+   dumpname has been generated by GMEM (instrumented malloc/free) and 0 if not
    (i.e. probably a GDB generated file).
 */
 
diff --git a/gcc/ada/init.c b/gcc/ada/init.c
index e2b6ec4..6e7356b 100644
--- a/gcc/ada/init.c
+++ b/gcc/ada/init.c
@@ -291,7 +291,7 @@ __gnat_set_globals (int main_priority,
    as the faulting instruction address in the corresponding signal context
    pushed by the kernel. Leaving this address untouched may loose, because if
    the triggering instruction happens to be the very first of a region, the
-   later adjustements performed by the unwinder would yield an address outside
+   later adjustments performed by the unwinder would yield an address outside
    that region. We need to compensate for those adjustments at some point,
    which we currently do in the GCC unwinding fallback macro.
 
@@ -1291,7 +1291,7 @@ extern Exception_Code Base_Code_In (Exception_Code);
 
 /* Define macro symbols for the VMS conditions that become Ada exceptions.
    Most of these are also defined in the header file ssdef.h which has not
-   yet been converted to be recoginized by Gnu C. Some, which couldn't be
+   yet been converted to be recognized by Gnu C. Some, which couldn't be
    located, are assigned names based on the DEC test suite tests which
    raise them. */
 
@@ -1337,7 +1337,7 @@ long __gnat_error_handler (int *, void *);
    ??? This is not a perfect solution to deal with the possible
    interactions between the GNAT and the DECAda exception handling
    models and better (more general) schemes are studied.  This is so
-   just provided as a conveniency workaround in the meantime, and
+   just provided as a convenient workaround in the meantime, and
    should be use with caution since the implementation has been kept
    very simple.  */
 
@@ -1761,7 +1761,7 @@ __gnat_init_float (void)
   asm ("mtfsb0 26");
 #endif
 
-  /* Similarily for sparc64. Achieved by masking bits in the Trap Enable Mask
+  /* Similarly for sparc64. Achieved by masking bits in the Trap Enable Mask
      field of the Floating-point Status Register (see the Sparc Architecture
      Manual Version 9, p 48).  */
 #if defined (sparc64)
diff --git a/gcc/ada/link.c b/gcc/ada/link.c
index cc415ad..97ff114 100644
--- a/gcc/ada/link.c
+++ b/gcc/ada/link.c
@@ -30,7 +30,7 @@
  *                                                                          *
  ****************************************************************************/
 
-/*  This file contains host-specific parameters describing the behaviour    */
+/*  This file contains host-specific parameters describing the behavior     */
 /*  of the linker. It is used by gnatlink as well as all tools that use     */
 /*  Mlib.                                                                   */
 
diff --git a/gcc/ada/raise.c b/gcc/ada/raise.c
index 7de1f77..d0abc8a 100644
--- a/gcc/ada/raise.c
+++ b/gcc/ada/raise.c
@@ -469,7 +469,7 @@ db_phases (int phases)
 
 /* This is an incomplete "proxy" of the structure of exception objects as
    built by the GNAT runtime library. Accesses to other fields than the common
-   header are performed through subprogram calls to aleviate the need of an
+   header are performed through subprogram calls to alleviate the need of an
    exact counterpart here and potential alignment/size issues for the common
    header. See a-exexpr.adb.  */
 
@@ -854,7 +854,7 @@ is_handled_by (_Unwind_Ptr choice, _GNAT_Exception * propagated_exception)
 
   /* Base matching rules: An exception data (id) matches itself, "when
      all_others" matches anything and "when others" matches anything unless
-     explicitely stated otherwise in the propagated occurrence.  */
+     explicitly stated otherwise in the propagated occurrence.  */
 
   bool is_handled =
     choice == E
@@ -970,7 +970,7 @@ get_action_description_for (_Unwind_Context *uw_context,
 
 /* Setup in UW_CONTEXT the eh return target IP and data registers, which will
    be restored with the others and retrieved by the landing pad once the jump
-   occured.  */
+   occurred.  */
 
 static void
 setup_to_install (_Unwind_Context *uw_context,
diff --git a/gcc/ada/tracebak.c b/gcc/ada/tracebak.c
index 1cd4a0f..b55f851 100644
--- a/gcc/ada/tracebak.c
+++ b/gcc/ada/tracebak.c
@@ -344,7 +344,7 @@ struct layout
    libgcc, and the stage1 compiler is unlikely to be linked against a post 3.3
    library.  It actually disables the support for backtraces in this compiler
    for targets defining USE_GCC_UNWINDER, which is OK since we don't use the
-   traceback capablity in the compiler anyway.
+   traceback capability in the compiler anyway.
 
    The condition is expressed the way above because we cannot reliably rely on
    any other macro from the base compiler when compiling stage1.  */
diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c
index fd42e83..869ce3f 100644
--- a/gcc/ada/trans.c
+++ b/gcc/ada/trans.c
@@ -348,7 +348,7 @@ Identifier_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p)
     }
   else
     {
-      /* Expand the type of this identitier first, in case it is an enumeral
+      /* Expand the type of this identifier first, in case it is an enumeral
 	 literal, which only get made when the type is expanded.  There is no
 	 order-of-elaboration issue here.  We want to use the Actual_Subtype if
 	 it has already been elaborated, otherwise the Etype.  Avoid using
@@ -1335,7 +1335,7 @@ Subprogram_Body_to_gnu (Node_Id gnat_node)
   /* Save debug output mode in case it is reset.  */
   enum debug_info_type save_write_symbols = write_symbols;
   const struct gcc_debug_hooks *const save_debug_hooks = debug_hooks;
-  /* Definining identifier of a parameter to the subprogram.  */
+  /* Defining identifier of a parameter to the subprogram.  */
   Entity_Id gnat_param;
   /* The defining identifier for the subprogram body. Note that if a
      specification has appeared before for this body, then the identifier
@@ -3641,7 +3641,7 @@ gnat_to_gnu (Node_Id gnat_node)
 
     case N_Defining_Program_Unit_Name:
       /* For a child unit identifier go up a level to get the
-         specificaton.  We get this when we try to find the spec of
+         specification.  We get this when we try to find the spec of
 	 a child unit package that is the compilation unit being compiled. */
       gnu_result = gnat_to_gnu (Parent (gnat_node));
       break;
@@ -3969,7 +3969,7 @@ gnat_to_gnu (Node_Id gnat_node)
       /* If the result is a pointer type, see if we are either converting
          from a non-pointer or from a pointer to a type with a different
  	 alias set and warn if so.  If the result defined in the same unit as
- 	 this unchecked convertion, we can allow this because we can know to
+ 	 this unchecked conversion, we can allow this because we can know to
  	 make that type have alias set 0.  */
       {
  	tree gnu_source_type = gnat_to_gnu_type (Source_Type (gnat_node));
@@ -5351,7 +5351,7 @@ addressable_p (tree gnu_expr)
 
 /* Do the processing for the declaration of a GNAT_ENTITY, a type.  If
    a separate Freeze node exists, delay the bulk of the processing.  Otherwise
-   make a GCC type for GNAT_ENTITY and set up the correspondance.  */
+   make a GCC type for GNAT_ENTITY and set up the correspondence.  */
 
 void
 process_type (Entity_Id gnat_entity)
diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c
index 484067d..f6ea29bb 100644
--- a/gcc/ada/utils.c
+++ b/gcc/ada/utils.c
@@ -1554,7 +1554,7 @@ value_factor_p (tree value, HOST_WIDE_INT factor)
 
 /* Given 2 consecutive field decls PREV_FIELD and CURR_FIELD, return true
    unless we can prove these 2 fields are laid out in such a way that no gap
-   exist between the end of PREV_FIELD and the begining of CURR_FIELD.  OFFSET
+   exist between the end of PREV_FIELD and the beginning of CURR_FIELD.  OFFSET
    is the distance in bits between the end of PREV_FIELD and the starting
    position of CURR_FIELD. It is ignored if null. */
 
@@ -1573,7 +1573,7 @@ potential_alignment_gap (tree prev_field, tree curr_field, tree offset)
   if (TREE_CODE (TREE_TYPE (prev_field)) == QUAL_UNION_TYPE)
     return false;
 
-  /* If the distance between the end of prev_field and the begining of
+  /* If the distance between the end of prev_field and the beginning of
      curr_field is constant, then there is a gap if the value of this
      constant is not null. */
   if (offset && host_integerp (offset, 1))
@@ -2705,7 +2705,7 @@ convert (tree type, tree expr)
 
       /* If the result type is a padded type with a self-referentially-sized
 	 field and the expression type is a record, do this as an
-	 unchecked converstion.  */
+	 unchecked conversion.  */
       else if (TREE_CODE (etype) == RECORD_TYPE
 	       && CONTAINS_PLACEHOLDER_P (DECL_SIZE (TYPE_FIELDS (type))))
 	return unchecked_convert (type, expr, false);
@@ -3075,7 +3075,7 @@ maybe_unconstrained_array (tree exp)
   return exp;
 }
 
-/* Return an expression that does an unchecked converstion of EXPR to TYPE.
+/* Return an expression that does an unchecked conversion of EXPR to TYPE.
    If NOTRUNC_P is true, truncation operations should be suppressed.  */
 
 tree
diff --git a/gcc/ada/utils2.c b/gcc/ada/utils2.c
index 787d01e..6ca8b99 100644
--- a/gcc/ada/utils2.c
+++ b/gcc/ada/utils2.c
@@ -504,7 +504,7 @@ nonbinary_modular_operation (enum tree_code op_code, tree type, tree lhs,
     rhs = fold (build2 (MINUS_EXPR, type, modulus, rhs)), op_code = MINUS_EXPR;
 
   /* For the logical operations, we only need PRECISION bits.  For
-     addition and subraction, we need one more and for multiplication we
+     addition and subtraction, we need one more and for multiplication we
      need twice as many.  But we never want to make a size smaller than
      our size. */
   if (op_code == PLUS_EXPR || op_code == MINUS_EXPR)