- end component alu;\r
- \r
-end package alu_pkg;\r
-\r
-package body alu_pkg is\r
-\r
- function add_oflo(l_neg, r_neg , res_neg: std_logic) return std_logic is\r
- begin\r
- return (l_neg AND r_neg AND not(res_neg)) OR \r
- (not(l_neg) AND not(r_neg) AND res_neg);\r
- end function add_oflo;\r
- \r
- -- function addsub_op(left_operand, right_operand : gp_register_t; sub, addc : std_logic; alu_result : alu_result_rec) return alu_result_rec is\r
- -- variable alu_result_out : alu_result_rec;\r
- -- variable complement : gp_register_t;\r
- -- variable carry_res : unsigned(gp_register_t'length downto 0);\r
- -- variable tmp_right_operand : unsigned(gp_register_t'length downto 0);\r
- -- variable oflo1, oflo2, l_neg, r_neg : std_logic;\r
- -- variable addcarry : unsigned(carry_res'range);\r
- -- begin\r
- -- alu_result_out := alu_result;\r
- \r
- -- addcarry := (others =>'0');\r
- -- addcarry(0) := unsigned(alu_result.status.carry and addc);\r
- \r
- -- complement := inc(not(right_operand));\r
- -- l_neg := left_operand(gp_register_t'high);\r
- \r
- -- carry_res := unsigned('0' & left_operand)+addcarry;\r
- -- oflo1 := add_oflo(l_neg,'0',std_logic_vector(carry_res)(gp_register_t'high));\r
- \r
- -- if sub = '1' then\r
- -- tmp_right_operand := unsigned('0' & complement);\r
- -- else\r
- -- tmp_right_operand := unsigned('0' & right_operand);\r
- -- end if;\r
- \r
- -- l_neg := std_logic_vector(carry_res)(gp_register_t'high);\r
- -- r_neg := std_logic_vector(tmp_right_operand)(gp_register_t'high);\r
- \r
- -- carry_res := carry_res + tmp_right_operand;\r
- -- oflo2 := add_oflo(l_neg,r_neg,std_logic_vector(carry_res)(gp_register_t'high));\r
- \r
-\r
- -- alu_result_out.result := std_logic_vector(carry_res)(gp_register_t'range);\r
- -- alu_result_out.status.carry := std_logic_vector(carry_res)(carry_res'high);\r
- \r
- \r
- -- alu_result_out.status.carry := oflo1 or oflo2;\r
- \r
- -- --sign will be set globally.\r
- -- --zero will be set globally.\r
- \r
- -- return alu_result_out;\r
- -- end function addsub_op;\r
- \r
- -- function and_op(left_operand, right_operand : gp_register_t; alu_result : alu_result_rec) return alu_result_rec is\r
- -- variable alu_result_out : alu_result_rec;\r
- -- begin\r
- -- alu_result_out := alu_result;\r
- -- alu_result_out.result := left_operand and right_operand;\r
- -- end function and_op;\r
- \r
- -- function or_op(left_operand, right_operand : gp_register_t; alu_result : alu_result_rec) return alu_result_rec is\r
- -- variable alu_result_out : alu_result_rec;\r
- -- begin\r
- -- alu_result_out := alu_result;\r
- -- alu_result_out.result := left_operand or right_operand;\r
- -- end function or_op;\r
- \r
- -- function xor_op(left_operand, right_operand : gp_register_t; alu_result : alu_result_rec) return alu_result_rec is\r
- -- variable alu_result_out : alu_result_rec;\r
- -- begin\r
- -- alu_result_out := alu_result;\r
- -- alu_result_out.result := left_operand xor right_operand;\r
- -- end function xor_op;\r
- \r
- -- function shift_op(left_operand, right_operand : gp_register_t; arith,rs,carry : std_logic ;alu_result : alu_result_rec) return alu_result_rec is\r
- -- variable alu_result_out : alu_result_rec;\r
- -- variable tmp_shift : bit_vector(gp_register_t'length+1 downto 0);\r
- -- variable tmp_sb : std_logic;\r
- -- begin\r
- -- alu_result_out := alu_result;\r
- \r
- -- if rs = '1' then\r
- -- tmp_sb := (carry and alu_result.status.carry and not(arith)) or (arith and left_operand(gp_register_t'high));\r
- -- tmp_shift := bit_vector(tmp_sb & left_operand & alu_result.status.carry);\r
- -- tmp_shift := tmp_shift sra to_integer(unsigned(right_operand)(SHIFT_WIDTH-1 downto 0));\r
- \r
- -- alu_result_out.status.carry := std_logic_vector(tmp_shift)(0);\r
- -- else\r
- -- tmp_sb := (carry and alu_result.status.carry and not(arith));\r
- -- tmp_shift := bit_vector(alu_result.status.carry & left_operand & tmp_sb);\r
- -- tmp_shift := tmp_shift sla to_integer(unsigned(right_operand)(SHIFT_WIDTH-1 downto 0));\r
- \r
- -- alu_result_out.status.carry := std_logic_vector(tmp_shift)(tmp_shift'high);\r
- -- end if;\r
- \r
- -- alu_result_out.result := std_logic_vector(tmp_shift)(gp_register_t'length downto 1);\r
- \r
- -- end function shift_op;\r
-\r
-end package body alu_pkg;\r
+ end component alu;
+
+end package alu_pkg;
+
+package body alu_pkg is
+
+ function add_oflo(l_neg, r_neg , res_neg: std_logic) return std_logic is
+ begin
+ return (l_neg AND r_neg AND not(res_neg)) OR
+ (not(l_neg) AND not(r_neg) AND res_neg);
+ end function add_oflo;
+
+ -- function addsub_op(left_operand, right_operand : gp_register_t; sub, addc : std_logic; alu_result : alu_result_rec) return alu_result_rec is
+ -- variable alu_result_out : alu_result_rec;
+ -- variable complement : gp_register_t;
+ -- variable carry_res : unsigned(gp_register_t'length downto 0);
+ -- variable tmp_right_operand : unsigned(gp_register_t'length downto 0);
+ -- variable oflo1, oflo2, l_neg, r_neg : std_logic;
+ -- variable addcarry : unsigned(carry_res'range);
+ -- begin
+ -- alu_result_out := alu_result;
+
+ -- addcarry := (others =>'0');
+ -- addcarry(0) := unsigned(alu_result.status.carry and addc);
+
+ -- complement := inc(not(right_operand));
+ -- l_neg := left_operand(gp_register_t'high);
+
+ -- carry_res := unsigned('0' & left_operand)+addcarry;
+ -- oflo1 := add_oflo(l_neg,'0',std_logic_vector(carry_res)(gp_register_t'high));
+
+ -- if sub = '1' then
+ -- tmp_right_operand := unsigned('0' & complement);
+ -- else
+ -- tmp_right_operand := unsigned('0' & right_operand);
+ -- end if;
+
+ -- l_neg := std_logic_vector(carry_res)(gp_register_t'high);
+ -- r_neg := std_logic_vector(tmp_right_operand)(gp_register_t'high);
+
+ -- carry_res := carry_res + tmp_right_operand;
+ -- oflo2 := add_oflo(l_neg,r_neg,std_logic_vector(carry_res)(gp_register_t'high));
+
+
+ -- alu_result_out.result := std_logic_vector(carry_res)(gp_register_t'range);
+ -- alu_result_out.status.carry := std_logic_vector(carry_res)(carry_res'high);
+
+
+ -- alu_result_out.status.carry := oflo1 or oflo2;
+
+ -- --sign will be set globally.
+ -- --zero will be set globally.
+
+ -- return alu_result_out;
+ -- end function addsub_op;
+
+ -- function and_op(left_operand, right_operand : gp_register_t; alu_result : alu_result_rec) return alu_result_rec is
+ -- variable alu_result_out : alu_result_rec;
+ -- begin
+ -- alu_result_out := alu_result;
+ -- alu_result_out.result := left_operand and right_operand;
+ -- end function and_op;
+
+ -- function or_op(left_operand, right_operand : gp_register_t; alu_result : alu_result_rec) return alu_result_rec is
+ -- variable alu_result_out : alu_result_rec;
+ -- begin
+ -- alu_result_out := alu_result;
+ -- alu_result_out.result := left_operand or right_operand;
+ -- end function or_op;
+
+ -- function xor_op(left_operand, right_operand : gp_register_t; alu_result : alu_result_rec) return alu_result_rec is
+ -- variable alu_result_out : alu_result_rec;
+ -- begin
+ -- alu_result_out := alu_result;
+ -- alu_result_out.result := left_operand xor right_operand;
+ -- end function xor_op;
+
+ -- function shift_op(left_operand, right_operand : gp_register_t; arith,rs,carry : std_logic ;alu_result : alu_result_rec) return alu_result_rec is
+ -- variable alu_result_out : alu_result_rec;
+ -- variable tmp_shift : bit_vector(gp_register_t'length+1 downto 0);
+ -- variable tmp_sb : std_logic;
+ -- begin
+ -- alu_result_out := alu_result;
+
+ -- if rs = '1' then
+ -- tmp_sb := (carry and alu_result.status.carry and not(arith)) or (arith and left_operand(gp_register_t'high));
+ -- tmp_shift := bit_vector(tmp_sb & left_operand & alu_result.status.carry);
+ -- tmp_shift := tmp_shift sra to_integer(unsigned(right_operand)(SHIFT_WIDTH-1 downto 0));
+
+ -- alu_result_out.status.carry := std_logic_vector(tmp_shift)(0);
+ -- else
+ -- tmp_sb := (carry and alu_result.status.carry and not(arith));
+ -- tmp_shift := bit_vector(alu_result.status.carry & left_operand & tmp_sb);
+ -- tmp_shift := tmp_shift sla to_integer(unsigned(right_operand)(SHIFT_WIDTH-1 downto 0));
+
+ -- alu_result_out.status.carry := std_logic_vector(tmp_shift)(tmp_shift'high);
+ -- end if;
+
+ -- alu_result_out.result := std_logic_vector(tmp_shift)(gp_register_t'length downto 1);
+
+ -- end function shift_op;
+
+end package body alu_pkg;