diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2009-10-16 19:28:52 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2009-10-16 19:28:52 +0000 |
| commit | afb4afcd90d30faf064bcba6a7b5a86fd4003bdc (patch) | |
| tree | cb3644326b2ac3cdc4b94ace7e353dcd04c121fb /gcc/ada/gcc-interface/utils.c | |
| parent | 3b24c708a1d4da6b37ce1bde62d44a056030b635 (diff) | |
| download | gcc-afb4afcd90d30faf064bcba6a7b5a86fd4003bdc.zip gcc-afb4afcd90d30faf064bcba6a7b5a86fd4003bdc.tar.gz gcc-afb4afcd90d30faf064bcba6a7b5a86fd4003bdc.tar.bz2 | |
exp_dbug.ads: Adjust type names in comments.
* exp_dbug.ads: Adjust type names in comments.
* gcc-interface/decl.c (maybe_pad_type): Remove NAME_TRAILER parameter,
add new IS_COMPONENT_TYPE parameter. Adjust. Remove dead code.
(gnat_to_gnu_entity): Adjust for above change.
(gnat_to_gnu_component_type): Likewise.
(gnat_to_gnu_field): Likewise.
* gcc-interface/trans.c (call_to_gnu): Likewise. Do not unnecessarily
call max_size.
* gcc-interface/utils.c (finish_record_type): Remove obsolete code.
* gcc-interface/gigi.h (maybe_pad_type): Adjust prototype.
From-SVN: r152916
Diffstat (limited to 'gcc/ada/gcc-interface/utils.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 7acb2ce..f1a4b00 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -739,11 +739,6 @@ finish_record_type (tree record_type, tree fieldlist, int rep_level, if (code == QUAL_UNION_TYPE) nreverse (fieldlist); - /* If the type is discriminated, it can be used to access all its - constrained subtypes, so force structural equality checks. */ - if (CONTAINS_PLACEHOLDER_P (size)) - SET_TYPE_STRUCTURAL_EQUALITY (record_type); - if (rep_level < 2) { /* If this is a padding record, we never want to make the size smaller |