t22.vhd

Workshop vhdl code from Esperan

--
-- This file tests support for Records of records.
--
entity TEST is
	port( A	: in  bit;
	      Z : out bit);
end TEST;
architecture T22 of TEST is
	type T_DATA is record 
		PARITY 	: bit;
		DATA 	: bit_vector(3 downto 0);
		ADDRESS : integer range 0 to 7;
	end record;

	type T_REC is record
		MESSAGE  : T_DATA;
		ERROR    : boolean;
	end record;

	signal RX_DATA, TX_DATA : T_REC;
begin
	RX_DATA.ERROR <= true;
	RX_DATA.MESSAGE.PARITY <= A; 
	TX_DATA <= RX_DATA;
	Z <= TX_DATA.MESSAGE.PARITY;
end T22;