diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2011-03-26 09:55:04 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2011-03-26 09:55:04 +0000 |
| commit | 6ddf9843628ab87261d2ec8dc3d14ac057e76014 (patch) | |
| tree | 5cbb5738edf0877a3943e13174915c10a0e0e71c /gcc/ada/gcc-interface/trans.c | |
| parent | 5daed84a544a8e2bd3017ad77975abd9831953b7 (diff) | |
| download | gcc-6ddf9843628ab87261d2ec8dc3d14ac057e76014.zip gcc-6ddf9843628ab87261d2ec8dc3d14ac057e76014.tar.gz gcc-6ddf9843628ab87261d2ec8dc3d14ac057e76014.tar.bz2 | |
gigi.h (finalize_from_with_types): Adjust comment.
* gcc-interface/gigi.h (finalize_from_with_types): Adjust comment.
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Access_Type>: Defer
unconditionally to the end of the unit when the designated type is
limited_with'ed.
<all>: Rename local variable. Attempt to un-defer types only and do it
for limited_with'ed types as well.
(finalize_from_with_types): Adjust comment. Rename variable and tidy.
* gcc-interface/trans.c (Compilation_Unit_to_gnu): Use GNAT_UNIT
consistently and remove redundant call to finalize_from_with_types.
From-SVN: r171552
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index f6d83af..332f715 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -3785,27 +3785,23 @@ Compilation_Unit_to_gnu (Node_Id gnat_node) gnat_pushlevel (); /* For a body, first process the spec if there is one. */ - if (Nkind (Unit (gnat_node)) == N_Package_Body - || (Nkind (Unit (gnat_node)) == N_Subprogram_Body - && !Acts_As_Spec (gnat_node))) - { - add_stmt (gnat_to_gnu (Library_Unit (gnat_node))); - finalize_from_with_types (); - } + if (Nkind (gnat_unit) == N_Package_Body + || (Nkind (gnat_unit) == N_Subprogram_Body && !Acts_As_Spec (gnat_node))) + add_stmt (gnat_to_gnu (Library_Unit (gnat_node))); if (type_annotate_only && gnat_node == Cunit (Main_Unit)) { elaborate_all_entities (gnat_node); - if (Nkind (Unit (gnat_node)) == N_Subprogram_Declaration - || Nkind (Unit (gnat_node)) == N_Generic_Package_Declaration - || Nkind (Unit (gnat_node)) == N_Generic_Subprogram_Declaration) + if (Nkind (gnat_unit) == N_Subprogram_Declaration + || Nkind (gnat_unit) == N_Generic_Package_Declaration + || Nkind (gnat_unit) == N_Generic_Subprogram_Declaration) return; } process_decls (Declarations (Aux_Decls_Node (gnat_node)), Empty, Empty, true, true); - add_stmt (gnat_to_gnu (Unit (gnat_node))); + add_stmt (gnat_to_gnu (gnat_unit)); /* If we can inline, generate code for all the inlined subprograms. */ if (optimize) |