signal stop : boolean := false;
begin
- inst : entity work.parser(beh)
- port map
- (
+ inst : parser
+ port map (
sys_clk => sys_clk,
sys_res_n => sys_res_n,
-- history
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;
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;
-- 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;
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;