blob: 952aec122a02833e7c6e12b7c3fd5fa597f5c1f4 (
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
44
45
|
package repro4_gen is
generic (type t;
function id (a : t) return t);
function id2 (p : t) return t;
end repro4_gen;
package body repro4_gen is
function id2 (p : t) return t
is
-- constant c : t := p;
begin
return id (p);
end id2;
end repro4_gen;
package repro4_sortnet_tb is
generic (
DATA_BITS : positive;
LEN : Positive
);
subtype T_DATA is bit_vector(DATA_BITS - 1 downto 0);
type T_DATA_VECTOR is array(1 to LEN) of T_DATA;
function id (a : t_data_vector) return t_data_vector;
package inst is new work.repro4_gen
generic map (t => t_data_vector, id => id);
end repro4_sortnet_tb;
package body repro4_sortnet_tb is
function id (a : t_data_vector) return t_data_vector is
begin
return a;
end id;
end repro4_sortnet_tb;
entity repro4 is
end repro4;
architecture behav of repro4 is
package tb is new work.repro4_sortnet_tb generic map (3, 4);
begin
end behav;
|
