* gcc-interface/decl.c (elaborate_entity) <E_Record_Type>: Delete.
From-SVN: r194945
This commit is contained in:
parent
940ff20cac
commit
a43abae8d3
2 changed files with 4 additions and 12 deletions
|
@ -1,3 +1,7 @@
|
|||
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
|
||||
|
|
|
@ -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:
|
||||
|
|
Loading…
Add table
Reference in a new issue