Line 1... |
Line 1... |
|
--! @file im.vhd
|
|
--! @brief Maquina de Interrupciones. Circuito que detecta eventos que generan interrupciones para que el usuario externo del RayTrac detecte eventos como el final de una instrucción.
|
|
--! @author Julián Andrés Guarín Reyes
|
|
--------------------------------------------------------------
|
|
-- RAYTRAC
|
|
-- Author Julian Andres Guarin
|
|
-- sm.vhd
|
|
-- This file is part of raytrac.
|
|
--
|
|
-- raytrac 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 3 of the License, or
|
|
-- (at your option) any later version.
|
|
--
|
|
-- raytrac 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 raytrac. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
--!
|
|
|
|
library ieee;
|
|
use ieee.std_logic_1164.all;
|
|
use ieee.std_logic_unsigned.all;
|
|
|
|
entity im is
|
|
generic (
|
|
num_events : integer :=4;
|
|
cycles_to_wait : integer := 1023
|
|
);
|
|
port (
|
|
clk,rst: in std_logic;
|
|
rfull_events: in std_logic_vector(num_events-1 downto 0); --! full results queue events
|
|
eoi_events: in std_logic_vector(num_events-1 downto 0); --! end of instruction related events
|
|
eoi_int: out std_logic_vector(num_events-1 downto 0);--! end of instruction related interruptions
|
|
rfull_int: out std_logic_vector(num_events-1downto 0) --! full results queue related interruptions
|
|
|
|
);
|
|
end entity;
|
|
|
|
architecture im_arch of im is
|
|
|
|
type macState is (WAITING_FOR_AN_EVENT,FIRING_INTERRUPTIONS,SUSPEND);
|
|
signal state : macState;
|
|
constant rstMasterValue : std_logic:='0';
|
|
signal s_event_polling_chain : std_logic_vector(num_events-1 downto 0);
|
|
signal s_eoi_events : std_logic_vector(num_events-1 downto 0);
|
|
|
|
begin
|
|
|
|
|
|
sm_proc:
|
|
process (clk,rst,s_event_polling_chain,rfull_events,eoi_events)
|
|
variable tempo : integer range 0 to cycles_to_wait:=cycles_to_wait;
|
|
begin
|
|
if rst=rstMasterValue then
|
|
tempo := cycles_to_wait;
|
|
state <= WAITING_FOR_AN_EVENT;
|
|
s_event_polling_chain <= (others => '0');
|
|
s_eoi_events <= (others => '0');
|
|
rfull_int <= (others => '0');
|
|
eoi_int <= (others => '0');
|
|
elsif clk'event and clk='1' then
|
|
|
|
for i in num_events-1 downto 0 loop
|
|
if s_eoi_events(i)='0' then --! Hooking events
|
|
s_eoi_events(i) <= eoi_events(i);
|
|
else --! Event Hooked
|
|
s_eoi_events(i) <= not(s_event_polling_chain(i));
|
|
end if;
|
|
rfull_int(i) <= s_event_polling_chain(i) and rfull_events(i);
|
|
eoi_int(i) <= s_event_polling_chain(i) and s_eoi_events(i);
|
|
|
|
end loop;
|
|
case state is
|
|
when WAITING_FOR_AN_EVENT =>
|
|
for i in num_events-1 downto 0 loop
|
|
if rfull_events(i)='1' then
|
|
state <= FIRING_INTERRUPTIONS;
|
|
s_event_polling_chain(0) <= '1';
|
|
end if;
|
|
end loop;
|
|
when FIRING_INTERRUPTIONS =>
|
|
if s_event_polling_chain(num_events-1)='1' then
|
|
state <= SUSPEND;
|
|
tempo := cycles_to_wait;
|
|
end if;
|
|
for i in num_events-1 downto 1 loop
|
|
s_event_polling_chain(i) <= s_event_polling_chain(i-1);
|
|
end loop;
|
|
s_event_polling_chain(0) <= '0';
|
|
when SUSPEND =>
|
|
if tempo=0 then
|
|
state <= WAITING_FOR_AN_EVENT;
|
|
else
|
|
tempo:=tempo-1;
|
|
end if;
|
|
when others => null;
|
|
end case;
|
|
end if;
|
|
end process;
|
|
end architecture;
|
|
|
|
|
No newline at end of file
|
No newline at end of file
|