gcc/ada/sem_ch6.adb

262       if Ekind (Scope (Subp_Id)) = E_Protected_Type then
370       if Present (Prev) and then Ekind (Prev) = E_Generic_Function then
758            and then Ekind (Entity (Name (Return_Expr))) in
1160               and then Ekind (Assoc) = E_Discriminant
1182               and then Ekind (Etype (Disc)) = E_Anonymous_Access_Type
1287                if Ekind (Designated_Type (R_Stm_Type)) /= E_Subprogram_Type
1607            and then Ekind (R_Type) = E_Anonymous_Access_Type
1620          elsif Ekind (R_Type) = E_Anonymous_Access_Subprogram_Type then
1622               or else Ekind (Current_Scope) = E_Return_Statement
1634          elsif Ekind (Etype (Expr)) = E_Incomplete_Type
1727       Kind     : constant Entity_Kind := Ekind (Gen_Id);
1839          Mutate_Ekind       (Gen_Id,  Ekind (Body_Id));
2018          Mutate_Ekind (Defining_Entity (N), Ekind (Prev));
2279         and then Ekind (Entity (P)) /= E_Entry_Family
2282            and then Ekind (Designated_Type (Etype (P))) = E_Subprogram_Type
2288          elsif Ekind (Entity (P)) = E_Operator then
2300         and then Ekind (Entity (P)) = E_Entry_Family
2322          if Ekind (Etype (P)) = E_Subprogram_Type then
2333         and then Ekind (Designated_Type (Etype (P))) = E_Subprogram_Type
2351         and then Ekind (Entity (Selector_Name (P)))
2383         and then Ekind (Entity (Selector_Name (P))) = E_Entry_Family
2407         and then Ekind (Entity (Selector_Name (Prefix (P)))) = E_Entry_Family
2416         and then Ekind (Entity (Prefix (P))) = E_Entry_Family
2450                if Ekind (Sel) = E_Component
2452                  and then Ekind (Homonym (Sel)) = E_Procedure
2504             exit when Ekind (Result) not in E_Block | E_Loop;
2514       Kind       : constant Entity_Kind := Ekind (Scope_Id);
2548       if Ekind (Scope_Id) = E_Procedure then
2730             if Ekind (Typ) = E_Incomplete_Type
2732                         and then Ekind (Root_Type (Typ)) = E_Incomplete_Type)
2790                   if Ekind (Scope (Current_Scope)) = E_Package
3322          if Ekind (Scop) = E_Function
3323            and then Ekind (Etype (Scop)) = E_Anonymous_Access_Type
3540             elsif Ekind (Id) = E_Function
3718          if Ekind (Subp_Id) not in E_Function | E_Procedure then
3733          if Ekind (Subp_Id) = E_Function then
3883                if Ekind (Entity (Node)) in E_Component | E_Discriminant then
4069             elsif Ekind (Scope (Spec_Id)) = E_Protected_Type then
4093             elsif Ekind (Scope (Spec_Id)) = E_Protected_Type then
4117            and then Ekind (Scope (Spec_Id)) /= E_Protected_Type
4434             if Ekind (S) = E_Function and then Rewritten_For_C (S) then
4622          if Ekind (Body_Id) = E_Procedure then
4648               and then Ekind (Etype (First_Entity (Spec_Id))) = E_Record_Type
4912                  and then Ekind (Spec_Id) = E_Function
5098                if Ekind (Body_Id) = E_Function
5159             if Ekind (Rtyp) = E_Anonymous_Access_Type then
5400                        and then Ekind (Ent) = E_Procedure
5426                if Ekind (E1) = E_Out_Parameter then
5650               and then not (Ekind (Designator) = E_Procedure
5658                if Ekind (Designator) = E_Procedure then
5757              and then Ekind (Spec) = E_Procedure
5855                   elsif Ekind (Formal_Typ) = E_Anonymous_Access_Type then
6052          if Ekind (Id1) in E_Anonymous_Access_Subprogram_Type
6055             Ekind (Id2) in E_Anonymous_Access_Subprogram_Type
6130             if Ekind (Subt) in Incomplete_Kind | E_Class_Wide_Type
6140             if Ekind (Subt_Temp) in Incomplete_Kind
6157              Ekind (Etype (Decl_Subtype)) not in Access_Subprogram_Kind
6159             if Ekind (Etype (Decl_Subtype)) = E_Anonymous_Access_Type then
6174                if Ekind (Decl_Subtype) = E_Access_Subtype
6175                  and then Ekind (Body_Subtype) = E_Access_Subtype
6209          if Ekind (New_Id) = E_Operator
6262            and then Ekind (Etype (Old_Type)) = E_Anonymous_Access_Type
6470                if Ekind (New_Id) not in E_Function | E_Procedure
6813          if Ekind (Scop) = E_Package
7209       if Ekind (Subp) = E_Enumeration_Literal then
7212       elsif Ekind (Subp) = E_Entry then
7336             if Ekind (Subp) = E_Entry then
7399                       or else Ekind (Scope (Subp)) = E_Protected_Type)
7422               and then Ekind (Scope (Subp)) /= E_Protected_Type
7459          if Ekind (Subp) = E_Entry then
7472         and then Ekind (Subp) /= E_Entry
7473         and then Ekind (Scope (Subp)) /= E_Protected_Type
8065            Ekind (F) in E_In_Out_Parameter | E_Out_Parameter
8153             if Ekind (Iface_Typ) = E_Anonymous_Access_Type
8154               and then Ekind (Prim_Typ) = E_Anonymous_Access_Type
8168             if Ekind (Iface_Typ) = E_Record_Type
8178             elsif Ekind (Iface_Id) /= Ekind (Prim_Id)
8208       if (Ekind (Def_Id) /= E_Entry
8209            and then Ekind (Def_Id) /= E_Function
8210            and then Ekind (Def_Id) /= E_Procedure)
8302             elsif Ekind (Def_Id) in E_Entry | E_Procedure
8303               and then Ekind (Subp) = E_Procedure
8322                   if Ekind (Candidate) in E_Entry | E_Procedure
8341             elsif Ekind (Def_Id) = E_Function
8342               and then Ekind (Subp) = E_Function
8357                  and then Ekind (First_Formal (Subp)) = E_In_Parameter
8496          elsif Ekind (Base_2) = Ekind (Typ_2)
8501          elsif Ekind (Base_1) = Ekind (Typ_1)
8521          if Ekind (Desig) = E_Incomplete_Type then
8688       elsif Ekind (Type_2) = E_Incomplete_Type
8708       elsif Ekind (Type_2) = E_Private_Subtype
8733         Ekind (Type_1) in E_Anonymous_Access_Subprogram_Type
8736         Ekind (Type_2) in E_Anonymous_Access_Subprogram_Type
8744       if (Ekind (Base_Type (Type_1)) = E_Anonymous_Access_Type
8746           Ekind (Base_Type (Type_2)) = E_Anonymous_Access_Type)
8818             elsif Ekind (Desig_2) = E_Incomplete_Subtype
8835          if ((Ekind (Type_1) = E_Anonymous_Access_Type
8837             or else (Ekind (Type_2) = E_Anonymous_Access_Type
8986          if Ekind (Formal) /= E_In_Parameter then
9053          if (Ekind (Base_Type (Etype (Formal))) = E_Anonymous_Access_Type
9686          elsif Ekind (E) = E_Function
9719               or else (Ekind (E) = Ekind (Designator)
9813                elsif Ekind (E) = E_Function
10059                   and then Ekind (Entity (E1)) = E_Discriminant
10060                   and then Ekind (Entity (E2)) = E_In_Parameter)
10067                (Ekind (Entity (E1)) = E_Constant
10068                  and then Ekind (Entity (E2)) = E_In_Parameter
10079                   and then Ekind (Entity (E1)) = E_Loop_Parameter
10080                   and then Ekind (Entity (E2)) = E_Loop_Parameter)
10087                  (Ekind (Entity (E1)) = E_Function
10464            and then Ekind (Entity (B1)) = E_Discriminant
10597         or else Ekind (Prim) /= Ekind (Iface_Prim)
10610         and then Ekind (Iface_Ctrl_F) /= Ekind (Prim_Ctrl_F)
10618       elsif Ekind (Iface_Prim) = E_Procedure
10629          if (Ekind (Etype (Prim)) = E_Anonymous_Access_Type)
10631             (Ekind (Etype (Iface_Prim)) = E_Anonymous_Access_Type)
10732          if Ekind (Prev_Type) = E_Anonymous_Access_Type then
10736          if Ekind (New_Type) = E_Anonymous_Access_Type then
10766       elsif Ekind (Current_Scope) = E_Package
10781             if Ekind (F_Typ) = E_Anonymous_Access_Type then
10793          if No (G_Typ) and then Ekind (Prev_E) = E_Function then
10829                     and then Ekind (P_Prim) = Ekind (New_E)
10851                        and then (Ekind (New_E) /= E_Function
11288                elsif Ekind (S) = E_Function then
11318                         elsif Ekind (Etype (S)) = E_Anonymous_Access_Type
11402             if Ekind (S) = E_Function then
11403                if Ekind (Etype (S)) = E_Anonymous_Access_Type then
11442                if Ekind (Etype (Formal)) = E_Anonymous_Access_Type then
11450                if Ekind (B_Typ) = E_Access_Subtype then
11578                  Ekind (Defining_Identifier (Param_E1)) /=
11579                  Ekind (Defining_Identifier (Param_E2))
11615                  and then (Ekind (E) = E_Entry or else Is_Subprogram (E))
11653                  and then Ekind (E) = E_Procedure
11696                  and then Ekind (Subp) = Ekind (E)
11724             if Ekind (Result) = E_Anonymous_Access_Type then
11791            and then Ekind (E) = E_Entry
11981          if Ekind (E) = E_Package
12033             elsif Ekind (S) = E_Function
12034               and then Ekind (E) = E_Abstract_State
12083                  and then Ekind (E) /= E_Enumeration_Literal
12139                elsif Ekind (E) /= E_Entry
12219                     or else Ekind (E) /= E_Operator
12541            Ekind (Desig) = E_Incomplete_Type
12627                   if Ekind (Scope (Current_Scope)) = E_Package
12700             elsif Ekind (Formal_Type) = E_Void then
12812             if Ekind (Formal_Type) = E_Anonymous_Access_Type
12826             if Ekind (Formal_Type) = E_Anonymous_Access_Type
12858             if Ekind (Scope (Formal)) in E_Function | E_Generic_Function then
12863                if Ekind (Formal) in E_In_Out_Parameter | E_Out_Parameter then
12873             elsif Ekind (Scope (Formal)) = E_Procedure
12874               and then Ekind (Formal) = E_In_Parameter
12922          if Ekind (Formal) = E_In_Parameter then
12943          elsif Ekind (Formal) = E_Out_Parameter then
12950          elsif Ekind (Formal) = E_In_Out_Parameter then
13041       if Ekind (Subp) = E_Procedure and then Is_Null_Init_Proc (Subp) then
13102            and then Ekind (Formal) = E_In_Parameter
13207          if Ekind (Id) in E_Function | E_Generic_Function then
13275          if Ekind (Formal_Id) /= E_Out_Parameter then
13306       elsif Ekind (Formal_Id) = E_In_Parameter
13313       elsif Ekind (Formal_Id) = E_In_Out_Parameter
13379          elsif Ekind (F) /= E_In_Parameter then