paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 16:40:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

PoChecker: do not increment WarningCount CheckStatistics.

Browse Source 
git-svn-id: trunk@44250 -
This commit is contained in:
bart 2014-02-26 17:52:59 +00:00
parent 7bbea27144
commit 206cae270e
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/pochecker/pocheckermain.pp
View File

@ -308,7 +308,7 @@ begin
PoFamily.RunTests(Options, ErrorCount, WarningCount, SL); PoFamily.RunTests(Options, ErrorCount, WarningCount, SL);
debugln('RunSelectedTests: ',Format(sTotalErrors,[ErrorCount])); debugln('RunSelectedTests: ',Format(sTotalErrors,[ErrorCount]));
debugln(' ',Format(sTotalWarnings,[WarningCount])); debugln(' ',Format(sTotalWarnings,[WarningCount]));
if (ErrorCount > 0) or (WarningCount > 0) then if (ErrorCount > 0) or (WarningCount > 0) or (ptoCheckStatistics in Options) then
begin begin
SL.Add(Format(sTotalErrors,[ErrorCount])); SL.Add(Format(sTotalErrors,[ErrorCount]));
SL.Add(Format(sTotalWarnings,[WarningCount])); SL.Add(Format(sTotalWarnings,[WarningCount]));

1
components/pochecker/pofamilies.pp
View File

@ -601,7 +601,6 @@ begin
NrTotal := NrTranslated + NrUntranslated + NrFuzzy; NrTotal := NrTranslated + NrUntranslated + NrFuzzy;
if (NrTotal > 0) then if (NrTotal > 0) then
begin begin
WarningCount := 1; //else it will not show up...
ErrorLog.Add(Divider); ErrorLog.Add(Divider);
ErrorLog.Add(sTranslationStatistics); ErrorLog.Add(sTranslationStatistics);
ErrorLog.Add(ShortChildName); ErrorLog.Add(ShortChildName);