Subversion Repositories astron_ram

-------------------------------------------------------------------------------

--

-- Copyright (C) 2014

-- ASTRON (Netherlands Institute for Radio Astronomy) <http://www.astron.nl/>

-- P.O.Box 2, 7990 AA Dwingeloo, The Netherlands

--

-- This program is free software: you can redistribute it and/or modify

-- it under the terms of the GNU General Public License as published by

-- the Free Software Foundation, either version 3 of the License, or

-- (at your option) any later version.

--

-- This program is distributed in the hope that it will be useful,

-- but WITHOUT ANY WARRANTY; without even the implied warranty of

-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

-- GNU General Public License for more details.

--

-- You should have received a copy of the GNU General Public License

-- along with this program.  If not, see <http://www.gnu.org/licenses/>.

--

-------------------------------------------------------------------------------

LIBRARY ieee, technology_lib;

USE ieee.std_logic_1164.all;

USE work.tech_memory_component_pkg.ALL;

USE technology_lib.technology_pkg.ALL;

USE technology_lib.technology_select_pkg.ALL;

-- Declare IP libraries to ensure default binding in simulation. The IP library clause is ignored by synthesis.

LIBRARY ip_stratixiv_ram_lib;

--LIBRARY ip_arria10_ram_lib;

--LIBRARY ip_arria10_e3sge3_ram_lib;

--LIBRARY ip_arria10_e1sg_ram_lib;

ENTITY tech_memory_ram_crwk_crw IS  -- support different port data widths and corresponding address ranges

  GENERIC (

    g_technology  : NATURAL := c_tech_select_default;

    g_adr_a_w     : NATURAL := 5;

    g_dat_a_w     : NATURAL := 32;

    g_adr_b_w     : NATURAL := 7;

    g_dat_b_w     : NATURAL := 8;

    g_nof_words_a : NATURAL := 2**5;

    g_nof_words_b : NATURAL := 2**7;

    g_rd_latency  : NATURAL := 2;     -- choose 1 or 2

    g_init_file   : STRING  := "UNUSED"

  );

  PORT

  (

    address_a : IN STD_LOGIC_VECTOR (g_adr_a_w-1 DOWNTO 0);

    address_b : IN STD_LOGIC_VECTOR (g_adr_b_w-1 DOWNTO 0);

    clock_a   : IN STD_LOGIC  := '1';

    clock_b   : IN STD_LOGIC ;

    data_a    : IN STD_LOGIC_VECTOR (g_dat_a_w-1 DOWNTO 0);

    data_b    : IN STD_LOGIC_VECTOR (g_dat_b_w-1 DOWNTO 0);

    enable_a  : IN STD_LOGIC  := '1';

    enable_b  : IN STD_LOGIC  := '1';

    rden_a    : IN STD_LOGIC  := '1';

    rden_b    : IN STD_LOGIC  := '1';

    wren_a    : IN STD_LOGIC  := '0';

    wren_b    : IN STD_LOGIC  := '0';

    q_a       : OUT STD_LOGIC_VECTOR (g_dat_a_w-1 DOWNTO 0);

    q_b       : OUT STD_LOGIC_VECTOR (g_dat_b_w-1 DOWNTO 0)

  );

END tech_memory_ram_crwk_crw;

ARCHITECTURE str OF tech_memory_ram_crwk_crw IS

BEGIN

  gen_ip_stratixiv : IF g_technology=c_tech_stratixiv GENERATE

    u0 : ip_stratixiv_ram_crwk_crw

    GENERIC MAP (g_adr_a_w, g_dat_a_w, g_adr_b_w, g_dat_b_w, g_nof_words_a, g_nof_words_b, g_rd_latency, g_init_file)

    PORT MAP (address_a, address_b, clock_a, clock_b, data_a, data_b, enable_a, enable_b, rden_a, rden_b, wren_a, wren_b, q_a, q_b);

  END GENERATE;

--  gen_ip_arria10 : IF g_technology=c_tech_arria10 GENERATE

--    u0 : ip_arria10_ram_crwk_crw

--    GENERIC MAP (g_adr_a_w, g_dat_a_w, g_adr_b_w, g_dat_b_w, g_nof_words_a, g_nof_words_b, g_rd_latency, g_init_file)

--    PORT MAP (address_a, address_b, clock_a, clock_b, data_a, data_b, wren_a, wren_b, q_a, q_b);

--  END GENERATE;

--  

--  gen_ip_arria10_e3sge3 : IF g_technology=c_tech_arria10_e3sge3 GENERATE

--    u0 : ip_arria10_e3sge3_ram_crwk_crw

--    GENERIC MAP (g_adr_a_w, g_dat_a_w, g_adr_b_w, g_dat_b_w, g_nof_words_a, g_nof_words_b, g_rd_latency, g_init_file)

--    PORT MAP (address_a, address_b, clock_a, clock_b, data_a, data_b, wren_a, wren_b, q_a, q_b);

--  END GENERATE;

--  

--  gen_ip_arria10_e1sg : IF g_technology=c_tech_arria10_e1sg GENERATE

--    u0 : ip_arria10_e1sg_ram_crwk_crw

--    GENERIC MAP (g_adr_a_w, g_dat_a_w, g_adr_b_w, g_dat_b_w, g_nof_words_a, g_nof_words_b, g_rd_latency, g_init_file)

--    PORT MAP (address_a, address_b, clock_a, clock_b, data_a, data_b, wren_a, wren_b, q_a, q_b);

--  END GENERATE;

END ARCHITECTURE;