blob: c6c7b2d027f6fdd6ce8d1ae882c406e7a9fec3bd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
package pkg2 is
generic (c : natural);
function f return natural;
end pkg2;
package body pkg2 is
constant d : natural := c;
function f return natural is
begin
return d;
end f;
end pkg2;
entity tb2 is
end;
architecture behav of tb2 is
package p is new work.pkg2 generic map (c => 3);
begin
assert p.f = 3;
end behav;
|
