OpenCores
URL https://opencores.org/ocsvn/mblite/mblite/trunk

Subversion Repositories mblite

[/] [mblite/] [trunk/] [hw/] [std/] [sram.vhd] - Blame information for rev 10

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 2 takar
----------------------------------------------------------------------------------------------
2
--
3
--      Input file         : sram.vhd
4
--      Design name        : sram
5
--      Author             : Tamar Kranenburg
6
--      Company            : Delft University of Technology
7
--                         : Faculty EEMCS, Department ME&CE
8
--                         : Systems and Circuits group
9
--
10
--      Description        : Single Port Synchronous Random Access Memory
11
--
12
----------------------------------------------------------------------------------------------
13
 
14 8 takar
library ieee;
15
use ieee.std_logic_1164.all;
16
use ieee.std_logic_unsigned.all;
17 2 takar
 
18 8 takar
library mblite;
19
use mblite.std_Pkg.all;
20 2 takar
 
21 8 takar
entity sram is generic
22 2 takar
(
23
    WIDTH : positive := 32;
24
    SIZE  : positive := 16
25
);
26 8 takar
port
27 2 takar
(
28 8 takar
    dat_o : out std_logic_vector(WIDTH - 1 downto 0);
29
    dat_i : in std_logic_vector(WIDTH - 1 downto 0);
30
    adr_i : in std_logic_vector(SIZE - 1 downto 0);
31
    wre_i : in std_logic;
32
    ena_i : in std_logic;
33
    clk_i : in std_logic
34 2 takar
);
35 8 takar
end sram;
36 2 takar
 
37 8 takar
architecture arch of sram is
38
    type ram_type is array(2 ** SIZE - 1 downto 0) of std_logic_vector(WIDTH - 1 downto 0);
39
    signal ram :  ram_type;
40
begin
41
    process(clk_i)
42
    begin
43
        if rising_edge(clk_i) then
44
            if ena_i = '1' then
45
                if wre_i = '1' then
46 2 takar
                   ram(my_conv_integer(adr_i)) <= dat_i;
47 8 takar
                end if;
48 2 takar
                dat_o <= ram(my_conv_integer(adr_i));
49 8 takar
            end if;
50
        end if;
51
    end process;
52
end arch;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.