diff options
| author | Duncan Sands <baldrick@free.fr> | 2007-06-10 20:36:40 +0200 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2007-06-10 18:36:40 +0000 |
| commit | 1bbf850280fd2a435aea5321ad3f79977dbc595c (patch) | |
| tree | 05c191c3e0692e3f81ae4fa151888959b5108a53 /gcc/ada/gigi.h | |
| parent | 55edccf416b868b9b05a459a25487785eaaf7b63 (diff) | |
| download | gcc-1bbf850280fd2a435aea5321ad3f79977dbc595c.zip gcc-1bbf850280fd2a435aea5321ad3f79977dbc595c.tar.gz gcc-1bbf850280fd2a435aea5321ad3f79977dbc595c.tar.bz2 | |
decl.c (gnat_to_gnu_entity): Use pointers to dummy nodes...
* decl.c (gnat_to_gnu_entity): Use pointers to dummy nodes, rather
than to void, for the fields when making a new fat pointer type.
(gnat_substitute_in_type): Now substitute_in_type.
* gigi.h (gnat_substitute_in_type): Likewise.
* trans.c (gnat_gimplify_expr): Remove COMPONENT_REF kludge.
* utils.c (update_pointer_to): Update fat pointers by updating the
dummy node pointers used for the fields.
From-SVN: r125602
Diffstat (limited to 'gcc/ada/gigi.h')
| -rw-r--r-- | gcc/ada/gigi.h | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/gigi.h b/gcc/ada/gigi.h index a42c123..d210c61 100644 --- a/gcc/ada/gigi.h +++ b/gcc/ada/gigi.h @@ -160,11 +160,11 @@ extern tree maybe_pad_type (tree type, tree size, unsigned int align, the value passed against the list of choices. */ extern tree choices_to_gnu (tree operand, Node_Id choices); -/* Given a type T, a FIELD_DECL F, and a replacement value R, - return a new type with all size expressions that contain F - updated by replacing F with R. This is identical to GCC's - substitute_in_type except that it knows about TYPE_INDEX_TYPE. */ -extern tree gnat_substitute_in_type (tree t, tree f, tree r); +/* Given a type T, a FIELD_DECL F, and a replacement value R, return a new + type with all size expressions that contain F updated by replacing F + with R. If F is NULL_TREE, always make a new RECORD_TYPE, even if + nothing has changed. */ +extern tree substitute_in_type (tree t, tree f, tree r); /* Return the "RM size" of GNU_TYPE. This is the actual number of bits needed to represent the object. */ |