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
This commit is contained in:
Eric Botcazou
parent
2b3dffa66b
commit
e1da2b17fa
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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- *
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -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))
|
||||
{
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in New Issue