X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=cpu%2Fsrc%2Falu_b.vhd;h=c170ce6351bee19ccb8ed4b7e2b8a2c344188b6e;hb=2fc8379195133d616d8452eb23c79268fffc6008;hp=5702377306821cf9ce00847ee070b965e5b248ae;hpb=9e8a37bd8a173779f661ded4ac91cbd9932b744b;p=calu.git

diff --git a/cpu/src/alu_b.vhd b/cpu/src/alu_b.vhd
index 5702377..c170ce6 100755
--- a/cpu/src/alu_b.vhd
+++ b/cpu/src/alu_b.vhd
@@ -122,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';