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 cdcf5293dd605edb7043ecc4cb3b528995e4866b..4121fe7023ef335672d5e5f1f86856138d457743 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+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>
 
@@ -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 544138edf16d86030a3e121756c7a1db8c459f95..b38c34da5730bfebc997ae71b63c7fd484f07586 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 2b2cf57f7de4b11ca965eda0249314c2eb16f5c7..545730b0465bf6bf4a1a4b1d539c664bb7bac4fd 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 9fc77baa23b8a0c01652a8b6bb9dca93ec206bfa..a6440d58b73e81a02d32a35c0d176741cc236113 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 5186ccb076e8cb11785288fd22f28e521095d160..1625484b6aa89e04e46eb873157c4fb3f6a75dde 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 e680d090ba09ed075ba0095229836c862f7cf649..170fad7fac1baaa49abc79502ec88e6e92c266df 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