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/trans.c | |
| 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/trans.c')
| -rw-r--r-- | gcc/ada/trans.c | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 438b149..54ab608 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -5201,19 +5201,6 @@ gnat_gimplify_expr (tree *expr_p, tree *pre_p, tree *post_p ATTRIBUTE_UNUSED) return GS_ALL_DONE; } - return GS_UNHANDLED; - - case COMPONENT_REF: - /* We have a kludge here. If the FIELD_DECL is from a fat pointer and is - from an early dummy type, replace it with the proper FIELD_DECL. */ - if (TYPE_FAT_POINTER_P (TREE_TYPE (TREE_OPERAND (*expr_p, 0))) - && DECL_ORIGINAL_FIELD (TREE_OPERAND (*expr_p, 1))) - { - TREE_OPERAND (*expr_p, 1) - = DECL_ORIGINAL_FIELD (TREE_OPERAND (*expr_p, 1)); - return GS_OK; - } - /* ... fall through ... */ default: |