Subversion Repositories heap_sorter

-- A parameterized, inferable, true dual-port, common-clock block RAM in VHDL.

-- Original file was taken from: http://danstrother.com/2010/09/11/inferring-rams-in-fpgas/

-- No license information were provided by the original author.

-- Minimal modifications were introduced by me to make it suitable for my sorter.

library ieee;

use ieee.std_logic_1164.all;

use ieee.std_logic_unsigned.all;

entity dp_ram_scl_sorter_distributed is

  generic (

    DATA_WIDTH : integer := 72;

    ADDR_WIDTH : integer := 10

    );

  port (

-- common clock

    clk    : in  std_logic;

    -- Port A

    we_a   : in  std_logic;

    addr_a : in  std_logic_vector(ADDR_WIDTH-1 downto 0);

    data_a : in  std_logic_vector(DATA_WIDTH-1 downto 0);

    q_a    : out std_logic_vector(DATA_WIDTH-1 downto 0);

    -- Port B

    we_b   : in  std_logic;

    addr_b : in  std_logic_vector(ADDR_WIDTH-1 downto 0);

    data_b : in  std_logic_vector(DATA_WIDTH-1 downto 0);

    q_b    : out std_logic_vector(DATA_WIDTH-1 downto 0)

    );

end dp_ram_scl_sorter_distributed;

architecture rtl of dp_ram_scl_sorter_distributed is

  -- Shared memory

  type mem_type is array ((2**ADDR_WIDTH)-1 downto 0) of std_logic_vector(DATA_WIDTH-1 downto 0);

  signal mem           : mem_type;

  signal tmp_a    : std_logic_vector(DATA_WIDTH-1 downto 0);

  signal tmp_b    : std_logic_vector(DATA_WIDTH-1 downto 0);

begin

-- Port A

  process(clk)

  begin

    if(clk'event and clk = '1') then

      if(we_a = '1') then

        mem(conv_integer(addr_a)) <= data_a;

      elsif(we_b = '1') then

        mem(conv_integer(addr_b)) <= data_b;

      end if;

      tmp_a <= mem(conv_integer(addr_a));

      q_a <= tmp_a;

      tmp_b <= mem(conv_integer(addr_b));

      q_b <= tmp_b;

    end if;

  end process;

end rtl;