blob: e9955d55ac5cb5207e80f8f76bd7416321859585 (
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
38
39
40
41
42
43
|
package pkg is
procedure proc(signal sig : in integer; msg : string);
end package;
package body pkg is
procedure proc(signal sig : in integer; msg : string) is
begin
loop
wait on sig;
report integer'image(sig) & " : " & msg;
end loop;
end procedure;
end package body;
use work.pkg.all;
entity ent2 is
port (
prt : out integer);
begin
proc(prt, "entity");
end entity;
architecture a of ent2 is
begin
proc(prt, "architecture");
main : process
begin
prt <= 1;
wait for 1 ns;
prt <= 2;
wait;
end process;
end architecture;
entity ent is
end entity;
architecture a of ent is
signal sig : integer;
begin
ent2_inst : entity work.ent2 port map(prt => sig);
end architecture;
|
