diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2009-04-20 17:41:33 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2009-04-20 17:41:33 +0000 |
| commit | 77022fa8734fdd0b5ac892ba109b77e0ec7dd13b (patch) | |
| tree | 3ce42ab31f3cb68208edbe8786a1bfaa418b3238 /gcc/ada/gcc-interface/utils.c | |
| parent | d9d3eaab8c71fd2efa242d244b9279b4311dc807 (diff) | |
| download | gcc-77022fa8734fdd0b5ac892ba109b77e0ec7dd13b.zip gcc-77022fa8734fdd0b5ac892ba109b77e0ec7dd13b.tar.gz gcc-77022fa8734fdd0b5ac892ba109b77e0ec7dd13b.tar.bz2 | |
ada-tree.h (DECL_HAS_REP_P): Delete.
* gcc-interface/ada-tree.h (DECL_HAS_REP_P): Delete.
* gcc-interface/decl.c (gnat_to_gnu_entity): Add support for extension
of types with unknown discriminants.
(substitute_in_type): Rewrite and restrict to formal substitutions.
* gcc-interface/utils.c (create_field_decl): Do not set DECL_HAS_REP_P.
(update_pointer_to): Update comment.
From-SVN: r146447
Diffstat (limited to 'gcc/ada/gcc-interface/utils.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index feb2f4a..55e474c 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -1521,8 +1521,6 @@ create_field_decl (tree field_name, tree field_type, tree record_type, pos_from_bit (&DECL_FIELD_OFFSET (field_decl), &DECL_FIELD_BIT_OFFSET (field_decl), DECL_OFFSET_ALIGN (field_decl), pos); - - DECL_HAS_REP_P (field_decl) = 1; } /* In addition to what our caller says, claim the field is addressable if we @@ -3606,10 +3604,7 @@ update_pointer_to (tree old_type, tree new_type) bounds_field, NULL_TREE); /* Create the new array for the new PLACEHOLDER_EXPR and make pointers - to the dummy array point to it. - - ??? This is now the only use of substitute_in_type, which is a very - "heavy" routine to do this, it should be replaced at some point. */ + to the dummy array point to it. */ update_pointer_to (TREE_TYPE (TREE_TYPE (array_field)), substitute_in_type (TREE_TYPE (TREE_TYPE (TYPE_FIELDS (new_ptr))), |