blob: 1f6b490193e8c4a8c4c786e2d759f571e0b249d0 (
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
|
package test3 is
type t_prot is protected
end protected t_prot;
end package;
package body test3 is
type t_prot is protected body
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;
|
