blob: 77a265322cf4b4c8b2608475a5c78747bf991e9e (
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
|
package test3 is
type t_prot is protected
procedure proc;
end protected t_prot;
end package;
package body test3 is
type t_prot is protected body
procedure proc is
begin
report "proc";
end proc;
end protected body t_prot;
end package body;
package test2 is
shared variable shared_var : work.test3.t_prot;
end package;
package test1 is
alias shared_var_2 is work.test2.shared_var;
end package;
use work.test1.all;
entity test is
end test;
architecture behav of test is
begin
process
begin
shared_var_2.proc;
report "done";
wait;
end process;
end behav;
|