tmultiplier_16x16b.vhd

--Fichero de testbench del multiplicador

library ieee;
use ieee.std_logic_1164.all;
use ieee.numeric_std.all;

entity test_multiplier_16x16b is
port (
 valid : out boolean;
 valid_ar : out boolean;
 valid_cs : out boolean
);
end;

architecture only of test_multiplier_16x16b is

COMPONENT multiplier_16x16b
port (
    sigA : in signed (15 downto 0);
    sigB : in signed (15 downto 0);
    mult : out signed (31 downto 0)
         );
END COMPONENT ;

for arr_mult : multiplier_16x16b use entity work.multiplier_16x16b(array_arch);
for cs_mult : multiplier_16x16b use entity work.multiplier_16x16b(carry_save_arch);

SIGNAL sig1 : signed (15 downto 0) := "0000000000000000";
SIGNAL sig2 : signed (15 downto 0) := "0000000000000000";
SIGNAL mout_cs : signed (31 downto 0);
SIGNAL mout_ar : signed (31 downto 0);
SIGNAL mout_ts : signed (31 downto 0);

begin

mout_ts <= sig1 * sig2;
valid_ar <= (mout_ar - mout_ts) = "00000000000000000000000000000000";
valid_cs <= (mout_cs - mout_ts) = "00000000000000000000000000000000";
valid <= ((mout_cs - mout_ts) OR (mout_ar - mout_ts)) = "00000000000000000000000000000000";

arr_mult : multiplier_16x16b
   PORT MAP (
    sigA => sig1,
    sigB => sig2,
    mult => mout_ar
    );
    
cs_mult : multiplier_16x16b
   PORT MAP (
    sigA => sig1,
    sigB => sig2,
    mult => mout_cs
    );
   
stimulus : PROCESS
   begin
   sig1 <= "0000000000000100";
   sig2 <= "0000000000100000";
   wait for 50 ns;
   sig1 <= "0000001000000100";
   sig2 <= "0000000000000100";
   wait for 50 ns;
   sig1 <= "0000000010001011";
   sig2 <= "0000000100001001";
   wait for 50 ns;
   sig1 <= "0000000010001011";
   sig2 <= "1000000100001001";
   wait for 50 ns;
   sig1 <= "0000000010001011";
   sig2 <= "1100000100001001";
   wait for 50 ns;
   sig1 <= "1100010010001011";
   sig2 <= "1100010100001001";
   wait for 50 ns;
   sig1 <= "1000000010001011";
   sig2 <= "1000000100001001";
   wait for 50 ns;
   sig1 <= "0001000010001011";
   sig2 <= "0001000100001001";
   wait for 50 ns;
   sig1 <= "0000100010001011";
   sig2 <= "0000010100001001";
   wait for 50 ns;
   wait;
end PROCESS stimulus;

end only;