aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/sem.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/sem.adb')
-rw-r--r--gcc/ada/sem.adb5
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/sem.adb b/gcc/ada/sem.adb
index 06df00e..449fd8a 100644
--- a/gcc/ada/sem.adb
+++ b/gcc/ada/sem.adb
@@ -765,12 +765,11 @@ package body Sem is
E : constant Entity_Id := Defining_Entity_Or_Empty (N);
begin
if Present (E) then
- if Ekind (E) = E_Void
- and then Nkind (N) = N_Component_Declaration
+ if Nkind (N) = N_Component_Declaration
and then Present (Scope (E))
and then Ekind (Scope (E)) = E_Record_Type
then
- null; -- Set it later, in Analyze_Component_Declaration
+ null; -- Set it later, in Record_Type_Definition
elsif not Is_Not_Self_Hidden (E) then
Set_Is_Not_Self_Hidden (E);
end if;