t25.vhd

Workshop vhdl code from Esperan

--
-- This file tests support for the use of aggregates with records.
--
entity TEST is
	port( A	: in  bit;
	      Z : out bit);
end TEST;
architecture T25 of TEST is
	type T_DATA is record 
		PARITY 	: bit;
		DATA 	: bit_vector(3 downto 0);
		ADDRESS : integer range 0 to 7;
	end record;
	signal RX_DATA, TX_DATA : T_DATA;
begin
	RX_DATA <= (A, "0010", 3);
	TX_DATA <= (DATA => "1100", ADDRESS => 1, PARITY => '0');
	Z <= RX_DATA.PARITY;
end T25;