Skip to content

G
Gennum GN4124 core
Commit 9dc43b59 authored by Tristan Gingold's avatar Tristan Gingold
Browse files
Options

gn412x_bfm: remove unused code.

parent d34e800c
Hide whitespace changes
Inline Side-by-side
Showing with 0 additions and 50 deletions
hdl/sim/gn4124_bfm/gn412x_bfm.vhd
View file @ 9dc43b59
......@@ -234,22 +234,6 @@ architecture MODEL of GN412X_BFM is
-- return(SRI);
-- end next_random;
--=========================================================================--
-- Produce Another Random Number
--
-- RNDOUT is a number between MIN and MAX. SR must be stored and fed back each call.
--=========================================================================--
procedure get_random(SR : inout integer; min : in integer; MAX : in integer; RNDOUT : out integer) is
variable SRV : std_ulogic_vector(22 downto 0);
variable SRI : integer;
begin
SRV := To_Vector(SR, SRV'length);
SRV := SRV(21 downto 0) & (SRV(22) xor SRV(17));
SRI := conv_integer(SRV);
RNDOUT := min + (SRI mod (MAX - min + 1));
SR := SRI;
end get_random;
--=========================================================================--
-- Test a Random Number and test it
--
......@@ -537,9 +521,6 @@ architecture MODEL of GN412X_BFM is
-- signal WR_BUFFER : WR_BUFFER_ARRAY_TYPE;
signal RANDOM_NUMBER : integer := 0;
-------------------------------------------------------------------------
-- Data Structure used to store info about BARs that generate outbound
-- read/write packets
......@@ -974,10 +955,6 @@ CMD <= f_cmd_to_string(CMD_INT);
variable IWAIT_RND_SEED : integer;
variable DEBUG : integer;
begin
-- Signal Initialization
......@@ -996,7 +973,6 @@ CMD <= f_cmd_to_string(CMD_INT);
BURST_LENGTH := (others => 512);
NEXT_CID := N_COMPLETION_ID - 1;
CURRENT_CID := N_COMPLETION_ID - 1;
DEBUG := 0;
CPL_POP_PTR := (others => 0);
CPL_CID := 0;
CPL_MODULO := 64;
......@@ -1029,7 +1005,6 @@ CMD <= f_cmd_to_string(CMD_INT);
wait until(CLK'event and (CLK = '1'));
end if;
CHAR_PTR := 1; -- Point to beginning of line
-- report "Q_CMD " & QCMD;
......@@ -1042,11 +1017,6 @@ CMD <= f_cmd_to_string(CMD_INT);
-- report "Command " & L_CMD;
if(not MODE_PRIMARY) then
DEBUG := DEBUG + 1;
end if;
--============================================================--
-- Command Decode --
--============================================================--
......@@ -2717,26 +2687,6 @@ CMD_RD_DATA <= CMD_RD_DATA_OUT when CMD_RD_DATA_OUT_VALID = '1' else CMD_RD_DATA
end loop;
end process;
--#########################################################################--
--
-- Random # generator
--
-- Uses PRBS-23
--
--#########################################################################--
process(CLK0o)
variable RNDOUT : integer;
variable SEED : integer;
begin
if(RSTOUTo = '1') then
SEED := 5000;
elsif(CLK0o'event and CLK0o = '1') then
get_random(SEED, 0, 100, RNDOUT);
RANDOM_NUMBER <= RNDOUT;
end if;
end process;
--#########################################################################--
--
-- L2P Bus Sniffer
......
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