greek64/rtps-fpga
2
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Testbench wide input_prc fix

Browse Source
This commit is contained in:
Greek 2021-02-20 14:00:17 +01:00
parent 1dc1d89f98
commit 9f8887e8c5
11 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Tests/Level_0/L0_rtps_builtin_endpoint_test1.vhd
View File

@ -551,7 +551,6 @@ begin
when IDLE => when IDLE =>
if (start = '1' and stimulus.length /= 0) then if (start = '1' and stimulus.length /= 0) then
stim_stage <= BUSY; stim_stage <= BUSY;
cnt_stim <= 0;
packet_sent <= '0'; packet_sent <= '0';
end if; end if;
when BUSY => when BUSY =>
@ -559,6 +558,7 @@ begin
if (cnt_stim = stimulus.length-1) then if (cnt_stim = stimulus.length-1) then
stim_stage <= IDLE; stim_stage <= IDLE;
packet_sent <= '1'; packet_sent <= '1';
cnt_stim <= 0;
else else
cnt_stim <= cnt_stim + 1; cnt_stim <= cnt_stim + 1;
end if; end if;

2
src/Tests/Level_0/L0_rtps_builtin_endpoint_test2.vhd
View File

@ -891,7 +891,6 @@ begin
when IDLE => when IDLE =>
if (start = '1' and stimulus.length /= 0) then if (start = '1' and stimulus.length /= 0) then
stim_stage <= BUSY; stim_stage <= BUSY;
cnt_stim <= 0;
packet_sent <= '0'; packet_sent <= '0';
end if; end if;
when BUSY => when BUSY =>
@ -899,6 +898,7 @@ begin
if (cnt_stim = stimulus.length-1) then if (cnt_stim = stimulus.length-1) then
stim_stage <= IDLE; stim_stage <= IDLE;
packet_sent <= '1'; packet_sent <= '1';
cnt_stim <= 0;
else else
cnt_stim <= cnt_stim + 1; cnt_stim <= cnt_stim + 1;
end if; end if;

2
src/Tests/Level_0/L0_rtps_builtin_endpoint_test3.vhd
View File

@ -1178,7 +1178,6 @@ begin
when IDLE => when IDLE =>
if (start = '1' and stimulus.length /= 0) then if (start = '1' and stimulus.length /= 0) then
stim_stage <= BUSY; stim_stage <= BUSY;
cnt_stim <= 0;
packet_sent <= '0'; packet_sent <= '0';
end if; end if;
when BUSY => when BUSY =>
@ -1186,6 +1185,7 @@ begin
if (cnt_stim = stimulus.length-1) then if (cnt_stim = stimulus.length-1) then
stim_stage <= IDLE; stim_stage <= IDLE;
packet_sent <= '1'; packet_sent <= '1';
cnt_stim <= 0;
else else
cnt_stim <= cnt_stim + 1; cnt_stim <= cnt_stim + 1;
end if; end if;

2
src/Tests/Level_0/L0_rtps_builtin_endpoint_test4.vhd
View File

@ -336,7 +336,6 @@ begin
when IDLE => when IDLE =>
if (start = '1' and stimulus.length /= 0) then if (start = '1' and stimulus.length /= 0) then
stim_stage <= BUSY; stim_stage <= BUSY;
cnt_stim <= 0;
packet_sent <= '0'; packet_sent <= '0';
end if; end if;
when BUSY => when BUSY =>
@ -344,6 +343,7 @@ begin
if (cnt_stim = stimulus.length-1) then if (cnt_stim = stimulus.length-1) then
stim_stage <= IDLE; stim_stage <= IDLE;
packet_sent <= '1'; packet_sent <= '1';
cnt_stim <= 0;
else else
cnt_stim <= cnt_stim + 1; cnt_stim <= cnt_stim + 1;
end if; end if;

2
src/Tests/Level_0/L0_rtps_builtin_endpoint_test5.vhd
View File

@ -461,7 +461,6 @@ begin
when IDLE => when IDLE =>
if (start = '1' and stimulus.length /= 0) then if (start = '1' and stimulus.length /= 0) then
stim_stage <= BUSY; stim_stage <= BUSY;
cnt_stim <= 0;
packet_sent <= '0'; packet_sent <= '0';
end if; end if;
when BUSY => when BUSY =>
@ -469,6 +468,7 @@ begin
if (cnt_stim = stimulus.length-1) then if (cnt_stim = stimulus.length-1) then
stim_stage <= IDLE; stim_stage <= IDLE;
packet_sent <= '1'; packet_sent <= '1';
cnt_stim <= 0;
else else
cnt_stim <= cnt_stim + 1; cnt_stim <= cnt_stim + 1;
end if; end if;

2
src/Tests/Level_0/L0_rtps_builtin_endpoint_test6.vhd
View File

@ -328,7 +328,6 @@ begin
when IDLE => when IDLE =>
if (start = '1' and stimulus.length /= 0) then if (start = '1' and stimulus.length /= 0) then
stim_stage <= BUSY; stim_stage <= BUSY;
cnt_stim <= 0;
packet_sent <= '0'; packet_sent <= '0';
end if; end if;
when BUSY => when BUSY =>
@ -336,6 +335,7 @@ begin
if (cnt_stim = stimulus.length-1) then if (cnt_stim = stimulus.length-1) then
stim_stage <= IDLE; stim_stage <= IDLE;
packet_sent <= '1'; packet_sent <= '1';
cnt_stim <= 0;
else else
cnt_stim <= cnt_stim + 1; cnt_stim <= cnt_stim + 1;
end if; end if;

2
src/Tests/Level_0/L0_rtps_builtin_endpoint_test7.vhd
View File

@ -308,7 +308,6 @@ begin
when IDLE => when IDLE =>
if (start = '1' and stimulus.length /= 0) then if (start = '1' and stimulus.length /= 0) then
stim_stage <= BUSY; stim_stage <= BUSY;
cnt_stim <= 0;
packet_sent <= '0'; packet_sent <= '0';
end if; end if;
when BUSY => when BUSY =>
@ -316,6 +315,7 @@ begin
if (cnt_stim = stimulus.length-1) then if (cnt_stim = stimulus.length-1) then
stim_stage <= IDLE; stim_stage <= IDLE;
packet_sent <= '1'; packet_sent <= '1';
cnt_stim <= 0;
else else
cnt_stim <= cnt_stim + 1; cnt_stim <= cnt_stim + 1;
end if; end if;

2
src/Tests/Level_0/L0_rtps_handler_test1.vhd
View File

@ -1343,7 +1343,6 @@ begin
when IDLE => when IDLE =>
if (start = '1' and stimulus.length /= 0) then if (start = '1' and stimulus.length /= 0) then
stim_stage <= BUSY; stim_stage <= BUSY;
cnt_stim <= 0;
packet_sent <= '0'; packet_sent <= '0';
end if; end if;
when BUSY => when BUSY =>
@ -1351,6 +1350,7 @@ begin
if (cnt_stim = stimulus.length-1) then if (cnt_stim = stimulus.length-1) then
stim_stage <= IDLE; stim_stage <= IDLE;
packet_sent <= '1'; packet_sent <= '1';
cnt_stim <= 0;
else else
cnt_stim <= cnt_stim + 1; cnt_stim <= cnt_stim + 1;
end if; end if;

2
src/Tests/Level_0/L0_rtps_handler_test2.vhd
View File

@ -252,7 +252,6 @@ begin
when IDLE => when IDLE =>
if (start = '1' and stimulus.length /= 0) then if (start = '1' and stimulus.length /= 0) then
stim_stage <= BUSY; stim_stage <= BUSY;
cnt_stim <= 0;
packet_sent <= '0'; packet_sent <= '0';
end if; end if;
when BUSY => when BUSY =>
@ -260,6 +259,7 @@ begin
if (cnt_stim = stimulus.length-1) then if (cnt_stim = stimulus.length-1) then
stim_stage <= IDLE; stim_stage <= IDLE;
packet_sent <= '1'; packet_sent <= '1';
cnt_stim <= 0;
else else
cnt_stim <= cnt_stim + 1; cnt_stim <= cnt_stim + 1;
end if; end if;

2
src/Tests/Level_0/L0_rtps_out_test1.vhd
View File

@ -288,7 +288,6 @@ begin
when IDLE => when IDLE =>
if (start = '1' and stimulus(i).length /= 0) then if (start = '1' and stimulus(i).length /= 0) then
stim_stage(i) <= BUSY; stim_stage(i) <= BUSY;
cnt_stim(i) <= 0;
packet_sent(i) <= '0'; packet_sent(i) <= '0';
end if; end if;
when BUSY => when BUSY =>
@ -296,6 +295,7 @@ begin
if (cnt_stim(i) = stimulus(i).length-1) then if (cnt_stim(i) = stimulus(i).length-1) then
stim_stage(i) <= IDLE; stim_stage(i) <= IDLE;
packet_sent(i) <= '1'; packet_sent(i) <= '1';
cnt_stim(i) <= 0;
else else
cnt_stim(i) <= cnt_stim(i) + 1; cnt_stim(i) <= cnt_stim(i) + 1;
end if; end if;

8
src/Tests/Level_0/L0_rtps_reader_test1.vhd
View File

@ -80,7 +80,7 @@ begin
HEARTBEAT_RESPONSE_DELAY => DURATION_ZERO, HEARTBEAT_RESPONSE_DELAY => DURATION_ZERO,
HEARTBEAT_SUPPRESSION_DELAY => DURATION_ZERO, HEARTBEAT_SUPPRESSION_DELAY => DURATION_ZERO,
LEASE_DURATION => DURATION_INFINITE, LEASE_DURATION => DURATION_INFINITE,
WITH_KEY => FALSE, WITH_KEY => TRUE,
MAX_REMOTE_ENDPOINTS => MAX_REMOTE_ENDPOINTS MAX_REMOTE_ENDPOINTS => MAX_REMOTE_ENDPOINTS
) )
port map ( port map (
@ -140,7 +140,7 @@ begin
end procedure; end procedure;
begin begin
SetAlertLogName("rtps_reader - Level 0 - Memory Handling"); SetAlertLogName("rtps_reader - Level 0 - Metatraffic Handling");
SetAlertEnable(FAILURE, TRUE); SetAlertEnable(FAILURE, TRUE);
SetAlertEnable(ERROR, TRUE); SetAlertEnable(ERROR, TRUE);
SetAlertEnable(WARNING, TRUE); SetAlertEnable(WARNING, TRUE);
@ -393,7 +393,6 @@ begin
when IDLE => when IDLE =>
if (start = '1' and stimulus.length /= 0) then if (start = '1' and stimulus.length /= 0) then
stim_stage <= BUSY; stim_stage <= BUSY;
cnt_stim <= 0;
packet_sent <= '0'; packet_sent <= '0';
end if; end if;
when BUSY => when BUSY =>
@ -401,6 +400,7 @@ begin
if (cnt_stim = stimulus.length-1) then if (cnt_stim = stimulus.length-1) then
stim_stage <= IDLE; stim_stage <= IDLE;
packet_sent <= '1'; packet_sent <= '1';
cnt_stim <= 0;
else else
cnt_stim <= cnt_stim + 1; cnt_stim <= cnt_stim + 1;
end if; end if;
@ -432,7 +432,7 @@ begin
when REMOVE_WRITER => when REMOVE_WRITER =>
SB_out.check(data_out_hc); SB_out.check(data_out_hc);
when others => when others =>
Alert("Uknown HC Opcode", ERROR); Alert("Unexpected HC Opcode", ERROR);
end case; end case;
else else
ack_hc <= '0'; ack_hc <= '0';