allgemein: konstanten verwenden

[hwmod.git] / src / beh_parser_tb.vhd

diff --git a/src/beh_parser_tb.vhd b/src/beh_parser_tb.vhd
index b0626cf8cfc763035ef26366ab3e6545aec3411f..eb452058d5ef5794cf4c630c63c56dd0c1b71d84 100644 (file)
--- 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;