Initial import

git-svn-id: http://moon:8086/svn/vhdl/trunk@5 cc03376c-175c-47c8-b038-4cd826a8556b
2008-08-23 08:20:30 +00:00
parent bfbeba5129
commit d3bd08bb52
160 changed files with 56260 additions and 0 deletions
@@ -0,0 +1,63 @@
+-----------------------------------------------------------------------
+-- $Header: /tmp/cvsroot/VHDL/lib/misc/utils_pkg.vhd,v 1.1 2008-08-23 08:20:29 Jens Exp $
+-----------------------------------------------------------------------
+
+library IEEE;
+use IEEE.STD_LOGIC_1164.ALL;
+use IEEE.NUMERIC_STD.ALL;
+use IEEE.MATH_REAL.ALL;
+
+package utils_pkg is
+	
+	-- Constants
+
+	-- Functions
+	function NextPowerOfTwo(x : natural) return natural;
+	function NextExpBaseTwo(x : natural) return natural;
+	function GCD(a, b : natural) return natural;
+	function LCM(a, b : natural) return natural;
+	
+end utils_pkg;
+
+
+package body utils_pkg is
+
+	function NextExpBaseTwo(x : natural) return natural is
+	begin
+		return natural(ceil(log2(real(x))));
+	end NextExpBaseTwo;	
+	
+	function NextPowerOfTwo(x : natural) return natural is
+	begin
+
+		return 2**NextExpBaseTwo(x);
+	end NextPowerOfTwo;	
+	
+	function GCD(a, b : natural) return natural is
+	variable aa : natural;
+	variable bb : natural;
+	begin
+		aa := a;
+		bb := b;
+		while bb /= 0 loop
+			if aa > bb then
+				aa := aa - bb;
+			else
+				bb := bb - aa;
+			end if;
+		end loop;
+		
+		return aa;
+
+	end GCD;	
+
+	function LCM(a, b : natural) return natural is
+	begin
+
+		return (a * b)/GCD(a, b);
+
+	end LCM;	
+
+end utils_pkg;
+
+