blob: 4b94b3e6bf16417f1185b83472c32706409ad7a7 (
plain)
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
|
-- { dg-options "-cargs -O2 -g -margs" }
package body Debug13 is
procedure Compile (P : Natural)
is
Max_Pos : constant Natural := P;
type Position_Set is array (1 .. Max_Pos) of Boolean;
Empty : constant Position_Set := (others => False);
type Position_Set_Array is array (1 .. Max_Pos) of Position_Set;
Follow : Position_Set_Array := (others => Empty);
function Get_Follows return Position_Set;
procedure Make_DFA;
function Get_Follows return Position_Set is
Result : Position_Set := Empty;
begin
Result := Result or Follow (1);
return Result;
end Get_Follows;
procedure Make_DFA is
Next : constant Position_Set := Get_Follows;
begin
null;
end Make_DFA;
begin
Make_DFA;
end Compile;
end Debug13;
|