Home
last modified time | relevance | path

Searched refs:Ekind (Results 1 – 25 of 2027) sorted by last modified time

12345678910>>...82

/dports/lang/gnat_util/gnat_util/
H A Dsem_aux.adb127 elsif Ekind (Ent) = E_Constant
243 exit when Ekind (Ent) = E_Discriminant
294 elsif Ekind (Ent) = E_Discriminant
321 exit when Ekind (Ent) = E_Discriminant
327 pragma Assert (Ekind (Ent) = E_Discriminant);
486 if Ekind (E) = E_String_Literal_Subtype then
814 if Ekind (S) = E_Generic_Package
977 K : constant Entity_Kind := Ekind (T);
1016 and then Ekind (Ent) /= E_Subprogram_Type
1454 if Ekind (E) = E_Package_Body then
[all …]
H A Drepinfo.adb362 or else Ekind (Ent) = E_Entry
363 or else Ekind (Ent) = E_Entry_Family)
380 and then not (Ekind (E) = E_Constant
425 elsif Ekind (E) = E_Loop_Parameter or else Is_Formal (E) then
435 if Ekind (E) = E_Package then
453 elsif Ekind (E) = E_Block then
466 if Ekind (Ent) = E_Package_Body
684 case Ekind (Ent) is
849 if Ekind (Comp) = E_Discriminant
899 if Ekind (Comp) = E_Discriminant
H A Dlib.adb542 elsif Ekind (S) = E_Package and then Is_Child_Unit (S) then
H A Derrout.adb690 if Ekind (E) = E_Function then
2518 and then Ekind (Error_Msg_Node_1) = E_Anonymous_Access_Subprogram_Type
2830 if Ekind (Ent) = E_Subprogram_Type then
3269 if Ekind (Ent) = E_Access_Subprogram_Type
3270 or else Ekind (Ent) = E_Anonymous_Access_Subprogram_Type
3281 if Ekind (Ent) = E_Function then
3283 elsif Ekind (Ent) = E_Procedure then
H A Deinfo.adb2168 pragma Assert (Ekind (Id) = E_Function or else Ekind (Id) = E_Procedure);
2238 pragma Assert (Ekind (Id) = E_Function or else Ekind (Id) = E_Procedure);
2368 pragma Assert (Ekind (Id) = E_Function or else Ekind (Id) = E_Procedure);
2374 pragma Assert (Ekind (Id) = E_Function or else Ekind (Id) = E_Procedure);
3940 pragma Assert (Ekind (Id) in Object_Kind or else Ekind (Id) = E_Void);
5262 pragma Assert (Ekind (Id) = E_Function or else Ekind (Id) = E_Procedure);
5396 pragma Assert (Ekind (Id) = E_Function or else Ekind (Id) = E_Procedure);
5402 pragma Assert (Ekind (Id) = E_Function or else Ekind (Id) = E_Procedure);
8183 return Ekind (Id);
9161 case Ekind (Id) is
[all …]
H A Datree.ads937 function Ekind (E : Entity_Id) return Entity_Kind; subprogspec
938 pragma Inline (Ekind);
H A Datree.adb981 function Ekind (E : Entity_Id) return Entity_Kind is subprogram
985 end Ekind;
1187 return Ekind_In (Ekind (E), V1, V2);
1197 return Ekind_In (Ekind (E), V1, V2, V3);
1208 return Ekind_In (Ekind (E), V1, V2, V3, V4);
1220 return Ekind_In (Ekind (E), V1, V2, V3, V4, V5);
1233 return Ekind_In (Ekind (E), V1, V2, V3, V4, V5, V6);
1247 return Ekind_In (Ekind (E), V1, V2, V3, V4, V5, V6, V7);
1262 return Ekind_In (Ekind (E), V1, V2, V3, V4, V5, V6, V7, V8);
1278 return Ekind_In (Ekind (E), V1, V2, V3, V4, V5, V6, V7, V8, V9);
[all …]
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gnat.dg/
H A Ddebug10.adb22 function Ekind (E : Entity_Id) return Entity_Kind is subprogram
25 end Ekind;
35 if Ekind (T) in Object_Kind then
38 elsif Ekind (T) in Type_Kind then
41 if Ekind (T) in Record_Kind then
43 if Ekind (T) = E_Class_Wide_Subtype then
47 elsif Ekind (T) in Array_Kind then
50 elsif Ekind (T) in Access_Kind then
53 elsif Ekind (T) in Scalar_Kind then
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/
H A Dsem_ch9.adb792 Kind := Ekind (Task_Nam);
840 and then (Ekind (E) = Ekind (Accept_Id))
869 if Ekind (E1) = E_Procedure
1259 and then Ekind (E) = Ekind (Id)
1267 if Ekind (Id) = E_Entry_Family then
1461 if Ekind (Id) = E_Entry_Family
1682 if Ekind (Def_Id) = E_Entry then
2144 if Ekind (E) = E_Void then
2500 elsif Ekind (Entry_Id) = E_Entry_Family
2966 if Ekind (Spec_Id) = E_Variable then
[all …]
H A Dsem_dim.adb2109 elsif Ekind (Id) in E_Constant | E_Named_Real
H A Dsem_disp.adb440 elsif Ekind (T) = E_Incomplete_Type
447 elsif Ekind (T) = E_Anonymous_Access_Type
622 if Ekind (Subp) = E_Function then
1308 if Ekind (Subp) = E_Function then
1374 ((Ekind (Subp) = E_Function
1379 (Ekind (Subp) = E_Procedure
1994 if Ekind (Parent_Subp) = E_Function then
1995 if Ekind (Subp) /= E_Function then
2017 elsif Ekind (Subp) = E_Function then
2273 if Ekind (Alias (Subp)) = E_Function
[all …]
H A Dsem_dist.adb227 pragma Assert (Ekind (PCS_Version_Entity) = E_Named_Integer);
282 case Ekind (Op) is
325 and then Ekind (E) = E_Record_Type_With_Private
451 if Ekind (RAS_Type) /= E_Record_Type then
468 Boolean_Literals (Ekind (Remote_Subp) = E_Procedure
725 if Ekind (Deref_Proc) = E_Function then
780 and then Ekind (Entity (P)) /= E_Function
809 elsif Ekind (Typ) = E_Access_Subprogram_Type
821 elsif Ekind (Typ) = E_Record_Type
H A Dlive.adb347 if (Ekind (N) = E_Component) and then not Marked (Marks, N) then
H A Drtsfind.adb816 if No (S) or else Ekind (S) /= E_Package then
1059 if Ekind (Par) = E_Package
H A Dsem_cat.adb1477 if Ekind (Subp) = E_Function then
1604 elsif Ekind (E) in E_Generic_Function
1611 elsif (Ekind (E) = E_Function or else Ekind (E) = E_Procedure)
1622 elsif Ekind (E) = E_Package then
1626 elsif Ekind (P) /= E_Generic_Package
1732 if Ekind (Id) = E_Function
1776 if Ekind (T) /= E_General_Access_Type
2064 if Ekind (Ety) = E_Entry then
2184 or else Ekind (Current_Scope) = E_Block
2221 if Ekind (Entity (N)) = E_Variable
[all …]
H A Dsem_ch10.adb4147 if Ekind (P_Name) = E_Generic_Package
4772 if Ekind (Par) /= E_Package then
4874 if Ekind (P) = E_Package
5056 if Ekind (Lim_Typ) /= E_Package
5721 if Ekind (Ent) = E_Variable then
5741 elsif Ekind (Ent) = E_Package then
5757 elsif Ekind (Ent) = E_Variable then
6346 elsif Ekind (E) = E_Generic_Package
6353 elsif Ekind (E) = E_Package
6376 if Ekind (Unit_Name) = E_Generic_Package
[all …]
H A Dsem_ch12.adb4283 if Ekind (Gen_Unit) = E_Package
6718 return Ekind (E1) = Ekind (E2)
6759 elsif No (Parent (E2)) and then Ekind (E1) /= Ekind (E2) then
6884 (Ekind (E1) /= Ekind (E2)
6925 (Ekind (E2) /= Ekind (E1)
8718 if Ekind (E1) = E_Package
8769 if Ekind (E) /= E_Package
10106 if Ekind (E) = E_Package
12994 and then Ekind (Act_T) = Ekind (Gen_T)
13781 and then Ekind (Anc_Subp) = Ekind (Act_Subp)
[all …]
H A Dsem_ch4.adb934 if Ekind (Op_Id) = E_Operator then
949 if Ekind (Op_Id) = E_Operator
3410 (Ekind (Nam) = E_Function
3628 elsif Ekind (Nam) = E_Operator then
5915 if Ekind (Op_Id) = E_Function
5971 if Ekind (Op_Id) = E_Function
6653 if Ekind (Scop) = E_Package
7182 if Ekind (Scop) = E_Package
7292 if (Ekind (Hom) = E_Procedure
7416 case Ekind (Entity (Enode)) is
[all …]
H A Dsem_ch5.adb183 if Ekind (Ent) = E_Loop_Parameter
440 if Ekind (Scop_Id) = E_Function then
710 if Ekind (S) = E_Function
1409 if Ekind (Ent) = E_Label then
1819 Kind := Ekind (Scope_Id);
1907 or else Ekind (Scope_Id) not in
3187 and then Ekind (H) = E_Variable
3713 if Ekind (Blk_Id) = E_Block
3992 elsif Ekind (Ent) /= E_Label and then Ekind (Ent) /= E_Loop then
4013 if Ekind (Ent) = E_Label then
[all …]
H A Dsem_ch6.adb6813 if Ekind (Scop) = E_Package
8178 elsif Ekind (Iface_Id) /= Ekind (Prim_Id)
8208 if (Ekind (Def_Id) /= E_Entry
8496 elsif Ekind (Base_2) = Ekind (Typ_2)
8501 elsif Ekind (Base_1) = Ekind (Typ_1)
9719 or else (Ekind (E) = Ekind (Designator)
10597 or else Ekind (Prim) /= Ekind (Iface_Prim)
10610 and then Ekind (Iface_Ctrl_F) /= Ekind (Prim_Ctrl_F)
10829 and then Ekind (P_Prim) = Ekind (New_E)
11696 and then Ekind (Subp) = Ekind (E)
[all …]
H A Dsem_ch8.adb705 elsif Ekind (Old_P) /= K then
1208 if Ekind (Etype (Nam)) /= Ekind (T) then
1227 if Ekind (It.Typ) = Ekind (T) then
1989 if Ekind (Subp) /= Ekind (New_S) then
2001 and then Ekind (Old_F) /= Ekind (New_F)
3993 if (Ekind (Old_S) = E_Procedure or else Ekind (Old_S) = E_Function)
4329 if Ekind (Pack) = E_Package
6338 if Ekind (E) = E_Void
6581 if Ekind (P_Name) = E_Package
7099 if Ekind (Id) = E_Void then
[all …]
H A Dlib.adb636 elsif Ekind (S) = E_Package and then Is_Child_Unit (S) then
H A Drepinfo.adb510 or else (Ekind (E) = E_Block
531 elsif Ekind (E) in E_Entry
562 elsif Ekind (E) in E_Constant
575 if Ekind (E) = E_Package then
582 elsif Ekind (E) in E_Package_Body
593 elsif Ekind (E) = E_Block then
606 if Ekind (Ent) = E_Package_Body
1025 if Ekind (Comp) = E_Discriminant
1282 if Ekind (Comp) = E_Discriminant
1871 case Ekind (Ent) is
[all …]
H A Dsem_elim.adb372 while Ekind (Scop) = E_Block
374 (Ekind (Scop) = E_Package
381 if Ekind (Scop) /= E_Protected_Type
434 elsif Ekind (E) in E_Function | E_Procedure then
665 if Ekind (E) /= E_Function
H A Dsem_intr.adb84 if Ekind (E) not in E_Function | E_Generic_Function then
397 if Ekind (E) not in E_Function | E_Generic_Function then

12345678910>>...82