gn412x_bfm: remove unused code.

hdl/sim/gn4124_bfm/gn412x_bfm.vhd

@@ -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