t23.vhd

Workshop vhdl code from Esperan

--
-- This file tests support for Records of arrays.
--
entity TEST is
	port( A	: in  integer range 0 to 9;
	      Z : out integer range 0 to 9);
end TEST;
architecture T23 of TEST is
	type INT_ARRAY is array (0 to 3) of integer range 0 to 9; 
		
	type T_REC is record
		MESSAGE  : INT_ARRAY;
		ERROR    : boolean;
	end record;

	signal RX_DATA, TX_DATA : T_REC;
begin
	RX_DATA.ERROR <= true;
	RX_DATA.MESSAGE(0) <= A; 
	TX_DATA <= RX_DATA;
	Z <= TX_DATA.MESSAGE(0);
end T23;