Lines Matching refs:Ekind
1826 Ekind (Defining_Identifier (Analyzed_Formal)) =
2065 elsif Ekind (Par) = E_Generic_Package
2067 and then Ekind (Scope (Gen_Par)) =
2291 if Ekind (Component_Type (T)) = E_Incomplete_Type
2662 if Ekind (T) = E_Incomplete_Type then
2717 or else (Ekind (T) = E_Record_Type and then Has_Discriminants (T))
2954 if Ekind (Gen_Unit) /= E_Generic_Package then
3160 if Ekind (E) = E_Package and then Renamed_Entity (E) = Formal then
3387 if Ekind (Entity (Prefix (Def))) /= E_Entry_Family then
3392 if Ekind (Entity (Selector_Name (Prefix (Def)))) /=
3470 elsif Ekind (Subp) /= E_Operator then
4283 if Ekind (Gen_Unit) = E_Package
4296 elsif Ekind (Gen_Unit) /= E_Generic_Package then
4342 and then Ekind (Renamed_Entity (Gen_Unit)) = E_Generic_Package
4698 if Ekind (Enclosing_Master) = E_Package then
4715 or else Ekind (Enclosing_Master) = E_Void
4725 if Ekind (Enclosing_Master) = E_Entry
4727 Ekind (Scope (Enclosing_Master)) = E_Protected_Type
4739 while Ekind (Enclosing_Master) = E_Block loop
5054 or else Ekind (S) = E_Procedure
5055 or else Ekind (S) = E_Function);
5091 or else Ekind (S) in E_Procedure | E_Function)
5110 or else (Ekind (Curr_Unit) = E_Package_Body
5112 or else (Ekind (Curr_Unit) = E_Subprogram_Body
5143 if Ekind (Curr_Unit) = E_Package_Body then
5260 or else Ekind (S) in E_Procedure | E_Function
5697 if K = E_Procedure and then Ekind (Gen_Unit) /= E_Generic_Procedure then
5701 elsif K = E_Function and then Ekind (Gen_Unit) /= E_Generic_Function then
5939 if Ekind (Etype (Formal)) = E_Anonymous_Access_Type
6308 Mutate_Ekind (Subp, Ekind (Formal_Subp));
6477 if Ekind (New_Main) = E_Package then
6633 elsif Ekind (Ent) /= E_Constant then
6718 return Ekind (E1) = Ekind (E2)
6727 exit when Ekind (E1) = E_Package
6759 elsif No (Parent (E2)) and then Ekind (E1) /= Ekind (E2) then
6806 elsif Ekind (E1) = E_Constant then
6813 if Ekind (E2) /= E_Constant then
6879 elsif Ekind (E1) = E_Variable then
6882 elsif Ekind (E1) = E_Package then
6884 (Ekind (E1) /= Ekind (E2)
6914 and then Ekind (E2) = E_Procedure
6925 (Ekind (E2) /= Ekind (E1)
6957 if Ekind (E) = E_Package then
7041 if Ekind (Gen_Comp) = E_Package_Body then
7054 if Ekind (S) = E_Package then
7149 elsif Ekind (E) = E_Package then
7195 if Ekind (E) = E_Constant then
7234 and then Ekind (Parent_Scope) = E_Package
7348 if Ekind (Enclosing_Instance) = E_Package
7408 if Ekind (Inst_Par) = E_Package
7414 if Ekind (Inst_Par) = E_Package then
7425 elsif Ekind (Inst_Par) = E_Generic_Package
7526 elsif Ekind (Entity (Gen_Id)) = E_Generic_Package
7847 if Ekind (Scop) = E_Generic_Package
8718 if Ekind (E1) = E_Package
8749 if Ekind (Scop) = E_Generic_Package
8769 if Ekind (E) /= E_Package
9255 elsif Ekind (Enclosing) = E_Package
9723 or else Ekind (E) /= E_Package
10106 if Ekind (E) = E_Package
10555 if Ekind (Actual_Ent) = E_Package then
10698 if Ekind (Ent) = E_Package then
10763 and then Ekind (Actual_Pack) = E_Generic_Package
10854 if Ekind (Actual_Ent) = E_Package then
11079 Mutate_Ekind (New_Subp, Ekind (Analyzed_S));
11756 and then Ekind (Defining_Identifier (Analyzed_Formal))
11863 exit when Ekind (Actual) = E_Package
12200 and then Ekind (Inst_Scope) = E_Generic_Package
12220 if Ekind (Scope (Gen_Unit)) = E_Generic_Package
12290 and then Ekind (Scope (Act_Decl_Id)) = E_Package
12642 if Ekind (Scope (Gen_Unit)) = E_Generic_Package
12724 elsif Ekind (Act_Decl_Id) = E_Procedure then
12994 and then Ekind (Act_T) = Ekind (Gen_T)
13006 or else Ekind (Designated_Type (Act_T)) /= E_Subprogram_Type
13026 if Ekind (Base_Type (Act_T)) = E_Access_Protected_Subprogram_Type then
13027 if Ekind (A_Gen_T) = E_Access_Subprogram_Type then
13033 elsif Ekind (A_Gen_T) = E_Access_Protected_Subprogram_Type then
13085 elsif Ekind (A_Gen_T) = E_General_Access_Type
13086 and then Ekind (Base_Type (Act_T)) /= E_General_Access_Type
13374 elsif Ekind (Scope (Iface_Ent)) = E_Generic_Package
13425 Ekind (Get_Instance_Of (A_Gen_T)) = E_Record_Type_With_Private
13596 if Ekind (Ancestor) = E_Access_Type
13781 and then Ekind (Anc_Subp) = Ekind (Act_Subp)
13791 if Ekind (Anc_F_Type) =
13796 if Ekind (Act_F_Type) =
13806 Ekind (Act_F_Type) = E_Anonymous_Access_Type
13845 if Ekind (Act_Subp) = E_Function then
13849 if Ekind (Anc_F_Type) =
13855 if Ekind (Act_F_Type) =
13865 Ekind (Act_F_Type)
13990 if Ekind (Base_Type (Formal_Subt)) = E_Anonymous_Access_Type
13991 and then (Ekind (Base_Type (Etype (Actual_Discr)))) =
14163 if Ekind (Act_T) = E_Incomplete_Type
14165 and then Ekind (Root_Type (Act_T)) = E_Incomplete_Type)
14171 if Ekind (A_Gen_T) = E_Incomplete_Type
14203 if Ekind (A_Gen_T) = E_Incomplete_Type then
14414 if Ekind (Act_T) = E_Task_Type then
14548 and then Ekind (Corresponding_Spec (Decl)) /= E_Generic_Package
14690 if Ekind (Scop) = E_Generic_Package then
14902 if Ekind (E1) = E_Package and then No (Renamed_Entity (E1)) then
15230 elsif Ekind (Subp_Id) = E_Function then
15334 if Ekind (P) = E_Block then
15458 pragma Assert (Ekind (Formal) = E_Package);
15469 exit when Ekind (Ent) = E_Package
15477 if Ekind (Ent) = E_Package then
15499 if Ekind (Typ) in E_Private_Type
15586 elsif Ekind (E) = E_Package then
15622 exit when Ekind (Id) = E_Package
15628 if Ekind (Id) = E_Package then
16025 and then Ekind (E) = E_Access_Subtype
16085 if Ekind (Entity (Parent (N2))) = E_Generic_Package then
16736 and then Ekind (Entity (N2)) = E_Enumeration_Literal
16870 and then Ekind (Scope (Gen_Scope)) = E_Generic_Package
17070 Is_Fun : constant Boolean := (Ekind (Nam) = E_Function);
17218 if Ekind (Base_Type (Formal_Subt)) = E_Anonymous_Access_Type
17219 and then (Ekind (Base_Type (Etype (Actual_Discr)))) =
17278 and then Ekind (Def_T) = Ekind (Gen_T)
17507 if Ekind (Def_Sub) /= E_Access_Subprogram_Type then