Subversion Repositories funbase_ip_library

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

-- Title      : Package for block-level testing of Nios-to-HIBI

-- Project    : 

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

-- File       : tb_n2h2_pkg.vhd

-- Author     : Ari Kulmala

-- Company    : 

-- Created    : 2005-03-22

-- Last update: 2011-11-11

-- Platform   : 

-- Standard   : VHDL'87

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

-- Description: 

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

-- Revisions  :

-- Date        Version  Author  Description

-- 2005-03-22  1.0      AK      Created

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

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

-- Funbase IP library Copyright (C) 2011 TUT Department of Computer Systems

--

-- This file is part of HIBI

--

-- This source file may be used and distributed without

-- restriction provided that this copyright statement is not

-- removed from the file and that any derivative work contains

-- the original copyright notice and the associated disclaimer.

--

-- This source file is free software; you can redistribute it

-- and/or modify it under the terms of the GNU Lesser General

-- Public License as published by the Free Software Foundation;

-- either version 2.1 of the License, or (at your option) any

-- later version.

--

-- This source 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 Lesser General Public License for more

-- details.

--

-- You should have received a copy of the GNU Lesser General

-- Public License along with this source; if not, download it

-- from http://www.opencores.org/lgpl.shtml

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

library ieee;

use ieee.std_logic_1164.all;

use ieee.std_logic_arith.all;

use ieee.std_logic_unsigned.all;

use std.textio.all;

use ieee.std_logic_textio.all;

package tb_n2h2_pkg is

  type     addr_array is array (0 to 7) of integer;

  -- Noc addresses (HIBI addresses). These identify the active reception channel of the N2H DMA block

  constant addresses_c     : addr_array := (200, 250, 300, 444, 555, 666, 777, 888);

  -- Addresses on the avalon bus to the memory = memory addresses of reception buffer

  -- arrays 

  constant ava_addresses_c : addr_array := (1000, 3333, 5555, 7000000, 9000000, 11000000, 13000000, 15000000);

  --  constant addresses_c : addr_array := (16#1000000#, 16#3000000#, 16#5000000#, 16#7000000#, 16#9000000#, 16#b000000#, 16#d000000#, 16#f000000#);

  --  constant ava_addresses_c : addr_array := (1000000, 3000000, 5000000, 7000000, 9000000, 11000000, 13000000, 15000000);

  constant conf_bits_c    : integer := 4;  -- number of configuration bits in CPU

  procedure read_conf_file (

    mem_addr      : out integer;

    dst_addr      : out integer;

    irq_amount    : out integer;

    --    max_amount    : out integer;

    file file_txt :     text);

  function log2 (

    constant x         : integer)

    return integer;

  --  -- This has become obsolete (2011-11-11)

  --  procedure read_data_file (

  --    data          : out integer;

  --    file file_txt :     text);

end tb_n2h2_pkg;

package body tb_n2h2_pkg is

  -- Reads ASCII file that stores info how to confgiure N2H DMA

  procedure read_conf_file (

    mem_addr      : out integer;

    dst_addr      : out integer;

    irq_amount    : out integer;

    file file_txt :     text) is

    variable file_row        : line;

    --variable file_sample     : integer;

    -- variable file_sample_hex : std_logic_vector(31 downto 0);

    variable sample_ok            : boolean := FALSE;

  begin

    -- Loop until finding a line that is not a comment

    while sample_ok = false and not(endfile(file_txt)) loop

      readline(file_txt, file_row);

      read (file_row, mem_addr, sample_ok);

      if sample_ok = FALSE then

        --Reading of the delay value failed

        --=> assume that this line is comment or empty, and skip other it

        -- assert false report "Skipped a line" severity note;

        next;                           -- start new loop interation

      end if;

      read(file_row, dst_addr); --file_sample);

      --dst_addr   := file_sample;

      read(file_row, irq_amount); -- file_sample);

      --irq_amount := file_sample;

    end loop;

    --    readline(file_txt, file_row);

    --    --    hread(file_row, file_sample_hex);

    --    --    mem_addr   := conv_integer(file_sample_hex);

    --    --    hread(file_row, file_sample_hex);

    --    --    dst_addr     := conv_integer(file_sample_hex);

    --    read(file_row, file_sample, sample_ok);

    --    if sample_ok = true then

    --    assert sample_ok report "ei oo hyvä" severity note;

    --    mem_addr   := file_sample;

    --    read(file_row, file_sample);

    --    dst_addr   := file_sample;

    --    read(file_row, file_sample);

    --    irq_amount := file_sample;

    --    end if;

  end read_conf_file;

  -- Logarithm with base=2

  function log2 (

    constant x : integer)

    return integer is

    variable tmp_v : integer := 1;

    --variable i_v   : integer := 0;

  begin  -- log2

    --report "log2(x):x is " &  integer'image(x);

    for i in 0 to 31 loop

      if tmp_v >= x then

        -- report "ceil(log2(x)) is " &  integer'image(i);

        return i;

      end if;

      tmp_v := tmp_v * 2;

    end loop;  -- i

    -- We should not ever come here, let's return a definitely illegal value

    assert false report "Error in function log2(x)" severity warning;

    return -1;

  end log2;

--  procedure read_data_file (

--    data          : out integer;

--    file file_txt :     text) is

--    variable file_row    : line;

--    variable file_sample : integer;

--  begin  -- read_data_file

--    readline(file_txt, file_row);

--    read(file_row, file_sample);

--    data := file_sample;

--  end read_data_file;

end tb_n2h2_pkg;