Subversion Repositories diogenes

--	Package File Template
--
--	Purpose: This package defines supplemental types, subtypes, 
--		 constants, and functions 
 
 
library IEEE;
use IEEE.STD_LOGIC_1164.all;
 
package types is
 
	subtype slv_36 is std_logic_VECTOR(35 downto 0);  
	subtype slv_32 is std_logic_VECTOR(31 downto 0);
	subtype slv_16 is std_logic_VECTOR(15 downto 0);
	subtype slv_8 is std_logic_VECTOR(7 downto 0);
	subtype slv_4 is std_logic_VECTOR(3 downto 0);
 
	type slv_32_array is array (integer range <>) of slv_32;
 
-- Declare constants
--	constant op_add : bit_8 := X"00";
--	constant op_sub : bit_8 := X"01";
 
-- Declare functions and procedure
	function bits_to_natural (lv : in std_logic_vector) return natural;
 
end types;
 
 
package body types is
 
	function bits_to_natural (lv : in std_logic_vector) return natural is
		variable result : natural := 0;
		variable bits : bit_vector(lv'range);
		begin
 
			bits := To_bitvector(lv);
			for index in bits'range loop
					result := result * 2 + bit'pos(bits(index));
			end loop;
			return result;
		end bits_to_natural;
 
end types;