AEK_8220_Libraries/firmware_vhdl_psi_multi_stream_daq
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DEVEL: TB for data buffer full

Browse Source
This commit is contained in:
Oliver Bruendler
2018-08-31 07:47:35 +02:00
parent 0813b9c0da
commit a773e82ee9
1 changed files with 36 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
tb/psi_ms_daq_daq_dma/psi_ms_daq_daq_dma_tb_case_data_full.vhd
View File

@ -56,6 +56,10 @@ package psi_ms_daq_daq_dma_tb_case_data_full is
signal Mem_DatRdy : inout std_logic;
constant Generics_c : Generics_t);
constant DataFifoDepth_c : integer := 64;
constant DataWidthBytes_c : integer := 8;
constant OversizeTfBytes_c : integer := DataFifoDepth_c*DataWidthBytes_c+12;
end package;
------------------------------------------------------------
@ -72,7 +76,19 @@ package body psi_ms_daq_daq_dma_tb_case_data_full is
signal DaqSm_Resp_Rdy : inout std_logic;
constant Generics_c : Generics_t) is
begin
assert false report "Case DATA_FULL Procedure CONTROL: No Content added yet!" severity warning;
InitCase(Clk, Rst);
print(">> -- Memory Data full --");
-- During Transfer
wait for 1 us;
print(">> During Transfer");
InitCase(Clk, Rst);
InitSubCase(0);
ApplyCmd(2, 16#01230000#, OversizeTfBytes_c, DaqSm_Cmd, DaqSm_Cmd_Vld, Clk);
CheckResp(2, OversizeTfBytes_c, NoEnd_s, DaqSm_Resp, DaqSm_Resp_Vld, DaqSm_Resp_Rdy, Clk);
ApplyCmd(2, 16#01231000#, 30, DaqSm_Cmd, DaqSm_Cmd_Vld, Clk);
CheckResp(2, 30, NoEnd_s, DaqSm_Resp, DaqSm_Resp_Vld, DaqSm_Resp_Rdy, Clk);
end procedure;
procedure input (
@ -82,7 +98,11 @@ package body psi_ms_daq_daq_dma_tb_case_data_full is
signal Inp_Data : inout Input2Daq_Data_a;
constant Generics_c : Generics_t) is
begin
assert false report "Case DATA_FULL Procedure INPUT: No Content added yet!" severity warning;
-- During Transfer
WaitForCase(0, Clk);
ApplyData(2, OversizeTfBytes_c, NoEnd_s, Inp_Vld, Inp_Rdy, Inp_Data, Clk);
ApplyData(2, 30, NoEnd_s, Inp_Vld, Inp_Rdy, Inp_Data, Clk, 0);
ProcDone_V(0) := '1';
end procedure;
procedure mem_cmd (
@ -93,7 +113,11 @@ package body psi_ms_daq_daq_dma_tb_case_data_full is
signal Mem_CmdRdy : inout std_logic;
constant Generics_c : Generics_t) is
begin
assert false report "Case DATA_FULL Procedure MEM_CMD: No Content added yet!" severity warning;
-- During Transfer
WaitForCase(0, Clk);
CheckMemCmd( 16#01230000#, OversizeTfBytes_c, 0, Mem_CmdAddr, Mem_CmdSize, Mem_CmdVld, Mem_CmdRdy, Clk);
CheckMemCmd( 16#01231000#, 30, 0, Mem_CmdAddr, Mem_CmdSize, Mem_CmdVld, Mem_CmdRdy, Clk);
ProcDone_V(1) := '1';
end procedure;
procedure mem_dat (
@ -103,7 +127,15 @@ package body psi_ms_daq_daq_dma_tb_case_data_full is
signal Mem_DatRdy : inout std_logic;
constant Generics_c : Generics_t) is
begin
assert false report "Case DATA_FULL Procedure MEM_DAT: No Content added yet!" severity warning;
-- During Transfer
WaitForCase(0, Clk);
Mem_DatRdy <= '0';
wait until rising_edge(Clk) and Mem_DatVld = '1';
CheckNoActivity(Mem_DatVld, 2 us, 1, "Mem_CmdVld went low");
wait until rising_edge(Clk);
CheckMemData(OversizeTfBytes_c, 0, Mem_DatData, Mem_DatVld, Mem_DatRdy, Clk, 0, "1.0");
CheckMemData(30, 0, Mem_DatData, Mem_DatVld, Mem_DatRdy, Clk, 0, "1.1");
ProcDone_V(2) := '1';
end procedure;
end;