diff options
author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-11-09 12:05:56 +0000 |
---|---|---|
committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-11-09 12:05:56 +0000 |
commit | bff37289d1b5786827efc951fa13c9be2d5f0f74 (patch) | |
tree | cbe0097960b5e59a0d6d5180e1d7552c6e1fe473 /gcc/ada/gcc-interface/utils.c | |
parent | 91c9bb2d60977f15f57339039669b5c5f05347d3 (diff) | |
download | ppe42-gcc-bff37289d1b5786827efc951fa13c9be2d5f0f74.tar.gz ppe42-gcc-bff37289d1b5786827efc951fa13c9be2d5f0f74.zip |
* 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
Diffstat (limited to 'gcc/ada/gcc-interface/utils.c')
-rw-r--r-- | gcc/ada/gcc-interface/utils.c | 15 |
1 files changed, 7 insertions, 8 deletions
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. */ |