- fixed GHDL warnings

git-svn-id: http://moon:8086/svn/vhdl/trunk@1407 cc03376c-175c-47c8-b038-4cd826a8556b

lib/CPUs/MIPS/src/core/mips_cop.vhd

@@ -101,12 +101,12 @@ architecture Behavioral of cop is
 	signal cop_pipe_ID : cop_pipe_t;
 	signal cop_pipe_EX : cop_pipe_t;
 	
-	function eval_int(ip : unsigned) return STD_LOGIC is
+	function eval_int(ip_flags : unsigned) return STD_LOGIC is
 	variable result : STD_LOGIC;
 	begin
 			result := '0';
-			for i in ip'range loop
+			for i in ip_flags'range loop
-				result := result or ip(i);
+				result := result or ip_flags(i);
 			end loop;
 
 			return result;

lib/CPUs/MIPS/src/core/mips_shifter.vhd

@@ -51,16 +51,16 @@ architecture Behavioral of shifter is
 	
 	type fill_mask_rom_t is array (0 to 2*data_width-1) of unsigned(data_width-1 downto 0);
 --------------------------------------------------------------------------
-function gen_fill_mask_rom(data_width : natural) return fill_mask_rom_t is
+function gen_fill_mask_rom(data_width_arg : natural) return fill_mask_rom_t is
 	variable result : fill_mask_rom_t;
 	begin
-	    result(0) := (data_width-1 downto 0 => '0');
+	    result(0) := (data_width_arg-1 downto 0 => '0');
-		for i in 1 to data_width-1 loop
+		for i in 1 to data_width_arg-1 loop
-			result(i) := (data_width-1-i downto 0 => '0') & (i-1 downto 0 => '1');
+			result(i) := (data_width_arg-1-i downto 0 => '0') & (i-1 downto 0 => '1');
 		end loop;	
-	    result(data_width) := (data_width-1 downto 0 => '0');
+	    result(data_width_arg) := (data_width_arg-1 downto 0 => '0');
-		for i in 1 to data_width-1 loop
+		for i in 1 to data_width_arg-1 loop
-			result(data_width+i) := (i-1 downto 0 => '1') & (data_width-1-i downto 0 => '0');
+			result(data_width_arg+i) := (i-1 downto 0 => '1') & (data_width_arg-1-i downto 0 => '0');
 		end loop;	
 	return result;