signal clk : std_logic := '0';
clk <= transport not clk after 10 ns;
constant RESET_TIME : integer := 8;
signal reset : std_logic := '1';
procedure reset_dut () is
begin -- reset_dut
reset <= transport '1' after 1 ns;
tk_wait(RESET_TIME);
reset <= transport '0' after 1 ns;
end reset_dut;
procedure tk_wait (variable rst_time : in integer;) is
begin -- tk_wait
for i in 0 to rst_time loop
wait until (clk'event and clk='1');
end loop; -- i
end tk_wait;