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

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