* gcc-interface/decl.c (elaborate_entity) <E_Record_Type>: Delete.

From-SVN: r194945

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 1d3dcd3..3f46799 100644 (file)
--- 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 (file)
--- 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: