t101.vhd

来自「Workshop vhdl code from Esperan」· VHDL 代码 · 共 22 行

--
-- This file tests support for user defined functions.
--
entity TEST is 
	port( A : in  bit_vector(0 to 3);
	      Z : out bit);
end TEST;

architecture T101 of TEST is
	function parity(A :  bit_vector) return bit is
		variable TMP : bit;
	begin
		TMP:= '0';
			for I in A'range loop
				TMP:=TMP xor A(I);
			end loop;
		return TMP;
	end parity;
begin
	Z <= parity(A);
end T101;