paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 11:30:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

Postpone setting of prevline to correct message when prevline not found

Browse Source
This commit is contained in:
Pierre Muller 2024-06-13 08:54:59 +02:00
parent 83d3a39417
commit c9260edb4f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/utils/digest.pp
View File

@ -49,7 +49,6 @@ var
begin begin
if st=prevline then if st=prevline then
exit; exit;
prevline:=st;
should_be_run:=next_should_be_run; should_be_run:=next_should_be_run;
if next_should_be_run and if next_should_be_run and
(pos(failed_to_run,st)<>1) and (pos(failed_to_run,st)<>1) and
@ -60,6 +59,7 @@ begin
begin begin
Writeln('No run found for "',prevline,'"'); Writeln('No run found for "',prevline,'"');
end; end;
prevline:=st;
next_should_be_run:=false; next_should_be_run:=false;
if pos(failed_to_compile,st)=1 then if pos(failed_to_compile,st)=1 then
begin begin