Commit 36532402 authored by Ille, Ondrej, Ing.'s avatar Ille, Ondrej, Ing.

Bug-fixes

parent 5fe4fc6e
...@@ -89,11 +89,11 @@ package body byte_enable_feature is ...@@ -89,11 +89,11 @@ package body byte_enable_feature is
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- First read full YOLO register (32 BIT) -- First read full YOLO register (32 BIT)
------------------------------------------------------------------------ ------------------------------------------------------------------------
address := YOLO_REG_ADDR; address := YOLO_REG_ADR;
CAN_read(data, address, ID, mem_bus(1), BIT_32); CAN_read(data, address, ID, mem_bus(1), BIT_32);
if (data /= x"DEADBEEF") then if (data /= x"DEADBEEF") then
outcome := false; o.outcome := false;
report "32 bit read error" severity error; report "32 bit read error" severity error;
end if; end if;
...@@ -112,14 +112,14 @@ package body byte_enable_feature is ...@@ -112,14 +112,14 @@ package body byte_enable_feature is
then then
report "16 bit read error (valid byte), Index :" & report "16 bit read error (valid byte), Index :" &
Integer'image(i) severity error; Integer'image(i) severity error;
outcome := false; o.outcome := false;
end if; end if;
-- Checking invalid 2 bytes are 0 -- Checking invalid 2 bytes are 0
if (data(16 * (1 - i) + 15 downto 16 * (1 - i)) /= x"0000") then if (data(16 * (1 - i) + 15 downto 16 * (1 - i)) /= x"0000") then
report "16 bit read error (empty byte), Index :" & report "16 bit read error (empty byte), Index :" &
Integer'image(i) severity error; Integer'image(i) severity error;
outcome := false; o.outcome := false;
end if; end if;
end loop; end loop;
...@@ -136,7 +136,7 @@ package body byte_enable_feature is ...@@ -136,7 +136,7 @@ package body byte_enable_feature is
if (data(8 * i + 7 downto 8 * i) /= if (data(8 * i + 7 downto 8 * i) /=
YOLO_VAL_RSTVAL(8 * i + 7 downto 8 * i)) YOLO_VAL_RSTVAL(8 * i + 7 downto 8 * i))
then then
outcome := false; o.outcome := false;
report "8 bit read error (valid byte), Index :" & report "8 bit read error (valid byte), Index :" &
Integer'image(i) severity error; Integer'image(i) severity error;
end if; end if;
...@@ -145,26 +145,26 @@ package body byte_enable_feature is ...@@ -145,26 +145,26 @@ package body byte_enable_feature is
case i is case i is
when 0 => when 0 =>
if (data(31 downto 8) /= x"000000") then if (data(31 downto 8) /= x"000000") then
outcome := false; o.outcome := false;
report "8 bit read error (Empty byte 0)" severity error; report "8 bit read error (Empty byte 0)" severity error;
end if; end if;
when 1 => when 1 =>
if (data(31 downto 16) /= x"0000" or if (data(31 downto 16) /= x"0000" or
data(7 downto 0) /= x"00") data(7 downto 0) /= x"00")
then then
outcome := false; o.outcome := false;
report "8 bit read error (Empty byte 1)" severity error; report "8 bit read error (Empty byte 1)" severity error;
end if; end if;
when 2 => when 2 =>
if (data(31 downto 24) /= x"00" or if (data(31 downto 24) /= x"00" or
data(15 downto 0) /= x"0000") data(15 downto 0) /= x"0000")
then then
outcome := false; o.outcome := false;
report "8 bit read error (Empty byte 2)" severity error; report "8 bit read error (Empty byte 2)" severity error;
end if; end if;
when 3 => when 3 =>
if (data(23 downto 0) /= x"000000") then if (data(23 downto 0) /= x"000000") then
outcome := false; o.outcome := false;
report "8 bit read error (Empty byte 3)" severity error; report "8 bit read error (Empty byte 3)" severity error;
end if; end if;
when others => when others =>
...@@ -195,7 +195,7 @@ package body byte_enable_feature is ...@@ -195,7 +195,7 @@ package body byte_enable_feature is
-- Checking if one written byte was written OK! -- Checking if one written byte was written OK!
if (data(8 * i + 7 downto 0) /= x"0A") then if (data(8 * i + 7 downto 0) /= x"0A") then
outcome := false; o.outcome := false;
report "8 bit write error (valid byte), Index :" & report "8 bit write error (valid byte), Index :" &
Integer'image(i) severity error; Integer'image(i) severity error;
end if; end if;
...@@ -204,26 +204,26 @@ package body byte_enable_feature is ...@@ -204,26 +204,26 @@ package body byte_enable_feature is
case i is case i is
when 0 => when 0 =>
if (data(31 downto 8) /= x"000000") then if (data(31 downto 8) /= x"000000") then
outcome := false; o.outcome := false;
report "8 bit write error (Empty byte 0)" severity error; report "8 bit write error (Empty byte 0)" severity error;
end if; end if;
when 1 => when 1 =>
if (data(31 downto 16) /= x"0000" or if (data(31 downto 16) /= x"0000" or
data(7 downto 0) /= x"00") data(7 downto 0) /= x"00")
then then
outcome := false; o.outcome := false;
report "8 bit write error (Empty byte 1)" severity error; report "8 bit write error (Empty byte 1)" severity error;
end if; end if;
when 2 => when 2 =>
if (data(31 downto 24) /= x"00" or if (data(31 downto 24) /= x"00" or
data(15 downto 0) /= x"0000") data(15 downto 0) /= x"0000")
then then
outcome := false; o.outcome := false;
report "8 bit write error (Empty byte 2)" severity error; report "8 bit write error (Empty byte 2)" severity error;
end if; end if;
when 3 => when 3 =>
if (data(23 downto 0) /= x"000000") then if (data(23 downto 0) /= x"000000") then
outcome := false; o.outcome := false;
report "8 bit write error (Empty byte 3)" severity error; report "8 bit write error (Empty byte 3)" severity error;
end if; end if;
when others => when others =>
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment