blob: f67e3882592d0313185e68767c71b96fcccfa7ca (
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
|
library ieee;
context ieee.ieee_std_context;
package integer_vector_ptr_pkg is
subtype index_t is integer range -1 to integer'high;
type integer_vector_ptr_t is record
index : index_t;
end record;
impure function get(ptr : integer_vector_ptr_t; index : integer)
return integer;
end package;
entity tb_test is
generic ( runner_cfg : string );
end entity;
use work.integer_vector_ptr_pkg.all;
architecture tb of tb_test is
constant params: integer_vector_ptr_t := (index => 0);
type time_t is array (natural range 0 to 1) of natural;
procedure get_time(variable t: inout time_t) is begin
t(0) := get(params, 0);
t(1) := get(params, 1);
end;
begin
run: process(all)
variable r: time_t;
begin
get_time(r);
end process;
end architecture;
|
