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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 7cb143790724078577eb0198f63a5f94836343bb..d94ea39bc94ba8900bb91a350781e543bd6df4d6 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -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>
 
        * gcc-interface/trans.c (gigi): Declare the name of the compilation

diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index d28646d293337a55c704a6fb2a928d626ece0f16..0b29e3312cd843b5869f7d14fb8afeeab76e319b 100644 (file)
--- 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;
 }
 \f
-/* 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