Skip to content

R
riscv-gcc-1
Commit a43abae8 by Eric Botcazou Committed by Eric Botcazou
Options

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

From-SVN: r194945
parent 940ff20c
Showing with 4 additions and 12 deletions
gcc/ada/ChangeLog
2013-01-06 Eric Botcazou <ebotcazou@adacore.com> 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 * gcc-interface/decl.c (gnat_to_gnu_entity) <discrete_type>: Do not
pack the field of the record type made for a misaligned type. pack the field of the record type made for a misaligned type.
......
gcc/ada/gcc-interface/decl.c
...@@ -5944,18 +5944,6 @@ elaborate_entity (Entity_Id gnat_entity) ...@@ -5944,18 +5944,6 @@ elaborate_entity (Entity_Id gnat_entity)
break; 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_Record_Subtype:
case E_Private_Subtype: case E_Private_Subtype:
case E_Limited_Private_Subtype: case E_Limited_Private_Subtype:
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment