From 503a275b6fca3f4808434bb0672ca796c3420f12 Mon Sep 17 00:00:00 2001 From: Jens Ahrensfeld Date: Sat, 20 Mar 2021 08:55:13 +0000 Subject: [PATCH] - 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 | 6 +++--- lib/CPUs/MIPS/src/core/mips_shifter.vhd | 14 +++++++------- 2 files changed, 10 insertions(+), 10 deletions(-) diff --git a/lib/CPUs/MIPS/src/core/mips_cop.vhd b/lib/CPUs/MIPS/src/core/mips_cop.vhd index bc1045b..a76908f 100644 --- a/lib/CPUs/MIPS/src/core/mips_cop.vhd +++ b/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 - result := result or ip(i); + for i in ip_flags'range loop + result := result or ip_flags(i); end loop; return result; diff --git a/lib/CPUs/MIPS/src/core/mips_shifter.vhd b/lib/CPUs/MIPS/src/core/mips_shifter.vhd index 2932e6e..e377929 100644 --- a/lib/CPUs/MIPS/src/core/mips_shifter.vhd +++ b/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'); - for i in 1 to data_width-1 loop - result(i) := (data_width-1-i downto 0 => '0') & (i-1 downto 0 => '1'); + result(0) := (data_width_arg-1 downto 0 => '0'); + for i in 1 to data_width_arg-1 loop + 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'); - for i in 1 to data_width-1 loop - result(data_width+i) := (i-1 downto 0 => '1') & (data_width-1-i downto 0 => '0'); + result(data_width_arg) := (data_width_arg-1 downto 0 => '0'); + for i in 1 to data_width_arg-1 loop + result(data_width_arg+i) := (i-1 downto 0 => '1') & (data_width_arg-1-i downto 0 => '0'); end loop; return result;