diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2009-04-20 11:34:59 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2009-04-20 11:34:59 +0000 |
| commit | 85087bcb0d17eeb4d3621f7b4baa954fb17e96d1 (patch) | |
| tree | ac9dded3658d8f15181fe319531b616f0b265c6b | |
| parent | c4551b28a74c661f07943831640d2378c2f1277e (diff) | |
| download | gcc-85087bcb0d17eeb4d3621f7b4baa954fb17e96d1.zip gcc-85087bcb0d17eeb4d3621f7b4baa954fb17e96d1.tar.gz gcc-85087bcb0d17eeb4d3621f7b4baa954fb17e96d1.tar.bz2 | |
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
| -rw-r--r-- | gcc/ada/ChangeLog | 6 | ||||
| -rw-r--r-- | 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 <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 --- 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 |