Implementation of Register File VHDL Model

[New User ^_^]

Hi Everyone,

At the moment, I am making a regfile VHDL model but I have no idea how
to make it. I would be very grateful if any of you could give me a
simple example, better with some explanation as you all know that it
is quite difficult.

Thanks a lot!!

Chicken Wing

 

[fabbl]

try this:

subtype LONGWORD is std_logic_vector (31 downto 0);
type LONGWORD _ARRAY is array (integer range <&gt of LONGWORD;

type VHDLRECORD is
record
data1 :LONGWORD _ARRAY (0 to 15);
data2: LONGWORD _ARRAY (0 to 15);
end record;

signal my_regfile: VHDLRECORD;

then to access it:
my_regfile.data1(3)<=x"DEADBEEF";

"New User ^_^" <chickenwing2010@yahoo.com.hk> wrote in message
news:ee4f941.0404200516.259cb424@posting.google.com...

Hi Everyone,

At the moment, I am making a regfile VHDL model but I have no idea how
to make it. I would be very grateful if any of you could give me a
simple example, better with some explanation as you all know that it
is quite difficult.

Thanks a lot!!

Chicken Wing

 

[Jluis]

there are many ways to implement it, so I design this register file
with 8 registers and 22 bits long word, I used Max plus and up1 board
from Altera, hope to help you.

JLuis
Mexico
Center For Research in Mathematics

-- REGISTER FILE joself@cimat.mx February 19th, 2004 José Luis
Fernández Jiménez

LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.all;
USE IEEE.STD_LOGIC_ARITH.all;
USE IEEE.STD_LOGIC_UNSIGNED.all;

ENTITY regfile IS

PORT(
clk: IN std_logic;
Ra, Rb : IN std_logic_vector(2 DOWNTO 0); --Rc
rRFA, rRFB, rRF, wRFA: IN std_logic; --rRFC, wRFB, Rfc
RFdin: IN std_logic_vector(21 DOWNTO 0);
Rfaout, Rfbout: OUT std_logic_vector(21 DOWNTO 0)); --RFcout


END regfile;

ARCHITECTURE archregfile OF regfile IS
SIGNAL reg0,reg1, reg2, reg3,reg4, reg5, reg6, reg7:
std_logic_vector(21 DOWNTO 0);
--SIGNAL tempa, Rfbout, tempc: std_logic_vector(21 DOWNTO 0);
BEGIN

WRITE: PROCESS (clk, wRFA) --WRITE PROCESS --wRFB
BEGIN
IF clk 'EVENT AND clk= '1' THEN
IF wRFA = '1' THEN
CASE Ra IS
WHEN "000" => reg0 <= RFdin;
WHEN "001" => reg1 <= RFdin;
WHEN "010" => reg2 <= RFdin;
WHEN "011" => reg3 <= RFdin;
WHEN "100" => reg4 <= RFdin;
WHEN "101" => reg5 <= RFdin;
WHEN "110" => reg6 <= RFdin;
WHEN "111" => reg7 <= RFdin;
WHEN OTHERS => NULL;
END CASE;
END IF;
END IF;

END PROCESS WRITE;



READ: PROCESS (Ra, Rb, rRFA, rRFB, rRF) --READ PROCESS, Rc, rRFC
BEGIN
IF rRFA = '1' THEN
CASE Ra IS
WHEN "000" => Rfaout <= reg0;
WHEN "001" => Rfaout <= reg1;
WHEN "010" => Rfaout <= reg2;
WHEN "011" => Rfaout <= reg3;
WHEN "100" => Rfaout <= reg4;
WHEN "101" => Rfaout <= reg5;
WHEN "110" => Rfaout <= reg6;
WHEN "111" => Rfaout <= reg7;
WHEN OTHERS => Rfaout <= "XXXXXXXXXXXXXXXXXXXXXX";
END CASE;

ELSIF rRFB = '1' THEN
CASE Rb IS
WHEN "000" => Rfbout <= reg0;
WHEN "001" => Rfbout <= reg1;
WHEN "010" => Rfbout <= reg2;
WHEN "011" => Rfbout <= reg3;
WHEN "100" => Rfbout <= reg4;
WHEN "101" => Rfbout <= reg5;
WHEN "110" => Rfbout <= reg6;
WHEN "111" => Rfbout <= reg7;
WHEN OTHERS => Rfbout <= "XXXXXXXXXXXXXXXXXXXXXX";
END CASE;

-- ELSIF rRFC = '1' THEN
-- CASE Rc IS
-- END CASE;

ELSIF rRF = '1' THEN
CASE Ra IS
WHEN "000" => Rfaout <= reg0;
WHEN "001" => Rfaout <= reg1;
WHEN "010" => Rfaout <= reg2;
WHEN "011" => Rfaout <= reg3;
WHEN "100" => Rfaout <= reg4;
WHEN "101" => Rfaout <= reg5;
WHEN "110" => Rfaout <= reg6;
WHEN "111" => Rfaout <= reg7;
WHEN OTHERS => Rfaout <= "XXXXXXXXXXXXXXXXXXXXXX";
END CASE;

CASE Rb IS
WHEN "000" => Rfbout <= reg0;
WHEN "001" => Rfbout <= reg1;
WHEN "010" => Rfbout <= reg2;
WHEN "011" => Rfbout <= reg3;
WHEN "100" => Rfbout <= reg4;
WHEN "101" => Rfbout <= reg5;
WHEN "110" => Rfbout <= reg6;
WHEN "111" => Rfbout <= reg7;
WHEN OTHERS => Rfbout <= "XXXXXXXXXXXXXXXXXXXXXX";
END CASE;

END IF;
END PROCESS READ;

END archregfile;