* gcc-interface/trans.c (check_for_eliminated_entity): Remove.

	(Attribute_to_gnu): Do not call check_for_eliminated_entity.
	(call_to_gnu): Likewise.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146400 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 7cb1437..d94ea39 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,5 +1,11 @@
 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
        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 (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