From 85087bcb0d17eeb4d3621f7b4baa954fb17e96d1 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 20 Apr 2009 11:34:59 +0000 Subject: trans.c (check_for_eliminated_entity): Remove. * 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 --- gcc/ada/ChangeLog | 6 ++++++ gcc/ada/gcc-interface/trans.c | 23 ----------------------- 2 files changed, 6 insertions(+), 23 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 7cb1437..d94ea39 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,11 @@ 2009-04-20 Eric Botcazou + * 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 + * gcc-interface/trans.c (gigi): Declare the name of the compilation unit as the first global name at the very beginning. diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index d28646d..0b29e33 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -1058,23 +1058,6 @@ Pragma_to_gnu (Node_Id gnat_node) 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, 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. */ @@ -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. */ if (attribute == Attr_Code_Address) { - check_for_eliminated_entity (Prefix (gnat_node)); - for (gnu_expr = gnu_result; CONVERT_EXPR_P (gnu_expr); 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. */ else if (TREE_CODE (TREE_TYPE (gnu_prefix)) == FUNCTION_TYPE) { - check_for_eliminated_entity (Prefix (gnat_node)); - for (gnu_expr = gnu_result; CONVERT_EXPR_P (gnu_expr); 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_subprog_call; - check_for_eliminated_entity (Name (gnat_node)); - gcc_assert (TREE_CODE (gnu_subprog_type) == FUNCTION_TYPE); /* If we are calling a stubbed function, make this into a raise of -- cgit v1.1