| Line 18... |
Line 18... |
---- ----
|
---- ----
|
----------------------------------------------------------------------
|
----------------------------------------------------------------------
|
---- SVN information
|
---- SVN information
|
----
|
----
|
---- $URL: file:///svn/vhdl_wb_tb/vhdl_wb_tb/trunk/bench/vhdl/tc_xxxx.vhd $
|
---- $URL: file:///svn/vhdl_wb_tb/vhdl_wb_tb/trunk/bench/vhdl/tc_xxxx.vhd $
|
---- $Revision: 14 $
|
---- $Revision: 19 $
|
---- $Date: 2018-07-22 16:27:41 +0200 (Sun, 22 Jul 2018) $
|
---- $Date: 2018-08-01 11:57:18 +0200 (Wed, 01 Aug 2018) $
|
---- $Author: sinx $
|
---- $Author: sinx $
|
---- $Id: tc_xxxx.vhd 14 2018-07-22 14:27:41Z sinx $
|
---- $Id: tc_xxxx.vhd 19 2018-08-01 09:57:18Z sinx $
|
----------------------------------------------------------------------
|
----------------------------------------------------------------------
|
---- ----
|
---- ----
|
---- Copyright (C) 2018 Authors and OPENCORES.ORG ----
|
---- Copyright (C) 2018 Authors and OPENCORES.ORG ----
|
---- ----
|
---- ----
|
---- This source file may be used and distributed without ----
|
---- This source file may be used and distributed without ----
|
| Line 68... |
Line 68... |
-- local constant definitions
|
-- local constant definitions
|
----------------------------------------------------------------------
|
----------------------------------------------------------------------
|
begin
|
begin
|
----------------------------------------------------------------------
|
----------------------------------------------------------------------
|
tc_xxxx_proc : process
|
tc_xxxx_proc : process
|
|
variable result_v : std_logic_vector(wishbone_data_width_c-1 downto 0);
|
begin
|
begin
|
----------------------------------------------------------------------
|
----------------------------------------------------------------------
|
-- standard signal initialization
|
-- standard signal initialization
|
wb_o <= wb_bfm_master_out_idle_c;
|
wb_o <= wb_bfm_master_out_idle_c;
|
|
|
| Line 85... |
Line 86... |
----------------------------------------------------------------------
|
----------------------------------------------------------------------
|
|
|
report "-----------------------------------------------------------------";
|
report "-----------------------------------------------------------------";
|
report "-- tc_xxxx: ADD_DESCRIPTION_HERE --";
|
report "-- tc_xxxx: ADD_DESCRIPTION_HERE --";
|
report "-----------------------------------------------------------------";
|
report "-----------------------------------------------------------------";
|
--
|
|
report "--configure stimulator";
|
report "--configure stimulator";
|
report "-----------------------------------------------------------------";
|
report "-----------------------------------------------------------------";
|
|
|
wb_write(stimulator_register0_c , 0, wb_i, wb_o);
|
wb_write(stimulator_register0_c , 0, wb_i, wb_o);
|
|
|
|
report "-----------------------------------------------------------------";
|
report "--configure verifier";
|
report "--configure verifier";
|
report "-----------------------------------------------------------------";
|
report "-----------------------------------------------------------------";
|
|
|
wb_write(verifier_register0_c , 2, wb_i, wb_o);
|
wb_write(verifier_register0_c , 2, wb_i, wb_o);
|
wb_write(verifier_register1_c , 16#2b#, wb_i, wb_o);
|
wb_write(verifier_register1_c , 16#2b#, wb_i, wb_o);
|
report "--configuration done";
|
report "--configuration done";
|
report "-----------------------------------------------------------------";
|
report "-----------------------------------------------------------------";
|
|
|
report "--starting stimulator";
|
report "--starting stimulator";
|
report "-----------------------------------------------------------------";
|
report "-----------------------------------------------------------------";
|
|
|
|
report "-----------------------------------------------------------------";
|
|
report "-- stimulation run";
|
|
report "-----------------------------------------------------------------";
|
wb_write(stimulator_register0_c , 3, wb_i, wb_o); -- shift '1' in
|
wb_write(stimulator_register0_c , 3, wb_i, wb_o); -- shift '1' in
|
wb_write(stimulator_register0_c , 1, wb_i, wb_o);
|
wb_write(stimulator_register0_c , 1, wb_i, wb_o);
|
wb_write(stimulator_register0_c , 2, wb_i, wb_o); -- shift '0' in
|
wb_write(stimulator_register0_c , 2, wb_i, wb_o); -- shift '0' in
|
wb_write(stimulator_register0_c , 0, wb_i, wb_o);
|
wb_write(stimulator_register0_c , 0, wb_i, wb_o);
|
|
|
|
-- read current value in verifier for wb_read illustration
|
wb_read (verifier_register2_c , 2, wb_i, wb_o);
|
wb_read (verifier_register2_c , 2, wb_i, wb_o);
|
|
wb_read (verifier_register2_c , 2, wb_i, wb_o,2); -- print all info
|
|
wb_read (verifier_register2_c , 2, wb_i, wb_o,2, " <TEXT>"); -- add text
|
|
|
|
for I in 0 to 10 loop -- read current value 10 times for illustration of wb_read
|
|
wb_read (verifier_register2_c , result_v, wb_i, wb_o); -- read value to variable
|
|
report " Read value from verifier_register2_c register : " & to_string(result_v) & " = " & to_string(to_integer(result_v));
|
|
end loop;
|
|
|
|
-- further shifts
|
wb_write(stimulator_register0_c , 3, wb_i, wb_o); -- shift '1' in
|
wb_write(stimulator_register0_c , 3, wb_i, wb_o); -- shift '1' in
|
wb_write(stimulator_register0_c , 1, wb_i, wb_o);
|
wb_write(stimulator_register0_c , 1, wb_i, wb_o);
|
|
|
|
---------------------------------------------------------------------------
|
|
---------------------------------------------------------------------------
|
|
---------------------------------------------------------------------------
|
|
report "-----------------------------------------------------------------";
|
|
report "--check results";
|
|
report "-----------------------------------------------------------------";
|
|
-- wait for 6 us;
|
|
-- wait until rising_edge(wb_i.clk);
|
wb_read (verifier_register2_c , 5, wb_i, wb_o); -- reads correct
|
wb_read (verifier_register2_c , 5, wb_i, wb_o); -- reads correct
|
|
wb_read (verifier_register2_c , 5, wb_i, wb_o,0, " <TEXT>"); -- reads correct
|
|
wb_read (verifier_register2_c , 5, wb_i, wb_o,1, " <TEXT>"); -- reads correct
|
|
wb_read (verifier_register2_c , 5, wb_i, wb_o,2, " <TEXT>"); -- reads correct
|
|
wb_read (verifier_register2_c , 5, wb_i, wb_o,3, " <TEXT>"); -- reads correct
|
|
wb_read (verifier_register2_c , 5, wb_i, wb_o,4, " <TEXT>"); -- reads correct
|
report "-----------------------------------------------------------------";
|
report "-----------------------------------------------------------------";
|
report "-----------------------------------------------------------------";
|
report "-----------------------------------------------------------------";
|
report "-- All fine till here. Now we provoke error messages for illustration.";
|
report "-- Till here there should be no errors. Now we provoke error messages for illustration.";
|
wb_read (verifier_register2_c , 6, wb_i, wb_o); -- provoke error (read value is 5)
|
wb_read (verifier_register2_c , 6, wb_i, wb_o); -- provoke error (read value is 5)
|
wb_read (verifier_register2_c , 6, wb_i, wb_o,0); -- provoke error (read value is 5)
|
wb_read (verifier_register2_c , 6, wb_i, wb_o,0); -- provoke error (read value is 5)
|
wb_read (verifier_register2_c , 6, wb_i, wb_o,1); -- provoke error (read value is 5)
|
wb_read (verifier_register2_c , 6, wb_i, wb_o,1); -- provoke error (read value is 5)
|
wb_read (verifier_register2_c , 6, wb_i, wb_o,2); -- provoke error (read value is 5)
|
wb_read (verifier_register2_c , 6, wb_i, wb_o,2); -- provoke error (read value is 5)
|
wb_read (verifier_register2_c , 6, wb_i, wb_o,2,"<TEXT>"); -- provoke error (read value is 5)
|
wb_read (verifier_register2_c , 6, wb_i, wb_o,2,"<TEXT>"); -- provoke error (read value is 5)
|
wb_read (verifier_register2_c , 6, wb_i, wb_o,3,"",7); -- provoke error (read value is 5)
|
wb_read (verifier_register2_c , 6, wb_i, wb_o,3,"",7); -- provoke error (read value is 5)
|
wb_read (verifier_register2_c , 6, wb_i, wb_o,4); -- provoke error (read value is 5)
|
wb_read (verifier_register2_c , 6, wb_i, wb_o,4); -- provoke error (read value is 5)
|
|
-- wait for 1 us;
|
---------------------------------------------------------------------------
|
|
---------------------------------------------------------------------------
|
|
---------------------------------------------------------------------------
|
|
report "-----------------------------------------------------------------";
|
|
report "--check results";
|
|
report "-----------------------------------------------------------------";
|
|
wait for 6 us;
|
|
wait until rising_edge(wb_i.clk);
|
|
wb_read (verifier_register2_c, 16#0000_0005#, wb_i, wb_o);
|
|
wait for 1 us;
|
|
----------------------------------------------------------------------
|
----------------------------------------------------------------------
|
report "-- tc_xxxx finished";
|
report "-- tc_xxxx finished";
|
----------------------------------------------------------------------
|
----------------------------------------------------------------------
|
--
|
--
|
report "test case tc_xxxx completed successfully"; --severity failure;
|
report "test case tc_xxxx completed successfully";
|
report "-----------------------------------------------------------------";
|
report "-----------------------------------------------------------------";
|
report "-----------------------------------------------------------------";
|
report "-----------------------------------------------------------------";
|
wait for 100 ns;
|
wait for 100 ns;
|
|
|
if (exit_simulator_at_tc_end_c/="1") then
|
if (exit_simulator_at_tc_end_c/="1") then
|
