decl.c (prepend_attributes): Fix typo.

	* decl.c (prepend_attributes): Fix typo.
	* trans.c (Pragma_to_gnu): Likewise.
	* utils.c (gnat_genericize): Likewise.

From-SVN: r134094

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index cdcf529..4121fe7 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,4 +1,10 @@
 2008-04-08  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * decl.c (prepend_attributes): Fix typo.
+       * trans.c (Pragma_to_gnu): Likewise.
+       * utils.c (gnat_genericize): Likewise.
+
+2008-04-08  Eric Botcazou  <ebotcazou@adacore.com>
             Richard Kenner  <kenner@adacore.com>
 
        * ada-tree.h (TYPE_PACKED_ARRAY_TYPE_P): Only set it when bit-packed.
@@ -2380,8 +2386,8 @@ PR ada/10768
 
 2008-03-18  Paolo Bonzini  <bonzini@gnu.org>
 
-        * misc.c (LANG_HOOKS_REDUCE_BIT_FIELD_OPERATIONS): Delete.
-       
+       * misc.c (LANG_HOOKS_REDUCE_BIT_FIELD_OPERATIONS): Delete.
+
 2008-03-15  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 
        * gnat_rm.texi (Implementation Defined Characteristics)

diff --git a/gcc/ada/ada-tree.h b/gcc/ada/ada-tree.h
index 544138e..b38c34d 100644 (file)
--- a/gcc/ada/ada-tree.h
+++ b/gcc/ada/ada-tree.h
@@ -6,7 +6,7 @@
  *                                                                          *
  *                              C Header File                               *
  *                                                                          *
- *          Copyright (C) 1992-2007, Free Software Foundation, Inc.         *
+ *          Copyright (C) 1992-2008, Free Software Foundation, Inc.         *
  *                                                                          *
  * GNAT is free software;  you can  redistribute it  and/or modify it under *
  * terms of the  GNU General Public License as published  by the Free Soft- *

diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c
index 2b2cf57..545730b 100644 (file)
--- a/gcc/ada/decl.c
+++ b/gcc/ada/decl.c
@@ -2183,7 +2183,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
              gnu_type = gnat_to_gnu_type (Original_Array_Type (gnat_entity));
              for (index = array_dim - 1; index >= 0; index--)
                gnu_type = TREE_TYPE (gnu_type);
-       
+
              /* One of the above calls might have caused us to be elaborated,
                 so don't blow up if so.  */
              if (present_gnu_tree (gnat_entity))
@@ -5107,7 +5107,7 @@ prepend_attributes (Entity_Id gnat_entity, struct attrib ** attr_list)
                                                  (First (gnat_assoc)))))));
          }
 
-       switch (Get_Pragma_Id (Pragma_Identifier (Chars (gnat_temp))))
+       switch (Get_Pragma_Id (Chars (Pragma_Identifier (gnat_temp))))
          {
          case Pragma_Machine_Attribute:
            etype = ATTR_MACHINE_ATTRIBUTE;

diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c
index 9fc77ba..a6440d5 100644 (file)
--- a/gcc/ada/trans.c
+++ b/gcc/ada/trans.c
@@ -691,7 +691,7 @@ Pragma_to_gnu (Node_Id gnat_node)
       || !Is_Pragma_Name (Chars (Pragma_Identifier (gnat_node))))
     return gnu_result;
 
-  switch (Get_Pragma_Id (Pragma_Identifier (Chars (gnat_node))))
+  switch (Get_Pragma_Id (Chars (Pragma_Identifier (gnat_node))))
     {
     case Pragma_Inspection_Point:
       /* Do nothing at top level: all such variables are already viewable.  */
@@ -3673,7 +3673,6 @@ gnat_to_gnu (Node_Id gnat_node)
 
       /* If the result is a pointer type, see if we are improperly
         converting to a stricter alignment.  */
-
       if (STRICT_ALIGNMENT && POINTER_TYPE_P (gnu_result_type)
          && IN (Ekind (Etype (gnat_node)), Access_Kind))
        {

diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c
index 5186ccb..1625484 100644 (file)
--- a/gcc/ada/utils.c
+++ b/gcc/ada/utils.c
@@ -2098,7 +2098,7 @@ gnat_genericize (tree fndecl)
      type, and the gimplifier ICEs on such attempts.  Second, the middle-end
      now relies on a different attribute for such cases (DECL_BY_REFERENCE on
      RESULT/PARM_DECLs), and expects the user invisible by-reference-ness to
-     be explicitely accounted for by the front-end in the function body.
+     be explicitly accounted for by the front-end in the function body.
 
      We achieve the complete transformation in two steps:
 
@@ -2116,7 +2116,7 @@ gnat_genericize (tree fndecl)
      strategy, which escapes the gimplifier temporary creation issues by
      creating it's own temporaries using TARGET_EXPR nodes.  Our way relies
      on simple specific support code in aggregate_value_p to look at the
-     target function result decl explicitely.  */
+     target function result decl explicitly.  */
 
   struct pointer_set_t *p_set;
   tree decl_result = DECL_RESULT (fndecl);
@@ -2124,7 +2124,7 @@ gnat_genericize (tree fndecl)
   if (!DECL_BY_REFERENCE (decl_result))
     return;
 
-  /* Make the DECL_RESULT explicitely by-reference and adjust all the
+  /* Make the DECL_RESULT explicitly by-reference and adjust all the
      occurrences in the function body using the common tree-walking facility.
      We want to see every occurrence of the result decl to adjust the
      referencing tree, so need to use our own pointer set to control which

diff --git a/gcc/ada/utils2.c b/gcc/ada/utils2.c
index e680d09..170fad7 100644 (file)
--- a/gcc/ada/utils2.c
+++ b/gcc/ada/utils2.c
@@ -243,7 +243,7 @@ find_common_type (tree t1, tree t2)
      would better be handled upstream (types should be made consistent before
      calling into build_binary_op), some others are really expected and we
      have to be careful.  */
-     
+
   /* We must prevent writing more than what the target may hold if this is for
      an assignment and the case of tagged types is handled in build_binary_op
      so use the lhs type if it is known to be smaller, or of constant size and