paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 02:48:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patches from Pierre

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-01-18 15:51:01 +01:00
parent 879e13d96a
commit 38e2cea533
3 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/utils/Makefile
View File

@ -2412,7 +2412,7 @@ endif
utils: all
dbconfig$(SRCEXEEXT): dbconfig.pp teststr$(PPUEXT) testu$(PPUEXT) tresults$(PPUEXT) dbtests$(PPUEXT)
$(COMPILER) $<
dbdigest$(SRCEXEEXT): dbdigest.pp teststr$(PPUEXT) testu$(PPUEXT) tresults$(PPUEXT) dbtests$(PPUEXT)
dbdigest$(SRCEXEEXT): dbdigest.pp digestanalyst$(PPUEXT) teststr$(PPUEXT) testu$(PPUEXT) tresults$(PPUEXT) dbtests$(PPUEXT)
$(COMPILER) $<
digest$(SRCEXEEXT): digest.pp teststr$(PPUEXT)
$(COMPILER) $<

2
tests/utils/Makefile.fpc
View File

@ -37,7 +37,7 @@ utils: all
dbconfig$(SRCEXEEXT): dbconfig.pp teststr$(PPUEXT) testu$(PPUEXT) tresults$(PPUEXT) dbtests$(PPUEXT)
$(COMPILER) $<
dbdigest$(SRCEXEEXT): dbdigest.pp teststr$(PPUEXT) testu$(PPUEXT) tresults$(PPUEXT) dbtests$(PPUEXT)
dbdigest$(SRCEXEEXT): dbdigest.pp digestanalyst$(PPUEXT) teststr$(PPUEXT) testu$(PPUEXT) tresults$(PPUEXT) dbtests$(PPUEXT)
$(COMPILER) $<
digest$(SRCEXEEXT): digest.pp teststr$(PPUEXT)

7
tests/utils/digestanalyst.pas
View File

@ -101,6 +101,7 @@ begin
begin
LongLogFile:=TStringList.Create;
LongLogFile.LoadFromFile(aData.longlogfile);
UseLongLog:=LongLogFile.Count>0;
end;
if not GetIDS(aConfig,aData) then
exit;
@ -356,15 +357,15 @@ begin
If not AnalyseLine(line,TS) then
begin
Inc(UnknownLines);
Verbose(V_Warning,'Unknown line: "'+line+'"');
Verbose(V_Warning,'Unknown line: "'+fullline+'"');
end
else
begin
Verbose(V_NORMAL,'Analysing result for test '+Line);
Verbose(V_NORMAL,'Analysing result for test '+fullLine);
lResult.TestID:=FDB.RequireTestID(line);
if lResult.TestID=-1 then
begin
Verbose(V_Warning,'No test ID: "'+line+'", skipping');
Verbose(V_Warning,'No test ID: "'+fullline+'", skipping');
Continue;
end;
If ExpectRun[TS] then