X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=hwmod.git;a=blobdiff_plain;f=src%2Fbeh_history_tb.vhd;h=baf097a602bdfabb291132fa25474751dc06971c;hp=bf1eb89433df20c9e0fec8a1a6cfeb0fd2b85d54;hb=65784a7893de89e712199ca58a975ffbc35c3577;hpb=5f4ec84aff1e4c4d26eb7707a2e9d899ed519bb9 diff --git a/src/beh_history_tb.vhd b/src/beh_history_tb.vhd index bf1eb89..baf097a 100644 --- a/src/beh_history_tb.vhd +++ b/src/beh_history_tb.vhd @@ -167,7 +167,7 @@ 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; @@ -189,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; @@ -213,7 +213,7 @@ begin 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;