OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

trans.c (check_for_eliminated_entity): Remove.

Browse Source 
* gcc-interface/trans.c (check_for_eliminated_entity): Remove.
	(Attribute_to_gnu): Do not call check_for_eliminated_entity.
	(call_to_gnu): Likewise.

From-SVN: r146400
This commit is contained in:
Eric Botcazou 2009-04-20 11:34:59 +00:00 committed by Eric Botcazou
parent c4551b28a7
commit 85087bcb0d
2 changed files with 6 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/ChangeLog
View File

@ -1,3 +1,9 @@
2009-04-20 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/trans.c (check_for_eliminated_entity): Remove.
(Attribute_to_gnu): Do not call check_for_eliminated_entity.
(call_to_gnu): Likewise.
2009-04-20 Eric Botcazou <ebotcazou@adacore.com> 2009-04-20 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/trans.c (gigi): Declare the name of the compilation * gcc-interface/trans.c (gigi): Declare the name of the compilation

23
gcc/ada/gcc-interface/trans.c
View File

@ -1058,23 +1058,6 @@ Pragma_to_gnu (Node_Id gnat_node)
return gnu_result; return gnu_result;
} }
/* Issue an error message if GNAT_NODE references an eliminated entity. */
static void
check_for_eliminated_entity (Node_Id gnat_node)
{
switch (Nkind (gnat_node))
{
case N_Identifier:
case N_Operator_Symbol:
case N_Expanded_Name:
case N_Attribute_Reference:
if (Is_Eliminated (Entity (gnat_node)))
Eliminate_Error_Msg (gnat_node, Entity (gnat_node));
break;
}
}
/* Subroutine of gnat_to_gnu to translate gnat_node, an N_Attribute, /* Subroutine of gnat_to_gnu to translate gnat_node, an N_Attribute,
to a GCC tree, which is returned. GNU_RESULT_TYPE_P is a pointer to to a GCC tree, which is returned. GNU_RESULT_TYPE_P is a pointer to
where we should place the result type. ATTRIBUTE is the attribute ID. */ where we should place the result type. ATTRIBUTE is the attribute ID. */
@ -1215,8 +1198,6 @@ Attribute_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, int attribute)
don't try to build a trampoline. */ don't try to build a trampoline. */
if (attribute == Attr_Code_Address) if (attribute == Attr_Code_Address)
{ {
check_for_eliminated_entity (Prefix (gnat_node));
for (gnu_expr = gnu_result; for (gnu_expr = gnu_result;
CONVERT_EXPR_P (gnu_expr); CONVERT_EXPR_P (gnu_expr);
gnu_expr = TREE_OPERAND (gnu_expr, 0)) gnu_expr = TREE_OPERAND (gnu_expr, 0))
@ -1231,8 +1212,6 @@ Attribute_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, int attribute)
a useful warning with -Wtrampolines. */ a useful warning with -Wtrampolines. */
else if (TREE_CODE (TREE_TYPE (gnu_prefix)) == FUNCTION_TYPE) else if (TREE_CODE (TREE_TYPE (gnu_prefix)) == FUNCTION_TYPE)
{ {
check_for_eliminated_entity (Prefix (gnat_node));
for (gnu_expr = gnu_result; for (gnu_expr = gnu_result;
CONVERT_EXPR_P (gnu_expr); CONVERT_EXPR_P (gnu_expr);
gnu_expr = TREE_OPERAND (gnu_expr, 0)) gnu_expr = TREE_OPERAND (gnu_expr, 0))
@ -2357,8 +2336,6 @@ call_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, tree gnu_target)
tree gnu_after_list = NULL_TREE; tree gnu_after_list = NULL_TREE;
tree gnu_subprog_call; tree gnu_subprog_call;
check_for_eliminated_entity (Name (gnat_node));
gcc_assert (TREE_CODE (gnu_subprog_type) == FUNCTION_TYPE); gcc_assert (TREE_CODE (gnu_subprog_type) == FUNCTION_TYPE);
/* If we are calling a stubbed function, make this into a raise of /* If we are calling a stubbed function, make this into a raise of