From: Eric Botcazou Date: Tue, 8 Apr 2008 12:48:53 +0000 (+0000) Subject: decl.c (prepend_attributes): Fix typo. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e1da2b17fa1e397a0b12782881103bb764bce4cd;p=gcc.git 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 cdcf5293dd6..4121fe7023e 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2008-04-08 Eric Botcazou + + * decl.c (prepend_attributes): Fix typo. + * trans.c (Pragma_to_gnu): Likewise. + * utils.c (gnat_genericize): Likewise. + 2008-04-08 Eric Botcazou Richard Kenner @@ -2380,8 +2386,8 @@ PR ada/10768 2008-03-18 Paolo Bonzini - * misc.c (LANG_HOOKS_REDUCE_BIT_FIELD_OPERATIONS): Delete. - + * misc.c (LANG_HOOKS_REDUCE_BIT_FIELD_OPERATIONS): Delete. + 2008-03-15 Ralf Wildenhues * gnat_rm.texi (Implementation Defined Characteristics) diff --git a/gcc/ada/ada-tree.h b/gcc/ada/ada-tree.h index 544138edf16..b38c34da573 100644 --- 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 2b2cf57f7de..545730b0465 100644 --- 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 9fc77baa23b..a6440d58b73 100644 --- 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 5186ccb076e..1625484b6aa 100644 --- 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 e680d090ba0..170fad7fac1 100644 --- 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