TauConditionsFrac.vhd

library IEEE;
use IEEE.STD_LOGIC_1164.all;
use IEEE.NUMERIC_STD.all;
 
library work;
use work.DataTypes.all;
 
entity TauConditionsFrac is
  port (
    CLK                 : in std_logic;
    IN_TOBEnergy            : in DataWord;
    IN_TOBEnergyOverflow    : in std_logic;
    IN_FracEnvSumOverflow   : in std_logic;
    IN_FracCoreSumOverflow  : in std_logic;
    IN_FracCoreSum          : in DataWord;
    IN_FracEnvMult          : in DataWords(2 downto 0);
    IN_FracEnvMultOverflows     : in std_logic_vector(2 downto 0);
    IN_Frac_ET_Thr      : in DataWord;
    OUT_FracCondition       : out std_logic_vector (1 downto 0)
    );
end TauConditionsFrac;
 
architecture Behavioral of TauConditionsFrac is
begin
  CONDITIONS : process (CLK)
  variable FracShifted : DataWord;
  begin
    if rising_edge(CLK) then
      FracShifted := BitLeftShift(IN_FracCoreSum, 3);
      OUT_FracCondition <= EvaluateCondition (
        Pass_overflow        => IN_FracCoreSumOverflow,
        Fail_overflow        => IN_FracEnvSumOverflow,
        E_threshold          => IN_Frac_ET_Thr,
        Total_Energy         => IN_TOBEnergy,
        Total_Energy_of      => IN_TOBEnergyOverflow,
        Condition_Energy     => FracShifted,
        Thresholds           => IN_FracEnvMult,
        Thresholds_overflows => IN_FracEnvMultOverflows);
    end if;
  end process;
end Behavioral;