blob: 13e7d801d8f4aa6bb8691c6e39aa005126f583b9 (
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
|
package repro6_gen_queue is
generic (type element_type);
procedure queue_add (el : element_type);
end repro6_gen_queue;
package body repro6_gen_queue is
procedure queue_add (el : element_type) is
begin
null;
end queue_add;
end repro6_gen_queue;
package repro6_gen_board is
generic (type element_type);
procedure board_add (e : element_type);
end repro6_gen_board;
package body repro6_gen_board is
package board_queue is new work.repro6_gen_queue
generic map (element_type => element_type);
procedure board_add (e : element_type) is
begin
board_queue.queue_add(e);
end board_add;
end repro6_gen_board;
entity repro6 is
end repro6;
architecture behav of repro6 is
package my_board is new work.repro6_gen_board
generic map (element_type => natural);
begin
process
begin
my_board.board_add(5);
wait;
end process;
end behav;
|