X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=cpu%2Fsrc%2Falu_b.vhd;h=c170ce6351bee19ccb8ed4b7e2b8a2c344188b6e;hb=afedb369e2082b0e887941faa4326f3c11eff20d;hp=c79541bae71caca087c017026557b9fa9dc772e6;hpb=6c10712c3db3e70033d5f64f075b880d7faef3ec;p=calu.git

diff --git a/cpu/src/alu_b.vhd b/cpu/src/alu_b.vhd
index c79541b..c170ce6 100755
--- a/cpu/src/alu_b.vhd
+++ b/cpu/src/alu_b.vhd
@@ -75,7 +75,11 @@ begin
 	paddr <= (others =>'0');
 	
 	result_v.result := add_result.result;
-	prog_cnt_nxt := std_logic_vector(unsigned(prog_cnt)+1);
+	if (op_detail(DIRECT_JUMP_OPT) = '0') then
+		prog_cnt_nxt := std_logic_vector(unsigned(prog_cnt)+1);
+	else
+		prog_cnt_nxt := prog_cnt;
+	end if;
 	case cond is
 	when COND_NZERO =>
 		cond_met := not(alu_state.status.zero);
@@ -118,14 +122,19 @@ begin
 	case op_group is
 	when ADDSUB_OP =>
 		result_v := add_result;
+		addr(DATA_ADDR_WIDTH + 2) <= '0';
 	when AND_OP =>
 		result_v := and_result;
+		addr(DATA_ADDR_WIDTH + 2) <= '0';
 	when OR_OP =>
 		result_v := or_result;
+		addr(DATA_ADDR_WIDTH + 2) <= '0';
 	when XOR_OP =>
 		result_v := xor_result;
+		addr(DATA_ADDR_WIDTH + 2) <= '0';
 	when SHIFT_OP =>
 		result_v := shift_result;
+		addr(DATA_ADDR_WIDTH + 2) <= '0';
    when LDST_OP =>
                 res_prod := '0';
                 mem_op := '1';