X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=hwmod.git;a=blobdiff_plain;f=src%2Fbeh_parser_tb.vhd;h=eb452058d5ef5794cf4c630c63c56dd0c1b71d84;hp=b0626cf8cfc763035ef26366ab3e6545aec3411f;hb=b42b2b9d669e1d12db43c70704b4657901d1ab02;hpb=d070f8eadaa8f62b9c5c0709f9e447eb24d590d9

diff --git a/src/beh_parser_tb.vhd b/src/beh_parser_tb.vhd
index b0626cf..eb45205 100644
--- a/src/beh_parser_tb.vhd
+++ b/src/beh_parser_tb.vhd
@@ -74,12 +74,12 @@ begin
 
 		i := 1;
 		f_loop : while not endfile(f) loop
-			realresult := (72 => nul, others => ' ');
+			realresult := (HSPALTE_MAX+1 => nul, others => ' ');
 
 			f1_loop : while not endfile(f) loop
 				readline (f, l);
 				input := (others => nul);
-				if (l'length <= 72) then
+				if (l'length <= HSPALTE_MAX+1) then
 					input(1 to l'length) := l.all;
 					if (input(1) = '#') then
 						next f1_loop;
@@ -95,7 +95,7 @@ begin
 			f2_loop : while not endfile(f) loop
 				readline (f, l);
 				expectedresult := (others => nul);
-				if (l'length <= 72) then
+				if (l'length <= HSPALTE_MAX+1) then
 					expectedresult(1 to l'length) := l.all;
 					if (expectedresult(1) = '#') then
 						next f2_loop;
@@ -111,10 +111,10 @@ begin
 
 			-- ergebnis string richtig formatieren
 			hstrtmp := expectedresult;
-			expectedresult := (72 => nul, others => ' ');
-			for x in 1 to 71 loop
+			expectedresult := (HSPALTE_MAX+1 => nul, others => ' ');
+			for x in 1 to HSPALTE_MAX loop
 				if hstrtmp(x) /= nul then
-					expectedresult((71-y) + x) := hstrtmp(x);
+					expectedresult((HSPALTE_MAX-y) + x) := hstrtmp(x);
 				end if;
 			end loop;
 
@@ -126,7 +126,7 @@ begin
 			icwait(sys_clk, 5);
 			do_it <= '1';
 			run_tc := true;
-			j := 1; k := 71;
+			j := 1; k := HSPALTE_MAX;
 
 			while run_tc loop
 				wait on p_rget, p_wtake, p_finished, finished;