X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=src%2Fbeh_history_tb.vhd;h=4c98d764192f302eb5c63080589f80a417e70ece;hb=9f86188ebcedaf3cc7a7106b0a8d6a96493d41bc;hp=c1e9a7dc5d5c81cd2469de5862ceccea858fa4cd;hpb=4d1637343c8c579e0996232a4b8ba24845baa9e4;p=hwmod.git

diff --git a/src/beh_history_tb.vhd b/src/beh_history_tb.vhd
index c1e9a7d..4c98d76 100644
--- a/src/beh_history_tb.vhd
+++ b/src/beh_history_tb.vhd
@@ -13,7 +13,7 @@ architecture sim of beh_history_tb is
 	-- system
 	signal sys_clk, sys_res_n : std_logic;
 	-- history/display
-	signal d_new_eingabe, d_new_result : std_logic;
+	signal d_new_eingabe, d_new_result, d_new_bs : std_logic;
 	signal d_zeile : hzeile;
 	signal d_spalte : hspalte;
 	signal d_get, d_done : std_logic;
@@ -47,6 +47,7 @@ begin
 		-- display
 		d_new_eingabe => d_new_eingabe,
 		d_new_result => d_new_result,
+		d_new_bs => d_new_bs,
 		d_zeile => d_zeile,
 		d_spalte => d_spalte,
 		d_get => d_get,
@@ -65,6 +66,7 @@ begin
 		-- history
 		d_new_eingabe => d_new_eingabe,
 		d_new_result => d_new_result,
+		d_new_bs => d_new_bs,
 		d_zeile => d_zeile,
 		d_spalte => d_spalte,
 		d_get => d_get,
@@ -109,9 +111,9 @@ begin
 	process
 	begin
 		free <= '0';
-		icwait(sys_clk, 2);
+		wait for 15 ns;
 		free <= '1';
-		icwait(sys_clk, 2);
+		wait for 30 ns;
 		if stop = true then
 			wait;
 		end if;
@@ -144,7 +146,7 @@ begin
 			return y;
 		end function;
 
-		function valid_char (x : std_logic_vector(7 downto 0); last : std_logic_vector(7 downto 0)) return boolean is
+		function valid_char (x : std_logic_vector(7 downto 0)) return boolean is
 				variable y : boolean;
 		begin
 			case x is
@@ -165,11 +167,10 @@ begin
 		file f : text open read_mode is "../../src/history.test";
 		variable l : line;
 
-		variable input : hstring;
+		variable input : string(1 to 100);
 
 		variable run_tc, run_inner : boolean := true;
 		variable i, j, y : natural;
-		variable last : std_logic_vector(7 downto 0);
 	begin
 		-- init & reset
 		sys_res_n <= '0';
@@ -178,7 +179,7 @@ begin
 		s_done <= '0';
 		finished <= '0';
 
-		icwait(sys_clk, 5);
+		icwait(sys_clk, 20);
 		sys_res_n <= '1';
 
 		i := 1;
@@ -188,7 +189,7 @@ begin
 			f1_loop : while not endfile(f) loop
 				readline (f, l);
 				input := (others => nul);
-				if (l'length <= 72) then
+				if (l'length <= 100) then
 					input(1 to l'length) := l.all;
 					if (input(1) = '#') then
 						next f1_loop;
@@ -209,11 +210,10 @@ begin
 			j := 0;
 
 			mainl : while run_tc loop
-				last := data;
-				icwait(sys_clk, 1);
+				icwait(sys_clk, 10);
 				j := j + 1;
 
-				if j = 73 then
+				if j = 101 then
 					run_tc := false;
 					assert(false) report "wtf @ schleife";
 					next mainl;
@@ -237,7 +237,7 @@ begin
 
 				-- ack'en skippen, falls es ein "spezielles" zeichen ist (steht
 				-- in abhaengigkeit zum vorherigen zeichen)
-				if(not valid_char(data, last)) then
+				if(not valid_char(data)) then
 					next mainl;
 				end if;
 
@@ -264,6 +264,7 @@ begin
 						wait on do_it; -- = '0'
 						icwait(sys_clk, 1);
 						finished <= '0';
+						icwait(sys_clk, 850);
 
 						run_tc := false;
 					else
@@ -275,7 +276,7 @@ begin
 			report "==================";
 		end loop f_loop;
 
-		icwait(sys_clk, 20);
+		icwait(sys_clk, 850);
 		stop <= true;
 		wait;
 	end process;