From bff37289d1b5786827efc951fa13c9be2d5f0f74 Mon Sep 17 00:00:00 2001 From: ebotcazou Date: Tue, 9 Nov 2010 12:05:56 +0000 Subject: [PATCH] * gcc-interface/utils.c (save_gnu_tree): Improve comments. (get_gnu_tree): Likewise. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@166485 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/gcc-interface/utils.c | 15 +++++++-------- 2 files changed, 12 insertions(+), 8 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index f4cc6a2..c768d86 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 2010-11-09 Eric Botcazou + * gcc-interface/utils.c (save_gnu_tree): Improve comments. + (get_gnu_tree): Likewise. + +2010-11-09 Eric Botcazou + * gcc-interface/decl.c (finish_fat_pointer_type): New function. (gnat_to_gnu_entity) : Use it to build the fat pointer type. diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 1a5081d..fa2d096 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -215,17 +215,17 @@ init_gnat_to_gnu (void) associate_gnat_to_gnu = ggc_alloc_cleared_vec_tree (max_gnat_nodes); } -/* GNAT_ENTITY is a GNAT tree node for an entity. GNU_DECL is the GCC tree - which is to be associated with GNAT_ENTITY. Such GCC tree node is always - a ..._DECL node. If NO_CHECK is true, the latter check is suppressed. +/* GNAT_ENTITY is a GNAT tree node for an entity. Associate GNU_DECL, a GCC + tree node, with GNAT_ENTITY. If GNU_DECL is not a ..._DECL node, abort. + If NO_CHECK is true, the latter check is suppressed. - If GNU_DECL is zero, a previous association is to be reset. */ + If GNU_DECL is zero, reset a previous association. */ void save_gnu_tree (Entity_Id gnat_entity, tree gnu_decl, bool no_check) { /* Check that GNAT_ENTITY is not already defined and that it is being set - to something which is a decl. Raise gigi 401 if not. Usually, this + to something which is a decl. If that is not the case, this usually means GNAT_ENTITY is defined twice, but occasionally is due to some Gigi problem. */ gcc_assert (!(gnu_decl @@ -235,9 +235,8 @@ save_gnu_tree (Entity_Id gnat_entity, tree gnu_decl, bool no_check) SET_GNU_TREE (gnat_entity, gnu_decl); } -/* GNAT_ENTITY is a GNAT tree node for a defining identifier. - Return the ..._DECL node that was associated with it. If there is no tree - node associated with GNAT_ENTITY, abort. +/* GNAT_ENTITY is a GNAT tree node for an entity. Return the GCC tree node + that was associated with it. If there is no such tree node, abort. In some cases, such as delayed elaboration or expressions that need to be elaborated only once, GNAT_ENTITY is really not an entity. */ -- 2.7.4