Subversion Repositories mips_fault_tolerant

library IEEE;
USE ieee.std_logic_1164.ALL;
--USE IEEE.std_logic_arith.all;
use IEEE.NUMERIC_STD.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;
 
ENTITY mult_32x32 is
  PORT
    (
     X :IN STD_LOGIC_VECTOR(31 DOWNTO 0);
     Y :IN STD_LOGIC_VECTOR(31 DOWNTO 0);
     P :OUT STD_LOGIC_VECTOR(63 DOWNTO 0)
     );
END mult_32x32;
 
architecture Behavioral of mult_32x32 is
 
 
 
begin
  process(X,Y)
  variable Xuns : unsigned(31 downto 0);  -- unsigned
  variable Yuns : unsigned(31 downto 0);  -- unsigned
  variable Puns : unsigned(63 downto 0);  -- unsigned
  begin
  -- type conversion: std_logic_vector -> unsigned
 
  Xuns := unsigned(X);
  Yuns := unsigned(Y);
 
  -- multiplication
  Puns := Xuns * Yuns;
 
  -- type conversion: unsigned -> std_logic_vector
  P <= std_logic_vector(Puns);
  end process;
end behavioral;