37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
-- Generate the package described by Input
private
type Package_Command is
(Private_Child,
Public_Child,
Test_Function,
Extra_Declarations);
type Map_Command is
(Hash_Package,
Nodes,
Function_Name,
Not_Found);
end Natools.Static_Hash_Maps.S_Expressions;
|
>
>
|
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
-- Generate the package described by Input
private
type Package_Command is
(Private_Child,
Public_Child,
Pure_Package,
Preelaborate_Package,
Test_Function,
Extra_Declarations);
type Map_Command is
(Hash_Package,
Nodes,
Function_Name,
Not_Found);
end Natools.Static_Hash_Maps.S_Expressions;
|