t32.vhd

Workshop vhdl code from Esperan

--
-- This file tests support for Generic map with vectors.
--
entity AND_GATE is
	generic (MASK : bit_vector(3 downto 0));
	port( 	A,B : in  bit_vector(3 downto 0);
		Z   : out bit_vector(3 downto 0));
end AND_GATE;
architecture RTL of AND_GATE is
begin
	Z <= (A and B) xor MASK;
end RTL;

entity TEST is
	port( 	A,B : in  bit_vector(3 downto 0);
	    	Z   : out bit_vector(3 downto 0));
end TEST;
architecture T32 of TEST is
	component AND_GATE
		generic (MASK : bit_vector(3 downto 0));
		port( 	A,B : in  bit_vector(3 downto 0);
			Z   : out bit_vector(3 downto 0));
	end component;
begin
	U1: AND_GATE 
		generic map (MASK => "1111")
		port map (A,B,Z);
end T32;