t132.vhd

Workshop vhdl code from Esperan

--
-- This file tests support for subprograms in packages.
-- 
package P_TEST is
	function parity(A :  bit_vector) return bit;
end P_TEST;

package body P_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;
end P_TEST;