head 1.2; access; symbols; locks; strict; comment @# @; 1.2 date 2007.07.10.00.44.35; author schelleg; state Exp; branches; next 1.1; commitid 4b04692d6454567; 1.1 date 2007.04.05.21.13.10; author schelleg; state Exp; branches; next ; commitid 2ee14615665b4567; desc @@ 1.2 log @updating sensitivity lists, tomislav ilic additions @ text @ ----------------------------------------------------------------------------- -- NoCem -- Network on Chip Emulation Tool for System on Chip Research -- and Implementations -- -- Copyright (C) 2006 Graham Schelle, Dirk Grunwald -- -- This program is free software; you can redistribute it and/or -- modify it under the terms of the GNU General Public License -- as published by the Free Software Foundation; either version 2 -- of the License, or (at your option) any later version. -- -- This program 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 General Public License for more details. -- -- You should have received a copy of the GNU General Public License -- along with this program; if not, write to the Free Software -- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA -- 02110-1301, USA. -- -- The authors can be contacted by email: @@cs.colorado.edu -- -- or by mail: Campus Box 430, Department of Computer Science, -- University of Colorado at Boulder, Boulder, Colorado 80309 -------------------------------------------------------------------------------- -- -- Filename: simple_pkt_local_switch.vhd -- -- Description: simple switch design -- library IEEE; use IEEE.STD_LOGIC_1164.ALL; use IEEE.STD_LOGIC_ARITH.ALL; use IEEE.STD_LOGIC_UNSIGNED.ALL; use work.pkg_nocem.all; entity simple_pkt_local_switch is Port ( -- the arbitration logic controls the switches of data arb_grant_output : in arb_decision_array(4 downto 0); --arb_grant_input : in std_logic_vector(4 downto 0); ap_datain : in data_word; ap_dataout : out data_word; n_datain : in data_word; n_dataout : out data_word; s_datain : in data_word; s_dataout : out data_word; e_datain : in data_word; e_dataout : out data_word; w_datain : in data_word; w_dataout : out data_word; n_pkt_cntrl_in : in pkt_cntrl_word; n_pkt_cntrl_out : out pkt_cntrl_word; s_pkt_cntrl_in : in pkt_cntrl_word; s_pkt_cntrl_out : out pkt_cntrl_word; e_pkt_cntrl_in : in pkt_cntrl_word; e_pkt_cntrl_out : out pkt_cntrl_word; w_pkt_cntrl_in : in pkt_cntrl_word; w_pkt_cntrl_out : out pkt_cntrl_word; ap_pkt_cntrl_in : in pkt_cntrl_word; ap_pkt_cntrl_out : out pkt_cntrl_word; clk : in std_logic; rst : in std_logic ); end simple_pkt_local_switch; architecture Behavioral of simple_pkt_local_switch is begin switch_gen_process : process (ap_pkt_cntrl_in, n_pkt_cntrl_in, s_pkt_cntrl_in, e_pkt_cntrl_in, w_pkt_cntrl_in,arb_grant_output, ap_datain, n_datain, s_datain, e_datain, w_datain) begin ---------------------------------------------- ---------- do output arbitration ------------- ---------------------------------------------- -- ap_dataout_valid <= '0'; -- n_dataout_valid <= '0'; -- south_dataout_valid <= '0'; -- east_dataout_valid <= '0'; -- west_dataout_valid <= '0'; ap_dataout <= (others => '0'); n_dataout <= (others => '0'); s_dataout <= (others => '0'); e_dataout <= (others => '0'); w_dataout <= (others => '0'); ap_pkt_cntrl_out <= (others => '0'); n_pkt_cntrl_out <= (others => '0'); s_pkt_cntrl_out <= (others => '0'); e_pkt_cntrl_out <= (others => '0'); w_pkt_cntrl_out <= (others => '0'); -- foreach output line, simply mux in the incoming lines -- based on arbitration decision -- arb_grant_output(4) : NORTH -- arb_grant_output(3) : SOUTH -- arb_grant_output(2) : EAST -- arb_grant_output(1) : WEST -- arb_grant_output(0) : AP case arb_grant_output(NOCEM_AP_IX) is when ARB_AP => ap_dataout <= ap_datain; ap_pkt_cntrl_out <= ap_pkt_cntrl_in; when ARB_NORTH => ap_dataout <= n_datain; ap_pkt_cntrl_out <= n_pkt_cntrl_in; when ARB_SOUTH => ap_dataout <= s_datain; ap_pkt_cntrl_out <= s_pkt_cntrl_in; when ARB_EAST => ap_dataout <= e_datain; ap_pkt_cntrl_out <= e_pkt_cntrl_in; when ARB_WEST => ap_dataout <= w_datain; ap_pkt_cntrl_out <= w_pkt_cntrl_in; when others => null; end case; case arb_grant_output(NOCEM_NORTH_IX) is when ARB_AP => n_dataout <= ap_datain; n_pkt_cntrl_out <= ap_pkt_cntrl_in; when ARB_NORTH => n_dataout <= n_datain; n_pkt_cntrl_out <= n_pkt_cntrl_in; when ARB_SOUTH => n_dataout <= s_datain; n_pkt_cntrl_out <= s_pkt_cntrl_in; when ARB_EAST => n_dataout <= e_datain; n_pkt_cntrl_out <= e_pkt_cntrl_in; when ARB_WEST => n_dataout <= w_datain; n_pkt_cntrl_out <= w_pkt_cntrl_in; when others => null; end case; case arb_grant_output(NOCEM_SOUTH_IX) is when ARB_AP => s_dataout <= ap_datain; s_pkt_cntrl_out <= ap_pkt_cntrl_in; when ARB_NORTH => s_dataout <= n_datain; s_pkt_cntrl_out <= n_pkt_cntrl_in; when ARB_SOUTH => s_dataout <= s_datain; s_pkt_cntrl_out <= s_pkt_cntrl_in; when ARB_EAST => s_dataout <= e_datain; s_pkt_cntrl_out <= e_pkt_cntrl_in; when ARB_WEST => s_dataout <= w_datain; s_pkt_cntrl_out <= w_pkt_cntrl_in; when others => null; end case; case arb_grant_output(NOCEM_EAST_IX) is when ARB_AP => e_dataout <= ap_datain; e_pkt_cntrl_out <= ap_pkt_cntrl_in; when ARB_NORTH => e_dataout <= n_datain; e_pkt_cntrl_out <= n_pkt_cntrl_in; when ARB_SOUTH => e_dataout <= s_datain; e_pkt_cntrl_out <= s_pkt_cntrl_in; when ARB_EAST => e_dataout <= e_datain; e_pkt_cntrl_out <= e_pkt_cntrl_in; when ARB_WEST => e_dataout <= w_datain; e_pkt_cntrl_out <= w_pkt_cntrl_in; when others => null; end case; case arb_grant_output(NOCEM_WEST_IX) is when ARB_AP => w_dataout <= ap_datain; w_pkt_cntrl_out <= ap_pkt_cntrl_in; when ARB_NORTH => w_dataout <= n_datain; w_pkt_cntrl_out <= n_pkt_cntrl_in; when ARB_SOUTH => w_dataout <= s_datain; w_pkt_cntrl_out <= s_pkt_cntrl_in; when ARB_EAST => w_dataout <= e_datain; w_pkt_cntrl_out <= e_pkt_cntrl_in; when ARB_WEST => w_dataout <= w_datain; w_pkt_cntrl_out <= w_pkt_cntrl_in; when others => null; end case; ---------------------------------------------- ---------- END do output arbitration --------- ---------------------------------------------- end process; end Behavioral; @ 1.1 log @initial add @ text @d1 30 a30 30 ----------------------------------------------------------------------------- -- NoCem -- Network on Chip Emulation Tool for System on Chip Research -- and Implementations -- -- Copyright (C) 2006 Graham Schelle, Dirk Grunwald -- -- This program is free software; you can redistribute it and/or -- modify it under the terms of the GNU General Public License -- as published by the Free Software Foundation; either version 2 -- of the License, or (at your option) any later version. -- -- This program 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 General Public License for more details. -- -- You should have received a copy of the GNU General Public License -- along with this program; if not, write to the Free Software -- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA -- 02110-1301, USA. -- -- The authors can be contacted by email: @@cs.colorado.edu -- -- or by mail: Campus Box 430, Department of Computer Science, -- University of Colorado at Boulder, Boulder, Colorado 80309 -------------------------------------------------------------------------------- -- d32 1 a32 1 -- d34 223 a256 223 -- library IEEE; use IEEE.STD_LOGIC_1164.ALL; use IEEE.STD_LOGIC_ARITH.ALL; use IEEE.STD_LOGIC_UNSIGNED.ALL; use work.pkg_nocem.all; entity simple_pkt_local_switch is Port ( -- the arbitration logic controls the switches of data arb_grant_output : in arb_decision_array(4 downto 0); --arb_grant_input : in std_logic_vector(4 downto 0); ap_datain : in data_word; ap_dataout : out data_word; n_datain : in data_word; n_dataout : out data_word; s_datain : in data_word; s_dataout : out data_word; e_datain : in data_word; e_dataout : out data_word; w_datain : in data_word; w_dataout : out data_word; n_pkt_cntrl_in : in pkt_cntrl_word; n_pkt_cntrl_out : out pkt_cntrl_word; s_pkt_cntrl_in : in pkt_cntrl_word; s_pkt_cntrl_out : out pkt_cntrl_word; e_pkt_cntrl_in : in pkt_cntrl_word; e_pkt_cntrl_out : out pkt_cntrl_word; w_pkt_cntrl_in : in pkt_cntrl_word; w_pkt_cntrl_out : out pkt_cntrl_word; ap_pkt_cntrl_in : in pkt_cntrl_word; ap_pkt_cntrl_out : out pkt_cntrl_word; clk : in std_logic; rst : in std_logic ); end simple_pkt_local_switch; architecture Behavioral of simple_pkt_local_switch is begin switch_gen_process : process (ap_pkt_cntrl_in, n_pkt_cntrl_in, s_pkt_cntrl_in, e_pkt_cntrl_in, w_pkt_cntrl_in,arb_grant_output, ap_datain, n_datain, s_datain, e_datain, w_datain) begin ---------------------------------------------- ---------- do output arbitration ------------- ---------------------------------------------- -- ap_dataout_valid <= '0'; -- n_dataout_valid <= '0'; -- south_dataout_valid <= '0'; -- east_dataout_valid <= '0'; -- west_dataout_valid <= '0'; ap_dataout <= (others => '0'); n_dataout <= (others => '0'); s_dataout <= (others => '0'); e_dataout <= (others => '0'); w_dataout <= (others => '0'); ap_pkt_cntrl_out <= (others => '0'); n_pkt_cntrl_out <= (others => '0'); s_pkt_cntrl_out <= (others => '0'); e_pkt_cntrl_out <= (others => '0'); w_pkt_cntrl_out <= (others => '0'); -- foreach output line, simply mux in the incoming lines -- based on arbitration decision -- arb_grant_output(4) : NORTH -- arb_grant_output(3) : SOUTH -- arb_grant_output(2) : EAST -- arb_grant_output(1) : WEST -- arb_grant_output(0) : AP case arb_grant_output(NOCEM_AP_IX) is when ARB_AP => ap_dataout <= ap_datain; ap_pkt_cntrl_out <= ap_pkt_cntrl_in; when ARB_NORTH => ap_dataout <= n_datain; ap_pkt_cntrl_out <= n_pkt_cntrl_in; when ARB_SOUTH => ap_dataout <= s_datain; ap_pkt_cntrl_out <= s_pkt_cntrl_in; when ARB_EAST => ap_dataout <= e_datain; ap_pkt_cntrl_out <= e_pkt_cntrl_in; when ARB_WEST => ap_dataout <= w_datain; ap_pkt_cntrl_out <= w_pkt_cntrl_in; when others => null; end case; case arb_grant_output(NOCEM_NORTH_IX) is when ARB_AP => n_dataout <= ap_datain; n_pkt_cntrl_out <= ap_pkt_cntrl_in; when ARB_NORTH => n_dataout <= n_datain; n_pkt_cntrl_out <= n_pkt_cntrl_in; when ARB_SOUTH => n_dataout <= s_datain; n_pkt_cntrl_out <= s_pkt_cntrl_in; when ARB_EAST => n_dataout <= e_datain; n_pkt_cntrl_out <= e_pkt_cntrl_in; when ARB_WEST => n_dataout <= w_datain; n_pkt_cntrl_out <= w_pkt_cntrl_in; when others => null; end case; case arb_grant_output(NOCEM_SOUTH_IX) is when ARB_AP => s_dataout <= ap_datain; s_pkt_cntrl_out <= ap_pkt_cntrl_in; when ARB_NORTH => s_dataout <= n_datain; s_pkt_cntrl_out <= n_pkt_cntrl_in; when ARB_SOUTH => s_dataout <= s_datain; s_pkt_cntrl_out <= s_pkt_cntrl_in; when ARB_EAST => s_dataout <= e_datain; s_pkt_cntrl_out <= e_pkt_cntrl_in; when ARB_WEST => s_dataout <= w_datain; s_pkt_cntrl_out <= w_pkt_cntrl_in; when others => null; end case; case arb_grant_output(NOCEM_EAST_IX) is when ARB_AP => e_dataout <= ap_datain; e_pkt_cntrl_out <= ap_pkt_cntrl_in; when ARB_NORTH => e_dataout <= n_datain; e_pkt_cntrl_out <= n_pkt_cntrl_in; when ARB_SOUTH => e_dataout <= s_datain; e_pkt_cntrl_out <= s_pkt_cntrl_in; when ARB_EAST => e_dataout <= e_datain; e_pkt_cntrl_out <= e_pkt_cntrl_in; when ARB_WEST => e_dataout <= w_datain; e_pkt_cntrl_out <= w_pkt_cntrl_in; when others => null; end case; case arb_grant_output(NOCEM_WEST_IX) is when ARB_AP => w_dataout <= ap_datain; w_pkt_cntrl_out <= ap_pkt_cntrl_in; when ARB_NORTH => w_dataout <= n_datain; w_pkt_cntrl_out <= n_pkt_cntrl_in; when ARB_SOUTH => w_dataout <= s_datain; w_pkt_cntrl_out <= s_pkt_cntrl_in; when ARB_EAST => w_dataout <= e_datain; w_pkt_cntrl_out <= e_pkt_cntrl_in; when ARB_WEST => w_dataout <= w_datain; w_pkt_cntrl_out <= w_pkt_cntrl_in; when others => null; end case; ---------------------------------------------- ---------- END do output arbitration --------- ---------------------------------------------- end process; end Behavioral; @