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

Subversion Repositories present

Compare Revisions

  • This comparison shows the changes necessary to convert path
    /present/trunk/32BitIO/bench
    from Rev 4 to Rev 5
    Reverse comparison

Rev 4 → Rev 5

/vhdl/PresentEncTB.vhd
108,7 → 108,7
-- Stimulus process
stim_proc: process
file infile :text is in "wejscie.txt";
file infile :text is in "input.txt";
variable line_in :line;
variable bytes : std_logic_vector(32 downto 0);
variable bytes2 : std_logic_vector(3 downto 0);
185,9 → 185,9
variable str :string(1 to 29);
variable lineout :line;
variable init_file :std_logic := '1';
file outfile :text is out "wyjscie.txt";
file outfile :text is out "output.txt";
-------- funkcja konwersji: std_logic_vector => character --------
-------- conversion function: std_logic_vector => character --------
function conv_to_hex_char (sig: std_logic_vector(3 downto 0)) RETURN character IS
begin
case sig is
210,7 → 210,7
end case;
end conv_to_hex_char;
-------- funkcja konwersji: std_logic => character --------
-------- conversion function: std_logic => character --------
function conv_to_char (sig: std_logic) RETURN character IS
begin
case sig is
221,7 → 221,7
end case;
end conv_to_char;
-------- funkcja konwersji: std_logic_vector => string --------
-------- conversion function: std_logic_vector => string --------
function conv_to_string (inp: std_logic_vector; length: integer) RETURN string IS
variable x : integer := length/4;
variable s : string(1 to x);
234,7 → 234,7
-------------------------------------
begin
 
-------- output file header (columns) --------
if init_file = '1' then
str:="clk ";
write(lineout,str); writeline(outfile,lineout);
253,7 → 253,7
init_file := '0';
end if;
 
 
if (strobe'EVENT and strobe='0') then
str := (others => ' ');
str(1) := conv_to_char(clk);

powered by: WebSVN 2.1.0

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