diff options
Diffstat (limited to 'gcc/ada/sem.adb')
| -rw-r--r-- | gcc/ada/sem.adb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gcc/ada/sem.adb b/gcc/ada/sem.adb index 06df00e..dcff62e 100644 --- a/gcc/ada/sem.adb +++ b/gcc/ada/sem.adb @@ -192,6 +192,9 @@ package body Sem is when N_Conditional_Entry_Call => Analyze_Conditional_Entry_Call (N); + when N_Continue_Statement => + Analyze_Continue_Statement (N); + when N_Delay_Alternative => Analyze_Delay_Alternative (N); @@ -765,12 +768,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; |