From a1d8cc63b46d536ce4e66e9ed9999d867f1cc27e Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Tue, 9 Nov 2010 12:05:56 +0000 Subject: [PATCH] utils.c (save_gnu_tree): Improve comments. * gcc-interface/utils.c (save_gnu_tree): Improve comments. (get_gnu_tree): Likewise. From-SVN: r166485 --- 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 f4cc6a2b505..c768d867423 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +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. diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 1a5081d43e9..fa2d0969726 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.30.2