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