gcc/ada/sem_ch6.adb

249       if Ekind (Scope (Subp_Id)) = E_Protected_Type then
558       if Present (Prev) and then Ekind (Prev) = E_Generic_Function then
885                if Ekind (Etype (Discr)) = E_Anonymous_Access_Type then
974                if Ekind (Designated_Type (R_Stm_Type)) /= E_Subprogram_Type
1232            and then Ekind (R_Type) = E_Anonymous_Access_Type
1243          elsif Ekind (R_Type) = E_Anonymous_Access_Subprogram_Type then
1245               or else Ekind (Current_Scope) = E_Return_Statement
1257          elsif Ekind (Etype (Expr)) = E_Incomplete_Type
1350       Kind     : constant Entity_Kind := Ekind (Gen_Id);
1462          Set_Ekind          (Gen_Id,  Ekind (Body_Id));
1614          Set_Ekind (Defining_Entity (N), Ekind (Prev));
1852         and then Ekind (Entity (P)) /= E_Entry_Family
1855            and then Ekind (Designated_Type (Etype (P))) = E_Subprogram_Type
1869         and then Ekind (Entity (P)) = E_Entry_Family
1891          if Ekind (Etype (P)) = E_Subprogram_Type then
1902         and then Ekind (Designated_Type (Etype (P))) = E_Subprogram_Type
1951         and then Ekind (Entity (Selector_Name (P))) = E_Entry_Family
1975         and then Ekind (Entity (Selector_Name (Prefix (P)))) = E_Entry_Family
1984         and then Ekind (Entity (Prefix (P))) = E_Entry_Family
2064       Kind       : constant Entity_Kind := Ekind (Scope_Id);
2094       if Ekind (Scope_Id) = E_Procedure then
2276             if Ekind (Typ) = E_Incomplete_Type
2278                         and then Ekind (Root_Type (Typ)) = E_Incomplete_Type)
2336                   if Ekind (Scope (Current_Scope)) = E_Package
2766          if Ekind (Scop) = E_Function
2767            and then Ekind (Etype (Scop)) = E_Anonymous_Access_Type
2995             elsif Ekind (Id) = E_Function
3219          if Ekind (Subp_Id) = E_Function then
3408             elsif Ekind (Scope (Spec_Id)) = E_Protected_Type then
3432             elsif Ekind (Scope (Spec_Id)) = E_Protected_Type then
3456            and then Ekind (Scope (Spec_Id)) /= E_Protected_Type
3721         and then Ekind (Spec_Id) = E_Function
3908               and then Ekind (Etype (First_Entity (Spec_Id))) = E_Record_Type
4170                  and then Ekind (Spec_Id) = E_Function
4330             if Ekind (Rtyp) = E_Anonymous_Access_Type then
4551                        and then Ekind (Ent) = E_Procedure
4577                if Ekind (E1) = E_Out_Parameter then
4790               and then not (Ekind (Designator) = E_Procedure
4798                if Ekind (Designator) = E_Procedure then
4904              and then Ekind (Spec) = E_Procedure
5011                   elsif Ekind (Formal_Typ) = E_Anonymous_Access_Type then
5232          if Ekind (New_Id) = E_Operator
5273            and then Ekind (Etype (Old_Type)) = E_Anonymous_Access_Type
5456            and then (Ekind (Old_Formal_Base) = Ekind (New_Formal_Base)
5572               and then Ekind (Etype (Old_Formal)) = E_Anonymous_Access_Type
5573               and then Ekind (Etype (New_Formal)) = E_Anonymous_Access_Type
5867          if Ekind (Scop) = E_Package
6226       if Ekind (Subp) = E_Enumeration_Literal then
6229       elsif Ekind (Subp) = E_Entry then
6334             if Ekind (Subp) = E_Entry then
6393                       or else Ekind (Scope (Subp)) = E_Protected_Type)
6416               and then Ekind (Scope (Subp)) /= E_Protected_Type
6453          if Ekind (Subp) = E_Entry then
6466         and then Ekind (Subp) /= E_Entry
6467         and then Ekind (Scope (Subp)) /= E_Protected_Type
7131             if Ekind (Iface_Typ) = E_Anonymous_Access_Type
7132               and then Ekind (Prim_Typ) = E_Anonymous_Access_Type
7146             if Ekind (Iface_Typ) = E_Record_Type
7156             elsif Ekind (Iface_Id) /= Ekind (Prim_Id)
7186       if (Ekind (Def_Id) /= E_Entry
7187            and then Ekind (Def_Id) /= E_Function
7188            and then Ekind (Def_Id) /= E_Procedure)
7281               and then Ekind (Subp) = E_Procedure
7302                     and then Ekind (Formal) /= E_In_Out_Parameter
7303                     and then Ekind (Formal) /= E_Out_Parameter
7321             elsif Ekind (Def_Id) = E_Function
7322               and then Ekind (Subp) = E_Function
7336                  and then Ekind (First_Formal (Subp)) = E_In_Parameter
7470          elsif Ekind (Base_2) = Ekind (Typ_2)
7475          elsif Ekind (Base_1) = Ekind (Typ_1)
7495          if Ekind (Desig) = E_Incomplete_Type then
7662       elsif Ekind (Type_2) = E_Incomplete_Type
7682       elsif Ekind (Type_2) = E_Private_Subtype
7718       if (Ekind (Base_Type (Type_1)) = E_Anonymous_Access_Type
7720           Ekind (Base_Type (Type_2)) = E_Anonymous_Access_Type)
7792             elsif Ekind (Desig_2) = E_Incomplete_Subtype
7809          if ((Ekind (Type_1) = E_Anonymous_Access_Type
7811             or else (Ekind (Type_2) = E_Anonymous_Access_Type
7960          if Ekind (Formal) /= E_In_Parameter then
7975               and then Ekind (Formal_Type) in Private_Kind
8027          if (Ekind (Base_Type (Etype (Formal))) = E_Anonymous_Access_Type
8466          if Ekind (Scope (Typ)) /= E_Package
8638          elsif Ekind (E) = E_Function
8671               or else (Ekind (E) = Ekind (Designator)
8765                elsif Ekind (E) = E_Function
8970                   and then Ekind (Entity (E1)) = E_Discriminant
8971                   and then Ekind (Entity (E2)) = E_In_Parameter)
8978                (Ekind (Entity (E1)) = E_Constant
8979                  and then Ekind (Entity (E2)) = E_In_Parameter
8990                   and then Ekind (Entity (E1)) = E_Loop_Parameter
8991                   and then Ekind (Entity (E2)) = E_Loop_Parameter);
9355            and then Ekind (Entity (B1)) = E_Discriminant
9487         or else Ekind (Prim) /= Ekind (Iface_Prim)
9500         and then Ekind (Iface_Ctrl_F) /= Ekind (Prim_Ctrl_F)
9508       elsif Ekind (Iface_Prim) = E_Procedure
9519          if (Ekind (Etype (Prim)) = E_Anonymous_Access_Type)
9521             (Ekind (Etype (Iface_Prim)) = E_Anonymous_Access_Type)
9622          if Ekind (Prev_Type) = E_Anonymous_Access_Type then
9626          if Ekind (New_Type) = E_Anonymous_Access_Type then
9656       elsif Ekind (Current_Scope) = E_Package
9671             if Ekind (F_Typ) = E_Anonymous_Access_Type then
9683          if No (G_Typ) and then Ekind (Prev_E) = E_Function then
9719                     and then Ekind (P_Prim) = Ekind (New_E)
9741                        and then (Ekind (New_E) /= E_Function
10123                elsif Ekind (S) = E_Function then
10152                         elsif Ekind (Etype (S)) = E_Anonymous_Access_Type
10184             if Ekind (T) in Private_Kind then
10220             if Ekind (S) = E_Function then
10221                if Ekind (Etype (S)) = E_Anonymous_Access_Type then
10250                if Ekind (Etype (Formal)) = E_Anonymous_Access_Type then
10258                if Ekind (B_Typ) = E_Access_Subtype then
10364                if Ekind (Defining_Identifier (Param_E1)) /=
10365                     Ekind (Defining_Identifier (Param_E2))
10399                  and then (Ekind (E) = E_Entry or else Is_Subprogram (E))
10436                  and then Ekind (E) = E_Procedure
10478                  and then Ekind (Subp) = Ekind (E)
10555            and then Ekind (E) = E_Entry
10745          if Ekind (E) = E_Package
10797             elsif Ekind (S) = E_Function
10798               and then Ekind (E) = E_Abstract_State
10847                  and then Ekind (E) /= E_Enumeration_Literal
10888                elsif Ekind (E) /= E_Entry
10977                        or else Ekind (E) /= E_Operator
11293            Ekind (Desig) = E_Incomplete_Type
11373                   if Ekind (Scope (Current_Scope)) = E_Package
11446             elsif Ekind (Formal_Type) = E_Void then
11556             if Ekind (Formal_Type) = E_Anonymous_Access_Type
11570             if Ekind (Formal_Type) = E_Anonymous_Access_Type
11617             elsif Ekind (Scope (Formal)) = E_Procedure
11618               and then Ekind (Formal) = E_In_Parameter
11645          if Ekind (Formal) = E_In_Parameter then
11666          elsif Ekind (Formal) = E_Out_Parameter then
11673          elsif Ekind (Formal) = E_In_Out_Parameter then
11764       if Ekind (Subp) = E_Procedure and then Is_Null_Init_Proc (Subp) then
11825            and then Ekind (Formal) = E_In_Parameter
11998          if Ekind (Formal_Id) /= E_Out_Parameter then
12029       elsif Ekind (Formal_Id) = E_In_Parameter
12036       elsif Ekind (Formal_Id) = E_In_Out_Parameter
12102          elsif Ekind (F) /= E_In_Parameter then