blob: 049763691972e69e5e84c5b065c5e854f60b6650 (
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
|
package gen1 is
generic (v : natural);
function get return natural;
end gen1;
package body gen1 is
function get return natural is
begin
return v;
end get;
end gen1;
package gen2 is
generic (package pkg is new work.gen1 generic map (<>));
function get2 return natural;
end gen2;
package body gen2 is
function get2 return natural is
begin
return pkg.get;
end get2;
end gen2;
|
