From: Bernhard Urban <lewurm@gmail.com>
Date: Tue, 11 Jan 2011 17:11:31 +0000 (+0100)
Subject: stack: quickfix by markus
X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=calu.git;a=commitdiff_plain;h=0154fd6e7dff8dec25d2521805809320cc6fa336

stack: quickfix by markus
---

diff --git a/cpu/src/alu_b.vhd b/cpu/src/alu_b.vhd
index c170ce6..93f4f8d 100755
--- a/cpu/src/alu_b.vhd
+++ b/cpu/src/alu_b.vhd
@@ -193,10 +193,10 @@ begin
 			mem_en := '1';
 			pinc_v := '1';
 			res_prod := '0';
-			addr <= pval_nxt;
+			addr <= pval;
 			data <= left_operand;
 		else
-			addr <= std_logic_vector(unsigned(pval_nxt)-4);
+			addr <= pval_nxt;
 		end if;
 		
 	end case;