Subversion Repositories funbase_ip_library

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

-- Title      : Functions for ase_mesh1 and wrappers using it

-- Project    : 

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

-- File       : ase_mesh1_pkg.vhdl

-- Author     : Lasse Lehtonen

-- Company    : 

-- Created    : 2010-06-16

-- Last update: 2012-03-31

-- Platform   : 

-- Standard   : VHDL'93

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

-- Description: 

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

-- Copyright (c) 2010 

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

-- Revisions  :

-- Date        Version  Author  Description

-- 2010-06-16  1.0      ase     Created

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

library ieee;

use ieee.std_logic_1164.all;

use ieee.numeric_std.all;

use work.log2_pkg.all;

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

-- PACKAGE DECLARATION

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

package ase_mesh1_pkg is

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

  -- HELPER FUCTIONS

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

  -- Returns target address (ase_mesh1 network address)

  pure function ase_mesh1_address (

    src_id    : in integer;    -- Source agent id number

    dst_id    : in integer;    -- Destination agent id number

    rows      : in positive;

    cols      : in positive;

    bus_width : in positive)

    return std_logic_vector;

end package ase_mesh1_pkg;

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

-- PACKAGE BODY

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

package body ase_mesh1_pkg is

  pure function ase_mesh1_address (

    constant src_id    : in integer;    -- Source agent id number

    constant dst_id    : in integer;    -- Destination agent id number

    constant rows      : in positive;

    constant cols      : in positive;

    constant bus_width : in positive)

    return std_logic_vector is

    variable retval             : std_logic_vector(bus_width-1 downto 0);

    variable lr_bit             : std_logic;

    variable here_bit           : std_logic;

    variable first_dir          : std_logic_vector(1 downto 0);

    variable src_row            : integer;

    variable src_col            : integer;

    variable dst_row            : integer;

    variable dst_col            : integer;

    constant mesh1_row_width_c  : positive := log2_ceil(rows - 1);

    constant mesh1_col_width_c  : positive := log2_ceil(cols - 1);

    constant mesh1_port_width_c : positive :=

      bus_width - mesh1_row_width_c - mesh1_col_width_c - 4;

    variable dst_port : integer := 0;

  begin

    retval    := (others => '0');

    lr_bit    := '0';

    here_bit  := '0';

    first_dir := "00";

    src_row   := (src_id / cols);

    src_col   := src_id - (src_row * cols);

    dst_row   := (dst_id / cols);

    dst_col   := dst_id - (dst_row * cols);

--    if src_id = 7 then

--      report "srow " & integer'image(src_row) & ", drow "

--        & integer'image(dst_row) & ", scol "

--        & integer'image(src_col) & ", dcol "

--        & integer'image(dst_col) & ", cols "

--        & integer'image(cols)    & ", rows "

--        & integer'image(rows)    

--        severity note;

--    end if;

    retval(bus_width-1 downto bus_width-mesh1_port_width_c) :=

      std_logic_vector(to_unsigned(dst_port, mesh1_port_width_c));

    if src_row = dst_row then

      if src_col = dst_col then

      elsif src_col < dst_col then

        first_dir := "01";

        retval(mesh1_row_width_c+mesh1_col_width_c-1 downto mesh1_row_width_c)

 := std_logic_vector

          (to_unsigned

           ((2**mesh1_col_width_c)-(dst_col-src_col), mesh1_col_width_c));

      else

        first_dir := "11";

        retval(mesh1_row_width_c+mesh1_col_width_c-1 downto mesh1_row_width_c)

 := std_logic_vector

          (to_unsigned

           ((2**mesh1_col_width_c)-(src_col-dst_col), mesh1_col_width_c));

      end if;

    elsif src_row < dst_row then

      first_dir                            := "10";

      retval(mesh1_row_width_c-1 downto 0) :=

        std_logic_vector

        (to_unsigned

         ((2**mesh1_row_width_c)-(dst_row-src_row), mesh1_row_width_c));

      if src_col = dst_col then

        here_bit := '1';

      elsif src_col < dst_col then

        retval(mesh1_row_width_c+mesh1_col_width_c-1 downto mesh1_row_width_c)

 := std_logic_vector

          (to_unsigned

           ((2**mesh1_col_width_c)-(dst_col-src_col), mesh1_col_width_c));

      else

        lr_bit := '1';

        retval(mesh1_row_width_c+mesh1_col_width_c-1 downto mesh1_row_width_c)

 := std_logic_vector

          (to_unsigned

           ((2**mesh1_col_width_c)-(src_col-dst_col), mesh1_col_width_c));

      end if;

    else

      first_dir                            := "00";

      retval(mesh1_row_width_c-1 downto 0) :=

        std_logic_vector

        (to_unsigned

         ((2**mesh1_row_width_c)-(src_row-dst_row), mesh1_row_width_c));

      if src_col = dst_col then

        here_bit := '1';

      elsif src_col < dst_col then

        retval(mesh1_row_width_c+mesh1_col_width_c-1 downto mesh1_row_width_c)

 := std_logic_vector

          (to_unsigned

           ((2**mesh1_col_width_c)-(dst_col-src_col), mesh1_col_width_c));

      else

        lr_bit := '1';

        retval(mesh1_row_width_c+mesh1_col_width_c-1 downto mesh1_row_width_c)

 := std_logic_vector

          (to_unsigned

           ((2**mesh1_col_width_c)-(src_col-dst_col), mesh1_col_width_c));

      end if;

    end if;

    retval(mesh1_row_width_c+mesh1_col_width_c+0) := lr_bit;

    retval(mesh1_row_width_c+mesh1_col_width_c+1) := here_bit;

    retval(mesh1_row_width_c+mesh1_col_width_c+2) := first_dir(0);

    retval(mesh1_row_width_c+mesh1_col_width_c+3) := first_dir(1);

    return retval;

  end function ase_mesh1_address;

end package body ase_mesh1_pkg;