1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
-- PR debug/80321
-- { dg-do compile }
-- { dg-options "-O2 -g" }
with Debug10_Pkg; use Debug10_Pkg;
procedure Debug10 (T : Entity_Id) is
procedure Inner (E : Entity_Id);
pragma Inline (Inner);
procedure Inner (E : Entity_Id) is
begin
if E /= Empty
and then not Nodes (E + 3).Flag16
then
Debug10 (E);
end if;
end Inner;
function Ekind (E : Entity_Id) return Entity_Kind is
begin
return N_To_E (Nodes (E + 1).Nkind);
end Ekind;
begin
if T = Empty then
return;
end if;
Nodes (T + 3).Flag16 := True;
if Ekind (T) in Object_Kind then
Inner (T);
elsif Ekind (T) in Type_Kind then
Inner (T);
if Ekind (T) in Record_Kind then
if Ekind (T) = E_Class_Wide_Subtype then
Inner (T);
end if;
elsif Ekind (T) in Array_Kind then
Inner (T);
elsif Ekind (T) in Access_Kind then
Inner (T);
elsif Ekind (T) in Scalar_Kind then
if My_Scalar_Range (T) /= Empty
and then My_Test (My_Scalar_Range (T))
then
if My_Is_Entity_Name (T) then
Inner (T);
end if;
if My_Is_Entity_Name (T) then
Inner (T);
end if;
end if;
end if;
end if;
end;
|
