From a43abae8d3f70c6bb13382a4d3793e0073842674 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Sun, 6 Jan 2013 12:10:06 +0000 Subject: [PATCH] * gcc-interface/decl.c (elaborate_entity) : Delete. From-SVN: r194945 --- gcc/ada/ChangeLog | 4 ++++ 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 1d3dcd3b0f1..3f46799d187 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2013-01-06 Eric Botcazou + + * gcc-interface/decl.c (elaborate_entity) : Delete. + 2013-01-06 Eric Botcazou * gcc-interface/decl.c (gnat_to_gnu_entity) : Do not diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index f312c7d4cbe..9a387914b8c 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: