diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2013-01-06 12:10:06 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2013-01-06 12:10:06 +0000 |
| commit | a43abae8d3f70c6bb13382a4d3793e0073842674 (patch) | |
| tree | 1dbc88fa847d06a189141a77fe7770d90547a869 | |
| parent | 940ff20cacc289327c63f9e51bf176b7935a8a08 (diff) | |
| download | gcc-a43abae8d3f70c6bb13382a4d3793e0073842674.zip gcc-a43abae8d3f70c6bb13382a4d3793e0073842674.tar.gz gcc-a43abae8d3f70c6bb13382a4d3793e0073842674.tar.bz2 | |
* gcc-interface/decl.c (elaborate_entity) <E_Record_Type>: Delete.
From-SVN: r194945
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 12 |
2 files changed, 4 insertions, 12 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 1d3dcd3..3f46799 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,9 @@ 2013-01-06 Eric Botcazou <ebotcazou@adacore.com> + * gcc-interface/decl.c (elaborate_entity) <E_Record_Type>: Delete. + +2013-01-06 Eric Botcazou <ebotcazou@adacore.com> + * gcc-interface/decl.c (gnat_to_gnu_entity) <discrete_type>: Do not pack the field of the record type made for a misaligned type. diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index f312c7d..9a38791 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -5944,18 +5944,6 @@ elaborate_entity (Entity_Id gnat_entity) break; } - case E_Record_Type: - { - Node_Id full_definition = Declaration_Node (gnat_entity); - Node_Id record_definition = Type_Definition (full_definition); - - /* If this is a record extension, go a level further to find the - record definition. */ - if (Nkind (record_definition) == N_Derived_Type_Definition) - record_definition = Record_Extension_Part (record_definition); - } - break; - case E_Record_Subtype: case E_Private_Subtype: case E_Limited_Private_Subtype: |