4 -- { dg-options "-O2 -g" }
6 with Debug10_Pkg; use Debug10_Pkg;
8 procedure Debug10 (T : Entity_Id) is
10 procedure Inner (E : Entity_Id);
11 pragma Inline (Inner);
13 procedure Inner (E : Entity_Id) is
16 and then not Nodes (E + 3).Flag16
22 function Ekind (E : Entity_Id) return Entity_Kind is
24 return N_To_E (Nodes (E + 1).Nkind);
33 Nodes (T + 3).Flag16 := True;
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
55 if My_Scalar_Range (T) /= Empty
56 and then My_Test (My_Scalar_Range (T))
58 if My_Is_Entity_Name (T) then
62 if My_Is_Entity_Name (T) then