X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=src%2Fparser.vhd;h=c74b4cb1e801dacda11a7121a545b145bc64cd7c;hb=2a30006fc558b9224ab54b4f68025d1b0149e071;hp=fe7bda1db28e20521bc82b2f56f654d792912843;hpb=a808051e1631ed84fed6e5b394e4a54856ea63b0;p=hwmod.git

diff --git a/src/parser.vhd b/src/parser.vhd
index fe7bda1..c74b4cb 100644
--- a/src/parser.vhd
+++ b/src/parser.vhd
@@ -9,8 +9,6 @@ entity parser is
 		sys_clk : in std_logic;
 		sys_res_n : in std_logic;
 		-- History
-		p_rw : out std_logic;
-		p_spalte : out hspalte;
 		p_rget : out std_logic;
 		p_rdone : in std_logic;
 		p_read : in hbyte;
@@ -38,6 +36,7 @@ architecture beh of parser is
 	signal p_rget_int, p_rget_next : std_logic;
 	signal p_wtake_int, p_wtake_next : std_logic;
 	signal p_finished_int, p_finished_next : std_logic;
+	signal finished_int, finished_next : std_logic;
 	signal aktop_int, aktop_next : alu_ops;
 	signal opp_int, opp_next : alu_ops;
 	signal opcode_int, opcode_next : alu_ops;
@@ -79,6 +78,7 @@ begin
 	p_rget <= p_rget_int;
 	p_wtake <= p_wtake_int;
 	p_finished <= p_finished_int;
+	finished <= finished_int;
 
 	opcode <= opcode_int;
 	op1 <= op1_int;
@@ -102,17 +102,15 @@ begin
 			errc_tmp_int <= 0;
 			firstz_int <= true;
 			-- out ports
-			p_rw <= '0';
-			p_spalte <= (others => '0');
 			p_rget_int <= '0';
 			p_write_int <= (others => '0');
 			p_wtake_int <= '0';
 			p_finished_int <= '0';
+			finished_int <= '0';
 			opcode_int <= ALU_NOP;
 			op1_int <= (others => '0');
 			op2_int <= (others => '0');
 			do_calc_int <= '0';
-			finished <= '0';
 		elsif rising_edge(sys_clk) then
 			-- internal
 			state_int <= state_next;
@@ -133,6 +131,7 @@ begin
 			p_write_int <= p_write_next;
 			p_wtake_int <= p_wtake_next;
 			p_finished_int <= p_finished_next;
+			finished_int <= finished_next;
 			opcode_int <= opcode_next;
 			op1_int <= op1_next;
 			op2_int <= op2_next;
@@ -349,9 +348,9 @@ begin
 
 		type errstrings is array (natural range 1 to 3) of hstring;
 		constant error_str : errstrings := (
-			1 => "                                                    Division durch Null" & nul,
-			2 => "                                                                 Syntax" & nul,
-			3 => "                                                   Over- bzw. Underflow" & nul
+			1 => " > Fehler:                             Division durch Null             " & nul,
+			2 => " > Fehler:                             Syntax                          " & nul,
+			3 => " > Fehler:                             Over- bzw. Underflow            " & nul
 		);
 	begin
 		-- internal
@@ -372,6 +371,7 @@ begin
 		p_write_next <= p_write_int;
 		p_wtake_next <= '0';
 		p_finished_next <= '0';
+		finished_next <= '0';
 		opcode_next <= opcode_int;
 		op1_next <= op1_int;
 		op2_next <= op2_int;
@@ -463,7 +463,15 @@ begin
 				case opp_int is
 					when ALU_NOP | ALU_ADD | ALU_SUB =>
 						case opp_int  is
-							when ALU_SUB => op1_next <= (not tmp) + 1;
+							when ALU_SUB =>
+								-- xst (xilinx) workaround
+								if x"80000000" = tmp then
+									-- vgl. testfall 37 und 38
+									err_next <= 3;
+									op1_next <= tmp;
+								else
+									op1_next <= (not tmp) + 1;
+								end if;
 							when others => op1_next <= tmp;
 						end case;
 						case aktop_int is
@@ -519,6 +527,7 @@ begin
 								punkt_next <= op3;
 							when others => assert (false) report "SCALC_2/1: shouldn't happen!";
 						end case;
+					when ALU_DONE => null;
 					when others => assert (false) report "SCALC_2/2: shouldn't happen!";
 				end case;
 				-- aktuelle rechenoperation fuer naechste 'runde' uebernehmen
@@ -559,6 +568,7 @@ begin
 				err_next <= 0;
 				errc_next <= 71;
 				p_finished_next <= '1';
+				finished_next <= '1';
 		end case;
 
 		-- fehlerbehandlung